Конфигурирование программы "1С:Предприятие" на основе предприятия сельскохозяйственной отрасли
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?Затрат) = 0 тогда
Операция. Кредит. Счет = СчетЗатрат;
Операция. Кредит. Субконто (1, Субконто1);
Операция. Кредит. Субконто (2, Субконто2);
Операция. Кредит. Субконто (3, Субконто3);
КонецЕсли;
…
Операция. НоваяПроводка();
Операция. Дебет. Счет = Сч19_1;
Операция. Дебет. Контрагенты = Контрагент;
Если ПустоеЗначение(ДатаНомерСчетаФактуры) = 0 Тогда
Операция. Дебет. СчетаФактурыПолученные = ТекущийДокумент();
КонецЕсли;
Операция. Кредит. Счет = СчетРасчетовСПоставщиком;
Операция. Кредит. Контрагенты = Контрагент;
Операция. Кредит. Договоры = Договор;
Если Флаг = 1 тогда
Операция. Кредит. Счет = Сч71_1;
КонецЕсли;
Если ПустоеЗначение(СчетЗатрат) = 0 тогда
Операция. Кредит. Счет = СчетЗатрат;
Операция. Кредит. Субконто (1, Субконто1);
Операция. Кредит. Субконто (2, Субконто2);
Операция. Кредит. Субконто (3, Субконто3);
КонецЕсли;
…
Модуль документа ПоступлениеОС
…
Если ПустоеЗначение(СчетЗатрат) = 0 тогда
Операция. Кредит. Счет = СчетЗатрат;
Операция. Кредит. Субконто (1, Субконто1);
Операция. Кредит. Субконто (2, Субконто2);
Операция. Кредит. Субконто (3, Субконто3);
КонецЕсли;
Если Флаг = 1 тогда
Операция. Кредит. Счет = Сч71_1;
КонецЕсли;
…
Процедура ПриВыбореСчетаЗатрат()
Для А = 1 По 3 Цикл
НазначитьТип (Субконто+А, СчетЗатрат. ВидСубконто(А));
КонецЦикла;
КонецПроцедуры // ПриВыбореСчета
Процедура УправлениеЗакладками()
Форма. ИспользоватьЗакладки(1);
Форма. Закладки. УдалитьВсе();
Форма. Закладки. ДобавитьЗначение (Поступление);
Форма. Закладки. ДобавитьЗначение (Счет затрат);
КонецПроцедуры // УправлениеЗакладками
Процедура ПриВыбореЗакладки (НомерЗакладки, ЗначениеЗакладки)
Если НомерЗакладки = 1 Тогда
Форма. ИспользоватьСлой (Основной, 2);
Иначе
Форма. ИспользоватьСлой (СчетЗатрат, 2);
КонецЕсли;
// УправлениеВидимостьюРеквизитов();
КонецПроцедуры
…
Модуль документа РасходнаяНакладная
…
Если ТаблицаДокумента. Количество >= КоличествоНаСкладах Тогда
Если ТаблицаДокумента. Товар. ТипНоменклатуры = Перечисление. ТипыНоменклатуры. Продукция тогда
Если ТаблицаДокумента. Товар. ПлановаяСебестоимость. Получить(ДатаДок) = 0 Тогда
Сообщить (У продукции +ТаблицаДокумента. Товар+ отсутствует себестоимость.,)
КонецЕсли;
ИначеЕсли ПустоеЗначение (ТаблицаДокумента. Себест)= 0 тогда
СуммаОтгрузки = ТаблицаДокумента. Количество* ТаблицаДокумента. Себест
Иначе
СуммаОтгрузки = СуммаНаСкладах
КонецЕсли;
Иначе
Если ТаблицаДокумента. Товар. ТипНоменклатуры = Перечисление. ТипыНоменклатуры. Продукция тогда
СуммаОтгрузки = ТаблицаДокумента. Количество* ТаблицаДокумента. Товар. ПлановаяСебестоимость. Получить(ДатаДок);
Если ТаблицаДокумента. Товар. ПлановаяСебестоимость. Получить(ДатаДок) = 0 Тогда
Сообщить (У продукции +ТаблицаДокумента. Товар+ отсутствует себестоимость.,)
КонецЕсли;
ИначеЕсли ПустоеЗначение (ТаблицаДокумента. Себест)= 0 тогда
СуммаОтгрузки = ТаблицаДокумента. Количество* ТаблицаДокумента. Себест
Иначе
СуммаОтгрузки = ТаблицаДокумента. Количество* (СуммаНаСкладах/КоличествоНаСкладах);
КонецЕсли;
КонецЕсли;
…
Если ПустоеЗначение(СчетЗатрат1) = 1 тогда
Операция. Дебет. Счет = Сч90_1_1;
Операция. Дебет. ВидыНоменклатуры = ТаблицаОтгрузки. ВидНоменклатуры;
Операция. Дебет. СтавкиНДС = ТаблицаОтгрузки. СтавкаНДС;
Операция. Дебет. СтавкиНП = ТаблицаОтгрузки. СтавкаНП;
иначеЕсли СчетЗатрат1. ПринадлежитГруппе (СчетПоКоду(90)) = 1 Тогда
Операция. Дебет. Счет = СчетЗатрат1;
Операция. Дебет. ВидыНоменклатуры = ТаблицаОтгрузки. ВидНоменклатуры;
Операция. Дебет. Субконто (2, Субконто5);
Операция. Дебет. Субконто (3, Субконто6);
Операция. Дебет. Субконто (3, Субконто6);
КонецЕсли;
…
Если ПустоеЗначение(СчетЗатрат) = 0 тогда
Операция. Дебет. Счет = СчетЗатрат;
Операция. Дебет. Субконто (1, Субконто1);
Операция. Дебет. Субконто (2, Субконто2);
Операция. Дебет. Субконто (3, Субконто3);
КонецЕсли;
…
Если ПустоеЗначение(СчетЗатрат1) = 1 тогда
Операция. Кредит. Счет = Сч90_1_1;
Операция. Кредит. ВидыНоменклатуры = ТаблицаОтгрузки. ВидНоменклатуры;
Операция. Кредит. СтавкиНДС = ТаблицаОтгрузки. СтавкаНДС;
Операция. Кредит. СтавкиНП= ТаблицаОтгрузки. СтавкаНП;
иначеЕсли СчетЗатрат1. ПринадлежитГруппе (СчетПоКоду(90)) = 1 Тогда
Операция. Кредит. Счет = СчетЗатрат1;
Операция. Кредит. Субконто (3, Субконто6);
Иначе
Операция. Кредит. Счет = СчетЗатрат1;
Операция. Кредит. Субконто (1, Субконто4);
Операция. Кредит. Субконто (2, Субконто5);
Операция. Кредит. Субконто (3, Субконто6);
КонецЕсли;
…
Модуль формы РасходнаяНакладная
…
Процедура УправлениеЗакладками()
Форма. ИспользоватьЗакладки(1);
Форма. Закладки. УдалитьВсе();
Форма. Закладки. ДобавитьЗначение (Отгрузка товаров (продукции));
Форма. Закладки. ДобавитьЗначение (Счет затрат);
КонецПроцедуры // УправлениеЗакладками
Процедура ПриВыбореСчетаЗатрат()
Для А = 1 По 3 Цикл
НазначитьТип (Субконто+А, СчетЗатрат. ВидСубконто(А));
КонецЦикла;
КонецПроцедуры // ПриВыбореСчета
Процедура ПриВыбореСчетаЗатрат1 ()
Для А = 1 По 3 Цикл
В = А + 3;
НазначитьТип (Субконто+В, СчетЗа