 |
Модуль документа «ОтпускМатериаловНаСторону»
|
|
|
|
…
Если ПустоеЗначение(Себест) = 1 Тогда
Операция. Сумма = СуммаСписания;
Иначе
Операция. Сумма = Себест*КоличествоОтпущено;
КонецЕсли;
…
Если ВидОтпуска = 0 Тогда // отгрузка
Операция. НомерЖурнала = «МТ»;
Операция. СодержаниеПроводки = «Списан материал»;
Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Если ПустоеЗначение(СчетЗатрат1) = 1 Тогда
Операция. Дебет. Счет = Сч91_2;
Операция. Дебет. ПрочиеДоходыИРасходы = СтатьяПрочихДоходовИРасходов;
Иначе
Операция. Дебет. Счет = СчетЗатрат1;
Операция. Дебет. Субконто (1, Субконто4);
Операция. Дебет. Субконто (2, Субконто5);
Операция. Дебет. Субконто (3, Субконто6);
КонецЕсли;
Если ПустоеЗначение(Сч) = 1 Тогда
Операция. Кредит. Счет = Материал. СубСчет10
Иначе
Операция. Кредит. Счет = Сч
КонецЕсли;
Операция. Кредит. Материалы = Материал;
Операция. Кредит. МестаХранения = МестоХранения;
Операция. Количество = КоличествоОтпущено;
Если ПустоеЗначение(Себест) = 1 Тогда
Операция. Сумма = СуммаОтгрузки;
Иначе
Операция. Сумма = Себест*КоличествоОтпущено;
КонецЕсли;
…
Если СуммаРеализации > 0 Тогда
Операция. НоваяПроводка();
Операция. НомерЖурнала = «МТ»;
Операция. СодержаниеПроводки = «Реализ.по цене выбытия»;
Операция. ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Если ПустоеЗначение(СчетЗатрат) = 1 Тогда
Операция. Дебет. Счет = СчетРасчетовСПокупателем;
Операция. Дебет. Контрагенты = Контрагент;
Операция. Дебет. Договоры = Договор;
Иначе
Операция. Дебет. Счет = СчетЗатрат;
Операция. Дебет. Субконто (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) <> «Выписка» тогда
ПервичныйДокумент = ПервичныйДокумент +».» + НомерДок + «от» + ДатаДок +».»; // для б.с.
Иначе
ПервичныйДокумент = ПервичныйДокумент +». П/п №» + НомерДок + «от» + ДатаДок +».»; // для выписок
КонецЕсли;
КонецЕсли;
Если СокрЛП (Опер. Содержание) = «Отгрузка товаров (продукции)» тогда // для документов по отгрузке
Флаг = 0;
ДокТекст = СоздатьОбъект («Документ»);
ДокТекст. ВыбратьПодчиненныеДокументы (, Опер. Документ);
Если ДокТекст. ПолучитьДокумент() = 1 тогда
ДокВыборки = ДокТекст. ТекущийДокумент();
ДатаДок = ДокТекст. ДатаДок;
НомерДок = СокрЛП (ДокТекст. НомерДок);
ПервичныйДокумент = «Отгрузка товаров (продукции) по С/ф №» + НомерДок + «от» + ДатаДок +».»;
Флаг = 1;
КонецЕсли;
Если Флаг = 0 Тогда
ПервичныйДокумент = СокрЛП (Опер. СодержаниеПроводки);
ДатаДок = СокрЛП (Лев(Опер. ПервичныйДокумент, Найти (Опер. ПервичныйДокумент,»,») - 1));
ДлинаСтр = СтрДлина (Опер. ПервичныйДокумент);
НомерДок = СокрЛП (Прав(Опер. ПервичныйДокумент, ДлинаСтр-Найти (Опер. ПервичныйДокумент, «№»)));
ПервичныйДокумент = «Отгрузка товаров (продукции) по Таварной накладной №» + НомерДок + «от» + ДатаДок +».»;
КонецЕсли;
КонецЕсли;
Операция=Операция+» («+ПервичныйДокумент+»)»;
Иначе
Если ПустоеЗначение (Опер. Содержание) = 0 Тогда // для бух. справок
Операция=Операция+» («+СокрЛП (Опер. Содержание)+»)»;
ИначеЕсли ПустоеЗначение (Опер. СодержаниеПроводки) = 0 Тогда
Операция=Операция+» («+СокрЛП (Опер. СодержаниеПроводки)+»)»;
Иначе
Операция=Операция+» («+Опер. ДатаОперации+»)»;
КонецЕсли;
КонецЕсли;
…
|
|
|
