Автоматизация бухгалтерского учета в ОАО «БЕЛОРУССКИЙ МЕТАЛЛУРГИЧЕСКИЙ ЗАВОД»

В ходе проектирования конфигурации для ОАО «Белорусский металлургический завод» выделены шесть сущностей и проанализированы связи между ними.

Приложение  реализовано по технологии «тонкого»  клиента, что подтверждает его соответствие современным требованиям.

Размер  папки с файлами конфигурации «Клиенты» составляет 187 Мбайт. Эта  папка содержит файл для объединения  с базой клиента и отчет  в виде внешней обработки.

В результате тестирования конфигурации «Клиенты»  в реальных условиях производства установлено, что она в полном объеме удовлетворяет  требованиям заказчика.

 

 

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Автоматизация учета, анализа и аудита: учеб. пособие/ Головкова Е.А., Прохорова Т.В., Шиманский К.А. – Мн.: ООО «Мисанта», 2011. – 125 с.
2. Верников, В. Описание стандарта IDEF0 / В. Верников // Автоматизация управления компаниями [Электронный ресурс]. – 2013. – Режим доступа: http://www.insapov.ru/idef0-standard-description.html. – Дата доступа: 25.11.2013.
3. Гвоздева, В. А.  Информатика,  автоматизированные  информационные  технологии  и системы: учеб. пособие / В. А. Гвоздева. – М: Инфра- М, 2011. – 436 с.
4. Глушаков, С. В.  «ПК для бухгалтера» / С. В. Глушаков. – М.: АСТ, 2009. – 448 с.
5. Губчик, С. Автоматизация бухгалтерского учета: тенденции в развитии /                     С. Губчик // Главный бухгалтер. – 2011. – № 21. – С. 25-36.
6. Оперативная отчетность // Информационный портал ЮКОЛА-ИНФО [Электронный ресурс]. – 2013. – Режим доступа: http://www.jukola. com.by/otrasl/reports4managers.php. – Дата доступа: 25.11.2013.
7. Работа с компонентой «Бухгалтерский учет» системы «1С: Предприятие 7.7»: Методические  рекомендации/  Королев  Ю.Ю. – Мн.:  Королев Ю.Ю. – Мн.:  БГЭУ, 2009. – 78 с.
8. Технологии автоматизированной обработки учетно-аналитической информации : учеб. пособие / Ю. Ю. Королев [и др.] ; под общ. ред. Л. А. Попковой. – Минск : ИВЦ Минфина, 2012. – 352 с.
9. Титоренко, Г.А. Автоматизированные информационные технологии в экономике: учебник / Г. А. Титоренко. – М.: ЮНИТИ, 2011. – 400 с.
10. Ткаченко, Е.Л. Современные технологии обработки бухгалтерской информации / Ткаченко Е.Л. – Мн.: Изд-во МИУ, 2007. – 286 с.
11. Трофимова В. В. Информационные системы и технологии в экономике и управлении: учеб. пособие/ В. В.Трофимова. – СПбГУЭФ, 2011. – 355 с.
12. Усиков, Т. Н. 1C: Предприятие. Эффективное программирование / Т. Н. Усиков. –  М.: Новое знание, 2006. – 446 с.
13. Федорова, Г. В.  Информационные технологии бухгалтерского учета, анализа и аудита. –  М.: Омега-Л, 2009. – 304 с.
14. Чистова Д. В. Информационные системы в экономике: учеб. пособие / Д. В.Чистова. –  М: Инфра- М, 2010. – 396 с.
15. Ясенев В. Н. Информационные системы и технологии в экономике: учеб. пособие / В. Н. Ясенев– Юнити Дана, 2010.-560 с.
16. 1С:Бухгалтерия 7.7 (белорусские настройки): Практический курс для начинающего пользователя. – Мн.: ОДО «Олдеран», 2009.– 304 с.

 

ПРИЛОЖЕНИЕ 1

ЛИСТИНГ ПРОГРАММЫ

автоматизация подсистема программный  интерфейс

РеализацияТоваровУслуг

 

ОбластьМакета = Макет.ПолучитьОбласть("Заголовок1");

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт");

ТабДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("Поставщик1");

СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);

ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");

ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;

ОбластьМакета.Параметры.Поставщик  = Шапка.Поставщик;

ТабДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("Покупатель1");

СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);

ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");

ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;

ОбластьМакета.Параметры.Получатель = Шапка.Получатель;

ТабДокумент.Вывести(ОбластьМакета);

ЕстьСкидки = Ложь;

ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы1");

ОбластьСтроки = Макет.ПолучитьОбласть("Строка1");

ТабДокумент.Вывести(ОбластьМакета);

НомерСтроки = 0;

Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл

НомерСтроки = НомерСтроки + 1;

ОбластьСтроки.Параметры.Заполнить(СтрокаТабличнойЧасти);

ОбластьСтроки.Параметры.НомерСтроки = НомерСтроки;

ОбластьСтроки.Параметры.Товар = СокрЛП(СтрокаТабличнойЧасти.Товар);

Если  Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда

ОбластьСтроки.Параметры.Цена = СтрокаТабличнойЧасти.Сумма / ?(СтрокаТабличнойЧасти.Количество = 0, 1, СтрокаТабличнойЧасти.Количество);

КонецЕсли;

ТабДокумент.Вывести(ОбластьСтроки);

