Модуль документа «ОтпускМатериаловНаСторону»
… Если ПустоеЗначение(Себест) = 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 Тогда Операция=Операция+» («+СокрЛП (Опер. СодержаниеПроводки)+»)»; Иначе Операция=Операция+» («+Опер. ДатаОперации+»)»; КонецЕсли; КонецЕсли; …
Воспользуйтесь поиском по сайту: ©2015 - 2025 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|