Конфигурирование программы "1С:Предприятие" на основе предприятия сельскохозяйственной отрасли
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
p>
Операция. Дебет. Договоры = Договор;
Иначе
Операция. Дебет. Счет = СчетЗатрат;
Операция. Дебет. Субконто (1, Субконто1);
Операция. Дебет. Субконто (2, Субконто2);
Операция. Дебет. Субконто (3, Субконто3);
КонецЕсли;
Если ПустоеЗначение(СчетЗатрат1) = 1 Тогда
Операция. Кредит. Счет = Сч91_1;
Операция. Кредит. ПрочиеДоходыИРасходы = СтатьяПрочихДоходовИРасходов;
Иначе
Операция. Кредит. Счет = СчетЗатрат1;
Операция. Кредит. Субконто (1, Субконто4);
Операция. Кредит. Субконто (2, Субконто5);
Операция. Кредит. Субконто (3, Субконто6);
КонецЕсли;
Если ЦеныВДоговоре = 2 Тогда
Если ОплатаДоговора = 2 Тогда
Операция. Валюта = Валюта;
Операция. ВалСумма = СуммаРеализации;
КонецЕсли;
Если ВестиУчетРасчетовУЕ = 1 Тогда
Операция. Сумма = ВсегоВыручкаРуб - ВсегоСуммоваяРазница;
Операция. Валюта = Валюта;
Операция. ВалСумма = СуммаРеализации;
Иначе
Операция. Сумма = СуммаРеализации*Курс / Кратность;
КонецЕсли;
Иначе
Операция. Сумма = СуммаРеализации;
КонецЕсли;
Если ВсегоСуммоваяРазница <> 0 Тогда
Операция. НоваяПроводка();
Операция. НомерЖурнала = МТ;
Операция. СодержаниеПроводки = Суммовая разница;
Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция. Дебет. Счет = СчетРасчетовСПокупателем;
Операция. Дебет. Контрагенты = Контрагент;
Операция. Дебет. Договоры = Договор;
Если ПустоеЗначение(СчетЗатрат1) = 1 Тогда
Операция. Кредит. Счет = Сч91_1;
Операция. Кредит. ПрочиеДоходыИРасходы = СтатьяПрочихДоходовИРасходов;
Иначе
Операция. Кредит. Счет = СчетЗатрат1;
Операция. Кредит. Субконто (1, Субконто4);
Операция. Кредит. Субконто (2, Субконто5);
Операция. Кредит. Субконто (3, Субконто6);
КонецЕсли;
Операция. Валюта = Валюта;
Операция. Сумма = ВсегоСуммоваяРазница;
КонецЕсли;
КонецЕсли;
…
Модуль формы ОтпускМатериаловНаСторону
…
Форма. Закладки. ДобавитьЗначение (Счет затрат);
КонецПроцедуры // УправлениеЗакладками
Процедура ПриВыбореСчетаЗатрат()
Для А = 1 По 3 Цикл
НазначитьТип (Субконто+А, СчетЗатрат. ВидСубконто(А));
КонецЦикла;
КонецПроцедуры // ПриВыбореСчета
Процедура ПриВыбореСчетаЗатрат1 ()
Для А = 1 По 3 Цикл
В = А + 3;
НазначитьТип (Субконто+В, СчетЗатрат1. ВидСубконто(А));
КонецЦикла;
КонецПроцедуры // ПриВыбореСчета
…
Форма. Закладки. ТекущаяСтрока(1);
Форма. ИспользоватьСлой (СчетЗатрат, 0);
КонецЕсли;
…
Процедура ПриВыбореЗакладки (НомерЗакладки, ЗначениеЗакладки)
Если НомерЗакладки = 1 Тогда
Форма. ИспользоватьСлой (Основной, 2);
Иначе
Форма. ИспользоватьСлой (СчетЗатрат, 2);
КонецЕсли;
Если Форма. ИспользоватьЗакладки() = 1 Тогда
Если Форма. Закладки. ТекущаяСтрока() = 1 Тогда
ПриВыбореВидаОтпуска();
УправлениеВидимостьюРеквизитов();
УправлениеКурсом();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
…
Модуль отчета ОтчетПоОС
…
Если БИ. ПолучитьСчет (1, Сч01_1) = 1 Тогда
СчетУчета = Сч01_1;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_0) = 1 Тогда
СчетУчета = Сч01_0;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_2) = 1 Тогда
СчетУчета = Сч01_2;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_3) = 1 Тогда
СчетУчета = Сч01_3;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_4) = 1 Тогда
СчетУчета = Сч01_4;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_6) = 1 Тогда
СчетУчета = Сч01_6;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_7) = 1 Тогда
СчетУчета = Сч01_7;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_8) = 1 Тогда
СчетУчета = Сч01_8;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
ИначеЕсли БИ. ПолучитьСчет (1, Сч01_9) = 1 Тогда
СчетУчета = Сч01_9;
нБаланс = БИ.СНД();
кБаланс = БИ.СКД();
оБаланс = БИ.ДО() - БИ.КО();
Иначе
…
Модуль отчета АктСверки
Документ = Опер. Документ;
Если ПустоеЗначение (СокрЛП(СтрЗаменить (СтрЗаменить (СтрЗаменить (ПервичныйДокумент,., "),,, "), №,))) = 0 Тогда
ПервичныйДокумент = СокрЛП (Опер. ПервичныйДокумент);
Если ПустоеЗначение (Опер. СодержаниеПроводки)=0 тогда // для выписок и бух. справок
ПервичныйДокумент = СокрЛП (Опер. СодержаниеПроводки);
ДатаДок = СокрЛП (Лев(Опер. ПервичныйДокумент, Найти (Опер. ПервичныйДокумент,,) - 1));
ДлинаСтр = СтрДлина (Опер. ПервичныйДокумент);
НомерДок = СокрЛП (Прав(Опер. ПервичныйДокумент, ДлинаСтр-Найти (Опер. ПервичныйДокумент, №)));
Если Лев (Опер. Документ, Найти (Опер. Документ, ") - 1) <> Выписка тогда
ПервичныйДокумент = ПервичныйДокумент +. + НомерДок + от + ДатаДок +.; // для б.с.
Иначе
ПервичныйДокумент = ПервичныйДокумент +. П/п № + НомерДок + от + ДатаДок +.; // для выписок
КонецЕсли;
КонецЕсли;
Если СокрЛП (Опер. Содержание) = Отгрузка товаров (продукции) тогда // для документов по ?/p>