КонецЦикла;

Если  ТаблицаУслуги <> Неопределено Тогда

Сумма = ТаблицаУслуги.Итог("Сумма");

Иначе

Сумма = 0;

СуммаНДС = 0;

КонецЕсли;

ОбластьМакета = Макет.ПолучитьОбласть("Итого1");

ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);

ТабДокумент.Вывести(ОбластьМакета);

Если  Шапка.УчитыватьНДС Тогда

ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС1");

Если  СуммаНДС <> 0 Тогда

Иначе

ОбластьМакета.Параметры.ВсегоНДС = "-";

ОбластьМакета.Параметры.НДС = "Без налога (НДС)";

КонецЕсли;

ТабДокумент.Вывести(ОбластьМакета);

КонецЕсли;

ОбластьМакета = Макет.ПолучитьОбласть("Подписи1");

ТабДокумент.Вывести(ОбластьМакета);

 

Заявка

Процедура ПриОткрытии()

Попытка

Если  ЭтоНовый() Тогда

ЭлементыФормы.Ответственный.Значение = Справочники.Сотрудники.НайтиПоНаименованию(ПользователиИнформационнойБазы.ТекущийПользователь().ПолноеИмя).Ссылка;

//ЭлементыФормы.Организация.Значение = Справочники.Организации.НайтиПоНаименованию("").Ссылка;

КонецЕсли;

Исключение

КонецПопытки;

КонецПроцедуры

 

ЗаказПоставщику

 

Перем мДеревоМакетов;

Перем Цена;

Перем Сумма;

Процедура ТоварыПриИзменении(Элемент)

ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(ЭлементыФормы.Товары.ТекущиеДанные, ЭтотОбъект);// Вставить содержимое обработчика.

Всего = Строка(ЭтотОбъект.Товары.Итог("Сумма"));

КонецПроцедуры

Процедура ПечатьДокумента()

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

Запрос.Текст =

"ВЫБРАТЬ

| ЗаказПоставщику.Организация КАК Покупатель,

| ЗаказПоставщику.Поставщик КАК Поставщик,

| ЗаказПоставщику.Товары.(

|  Номенклатура КАК Товар,

|  Количество,

|  Цена,

|  Сумма,

|  НомерСтроки КАК Номер

|),ЗаказПоставщику.ВалютаДокумента КАК Валюта

|ИЗ

| Документ.ЗаказПоставщику КАК ЗаказПоставщику";

Шапка = Запрос.Выполнить().Выбрать();

Шапка.Следующий();

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

Запрос.Текст = "ВЫБРАТЬ

|  Номенклатура КАК Товар,

|  Количество,

|  Цена,

|  Сумма,

|  НомерСтроки КАК Номер

|ИЗ

| Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщику";

ЗапросТовары = Запрос.Выполнить().Выгрузить();

ТабДокумент = Новый ТабличныйДокумент;

ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаказПоставщику";

Макет = ПолучитьМакет("Накладная");

// Выводим  шапку накладной

ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Ссылка, "Заказ поставщику");

ТабДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");

СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Ссылка.Дата);

ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");

ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;

ОбластьМакета.Параметры.Поставщик  = Шапка.Поставщик;

ТабДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");

СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Ссылка.Дата);

ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");

ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;

ОбластьМакета.Параметры.Получатель = Шапка.Покупатель;

ТабДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");

ТабДокумент.Вывести(ОбластьМакета);

НомерСтроки = 0;

Область1 = Макет.ПолучитьОбласть("Строка|Область1");

ОбластьНомера = Макет.ПолучитьОбласть("Строка|Номер");

ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");

Сумма = 0;

Для каждого  ВыборкаСтрокТовары из ЗапросТовары Цикл

ОбластьНомера.Параметры.Заполнить(ВыборкаСтрокТовары);

ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);

Сумма = Сумма + ВыборкаСтрокТовары.Сумма;

ТабДокумент.Вывести(Область1);

ТабДокумент.Присоединить(ОбластьНомера);

ТабДокумент.Присоединить(ОбластьДанных);

КонецЦикла;

Область1 = Макет.ПолучитьОбласть("Итого|Область1");

ОбластьНомера = Макет.ПолучитьОбласть("Итого|Номер");

ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные");

ТабДокумент.Вывести(Область1);

ОбластьДанных.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);

ТабДокумент.Присоединить(ОбластьНомера);

ТабДокумент.Присоединить(ОбластьДанных);

ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");

СуммаКПрописи = Сумма;

ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего наименований " + ЗапросТовары.Количество()+ ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, Ссылка.ВалютаДокумента);

ТабДокумент.Вывести(ОбластьМакета);

ОбластьМакета = Макет.ПолучитьОбласть("Подписи");

ОбластьМакета.Параметры.Заполнить(Шапка);

ТабДокумент.Вывести(ОбластьМакета);

ТабДокумент.Показать();

КонецПроцедуры

Процедура ГиперссылкаЗаказПоставщикуНажатие(Элемент)

РаботаСДиалогами.ВвестиЗаказПоставщику(ЭтотОбъект, ЭтаФорма, "ЗаказПоставщику");

РаботаСДиалогами.УстановитьЗаголовокФормыДокумента(ЭтотОбъект, ЭтаФорма);

КонецПроцедуры

Процедура ОсновныеДействияФормыПечать(Кнопка)