//////////////////////////////////////////////////////////////////////////////// // ВСПОМОГАТЕЛЬНЫЕ ПЕРЕМЕННЫЕ МОДУЛЯ //////////////////////////////////////////////////////////////////////////////// Перем мЧтениеXML; Перем Параметры; Перем мТаблицаПравилВыгрузки, мТаблицаПравилКонвертацииОбъектов; Перем мИд, мНаименование, мДатаВремяСоздания, мКонфигурацияИсточник, мКонфигурацияПриемник, мВерсияФормата; Перем ВерсияПлатформыПриемника; Перем мКонвертацияПередВыгрузкойДанных; Перем мКонвертацияПередВыгрузкойОбъекта; Перем мКонвертацияПередКонвертациейОбъекта; Перем мКонвертацияПослеВыгрузкиОбъекта; Перем мКонвертацияПослеВыгрузкиДанных; Перем мКонвертацияПослеЗагрузкиПравилОбмена; Перем мКонвертацияПередЗагрузкойДанных; Перем мКонвертацияПередЗагрузкойОбъекта; Перем мКонвертацияПослеЗагрузкиОбъекта; Перем мКонвертацияПослеЗагрузкиДанных; Перем мПустоеЗначение; Перем мСчетчикВыгруженныхОбъектов; Перем мXMLАнализатор; Перем DOMDocument, rootNode; Перем мНачалоНовогоЭлемента, мИнструкцияОбработки, мКонецУровня, мКонецДокумента; Перем ТаблицаПараметровДляЗагрузки; Перем ТипыУсловийДляСтрок, ТипыУсловийДляЧисел, ТипыУсловийДляСправочников; Перем ТипОбъектаДляНастройкиОтбора; Перем ОбъектДляНастройкиОтбора; Перем КодПВДДляНастройкиОтбора; Перем ИмяПВДДляНастройкиОтбора; Перем СписокОшибок; Перем мИспользуемыеПравилаВыгрузки; // Список разделенных запятыми правил выгрузки данных, для которых необходимо включить пометку Перем ЗначенияДляОтбора[100]; // массив для хранения значений, используется для настройки отбора данных Перем ТаблицаРеквизитов; // таблица для хранения реквизитов, используется для настройки отбора данных //////////////////////////////////////////////////////////////////////////////// // ПРЕДВАРИТЕЛЬНОЕ ОПИСАНИЕ ПРОЦЕДУР И ФУНКЦИЙ //////////////////////////////////////////////////////////////////////////////// Функция ВыгрузитьПоПравилу(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО = "", УзелСсылки = "", ТолькоПолучитьУзелСсылки = 0, НомерПКО = 0) Далее Процедура ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, КоллекцияПКС, УзелКоллекцииСвойств = 0, ОбъектКоллекции = 0, ПравилоРодитель = "", ИмяПредопределенногоЭлемента = "", Знач ВыгрузитьТолькоСсылку = 0) Далее Функция НайтиПравило(Объект, ИмяПравила = "") Далее Функция ПривестиНомерКДлине(Знач Стр, Длина) Далее Функция ДобавитьКПрефиксу(Знач Стр, Добавок = "", Длина = "", Режим = "Слева") Далее Функция ПолучитьЗначение(Объект, Имя) Далее Функция ПолучитьДатуV8(ЧастьДата, ЧастьВремя = "00:00:00") Далее Функция СоздатьЗапрос(ОбъектВыборки, ТабОтбор) Далее Процедура СохранитьНастройкиОтбора() Далее Процедура ЗафиксироватьОшибку(ТекстОшибки) Далее Процедура УстановитьЗначениеПараметраКонвертации(ИмяПараметра, ЗначениеПараметра) Далее Процедура ЗагрузитьПравилаОбмена() Далее Процедура Выгрузить() Далее Функция СоздатьУзел(name) Далее Процедура УстановитьАтрибут(element, name, value) Далее Процедура ЗаписатьЭлемент(node, name, value = "") Далее Процедура ДобавитьПодчиненный(parentNode, childNode) Далее //////////////////////////////////////////////////////////////////////////////// // НАЧАЛО ОБРАБОТЧИКОВ //////////////////////////////////////////////////////////////////////////////// Функция ВыгрузитьОбъектыСтроительства( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ВыгрузитьОстатки_10_11( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ВыгрузитьОстаткиПоСчету( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ВыгрузитьОстаткиТМЦ( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ДобавитьПроводку( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ДобавитьПроводкуНУ( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ПолучитьИтогиПоСчету( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ПолучитьКомментарийДокумента( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ПолучитьСтруктуруАдреса( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ПриВыгрузкеСубконто( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Далее Функция ВыгрузитьОбъектыСтроительства( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") ТекСчет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); ТабЗатраты = СоздатьОбъект("ТаблицаЗначений"); ТабЗатраты.НоваяКолонка("СтатьяЗатрат"); ТабЗатраты.НоваяКолонка("Сумма"); ТабЗатраты.НоваяКолонка("СуммаНал"); ТабЗатраты.НоваяКолонка("СуммаРегл"); ТабЗатраты.НоваяКолонка("СчетЗатрат"); ТабЗатраты.НоваяКолонка("СчетЗатратНУ"); ТабЗатраты.НоваяКолонка("ОбъектСтроительства"); ТабЗатраты.НоваяКолонка("Субконто1"); СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); СтатьяЗатрат.Установить("Наименование","Ввод остатков"); СтатьяЗатрат.Установить("ВидЗатрат","Прочие"); СтатьяЗатрат.Установить("ХарактерЗатрат","ВложенияВоВнеоборотныеАктивы"); СтатьяЗатрат.Установить("Родитель","Вложения во внеоборотные активы"); СтатьяЗатрат.Установить("ЭтоГруппа",0); СтатьяЗатрат.Установить("СтатусМатериальныхЗатрат",""); СтатьяЗатрат.Установить("ВидРасходовНУ","ПрочиеРасходы"); ТабЗатраты.УдалитьСтроки(); Подразделение = СоздатьОбъект("СписокЗначений"); Подразделение.Установить("ПометкаУдаления",0); Подразделение.Установить("Код",""); Подразделение.Установить("Наименование","Вспомогательное (для ввода остатков)"); Подразделение.Установить("Родитель",""); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.ОбъектыСтроительства,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Строка(ТекСчет.Код)); Ит.ВыбратьСубконто(ВидыСубконто.ОбъектыСтроительства); Пока Ит.ПолучитьСубконто(ВидыСубконто.ОбъектыСтроительства) = 1 Цикл Сум = ИТ.СКД("С"); ТабЗатраты.НоваяСтрока(); ТабЗатраты.ОбъектСтроительства = Ит.Субконто(1); ТабЗатраты.Субконто1 = Ит.Субконто(1); ТабЗатраты.СтатьяЗатрат = СтатьяЗатрат; ТабЗатраты.Сумма = Сум; ТабЗатраты.СуммаРегл = Сум; ТабЗатраты.СуммаНал = Сум; ТабЗатраты.СчетЗатрат = ТекСчет; ТабЗатраты.СчетЗатратНУ = ТекСчет; КонецЦикла; Если ТабЗатраты.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Затраты", ТабЗатраты); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("Подразделение",Подразделение); ВходящиеДанные.Установить("ПодразделениеОрганизации",Подразделение); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", "Ввод начальных остатков по Сч."+ТекСчет.Код); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПрочиеЗатраты"); КонецЕсли; КонецФункции // ВыгрузитьОбъектыСтроительства() Функция ВыгрузитьОстатки_10_11( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") ТекСубСчет = Параметры.ПараметрыАлгоритмов.Получить("СубСчет"); ТабМатериалы = СоздатьОбъект("ТаблицаЗначений"); ТабМатериалы.НоваяКолонка("Номенклатура"); ТабМатериалы.НоваяКолонка("НазначениеИспользования"); ТабМатериалы.НоваяКолонка("ФизЛицо"); ТабМатериалы.НоваяКолонка("Подразделение"); ТабМатериалы.НоваяКолонка("Количество","число"); ТабМатериалы.НоваяКолонка("Стоимость","число"); ТабМатериалы.НоваяКолонка("СтоимостьРегл","Число"); ТабМатериалы.НоваяКолонка("ОстаточнаяСтоимость","Число"); ТабМатериалы.НоваяКолонка("ОстаточнаяСтоимостьРегл","Число"); Если ТекСубСчет=1 Тогда ВспомогательноеПодразделение = СоздатьОбъект("СписокЗначений"); ВспомогательноеПодразделение.Установить("ПометкаУдаления",0); ВспомогательноеПодразделение.Установить("Код",""); ВспомогательноеПодразделение.Установить("Наименование","Вспомогательное (для ввода остатков)"); ВспомогательноеПодразделение.Установить("Родитель",""); Комментарий = "Ввод начальных остатков спецодежды в эксплуатации"; Иначе Комментарий = "Ввод начальных остатков спецоснастки в эксплуатации"; КонецЕсли; Склад = СоздатьОбъект("СписокЗначений"); Склад.Установить("Код","СКЛОП"); Склад.Установить("Наименование","Вспомогательный склад для конвертации (Опт.)"); Склад.Установить("ВидСклада", "Оптовый"); Склад.Установить("Розничный", 0); Склад.Установить("Комментарий","Вспомогательный склад для переноса остатков партий в опте"); //определяем начальную стоимость Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Материалы,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.НазначенияИспользования,, 1); Если ТекСубСчет=1 Тогда Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "МЦ.02",,, 1,, "СК"); Иначе Ит.ИспользоватьСубконто(ВидыСубконто.Подразделения,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "МЦ.03",,, 1,, "СК"); КонецЕсли; Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл Ит.ВыбратьСубконто(3); Пока Ит.ПолучитьСубконто(3) = 1 Цикл Кол = Ит.СКД("К"); Сум = Ит.СКД("С"); Если Сум<0 Тогда Сум = 0; КонецЕсли; Если Кол<=0 Тогда Кол = 1; КонецЕсли; ТабМатериалы.НоваяСтрока(); ТабМатериалы.Номенклатура = Ит.Субконто(1); ТабМатериалы.Количество = Кол; ТабМатериалы.НазначениеИспользования = Ит.Субконто(2); Если ТекСубСчет=1 Тогда ТабМатериалы.ФизЛицо = Ит.Субконто(3); Иначе ТабМатериалы.Подразделение =Ит.Субконто(3); КонецЕсли; ТабМатериалы.Стоимость = Сум; ТабМатериалы.СтоимостьРегл = Сум; КонецЦикла; КонецЦикла; КонецЦикла; //определяем остаточную стоимость Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Материалы,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.НазначенияИспользования,, 1); Если ТекСубСчет=1 Тогда Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "10.11.1",,, 1,, "СК"); Иначе Ит.ИспользоватьСубконто(ВидыСубконто.Подразделения,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "10.11.2",,, 1,, "СК"); КонецЕсли; Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл Ит.ВыбратьСубконто(3); Пока Ит.ПолучитьСубконто(3) = 1 Цикл Сум = Ит.СКД("С"); Если Сум<0 Тогда Сум = 0; КонецЕсли; ТабМатериалы.НоваяСтрока(); ТабМатериалы.Номенклатура = Ит.Субконто(1); ТабМатериалы.НазначениеИспользования = Ит.Субконто(2); Если ТекСубСчет=1 Тогда ТабМатериалы.ФизЛицо = Ит.Субконто(3); Иначе ТабМатериалы.Подразделение = Ит.Субконто(3); КонецЕсли; ТабМатериалы.ОстаточнаяСтоимость = Сум; ТабМатериалы.ОстаточнаяСтоимостьРегл = Сум; КонецЦикла; КонецЦикла; КонецЦикла; ТабМатериалы.Свернуть("1,2,3,4","5,6,7,8,9"); КолСтрок = ТабМатериалы.КоличествоСтрок(); Для Сч = 1 По КолСтрок Цикл ТабМатериалы.ПолучитьСтрокуПоНомеру(КолСтрок+1-Сч); Если ТабМатериалы.Количество <= 0 Тогда ТабМатериалы.УдалитьСтроку(КолСтрок+1-Сч); КонецЕсли; КонецЦикла; ТабМатериалы.НоваяКолонка("ДокументПартии"); ТабМатериалы.НоваяКолонка("ПогашеннаяСтоимость"); ТабМатериалы.НоваяКолонка("ПогашеннаяСтоимостьРегл"); ТабМатериалы.НоваяКолонка("ВременнаяРазница"); ТабМатериалы.НоваяКолонка("ПогашеннаяВременнаяРазница"); ТабМатериалы.НоваяКолонка("ПостояннаяРазница"); ТабМатериалы.НоваяКолонка("ПогашеннаяПостояннаяРазница"); ТабМатериалы.ВыбратьСтроки(); Пока Табматериалы.ПолучитьСтроку()=1 Цикл ТабМатериалы.ПогашеннаяСтоимость = ТабМатериалы.Стоимость - ТабМатериалы.ОстаточнаяСтоимость; ТабМатериалы.ПогашеннаяСтоимостьРегл = ТабМатериалы.СтоимостьРегл - ТабМатериалы.ОстаточнаяСтоимостьРегл; ТабМатериалы.ВременнаяРазница = ТабМатериалы.СтоимостьРегл; ТабМатериалы.ПогашеннаяВременнаяРазница = ТабМатериалы.ПогашеннаяСтоимостьРегл; Назначение = ТабМатериалы.НазначениеИспользования; Если ТекСубСчет=1 Тогда //определяем подразделение из назначения использования Если ПустоеЗначение(Назначение.Субконто1)=0 Тогда ВидСубконто1 = Назначение.Субконто1.Вид(); Иначе ВидСубконто1 = ""; КонецЕсли; Если ПустоеЗначение(Назначение.Субконто2)=0 Тогда ВидСубконто2 = Назначение.Субконто2.Вид(); Иначе ВидСубконто2 = ""; КонецЕсли; Если ПустоеЗначение(Назначение.Субконто3)=0 Тогда ВидСубконто3 = Назначение.Субконто3.Вид(); Иначе ВидСубконто3 = ""; КонецЕсли; Если ВидСубконто1 = "Подразделения" Тогда ТабМатериалы.Подразделение = Назначение.Субконто1; ИначеЕсли ВидСубконто2 = "Подразделения" Тогда ТабМатериалы.Подразделение = Назначение.Субконто2; ИначеЕсли ВидСубконто3 = "Подразделения" Тогда ТабМатериалы.Подразделение = Назначение.Субконто3; Иначе ТабМатериалы.Подразделение = ВспомогательноеПодразделение; КонецЕсли; КонецЕсли; ДокПартии = СоздатьОбъект("СписокЗначений"); ДокПартии.установить("Дата", Назначение.ДатаВводаВЭксплуатацию); ДокПартии.установить("ОтражатьВУправленческомУчете",1); ДокПартии.установить("ОтражатьВБухгалтерскомУчете",1); ДокПартии.установить("ОтражатьВНалоговомУчете",1); ДокПартии.Установить("Подразделение", ТабМатериалы.Подразделение); ДокПартии.Установить("ПодразделениеОрганизации",ТабМатериалы.Подразделение); ДокПартии.Установить("Комментарий", "Документ создан автоматически для ввода начальных остатков материалов в эксплуатации"); ДокПартии.Установить("Склад", Склад); ДокПартии.Установить("ПометкаУдаления", 1); ТабМатериалы.ДокументПартии = ДокПартии; КонецЦикла; //В одном документе данные по одному подразделению Если ТабМатериалы.КоличествоСтрок()>0 Тогда ТабМатериалы.Сортировать("Подразделение,Номенклатура,ФизЛицо"); ТТ = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по ТабМатериалы.КоличествоКолонок() Цикл ТТ.НоваяКолонка(Табматериалы.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; ТабМатериалы.ПолучитьСтрокуПоНомеру(1); ТекПодразделение = ТабМатериалы.Подразделение; ТабМатериалы.ВыбратьСтроки(); Пока ТабМатериалы.ПолучитьСтроку() = 1 Цикл Если Текподразделение <> ТабМатериалы.Подразделение Тогда Если ТТ.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Подразделение", ТекПодразделение); ВходящиеДанные.Установить("ПодразделениеОрганизации", ТекПодразделение); ВходящиеДанные.Установить("Материалы", ТТ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", Комментарий); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковМатериаловВЭксплуатации"); ТТ.УдалитьСтроки(); КонецЕсли; ТекПодразделение = ТабМатериалы.Подразделение; КонецЕсли; ТТ.НоваяСтрока(); НомСтроки = ТТ.КоличествоСтрок(); Для НомКолонки = 1 по ТабМатериалы.КоличествоКолонок() Цикл ТТ.УстановитьЗначение(НомСтроки, НомКолонки, ТабМатериалы.ПолучитьЗначение(ТабМатериалы.НомерСтроки, НомКолонки)); КонецЦикла; КонецЦикла; Если ТТ.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Подразделение", ТекПодразделение); ВходящиеДанные.Установить("ПодразделениеОрганизации", ТекПодразделение); ВходящиеДанные.Установить("Материалы", ТТ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", Комментарий); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковМатериаловВЭксплуатации"); ТТ.УдалитьСтроки(); КонецЕсли; КонецЕсли; КонецФункции // ВыгрузитьОстатки_10_11() Функция ВыгрузитьОстаткиПоСчету( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") // Выгружает остатки по любому счету. Счет записывается в таблицу // проводок, как объект типа "Основной.Счет" (потом он сконвертируется // в соответствии с настройкой конвертации значений счетов). // Остатки по субконто на которых ведется только количественный учет // выгружаются, как отдельные проводки. СчетВводаОстатков = Параметры.СчетВводаОстатков; Счет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); РегистрБух = Параметры.ПараметрыАлгоритмов.Получить("Регистр"); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Валюты = СоздатьОбъект("СписокЗначений"); // Остатки БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(); БухИт.ИспользоватьСубконто(); БухИт.ИспользоватьСубконто(); Бухит.ВключатьСубсчета(-1); БухИт.ВыполнитьЗапрос(,Параметры.ДатаВводаОстатков, Счет); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БухИт); Параметры.ПараметрыАлгоритмов.Установить("Проводки", Проводки); БухИт.ВыбратьСчета(); Пока БухИт.ПолучитьСчет() = 1 Цикл Валюты.УдалитьВсе(); Если Счет.Валютный = 1 Тогда БухИт.ВыбратьВалюты(); Пока БухИт.ПолучитьВалюту() = 1 Цикл Валюты.ДобавитьЗначение(БухИт.Валюта); КонецЦикла; Иначе Валюты.ДобавитьЗначение(ПолучитьПустоеЗначение("Справочник.Валюты")); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТолькоСумма", 0); Для НомерВалюты = 1 по Валюты.РазмерСписка() Цикл Если БухИт.Счет.Валютный = 1 Тогда БухИт.ПолучитьВалюту(, Валюты.ПолучитьЗначение(НомерВалюты)); КонецЕсли; СуммовойУчет1 = ?(БухИт.Счет.КоличествоСубконто() > 0, ?(БухИт.Счет.ТолькоОбороты(1) = 1, 0, БухИт.Счет.УчетПоСумме(1)), 0); СуммовойУчет2 = ?(БухИт.Счет.КоличествоСубконто() > 1, ?(БухИт.Счет.ТолькоОбороты(2) = 1, 0, БухИт.Счет.УчетПоСумме(2)), 0); СуммовойУчет3 = ?(БухИт.Счет.КоличествоСубконто() > 2, ?(БухИт.Счет.ТолькоОбороты(3) = 1, 0, БухИт.Счет.УчетПоСумме(3)), 0); КоличествоУровней = 0; КоличествоУровней = КоличествоУровней + ?(БухИт.Счет.КоличествоСубконто() > 0, ?(БухИт.Счет.ТолькоОбороты(1) = 1, 0, 1), 0); КоличествоУровней = КоличествоУровней + ?(БухИт.Счет.КоличествоСубконто() > 1, ?(БухИт.Счет.ТолькоОбороты(2) = 1, 0, 1), 0); КоличествоУровней = КоличествоУровней + ?(БухИт.Счет.КоличествоСубконто() > 2, ?(БухИт.Счет.ТолькоОбороты(3) = 1, 0, 1), 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоУровней", КоличествоУровней); Если КоличествоУровней = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 0); Если ПолучитьИтогиПоСчету( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ)=0 ТОгда Продолжить; КонецЕсли; ДобавитьПроводку( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); ИначеЕсли КоличествоУровней > 0 Тогда БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(1)) = "Справочник" Тогда Если БухИт.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ((СуммовойУчет1 = 1) и (СуммовойУчет2 = 0)) или (КоличествоУровней = 1) Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 1); Если ПолучитьИтогиПоСчету( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ)=0 ТОгда Продолжить; КонецЕсли; ДобавитьПроводку( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); КонецЕсли; Если КоличествоУровней > 1 Тогда БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(2)) = "Справочник" Тогда Если БухИт.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ((СуммовойУчет2 = 1) и (СуммовойУчет3 = 0)) или (КоличествоУровней = 2) Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 2); Если ПолучитьИтогиПоСчету( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ)=0 ТОгда Продолжить; КонецЕсли; ДобавитьПроводку( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); КонецЕсли; Если КоличествоУровней > 2 Тогда БухИт.ВыбратьСубконто(3); Пока БухИт.ПолучитьСубконто(3) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(3)) = "Справочник" Тогда Если БухИт.Субконто(3).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 3); Если ПолучитьИтогиПоСчету( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ)=0 ТОгда Продолжить; КонецЕсли; ДобавитьПроводку( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить(РегистрБух, Проводки); ВходящиеДанные.Установить("Счет", Счет); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЦикла; КонецФункции // ВыгрузитьОстаткиПоСчету() Функция ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") // Выгрузка остатков с единственной группировкой по субконто. // Остаток по каждому субконто распределяется по указанным счетам бух учета // Перед распределением бухгалтерские итоги позиционируются на текущем // параметре выборки налоговых итогов. // Предполагается, что по счету есть только дебетовые остатки. СписокСчетовНУ = Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовНУ"); СписокСчетовПР = Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовПР"); СписокСчетовБУ = Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовБУ"); ВидСубконтоНУ = Параметры.ПараметрыАлгоритмов.Получить("ВидСубконтоНУ"); Количественный = Параметры.ПараметрыАлгоритмов.Получить("Количественный"); КодСчетаДт = Параметры.ПараметрыАлгоритмов.Получить("КодСчетаДт"); ДтКт = Параметры.ПараметрыАлгоритмов.Получить("ДтКт"); СоздаватьКорректировки = Параметры.ПараметрыАлгоритмов.Получить("СоздаватьКорректировкиРегистров"); СчН02_01 = СчетПоКоду("Н02.01"); СчН02_09 = СчетПоКоду("Н02.09"); Сч10_1 = СчетПоКоду("10.1"); Сч10_2 = СчетПоКоду("10.2"); Сч10_7 = СчетПоКоду("10.7"); Сч10_11_1 = СчетПоКоду("10.11.1"); Сч10_11_2 = СчетПоКоду("10.11.2"); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(ВидСубконтоНУ); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, СписокСчетовНУ); ПР = СоздатьОбъект("БухгалтерскиеИтоги"); ПР.ИспользоватьСубконто(ВидСубконтоНУ); ПР.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, СписокСчетовПР); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, СписокСчетовБУ); ПорядокСубконто = глРазложить(Параметры.ПараметрыАлгоритмов.Получить("ПорядокСубконтоБУ")); НомерСубконто1 = ПорядокСубконто.ПолучитьЗначение(1); НомерСубконто2 = ПорядокСубконто.ПолучитьЗначение(2); НомерСубконто3 = ПорядокСубконто.ПолучитьЗначение(3); ИтогиПоСубконто = СоздатьОбъект("ТаблицаЗначений"); ИтогиПоСубконто.НоваяКолонка("Счет"); ИтогиПоСубконто.НоваяКолонка("КодСчета"); ИтогиПоСубконто.НоваяКолонка("Субконто1"); ИтогиПоСубконто.НоваяКолонка("Субконто2"); ИтогиПоСубконто.НоваяКолонка("Субконто3"); ИтогиПоСубконто.НоваяКолонка("СНД1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК1", "Число"); ИтогиПоСубконто.НоваяКолонка("КО1", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНД3", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК3", "Число"); ИтогиПоСубконто.НоваяКолонка("КО3", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО3", "Число"); НУ.ВыбратьПериоды(); Пока НУ.ПолучитьПериод() = 1 Цикл //ПроводкиОбороты.УдалитьСтроки(); ВедетсяУчетМПЗвПереработке = 0; НУ.ВыбратьСчета(); Пока НУ.ПолучитьСчет() = 1 Цикл НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьНУ = ?(ДтКт = 1, НУ.СНД(1), НУ.СНК(1)); КоличествоНУ = ?(Количественный = 1, ?(ДтКт = 1, НУ.СНД(3), НУ.СНК(3)), 0); СтоимостьПР = 0; Если ПР.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда Если ПР.ПолучитьСубконто(ВидСубконтоНУ,, НУ.Субконто(1)) = 1 Тогда СтоимостьПР = ?(ДтКт = 1, ПР.СНД(1), ПР.СНК(1)); КонецЕсли; КонецЕсли; Если БУ.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда Если БУ.ПолучитьСубконто(НомерСубконто1,, НУ.Субконто(1)) = 1 Тогда ИтогиПоСубконто.УдалитьСтроки(); БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если (НУ.Счет = СчН02_09) и (БУ.Счет <> Сч10_7) Тогда Продолжить; ИначеЕсли БУ.Счет = Сч10_7 Тогда Если (ВедетсяУчетМПЗвПереработке = 1) и (НУ.Счет <> СчН02_09) Тогда Продолжить; КонецЕсли; Если НУ.Субконто(1).СубСчет10 = Сч10_1 Тогда КодСчета = "10.07.1"; ИначеЕсли НУ.Субконто(1).СубСчет10 = Сч10_2 Тогда КодСчета = "10.07.2"; Иначе КодСчета = "10.07.3"; КонецЕсли; Иначе КодСчета = КодСчетаДт; КонецЕсли; КоличествоУровней = БУ.Счет.КоличествоСубконто(); Если (КоличествоУровней > 1) и (БУ.Счет <> Сч10_11_1) и (БУ.Счет <> Сч10_11_2) Тогда БУ.ВыбратьСубконто(НомерСубконто2); Пока БУ.ПолучитьСубконто(НомерСубконто2) = 1 Цикл Если БУ.Субконто(НомерСубконто2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; Если КоличествоУровней > 2 Тогда БУ.ВыбратьСубконто(НомерСубконто3); Пока БУ.ПолучитьСубконто(НомерСубконто3) = 1 Цикл Если БУ.Субконто(НомерСубконто3).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = БУ.Счет; ИтогиПоСубконто.КодСчета = КодСчета; ИтогиПоСубконто.Субконто1 = БУ.Субконто(НомерСубконто1); ИтогиПоСубконто.Субконто2 = БУ.Субконто(НомерСубконто2); ИтогиПоСубконто.Субконто3 = БУ.Субконто(НомерСубконто3); ИтогиПоСубконто.СНД1 = БУ.СНД(1); ИтогиПоСубконто.СНК1 = БУ.СНК(1); Если БУ.Счет.Количественный = 1 Тогда ИтогиПоСубконто.СНД3 = БУ.СНД(3); ИтогиПоСубконто.СНК3 = БУ.СНК(3); КонецЕсли; КонецЦикла; Иначе ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = БУ.Счет; ИтогиПоСубконто.КодСчета = КодСчета; ИтогиПоСубконто.Субконто1 = БУ.Субконто(НомерСубконто1); ИтогиПоСубконто.Субконто2 = БУ.Субконто(НомерСубконто2); ИтогиПоСубконто.Субконто3 = ""; ИтогиПоСубконто.СНД1 = БУ.СНД(1); ИтогиПоСубконто.СНК1 = БУ.СНК(1); Если БУ.Счет.Количественный = 1 Тогда ИтогиПоСубконто.СНД3 = БУ.СНД(3); ИтогиПоСубконто.СНК3 = БУ.СНК(3); КонецЕсли; КонецЕсли; КонецЦикла; Иначе ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = БУ.Счет; ИтогиПоСубконто.КодСчета = КодСчета; ИтогиПоСубконто.Субконто1 = БУ.Субконто(НомерСубконто1); ИтогиПоСубконто.Субконто2 = ""; ИтогиПоСубконто.Субконто3 = ""; ИтогиПоСубконто.СНД1 = БУ.СНД(1); ИтогиПоСубконто.СНК1 = БУ.СНК(1); Если БУ.Счет.Количественный = 1 Тогда ИтогиПоСубконто.СНД3 = БУ.СНД(3); ИтогиПоСубконто.СНК3 = БУ.СНК(3); КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; СтоимостьБУ_Всего = ?(ДтКт = 1, БУ.СНД(1), БУ.СНК(1)); Если Количественный = 1 Тогда КоличествоБУ_Всего = ?(ДтКт = 1, БУ.СНД(3), БУ.СНК(3)); Иначе КоличествоБУ_Всего = 0; КонецЕсли; СтоимостьБУ_ТекИтог = 0; КоличествоБУ_ТекИтог = 0; РаспределеноНУ = 0; РаспределеноПР = 0; ИтогиПоСубконто.ВыбратьСтроки(); Пока ИтогиПоСубконто.ПолучитьСтроку() = 1 Цикл СтоимостьБУ = ?(ДтКт = 1, ИтогиПоСубконто.СНД1, ИтогиПоСубконто.СНК1); Если ИтогиПоСубконто.Счет.Количественный = 1 Тогда КоличествоБУ = ?(ДтКт = 1, ИтогиПоСубконто.СНД3, ИтогиПоСубконто.СНК3); ТекСтоимостьНУ = ?(КоличествоБУ_Всего = 0, 0, Окр(КоличествоБУ * СтоимостьНУ / КоличествоБУ_Всего, 2, 1)); ТекСтоимостьПР = ?(КоличествоБУ_Всего = 0, 0, Окр(КоличествоБУ * СтоимостьПР / КоличествоБУ_Всего, 2, 1)); ТекСтоимостьБУ = ?(КоличествоБУ_Всего = 0, 0, Окр(КоличествоБУ * СтоимостьБУ_Всего / КоличествоБУ_Всего, 2, 1)); Иначе КоличествоБУ = 0; ТекСтоимостьНУ = ?(СтоимостьБУ_Всего = 0, 0, Окр(СтоимостьНУ * СтоимостьБУ / СтоимостьБУ_Всего, 2, 1)); ТекСтоимостьПР = ?(СтоимостьБУ_Всего = 0, 0, Окр(СтоимостьПР * СтоимостьБУ / СтоимостьБУ_Всего, 2, 1)); ТекСтоимостьБУ = СтоимостьБУ; КонецЕсли; РаспределеноНУ = РаспределеноНУ + ТекСтоимостьНУ; РаспределеноПР = РаспределеноПР + ТекСтоимостьПР; СтоимостьБУ_ТекИтог = СтоимостьБУ_ТекИтог + ТекСтоимостьБУ; КоличествоБУ_ТекИтог = КоличествоБУ_ТекИтог + КоличествоБУ; // Если текущий итог по колонке равен всей сумме колонки, // то это последняя проводка и ее сумму надо скорректировать. Если ИтогиПоСубконто.Счет.Количественный = 1 Тогда Если КоличествоБУ_ТекИтог = КоличествоБУ_Всего Тогда ТекСтоимостьНУ = ТекСтоимостьНУ + СтоимостьНУ - РаспределеноНУ; ТекСтоимостьПР = ТекСтоимостьПР + СтоимостьПР - РаспределеноПР; КонецЕсли; Иначе Если СтоимостьБУ_ТекИтог = СтоимостьБУ_Всего Тогда ТекСтоимостьНУ = ТекСтоимостьНУ + СтоимостьНУ - РаспределеноНУ; ТекСтоимостьПР = ТекСтоимостьПР + СтоимостьПР - РаспределеноПР; КонецЕсли; КонецЕсли; ТекСтоимостьВР = ТекСтоимостьБУ - ТекСтоимостьНУ - ТекСтоимостьПР; // Выгрузка начальных остатков. Если НачМесяца(Параметры.ДатаВводаОстатков) = НУ.НачДата Тогда Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Если ДтКт = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ИтогиПоСубконто.Счет); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ИтогиПоСубконто.КодСчета); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Иначе Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ИтогиПоСубконто.Счет); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ИтогиПоСубконто.КодСчета); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", КоличествоБУ); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", КоличествоБУ); Если СоздаватьКорректировки = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьНУ); Иначе Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", -ТекСтоимостьНУ); КонецЕсли; ДобавитьПроводкуНУ( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); // Поддержка ПБУ 18 //Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаВводаОстатков) = Да Тогда Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьПР); ДобавитьПроводкуНУ( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьВР); ДобавитьПроводкуНУ( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); //КонецЕсли; КонецЕсли; КонецЦикла; Иначе // нет остатков по бух. учету СтоимостьВР = - СтоимостьНУ - СтоимостьПР; // Выгрузка начальных остатков. Если НачМесяца(Параметры.ДатаВводаОстатков) = НУ.НачДата Тогда Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Если ДтКт = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Иначе Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", НУ.Счет); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", КоличествоНУ); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", КоличествоНУ); Если СоздаватьКорректировки = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьНУ); Иначе Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", -СтоимостьНУ); КонецЕсли; ДобавитьПроводкуНУ( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); // Поддержка ПБУ 18 //Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаВводаОстатков) = Да Тогда Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьПР); ДобавитьПроводкуНУ( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР); ДобавитьПроводкуНУ( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение,,,,,,,,,,,,,,,,,,,,,,,,,,, Отказ); //КонецЕсли; КонецЕсли; КонецЕсли; БУ.ПолучитьСубконто(1,, ""); БУ.ПолучитьПериод(, ""); КонецЦикла; // НУ.ВыбратьСубконто() КонецЦикла; // НУ.ВыбратьСчета() Если НУ.НачДата = НачМесяца(Параметры.ДатаВводаОстатков) Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); СоздаватьКорректировки = Параметры.ПараметрыАлгоритмов.Получить("СоздаватьКорректировкиРегистров"); Если СоздаватьКорректировки = 1 Тогда //таблицы значений для корректирующих записей регистров ПартииТоваров = СоздатьОбъект("ТаблицаЗначений"); ПартииТоваров.НоваяКолонка("Номенклатура"); ПартииТоваров.НоваяКолонка("Организация"); ПартииТоваров.НоваяКолонка("СчетУчета"); ПартииТоваров.НоваяКолонка("ДокументОприходования"); ПартииТоваров.НоваяКолонка("Количество"); ПартииТоваров.НоваяКолонка("Стоимость"); ПартииТоваров.НоваяКолонка("ПостояннаяРазница"); ПартииТоваров.НоваяКолонка("ВременнаяРазница"); Проводки.ВыбратьСтроки(); Пока Проводки.ПолучитьСтроку() = 1 Цикл Если ПустоеЗначение(Проводки.СчетДт) = 0 Тогда Если (Проводки.ВидУчетаДт = "ПР") или (Проводки.ВидУчетаДт = "ВР") Тогда ПартииТоваров.НоваяСтрока(); ПартииТоваров.СчетУчета = Проводки.СчетДт; СубДт = проводки.СубконтоДт; СубДт.ВыбратьСтроки(); Пока СубДт.ПолучитьСтроку()=1 Цикл ПартииТоваров.Номенклатура = СубДт.Значение; Прервать; КонецЦикла; Док = СоздатьОбъект("СписокЗначений"); //док оприходования по ссылке Док.Установить("Дата",параметры.ДатаВводаОстатков-1); Если Проводки.СчетДТ = СчетПоКоду("07") Тогда Док.Установить("Комментарий", "Ввод начальных остатков по Сч.07 (Оборудование к установке)"); Иначе Док.Установить("Комментарий","Ввод начальных остатков сч."+Проводки.СчетДт.Код); КонецЕсли; ПартииТоваров.ДокументОприходования = Док; ПартииТоваров.Количество = 0; ПартииТоваров.Стоимость = -Проводки.Сумма; Если Проводки.ВидУчетаДт = "ПР" Тогда ПартииТоваров.ПостояннаяРазница = Проводки.Сумма; Иначе ПартииТоваров.ВременнаяРазница = Проводки.Сумма; КонецЕсли; КонецЕсли; Иначе Если (Проводки.ВидУчетаКт = "ПР") или (Проводки.ВидУчетаКт = "ВР") Тогда ПартииТоваров.НоваяСтрока(); ПартииТоваров.СчетУчета = Проводки.СчетКт; СубКт = проводки.СубконтоКт; СубКт.ВыбратьСтроки(); Пока СубКт.ПолучитьСтроку()=1 Цикл ПартииТоваров.Номенклатура = СубКт.Значение; Прервать; КонецЦикла; Док = СоздатьОбъект("СписокЗначений"); //док оприходования по ссылке Док.Установить("Дата",параметры.ДатаВводаОстатков-1); Если Проводки.СчетКт = СчетПоКоду("07") Тогда Док.Установить("Комментарий", "Ввод начальных остатков по Сч.07 (Оборудование к установке)"); Иначе Док.Установить("Комментарий","Ввод начальных остатков материалов сч."+Проводки.СчетКт.Код); КонецЕсли; ПартииТоваров.ДокументОприходования = Док; ПартииТоваров.Количество = 0; ПартииТоваров.Стоимость = -Проводки.Сумма; Если Проводки.ВидУчетаДт = "ПР" Тогда ПартииТоваров.ПостояннаяРазница = Проводки.Сумма; Иначе ПартииТоваров.ВременнаяРазница = Проводки.Сумма; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если (ПартииТоваров.КоличествоСтрок()>0) ТОгда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("Комментарий", "Корректировка партии товаров (нал. учет)"); ВходящиеДанные.Установить("ПартииТоваровНаСкладахНалоговыйУчет", ПартииТоваров); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПартииТоваровНУ"); КонецЕсли; ИначеЕсли СоздаватьКорректировки = 2 Тогда ПартииТоваровПереданные = СоздатьОбъект("ТаблицаЗначений"); ПартииТоваровПереданные.НоваяКолонка("Номенклатура"); ПартииТоваровПереданные.НоваяКолонка("Организация"); ПартииТоваровПереданные.НоваяКолонка("СчетУчета"); ПартииТоваровПереданные.НоваяКолонка("ДоговорКонтрагента"); ПартииТоваровПереданные.НоваяКолонка("ДокументПередачи"); ПартииТоваровПереданные.НоваяКолонка("ДокументОприходования"); ПартииТоваровПереданные.НоваяКолонка("Количество"); ПартииТоваровПереданные.НоваяКолонка("Стоимость"); ПартииТоваровПереданные.НоваяКолонка("ПостояннаяРазница"); ПартииТоваровПереданные.НоваяКолонка("ВременнаяРазница"); Проводки.ВыбратьСтроки(); Пока Проводки.ПолучитьСтроку() = 1 Цикл Если ПустоеЗначение(Проводки.СчетДт) = 0 Тогда Если (Проводки.ВидУчетаДт = "ПР") или (Проводки.ВидУчетаДт = "ВР") Тогда ПартииТоваровПереданные.НоваяСтрока(); ПартииТоваровПереданные.СчетУчета = Проводки.СчетДт; СубДт = проводки.СубконтоДт; СубДт.ВыбратьСтроки(); ном = 0; Пока СубДт.ПолучитьСтроку()=1 Цикл Ном = Ном+1; Если Ном = 2 Тогда ПартииТоваровПереданные.Номенклатура = СубДт.Значение; КонецЕсли; Если Ном = 3 Тогда ПартииТоваровПереданные.ДоговорКонтрагента = СубДт.Значение; КонецЕсли; КонецЦикла; Док = СоздатьОбъект("СписокЗначений"); //док оприходования по ссылке Док.Установить("Дата",параметры.ДатаВводаОстатков-3); Док.Установить("Комментарий", "Ввод начальных остатков партий (переданные)"); ПартииТоваровПереданные.ДокументОприходования = Док; Док = СоздатьОбъект("СписокЗначений"); //док передачи по ссылке Док.Установить("Дата",параметры.ДатаВводаОстатков-2); Док.Установить("ДоговорКонтрагента",ПартииТоваровПереданные.ДоговорКонтрагента); ПартииТоваровПереданные.ДокументПередачи = Док; ПартииТоваровПереданные.Количество = 0; ПартииТоваровПереданные.Стоимость = -Проводки.Сумма; Если Проводки.ВидУчетаДт = "ПР" Тогда ПартииТоваровПереданные.ПостояннаяРазница = Проводки.Сумма; Иначе ПартииТоваровПереданные.ВременнаяРазница = Проводки.Сумма; КонецЕсли; КонецЕсли; Иначе Если (Проводки.ВидУчетаКт = "ПР") или (Проводки.ВидУчетаКт = "ВР") Тогда ПартииТоваровПереданные.НоваяСтрока(); ПартииТоваровПереданные.СчетУчета = Проводки.СчетКт; СубКт = проводки.СубконтоКт; СубКт.ВыбратьСтроки(); Ном = 0; Пока СубКт.ПолучитьСтроку()=1 Цикл Ном = Ном+1; Если Ном = 2 Тогда ПартииТоваровПереданные.Номенклатура = СубКт.Значение; КонецЕсли; Если Ном = 3 Тогда ПартииТоваровПереданные.ДоговорКонтрагента = СубКт.Значение; КонецЕсли; КонецЦикла; Док = СоздатьОбъект("СписокЗначений"); //док оприходования по ссылке Док.Установить("Дата",параметры.ДатаВводаОстатков-3); Док.Установить("Комментарий", "Ввод начальных остатков партий (переданные)"); ПартииТоваровПереданные.ДокументОприходования = Док; Док = СоздатьОбъект("СписокЗначений"); //док передачи по ссылке Док.Установить("Дата",параметры.ДатаВводаОстатков-2); Док.Установить("ДоговорКонтрагента",ПартииТоваровПереданные.ДоговорКонтрагента); ПартииТоваровПереданные.ДокументПередачи = Док; ПартииТоваровПереданные.Количество = 0; ПартииТоваровПереданные.Стоимость = -Проводки.Сумма; Если Проводки.ВидУчетаДт = "ПР" Тогда ПартииТоваровПереданные.ПостояннаяРазница = Проводки.Сумма; Иначе ПартииТоваровПереданные.ВременнаяРазница = Проводки.Сумма; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если (ПартииТоваровПереданные.КоличествоСтрок()>0) ТОгда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("Комментарий", "Корректировка партии товаров переданные (нал. учет)"); ВходящиеДанные.Установить("ПартииТоваровПереданныеНалоговыйУчет", ПартииТоваров); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПартииТоваровПереданныеНУ"); КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецФункции // ВыгрузитьОстаткиПоСчетуНУ() Функция ВыгрузитьОстаткиТМЦ( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") ТекСчет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); Комментарий = "Ввод начальных остатков сч."+ТекСчет.Код; ВидСубконто = Параметры.ПараметрыАлгоритмов.Получить("ВидСубконто"); ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Склад"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("Количество", "Число"); ТабТовары.НоваяКолонка("Коэффициент", "Число"); ТабТовары.НоваяКолонка("Сумма", "Число"); ТабТовары.НоваяКолонка("СуммаРегл", "Число"); ТабТовары.НоваяКолонка("СчетУчетаБУ"); ТабТовары.НоваяКолонка("СчетУчетаНУ"); ТабТовары.НоваяКолонка("ЦенаВрознице", "Число"); ТабТовары.НоваяКолонка("ЕдиницаИзмерения"); ТабТовары.НоваяКолонка("СтатусПартии"); ТабТовары.НоваяКолонка("Цена", "Число"); Если ТекСчет=СчетПоКоду("43") Тогда ТекСтатусПартии = "Продукция"; ИначеЕсли ТекСчет=СчетПоКоду("21") Тогда ТекСтатусПартии = "Продукция"; ИначеЕсли ТекСчет=СчетПоКоду("004") Тогда ТекСтатусПартии = "НаКомиссию"; Иначе ТекСтатусПартии = "Купленный"; КонецЕсли; Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.ЗначениеПоИдентификатору(ВидСубконто),, 1); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Строка(ТекСчет.Код),,,,,5); Ит.ВыбратьСубконто(1); ТабТовары.УдалитьСтроки(); Пока Ит.ПолучитьСубконто(1) = 1 Цикл СуммаНаСкладах = ИТ.СКД("С"); КоличествоНаСкладах = ИТ.СКД("К"); ОстатокНаСкладах = КоличествоНаСкладах; ОстатокСуммыНаСкладах = СуммаНаСкладах; Если КоличествоНаСкладах <= 0 Тогда Продолжить; КонецЕсли; Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл КоличествоНаСкладе = ИТ.СКД("К"); Если (КоличествоНаСкладе = 0) или (ПустоеЗначение(Ит.Субконто(2)) = 1) Тогда //Корректир. средней ст-ти дает такой результат Продолжить; КонецЕсли; Если ОстатокНаСкладах = КоличествоНаСкладе Тогда СуммаНаСкладе = ОстатокСуммыНаСкладах; ОстатокНаСкладах = 0; ОстатокСуммыНаСкладах = 0; Иначе СуммаНаСкладе = Окр(СуммаНаСкладах / КоличествоНаСкладах * КоличествоНаСкладе,2,1); ОстатокНаСкладах = ОстатокНаСкладах - КоличествоНаСкладе; ОстатокСуммыНаСкладах = ОстатокСуммыНаСкладах - СуммаНаСкладе; КонецЕсли; ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = Ит.Субконто(1); ТабТовары.Склад = Ит.Субконто(2); ТабТовары.Количество = КоличествоНаСкладе; ТабТовары.Коэффициент = 1; ТабТовары.Сумма = СуммаНаСкладе; ТабТовары.СуммаРегл = СуммаНаСкладе; ТабТовары.СчетУчетаБУ = ТекСчет; ТабТовары.СчетУчетаНУ = ТекСчет; ТабТовары.СтатусПартии = ТекСтатусПартии; Если ТабТовары.Количество<>0 Тогда ТабТовары.Цена = Окр(ТабТовары.Сумма/ТабТовары.Количество,2,1); КонецЕсли; Если ТекСчет=СчетПоКоду("41.2") Тогда ТабТовары.ЦенаВРознице = ТабТовары.Цена; Иначе ТабТовары.ЦенаВРознице = 0; КонецЕсли; //ТабТовары.ЕдиницаИзмерения = Ит.Субконто(1).ЕдиницаИзмерения; КонецЦикла; КонецЦикла; //в одном документе данные по одному складу Если ТабТовары.КоличествоСтрок()>0 Тогда ТабТовары.Сортировать("Склад,Номенклатура"); ТТ = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по ТабТовары.КоличествоКолонок() Цикл ТТ.НоваяКолонка(Табтовары.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; ТабТовары.ПолучитьСтрокуПоНомеру(1); ТекСклад = ТабТовары.Склад; ТабТовары.ВыбратьСтроки(); Пока ТабТовары.ПолучитьСтроку() = 1 Цикл Если ТекСклад <> ТабТовары.Склад Тогда Если ТТ.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Склад", ТекСклад); ВходящиеДанные.Установить("Товары", ТТ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", Комментарий); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОприходованиеТоваров"); ТТ.УдалитьСтроки(); КонецЕсли; ТекСклад = ТабТовары.Склад; КонецЕсли; ТТ.НоваяСтрока(); НомСтроки = ТТ.КоличествоСтрок(); Для НомКолонки = 1 по ТабТовары.КоличествоКолонок() Цикл ТТ.УстановитьЗначение(НомСтроки, НомКолонки, ТабТовары.ПолучитьЗначение(ТабТовары.НомерСтроки, НомКолонки)); КонецЦикла; КонецЦикла; Если ТТ.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Склад", ТекСклад); ВходящиеДанные.Установить("Товары", ТТ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", Комментарий); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОприходованиеТоваров"); ТТ.УдалитьСтроки(); КонецЕсли; КонецЕсли; КонецФункции // ВыгрузитьОстаткиТМЦ() Функция ДобавитьПроводку( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") //ТолькоОбороты = Параметры.ПараметрыАлгоритмов.Получить("ТолькоОбороты"); //Если ТолькоОбороты = 1 Тогда // Возврат 0; //КонецЕсли; Проводки = Параметры.ПараметрыАлгоритмов.Получить("Проводки"); БухИт = Параметры.ПараметрыАлгоритмов.Получить("БухИт"); ТекНомерСубконто = Параметры.ПараметрыАлгоритмов.Получить("ТекНомерСубконто"); КоличествоУровней = Параметры.ПараметрыАлгоритмов.Получить("КоличествоУровней"); //Организация = Параметры.параметрыАлгоритмов.Получить("Организация"); ОстатокДтС = Параметры.ПараметрыАлгоритмов.Получить("ОстатокДтС"); ОстатокДтВ = Параметры.ПараметрыАлгоритмов.Получить("ОстатокДтВ"); ОстатокДтК = Параметры.ПараметрыАлгоритмов.Получить("ОстатокДтК"); ОстатокКтС = Параметры.ПараметрыАлгоритмов.Получить("ОстатокКтС"); ОстатокКтВ = Параметры.ПараметрыАлгоритмов.Получить("ОстатокКтВ"); ОстатокКтК = Параметры.ПараметрыАлгоритмов.Получить("ОстатокКтК"); Налоговый = ?(Параметры.ПараметрыАлгоритмов.Получить("Регистр") = "Налоговый", 1, 0); Сч45 = СчетПоКоду("45"); Сч97 = СчетПоКоду("97"); Если (ОстатокДтС <> 0) или (ОстатокДтВ <> 0) или (ОстатокДтК <> 0) Тогда Проводки.НоваяСтрока(); //Проводки.Организация = Организация; Проводки.СчетДт = БухИт.Счет; Если (БухИт.Счет.Забалансовый = 0) и (Налоговый = 0) Тогда Проводки.СчетКт = Параметры.СчетВводаОстатков; КонецЕсли; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ТекНомерСубконто Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = БухИт.Счет.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = БухИт.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = ОстатокДтС; Если БухИт.Счет.Валютный = 1 Тогда Проводки.ВалютнаяСуммаДт = ОстатокДтВ; Проводки.ВалютаДт = БухИт.Валюта; КонецЕсли; Если (КоличествоУровней = ТекНомерСубконто) и (БухИт.Счет.Количественный = 1) Тогда Проводки.КоличествоДт = ОстатокДтК; КонецЕсли; Если БухИт.Счет = Сч97 Тогда СтатьяРБП = БухИт.Субконто(1); Если СтатьяРБП.НазначениеСтатьиРасходов = 1 Тогда Проводки.КодСчетаДт = "97.01"; Иначе Проводки.КодСчетаДт = "97.21"; КонецЕсли; КонецЕсли; Если БухИт.Счет = Сч45 Тогда Номенклатура = БухИт.Субконто(3); Если Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Проводки.КодСчетаДт = "45.01"; ИначеЕсли Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Проводки.КодСчетаДт = "45.02"; Иначе Проводки.КодСчетаДт = "45.03"; КонецЕсли; КонецЕсли; КонецЕсли; Если (ОстатокКтС <> 0) или (ОстатокКтВ <> 0) или (ОстатокКтК <> 0) Тогда Проводки.НоваяСтрока(); //Проводки.Организация = Организация; Проводки.СчетКт = БухИт.Счет; Если (БухИт.Счет.Забалансовый = 0) и (Налоговый = 0) Тогда Проводки.СчетДт = Параметры.СчетВводаОстатков; КонецЕсли; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ТекНомерСубконто Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = БухИт.Счет.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = БухИт.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = ОстатокКтС; Если БухИт.Счет.Валютный = 1 Тогда Проводки.ВалютнаяСуммаКт = ОстатокКтВ; Проводки.ВалютаКт = БухИт.Валюта; КонецЕсли; Если (КоличествоУровней = ТекНомерСубконто) и (БухИт.Счет.Количественный = 1) Тогда Проводки.КоличествоКт = ОстатокКтК; КонецЕсли; Если БухИт.Счет = Сч97 Тогда СтатьяРБП = БухИт.Субконто(1); Если СтатьяРБП.НазначениеСтатьиРасходов = 1 Тогда Проводки.КодСчетаДт = "97.01"; Иначе Проводки.КодСчетаДт = "97.21"; КонецЕсли; КонецЕсли; Если БухИт.Счет = Сч45 Тогда Номенклатура = БухИт.Субконто(3); Если Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Проводки.КодСчетаДт = "45.01"; ИначеЕсли Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Проводки.КодСчетаДт = "45.02"; Иначе Проводки.КодСчетаДт = "45.03"; КонецЕсли; КонецЕсли; КонецЕсли; КонецФункции // ДобавитьПроводку() Функция ДобавитьПроводкуНУ( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") СчетДт = Параметры.ПараметрыАлгоритмов.Получить("СчетДт"); КоличествоДт = Параметры.ПараметрыАлгоритмов.Получить("КоличествоДт"); СчетКт = Параметры.ПараметрыАлгоритмов.Получить("СчетКт"); КоличествоКт = Параметры.ПараметрыАлгоритмов.Получить("КоличествоКт"); СуммаПроводки = Параметры.ПараметрыАлгоритмов.Получить("СуммаПроводки"); Проводки = Параметры.ПараметрыАлгоритмов.Получить("ТаблицаПроводок"); Если (СуммаПроводки <> 0) или ((ПустоеЗначение(СчетДт) = 0) и (КоличествоДт <> 0)) или ((ПустоеЗначение(СчетКт) = 0) и (КоличествоКт <> 0)) Тогда КодСчетаДт = Параметры.ПараметрыАлгоритмов.Получить("КодСчетаДт"); ВидУчетаДт = Параметры.ПараметрыАлгоритмов.Получить("ВидУчетаДт"); СубконтоДт1 = Параметры.ПараметрыАлгоритмов.Получить("СубконтоДт1"); СубконтоДт2 = Параметры.ПараметрыАлгоритмов.Получить("СубконтоДт2"); СубконтоДт3 = Параметры.ПараметрыАлгоритмов.Получить("СубконтоДт3"); ВидУчетаКт = Параметры.ПараметрыАлгоритмов.Получить("ВидУчетаКт"); КодСчетаКт = Параметры.ПараметрыАлгоритмов.Получить("КодСчетаКт"); СубконтоКт1 = Параметры.ПараметрыАлгоритмов.Получить("СубконтоКт1"); СубконтоКт2 = Параметры.ПараметрыАлгоритмов.Получить("СубконтоКт2"); СубконтоКт3 = Параметры.ПараметрыАлгоритмов.Получить("СубконтоКт3"); ПорядокСубконто = глРазложить(Параметры.ПараметрыАлгоритмов.Получить("ПорядокСубконтоБУ")); НомерСубконто1 = ПорядокСубконто.ПолучитьЗначение(1); НомерСубконто2 = ПорядокСубконто.ПолучитьЗначение(2); НомерСубконто3 = ПорядокСубконто.ПолучитьЗначение(3); Проводки.НоваяСтрока(); //Проводки.Организация = Организация; Проводки.Сумма = СуммаПроводки; Если ПустоеЗначение(СчетДт) = 0 Тогда Проводки.СчетДт = СчетДт; Проводки.КодСчетаДт = КодСчетаДт; Проводки.ВидУчетаДт = ВидУчетаДт; Проводки.КоличествоДт = КоличествоДт; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); КоличествоСубконто = СчетДт.КоличествоСубконто(); Если КоличествоСубконто >= 1 Тогда Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = СчетДт.ВидСубконто(НомерСубконто1); Проводки.СубконтоДт.Значение = СубконтоДт1; КонецЕсли; Если КоличествоСубконто >= 2 Тогда Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = СчетДт.ВидСубконто(НомерСубконто2); Проводки.СубконтоДт.Значение = СубконтоДт2; КонецЕсли; Если КоличествоСубконто >= 3 Тогда Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = СчетДт.ВидСубконто(НомерСубконто3); Проводки.СубконтоДт.Значение = СубконтоДт3; КонецЕсли; КонецЕсли; Если ПустоеЗначение(СчетКт) = 0 Тогда Проводки.СчетКт = СчетКт; Проводки.КодСчетаКт = КодСчетаКт; Проводки.ВидУчетаКт = ВидУчетаКт; Проводки.КоличествоКт = КоличествоКт; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); КоличествоСубконто = СчетКт.КоличествоСубконто(); Если КоличествоСубконто >= 1 Тогда Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = СчетКт.ВидСубконто(НомерСубконто1); Проводки.СубконтоКт.Значение = СубконтоКт1; КонецЕсли; Если КоличествоСубконто >= 2 Тогда Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = СчетКт.ВидСубконто(НомерСубконто2); Проводки.СубконтоКт.Значение = СубконтоКт2; КонецЕсли; Если КоличествоСубконто >= 3 Тогда Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = СчетКт.ВидСубконто(НомерСубконто3); Проводки.СубконтоКт.Значение = СубконтоКт3; КонецЕсли; КонецЕсли; КонецЕсли; КонецФункции // ДобавитьПроводкуНУ() Функция ПолучитьИтогиПоСчету( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") БухИт = Параметры.ПараметрыАлгоритмов.Получить("БухИт"); ОстатокДтС = 0; ОстатокДтВ = 0; ОстатокДтК = 0; ОстатокКтС = 0; ОстатокКтВ = 0; ОстатокКтК = 0; ОстатокДтС = БухИт.СКД(1); Если БухИт.Счет.Валютный = 1 Тогда ОстатокДтВ = БухИт.СКД(2); КонецЕсли; Если БухИт.Счет.Количественный = 1 Тогда ОстатокДтК = БухИт.СКД(3); КонецЕсли; ОстатокКтС = БухИт.СКК(1); Если БухИт.Счет.Валютный = 1 Тогда ОстатокКтВ = БухИт.СКК(2); КонецЕсли; Если БухИт.Счет.Количественный = 1 Тогда ОстатокКтК = БухИт.СКК(3); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ОстатокДтС", ОстатокДтС); Параметры.ПараметрыАлгоритмов.Установить("ОстатокДтВ", ОстатокДтВ); Параметры.ПараметрыАлгоритмов.Установить("ОстатокДтК", ОстатокДтК); Параметры.ПараметрыАлгоритмов.Установить("ОстатокКтС", ОстатокКтС); Параметры.ПараметрыАлгоритмов.Установить("ОстатокКтВ", ОстатокКтВ); Параметры.ПараметрыАлгоритмов.Установить("ОстатокКтК", ОстатокКтК); Если (ОстатокКтК = 0) И (ОстатокКтВ = 0) И (ОстатокКтС = 0) И (ОстатокДтК = 0) И (ОстатокДтВ = 0) И (ОстатокДтС = 0) Тогда Возврат 0; Иначе Возврат 1; КонецЕсли; КонецФункции // ПолучитьИтогиПоСчету() Функция ПолучитьКомментарийДокумента( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Значение = Параметры.Метка; КонецФункции // ПолучитьКомментарийДокумента() Функция ПолучитьСтруктуруАдреса( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Адрес = ВходящиеДанные.Получить("Адрес"); АдресСписком = глРазложить(Адрес); Если СтрКоличествоСтрок(Адрес) <> 1 Тогда // недолжно быть переводов строк АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрЧислоВхождений(Адрес, ",") <> 9 Тогда // должно быть 9 запятых АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(1)) > 3 Тогда // код страны не > 3 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(2)) > 6 Тогда // индекс не > 6 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(3)) > 30 Тогда // наим.региона не > 30 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(4)) > 35 Тогда // наим.района не > 35 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(5)) > 35 Тогда // наим.города не > 35 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(6)) > 45 Тогда // наим.нас.пункта не > 45 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(7)) > 45 Тогда // наим.улицы не > 45 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(8)) > 10 Тогда // номер дома не > 10 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(9)) > 10 Тогда // номер корпуса не > 10 символов АдресСоответствуетТребованиямМНС = 0; ИначеЕсли СтрДлина(АдресСписком.ПолучитьЗначение(10)) > 10 Тогда // номер квартиры не > 10 символов АдресСоответствуетТребованиямМНС = 0; Иначе АдресСоответствуетТребованиямМНС = 1; КонецЕсли; Если АдресСоответствуетТребованиямМНС = 1 Тогда ВходящиеДанные.Установить("Поле1", АдресСписком.ПолучитьЗначение(2)); // индекс ВходящиеДанные.Установить("Поле2", АдресСписком.ПолучитьЗначение(3)); // регион ВходящиеДанные.Установить("Поле3", АдресСписком.ПолучитьЗначение(4)); // район ВходящиеДанные.Установить("Поле4", АдресСписком.ПолучитьЗначение(5)); // город ВходящиеДанные.Установить("Поле5", АдресСписком.ПолучитьЗначение(6)); // населенный пункт ВходящиеДанные.Установить("Поле6", АдресСписком.ПолучитьЗначение(7)); // улица ВходящиеДанные.Установить("Поле7", АдресСписком.ПолучитьЗначение(8)); // дом ВходящиеДанные.Установить("Поле8", АдресСписком.ПолучитьЗначение(9)); // корпус ВходящиеДанные.Установить("Поле9", АдресСписком.ПолучитьЗначение(10)); // квартира ТекПредставление = ""; Если СокрЛП(ВходящиеДанные.Получить("Поле1")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ВходящиеДанные.Получить("Поле1")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле2")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ВходящиеДанные.Получить("Поле2")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле3")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ВходящиеДанные.Получить("Поле3")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле4")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ВходящиеДанные.Получить("Поле4")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле5")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ВходящиеДанные.Получить("Поле5")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле6")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ВходящиеДанные.Получить("Поле6")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле7")) <> "" Тогда ТекПредставление = ТекПредставление + ", дом № " + СокрЛП(ВходящиеДанные.Получить("Поле7")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле8")) <> "" Тогда ТекПредставление = ТекПредставление + ", корпус " + СокрЛП(ВходящиеДанные.Получить("Поле8")); КонецЕсли; Если СокрЛП(ВходящиеДанные.Получить("Поле9")) <> "" Тогда ТекПредставление = ТекПредставление + ", кв." + СокрЛП(ВходящиеДанные.Получить("Поле9")); КонецЕсли; Если СтрДлина(ТекПредставление) > 2 Тогда ТекПредставление = Сред(ТекПредставление, 3); КонецЕсли; ВходящиеДанные.Установить("Представление", ТекПредставление); Иначе ВходящиеДанные.Установить("Представление", Адрес); КонецЕсли; КонецФункции // ПолучитьСтруктуруАдреса() Функция ПриВыгрузкеСубконто( ИсходящиеДанные = "", ВходящиеДанные = "", Источник = "", Приемник = "", ТипПриемника = "", Значение = "", Выражение = "", Пусто = "", ВыборкаДанных = "", Объект = "", КоллекцияОбъектов = "", ОбъектКоллекции = "", ИмяПКО = "", ИмяПКОВидСубконто = "", НомерПКО = "", НомерПКС = "", Правило = "", КлючВыгружаемыхДанных = "", НеЗапоминатьВыгруженные = "", НеЗамещатьОбъектПриЗагрузке = "", ВсеОбъектыВыгружены = "", ТолькоПолучитьУзелСсылки = "", РежимЗаписи = "", РежимПроведения = "", СтандартнаяОбработка = "", НеЗамещать = "", НеОчищать = "", УзелСсылки = "", УзелКоллекцииОбъектов = "", УзелОбъектаКоллекции = "", УзелСвойства = "", ВидСубконто = "", Субконто = "", Отказ = "") Счет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); Субконто = Параметры.ПараметрыАлгоритмов.Получить("Субконто"); НомерСубконто = Параметры.ПараметрыАлгоритмов.Получить("НомерСубконто"); ВидДоговора = ""; Если ПустоеЗначение(Счет) = 0 Тогда //Если Счет = СчетПоКоду("ГТД") Тогда // Если НомерСубконто = 3 Тогда // ВидСубконто = "00051"; // страны происхождения // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "КлассификаторСтранМира"; // КонецЕсли; Если Счет.КоличествоСубконто() > 0 Тогда ВидСубконтоИсточника = Счет.ВидСубконто(НомерСубконто); ИмяПКО = ""; ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ИмяПКО = "ДоговорыКонтрагентов"; ВидДоговора = "Прочее"; КонецЕсли; Если ВидСубконтоИсточника = ВидыСубконто.ВидыНоменклатуры Тогда ИмяПКО = "НоменклатурныеГруппы"; КонецЕсли; Если ВидСубконтоИсточника = ВидыСубконто.СтатьиЗатратНаПроизводство Тогда ИмяПКО = "СтатьиЗатратНаПроизводство"; КонецЕсли; Если ВидСубконтоИсточника = ВидыСубконто.ОбъектыСтроительства Тогда Если (Счет = СчетПоКоду("08.4")) или (Счет = СчетПоКоду("Н01.01")) Тогда ВидСубконто = "Номенклатура"; //"Номенклатура"; ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли (Счет = СчетПоКоду("08.5")) или (Счет = СчетПоКоду("Н01.08")) Тогда ВидСубконто = "НематериальныеАктивы"; //"НематериальныеАктивы"; ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; ИмяПКО = "НМА_08_5_08_8"; ИначеЕсли (Счет = СчетПоКоду("08.8")) или (Счет = СчетПоКоду("Н01.03")) Тогда ВидСубконто = "РасходыНаНИОКР"; //"РасходыНаНИОКР"; ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; ИмяПКО = "НМА_08_5_08_8"; Иначе ВидСубконто = "ОбъектыСтроительства"; //"ОбъектыСтроительства"; ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; ИмяПКО = "ОбъектыСтроительства_08_3"; КонецЕсли; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.СтавкиНДС Тогда Если Субконто.Ставка = 0 Тогда Субконто = "БезНДС"; ИначеЕсли Субконто.Ставка = 18 Тогда Субконто = "НДС18"; ИначеЕсли Субконто.Ставка = 10 Тогда Субконто = "НДС10"; ИначеЕсли Субконто.Ставка = 20 Тогда Субконто = "НДС18"; КонецЕсли; ИмяПКО = ""; ИначеЕсли Счет = СчетПоКоду("45") Тогда //Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда // ВидСубконто = "00038"; // партии // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "ДоговорСКомитентом"; // ВидДоговора = "СКомиссионером"; //КонецЕсли; ИначеЕсли Счет = СчетПоКоду("004") Тогда //Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда // ВидСубконто = "00038"; // партии // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "ДоговорСКомитентом"; // ВидДоговора = "СКомитентом"; //КонецЕсли; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("62")) = 1 Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидДоговора = "СПокупателем"; КонецЕсли; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("60")) = 1 Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидДоговора = "СПоставщиком"; КонецЕсли; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("Н02.04")) = 1 Тогда //Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда // ВидСубконто = "00038"; // партии // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "ДоговорСКомитентом"; // ВидДоговора = "СКомиссионером"; //КонецЕсли; ИначеЕсли Счет = СчетПоКоду("Н04.03") Тогда Если ТипЗначенияСтр(Субконто) = "Справочник" Тогда Если Субконто.Вид() = "РасходыБудущихПериодов" Тогда ИмяПКО = "РБП_НМА"; КонецЕсли; КонецЕсли; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.РасходыБудущихПериодов Тогда ИмяПКО = "РасходыБудущихПериодов"; //ИначеЕсли (Счет = СчетПоКоду("Н07.04.1")) или (Счет = СчетПоКоду("Н01.05")) Тогда // Если ТипЗначенияСтр(Субконто) = "Перечисление" Тогда // Если Субконто.Вид() = "ГруппыВидыРасходов" Тогда // ВидСубконто = "СтатьиЗатрат"; //"СтатьиЗатрат"; // статьи затрат // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "ВидыРасходов"; // КонецЕсли; // КонецЕсли; ИначеЕсли (Счет = СчетПоКоду("Н07.09")) или (Счет = СчетПоКоду("Н07.10")) или (Счет = СчетПоКоду("Н07.11")) или (Счет = СчетПоКоду("Н07.12")) Тогда ВидСубконто = ВидыСубконто.Договоры; //ИначеЕсли Счет = СчетПоКоду("Н01.07") Тогда // Если ТипЗначенияСтр(Субконто) = "Строка" Тогда // ВидСубконто = "00007"; //"СтатьиЗатрат"; // статьи затрат // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "ВидыРасходов"; // КонецЕсли; //ИначеЕсли (Счет.ПринадлежитГруппе(СчетПоКоду("Н06")) = 1) или // (Счет.ПринадлежитГруппе(СчетПоКоду("Н07")) = 1) или // (Счет = СчетПоКоду("Н08")) или // (Счет = СчетПоКоду("Н09")) Тогда // // Если ТипЗначенияСтр(Субконто) = "Перечисление" Тогда // Если Субконто.Вид() = "ВидыПрочихДоходовИРасходов" Тогда // ВидСубконто = "00013"; //"ПрочиеДоходыИРасходы"; // прочие доходы и расходы // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "ВидыРасходовПрочие"; // КонецЕсли; // // ИначеЕсли ТипЗначенияСтр(Субконто) = "Строка" Тогда // ВидСубконто = "00013"; //"ПрочиедоходыИРасходы"; // прочие доходы и расходы // ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; // ИмяПКО = "ВидыРасходовПрочие"; // КонецЕсли; КонецЕсли; КонецЕсли; НомерПКОСубконто = НайтиПравило(Субконто, ИмяПКО); Если НомерПКОСубконто = 0 Тогда Отказ = 1; КонецЕсли; Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора",ВидДоговора); КонецЕсли; Иначе Отказ = 1; КонецЕсли; КонецФункции // ПриВыгрузкеСубконто() Функция Конвертация_ПередВыгрузкойДанных( ) Отказ = 0; Попытка Если ПустоеЗначение(ДатаОкончания) = 1 Тогда Предупреждение("Не указана дата окончания периода выгрузки!"); Отказ = 1; КонецЕсли; Если ДатаНачала > ДатаОкончания Тогда Предупреждение("Неправильно задан период выгрузки!"+РазделительСтрок+ "Дата начала больше даты окончания периода."); Отказ = 1; КонецЕсли; Если ДатаОкончания > КонецРассчитанногоПериодаБИ() Тогда Предупреждение("За выбранный период итоги не рассчитаны!"+РазделительСтрок+ "Расчет итогов выполняется в режиме"+РазделительСтрок+ """Операции - Управление бухгалтерскими итогами""."); Отказ = 1; КонецЕсли; Попытка СпрВидыДоговоров = СоздатьОбъект("Справочник.ВидыДоговора"); Исключение Сообщить(" | Добавьте в справочник «Контрагенты» новые реквизиты «Покупатель» |и «Поставщик», тип «Число», длина = 1, точность = 0; | | Добавьте новый справочник «ВидыДоговора». Справочник подчинен |справочнику «Договоры», |Тип кода «Текстовый», |Нумерация «В пределах подчинения»"); Отказ = 1; КонецПопытки; Параметры.Метка = "Перенесено из Бухгалтерии 7.7"; Параметры.ДатаВводаОстатков = ДатаОкончания; Параметры.СчетВводаОстатков = СчетПоКоду("00"); Параметры.ДлинаКода = 9; // стандартная длина кодов справочников в 8 Параметры.Сотрудники = СоздатьОбъект("ТаблицаЗначений"); Параметры.Сотрудники.НоваяКолонка("ФизЛицо"); Параметры.СотрудникиОрганизации = СоздатьОбъект("ТаблицаЗначений"); Параметры.СотрудникиОрганизации.НоваяКолонка("ФизЛицо"); Параметры.СотрудникиОрганизации.НоваяКолонка("ПодразделениеОрганизации"); СпрВалюты = СоздатьОбъект("Справочник.Валюты"); Если ПустоеЗначение(Константа.ОсновнаяВалюта) = 0 Тогда Параметры.Рубли = Константа.ОсновнаяВалюта; ИначеЕсли СпрВалюты.НайтиПоКоду("810") = 1 Тогда Параметры.Рубли = СпрВалюты.ТекущийЭлемент(); ИначеЕсли СпрВалюты.НайтиПоКоду("643") = 1 Тогда Параметры.Рубли = СпрВалюты.ТекущийЭлемент(); КонецЕсли; Параметры.Шт = СоздатьОбъект("СписокЗначений"); Параметры.Шт.Установить("ПометкаУдаления",0); Параметры.Шт.Установить("Код","796"); Параметры.Шт.Установить("Наименование","шт"); Параметры.Шт.Установить("НаименованиеПолное","Штука"); Параметры.ПараметрыАлгоритмов = СоздатьОбъект("СписокЗначений"); Параметры.ТаблицаПроводок = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаПроводок.НоваяКолонка("СчетДт"); Параметры.ТаблицаПроводок.НоваяКолонка("СчетКт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВидУчетаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВидУчетаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("КодСчетаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("КодСчетаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("СубконтоДт"); Параметры.ТаблицаПроводок.НоваяКолонка("СубконтоКт"); Параметры.ТаблицаПроводок.НоваяКолонка("Сумма"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютнаяСуммаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютнаяСуммаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("КоличествоДт"); Параметры.ТаблицаПроводок.НоваяКолонка("КоличествоКт"); Если Параметры.МаксКоличествоСтрок <=0 Тогда Параметры.МаксКоличествоСтрок = 512; КонецЕсли; // Учетная политика ВыгрузитьПоПравилу(,,,, "УчетнаяПолитика"); ВыгрузитьПоПравилу(,,,, "НастройкаСпособовВеденияУправленческогоПартионного"); // Учетная политика организаций СписокЭлементов1 = СоздатьОбъект("СписокЗначений"); СписокЭлементов2 = СоздатьОбъект("СписокЗначений"); Для Год = 1980 по ДатаГод(Параметры.ДатаВводаОстатков) Цикл ДатаПолученияЗначений = Дата(Год, 12, 31); ДатаУстановкиЗначений = Дата(Год, 1, 1); СписокЭлементов2.УдалитьВсе(); СписокЭлементов2.ДобавитьЗначение(?(Константа.ДиректКостинг.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ДиректКостинг"); СписокЭлементов2.ДобавитьЗначение(?(Константа.ПрименяетсяПБУ18.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ПоддержкаПБУ18"); СписокЭлементов2.ДобавитьЗначение(Константа.МетодОпределенияВыручки.Получить(ДатаПолученияЗначений), "МоментОпределенияНалоговойБазыНДС"); СписокЭлементов2.ДобавитьЗначение(?(Константа.РозницаОблагаетсяЕНВД.Получить(ДатаПолученияЗначений) = Да, 1, 0), "РозничнаяТорговляОблагаетсяЕНВД"); СписокЭлементов2.ДобавитьЗначение(Константа.НалоговыйПериодПоНДС.Получить(ДатаПолученияЗначений), "НДСНалоговыйПериод"); СписокЭлементов2.ДобавитьЗначение(Константа.МетодРаспределенияКосвенныхРасходовПоВидамДеятельности.Получить(ДатаПолученияЗначений), "МетодРаспределенияКосвенныхРасходовПоВидамДеятельности"); СписокЭлементов2.ДобавитьЗначение(Константа.БазаРаспределенияКосвенныхРасходовПоВидамДеятельности.Получить(ДатаПолученияЗначений), "БазаРаспределенияКосвенныхРасходовПоВидамДеятельности"); СписокЭлементов2.ДобавитьЗначение(?(Константа.УчитыватьПоложительныеСуммовыеРазницыПриНачисленииНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьПоложительныеСуммовыеРазницыПриНачисленииНДС"); СписокЭлементов2.ДобавитьЗначение(?(Константа.УчитыватьОтрицательныеСуммовыеРазницыПриНачисленииНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьОтрицательныеСуммовыеРазницыПриНачисленииНДС"); СписокЭлементов2.ДобавитьЗначение(?(Константа.УчитыватьПоложительныеСуммовыеРазницыПриОпределенииВычетовПоНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьПоложительныеСуммовыеРазницыПриОпределенииВычетовПоНДС"); СписокЭлементов2.ДобавитьЗначение(?(Константа.УчитыватьОтрицательныеСуммовыеРазницыПриОпределенииВычетовПоНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьОтрицательныеСуммовыеРазницыПриОпределенииВычетовПоНДС"); СписокЭлементов2.ДобавитьЗначение(?(Константа.ВыписыватьОтдельныеСчетаФактурыНаСуммовыеРазницы.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ВыписыватьОтдельныеСчетаФактурыНаСуммовыеРазницы"); СписокЭлементов2.ДобавитьЗначение(?(Константа.ФормироватьСчетФактуруПоУЕвРублях.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ФормироватьСчетФактуруПоУЕвРублях"); СписокЭлементов2.ДобавитьЗначение(?(Константа.ДиректКостингБазаРаспределения.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ДиректКостингБазаРаспределения"); Для НомерЭлемента = 1 по СписокЭлементов2.РазмерСписка() Цикл ПредставлениеЗначения = ""; Значение2 = СписокЭлементов2.ПолучитьЗначение(НомерЭлемента, ПредставлениеЗначения); Значение1 = СписокЭлементов1.Получить(ПредставлениеЗначения); Если Значение1 <> Значение2 Тогда СписокЭлементов2.ДобавитьЗначение(ДатаУстановкиЗначений, "Период"); ВыгрузитьПоПравилу(,, СписокЭлементов2,, "УчетнаяПолитикаОрганизаций"); СписокЭлементов1.УдалитьВсе(); СписокЭлементов2.УдалитьЗначение(СписокЭлементов2.РазмерСписка()); //Удаляем Период СписокЭлементов2.Выгрузить(СписокЭлементов1); //Запоминаем в первый список СписокЭлементов2.УдалитьВсе(); Прервать; КонецЕсли; КонецЦикла; КонецЦикла; // НДФЛ Для Год = 1980 по ДатаГод(Параметры.ДатаВводаОстатков) Цикл ДатаПолученияЗначений = Дата(Год, 12, 31); ДатаУстановкиЗначений = Дата(Год, 1, 1); СписокЭлементов2.ДобавитьЗначение(Константа.ОсобенностиИсчисленияНДФЛ.Получить(ДатаПолученияЗначений), "ОсобенностиИсчисленияНДФЛ"); Для НомерЭлемента = 1 по СписокЭлементов2.РазмерСписка() Цикл ПредставлениеЗначения = ""; Значение2 = СписокЭлементов2.ПолучитьЗначение(НомерЭлемента, ПредставлениеЗначения); Значение1 = СписокЭлементов1.Получить(ПредставлениеЗначения); Если Значение1 <> Значение2 Тогда СписокЭлементов2.ДобавитьЗначение(ДатаУстановкиЗначений, "Период"); ВыгрузитьПоПравилу(,, СписокЭлементов2,, "УчетнаяПолитикаПоНДФЛ"); СписокЭлементов1.УдалитьВсе(); СписокЭлементов2.УдалитьЗначение(СписокЭлементов2.РазмерСписка()); СписокЭлементов2.Выгрузить(СписокЭлементов1); СписокЭлементов2.УдалитьВсе(); Прервать; КонецЕсли; КонецЦикла; КонецЦикла; ВыгрузитьПоПравилу(,,,, "УчетнаяПолитикаПоПерсоналуОрганизаций"); Исключение Сообщить("Ошибка исполнения обработчика: Конвертация_ПередВыгрузкойДанных", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: Конвертация_ПередВыгрузкойДанных" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // Конвертация_ПередВыгрузкойДанных() Функция ПВД_ПередОбработкойПравила_Сч001( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("001")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч001", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч001" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч001() Функция ПВД_ПередОбработкойПравила_Сч002_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("002.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч002_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч002_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч002_1() Функция ПВД_ПередОбработкойПравила_Сч002_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("002.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч002_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч002_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч002_2() Функция ПВД_ПередОбработкойПравила_Сч004( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ТекСчет = СчетПоКоду("004"); Комментарий = "Ввод начальных остатков сч.004"; Склад = СоздатьОбъект("СписокЗначений"); Склад.Установить("Код","СКЛОП"); Склад.Установить("Наименование","Вспомогательный склад для конвертации (Опт.)"); Склад.Установить("ВидСклада", "Оптовый"); Склад.Установить("Розничный", 0); Склад.Установить("Комментарий","Вспомогательный склад для переноса остатков партий в опте"); ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("Количество", "Число"); ТабТовары.НоваяКолонка("ЕдиницаИзмерения"); ТабТовары.НоваяКолонка("Коэффициент", "Число"); ТабТовары.НоваяКолонка("Цена", "Число"); ТабТовары.НоваяКолонка("ЦенаВРознице", "Число"); ТабТовары.НоваяКолонка("Сумма", "Число"); ТабТовары.НоваяКолонка("СчетУчетаБУ"); ТабТовары.НоваяКолонка("СчетУчетаНУ"); ДатаОстатков = Параметры.ДатаВводаОстатков; Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, ТекСчет,,,,,5); Ит.ВыбратьСубконто(1); ТабТовары.УдалитьСтроки(); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл ТекКонтрагент = Ит.Субконто(1); ТекДоговорКонтрагента = Ит.Субконто(2); ТабТовары.УдалитьСтроки(); Ит.ВыбратьСубконто(3); Пока Ит.ПолучитьСубконто(3) = 1 Цикл Сумма = ИТ.СКД("С"); Количество = ИТ.СКД("К"); ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = Ит.Субконто(3); ТабТовары.Количество = Количество; ТабТовары.Коэффициент = 1; ТабТовары.Сумма = Сумма; ТабТовары.СчетУчетаБУ = ТекСчет; ТабТовары.СчетУчетаНУ = ТекСчет; ТабТовары.ЦенаВРознице = 0; Если ТабТовары.Количество<>0 Тогда ТабТовары.Цена = Окр(ТабТовары.Сумма/ТабТовары.Количество,2,1); КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("СкладОрдер", Склад); ВходящиеДанные.Установить("Контрагент", ТекКонтрагент); ВходящиеДанные.Установить("ДоговорКонтрагента", ТекДоговорКонтрагента); ВходящиеДанные.Установить("ВалютаДокумента", Параметры.Рубли); ВходящиеДанные.Установить("КурсВзаиморасчетов", 1); ВходящиеДанные.Установить("КратностьВзаиморасчетов",1); ВходящиеДанные.Установить("Товары", ТабТовары); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ВидОперации", "ПокупкаКомиссия"); ВходящиеДанные.Установить("Комментарий", Комментарий); ВходящиеДанные.Установить("ВидДоговора", "СКомитентом"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПоступлениеТоваровУслуг"); КонецЦикла; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч004", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч004" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч004() Функция ПВД_ПередОбработкойПравила_Сч005( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("005")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч005", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч005" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч005() Функция ПВД_ПередОбработкойПравила_Сч006( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("006")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч006", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч006" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч006() Функция ПВД_ПередОбработкойПравила_Сч007( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("007")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч007", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч007" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч007() Функция ПВД_ПередОбработкойПравила_Сч008( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("008")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч008", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч008" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч008() Функция ПВД_ПередОбработкойПравила_Сч009( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("009")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч009", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч009" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч009() Функция ПВД_ПередОбработкойПравила_Сч010( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("010")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч010", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч010" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч010() Функция ПВД_ПередОбработкойПравила_Сч011( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("011")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч011", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч011" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч011() Функция ПВД_ПередОбработкойПравила_Сч07( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("Количество", "Число"); ТабТовары.НоваяКолонка("ЕдиницаИзмерения"); ТабТовары.НоваяКолонка("Коэффициент", "Число"); ТабТовары.НоваяКолонка("СтатусПартии"); ТабТовары.НоваяКолонка("Цена", "Число"); ТабТовары.НоваяКолонка("ЦенаВрознице", "Число"); ТабТовары.НоваяКолонка("Сумма", "Число"); ТабТовары.НоваяКолонка("СчетУчетаБУ"); ТабТовары.НоваяКолонка("СчетУчетаНУ"); ТабТовары.НоваяКолонка("СуммаРегл", "Число"); ТабТовары.НоваяКолонка("Склад"); ТабТовары.УдалитьСтроки(); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Оборудование,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "07"); Ит.ВыбратьСубконто(ВидыСубконто.Оборудование); Пока Ит.ПолучитьСубконто(ВидыСубконто.Оборудование) = 1 Цикл Кол = Ит.СКД("К"); Сум = ИТ.СКД("С"); ОстСум = Сум; Если Сум<0 Тогда Продолжить; КонецЕсли; Если Кол<=0 Тогда Кол=1; КонецЕсли; Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения); Пока Ит.ПолучитьСубконто(ВидыСубконто.МестаХранения) = 1 Цикл //только количественный учет //сумму распределяем по среднему Если ИТ.СКД("К")<=0 Тогда Продолжить; КонецЕсли; ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = Ит.субконто(1); Табтовары.Склад = Ит.Субконто(2); ТабТовары.Количество = ИТ.СКД("К"); //ТабТовары.ЕдиницаИзмерения = ТабТовары.Номенклатура.БазоваяЕдиница; //ТабТовары.Коэффициент = ТабТовары.Номенклатура.БазоваяЕдиница.Коэффициент; ТабТовары.СтатусПартии = "Оборудование"; //????? ТабТовары.СчетУчетаБУ = СчетПоКоду("07"); ТабТовары.СчетУчетаНУ = СчетПоКоду("07"); СуммаПоСтроке = Сум/Кол*Ит.СКД("К"); ОстСум = ОстСум - СуммаПоСтроке; ТабТовары.Сумма = СуммаПоСтроке; ТабТовары.СуммаРегл = СуммаПоСтроке; Если ТабТовары.Количество>0 Тогда ТабТовары.Цена = Окр(ТабТовары.Сумма/Табтовары.Количество,2,1); КонецЕсли; КонецЦикла; Если (Остсум<>0) и (ТабТовары.КоличествоСтрок()>0) Тогда //разницу от округления распределяем на первую строку ТабТовары.ПолучитьСтрокуПоНомеру(1); ТабТовары.Сумма = ТабТовары.Сумма+ОстСум; Табтовары.СуммаРегл = ТабТовары.Сумма; Если ТабТовары.Количество>0 Тогда ТабТовары.Цена = Окр(ТабТовары.Сумма/Табтовары.Количество,2,1); КонецЕсли; КонецЕсли; КонецЦикла; //в одном документе данные по одному складу Если ТабТовары.КоличествоСтрок()>0 Тогда ТабТовары.Сортировать("Склад,Номенклатура"); ТТ = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по ТабТовары.КоличествоКолонок() Цикл ТТ.НоваяКолонка(Табтовары.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; ТабТовары.ПолучитьСтрокуПоНомеру(1); ТекСклад = ТабТовары.Склад; ТабТовары.ВыбратьСтроки(); Пока ТабТовары.ПолучитьСтроку() = 1 Цикл Если ТекСклад <> ТабТовары.Склад Тогда Если ТТ.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Склад", ТекСклад); ВходящиеДанные.Установить("Товары", ТТ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", "Ввод начальных остатков по Сч.07 (Оборудование к установке)"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОприходованиеТоваров"); ТТ.УдалитьСтроки(); КонецЕсли; ТекСклад = ТабТовары.Склад; КонецЕсли; ТТ.НоваяСтрока(); НомСтроки = ТТ.КоличествоСтрок(); Для НомКолонки = 1 по ТабТовары.КоличествоКолонок() Цикл ТТ.УстановитьЗначение(НомСтроки, НомКолонки, ТабТовары.ПолучитьЗначение(ТабТовары.НомерСтроки, НомКолонки)); КонецЦикла; КонецЦикла; Если ТТ.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Склад", ТекСклад); ВходящиеДанные.Установить("Товары", ТТ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", "Ввод начальных остатков по Сч.07 (Оборудование к установке)"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОприходованиеТоваров"); ТТ.УдалитьСтроки(); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч07", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч07" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч07() Функция ПВД_ПередОбработкойПравила_Сч08_1_ПрочиеЗатраты( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет",СчетПоКоду("08.1")); ВыгрузитьОбъектыСтроительства( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_1_ПрочиеЗатраты", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_1_ПрочиеЗатраты" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_1_ПрочиеЗатраты() Функция ПВД_ПередОбработкойПравила_Сч08_2_ПрочиеЗатраты( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет",СчетПоКоду("08.2")); ВыгрузитьОбъектыСтроительства( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_2_ПрочиеЗатраты", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_2_ПрочиеЗатраты" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_2_ПрочиеЗатраты() Функция ПВД_ПередОбработкойПравила_Сч08_3_ПрочиеЗатраты( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет",СчетПоКоду("08.3")); ВыгрузитьОбъектыСтроительства( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_3_ПрочиеЗатраты", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_3_ПрочиеЗатраты" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_3_ПрочиеЗатраты() Функция ПВД_ПередОбработкойПравила_Сч08_4_ОприходованиеТоваров( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("Количество", "Число"); ТабТовары.НоваяКолонка("ЕдиницаИзмерения"); ТабТовары.НоваяКолонка("Коэффициент", "Число"); ТабТовары.НоваяКолонка("СтатусПартии"); ТабТовары.НоваяКолонка("Цена", "Число"); ТабТовары.НоваяКолонка("ЦенаВрознице", "Число"); ТабТовары.НоваяКолонка("Сумма", "Число"); ТабТовары.НоваяКолонка("СчетУчетаБУ"); ТабТовары.НоваяКолонка("СчетУчетаНУ"); ТабТовары.НоваяКолонка("СуммаРегл", "Число"); Склад = СоздатьОбъект("СписокЗначений"); Склад.Установить("Код","СКЛОБ"); Склад.Установить("Наименование","Вспомогательный склад для конвертации (Оборуд-ние)"); Склад.Установить("ВидСклада", "Оптовый"); Склад.Установить("Розничный", 0); Склад.Установить("Комментарий","Вспомогательный склад для переноса остатков внеоборотных активов"); ТабТовары.УдалитьСтроки(); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.ОбъектыСтроительства,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "08.4"); Ит.ВыбратьСубконто(ВидыСубконто.ОбъектыСтроительства); Пока Ит.ПолучитьСубконто(ВидыСубконто.ОбъектыСтроительства) = 1 Цикл Кол = Ит.СКД("К"); Сум = ИТ.СКД("С"); Если Сум<0 Тогда Продолжить; КонецЕсли; Если Кол<=0 Тогда Кол=1; КонецЕсли; ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = Ит.субконто(1); ТабТовары.Количество = Кол; ТабТовары.СтатусПартии = "Оборудование"; ТабТовары.СчетУчетаБУ = СчетПоКоду("08.4"); ТабТовары.СчетУчетаНУ = СчетПоКоду("08.4"); ТабТовары.Сумма = Сум; ТабТовары.СуммаРегл = Сум; Если ТабТовары.Количество>0 Тогда ТабТовары.Цена = Окр(ТабТовары.Сумма/Табтовары.Количество,2,1); КонецЕсли; КонецЦикла; Если ТабТовары.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Склад", Склад); ВходящиеДанные.Установить("Товары", ТабТовары); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", "Ввод начальных остатков по Сч.08.4 (Приобретение объектов основных средств)"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОприходованиеТоваров"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_4_ОприходованиеТоваров", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_4_ОприходованиеТоваров" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_4_ОприходованиеТоваров() Функция ПВД_ПередОбработкойПравила_Сч08_5( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_5() Функция ПВД_ПередОбработкойПравила_Сч08_6( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("08.6") = 0 Тогда Отказ = 1; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_6() Функция ПВД_ПередОбработкойПравила_Сч08_7( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("08.7") = 0 Тогда Отказ = 1; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.7")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_7() Функция ПВД_ПередОбработкойПравила_Сч08_8( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.8")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч08_8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч08_8() Функция ПВД_ПередОбработкойПравила_Сч09( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("09")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч09", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч09" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч09() Функция ПВД_ПередОбработкойПравила_Сч10_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.1")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_1() Функция ПВД_ПередОбработкойПравила_Сч10_10( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.10")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_10() Функция ПВД_ПередОбработкойПравила_Сч10_11_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СубСчет", 1); ВыгрузитьОстатки_10_11( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_11_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_11_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_11_1() Функция ПВД_ПередОбработкойПравила_Сч10_11_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СубСчет", 2); ВыгрузитьОстатки_10_11( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_11_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_11_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_11_2() Функция ПВД_ПередОбработкойПравила_Сч10_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.2")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_2() Функция ПВД_ПередОбработкойПравила_Сч10_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.3")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_3() Функция ПВД_ПередОбработкойПравила_Сч10_4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.4")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_4() Функция ПВД_ПередОбработкойПравила_Сч10_5( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.5")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_5() Функция ПВД_ПередОбработкойПравила_Сч10_6( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.6")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_6() Функция ПВД_ПередОбработкойПравила_Сч10_8( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.8")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_8() Функция ПВД_ПередОбработкойПравила_Сч10_9( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("10.9")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Материалы"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч10_9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч10_9() Функция ПВД_ПередОбработкойПравила_Сч11( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("11") = 0 Тогда Отказ = 1; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч11() Функция ПВД_ПередОбработкойПравила_Сч14_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч14_1() Функция ПВД_ПередОбработкойПравила_Сч14_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч14_2() Функция ПВД_ПередОбработкойПравила_Сч14_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч14_3() Функция ПВД_ПередОбработкойПравила_Сч14_4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч14_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч14_4() Функция ПВД_ПередОбработкойПравила_Сч15_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("15.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч15_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч15_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч15_1() Функция ПВД_ПередОбработкойПравила_Сч15_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("15.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч15_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч15_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч15_2() Функция ПВД_ПередОбработкойПравила_Сч16_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("16.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч16_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч16_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч16_1() Функция ПВД_ПередОбработкойПравила_Сч16_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("16.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч16_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч16_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч16_2() Функция ПВД_ПередОбработкойПравила_Сч16_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("16.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч16_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч16_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч16_3() Функция ПВД_ПередОбработкойПравила_Сч21( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("21")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Номенклатура"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч21() Функция ПВД_ПередОбработкойПравила_Сч40( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("40")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч40", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч40" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч40() Функция ПВД_ПередОбработкойПравила_Сч41_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("41.1")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Номенклатура"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч41_1() Функция ПВД_ПередОбработкойПравила_Сч41_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("41.2")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Номенклатура"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч41_2() Функция ПВД_ПередОбработкойПравила_Сч41_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("41.3")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Номенклатура"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч41_3() Функция ПВД_ПередОбработкойПравила_Сч41_4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("41.4")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Номенклатура"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч41_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч41_4() Функция ПВД_ПередОбработкойПравила_Сч42( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("42")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч42", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч42" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч42() Функция ПВД_ПередОбработкойПравила_Сч43( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", СчетПоКоду("43")); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконто","Номенклатура"); ВыгрузитьОстаткиТМЦ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч43", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч43" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч43() Функция ПВД_ПередОбработкойПравила_Сч45( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ТекСчет = СчетПоКоду("45"); Счет41_1 = СчетПоКоду("41.1"); Комментарий = "Ввод начальных остатков сч.45"; ТекСтатусПартии = "Купленный"; ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Склад"); ТабТовары.НоваяКолонка("Контрагент"); ТабТовары.НоваяКолонка("ДоговорКонтрагента"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("Количество", "Число"); ТабТовары.НоваяКолонка("Коэффициент", "Число"); ТабТовары.НоваяКолонка("Сумма", "Число"); ТабТовары.НоваяКолонка("СуммаРегл", "Число"); ТабТовары.НоваяКолонка("ЦенаВрознице", "Число"); ТабТовары.НоваяКолонка("Цена", "Число"); ТабТовары.НоваяКолонка("СчетУчетаБУ"); ТабТовары.НоваяКолонка("СчетУчетаНУ"); ТабТовары.НоваяКолонка("ПереданныеСобственныеБУ"); ТабТовары.НоваяКолонка("ПереданныеСобственныеНУ"); ТабТовары.НоваяКолонка("СчетДоходовБУ"); ТабТовары.НоваяКолонка("СчетДоходовНУ"); ТабТовары.НоваяКолонка("СчетРасходовБУ"); ТабТовары.НоваяКолонка("СчетРасходовНУ"); ТабТовары.НоваяКолонка("ЕдиницаИзмерения"); ТабТовары.НоваяКолонка("СтатусПартии"); СкладГруппа = СоздатьОбъект("СписокЗначений"); СкладГруппа.Установить("Код","СКЛПТ"); СкладГруппа.Установить("Наименование","Вспомогательные для переноса переданных товаров"); Склад = СоздатьОбъект("СписокЗначений"); Склад.Установить("Код","СКЛПТ"); // так надо, для определения группы Склад.Установить("Наименование",""); Склад.Установить("ВидСклада", "Оптовый"); Склад.Установить("Розничный", 0); Склад.Установить("Родитель",СкладГруппа); Склад.Установить("Комментарий",""); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, ТекСчет,,,,,5); Ит.ВыбратьСубконто(1); ТабТовары.УдалитьСтроки(); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл Ит.ВыбратьСубконто(3); Пока Ит.ПолучитьСубконто(3) = 1 Цикл СуммаЗаКонтрагентом = ИТ.СКД("С"); КоличествоЗаКонтрагентом= ИТ.СКД("К"); ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = Ит.Субконто(1); ТабТовары.Контрагент = Ит.Субконто(2); ТабТовары.ДоговорКонтрагента= Ит.Субконто(3); ТабТовары.Склад = "Для товаров переданных: "+ СокрЛП(ТабТовары.Контрагент.Код)+"_"+ СокрЛП(ТабТовары.ДоговорКонтрагента.ПолныйКод()); // под каждого Комиссионера заводим склад //приходуем на него на 41.1 товар //затем передаем на комиссию на 45 //если все делать на один склад будет средняя стоимость для каждого товара для всех контрагентов ТабТовары.Количество = КоличествоЗаКонтрагентом; ТабТовары.Коэффициент = 1; ТабТовары.Сумма = СуммаЗаКонтрагентом; ТабТовары.СуммаРегл = СуммаЗаКонтрагентом; ТабТовары.СчетУчетаБУ = Счет41_1; ТабТовары.СчетУчетаНУ = Счет41_1; ТабТовары.ПереданныеСобственныеБУ = ТекСчет; ТабТовары.ПереданныеСобственныеНУ = ТекСчет; ТабТовары.СчетДоходовБУ = СчетПоКоду("90.1.1"); ТабТовары.СчетДоходовНУ = СчетПоКоду("90.1.1"); ТабТовары.СчетРасходовБУ = СчетПоКоду("90.2.1"); ТабТовары.СтатусПартии = ТекСтатусПартии; ТабТовары.ЦенаВРознице = 0; Если ТабТовары.Количество<>0 Тогда ТабТовары.Цена = Окр(ТабТовары.Сумма/ТабТовары.Количество,2,1); КонецЕсли; //ТабТовары.ЕдиницаИзмерения = Ит.Субконто(1).ЕдиницаИзмерения; КонецЦикла; КонецЦикла; КонецЦикла; //в одном документе данные по одному складу Если ТабТовары.КоличествоСтрок()>0 Тогда ТабТовары.Сортировать("Склад,Номенклатура"); ТТ = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по ТабТовары.КоличествоКолонок() Цикл ТТ.НоваяКолонка(Табтовары.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; ТабТовары.ПолучитьСтрокуПоНомеру(1); ТекСклад = ТабТовары.Склад; ТекКонтрагент = ТабТовары.Контрагент; ТекДоговорКонтрагента = ТабТовары.ДоговорКонтрагента; //НомерСкладПоПорядку = 0; ТабТовары.ВыбратьСтроки(); Пока ТабТовары.ПолучитьСтроку() = 1 Цикл Если ТекСклад <> ТабТовары.Склад Тогда Если ТТ.КоличествоСтрок() > 0 Тогда //НомерСкладПоПорядку = НомерСкладПоПорядку+1; //Склад.Установить("Код","СКЛПТ"+Строка(НомерСкладПоПорядку)); Склад.Установить("Наименование",ТекСклад); Склад.Установить("Комментарий","Вспомогательный склад для переноса остатков товаров отгруженных:"+ ТекКонтрагент+" по договору:"+ТекДоговорКонтрагента); ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Склад", Склад); ВходящиеДанные.Установить("Товары", ТТ); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", Комментарий); ВходящиеДанные.Установить("ВидОперации", "ПродажаКомиссия"); ВходящиеДанные.Установить("Контрагент", ТекКонтрагент); ВходящиеДанные.Установить("ДоговорКонтрагента", ТекДоговорКонтрагента); ВходящиеДанные.Установить("СуммаДокумента", ТТ.Итог("Сумма")); ВходящиеДанные.Установить("ВалютаДокумента", Параметры.Рубли); ВходящиеДанные.Установить("КратностьВзаиморасчетов",1); ВходящиеДанные.Установить("КурсВзаиморасчетов",1); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОприходованиеТоваров"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "РеализацияТоваровУслуг"); ТТ.УдалитьСтроки(); КонецЕсли; ТекСклад = ТабТовары.Склад; КонецЕсли; ТТ.НоваяСтрока(); НомСтроки = ТТ.КоличествоСтрок(); Для НомКолонки = 1 по ТабТовары.КоличествоКолонок() Цикл ТТ.УстановитьЗначение(НомСтроки, НомКолонки, ТабТовары.ПолучитьЗначение(ТабТовары.НомерСтроки, НомКолонки)); КонецЦикла; КонецЦикла; Если ТТ.КоличествоСтрок() > 0 Тогда //НомерСкладПоПорядку = НомерСкладПоПорядку+1; //Склад.Установить("Код","СКЛПТ"+Строка(НомерСкладПоПорядку)); Склад.Установить("Наименование",ТекСклад); Склад.Установить("Комментарий","Вспомогательный склад для переноса остатков товаров отгруженных:"+ ТекКонтрагент+" по договору:"+ТекДоговорКонтрагента); ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Склад", Склад); ВходящиеДанные.Установить("Товары", ТТ); ВходящиеДанные.Установить("ОтражатьВУправленческомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("Комментарий", Комментарий); ВходящиеДанные.Установить("ВидОперации", "ПродажаКомиссия"); ВходящиеДанные.Установить("Контрагент", ТекКонтрагент); ВходящиеДанные.Установить("ДоговорКонтрагента", ТекДоговорКонтрагента); ВходящиеДанные.Установить("СуммаДокумента", ТТ.Итог("Сумма")); ВходящиеДанные.Установить("ВалютаДокумента", Параметры.Рубли); ВходящиеДанные.Установить("КратностьВзаиморасчетов",1); ВходящиеДанные.Установить("КурсВзаиморасчетов",1); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОприходованиеТоваров"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "РеализацияТоваровУслуг"); ТТ.УдалитьСтроки(); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч45", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч45" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч45() Функция ПВД_ПередОбработкойПравила_Сч46( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("46")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч46", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч46" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч46() Функция ПВД_ПередОбработкойПравила_Сч50_Кассы( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Комментарий = "Ввод начальных остатков по кассе"; ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.НоваяКолонка("Касса"); ВыборкаДанных.НоваяКолонка("ВалютаДокумента"); ВыборкаДанных.НоваяКолонка("СуммаДокумента"); ВыборкаДанных.НоваяКолонка("РасшифровкаПлатежа"); ВыборкаДанных.НоваяКолонка("Дата", "Дата"); ВыборкаДанных.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.НоваяКолонка("ОтражатьВУправленческомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ОтражатьВБухгалтерскомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ОтражатьВНалоговомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("Комментарий"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "50.1,50.11",,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Если ТекСчет.Валютный =0 Тогда ТекВалюта = Параметры.Рубли; Сум = Ит.СКД("С"); Если Сум<0 Тогда Продолжить; КонецЕсли; ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.Касса = СоздатьОбъект("СписокЗначений"); ВыборкаДанных.Касса.Установить("Наименование","Основная касса "+ТекВалюта); ВыборкаДанных.Касса.Установить("ПометкаУдаления",0); ВыборкаДанных.Касса.Установить("ВалютаДенежныхСредств",Параметры.Рубли); ВыборкаДанных.ВалютаДокумента = Параметры.Рубли; ВыборкаДанных.СуммаДокумента = Сум; ВыборкаДанных.РасшифровкаПлатежа = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СуммаПлатежа"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.РасшифровкаПлатежа.НоваяСтрока(); ВыборкаДанных.РасшифровкаПлатежа.СуммаПлатежа = Сум; ВыборкаДанных.РасшифровкаПлатежа.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Дата = Параметры.ДатаВводаОстатков; ВыборкаДанных.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.ОтражатьВУправленческомУчете = 1; ВыборкаДанных.ОтражатьВБухгалтерскомУчете = 1; ВыборкаДанных.ОтражатьВНалоговомУчете = 1; ВыборкаДанных.Комментарий = Комментарий+" Сч.: 50.1"; Иначе Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту() = 1 Цикл Сум = Ит.СКД("С"); СуммаВВалюте = Ит.СКД("В"); ТекВалюта = Ит.Валюта; Если СуммаВВалюте<0 Тогда Продолжить; КонецЕсли; ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.Касса = СоздатьОбъект("СписокЗначений"); ВыборкаДанных.Касса.Установить("Наименование", "Основная касса "+ТекВалюта); ВыборкаДанных.Касса.Установить("ПометкаУдаления", 0); ВыборкаДанных.Касса.Установить("ВалютаДенежныхСредств", ТекВалюта); ВыборкаДанных.ВалютаДокумента = ТекВалюта; ВыборкаДанных.СуммаДокумента = СуммаВВалюте; ВыборкаДанных.РасшифровкаПлатежа = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СуммаПлатежа"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.РасшифровкаПлатежа.НоваяСтрока(); ВыборкаДанных.РасшифровкаПлатежа.СуммаПлатежа = СуммаВВалюте; ВыборкаДанных.РасшифровкаПлатежа.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Дата = Параметры.ДатаВводаОстатков; ВыборкаДанных.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.ОтражатьВУправленческомУчете = 1; ВыборкаДанных.ОтражатьВБухгалтерскомУчете = 1; ВыборкаДанных.ОтражатьВНалоговомУчете = 1; ВыборкаДанных.Комментарий = Комментарий+" Сч.: 50.11 "+ТекВалюта.Наименование; КонецЦикла; КонецЕсли; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_Кассы", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_Кассы" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч50_Кассы() Функция ПВД_ПередОбработкойПравила_Сч50_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч50_2() Функция ПВД_ПередОбработкойПравила_Сч50_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("50.3") = 0 Тогда Отказ = 1; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч50_3() Функция ПВД_ПередОбработкойПравила_Сч50_33( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("50.33") = 0 Тогда Отказ = 1; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.33")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_33", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч50_33" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч50_33() Функция ПВД_ПередОбработкойПравила_Сч51_52( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка //в платежном поручении обязательно требуется указывать плательщика контрагента. //указываем первого попавшегося СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты"); СпрКонтрагенты.ВыбратьЭлементы(); ПервыйПопавшийсяКонтрагент = ""; Пока СпрКонтрагенты.ПолучитьЭлемент() = 1 Цикл Если СпрКонтрагенты.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; ПервыйПопавшийсяКонтрагент = СпрКонтрагенты.ТекущийЭлемент(); Прервать; КонецЦикла; ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.НоваяКолонка("СчетОрганизации"); ВыборкаДанных.НоваяКолонка("ВалютаДокумента"); ВыборкаДанных.НоваяКолонка("СуммаДокумента"); ВыборкаДанных.НоваяКолонка("РасшифровкаПлатежа"); ВыборкаДанных.НоваяКолонка("Дата", "Дата"); ВыборкаДанных.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.НоваяКолонка("Контрагент"); ВыборкаДанных.НоваяКолонка("Комментарий"); //ВыборкаДанных.НоваяКолонка("ОтражатьВУправленческомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ОтражатьВБухгалтерскомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ОтражатьВНалоговомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ВидСчета", "Строка"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.БанковскиеСчета,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "51,52",,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Если ТекСчет.Валютный =0 Тогда Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Сум = Ит.СКД("С"); Если Сум<0 Тогда Продолжить; КонецЕсли; ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.СчетОрганизации = Ит.Субконто(1); ВыборкаДанных.ВалютаДокумента = Параметры.Рубли; ВыборкаДанных.СуммаДокумента = Сум; ВыборкаДанных.РасшифровкаПлатежа = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СуммаПлатежа"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.РасшифровкаПлатежа.НоваяСтрока(); ВыборкаДанных.РасшифровкаПлатежа.СуммаПлатежа = Сум; ВыборкаДанных.РасшифровкаПлатежа.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Дата = Параметры.ДатаВводаОстатков; ВыборкаДанных.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Контрагент = ПервыйПопавшийсяКонтрагент; ВыборкаДанных.Комментарий = "Ввод начальных остатков по р/с:"+ВыборкаДанных.СчетОрганизации.Номер+", сч.:"+ТекСчет.Код; //ВыборкаДанных.ОтражатьВУправленческомУчете = 1; ВыборкаДанных.ОтражатьВБухгалтерскомУчете = 1; ВыборкаДанных.ОтражатьВНалоговомУчете = 0; ВыборкаДанных.ВидСчета = "Расчетный"; КонецЦикла; Иначе Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту() = 1 Цикл Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Сум = Ит.СКД("С"); СуммаВВалюте = Ит.СКД("В"); ТекВалюта = Ит.Валюта; Если СуммаВВалюте<0 Тогда Продолжить; КонецЕсли; ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.СчетОрганизации = Ит.Субконто(1); ВыборкаДанных.ВалютаДокумента = ТекВалюта; ВыборкаДанных.СуммаДокумента = СуммаВВалюте; ВыборкаДанных.РасшифровкаПлатежа = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СуммаПлатежа"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.РасшифровкаПлатежа.НоваяСтрока(); ВыборкаДанных.РасшифровкаПлатежа.СуммаПлатежа = СуммаВВалюте; ВыборкаДанных.РасшифровкаПлатежа.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Дата = Параметры.ДатаВводаОстатков; ВыборкаДанных.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Контрагент = ПервыйПопавшийсяКонтрагент; ВыборкаДанных.Комментарий = "Ввод начальных остатков по р/с:"+ВыборкаДанных.СчетОрганизации.Номер+", сч.:"+ТекСчет.Код+" "+ТекВалюта.Наименование; //ВыборкаДанных.ОтражатьВУправленческомУчете = 1; ВыборкаДанных.ОтражатьВБухгалтерскомУчете = 1; ВыборкаДанных.ОтражатьВНалоговомУчете = 0; ВыборкаДанных.ВидСчета = "Расчетный"; КонецЦикла; КонецЦикла; КонецЕсли; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч51_52", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч51_52" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч51_52() Функция ПВД_ПередОбработкойПравила_Сч55_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч55_1() Функция ПВД_ПередОбработкойПравила_Сч55_11( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч55_11() Функция ПВД_ПередОбработкойПравила_Сч55_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч55_2() Функция ПВД_ПередОбработкойПравила_Сч55_3и4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка //в платежном поручении обязательно требуется указывать плательщика контрагента. //указываем первого попавшегося СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты"); СпрКонтрагенты.ВыбратьЭлементы(); ПервыйПопавшийсяКонтрагент = ""; Пока СпрКонтрагенты.ПолучитьЭлемент() = 1 Цикл Если СпрКонтрагенты.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; ПервыйПопавшийсяКонтрагент = СпрКонтрагенты.ТекущийЭлемент(); Прервать; КонецЦикла; ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.НоваяКолонка("СчетОрганизации"); ВыборкаДанных.НоваяКолонка("ВалютаДокумента"); ВыборкаДанных.НоваяКолонка("СуммаДокумента"); ВыборкаДанных.НоваяКолонка("РасшифровкаПлатежа"); ВыборкаДанных.НоваяКолонка("Дата", "Дата"); ВыборкаДанных.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.НоваяКолонка("Контрагент"); ВыборкаДанных.НоваяКолонка("Комментарий"); //ВыборкаДанных.НоваяКолонка("ОтражатьВУправленческомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ОтражатьВБухгалтерскомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ОтражатьВНалоговомУчете", "Число",1,0); ВыборкаДанных.НоваяКолонка("ВидСчета", "Строка"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.БанковскиеСчета,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "55.3,55.4,55.33,55.44",,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Если ТекСчет.Валютный =0 Тогда Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Сум = Ит.СКД("С"); Если Сум<0 Тогда Продолжить; КонецЕсли; ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.СчетОрганизации = Ит.Субконто(1); ВыборкаДанных.ВалютаДокумента = Параметры.Рубли; ВыборкаДанных.СуммаДокумента = Сум; ВыборкаДанных.РасшифровкаПлатежа = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СуммаПлатежа"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.РасшифровкаПлатежа.НоваяСтрока(); ВыборкаДанных.РасшифровкаПлатежа.СуммаПлатежа = Сум; ВыборкаДанных.РасшифровкаПлатежа.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Дата = Параметры.ДатаВводаОстатков; ВыборкаДанных.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Контрагент = ПервыйПопавшийсяКонтрагент; ВыборкаДанных.Комментарий = "Ввод начальных остатков по р/с:"+ВыборкаДанных.СчетОрганизации.Номер+", сч.:"+ТекСчет.Код; //ВыборкаДанных.ОтражатьВУправленческомУчете = 1; ВыборкаДанных.ОтражатьВБухгалтерскомУчете = 1; ВыборкаДанных.ОтражатьВНалоговомУчете = 0; Если ТекСчет = СчетПоКоду("55.3") Тогда ВыборкаДанных.ВидСчета = "Депозитный"; ИначеЕсли ТекСчет = СчетПоКоду("55.4") Тогда ВыборкаДанных.ВидСчета = "Ссудный"; КонецЕсли; КонецЦикла; Иначе Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту() = 1 Цикл Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Сум = Ит.СКД("С"); СуммаВВалюте = Ит.СКД("В"); ТекВалюта = Ит.Валюта; Если СуммаВВалюте<0 Тогда Продолжить; КонецЕсли; ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.СчетОрганизации = Ит.Субконто(1); ВыборкаДанных.ВалютаДокумента = ТекВалюта; ВыборкаДанных.СуммаДокумента = СуммаВВалюте; ВыборкаДанных.РасшифровкаПлатежа = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СуммаПлатежа"); ВыборкаДанных.РасшифровкаПлатежа.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ВыборкаДанных.РасшифровкаПлатежа.НоваяСтрока(); ВыборкаДанных.РасшифровкаПлатежа.СуммаПлатежа = СуммаВВалюте; ВыборкаДанных.РасшифровкаПлатежа.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Дата = Параметры.ДатаВводаОстатков; ВыборкаДанных.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); ВыборкаДанных.Контрагент = ПервыйПопавшийсяКонтрагент; ВыборкаДанных.Комментарий = "Ввод начальных остатков по р/с:"+ВыборкаДанных.СчетОрганизации.Номер+", сч.:"+ТекСчет.Код+" "+ТекВалюта.Наименование; //ВыборкаДанных.ОтражатьВУправленческомУчете = 1; ВыборкаДанных.ОтражатьВБухгалтерскомУчете = 1; ВыборкаДанных.ОтражатьВНалоговомУчете = 0; Если ТекСчет = СчетПоКоду("55.33") Тогда ВыборкаДанных.ВидСчета = "Депозитный"; ИначеЕсли ТекСчет = СчетПоКоду("55.44") Тогда ВыборкаДанных.ВидСчета = "Ссудный"; КонецЕсли; КонецЦикла; КонецЦикла; КонецЕсли; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_3и4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч55_3и4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч55_3и4() Функция ПВД_ПередОбработкойПравила_Сч57_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("57.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч57_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч57_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч57_1() Функция ПВД_ПередОбработкойПравила_Сч57_11( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("57.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч57_11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч57_11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч57_11() Функция ПВД_ПередОбработкойПравила_Сч58_1_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.1.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_1_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_1_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч58_1_1() Функция ПВД_ПередОбработкойПравила_Сч58_1_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.1.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_1_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_1_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч58_1_2() Функция ПВД_ПередОбработкойПравила_Сч58_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч58_2() Функция ПВД_ПередОбработкойПравила_Сч58_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч58_3() Функция ПВД_ПередОбработкойПравила_Сч58_4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч58_4() Функция ПВД_ПередОбработкойПравила_Сч58_5( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч58_5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч58_5() Функция ПВД_ПередОбработкойПравила_Сч59( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("59")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч59", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч59" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч59() Функция ПВД_ПередОбработкойПравила_Сч63( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("63")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч63", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч63" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч63() Функция ПВД_ПередОбработкойПравила_Сч66_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_1() Функция ПВД_ПередОбработкойПравила_Сч66_11( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_11() Функция ПВД_ПередОбработкойПравила_Сч66_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_2() Функция ПВД_ПередОбработкойПравила_Сч66_22( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_22() Функция ПВД_ПередОбработкойПравила_Сч66_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_3() Функция ПВД_ПередОбработкойПравила_Сч66_33( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.33")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_33", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_33" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_33() Функция ПВД_ПередОбработкойПравила_Сч66_4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_4() Функция ПВД_ПередОбработкойПравила_Сч66_44( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.44")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_44", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_44" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_44() Функция ПВД_ПередОбработкойПравила_Сч66_5( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_5() Функция ПВД_ПередОбработкойПравила_Сч66_6( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("66.6") = 0 Тогда Отказ = 1; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч66_6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч66_6() Функция ПВД_ПередОбработкойПравила_Сч67_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_1() Функция ПВД_ПередОбработкойПравила_Сч67_11( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_11() Функция ПВД_ПередОбработкойПравила_Сч67_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_2() Функция ПВД_ПередОбработкойПравила_Сч67_22( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_22() Функция ПВД_ПередОбработкойПравила_Сч67_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_3() Функция ПВД_ПередОбработкойПравила_Сч67_33( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.33")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_33", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_33" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_33() Функция ПВД_ПередОбработкойПравила_Сч67_4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_4() Функция ПВД_ПередОбработкойПравила_Сч67_44( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.44")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_44", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_44" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_44() Функция ПВД_ПередОбработкойПравила_Сч67_5( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_5() Функция ПВД_ПередОбработкойПравила_Сч67_6( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("67.6") = 0 Тогда Отказ = 1; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч67_6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч67_6() Функция ПВД_ПередОбработкойПравила_Сч68_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_1() Функция ПВД_ПередОбработкойПравила_Сч68_10( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Счет = СоздатьОбъект("Счет.Основной"); Если Счет.НайтиПоКоду("68.10") = 0 Тогда Отказ = 1; Иначе Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.10")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_10() Функция ПВД_ПередОбработкойПравила_Сч68_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_2() Функция ПВД_ПередОбработкойПравила_Сч68_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_3() Функция ПВД_ПередОбработкойПравила_Сч68_4_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.4.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_4_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_4_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_4_1() Функция ПВД_ПередОбработкойПравила_Сч68_4_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.4.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_4_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_4_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_4_2() Функция ПВД_ПередОбработкойПравила_Сч68_5( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_5() Функция ПВД_ПередОбработкойПравила_Сч68_7( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.7")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_7() Функция ПВД_ПередОбработкойПравила_Сч68_8( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.8")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч68_8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч68_8() Функция ПВД_ПередОбработкойПравила_Сч69_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_1() Функция ПВД_ПередОбработкойПравила_Сч69_11( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_11() Функция ПВД_ПередОбработкойПравила_Сч69_12( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.12")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_12() Функция ПВД_ПередОбработкойПравила_Сч69_2_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.2.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_2_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_2_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_2_1() Функция ПВД_ПередОбработкойПравила_Сч69_2_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.2.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_2_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_2_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_2_2() Функция ПВД_ПередОбработкойПравила_Сч69_2_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.2.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_2_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_2_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_2_3() Функция ПВД_ПередОбработкойПравила_Сч69_3_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.3.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_3_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_3_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_3_1() Функция ПВД_ПередОбработкойПравила_Сч69_3_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.3.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_3_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч69_3_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч69_3_2() Функция ПВД_ПередОбработкойПравила_Сч70_Док( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Сч70 = СчетПоКоду("70"); Таб = СоздатьОбъект("ТаблицаЗначений"); Таб.НоваяКолонка("Физлицо"); Таб.НоваяКолонка("Результат"); Таб.НоваяКолонка("ПодразделениеОрганизации"); ВспПодразделение = СоздатьОбъект("СписокЗначений"); ВспПодразделение.Установить("ПометкаУдаления",0); ВспПодразделение.Установить("Код",""); ВспПодразделение.Установить("Наименование","Вспомогательное (для ввода остатков)"); ВспПодразделение.Установить("Родитель",""); КраткийСоставДокумента = ""; Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Сч70,,, 1,, "С"); Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл ФизЛицо = Ит.Субконто(1); Сумма = Ит.СКК("С"); Если Сумма > 0 Тогда Таб.НоваяСтрока(); Таб.Физлицо = Физлицо; Таб.Результат = Сумма; Если ПустоеЗначение(ФизЛицо.Подразделение.Получить(Параметры.ДатаВводаОстатков))=1 Тогда Таб.ПодразделениеОрганизации = ВспПодразделение; Иначе Таб.ПодразделениеОрганизации = ФизЛицо.Подразделение.Получить(Параметры.ДатаВводаОстатков); КонецЕсли; КонецЕсли; КонецЦикла; Таб.ВыбратьСтроки(); Пока Таб.ПолучитьСтроку() = 1 Цикл ФИОФизЛица = ФИО(Таб.ФизЛицо); Если Найти(КраткийСоставДокумента, ФИОФизЛица) = 0 Тогда Если СтрДлина(КраткийСоставДокумента) < 100 Тогда КраткийСоставДокумента = КраткийСоставДокумента + ", " + ФИОФизЛица; Иначе КраткийСоставДокумента = Сред(КраткийСоставДокумента,3,95) + "..."; Прервать; КонецЕсли; КонецЕсли; Если Лев(КраткийСоставДокумента,2) = ", " Тогда ДлинаСтроки = СтрДлина(КраткийСоставДокумента); Если ДлинаСтроки < 100 Тогда КраткийСоставДокумента = Сред(КраткийСоставДокумента,3) Иначе КраткийСоставДокумента = Сред(КраткийСоставДокумента,3,95) + "..."; КонецЕсли; КонецЕсли; КонецЦикла; Если Таб.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Комментарий", "Ввод остатков заработной платы"); ВходящиеДанные.Установить("КраткийСоставДокумента", КраткийСоставДокумента); ВходящиеДанные.Установить("Начисления", Таб); ВыгрузитьПоПравилу(ВходящиеДанные,, ,, "НачислениеЗарплатыРаботникамОрганизаций"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч70_Док", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч70_Док" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч70_Док() Функция ПВД_ПередОбработкойПравила_Сч70( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("70")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч70", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч70" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч70() Функция ПВД_ПередОбработкойПравила_Сч71( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Сч71 = СчетПоКоду("71"); Таб = СоздатьОбъект("ТаблицаЗначений"); Таб.НоваяКолонка("СуммаПлатежа"); Таб.НоваяКолонка("КурсВзаиморасчетов"); Таб.НоваяКолонка("КратностьВзаиморасчетов"); Таб.НоваяКолонка("СуммаВзаиморасчетов"); Таб.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); Прочее = СоздатьОбъект("ТаблицаЗначений"); Прочее.НоваяКолонка("Содержание"); Прочее.НоваяКолонка("Сумма"); Прочее.НоваяКолонка("СтатьяЗатрат"); Прочее.НоваяКолонка("СчетЗатрат"); ВспПодразделение = СоздатьОбъект("СписокЗначений"); ВспПодразделение.Установить("ПометкаУдаления",0); ВспПодразделение.Установить("Код",""); ВспПодразделение.Установить("Наименование","Вспомогательное (для ввода остатков)"); ВспПодразделение.Установить("Родитель",""); ТабПКО = СоздатьОбъект("ТаблицаЗначений"); ТабПКО.НоваяКолонка("ВалютаДокумента"); ТабПКО.НоваяКолонка("СуммаДокумента"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1); Ит.ВключатьСубсчета(-1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Сч71,,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл ФизЛицо = Ит.Субконто(1); Если ТекСчет.Валютный =0 Тогда ТекВалюта = Параметры.Рубли; Сумма = Ит.СКД("С") - Ит.СКК("С"); Если Сумма > 0 Тогда РКО = СоздатьОбъект("СписокЗначений"); Касса = СоздатьОбъект("СписокЗначений"); Касса.Установить("Наименование", "Основная касса "+ТекВалюта); Касса.Установить("ПометкаУдаления", 0); Касса.Установить("ВалютаДенежныхСредств",ТекВалюта); РКО.Установить("Касса", Касса); РКО.Установить("Контрагент", ФизЛицо); РКО.Установить("ВалютаДокумента", ТекВалюта); РКО.Установить("ВалютаВзаиморасчетовРаботника",ТекВалюта); РКО.Установить("СуммаДокумента", Сумма); РКО.Установить("СчетУчетаРасчетовСКонтрагентом", ТекСчет); РКО.Установить("ОтражатьВУправленческомУчете", 1); РКО.Установить("ОтражатьВБухгалтерскомУчете", 1); РКО.Установить("ОтражатьВНалоговомУчете", 1); Таб.УдалитьСтроки(); Таб.НоваяСтрока(); Таб.СуммаПлатежа = Сумма; Таб.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков); Таб.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); Таб.СуммаВзаиморасчетов = Сумма; Таб.СчетУчетаРасчетовСКонтрагентом = ТекСчет; РКО.Установить("РасшифровкаПлатежа", Таб); ВыгрузитьПоПравилу(РКО,, ,, "РасходныйКассовыйОрдерДляПО"); ТабПКО.НоваяСтрока(); ТабПКО.ВалютаДокумента = ТекВалюта; ТабПКО.СуммаДокумента = Сумма; Иначе АО = СоздатьОбъект("СписокЗначений"); АО.Установить("ФизЛицо", ФизЛицо); АО.Установить("ВалютаДокумента", ТекВалюта); АО.Установить("КурсДокумента", ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков)); АО.Установить("КратностьДокумента", ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков)); АО.Установить("ОтражатьВУправленческомУчете", 1); АО.Установить("ОтражатьВБухгалтерскомУчете", 1); АО.Установить("ОтражатьВНалоговомУчете", 1); Прочее.УдалитьСтроки(); Прочее.НоваяСтрока(); Прочее.Содержание = "Ввод остатков"; Прочее.Сумма = -Сумма; Прочее.СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); Прочее.СтатьяЗатрат.Установить("Наименование","Ввод остатков"); Прочее.СтатьяЗатрат.Установить("ВидЗатрат","Прочие"); Прочее.СтатьяЗатрат.Установить("ХарактерЗатрат","Прочие"); Прочее.СтатьяЗатрат.Установить("Родитель","Прочие"); Прочее.СтатьяЗатрат.Установить("СтатусМатериальныхЗатрат",""); Прочее.СтатьяЗатрат.Установить("ВидРасходовНУ","ПрочиеРасходы"); Прочее.СчетЗатрат = СчетПоКоду("00"); АО.Установить("Прочее", Прочее); ВыгрузитьПоПравилу(АО,, ,, "АвансовыйОтчетДляПО"); КонецЕсли; Иначе Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту() = 1 Цикл ТекВалюта = Ит.Валюта; Сумма = Ит.СКД("В") - Ит.СКК("В"); Если Сумма > 0 Тогда РКО = СоздатьОбъект("СписокЗначений"); Касса = СоздатьОбъект("СписокЗначений"); Касса.Установить("Наименование", "Основная касса "+ТекВалюта); Касса.Установить("ПометкаУдаления", 0); Касса.Установить("ВалютаДенежныхСредств",ТекВалюта); РКО.Установить("Касса", Касса); РКО.Установить("Контрагент", ФизЛицо); РКО.Установить("ВалютаДокумента", ТекВалюта); РКО.Установить("ВалютаВзаиморасчетовРаботника", ТекВалюта); РКО.Установить("СуммаДокумента", Сумма); РКО.Установить("СчетУчетаРасчетовСКонтрагентом", ТекСчет); РКО.Установить("ОтражатьВУправленческомУчете", 1); РКО.Установить("ОтражатьВБухгалтерскомУчете", 1); РКО.Установить("ОтражатьВНалоговомУчете", 1); Таб.УдалитьСтроки(); Таб.НоваяСтрока(); Таб.СуммаПлатежа = Сумма; Таб.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков); Таб.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); Таб.СуммаВзаиморасчетов = Сумма; Таб.СчетУчетаРасчетовСКонтрагентом = ТекСчет; РКО.Установить("РасшифровкаПлатежа", Таб); ВыгрузитьПоПравилу(РКО,, ,, "РасходныйКассовыйОрдерДляПО"); ТабПКО.НоваяСтрока(); ТабПКО.ВалютаДокумента = ТекВалюта; ТабПКО.СуммаДокумента = Сумма; Иначе АО = СоздатьОбъект("СписокЗначений"); АО.Установить("ФизЛицо", ФизЛицо); АО.Установить("ВалютаДокумента", ТекВалюта); АО.Установить("КурсДокумента", ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков)); АО.Установить("КратностьДокумента", ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков)); АО.Установить("ОтражатьВУправленческомУчете", 1); АО.Установить("ОтражатьВБухгалтерскомУчете", 1); АО.Установить("ОтражатьВНалоговомУчете", 1); Прочее.УдалитьСтроки(); Прочее.НоваяСтрока(); Прочее.Содержание = "Ввод остатков"; Прочее.Сумма = -Сумма; Прочее.СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); Прочее.СтатьяЗатрат.Установить("Наименование","Ввод остатков"); Прочее.СтатьяЗатрат.Установить("ВидЗатрат","Прочие"); Прочее.СтатьяЗатрат.Установить("ХарактерЗатрат","Прочие"); Прочее.СтатьяЗатрат.Установить("Родитель","Прочие"); Прочее.СтатьяЗатрат.Установить("СтатусМатериальныхЗатрат",""); Прочее.СтатьяЗатрат.Установить("ВидРасходовНУ","ПрочиеРасходы"); Прочее.СчетЗатрат = СчетПоКоду("00"); АО.Установить("Прочее", Прочее); ВыгрузитьПоПравилу(АО,, ,, "АвансовыйОтчетДляПО"); КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЦикла; ТабПКО.Свернуть("ВалютаДокумента","СуммаДокумента"); ТабПКО.ВыбратьСтроки(); Пока ТабПКО.ПолучитьСтроку() = 1 Цикл ПКО = СоздатьОбъект("СписокЗначений"); ПКО.Установить("Дата", Параметры.ДатаВводаОстатков); Касса = СоздатьОбъект("СписокЗначений"); Касса.Установить("Наименование", "Основная касса "+ТабПКО.ВалютаДокумента.Наименование); Касса.Установить("ПометкаУдаления", 0); Касса.Установить("ВалютаДенежныхСредств",ТабПКО.ВалютаДокумента); ПКО.Установить("Касса", Касса); ПКО.Установить("ВалютаДокумента", ТабПКО.ВалютаДокумента); ПКО.Установить("Комментарий", "Ввод остатков по подотчетным лицам "+ТабПКО.ВалютаДокумента.Наименование); ПКО.Установить("СуммаДокумента", ТабПКО.СуммаДокумента); ПКО.Установить("СчетУчетаРасчетовСКонтрагентом",СчетПоКоду("00")); ПКО.Установить("ОтражатьВУправленческомУчете", 1); ПКО.Установить("ОтражатьВБухгалтерскомУчете", 1); ПКО.Установить("ОтражатьВНалоговомУчете", 1); Таб.УдалитьСтроки(); Таб.НоваяСтрока(); Таб.СуммаПлатежа = ТабПКО.СуммаДокумента; Таб.СчетУчетаРасчетовСКонтрагентом = СчетПоКоду("00"); Таб.КурсВзаиморасчетов = ТабПКО.ВалютаДокумента.Курс.Получить(Параметры.ДатаВводаОстатков); Таб.КратностьВзаиморасчетов = ТабПКО.ВалютаДокумента.Кратность.Получить(Параметры.ДатаВводаОстатков); Таб.СуммаВзаиморасчетов = ТабПКО.СуммаДокумента; ПКО.Установить("РасшифровкаПлатежа", Таб); ВыгрузитьПоПравилу(ПКО,, ,, "ПриходныйКассовыйОрдер"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч71", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч71" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч71() Функция ПВД_ПередОбработкойПравила_Сч73_1_Док( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Сч73_1 = СчетПоКоду("73.1"); ВспПодразделение = СоздатьОбъект("СписокЗначений"); ВспПодразделение.Установить("ПометкаУдаления",0); ВспПодразделение.Установить("Код",""); ВспПодразделение.Установить("Наименование","Вспомогательное (для ввода остатков)"); ВспПодразделение.Установить("Родитель",""); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Сч73_1,,, 1,, "С"); Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл ФизЛицо = Ит.Субконто(1); СуммаЗайма = Ит.СКД("С"); Если СуммаЗайма > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ФизЛицо", ФизЛицо); ВходящиеДанные.Установить("СуммаЗайма", СуммаЗайма); ВходящиеДанные.Установить("Комментарий", "Ввод остатков займов работника: "+ФизЛицо.Наименование); ВыгрузитьПоПравилу(ВходящиеДанные,, ,, "ДоговорЗаймаСРаботником"); КонецЕсли; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_1_Док", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_1_Док" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч73_1_Док() Функция ПВД_ПередОбработкойПравила_Сч73_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("73.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч73_1() Функция ПВД_ПередОбработкойПравила_Сч73_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("73.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч73_2() Функция ПВД_ПередОбработкойПравила_Сч73_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("73.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч73_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч73_3() Функция ПВД_ПередОбработкойПравила_Сч75_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("75.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч75_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч75_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч75_1() Функция ПВД_ПередОбработкойПравила_Сч75_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("75.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч75_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч75_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч75_2() Функция ПВД_ПередОбработкойПравила_Сч75_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("75.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч75_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч75_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч75_3() Функция ПВД_ПередОбработкойПравила_Сч76_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч76_3() Функция ПВД_ПередОбработкойПравила_Сч76_4Док( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Сч76_4 = СчетПоКоду("76.4"); Таб = СоздатьОбъект("ТаблицаЗначений"); Таб.НоваяКолонка("Физлицо"); Таб.НоваяКолонка("Ведомость"); Таб.НоваяКолонка("Сумма"); Комментарий="Ввод остатков депонированных сумм"; //ЗарплатаКВыплатеОрганизаций = СоздатьОбъект("СписокЗначений"); //ЗарплатаКВыплатеОрганизаций.Установить("Комментарий",Комментарий); ВспПодразделение = СоздатьОбъект("СписокЗначений"); ВспПодразделение.Установить("ПометкаУдаления",0); ВспПодразделение.Установить("Код",""); ВспПодразделение.Установить("Наименование","Вспомогательное (для ввода остатков)"); ВспПодразделение.Установить("Родитель",""); //КраткийСоставДокумента = ""; Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Сотрудники,, 1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Сч76_4,,, 1,, "С"); Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл ФизЛицо = Ит.Субконто(1); Сумма = Ит.СКК("С"); Если Сумма > 0 Тогда Таб.НоваяСтрока(); Таб.Физлицо = Физлицо; //Таб.Ведомость = ЗарплатаКВыплатеОрганизаций; Таб.Ведомость = 1; Таб.Сумма = Сумма; КонецЕсли; КонецЦикла; Если Таб.КоличествоСтрок() > 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Комментарий", Комментарий); ВходящиеДанные.Установить("ВзаиморасчетыСДепонентамиОрганизаций", Таб); ВыгрузитьПоПравилу(ВходящиеДанные,, ,, "ВзаиморасчетыСДепонентамиОрганизаций"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_4Док", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_4Док" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч76_4Док() Функция ПВД_ПередОбработкойПравила_Сч76_4( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч76_4() Функция ПВД_ПередОбработкойПравила_Сч76_Н_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.Н.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_Н_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч76_Н_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч76_Н_2() Функция ПВД_ПередОбработкойПравила_Сч77( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("77")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч77", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч77" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч77() Функция ПВД_ПередОбработкойПравила_Сч79_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("79.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч79_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч79_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч79_1() Функция ПВД_ПередОбработкойПравила_Сч79_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("79.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч79_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч79_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч79_2() Функция ПВД_ПередОбработкойПравила_Сч79_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("79.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч79_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч79_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч79_3() Функция ПВД_ПередОбработкойПравила_Сч80( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("80")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч80", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч80" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч80() Функция ПВД_ПередОбработкойПравила_Сч81( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("81")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч81", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч81" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч81() Функция ПВД_ПередОбработкойПравила_Сч82( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("82")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч82", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч82" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч82() Функция ПВД_ПередОбработкойПравила_Сч83( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("83")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч83", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч83" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч83() Функция ПВД_ПередОбработкойПравила_Сч84( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("84")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч84", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч84" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч84() Функция ПВД_ПередОбработкойПравила_Сч86( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("86")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч86", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч86" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч86() Функция ПВД_ПередОбработкойПравила_Сч90( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч90", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч90" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч90() Функция ПВД_ПередОбработкойПравила_Сч91( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("91")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч91", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч91" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч91() Функция ПВД_ПередОбработкойПравила_Сч94( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("94")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч94", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч94" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч94() Функция ПВД_ПередОбработкойПравила_Сч96( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("96")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч96", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч96" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч96() Функция ПВД_ПередОбработкойПравила_Сч97( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("97")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч97", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч97" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч97() Функция ПВД_ПередОбработкойПравила_Сч98( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("98")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч98", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч98" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч98() Функция ПВД_ПередОбработкойПравила_Сч99( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("99")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч99", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Сч99" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Сч99() Функция ПВД_ПередОбработкойПравила_БанковскиеСчета( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Таб = СоздатьОбъект("ТаблицаЗначений"); Таб.НоваяКолонка("СчетОрганизации"); Таб.НоваяКолонка("ВидСчета","Строка"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.БанковскиеСчета,, 1); Ит.ВключатьСубсчета(-1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "51,52,55",,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Если ТекСчет.Валютный =0 Тогда Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Сум = Ит.СКД("С"); Если Сум<0 Тогда Продолжить; КонецЕсли; Таб.НоваяСтрока(); Таб.СчетОрганизации = Ит.Субконто(1); Если ТекСчет = СчетПоКоду("55.3") Тогда Таб.ВидСчета = "Депозитный"; ИначеЕсли ТекСчет = СчетПоКоду("55.4") Тогда Таб.ВидСчета = "Ссудный"; Иначе Таб.ВидСчета = "Расчетный"; КонецЕсли; КонецЦикла; Иначе Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту() = 1 Цикл Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Сум = Ит.СКД("С"); СуммаВВалюте = Ит.СКД("В"); ТекВалюта = Ит.Валюта; Если СуммаВВалюте<0 Тогда Продолжить; КонецЕсли; Таб.НоваяСтрока(); Таб.СчетОрганизации = Ит.Субконто(1); Если ТекСчет = СчетПоКоду("55.33") Тогда Таб.ВидСчета = "Депозитный"; ИначеЕсли ТекСчет = СчетПоКоду("55.44") Тогда Таб.ВидСчета = "Ссудный"; Иначе Таб.ВидСчета = "Расчетный"; КонецЕсли; КонецЦикла; КонецЦикла; КонецЕсли; КонецЦикла; Таб.Свернуть("СчетОрганизации, ВидСчета", ""); СпрБанковскиеСчета = СоздатьОбъект("Справочник.БанковскиеСчета"); СпрБанковскиеСчета.ВыбратьЭлементы(); Пока СпрБанковскиеСчета.ПолучитьЭлемент() = 1 Цикл НомСтроки = 0; Если Таб.НайтиЗначение(СпрБанковскиеСчета.ТекущийЭлемент(), НомСтроки, "СчетОрганизации") = 0 Тогда Таб.НоваяСтрока(); Таб.СчетОрганизации = СпрБанковскиеСчета.ТекущийЭлемент(); Если (СокрЛП(СпрБанковскиеСчета.ВидСчета) = "Ссудный") Тогда Таб.ВидСчета = "Ссудный"; ИначеЕсли (СокрЛП(СпрБанковскиеСчета.ВидСчета) = "Депозитный") Тогда Таб.ВидСчета = "Депозитный"; Иначе Таб.ВидСчета = "Расчетный"; КонецЕсли; КонецЕсли; КонецЦикла; Таб.ВыбратьСтроки(); Пока Таб.ПолучитьСтроку() = 1 Цикл ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ВидСчета", Таб.ВидСчета); ВыгрузитьПоПравилу(Таб.СчетОрганизации,, ВходящиеДанные,, "БанковскиеСчета"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_БанковскиеСчета", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_БанковскиеСчета" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_БанковскиеСчета() Функция ПВД_ПередОбработкойПравила_ДанныеПоНДСПоАвансамПолученным( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Сч76_АВ = СчетПоКоду("76.АВ"); ДанныеПоСФ = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.НоваяКолонка("Контрагент"); ДанныеПоСФ.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоСФ.НоваяКолонка("ДатаПлатежноРасчетногоДокумента", "Дата"); ДанныеПоСФ.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДанныеПоСФ.НоваяКолонка("ДатаСФ", "Дата"); ДанныеПоСФ.НоваяКолонка("НомерСФ", "Строка"); ДанныеПоСФ.НоваяКолонка("ВидЦенности", "Строка"); ДанныеПоСФ.НоваяКолонка("Номенклатура"); ДанныеПоСФ.НоваяКолонка("СтавкаНДС", "Строка"); ДанныеПоСФ.НоваяКолонка("СуммаБезНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ЗадолженностьВал", "Число"); ДанныеПоСФ.НоваяКолонка("НДС", "Число"); ДанныеПоСФ.НоваяКолонка("КлючСтроки"); ДанныеПоСФ.НоваяКолонка("СчетФактура"); ДанныеПоСФ.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ВалютаАванса"); ДополнительныеСведения = СоздатьОбъект("ТаблицаЗначений"); ДополнительныеСведения.НоваяКолонка("КлючСтроки"); ДополнительныеСведения.НоваяКолонка("Событие"); ДополнительныеСведения.НоваяКолонка("СчетУчетаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("СуммаБезНДС", "Число"); ДополнительныеСведения.НоваяКолонка("НДС", "Число"); ДополнительныеСведения.НоваяКолонка("ВидЦенности", "Строка"); ДополнительныеСведения.НоваяКолонка("Номенклатура"); ДополнительныеСведения.НоваяКолонка("СтавкаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); РасчетыСКонтрагентами = СоздатьОбъект("ТаблицаЗначений"); РасчетыСКонтрагентами.НоваяКолонка("Контрагент"); РасчетыСКонтрагентами.НоваяКолонка("ДоговорКонтрагента"); РасчетыСКонтрагентами.НоваяКолонка("ДокументОплаты"); РасчетыСКонтрагентами.НоваяКолонка("ВалютаВзаиморасчетов"); РасчетыСКонтрагентами.НоваяКолонка("СуммаВзаиморасчетов", "Число"); РасчетыСКонтрагентами.НоваяКолонка("ВалютнаяСуммаВзаиморасчетов", "Число"); РасчетыСКонтрагентами.НоваяКолонка("Аванс", "Число"); РасчетыСКонтрагентами.НоваяКолонка("СчетФактура"); РасчетыСКонтрагентами.НоваяКолонка("СуммаСУчетомПереоценки"); // Для формирования проводок РасчетыСКонтрагентами.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); РасчетыСКонтрагентами.НоваяКолонка("ВалютаБухУчета"); СписокСФ = СоздатьОбъект("ТаблицаЗначений"); СписокСФ.НоваяКолонка("Док"); СписокСФ.НоваяКолонка("Кол"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные); БухИт.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Сч76_АВ); СчетаФактурыВВалюте = СоздатьОбъект("СписокЗначений"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если ПустоеЗначение(БухИт.Субконто(1)) = 0 Тогда Если (БухИт.СКД() <> 0) и (ПустоеЗначение(БухИт.Субконто(1).Валюта) = 0) Тогда СчетаФактурыВВалюте.ДобавитьЗначение(БухИт.Субконто(1)); КонецЕсли; КонецЕсли; КонецЦикла; Если СчетаФактурыВВалюте.РазмерСписка() > 0 Тогда БухИтВал = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтВал.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные, СчетаФактурыВВалюте, 2); БухИтВал.ВыполнитьЗапрос('01.01.1980', Параметры.ДатаВводаОстатков, Сч76_АВ,,, 2); КонецЕсли; ТаблицаСтавок = СоздатьОбъект("ТаблицаЗначений"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Док = БухИт.Субконто(1); Если ПустоеЗначение(Док) = 1 Тогда Продолжить; ИначеЕсли ПустоеЗначение(Док.Договор) = 1 Тогда Сообщить("Не выгружены данные по счету-фактуре """ + Док + """: не указан договор.", "!"); Продолжить; КонецЕсли; СписокСФ.НоваяСтрока(); СписокСФ.Док = Док; СписокСФ.Кол = 1; ДатаСФ = Док.ДатаДок; НомерСФ = Док.НомерДок; ДатаРД = ?(ПустоеЗначение(Док.ДатаПлатРасчДок) = 1, Док.ДатаДок, Док.ДатаПлатРасчДок); НомерРД = ?(ПустоеЗначение(Док.НомерПлатРасчДок) = 1, Док.НомерДок, Док.НомерПлатРасчДок); ВидЦенности = ?(Док.НДСпоСтавкеНольПроцентов = 1 ,"АвансыПолученные0", "АвансыПолученные"); Договор = Док.Договор; ЦеныВДоговоре = 1; // в рублях ОплатаДоговора = 1; ВестиУчетРасчетовУЕ = 0; Курс = 1; Кратность = 1; Валюта = Параметры.Рубли; Если Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Договор.ВалютаДоговора) = 0 Тогда ЦеныВДоговоре = 2; // в валюте КонецЕсли; ОплатаДоговора = Договор.ОплатаДоговора; // 1 - врублях, 2 - в валюте ВестиУчетРасчетовУЕ = Договор.ВестиУчетРасчетовУЕ; КонецЕсли; Если ЦеныВДоговоре = 2 Тогда Курс = Док.Курс; Валюта = Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Док.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КонецЕсли; ДанныеПоСФ.НоваяСтрока(); ДанныеПоСФ.Контрагент = Док.Контрагент; ДанныеПоСФ.ДоговорКонтрагента = Договор; ДанныеПоСФ.ДатаСФ = ДатаСФ; ДанныеПоСФ.НомерСФ = НомерСФ; ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента = ДатаРД; ДанныеПоСФ.НомерПлатежноРасчетногоДокумента = НомерРД; ДанныеПоСФ.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДанныеПоСФ.СчетФактура = СоздатьОбъект("СписокЗначений"); ДанныеПоСФ.СчетФактура.Установить("Дата", Док.ДатаДок); ДанныеПоСФ.СчетФактура.Установить("Комментарий",""+СокрЛП(Док.Вид())+" № "+Док.НомерДок+" от "+Док.ДатаДок); ДанныеПоСФ.СчетФактура.Установить("Контрагент", ДанныеПоСФ.Контрагент); ДанныеПоСФ.СчетФактура.Установить("ДоговорКонтрагента", ДанныеПоСФ.ДоговорКонтрагента); ДанныеПоСФ.СчетФактура.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоСФ.ВалютаАванса = ?(ОплатаДоговора = 2, Валюта, Параметры.Рубли); ТаблицаСтавок.Очистить(); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.НоваяКолонка("НДС"); ТаблицаСтавок.НоваяКолонка("ЗадолженностьВал", "Число"); Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ВидЦенности; ТаблицаСтавок.СуммаБезНДС = Док.Сумма; ТаблицаСтавок.НДС = Док.НДС; ТаблицаСтавок.ЗадолженностьВал = Док.Сумма; Ставка = ?(ПустоеЗначение(Док.СтавкаНДС) = 0, Док.СтавкаНДС.Ставка, 0); Если Ставка > 10.5 Тогда ТаблицаСтавок.Ставка = "НДС18_118"; ИначеЕсли Ставка > 0 Тогда ТаблицаСтавок.Ставка = "НДС10_110"; Иначе ТаблицаСтавок.Ставка = "БезНДС"; КонецЕсли; КонецЦикла; ТаблицаСтавок.Свернуть("ВидЦенности,Ставка", "СуммаБезНДС,НДС,ЗадолженностьВал"); ТаблицаСтавок.Сортировать("Ставка"); БухИт.ВыбратьСчета(); Пока БухИт.ПолучитьСчет() = 1 Цикл НомСтроки = 1; Пока НомСтроки <= ТаблицаСтавок.КоличествоСтрок() Цикл Если ТаблицаСтавок.ПолучитьЗначение(НомСтроки, "НДС") = 0 Тогда ТаблицаСтавок.УдалитьСтроку(НомСтроки); Иначе НомСтроки = НомСтроки + 1; КонецЕсли; КонецЦикла; ТекущееСальдо = БухИт.СКД(); РаспределеноСуммаБезНДС = 0; СуммаПоКолонкеСуммаБезНДС = 0; РаспределеноНДС = 0; СуммаПоКолонкеНДС = ТаблицаСтавок.Итог("НДС"); Если СуммаПоКолонкеНДС <> 0 Тогда ЗначениеКолонкиНДС = 0; ЗначениеКолонкиСуммаБезНДС = 0; Если (ОплатаДоговора = 2) или (ВестиУчетРасчетовУЕ = 1) Тогда Если БухИтВал.ПолучитьСубконто(1,, Док) = 1 Тогда СуммаНДСВсегоРуб = БухИтВал.ДО(); Иначе СуммаНДСВсегоРуб = 0; КонецЕсли; Если СуммаНДСВсегоРуб = 0 Тогда Продолжить; КонецЕсли; Иначе СуммаНДСВсегоРуб = СуммаПоКолонкеНДС; КонецЕсли; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ЗначениеКолонкиНДС = ТаблицаСтавок.НДС; ЗначениеКолонкиСуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ЗначениеКолонкиЗадолженность = ТаблицаСтавок.ЗадолженностьВал; ЗначениеКолонкиНДС = Окр(ЗначениеКолонкиНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиСуммаБезНДС = Окр(ЗначениеКолонкиСуммаБезНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиЗадолженность = Окр(ЗначениеКолонкиЗадолженность * ТекущееСальдо / СуммаНДСВсегоРуб, 2, 1); РаспределеноНДС = РаспределеноНДС + ЗначениеКолонкиНДС; РаспределеноСуммаБезНДС = РаспределеноСуммаБезНДС + ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.НДС = ЗначениеКолонкиНДС; ТаблицаСтавок.СуммаБезНДС = ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.ЗадолженностьВал = ЗначениеКолонкиЗадолженность; КонецЦикла; НомПоследнейСтроки = ТаблицаСтавок.КоличествоСтрок(); Если РаспределеноНДС <> ТекущееСальдо Тогда ЗначениеКолонкиНДС = ЗначениеКолонкиНДС + ТекущееСальдо - РаспределеноНДС; ТаблицаСтавок.УстановитьЗначение(НомПоследнейСтроки, "НДС", ЗначениеКолонкиНДС); КонецЕсли; КонецЕсли; КонецЦикла; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ДополнительныеСведения.НоваяСтрока(); ДополнительныеСведения.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДополнительныеСведения.СуммаБезНДС = ТаблицаСтавок.СуммаБезНДС - ТаблицаСтавок.НДС; ДополнительныеСведения.НДС = ТаблицаСтавок.НДС; ДополнительныеСведения.ВидЦенности = ?(ТаблицаСтавок.ВидЦенности = "", ВидЦенности, ТаблицаСтавок.ВидЦенности); ДополнительныеСведения.СтавкаНДС = ТаблицаСтавок.Ставка; ДополнительныеСведения.ВалютнаяСуммаСНДС = ТаблицаСтавок.ЗадолженностьВал; ДанныеПоСФ.СуммаБезНДС = ДанныеПоСФ.СуммаБезНДС + ТаблицаСтавок.СуммаБезНДС - ТаблицаСтавок.НДС; ДанныеПоСФ.НДС = ДанныеПоСФ.НДС + ТаблицаСтавок.НДС; ДанныеПоСФ.ЗадолженностьВал = ДанныеПоСФ.ЗадолженностьВал + ТаблицаСтавок.ЗадолженностьВал; ДанныеПоСФ.ВалютнаяСуммаСНДС = ДанныеПоСФ.ВалютнаяСуммаСНДС + ТаблицаСтавок.ЗадолженностьВал; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ДанныеПоСФ", ДанныеПоСФ); ВходящиеДанные.Установить("ДополнительныеСведения", ДополнительныеСведения); ВходящиеДанные.Установить("Комментарий", "Ввод остатков НДС"); ВходящиеДанные.Установить("ВидОперации", "НДСпоАвансамПолученным"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНДС"); //а теперь надо создать счета фактуры СписокСФ.Свернуть("Док","Кол"); СписокСФ.ВыбратьСтроки(); Пока СписокСФ.ПолучитьСтроку()=1 Цикл ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Номер",СписокСФ.Док.Номердок); ИсходящиеДанные.Установить("Дата",СписокСФ.Док.ДатаДок); Если Метаданные.Документ(СписокСФ.Док.Вид()).РеквизитШапки("НомерПлатРасчДок").Выбран() = 1 Тогда ИсходящиеДанные.Установить("НомерПлатежноРасчетногоДокумента",СписокСФ.Док.НомерПлатРасчДок); ИсходящиеДанные.Установить("ДатаПлатежноРасчетногоДокумента",СписокСФ.Док.ДатаПлатРасчДок); Иначе ИсходящиеДанные.Установить("НомерПлатежноРасчетногоДокумента",""); ИсходящиеДанные.Установить("ДатаПлатежноРасчетногоДокумента",""); КонецЕсли; ИсходящиеДанные.Установить("Контрагент",СписокСФ.Док.Контрагент); ИсходящиеДанные.Установить("ВидСчетаФактуры", "НаАванс"); ИсходящиеДанные.Установить("ДоговорКонтрагента",СписокСФ.Док.Договор); ИсходящиеДанные.Установить("КредДокумент",СписокСФ.Док); Стр = ""+СокрЛП(СписокСФ.Док.Вид())+" № "+СписокСФ.Док.НомерДок+" от "+СписокСФ.Док.ДатаДок; ИсходящиеДанные.Установить("Комментарий",Стр); ТТ = СоздатьОбъект("ТаблицаЗначений"); ТТ.НоваяКолонка("ДокументОснование"); ТТ.НоваяСтрока(); ДокументОснование = СоздатьОбъект("СписокЗначений"); ДокументОснование.Установить("Дата", СписокСФ.Док.ДатаДок); ДокументОснование.Установить("Комментарий",""+СокрЛП(СписокСФ.Док.Вид())+" № "+СписокСФ.Док.НомерДок+" от "+СписокСФ.Док.ДатаДок); ДокументОснование.Установить("Контрагент", СписокСФ.Док.Контрагент); ДокументОснование.Установить("ДоговорКонтрагента", СписокСФ.Док.Договор); ДокументОснование.Установить("ВалютаДокумента", Параметры.Рубли); ТТ.ДокументОснование = ДокументОснование; ИсходящиеДанные.Установить("ДокументОснование",ДокументОснование); ИсходящиеДанные.Установить("ДокументыОснования",ТТ); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "СчетФактураВыданный"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДанныеПоНДСПоАвансамПолученным", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДанныеПоНДСПоАвансамПолученным" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ДанныеПоНДСПоАвансамПолученным() Функция ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПокупателям( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Сч76_Н_1 = СчетПоКоду("76.Н.1"); ДанныеПоСФ = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.НоваяКолонка("Контрагент"); ДанныеПоСФ.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоСФ.НоваяКолонка("ДатаПлатежноРасчетногоДокумента", "Дата"); ДанныеПоСФ.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДанныеПоСФ.НоваяКолонка("ДатаСФ", "Дата"); ДанныеПоСФ.НоваяКолонка("НомерСФ", "Строка"); ДанныеПоСФ.НоваяКолонка("ВидЦенности", "Строка"); ДанныеПоСФ.НоваяКолонка("Номенклатура"); ДанныеПоСФ.НоваяКолонка("СтавкаНДС", "Строка"); ДанныеПоСФ.НоваяКолонка("СуммаБезНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ЗадолженностьВал", "Число"); ДанныеПоСФ.НоваяКолонка("НДС", "Число"); ДанныеПоСФ.НоваяКолонка("КлючСтроки"); ДанныеПоСФ.НоваяКолонка("СчетФактура"); ДанныеПоСФ.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ВалютаАванса"); ДополнительныеСведения = СоздатьОбъект("ТаблицаЗначений"); ДополнительныеСведения.НоваяКолонка("КлючСтроки"); ДополнительныеСведения.НоваяКолонка("Событие"); ДополнительныеСведения.НоваяКолонка("СчетУчетаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("СуммаБезНДС", "Число"); ДополнительныеСведения.НоваяКолонка("НДС", "Число"); ДополнительныеСведения.НоваяКолонка("ВидЦенности", "Строка"); ДополнительныеСведения.НоваяКолонка("Номенклатура"); ДополнительныеСведения.НоваяКолонка("СтавкаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); РасчетыСКонтрагентами = СоздатьОбъект("ТаблицаЗначений"); РасчетыСКонтрагентами.НоваяКолонка("Контрагент"); РасчетыСКонтрагентами.НоваяКолонка("ДоговорКонтрагента"); РасчетыСКонтрагентами.НоваяКолонка("ДокументОплаты"); РасчетыСКонтрагентами.НоваяКолонка("ВалютаВзаиморасчетов"); РасчетыСКонтрагентами.НоваяКолонка("СуммаВзаиморасчетов", "Число"); РасчетыСКонтрагентами.НоваяКолонка("ВалютнаяСуммаВзаиморасчетов", "Число"); РасчетыСКонтрагентами.НоваяКолонка("Аванс", "Число"); РасчетыСКонтрагентами.НоваяКолонка("СчетФактура"); РасчетыСКонтрагентами.НоваяКолонка("СуммаСУчетомПереоценки"); // Для формирования проводок РасчетыСКонтрагентами.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); РасчетыСКонтрагентами.НоваяКолонка("ВалютаБухУчета"); СписокСФ = СоздатьОбъект("ТаблицаЗначений"); СписокСФ.НоваяКолонка("Док"); СписокСФ.НоваяКолонка("Кол"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные); БухИт.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, Сч76_Н_1); СчетаФактурыВВалюте = СоздатьОбъект("СписокЗначений"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если ПустоеЗначение(БухИт.Субконто()) = 0 Тогда Если (БухИт.СКК() <> 0) и (ПустоеЗначение(БухИт.Субконто(1).Валюта) = 0) Тогда СчетаФактурыВВалюте.ДобавитьЗначение(БухИт.Субконто(1)); КонецЕсли; КонецЕсли; КонецЦикла; Если СчетаФактурыВВалюте.РазмерСписка() > 0 Тогда БухИтВал = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтВал.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные, СчетаФактурыВВалюте, 2); БухИтВал.ВыполнитьЗапрос('01.01.1980', Параметры.ДатаВводаОстатков, Сч76_Н_1,,, 2); КонецЕсли; ТаблицаСтавок = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.УдалитьСтроки(); ДополнительныеСведения.УдалитьСтроки(); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Док = БухИт.Субконто(1); Если ПустоеЗначение(Док) = 1 Тогда Продолжить; КонецЕсли; ДатаСФ = Док.ДатаДок; НомерСФ = Док.Номердок; СписокСФ.НоваяСтрока(); СписокСФ.Док = Док; СписокСФ.Кол = 1; Договор = Док.Договор; ДанныеПоСФ.НоваяСтрока(); ДанныеПоСФ.Контрагент = Договор.Владелец; ДанныеПоСФ.ДоговорКонтрагента = Договор; ДанныеПоСФ.ДатаСФ = ДатаСФ; ДанныеПоСФ.НомерСФ = НомерСФ; ДанныеПоСФ.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДанныеПоСФ.СчетФактура = СоздатьОбъект("СписокЗначений"); ДанныеПоСФ.СчетФактура.Установить("Дата", Док.ДатаДок); ДанныеПоСФ.СчетФактура.Установить("Комментарий",""+СокрЛП(Док.Вид())+" № "+Док.НомерДок+" от "+Док.ДатаДок); ДанныеПоСФ.СчетФактура.Установить("Контрагент", ДанныеПоСФ.Контрагент); ДанныеПоСФ.СчетФактура.Установить("ДоговорКонтрагента", ДанныеПоСФ.ДоговорКонтрагента); ДанныеПоСФ.СчетФактура.Установить("ВалютаДокумента", Параметры.Рубли); ТаблицаСтавок.Очистить(); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("Номенклатура"); ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.НоваяКолонка("НДС"); Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл Вид = Док.Товар.Вид(); Если Вид = "Номенклатура" Тогда Если Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если Док.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда Продолжить; ИначеЕсли Док.Товар.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда Продолжить; Иначе ВидЦенности = "Товары"; КонецЕсли; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда ВидЦенности = "Товары"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда ВидЦенности = "Товары"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга Тогда ВидЦенности = "ПрочиеРаботыИУслуги"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Работа Тогда ВидЦенности = "ПрочиеРаботыИУслуги"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга Тогда ВидЦенности = "ПосредническиеУслуги"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда Продолжить; Иначе ВидЦенности = "Товары"; КонецЕсли; ИначеЕсли Вид = "Материалы" Тогда ВидЦенности = "Материалы"; ИначеЕсли Вид = "ОсновныеСредства" Тогда ВидЦенности = "ОС"; ИначеЕсли Вид = "НематериальныеАктивы" Тогда ВидЦенности = "НМА"; Иначе ВидЦенности = "Товары"; КонецЕсли; ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ВидЦенности; ТаблицаСтавок.Номенклатура = Док.Товар; ТаблицаСтавок.СуммаБезНДС = Док.Сумма; ТаблицаСтавок.НДС = Док.НДС; Если Док.НДСпоСтавкеНольПроцентов = 1 Тогда ТаблицаСтавок.Ставка = "НДС0" Иначе Ставка = ?(ПустоеЗначение(Док.СтавкаНДС) = 0, Док.СтавкаНДС.Ставка, 0); Если Ставка > 10.5 Тогда ТаблицаСтавок.Ставка = "НДС18"; ИначеЕсли Ставка > 0 Тогда ТаблицаСтавок.Ставка = "НДС10"; Иначе ТаблицаСтавок.Ставка = "БезНДС"; КонецЕсли; КонецЕсли; КонецЦикла; ЦеныВДоговоре = 1; // в рублях ОплатаДоговора = 1; ВестиУчетРасчетовУЕ = 0; Курс = 1; Кратность = 1; Если Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Договор.ВалютаДоговора) = 0 Тогда ЦеныВДоговоре = 2; // в валюте КонецЕсли; ОплатаДоговора = Договор.ОплатаДоговора; // 1 - врублях, 2 - в валюте ВестиУчетРасчетовУЕ = Договор.ВестиУчетРасчетовУЕ; КонецЕсли; Если ЦеныВДоговоре = 2 Тогда Курс = Док.Курс; Валюта = Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Док.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КонецЕсли; ТаблицаСтавок.НоваяКолонка("ЗадолженностьВал", "Число"); ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл Если (ТаблицаСтавок.Ставка = "НДС18") или (ТаблицаСтавок.Ставка = "НДС10") Тогда ТаблицаСтавок.ЗадолженностьВал = ТаблицаСтавок.СуммаБезНДС + ТаблицаСтавок.НДС; Иначе ТаблицаСтавок.ЗадолженностьВал = ТаблицаСтавок.СуммаБезНДС; КонецЕсли; КонецЦикла; ТаблицаСтавок.Свернуть("ВидЦенности,Номенклатура,Ставка", "СуммаБезНДС,НДС,ЗадолженностьВал"); ТаблицаСтавок.Сортировать("Ставка"); НомСтроки = 1; Пока НомСтроки <= ТаблицаСтавок.КоличествоСтрок() Цикл Если ТаблицаСтавок.ПолучитьЗначение(НомСтроки, "НДС") = 0 Тогда ТаблицаСтавок.УдалитьСтроку(НомСтроки); Иначе НомСтроки = НомСтроки + 1; КонецЕсли; КонецЦикла; ТекущееСальдо = БухИт.СКК(); РаспределеноСуммаБезНДС = 0; СуммаПоКолонкеСуммаБезНДС = 0; РаспределеноНДС = 0; СуммаПоКолонкеНДС = ТаблицаСтавок.Итог("НДС"); Если СуммаПоКолонкеНДС <> 0 Тогда ЗначениеКолонкиНДС = 0; ЗначениеКолонкиСуммаБезНДС = 0; Если (ОплатаДоговора = 2) или (ВестиУчетРасчетовУЕ = 1) Тогда Если БухИтВал.ПолучитьСубконто(1,, Док) = 1 Тогда СуммаНДСВсегоРуб = БухИтВал.КО(); Иначе СуммаНДСВсегоРуб = 0; КонецЕсли; Если СуммаНДСВсегоРуб = 0 Тогда Продолжить; КонецЕсли; Иначе СуммаНДСВсегоРуб = СуммаПоКолонкеНДС; КонецЕсли; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ЗначениеКолонкиНДС = ТаблицаСтавок.НДС; ЗначениеКолонкиСуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ЗначениеКолонкиЗадолженность = ТаблицаСтавок.ЗадолженностьВал; ЗначениеКолонкиНДС = Окр(ЗначениеКолонкиНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиСуммаБезНДС = Окр(ЗначениеКолонкиСуммаБезНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиЗадолженность = Окр(ЗначениеКолонкиЗадолженность * ТекущееСальдо / СуммаНДСВсегоРуб, 2, 1); РаспределеноНДС = РаспределеноНДС + ЗначениеКолонкиНДС; РаспределеноСуммаБезНДС = РаспределеноСуммаБезНДС + ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.НДС = ЗначениеКолонкиНДС; ТаблицаСтавок.СуммаБезНДС = ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.ЗадолженностьВал = ЗначениеКолонкиЗадолженность; КонецЦикла; НомПоследнейСтроки = ТаблицаСтавок.КоличествоСтрок(); Если РаспределеноНДС <> ТекущееСальдо Тогда ЗначениеКолонкиНДС = ЗначениеКолонкиНДС + ТекущееСальдо - РаспределеноНДС; ТаблицаСтавок.УстановитьЗначение(НомПоследнейСтроки, "НДС", ЗначениеКолонкиНДС); КонецЕсли; КонецЕсли; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ДополнительныеСведения.НоваяСтрока(); ДополнительныеСведения.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДополнительныеСведения.СуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ДополнительныеСведения.НДС = ТаблицаСтавок.НДС; ДополнительныеСведения.ВидЦенности = ?(ТаблицаСтавок.ВидЦенности = "", ВидЦенности, ТаблицаСтавок.ВидЦенности); ДополнительныеСведения.СтавкаНДС = ТаблицаСтавок.Ставка; ДополнительныеСведения.Номенклатура = ТаблицаСтавок.Номенклатура; ДанныеПоСФ.СуммаБезНДС = ДанныеПоСФ.СуммаБезНДС + ТаблицаСтавок.СуммаБезНДС; ДанныеПоСФ.НДС = ДанныеПоСФ.НДС + ТаблицаСтавок.НДС; ДанныеПоСФ.ЗадолженностьВал = ДанныеПоСФ.ЗадолженностьВал + ТаблицаСтавок.ЗадолженностьВал; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ДанныеПоСФ", ДанныеПоСФ); ВходящиеДанные.Установить("ДополнительныеСведения", ДополнительныеСведения); ВходящиеДанные.Установить("Комментарий", "Ввод остатков НДС"); ВходящиеДанные.Установить("ВидОперации", "НДСНеПолученныйОтПокупателей"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНДС"); //а теперь надо создать счета фактуры СписокСФ.Свернуть("Док","Кол"); СписокСФ.ВыбратьСтроки(); Пока СписокСФ.ПолучитьСтроку()=1 Цикл ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Номер",СписокСФ.Док.Номердок); ИсходящиеДанные.Установить("Дата",СписокСФ.Док.ДатаДок); Если Метаданные.Документ(СписокСФ.Док.Вид()).РеквизитШапки("НомерПлатРасчДок").Выбран() = 1 Тогда ИсходящиеДанные.Установить("НомерПлатежноРасчетногоДокумента",СписокСФ.Док.НомерПлатРасчДок); ИсходящиеДанные.Установить("ДатаПлатежноРасчетногоДокумента",СписокСФ.Док.ДатаПлатРасчДок); Иначе ИсходящиеДанные.Установить("НомерПлатежноРасчетногоДокумента",""); ИсходящиеДанные.Установить("ДатаПлатежноРасчетногоДокумента",Дата("")); КонецЕсли; ИсходящиеДанные.Установить("Контрагент",СписокСФ.Док.Контрагент); ИсходящиеДанные.Установить("ВидСчетаФактуры", "НаРеализацию"); ИсходящиеДанные.Установить("ДоговорКонтрагента",СписокСФ.Док.Договор); ИсходящиеДанные.Установить("КредДокумент",СписокСФ.Док); Стр = ""+СокрЛП(СписокСФ.Док.Вид())+" № "+СписокСФ.Док.НомерДок+" от "+СписокСФ.Док.ДатаДок; ИсходящиеДанные.Установить("Комментарий",Стр); ТТ = СоздатьОбъект("ТаблицаЗначений"); ТТ.НоваяКолонка("ДокументОснование"); ТТ.НоваяСтрока(); ДокументОснование = СоздатьОбъект("СписокЗначений"); ДокументОснование.Установить("Дата", СписокСФ.Док.ДатаДок); ДокументОснование.Установить("Комментарий",""+СокрЛП(СписокСФ.Док.Вид())+" № "+СписокСФ.Док.НомерДок+" от "+СписокСФ.Док.ДатаДок); ДокументОснование.Установить("Контрагент", СписокСФ.Док.Контрагент); ДокументОснование.Установить("ДоговорКонтрагента", СписокСФ.Док.Договор); ДокументОснование.Установить("ВалютаДокумента", Параметры.Рубли); ТТ.ДокументОснование = ДокументОснование; ИсходящиеДанные.Установить("ДокументОснование",ДокументОснование); ИсходящиеДанные.Установить("ДокументыОснования",ТТ); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "СчетФактураВыданный"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПокупателям", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПокупателям" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПокупателям() Функция ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПоставщикам( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ДанныеПоСФ = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.НоваяКолонка("Контрагент"); ДанныеПоСФ.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоСФ.НоваяКолонка("ДатаПлатежноРасчетногоДокумента", "Дата"); ДанныеПоСФ.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДанныеПоСФ.НоваяКолонка("ДатаСФ", "Дата"); ДанныеПоСФ.НоваяКолонка("НомерСФ", "Строка"); ДанныеПоСФ.НоваяКолонка("ВидЦенности", "Строка"); ДанныеПоСФ.НоваяКолонка("Номенклатура"); ДанныеПоСФ.НоваяКолонка("СтавкаНДС", "Строка"); ДанныеПоСФ.НоваяКолонка("ПредъявленСФ", "Число"); ДанныеПоСФ.НоваяКолонка("СуммаБезНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ЗадолженностьВал", "Число"); ДанныеПоСФ.НоваяКолонка("НДС", "Число"); ДанныеПоСФ.НоваяКолонка("КлючСтроки"); ДанныеПоСФ.НоваяКолонка("СчетФактура"); ДанныеПоСФ.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ВалютаАванса"); ДополнительныеСведения = СоздатьОбъект("ТаблицаЗначений"); ДополнительныеСведения.НоваяКолонка("КлючСтроки"); ДополнительныеСведения.НоваяКолонка("Событие"); ДополнительныеСведения.НоваяКолонка("СчетУчетаНДС"); ДополнительныеСведения.НоваяКолонка("СуммаБезНДС", "Число"); ДополнительныеСведения.НоваяКолонка("НДС", "Число"); ДополнительныеСведения.НоваяКолонка("ВидЦенности", "Строка"); ДополнительныеСведения.НоваяКолонка("Номенклатура"); ДополнительныеСведения.НоваяКолонка("СтавкаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); РасчетыСКонтрагентами = СоздатьОбъект("ТаблицаЗначений"); РасчетыСКонтрагентами.НоваяКолонка("Контрагент"); РасчетыСКонтрагентами.НоваяКолонка("ДоговорКонтрагента"); РасчетыСКонтрагентами.НоваяКолонка("ДокументОплаты"); РасчетыСКонтрагентами.НоваяКолонка("ВалютаВзаиморасчетов"); РасчетыСКонтрагентами.НоваяКолонка("СуммаВзаиморасчетов", "Число"); РасчетыСКонтрагентами.НоваяКолонка("ВалютнаяСуммаВзаиморасчетов", "Число"); РасчетыСКонтрагентами.НоваяКолонка("Аванс", "Число"); РасчетыСКонтрагентами.НоваяКолонка("СчетФактура"); СписокСФ = СоздатьОбъект("ТаблицаЗначений"); СписокСФ.НоваяКолонка("Док"); СписокСФ.НоваяКолонка("СФ"); СписокСФ.НоваяКолонка("Кол"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ВключатьСубсчета(-1); БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные); БухИт.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "19"); СчетаФактурыВВалюте = СоздатьОбъект("СписокЗначений"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если ПустоеЗначение(БухИт.Субконто(1)) = 0 Тогда Если ПустоеЗначение(БухИт.Субконто(1).Договор) = 0 Тогда Если (БухИт.СКД() <> 0) и (ПустоеЗначение(БухИт.Субконто(1).Договор.ВалютаДоговора) = 0) Тогда СчетаФактурыВВалюте.ДобавитьЗначение(БухИт.Субконто(1)); КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если СчетаФактурыВВалюте.РазмерСписка() > 0 Тогда БухИтВал = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтВал.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные, СчетаФактурыВВалюте, 2); БухИтВал.ВыполнитьЗапрос('01.01.1980', Параметры.ДатаВводаОстатков, "19",,, 2); КонецЕсли; ТаблицаСтавок = СоздатьОбъект("ТаблицаЗначений"); ТаблицаУслуг = СоздатьОбъект("ТаблицаЗначений"); Сч19 = СчетПоКоду("19"); Сч19_1 = СчетПоКоду("19.1"); Сч19_2 = СчетПоКоду("19.2"); Сч19_3 = СчетПоКоду("19.3"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл СФ = БухИт.Субконто(1); Если ПустоеЗначение(СФ) = 1 Тогда //Сч.фактура не Предъявлен Продолжить; ИначеЕсли ПустоеЗначение(СФ.Договор) = 1 Тогда Сообщить("Не выгружены данные по счету-фактуре """ + СФ + """: не указан договор.", "!"); Продолжить; КонецЕсли; ДатаСФ = СФ.ДатаДок; НомерСФ = СФ.НомерДок; Договор = СФ.Договор; ТаблицаСтавок.Очистить(); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.НоваяКолонка("Всего"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.НоваяКолонка("НДС"); //Если СФ.Вид() <> "СчетФактураПолученный" Тогда // ДатаНомер = СокрЛП(СФ.ДатаНомерСчетаФактуры); // Если ПустоеЗначение(ДатаНомер) = 0 Тогда // ПозицияПробела = Найти(ДатаНомер, " "); // Если ПозицияПробела > 0 Тогда // ДатаСФ = Дата(Лев(ДатаНомер, ПозицияПробела-1)); // НомерСФ = Прав(ДатаНомер, СтрДлина(ДатаНомер) - ПозицияПробела); // Иначе // НомерСФ = ДатаНомер; // КонецЕсли; // КонецЕсли; //КонецЕсли; Если СФ.Вид() <> "СчетФактураПолученный" Тогда Если Метаданные.Документ(СФ.Вид()).РеквизитШапки("ДатаНомерСчетаФактуры").Выбран() = 1 Тогда ДатаНомер = СокрЛП(СФ.ДатаНомерСчетаФактуры); Если ПустоеЗначение(ДатаНомер) = 0 Тогда ДатаНомер = СтрЗаменить(ДатаНомер,"от"," "); Пока Найти(ДатаНомер, " ")>0 Цикл ДатаНомер = СтрЗаменить(ДатаНомер," "," "); КонецЦикла; Пока Найти(ДатаНомер, "№ ")>0 Цикл ДатаНомер = СтрЗаменить(ДатаНомер,"№ ","№"); КонецЦикла; Пока Найти(ДатаНомер, "N ")>0 Цикл ДатаНомер = СтрЗаменить(ДатаНомер,"N ","№"); КонецЦикла; ПозицияПробела = Найти(ДатаНомер, " "); Если ПозицияПробела > 0 Тогда Если (Лев(ДатаНомер, 1)="№") или (Лев(ДатаНомер, 1)="N") Тогда НомерСФ = Сред(ДатаНомер, 2, ПозицияПробела-1); ДатаСФ = Дата(СтрЗаменить(СокрЛП(Прав(ДатаНомер, СтрДлина(ДатаНомер) - ПозицияПробела)),",",".")); Иначе ДатаСФ = Дата(Лев(СтрЗаменить(ДатаНомер,",","."), ПозицияПробела-1)); НомерСФ = Прав(ДатаНомер, СтрДлина(ДатаНомер) - ПозицияПробела); КонецЕсли; Иначе НомерСФ = ДатаНомер; КонецЕсли; Если ДатаСФ = Дата("") Тогда НомерСФ = Сред(ДатаНомер, 1, ПозицияПробела-1); ДатаСФ = Дата(СтрЗаменить(СокрЛП(Прав(ДатаНомер, СтрДлина(ДатаНомер) - ПозицияПробела)),",",".")); КонецЕсли; Если ДатаСФ = Дата("") Тогда НомерСФ = ДатаНомер; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; ДанныеПоСФ.НоваяСтрока(); ДанныеПоСФ.Контрагент = СФ.Контрагент; ДанныеПоСФ.ДоговорКонтрагента = Договор; ДанныеПоСФ.ДатаСФ = ДатаСФ; ДанныеПоСФ.НомерСФ = НомерСФ; ДанныеПоСФ.ПредъявленСФ = 1; ДанныеПоСФ.КлючСтроки = ДанныеПоСФ.НомерСтроки; Если СФ.Вид() = "СчетФактураПолученный" Тогда Док = СФ.ДокументОприходования; Если ПустоеЗначение(Док) = 1 Тогда Док = СФ; ИначеЕсли Док.Вид() = "УслугиСтороннихОрганизаций" Тогда Если ПустоеЗначение(Док.ДокументПоступления) = 1 Тогда ВидЦенности = "ПрочиеРаботыИУслуги"; Иначе //Док = Док.ДокументПоступления; КонецЕсли; КонецЕсли; НДСпоСтавкеНольПроцентов = СФ.НДСпоСтавкеНольПроцентов; Иначе Док = СФ; НДСпоСтавкеНольПроцентов = 0; КонецЕсли; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Док.ДатаДок); Если Метаданные.Документ(Док.Вид()).РеквизитШапки("ДатаДокВходящий").Выбран() = 1 Тогда Если ПустоеЗначение(Док.ДатаДокВходящий)=0 ТОгда Документ.Установить("Дата", Док.ДатаДокВходящий); КонецЕсли; КонецЕсли; Документ.Установить("Комментарий",""+СокрЛП(Док.Вид())+" № "+Док.НомерДок+" от "+Док.ДатаДок); Документ.Установить("Контрагент", ДанныеПоСФ.Контрагент); Документ.Установить("ДоговорКонтрагента", ДанныеПоСФ.ДоговорКонтрагента); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоСФ.СчетФактура = Документ; Если ПустоеЗначение(СФ)=0 ТОгда СписокСФ.НоваяСтрока(); СписокСФ.Док = Док; СписокСФ.СФ = СФ; СписокСФ.Кол = 1; КонецЕсли; Если Метаданные.Документ(Док.Вид()).РеквизитШапки("НомерДокВходящий").Выбран() = 1 Тогда ДанныеПоСФ.НомерПлатежноРасчетногоДокумента = Док.НомерДокВходящий; ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента = Док.ДатаДокВходящий; КонецЕсли; Если ПустоеЗначение(ДанныеПоСФ.НомерПлатежноРасчетногоДокумента) = 1 Тогда ДанныеПоСФ.НомерПлатежноРасчетногоДокумента = ДанныеПоСФ.НомерСФ; КонецЕсли; Если ПустоеЗначение(ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента) = 1 Тогда ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента = ДанныеПоСФ.ДатаСФ; КонецЕсли; Если Док.Вид() = "ПоступлениеМатериалов" Тогда ВидЦенности = "Материалы"; ИначеЕсли Док.Вид() = "ПоступлениеНМА" Тогда ВидЦенности = "НМА"; ИначеЕсли Док.Вид() = "ПоступлениеОС" Тогда ВидЦенности = "ОС"; ИначеЕсли Док.Вид() = "ПоступлениеТоваров" Тогда ВидЦенности = "Товары"; ИначеЕсли Док.Вид() = "ПоступлениеОборудования" Тогда ВидЦенности = "Оборудование"; КонецЕсли; //***Бояркин***// Если Док.Вид() = "УслугиСтороннихОрганизаций" Тогда Если ПустоеЗначение(Док.ДокументПоступления) = 1 Тогда ВидЦенности = "ПрочиеРаботыИУслуги"; Иначе Если Док.ДокументПоступления.Вид() = "ПоступлениеМатериалов" Тогда ВидЦенности = "Материалы"; ИначеЕсли Док.ДокументПоступления.Вид() = "ПоступлениеНМА" Тогда ВидЦенности = "НМА"; ИначеЕсли Док.ДокументПоступления.Вид() = "ПоступлениеОС" Тогда ВидЦенности = "ОС"; ИначеЕсли Док.ДокументПоступления.Вид() = "ПоступлениеТоваров" Тогда ВидЦенности = "Товары"; ИначеЕсли Док.ДокументПоступления.Вид() = "ПоступлениеОборудования" Тогда ВидЦенности = "Оборудование"; КонецЕсли; КонецЕсли; КонецЕсли; //***Бояркин***// Если Док.Вид() = "СчетФактураПолученный" Тогда Если НДСпоСтавкеНольПроцентов = 1 Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; ТаблицаСтавок.Ставка = "НДС0"; ТаблицаСтавок.Всего = Док.Всего; ТаблицаСтавок.СуммаБезНДС = Док.Всего; ТаблицаСтавок.НДС = 0; Иначе Если (Док.СуммаБезНДС20 <> 0) или (Док.НДС20 <> 0) Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; ТаблицаСтавок.Ставка = "НДС18"; ТаблицаСтавок.Всего = Док.СуммаБезНДС20 + Док.НДС20; ТаблицаСтавок.СуммаБезНДС = Док.СуммаБезНДС20; ТаблицаСтавок.НДС = Док.НДС20; КонецЕсли; Если (Док.СуммаБезНДС10 <> 0) или (Док.НДС10 <> 0) Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; ТаблицаСтавок.Ставка = "НДС10"; ТаблицаСтавок.Всего = Док.СуммаБезНДС10 + Док.НДС10; ТаблицаСтавок.СуммаБезНДС = Док.СуммаБезНДС10; ТаблицаСтавок.НДС = Док.НДС10; КонецЕсли; Если Док.СуммаСовсемБезНДС <> 0 Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; ТаблицаСтавок.Ставка = "БезНДС"; ТаблицаСтавок.Всего = Док.СуммаСовсемБезНДС; ТаблицаСтавок.СуммаБезНДС = Док.СуммаСовсемБезНДС; ТаблицаСтавок.НДС = 0; КонецЕсли; КонецЕсли; Иначе УслугиСтороннихОрганизаций = 0; Если Док.Вид() = "УслугиСтороннихОрганизаций" Тогда Если ПустоеЗначение(Док.ДокументПоступления) = 1 Тогда УслугиСтороннихОрганизаций = 1; КонецЕсли; КонецЕсли; Если (УслугиСтороннихОрганизаций = 1) или (Док.Вид() = "АвансовыйОтчет") Тогда ТаблицаУслуг.Очистить(); ТаблицаУслуг.НоваяКолонка("ВидЦенности"); ТаблицаУслуг.НоваяКолонка("Всего"); ТаблицаУслуг.НоваяКолонка("СуммаБезНДС"); ТаблицаУслуг.НоваяКолонка("НДС"); ВидЦенности = "ПрочиеРаботыИУслуги"; Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл Если Док.КоррСчет = СчетПоКоду("07") Тогда ВидЦенности = "Оборудование"; ИначеЕсли Док.КоррСчет = СчетПоКоду("08.5") Тогда ВидЦенности = "НМА"; //ИначеЕсли Док.КоррСчет = СчетПоКоду("08.3") Тогда // ВидЦенности = "СМРПодрядные"; ИначеЕсли Док.КоррСчет.ПринадлежитГруппе(СчетПоКоду("08")) = 1 Тогда ВидЦенности = "ОС"; Иначе ВидРасходовДляНалоговогоУчета = ""; Для НомерСубконто = 1 по 3 Цикл Если ТипЗначенияСтр(Док.ПолучитьАтрибут("Субконто"+НомерСубконто)) = "Справочник" Тогда Если (Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиЗатратНаПроизводство") или (Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиЗатратОбслуживающихПроизводств") или (Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиИздержекОбращения") или (Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиКоммерческихРасходов") или (Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиОбщепроизводственныхЗатрат") или (Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиОбщехозяйственныхЗатрат") или (Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиРасходовНаПродажу") Тогда ВидРасходовДляНалоговогоУчета = Док.ПолучитьАтрибут("Субконто"+НомерСубконто).ВидРасходовДляНалоговогоУчета; Если ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.РасходыНаКомандировки Тогда ВидЦенности = "КомандировочныеРасходы"; ИначеЕсли ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.ПредставительскиеРасходы Тогда ВидЦенности = "ПредставительскиеРасходы"; КонецЕсли; Прервать; ИначеЕсли Док.ПолучитьАтрибут("Субконто"+НомерСубконто).Вид() = "СтатьиЗатратНаСтроительство" Тогда ВидЦенности = "СМРПодрядные"; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; ТаблицаУслуг.НоваяСтрока(); ТаблицаУслуг.ВидЦенности = ВидЦенности; ТаблицаУслуг.Всего = ?(Док.Вид() = "АвансовыйОтчет", Док.Сумма, Док.Всего); ТаблицаУслуг.НДС = Док.НДС; ТаблицаУслуг.СуммаБезНДС = ТаблицаУслуг.Всего - ТаблицаУслуг.НДС; КонецЦикла; ТаблицаУслуг.Выгрузить(ТаблицаСтавок,,, "ВидЦенности,Всего,СуммаБезНДС,НДС"); Иначе Док.ВыгрузитьТабличнуюЧасть(ТаблицаСтавок, "Всего,НДС"); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ТаблицаСтавок.ВидЦенности = ВидЦенности; ТаблицаСтавок.СуммаБезНДС = ТаблицаСтавок.Всего - ТаблицаСтавок.НДС; КонецЦикла; КонецЕсли; ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл Если НДСпоСтавкеНольПроцентов = 1 Тогда ТаблицаСтавок.Ставка = "НДС0" Иначе Если ТаблицаСтавок.СуммаБезНДС > 0 Тогда Ставка = 100 * ТаблицаСтавок.НДС / ТаблицаСтавок.СуммаБезНДС; Иначе Ставка = 18; КонецЕсли; Если Ставка > 10.5 Тогда ТаблицаСтавок.Ставка = "НДС18" ИначеЕсли Ставка > 0 Тогда ТаблицаСтавок.Ставка = "НДС10" Иначе ТаблицаСтавок.Ставка = "БезНДС"; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; ЦеныВДоговоре = 1; // в рублях ОплатаДоговора = 1; ВестиУчетРасчетовУЕ = 0; Курс = 1; Кратность = 1; Если Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Договор.ВалютаДоговора) = 0 Тогда ЦеныВДоговоре = 2; // в валюте КонецЕсли; ОплатаДоговора = Договор.ОплатаДоговора; // 1 - врублях, 2 - в валюте ВестиУчетРасчетовУЕ = Договор.ВестиУчетРасчетовУЕ; КонецЕсли; Если ЦеныВДоговоре = 2 Тогда Курс = Док.Курс; Валюта = Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Док.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КонецЕсли; ТаблицаСтавок.НоваяКолонка("ЗадолженностьВал", "Число"); ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ТаблицаСтавок.ЗадолженностьВал = ТаблицаСтавок.Всего; КонецЦикла; ТаблицаСтавок.Свернуть("ВидЦенности,Ставка", "Всего,СуммаБезНДС,НДС,ЗадолженностьВал"); ТаблицаСтавок.Сортировать("Ставка"); БухИт.ВыбратьСчета(); Пока БухИт.ПолучитьСчет() = 1 Цикл Если (Док.Вид() = "СчетФактураПолученный") и (БухИт.Счет.ПринадлежитГруппе(Сч19) = 1) Тогда Если БухИт.Счет = Сч19_1 Тогда ВидЦенности = "ОС"; ИначеЕсли БухИт.Счет = Сч19_2 Тогда ВидЦенности = "НМА"; Иначе ВидЦенности = "Товары"; КонецЕсли; КонецЕсли; НомСтроки = 1; Пока НомСтроки <= ТаблицаСтавок.КоличествоСтрок() Цикл Если ТаблицаСтавок.ПолучитьЗначение(НомСтроки, "НДС") = 0 Тогда ТаблицаСтавок.УдалитьСтроку(НомСтроки); Иначе НомСтроки = НомСтроки + 1; КонецЕсли; КонецЦикла; ТекущееСальдо = БухИт.СКД(); РаспределеноСуммаБезНДС = 0; СуммаПоКолонкеСуммаБезНДС = 0; РаспределеноНДС = 0; СуммаПоКолонкеНДС = ТаблицаСтавок.Итог("НДС"); Если СуммаПоКолонкеНДС <> 0 Тогда ЗначениеКолонкиНДС = 0; ЗначениеКолонкиСуммаБезНДС = 0; Если (ОплатаДоговора = 2) или (ВестиУчетРасчетовУЕ = 1) Тогда Если БухИтВал.ПолучитьСубконто(1,, СФ) = 1 Тогда СуммаНДСВсегоРуб = БухИтВал.ДО(); Иначе СуммаНДСВсегоРуб = 0; КонецЕсли; Если СуммаНДСВсегоРуб = 0 Тогда Продолжить; КонецЕсли; Иначе СуммаНДСВсегоРуб = СуммаПоКолонкеНДС; КонецЕсли; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ЗначениеКолонкиНДС = ТаблицаСтавок.НДС; ЗначениеКолонкиСуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ЗначениеКолонкиЗадолженность = ТаблицаСтавок.ЗадолженностьВал; ЗначениеКолонкиНДС = Окр(ЗначениеКолонкиНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиСуммаБезНДС = Окр(ЗначениеКолонкиСуммаБезНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиЗадолженность = Окр(ЗначениеКолонкиЗадолженность * ТекущееСальдо / СуммаНДСВсегоРуб, 2, 1); РаспределеноНДС = РаспределеноНДС + ЗначениеКолонкиНДС; РаспределеноСуммаБезНДС = РаспределеноСуммаБезНДС + ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.НДС = ЗначениеКолонкиНДС; ТаблицаСтавок.СуммаБезНДС = ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.ЗадолженностьВал = ЗначениеКолонкиЗадолженность; КонецЦикла; НомПоследнейСтроки = ТаблицаСтавок.КоличествоСтрок(); Если РаспределеноНДС <> ТекущееСальдо Тогда ЗначениеКолонкиНДС = ЗначениеКолонкиНДС + ТекущееСальдо - РаспределеноНДС; ТаблицаСтавок.УстановитьЗначение(НомПоследнейСтроки, "НДС", ЗначениеКолонкиНДС); КонецЕсли; КонецЕсли; КонецЦикла; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ДополнительныеСведения.НоваяСтрока(); ДополнительныеСведения.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДополнительныеСведения.СуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ДополнительныеСведения.НДС = ТаблицаСтавок.НДС; ДополнительныеСведения.ВидЦенности = ?(ТаблицаСтавок.ВидЦенности = "", ВидЦенности, ТаблицаСтавок.ВидЦенности); ДополнительныеСведения.СтавкаНДС = ТаблицаСтавок.Ставка; ДанныеПоСФ.СуммаБезНДС = ДанныеПоСФ.СуммаБезНДС + ТаблицаСтавок.СуммаБезНДС; ДанныеПоСФ.НДС = ДанныеПоСФ.НДС + ТаблицаСтавок.НДС; ДанныеПоСФ.ЗадолженностьВал = ДанныеПоСФ.ЗадолженностьВал + ТаблицаСтавок.ЗадолженностьВал; Если ВидЦенности = "НМА" Тогда ДополнительныеСведения.СчетУчетаНДС = Сч19_2; ИначеЕсли ВидЦенности = "ОС" Тогда ДополнительныеСведения.СчетУчетаНДС = Сч19_1; ИначеЕсли ВидЦенности = "Оборудование" Тогда ДополнительныеСведения.СчетУчетаНДС = Сч19_1; Иначе ДополнительныеСведения.СчетУчетаНДС = Сч19_3; КонецЕсли; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ДанныеПоСФ", ДанныеПоСФ); ВходящиеДанные.Установить("ДополнительныеСведения", ДополнительныеСведения); ВходящиеДанные.Установить("Комментарий", "Ввод остатков НДС"); ВходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНДС"); //а теперь надо создать счета фактуры СписокСФ.ВыбратьСтроки(); Пока СписокСФ.ПолучитьСтроку()=1 Цикл ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Номер",СписокСФ.СФ.НомерДок); ИсходящиеДанные.Установить("Дата",СписокСФ.СФ.ДатаДок); ИсходящиеДанные.Установить("НомерВходящегоДокумента",СписокСФ.СФ.НомерДок); ИсходящиеДанные.Установить("ДатаВходящегоДокумента", СписокСФ.СФ.ДатаДок); Если Метаданные.Документ(СписокСФ.СФ.Вид()).РеквизитШапки("ДатаДокВходящий").Выбран() = 1 Тогда Если ПустоеЗначение(СписокСФ.СФ.ДатаДокВходящий)=0 ТОгда ИсходящиеДанные.Установить("НомерВходящегоДокумента",СписокСФ.СФ.НомерДокВходящий); ИсходящиеДанные.Установить("ДатаВходящегоДокумента", СписокСФ.СФ.ДатаДокВходящий); КонецЕсли; КонецЕсли; ИсходящиеДанные.Установить("Контрагент",СписокСФ.СФ.Контрагент); ИсходящиеДанные.Установить("ДоговорКонтрагента",СписокСФ.СФ.Договор); ИсходящиеДанные.Установить("КредДокумент",СписокСФ.Док); ИсходящиеДанные.Установить("Комментарий",""+СокрЛП(СписокСФ.СФ.Вид())+" № "+СписокСФ.СФ.НомерДок+" от "+СписокСФ.СФ.ДатаДок); Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", СписокСФ.Док.ДатаДок); Если Метаданные.Документ(СписокСФ.Док.Вид()).РеквизитШапки("ДатаДокВходящий").Выбран() = 1 Тогда Если ПустоеЗначение(СписокСФ.Док.ДатаДокВходящий)=0 ТОгда Документ.Установить("Дата", СписокСФ.Док.ДатаДокВходящий); КонецЕсли; КонецЕсли; Документ.Установить("Комментарий",""+СокрЛП(СписокСФ.Док.Вид())+" № "+СписокСФ.Док.НомерДок+" от "+СписокСФ.Док.ДатаДок); Документ.Установить("Контрагент", ДанныеПоСФ.Контрагент); Документ.Установить("ДоговорКонтрагента", ДанныеПоСФ.ДоговорКонтрагента); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ТТ = СоздатьОбъект("ТаблицаЗначений"); ТТ.НоваяКолонка("ДокументОснование"); ТТ.НоваяСтрока(); ТТ.ДокументОснование = Документ; ИсходящиеДанные.Установить("ДокументОснование",Документ); ИсходящиеДанные.Установить("ДокументыОснования",ТТ); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "СчетФактураПолученный"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПоставщикам", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПоставщикам" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ДанныеПоНДСпоПоставщикам() Функция ПВД_ПередОбработкойПравила_ДоговорыКонтрагентов( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка СписокДоговоров = Создатьобъект("ТаблицаЗначений"); СписокДоговоров.НоваяКолонка("ВидДоговора"); СписокДоговоров.НоваяКолонка("Кол"); Попытка СпрВидыДоговоров = СоздатьОбъект("Справочник.ВидыДоговора"); Исключение Сообщить(" | Добавьте в справочник «Контрагенты» новые реквизиты «Покупатель» |и «Поставщик», тип «Число», длина = 1, точность = 0; | | Добавьте новый справочник «ВидыДоговора». Справочник подчинен |справочнику «Договоры», |Тип кода «Текстовый», |Нумерация «В пределах подчинения»"); Отказ = 1; КонецПопытки; СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты"); СпрДоговоры = СоздатьОбъект("Справочник.Договоры"); СпрКонтрагенты.ВыбратьЭлементы(); Пока СпрКонтрагенты.ПолучитьЭлемент()=1 Цикл Если СпрКонтрагенты.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; СпрДоговоры.ИспользоватьВладельца(СпрКонтрагенты.ТекущийЭлемент()); СпрДоговоры.ВыбратьЭлементы(); Пока СпрДоговоры.ПолучитьЭлемент() = 1 Цикл Если СпрДоговоры.ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СписокДоговоров.УдалитьСтроки(); СпрВидыДоговоров.ИспользоватьВладельца(СпрДоговоры.ТекущийЭлемент()); СпрВидыДоговоров.ВыбратьЭлементы(); Пока СпрВидыДоговоров.ПолучитьЭлемент() = 1 Цикл СписокДоговоров.НоваяСтрока(); СписокДоговоров.ВидДоговора = СпрВидыДоговоров.Наименование; КонецЦикла; Если СписокДоговоров.КоличествоСтрок()=0 Тогда СписокДоговоров.НоваяСтрока(); СписокДоговоров.ВидДоговора = "Прочее"; КонецЕсли; СписокДоговоров.ВыбратьСтроки(); Пока СписокДоговоров.ПолучитьСтроку()=1 Цикл ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(СписокДоговоров.ВидДоговора, "ВидДоговора"); ВходящиеДанные.ДобавитьЗначение(СпрДоговоры.ПолныйКод(),"Комментарий"); ВыгрузитьПоПравилу(СпрДоговоры.ТекущийЭлемент(),, ВходящиеДанные,, "ДоговорыКонтрагентов"); КонецЦикла; КонецЦикла; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДоговорыКонтрагентов", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ДоговорыКонтрагентов" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ДоговорыКонтрагентов() Функция ПВД_ПередОбработкойПравила_Константы( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "Константы"); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Константы", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Константы" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Константы() Функция ПВД_ПередОбработкойПравила_КонтактнаяИнформация( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Таб = СоздатьОбъект("ТаблицаЗначений"); Таб.НоваяКолонка("Объект"); Таб.НоваяКолонка("Вид"); Таб.НоваяКолонка("Тип"); Таб.НоваяКолонка("Представление"); //контрагенты СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты"); СпрКонтрагенты.ВыбратьЭлементы(); Пока СпрКонтрагенты.ПолучитьЭлемент()=1 Цикл Если СпрКонтрагенты.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; // адрес контрагента в бухгалтерии обычная строка // не из классификатора Если ПустоеЗначение(СпрКонтрагенты.ЮридическийАдрес)=0 Тогда Таб.НоваяСтрока(); Таб.Объект = СпрКонтрагенты.ТекущийЭлемент(); Таб.Вид = "ЮрАдресКонтрагента"; Таб.Тип = "Адрес"; Таб.Представление = СпрКонтрагенты.ЮридическийАдрес; КонецЕсли; Если ПустоеЗначение(СпрКонтрагенты.ПочтовыйАдрес)=0 Тогда Таб.НоваяСтрока(); Таб.Объект = СпрКонтрагенты.ТекущийЭлемент(); Таб.Вид = "ФактАдресКонтрагента"; Таб.Тип = "Адрес"; Таб.Представление = глПредставлениеАдреса(СпрКонтрагенты.ПочтовыйАдрес); КонецЕсли; Если ПустоеЗначение(СпрКонтрагенты.Телефоны)=0 Тогда Таб.НоваяСтрока(); Таб.Объект = СпрКонтрагенты.ТекущийЭлемент(); Таб.Вид = "ТелефонКонтрагента"; Таб.Тип = "Телефон"; Таб.Представление = СпрКонтрагенты.Телефоны; КонецЕсли; КонецЦикла; Таб.ВыбратьСтроки(); Пока Таб.ПолучитьСтроку()=1 Цикл ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Объект",Таб.Объект); ВходящиеДанные.Установить("Тип",Таб.Тип); ВходящиеДанные.Установить("Вид",Таб.Вид); ВходящиеДанные.Установить("Представление",Таб.Представление); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "КонтактнаяИнформация"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_КонтактнаяИнформация", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_КонтактнаяИнформация" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_КонтактнаяИнформация() Функция ПВД_ПередОбработкойПравила_КурсыВалют( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.НоваяКолонка("Период"); ВыборкаДанных.НоваяКолонка("Валюта"); ВыборкаДанных.НоваяКолонка("Курс"); ВыборкаДанных.НоваяКолонка("Кратность"); СправочникВалюты = СоздатьОбъект("Справочник.Валюты"); СправочникВалюты.ВыбратьЭлементы(); Пока СправочникВалюты.ПолучитьЭлемент() > 0 Цикл КурсВалюты = СоздатьОбъект("Периодический"); КурсВалюты.ИспользоватьОбъект("Курс", СправочникВалюты.ТекущийЭлемент()); Если ПустоеЗначение(ДатаОкончания) = 0 Тогда КурсВалюты.ВыбратьЗначения(ДатаНачала, ДатаОкончания); Иначе КурсВалюты.ВыбратьЗначения(ДатаНачала); КонецЕсли; ЕстьКурс = 0; Пока КурсВалюты.ПолучитьЗначение() > 0 Цикл ЕстьКурс = 1; ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.Период = КурсВалюты.ДатаЗнач; ВыборкаДанных.Валюта = СправочникВалюты.ТекущийЭлемент(); ВыборкаДанных.Курс = КурсВалюты.Значение; ВыборкаДанных.Кратность = СправочникВалюты.ТекущийЭлемент().Кратность.Получить(КурсВалюты.ДатаЗнач); КонецЦикла; //Если в заданный период курс не менялся, то надо на дату ввода //остатков курсы валют записать, иначе по валютным счетам остатки не пойдут Если ЕстьКурс = 0 Тогда ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.Период = Параметры.ДатаВводаОстатков-1; ВыборкаДанных.Валюта = СправочникВалюты.ТекущийЭлемент(); ВыборкаДанных.Курс = СправочникВалюты.ТекущийЭлемент().Курс.Получить(Параметры.ДатаВводаОстатков); ВыборкаДанных.Кратность = СправочникВалюты.ТекущийЭлемент().Кратность.Получить(Параметры.ДатаВводаОстатков); КонецЕсли; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_КурсыВалют", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_КурсыВалют" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_КурсыВалют() Функция ПВД_ПередОбработкойПравила_Материалы_КорЗаписейРег( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.01,Н02.09"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.10.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "10.1,10.2,10.3,10.4,10.5,10.6,10.8,10.9,10.10"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Материалы); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 1); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Материалы_КорЗаписейРег", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Материалы_КорЗаписейРег" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Материалы_КорЗаписейРег() Функция ПВД_ПередОбработкойПравила_ОтветственныеЛицаСкладов( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка СпрСклад = СоздатьОбъект("Справочник.МестаХранения"); СпрСклад.ВыбратьЭлементы(); Пока СпрСклад.ПолучитьЭлемент()=1 Цикл Если ПустоеЗначение(СпрСклад.МОЛ)=1 Тогда Продолжить; КонецЕсли; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Период", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("СтруктурнаяЕдиница", СпрСклад.ТекущийЭлемент()); ВходящиеДанные.Установить("ФизическоеЛицо", СпрСклад.МОЛ); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОтветственныеЛицаСкладов"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОтветственныеЛицаСкладов", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОтветственныеЛицаСкладов" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ОтветственныеЛицаСкладов() Функция ПВД_ПередОбработкойПравила_ОССписанныеНаЗатраты( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка СчМЦ_01 = СчетПоКоду("МЦ.01"); СписокОС = СоздатьОбъект("ТаблицаЗначений"); СписокОС.НоваяКолонка("ОсновноеСредство"); СписокОС.НоваяКолонка("Подразделение"); СписокОС.НоваяКолонка("ПервоначальнаяСтоимость", "Число"); СписокОС.НоваяКолонка("ПервоначальнаяСтоимостьБУ", "Число"); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(,Параметры.ДатаВводаОстатков, СчМЦ_01); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БУ); БУ.ВыбратьСубконто(1); Пока БУ.ПолучитьСубконто(1) = 1 Цикл Если БУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СчетУчета = СчМЦ_01; СтоимостьБУ = БУ.СКД(1); Если СтоимостьБУ <= 0 Тогда Продолжить; КонецЕсли; НомСтроки = 0; Если СписокОС.НайтиЗначение(БУ.Субконто(1), НомСтроки, "ОсновноеСредство") = 0 Тогда СписокОС.НоваяСтрока(); СписокОС.ОсновноеСредство = БУ.Субконто(1); СписокОС.Подразделение = БУ.Субконто(1).Подразделение.Получить(Параметры.ДатаВводаОстатков); НомСтроки = СписокОС.КоличествоСтрок(); КонецЕсли; СписокОС.УстановитьЗначение(НомСтроки, "ПервоначальнаяСтоимость", СтоимостьБУ); СписокОС.УстановитьЗначение(НомСтроки, "ПервоначальнаяСтоимостьБУ", СтоимостьБУ); КонецЦикла; СписокОС.Сортировать("Подразделение"); ТекПодразделение = ""; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); СписокПодразделения = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по СписокОС.КоличествоКолонок() Цикл СписокПодразделения.НоваяКолонка(СписокОС.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; СписокОС.ВыбратьСтроки(); Пока СписокОС.ПолучитьСтроку() = 1 Цикл Если ТекПодразделение <> СписокОС.Подразделение Тогда Если СписокПодразделения.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Подразделение", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ПодразделениеОрганизации", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ОС", СписокПодразделения); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковМЦ01"); СписокПодразделения.УдалитьСтроки(); КонецЕсли; ТекПодразделение = СписокОС.Подразделение; КонецЕсли; СписокПодразделения.НоваяСтрока(); НомСтроки = СписокПодразделения.КоличествоСтрок(); Для НомКолонки = 1 по СписокОС.КоличествоКолонок() Цикл СписокПодразделения.УстановитьЗначение(НомСтроки, НомКолонки, СписокОС.ПолучитьЗначение(СписокОС.НомерСтроки, НомКолонки)); КонецЦикла; КонецЦикла; Если СписокПодразделения.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Подразделение", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ПодразделениеОрганизации", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ОС", СписокПодразделения); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковМЦ01"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОССписанныеНаЗатраты", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОССписанныеНаЗатраты" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ОССписанныеНаЗатраты() Функция ПВД_ПередОбработкойПравила_Н01_01( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.01"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.1,08.2,08.4"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_01", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_01" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н01_01() Функция ПВД_ПередОбработкойПравила_Н01_02_КорЗаписейРег( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.02"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.07"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "07"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Оборудование); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 1); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_02_КорЗаписейРег", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_02_КорЗаписейРег" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н01_02_КорЗаписейРег() Функция ПВД_ПередОбработкойПравила_Н01_03( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.03"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.8"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_03", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_03" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н01_03() Функция ПВД_ПередОбработкойПравила_Н01_08( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.5"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_08", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_08" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н01_08() Функция ПВД_ПередОбработкойПравила_Н01_09( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.09"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.3"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_09", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н01_09" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н01_09() Функция ПВД_ПередОбработкойПравила_Н02_02_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.02.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.41"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "41.1,41.3,41.4,41.5"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 1); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_02_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_02_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_02_1() Функция ПВД_ПередОбработкойПравила_Н02_02_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.02.2"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.41"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "41.2"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_02_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_02_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_02_2() Функция ПВД_ПередОбработкойПравила_Н02_03( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.03"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.43"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "43"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 1); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_03", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_03" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_03() Функция ПВД_ПередОбработкойПравила_Н02_04_1( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.04.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.45"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "45"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "3,1,2"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "45.01"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 2); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_04_1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_04_1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_04_1() Функция ПВД_ПередОбработкойПравила_Н02_04_2( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.04.2"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.45"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "45"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "3,1,2"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "45.02"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 2); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_04_2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_04_2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_04_2() Функция ПВД_ПередОбработкойПравила_Н02_04_3( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.04.3"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.45"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "45"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "3,1,2"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "45.03"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 2); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_04_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_04_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_04_3() Функция ПВД_ПередОбработкойПравила_Н02_05( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.05"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.58.2"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "58.1.2,58.2"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ЦенныеБумаги); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "2,1,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_05", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_05" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_05() Функция ПВД_ПередОбработкойПравила_Н02_06( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.06"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.58.3"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "58.5"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Договоры); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "2,1,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_06", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_06" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_06() Функция ПВД_ПередОбработкойПравила_Н02_08( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.58.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "58.1.1"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Контрагенты); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_08", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н02_08" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н02_08() Функция ПВД_ПередОбработкойПравила_Н04_02( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.02"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_02", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_02" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_02() Функция ПВД_ПередОбработкойПравила_Н04_04( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.04"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_04", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_04" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_04() Функция ПВД_ПередОбработкойПравила_Н04_05( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.05"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_05", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_05" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_05() Функция ПВД_ПередОбработкойПравила_Н04_06( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.06"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_06", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_06" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_06() Функция ПВД_ПередОбработкойПравила_Н04_07( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.07"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_07", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_07" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_07() Функция ПВД_ПередОбработкойПравила_Н04_08( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_08", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_08" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_08() Функция ПВД_ПередОбработкойПравила_Н04_09( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.09"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_09", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_09" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_09() Функция ПВД_ПередОбработкойПравила_Н04_10( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.10"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_10() Функция ПВД_ПередОбработкойПравила_Н04_11( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.11"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("СоздаватьКорректировкиРегистров", 0); ВыгрузитьОстаткиПоСчетуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Н04_11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Н04_11() Функция ПВД_ПередОбработкойПравила_СчН16( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка СписокСчетовНУ = "Н16"; СписокСчетовПР = "НПР.94"; СписокСчетовБУ = "94"; Количественный = 0; КодСчетаДт = ""; ДтКт = 1; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, СписокСчетовНУ); ПР = СоздатьОбъект("БухгалтерскиеИтоги"); ПР.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, СписокСчетовПР); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, СписокСчетовБУ); ИтогиПоСубконто = СоздатьОбъект("ТаблицаЗначений"); ИтогиПоСубконто.НоваяКолонка("Счет"); ИтогиПоСубконто.НоваяКолонка("КодСчета"); ИтогиПоСубконто.НоваяКолонка("Субконто1"); ИтогиПоСубконто.НоваяКолонка("Субконто2"); ИтогиПоСубконто.НоваяКолонка("Субконто3"); ИтогиПоСубконто.НоваяКолонка("СНД1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК1", "Число"); ИтогиПоСубконто.НоваяКолонка("КО1", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНД3", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК3", "Число"); ИтогиПоСубконто.НоваяКолонка("КО3", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО3", "Число"); НУ.ВыбратьПериоды(); Пока НУ.ПолучитьПериод() = 1 Цикл ВедетсяУчетМПЗвПереработке = 0; СтоимостьНУ = ?(ДтКт = 1, НУ.СНД(1), НУ.СНК(1)); СтоимостьБУ = 0; СтоимостьПР = 0; Если ПР.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда СтоимостьПР = ?(ДтКт = 1, ПР.СНД(1), ПР.СНК(1)); КонецЕсли; Если БУ.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда СтоимостьБУ = ?(ДтКт = 1, БУ.СНД(1), БУ.СНК(1)); КонецЕсли; СтоимостьВР = СтоимостьБУ - СтоимостьНУ - СтоимостьПР; // Выгрузка начальных остатков. Если НачМесяца(Параметры.ДатаВводаОстатков) = НУ.НачДата Тогда Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Если ДтКт = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Иначе Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", НУ.Счет); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьНУ); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); // Поддержка ПБУ 18 //Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьПР); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); //КонецЕсли; КонецЕсли; Если НУ.НачДата = НачМесяца(Параметры.ДатаВводаОстатков) Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_СчН16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_СчН16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_СчН16() Функция ПВД_ПередОбработкойПравила_НормыРасходов( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.НоваяКолонка("Наименование", "Строка"); ВыборкаДанных.НоваяКолонка("Код", "Строка"); ВыборкаДанных.НоваяКолонка("ВыходныеИзделия"); ВыборкаДанных.НоваяКолонка("ИсходныеКомплектующие"); ВыборкаДанных.НоваяКолонка("Комментарий"); ТабИсходныеКомплектующие = СоздатьОбъект("ТаблицаЗначений"); ТабИсходныеКомплектующие.НоваяКолонка("Номенклатура"); ТабИсходныеКомплектующие.НоваяКолонка("Количество"); ТабИсходныеКомплектующие.НоваяКолонка("ЕдиницаИзмерения"); ТабВыходныеИзделия = СоздатьОбъект("ТаблицаЗначений"); ТабВыходныеИзделия.НоваяКолонка("Номенклатура"); ТабВыходныеИзделия.НоваяКолонка("Количество"); ТабВыходныеИзделия.НоваяКолонка("ЕдиницаИзмерения"); СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура"); СпрНормы = СоздатьОбъект("Справочник.НормыРасходов"); СпрНоменклатура.ВыбратьЭлементы(); Пока СпрНоменклатура.ПолучитьЭлемент()=1 Цикл Если СпрНоменклатура.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; ТабВыходныеИзделия.УдалитьСтроки(); СпрНормы.ИспользоватьВладельца(СпрНоменклатура.ТекущийЭлемент()); СпрНормы.ВыбратьЭлементы(); ТабИсходныеКомплектующие.УдалитьСтроки(); Пока СпрНормы.ПолучитьЭлемент() = 1 Цикл Если СпрНормы.ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; Если (СпрНормы.Норма.Получить(Параметры.ДатаВводаОстатков) = 0) ИЛИ (СпрНормы.КолПрод.Получить(Параметры.ДатаВводаОстатков) = 0) Тогда Продолжить; КонецЕсли; ТабИсходныеКомплектующие.НоваяСтрока(); ТабИсходныеКомплектующие.Номенклатура = СпрНормы.Элемент; ТабИсходныеКомплектующие.ЕдиницаИзмерения = СпрНормы.Элемент.ЕдиницаИзмерения; ТабИсходныеКомплектующие.Количество = СпрНормы.Норма.Получить(Параметры.ДатаВводаОстатков) / СпрНормы.КолПрод.Получить(Параметры.ДатаВводаОстатков); КонецЦикла; Если ТабИсходныеКомплектующие.КоличествоСтрок() = 0 Тогда Продолжить; КонецЕсли; ТабВыходныеИзделия.НоваяСтрока(); ТабВыходныеИзделия.Номенклатура = СпрНоменклатура.ТекущийЭлемент(); ТабВыходныеИзделия.ЕдиницаИзмерения = СпрНоменклатура.ЕдиницаИзмерения; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(СпрНоменклатура.Наименование, "Наименование"); ВходящиеДанные.ДобавитьЗначение(ТабВыходныеИзделия, "ВыходныеИзделия"); ВходящиеДанные.ДобавитьЗначение(ТабИсходныеКомплектующие, "ИсходныеКомплектующие"); ВходящиеДанные.ДобавитьЗначение(СпрНоменклатура.ПолныйКод(),"Комментарий"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "СпецификацииНоменклатуры"); КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_НормыРасходов", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_НормыРасходов" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_НормыРасходов() Функция ПВД_ПередОбработкойПравила_ОстаткиВзаиморасчетов( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка Комментарий="Ввод начальных остатков по взаиморасчетам "; ДанныеПоРасчетам = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоРасчетам.НоваяКолонка("Контрагент"); ДанныеПоРасчетам.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоРасчетам.НоваяКолонка("ДокументРасчетовСКонтрагентом"); ДанныеПоРасчетам.НоваяКолонка("ВалютаВзаиморасчетов"); ДанныеПоРасчетам.НоваяКолонка("КурсВзаиморасчетов"); ДанныеПоРасчетам.НоваяКолонка("КратностьВзаиморасчетов"); ДанныеПоРасчетам.НоваяКолонка("СуммаВзаиморасчетов"); ДанныеПоРасчетам.НоваяКолонка("СуммаРегл"); ДанныеПоРасчетам.НоваяКолонка("СуммаРеглСУчетомПереоценки"); ДанныеПоРасчетам.НоваяКолонка("СуммаУпр"); ДанныеПоРасчетам.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ДанныеПоАвансам = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоАвансам.НоваяКолонка("Контрагент"); ДанныеПоАвансам.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоАвансам.НоваяКолонка("ДокументОплаты"); ДанныеПоАвансам.НоваяКолонка("ВалютаВзаиморасчетов"); ДанныеПоАвансам.НоваяКолонка("КурсВзаиморасчетов"); ДанныеПоАвансам.НоваяКолонка("КратностьВзаиморасчетов"); ДанныеПоАвансам.НоваяКолонка("СуммаВзаиморасчетов"); ДанныеПоАвансам.НоваяКолонка("СуммаРегл"); ДанныеПоАвансам.НоваяКолонка("СуммаРеглСУчетомПереоценки"); ДанныеПоАвансам.НоваяКолонка("СуммаУпр"); ДанныеПоАвансам.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); //Покупатели Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1); Ит.ВключатьСубсчета(-1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "62",,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл Если ТекСчет.Активный =1 Тогда //ДанныеПоРасчетам Если ТекСчет.Валютный =0 Тогда СуммаВРублях = Ит.СКД("С"); ТекВалюта = Параметры.Рубли; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоРасчетам.НоваяСтрока(); ДанныеПоРасчетам.Контрагент = ТекКонтрагент; ДанныеПоРасчетам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоРасчетам.ДокументРасчетовСКонтрагентом =Документ; ДанныеПоРасчетам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоРасчетам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоРасчетам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоРасчетам.СуммаВзаиморасчетов = СуммаВРублях; ДанныеПоРасчетам.СуммаРегл = СуммаВРублях; ДанныеПоРасчетам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоРасчетам.СуммаУпр = СуммаВРублях; ДанныеПоРасчетам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; Иначе // Валютный Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту()=1 Цикл СуммаВРублях = Ит.СКД("С"); СуммаВВалюте = Ит.СКД("В"); ТекВалюта = Ит.Валюта; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоРасчетам.НоваяСтрока(); ДанныеПоРасчетам.Контрагент = ТекКонтрагент; ДанныеПоРасчетам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоРасчетам.ДокументРасчетовСКонтрагентом =Документ; ДанныеПоРасчетам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоРасчетам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоРасчетам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоРасчетам.СуммаВзаиморасчетов = СуммаВВалюте; ДанныеПоРасчетам.СуммаРегл = СуммаВРублях; ДанныеПоРасчетам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоРасчетам.СуммаУпр = СуммаВРублях; ДанныеПоРасчетам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; КонецЦикла; КонецЕсли; Иначе //ДанныеПоАвансам Если ТекСчет.Валютный =0 Тогда СуммаВРублях = Ит.СКК("С"); ТекВалюта = Параметры.Рубли; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоАвансам.НоваяСтрока(); ДанныеПоАвансам.Контрагент = ТекКонтрагент; ДанныеПоАвансам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоАвансам.ДокументОплаты =Документ; ДанныеПоАвансам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоАвансам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоАвансам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоАвансам.СуммаВзаиморасчетов = СуммаВРублях; ДанныеПоАвансам.СуммаРегл = СуммаВРублях; ДанныеПоАвансам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоАвансам.СуммаУпр = СуммаВРублях; ДанныеПоАвансам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; Иначе // Валютный Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту()=1 Цикл СуммаВРублях = Ит.СКК("С"); СуммаВВалюте = Ит.СКК("В"); ТекВалюта = Ит.Валюта; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоАвансам.НоваяСтрока(); ДанныеПоАвансам.Контрагент = ТекКонтрагент; ДанныеПоАвансам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоАвансам.ДокументОплаты =Документ; ДанныеПоАвансам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоАвансам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоАвансам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоАвансам.СуммаВзаиморасчетов = СуммаВВалюте; ДанныеПоАвансам.СуммаРегл = СуммаВРублях; ДанныеПоАвансам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоАвансам.СуммаУпр = СуммаВРублях; ДанныеПоАвансам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; КонецЦикла; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; Если (ДанныеПоАвансам.КоличествоСтрок()>0) или (ДанныеПоРасчетам.КоличествоСтрок()>0) Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ВидОперации", "РасчетыСПокупателями"); ВходящиеДанные.Установить("ДанныеПоРасчетам", ДанныеПоРасчетам); ВходящиеДанные.Установить("ДанныеПоАвансам", ДанныеПоАвансам); ВходящиеДанные.Установить("Комментарий",Комментарий+"с пок."); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковПоВзаиморасчетам"); ДанныеПоРасчетам.УдалитьСтроки(); ДанныеПоАвансам.УдалитьСтроки(); КонецЕсли; //Поставщики Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1); Ит.ВключатьСубсчета(-1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, "60",,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл Если ТекСчет.Активный =2 Тогда //ДанныеПоРасчетам Если ТекСчет.Валютный =0 Тогда СуммаВРублях = Ит.СКК("С"); ТекВалюта = Параметры.Рубли; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоРасчетам.НоваяСтрока(); ДанныеПоРасчетам.Контрагент = ТекКонтрагент; ДанныеПоРасчетам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пост."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоРасчетам.ДокументРасчетовСКонтрагентом =Документ; ДанныеПоРасчетам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоРасчетам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоРасчетам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоРасчетам.СуммаВзаиморасчетов = СуммаВРублях; ДанныеПоРасчетам.СуммаРегл = СуммаВРублях; ДанныеПоРасчетам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоРасчетам.СуммаУпр = СуммаВРублях; ДанныеПоРасчетам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; Иначе // Валютный Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту()=1 Цикл СуммаВРублях = Ит.СКК("С"); СуммаВВалюте = Ит.СКК("В"); ТекВалюта = Ит.Валюта; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоРасчетам.НоваяСтрока(); ДанныеПоРасчетам.Контрагент = ТекКонтрагент; ДанныеПоРасчетам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пост."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоРасчетам.ДокументРасчетовСКонтрагентом =Документ; ДанныеПоРасчетам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоРасчетам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоРасчетам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоРасчетам.СуммаВзаиморасчетов = СуммаВВалюте; ДанныеПоРасчетам.СуммаРегл = СуммаВРублях; ДанныеПоРасчетам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоРасчетам.СуммаУпр = СуммаВРублях; ДанныеПоРасчетам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; КонецЦикла; КонецЕсли; Иначе //ДанныеПоАвансам Если ТекСчет.Валютный =0 Тогда СуммаВРублях = Ит.СКД("С"); ТекВалюта = Параметры.Рубли; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоАвансам.НоваяСтрока(); ДанныеПоАвансам.Контрагент = ТекКонтрагент; ДанныеПоАвансам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пост."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоАвансам.ДокументОплаты =Документ; ДанныеПоАвансам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоАвансам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоАвансам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоАвансам.СуммаВзаиморасчетов = СуммаВРублях; ДанныеПоАвансам.СуммаРегл = СуммаВРублях; ДанныеПоАвансам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоАвансам.СуммаУпр = СуммаВРублях; ДанныеПоАвансам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; Иначе // Валютный Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту()=1 Цикл СуммаВРублях = Ит.СКД("С"); СуммаВВалюте = Ит.СКД("В"); ТекВалюта = Ит.Валюта; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоАвансам.НоваяСтрока(); ДанныеПоАвансам.Контрагент = ТекКонтрагент; ДанныеПоАвансам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пост."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоАвансам.ДокументОплаты =Документ; ДанныеПоАвансам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоАвансам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоАвансам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоАвансам.СуммаВзаиморасчетов = СуммаВВалюте; ДанныеПоАвансам.СуммаРегл = СуммаВРублях; ДанныеПоАвансам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоАвансам.СуммаУпр = СуммаВРублях; ДанныеПоАвансам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; КонецЦикла; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; //ДанныеПоРасчетам.Выгрузить(ТЗ); Если (ДанныеПоАвансам.КоличествоСтрок()>0) или (ДанныеПоРасчетам.КоличествоСтрок()>0) Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ВидОперации", "РасчетыСПоставщиками"); ВходящиеДанные.Установить("ДанныеПоРасчетам", ДанныеПоРасчетам); ВходящиеДанные.Установить("ДанныеПоАвансам", ДанныеПоАвансам); ВходящиеДанные.Установить("Комментарий",Комментарий+"с пост."); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковПоВзаиморасчетам"); ДанныеПоРасчетам.УдалитьСтроки(); ДанныеПоАвансам.УдалитьСтроки(); КонецЕсли; СписокСчетов = "76.1.1, 76.1.2, 76.1.3, 76.1.4, 76.2, 76.5, 76.6, 76.11, 76.22, 76.55, 76.ЗП"; //Прочие Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1); Ит.ВключатьСубсчета(-1); Ит.ВыполнитьЗапрос(, Параметры.ДатаВводаОстатков, СписокСчетов,,, 1,, "СВ"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл ТекСчет = Ит.Счет; Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл Если ТекСчет.Валютный =0 Тогда СуммаВРублях = Ит.СКК("С") - Ит.СКД("С"); Если СуммаВРублях > 0 Тогда ТекВалюта = Параметры.Рубли; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоРасчетам.НоваяСтрока(); ДанныеПоРасчетам.Контрагент = ТекКонтрагент; ДанныеПоРасчетам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоРасчетам.ДокументРасчетовСКонтрагентом =Документ; ДанныеПоРасчетам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоРасчетам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоРасчетам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоРасчетам.СуммаВзаиморасчетов = СуммаВРублях; ДанныеПоРасчетам.СуммаРегл = СуммаВРублях; ДанныеПоРасчетам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоРасчетам.СуммаУпр = СуммаВРублях; ДанныеПоРасчетам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; Иначе ТекВалюта = Параметры.Рубли; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоАвансам.НоваяСтрока(); ДанныеПоАвансам.Контрагент = ТекКонтрагент; ДанныеПоАвансам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоАвансам.ДокументОплаты =Документ; ДанныеПоАвансам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоАвансам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоАвансам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоАвансам.СуммаВзаиморасчетов = -СуммаВРублях; ДанныеПоАвансам.СуммаРегл = -СуммаВРублях; ДанныеПоАвансам.СуммаРеглСУчетомПереоценки = -СуммаВРублях; ДанныеПоАвансам.СуммаУпр = -СуммаВРублях; ДанныеПоАвансам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; КонецЕсли Иначе // Валютный Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту()=1 Цикл СуммаВРублях = Ит.СКК("С") - Ит.СКД("С"); СуммаВВалюте = Ит.СКК("В") - Ит.СКД("В"); Если СуммаВРублях > 0 Тогда ТекВалюта = Ит.Валюта; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоРасчетам.НоваяСтрока(); ДанныеПоРасчетам.Контрагент = ТекКонтрагент; ДанныеПоРасчетам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоРасчетам.ДокументРасчетовСКонтрагентом =Документ; ДанныеПоРасчетам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоРасчетам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоРасчетам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоРасчетам.СуммаВзаиморасчетов = СуммаВВалюте; ДанныеПоРасчетам.СуммаРегл = СуммаВРублях; ДанныеПоРасчетам.СуммаРеглСУчетомПереоценки = СуммаВРублях; ДанныеПоРасчетам.СуммаУпр = СуммаВРублях; ДанныеПоРасчетам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; Иначе ТекВалюта = Ит.Валюта; ТекКонтрагент = Ит.Субконто(1); ТекДоговор = Ит.Субконто(2); ДанныеПоАвансам.НоваяСтрока(); ДанныеПоАвансам.Контрагент = ТекКонтрагент; ДанныеПоАвансам.ДоговорКонтрагента= ТекДоговор; Документ = СоздатьОбъект("СписокЗначений"); Документ.Установить("Дата", Параметры.ДатаВводаОстатков); Документ.Установить("Комментарий",Комментарий+"с пок."+ТекКонтрагент.Код+" "+ТекДоговор.ПолныйКод()); Документ.Установить("Контрагент", ТекКонтрагент); Документ.Установить("ДоговорКонтрагента", ТекДоговор); //Документ.Установить("ВалютаДокумента", ТекВалюта); Документ.Установить("ВалютаДокумента", Параметры.Рубли); ДанныеПоАвансам.ДокументОплаты =Документ; ДанныеПоАвансам.ВалютаВзаиморасчетов = ТекВалюта; ДанныеПоАвансам.КурсВзаиморасчетов = ТекВалюта.Курс.Получить(Параметры.ДатаВводаОстатков);; ДанныеПоАвансам.КратностьВзаиморасчетов = ТекВалюта.Кратность.Получить(Параметры.ДатаВводаОстатков); ДанныеПоАвансам.СуммаВзаиморасчетов = -СуммаВВалюте; ДанныеПоАвансам.СуммаРегл = -СуммаВРублях; ДанныеПоАвансам.СуммаРеглСУчетомПереоценки = -СуммаВРублях; ДанныеПоАвансам.СуммаУпр = -СуммаВРублях; ДанныеПоАвансам.СчетУчетаРасчетовСКонтрагентом=ТекСчет; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; Если (ДанныеПоАвансам.КоличествоСтрок()>0) или (ДанныеПоРасчетам.КоличествоСтрок()>0) Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ВидОперации", "РасчетыПоПрочимОперациям"); ВходящиеДанные.Установить("ДанныеПоРасчетам", ДанныеПоРасчетам); ВходящиеДанные.Установить("ДанныеПоАвансам", ДанныеПоАвансам); ВходящиеДанные.Установить("Комментарий",Комментарий+"с проч. деб. и кред."); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковПоВзаиморасчетам"); ДанныеПоРасчетам.УдалитьСтроки(); ДанныеПоАвансам.УдалитьСтроки(); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОстаткиВзаиморасчетов", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОстаткиВзаиморасчетов" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ОстаткиВзаиморасчетов() Функция ПВД_ПередОбработкойПравила_НематериальныеАктивы( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка СтоимостьНМА_бух = СоздатьОбъект("ТаблицаЗначений"); СтоимостьНМА_бух.НоваяКолонка("НематериальныйАктив"); СтоимостьНМА_бух.НоваяКолонка("Амортизация"); СтоимостьНМА_бух.НоваяКолонка("Период"); СтоимостьНМА_бух.НоваяКолонка("ВидДвижения"); СтоимостьНМА_нал = СоздатьОбъект("ТаблицаЗначений"); СтоимостьНМА_нал.НоваяКолонка("НематериальныйАктив"); СтоимостьНМА_нал.НоваяКолонка("Амортизация"); СтоимостьНМА_нал.НоваяКолонка("Период"); СтоимостьНМА_нал.НоваяКолонка("ВидДвижения"); СчН05_03 = СчетПоКоду("Н05.03"); //Первоначальная стоимость НМА СчН05_04 = СчетПоКоду("Н05.04"); //Амортизация НМА СчНПР_04 = СчетПоКоду("НПР.04"); //нематериальные актив Сч04_1 = СчетПоКоду("04.1"); //Нематериальные активы Сч05 = СчетПоКоду("05"); //Амортизация НМА СписокНМА = СоздатьОбъект("ТаблицаЗначений"); СписокНМА.НоваяКолонка("НМА"); СписокНМА.НоваяКолонка("СтоимостьБУ", "Число"); СписокНМА.НоваяКолонка("СтоимостьНУ", "Число"); СписокНМА.НоваяКолонка("СтоимостьПР", "Число"); СписокНМА.НоваяКолонка("СтоимостьВР", "Число"); СписокНМА.НоваяКолонка("БУ", "Число"); СписокНМА.НоваяКолонка("НУ", "Число"); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(,Параметры.ДатаВводаОстатков, "04.1,05"); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БУ); БУ.ВыбратьСубконто(1); Пока БУ.ПолучитьСубконто(1) = 1 Цикл Если БУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьБУ = 0; АмортизацияБУ = 0; БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если (БУ.Счет = Сч04_1) Тогда СтоимостьБУ = БУ.СКД(1); ИначеЕсли (БУ.Счет = Сч05) Тогда АмортизацияБУ = БУ.СКК(1); КонецЕсли; КонецЦикла; НомСтроки = 0; Если СписокНМА.НайтиЗначение(БУ.Субконто(1), НомСтроки, "НМА") = 0 Тогда СписокНМА.НоваяСтрока(); СписокНМА.БУ = 1; СписокНМА.НМА = БУ.Субконто(1); НомСтроки = СписокНМА.КоличествоСтрок(); КонецЕсли; Если АмортизацияБУ <> 0 Тогда Проводки.НоваяСтрока(); Проводки.СчетКт = Сч05; Проводки.СчетДт = Параметры.СчетВводаОстатков; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = ВидыСубконто.НематериальныеАктивы; Проводки.СубконтоКт.Значение = БУ.Субконто(1); Проводки.Сумма = АмортизацияБУ; СтоимостьНМА_бух.НоваяСтрока(); СтоимостьНМА_бух.Период = Параметры.ДатаВводаОстатков; СтоимостьНМА_бух.НематериальныйАктив = БУ.Субконто(1); СтоимостьНМА_бух.Амортизация = АмортизацияБУ; СтоимостьНМА_бух.ВидДвижения = "Приход"; КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Счет", "04.1, 05"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); Проводки.УдалитьСтроки(); // Налоговый учет НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(,Параметры.ДатаВводаОстатков, "Н05.03,Н05.04,НПР.04"); НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; ИначеЕсли НУ.Субконто(1).Вид() = "РасходыБудущихПериодов" Тогда Продолжить; КонецЕсли; СтоимостьНУ = 0; СтоимостьПР = 0; АмортизацияНУ = 0; АмортизацияПР = 0; ДтКт = 1; // 1 - дебет, 2 - кредит СтоимостьБУ = 0; АмортизацияБУ = 0; Счет1 = Сч04_1; Счет2 = Сч05; Если БУ.ПолучитьСубконто(1,, НУ.Субконто(1)) = 1 Тогда БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если БУ.Счет = Сч05 Тогда АмортизацияБУ = БУ.СКК(); Счет2 = БУ.Счет; Иначе СтоимостьБУ = БУ.СКД(); Счет1 = БУ.Счет; КонецЕсли; КонецЦикла; КонецЕсли; БУ.ПолучитьСубконто(1,, ""); БУ.ПолучитьПериод(, ""); Если НУ.ПолучитьСчет(, СчН05_03) = 1 Тогда ДтКт = 1; СтоимостьНУ = НУ.СКД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчНПР_04) = 1 Тогда ДтКт = 1; Если (СтоимостьБУ - АмортизацияБУ) <> 0 Тогда К = СтоимостьБУ / (СтоимостьБУ - АмортизацияБУ); СтоимостьПР = Окр(НУ.СКД(1) * К, 2, 1); АмортизацияПР = СтоимостьПР - НУ.СКД(1); КонецЕсли; КонецЕсли; Если НУ.ПолучитьСчет(, СчН05_04) = 1 Тогда ДтКт = 2; АмортизацияНУ = НУ.СКК(1); КонецЕсли; // Выгрузка остатков. НомСтроки = 0; Если СписокНМА.НайтиЗначение(НУ.Субконто(1), НомСтроки, "НМА") = 0 Тогда СписокНМА.НоваяСтрока(); СписокНМА.НМА = НУ.Субконто(1); НомСтроки = СписокНМА.КоличествоСтрок(); КонецЕсли; // Выгрузка остатков по амортизации Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ""); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", НУ.Субконто(1)); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", Счет2); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", АмортизацияНУ); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); // Поддержка ПБУ 18 //Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаВводаОстатков) = Да Тогда // Постоянные разницы Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", Счет2); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", АмортизацияПР); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); // Временные разницы Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); АмортизацияВР = АмортизацияБУ - АмортизацияНУ - АмортизацияПР; Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", Счет2); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", АмортизацияВР); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); //КонецЕсли; Если АмортизацияНУ <> 0 Тогда СтоимостьНМА_Нал.НоваяСтрока(); СтоимостьНМА_Нал.Период = Параметры.ДатаВводаОстатков; СтоимостьНМА_Нал.НематериальныйАктив = НУ.Субконто(1); СтоимостьНМА_Нал.Амортизация = АмортизацияНУ; СтоимостьНМА_Нал.ВидДвижения = "Приход"; КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", "Н05.03, Н05.04"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); СписокНМА.ВыбратьСтроки(); Пока СписокНМА.ПолучитьСтроку() = 1 Цикл ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("НМА", СписокНМА.НМА); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПринятиеКУчетуНМА"); КонецЦикла; Если (СтоимостьНМА_Бух.КоличествоСтрок()>0) или (СтоимостьНМА_нал.КоличествоСтрок()>0) ТОгда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("Комментарий", "Ввод остатков амортизации НМА"); ВходящиеДанные.Установить("СтоимостьНМАБухгалтерскийУчет", СтоимостьНМА_Бух); ВходящиеДанные.Установить("СтоимостьНМАНалоговыйУчет", СтоимостьНМА_Нал); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "АмортизацияНМА"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_НематериальныеАктивы", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_НематериальныеАктивы" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_НематериальныеАктивы() Функция ПВД_ПередОбработкойПравила_ОсновныеСредства( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка СчН05_01 = СчетПоКоду("Н05.01"); //Первоначальная ст-сть ОС СчН05_02 = СчетПоКоду("Н05.02"); //Амортизация ОС СчН05_КВ = СчетПоКоду("Н05.КВ"); //Расх. на кап.влож.ст.259 СчН05_МЦ = СчетПоКоду("Н05.МЦ"); //ОС, учит. в составе МПЗ СчНПР_01 = СчетПоКоду("НПР.01"); //ПР Основные средства Сч01_1 = СчетПоКоду("01.1"); Сч01_2 = СчетПоКоду("01.2"); Сч02_1 = СчетПоКоду("02.1"); Сч02_2 = СчетПоКоду("02.2"); Сч03_1 = СчетПоКоду("03.1"); Сч03_2 = СчетПоКоду("03.2"); Сч03_3 = СчетПоКоду("03.3"); Сч03_4 = СчетПоКоду("03.4"); СписокОС = СоздатьОбъект("ТаблицаЗначений"); СписокОС.НоваяКолонка("ОсновноеСредство"); СписокОС.НоваяКолонка("Подразделение"); СписокОС.НоваяКолонка("БУ", "Число"); СписокОС.НоваяКолонка("НУ", "Число"); СписокОС.НоваяКолонка("ГруппировкаДокументов"); СписокОС.НоваяКолонка("Контрагент"); СписокОС.НоваяКолонка("ТекущаяСтоимостьБУНач", "Число"); СписокОС.НоваяКолонка("ТекущаяСтоимостьБУКон", "Число"); СписокОС.НоваяКолонка("ТекущаяСтоимостьНУ", "Число"); СписокОС.НоваяКолонка("НакопленнаяАмортизацияБУНач", "Число"); СписокОС.НоваяКолонка("НакопленнаяАмортизацияБУКон", "Число"); СписокОС.НоваяКолонка("НакопленнаяАмортизацияНУ", "Число"); СписокОС.НоваяКолонка("СчетУчетаБУ"); СписокОС.НоваяКолонка("СчетУчетаНУ"); СписокОС.НоваяКолонка("СчетАмортизацииБУ"); СписокОС.НоваяКолонка("СчетАмортизацииНУ"); СписокОС.НоваяКолонка("СтоимостьДо2002НУ", "Число"); СписокОС.НоваяКолонка("АмортизацияДо2002НУ", "Число"); СписокОС.НоваяКолонка("ТекущаяСтоимостьПР", "Число"); СписокОС.НоваяКолонка("НакопленнаяАмортизацияПР", "Число"); СписокОС.НоваяКолонка("СписатьНаЗатратыПриВводе", "Число"); СписокОС.НоваяКолонка("СписатьНаЗатратыПриВводеРегл", "Число"); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(,Параметры.ДатаВводаОстатков, "01.1,02.1,02.2,03.1,03.2,03.3,03.4"); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БУ); БУ.ВыбратьСубконто(1); Пока БУ.ПолучитьСубконто(1) = 1 Цикл Если БУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; ДтКт = 1; // 1 - дебет, 2 - кредит Контрагент = ""; СчетУчета = Сч01_1; СчетАмортизации = Сч02_1; СтоимостьБУнач = 0; СтоимостьБУкон = 0; АмортизацияБУнач= 0; АмортизацияБУкон= 0; БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если (БУ.Счет = Сч01_1) или //(БУ.Счет = Сч01_2) или //? (БУ.Счет = Сч03_1) или (БУ.Счет = Сч03_2) или (БУ.Счет = Сч03_3) или (БУ.Счет = Сч03_4) Тогда ДтКт = 1; СчетУчета = БУ.Счет; СтоимостьБУнач = БУ.СНД(1); СтоимостьБУкон = БУ.СКД(1); Если (БУ.Счет = Сч03_2) или (БУ.Счет = Сч03_3) или (БУ.Счет = Сч03_4) Тогда БУ.ВыбратьСубконто(2); Пока БУ.ПолучитьСубконто(2) = 1 Цикл Если БУ.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; Контрагент = БУ.Субконто(2); КонецЦикла; КонецЕсли; ИначеЕсли (БУ.Счет = Сч02_1) или (БУ.Счет = Сч02_2) Тогда ДтКт = 2; СчетАмортизации = БУ.Счет; АмортизацияБУнач = БУ.СНК(1); АмортизацияБУкон = БУ.СКК(1); КонецЕсли; КонецЦикла; НомСтроки = 0; Если СписокОС.НайтиЗначение(БУ.Субконто(1), НомСтроки, "ОсновноеСредство") = 0 Тогда СписокОС.НоваяСтрока(); СписокОС.Подразделение = БУ.Субконто(1).Подразделение.Получить(Параметры.ДатаВводаОстатков); СписокОС.БУ = 1; СписокОС.ОсновноеСредство = БУ.Субконто(1); СписокОС.СписатьНаЗатратыПриВводе = 0; СписокОС.СписатьНаЗатратыПриВводеРегл = 0; НомСтроки = СписокОС.КоличествоСтрок(); КонецЕсли; СписокОС.УстановитьЗначение(НомСтроки, "СчетУчетаБУ", СчетУчета); СписокОС.УстановитьЗначение(НомСтроки, "СчетАмортизацииБУ", СчетАмортизации); СписокОС.УстановитьЗначение(НомСтроки, "Контрагент", Контрагент); СписокОС.УстановитьЗначение(НомСтроки, "ТекущаяСтоимостьБУНач", СтоимостьБУНач); СписокОС.УстановитьЗначение(НомСтроки, "НакопленнаяАмортизацияБУНач", АмортизацияБУНач); СписокОС.УстановитьЗначение(НомСтроки, "ТекущаяСтоимостьБУКон", СтоимостьБУКон); СписокОС.УстановитьЗначение(НомСтроки, "НакопленнаяАмортизацияБУКон", АмортизацияБУКон); КонецЦикла; НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, "Н05.01,Н05.02,Н05.МЦ,Н05.КВ,НПР.01"); НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьНУ = 0; СтоимостьПР = 0; АмортизацияНУ = 0; АмортизацияПР = 0; КапВложения = 0; Контрагент = ""; СтоимостьБУ = 0; АмортизацияБУ = 0; Счет1 = Сч01_1; Счет2 = Сч02_1; Если БУ.ПолучитьПериод(, НУ.НачДата) = 1 Тогда Если БУ.ПолучитьСубконто(1,, НУ.Субконто(1)) = 1 Тогда БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если (БУ.Счет = Сч02_1) или (БУ.Счет = Сч02_2) Тогда АмортизацияБУ = БУ.СНК(); Счет2 = БУ.Счет; Иначе СтоимостьБУ = БУ.СНД(); Счет1 = БУ.Счет; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; БУ.ПолучитьСубконто(1,, ""); БУ.ПолучитьПериод(, ""); ДтКт = 1; // 1 - дебет, 2 - кредит СчетМЦ = 0; Если НУ.ПолучитьСчет(, СчН05_01) = 1 Тогда ДтКт = 1; СтоимостьНУ = НУ.СНД(1); ИначеЕсли НУ.ПолучитьСчет(, СчН05_МЦ) = 1 Тогда ДтКт = 1; СчетМЦ = 1; СтоимостьНУ = НУ.СНД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчН05_КВ) = 1 Тогда ДтКт = 1; КапВложения = НУ.СНД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчНПР_01) = 1 Тогда ДтКт = 1; Если (СтоимостьБУ - АмортизацияБУ) <> 0 Тогда К = СтоимостьБУ / (СтоимостьБУ - АмортизацияБУ); СтоимостьПР = Окр(НУ.СНД(1) * К, 2, 1); АмортизацияПР = СтоимостьПР - НУ.СНД(1); КонецЕсли; КонецЕсли; Если НУ.ПолучитьСчет(, СчН05_02) = 1 Тогда ДтКт = 2; АмортизацияНУ = НУ.СНК(1); КонецЕсли; НомСтроки = 0; Если СписокОС.НайтиЗначение(НУ.Субконто(1), НомСтроки, "ОсновноеСредство") = 0 Тогда СписокОС.НоваяСтрока(); СписокОС.ОсновноеСредство = НУ.Субконто(1); СписокОС.Подразделение = НУ.Субконто(1).Подразделение.Получить(Параметры.ДатаВводаОстатков); СписокОС.СписатьНаЗатратыПриВводе = 0; СписокОС.СписатьНаЗатратыПриВводеРегл = 0; НомСтроки = СписокОС.КоличествоСтрок(); КонецЕсли; СписокОС.УстановитьЗначение(НомСтроки, "НУ", 1); СписокОС.УстановитьЗначение(НомСтроки, "ТекущаяСтоимостьНУ", СтоимостьНУ); СписокОС.УстановитьЗначение(НомСтроки, "ТекущаяСтоимостьПР", СтоимостьПР); СписокОС.УстановитьЗначение(НомСтроки, "НакопленнаяАмортизацияНУ", АмортизацияНУ); СписокОС.УстановитьЗначение(НомСтроки, "НакопленнаяАмортизацияПР", АмортизацияПР); Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", СчН05_КВ); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", КапВложения); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Если КапВложения>0 Тогда ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СчН05_КВ); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(, '31.12.2001', "Н05.01,Н05.02"); НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьНУ = 0; АмортизацияНУ = 0; Если НУ.ПолучитьСчет(, СчН05_01) = 1 Тогда СтоимостьНУ = НУ.СНД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчН05_02) = 1 Тогда АмортизацияНУ = НУ.СНК(1); КонецЕсли; НомСтроки = 0; Если СписокОС.НайтиЗначение(НУ.Субконто(1), НомСтроки, "ОсновноеСредство") = 0 Тогда СписокОС.НоваяСтрока(); СписокОС.ОсновноеСредство = НУ.Субконто(1); СписокОС.Подразделение = НУ.Субконто(1).Подразделение.Получить(Параметры.ДатаВводаОстатков); СписокОС.СписатьНаЗатратыПриВводе = 0; СписокОС.СписатьНаЗатратыПриВводеРегл = 0; НомСтроки = СписокОС.КоличествоСтрок(); КонецЕсли; СписокОС.УстановитьЗначение(НомСтроки, "НУ", 1); СписокОС.УстановитьЗначение(НомСтроки, "СтоимостьДо2002НУ", СтоимостьНУ); СписокОС.УстановитьЗначение(НомСтроки, "АмортизацияДо2002НУ", АмортизацияНУ); КонецЦикла; СписокОС.НоваяКолонка("ФормироватьПроводки", "Число"); СписокОС.ВыбратьСтроки(); Пока СписокОС.ПолучитьСтроку() = 1 Цикл СписокОС.ФормироватьПроводки = 0; Если (СписокОС.ТекущаяСтоимостьБУНач <> 0) или (СписокОС.НакопленнаяАмортизацияБУНач <> 0) или (СписокОС.ТекущаяСтоимостьНУ <> 0) или (СписокОС.НакопленнаяАмортизацияНУ <> 0) Тогда СписокОС.ФормироватьПроводки = 1; КонецЕсли; СписокОС.ГруппировкаДокументов = СписокОС.Подразделение.Код + СписокОС.БУ + СписокОС.НУ + СписокОС.ФормироватьПроводки; КонецЦикла; СписокОС.Сортировать("ГруппировкаДокументов"); ТекДок = ""; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); СписокПодразделения = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по СписокОС.КоличествоКолонок() Цикл СписокПодразделения.НоваяКолонка(СписокОС.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; СписокОС.ВыбратьСтроки(); Пока СписокОС.ПолучитьСтроку() = 1 Цикл Если ТекДок <> СписокОС.ГруппировкаДокументов Тогда Если СписокПодразделения.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Подразделение", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ПодразделениеОрганизации", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ФормироватьПроводки", СписокПодразделения.ПолучитьЗначение(1, "ФормироватьПроводки")); ВходящиеДанные.Установить("ОС", СписокПодразделения); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", СписокПодразделения.ПолучитьЗначение(1, "НУ")); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковОС"); СписокПодразделения.УдалитьСтроки(); КонецЕсли; ТекДок = СписокОС.ГруппировкаДокументов; КонецЕсли; СписокПодразделения.НоваяСтрока(); НомСтроки = СписокПодразделения.КоличествоСтрок(); Для НомКолонки = 1 по СписокОС.КоличествоКолонок() Цикл СписокПодразделения.УстановитьЗначение(НомСтроки, НомКолонки, СписокОС.ПолучитьЗначение(СписокОС.НомерСтроки, НомКолонки)); КонецЦикла; КонецЦикла; Если СписокПодразделения.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Подразделение", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ПодразделениеОрганизации", СписокПодразделения.ПолучитьЗначение(1, "Подразделение")); ВходящиеДанные.Установить("ОС", СписокПодразделения); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", СписокПодразделения.ПолучитьЗначение(1, "НУ")); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковОС"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОсновныеСредства", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_ОсновныеСредства" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_ОсновныеСредства() Функция ПВД_ПередОбработкойПравила_РасходыНаНИОКР( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка СтоимостьНМА_бух = СоздатьОбъект("ТаблицаЗначений"); СтоимостьНМА_бух.НоваяКолонка("НематериальныйАктив"); СтоимостьНМА_бух.НоваяКолонка("Амортизация"); СтоимостьНМА_бух.НоваяКолонка("Период"); СтоимостьНМА_бух.НоваяКолонка("ВидДвижения"); СтоимостьНМА_нал = СоздатьОбъект("ТаблицаЗначений"); СтоимостьНМА_нал.НоваяКолонка("НематериальныйАктив"); СтоимостьНМА_нал.НоваяКолонка("Амортизация"); СтоимостьНМА_нал.НоваяКолонка("Период"); СтоимостьНМА_нал.НоваяКолонка("ВидДвижения"); ДокументыНМА = СоздатьОбъект("ТаблицаЗначений"); ДокументыНМА.НоваяКолонка("РБП"); ДокументыНМА.НоваяКолонка("НМА"); Док = СоздатьОбъект("Документ.ПринятиеКУчетуНМА"); Док.ВыбратьДокументы(,); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.ВидОбъектаУчета = 1 Тогда ДокументыНМА.НоваяСтрока(); ДокументыНМА.НМА = Док.НМА; ДокументыНМА.РБП = Док.РБП; КонецЕсли; КонецЦикла; СчН04_03 = СчетПоКоду("Н04.03"); СчНПР_04 = СчетПоКоду("НПР.04"); Сч04_2 = СчетПоКоду("04.2"); Сч97 = СчетПоКоду("97"); СписокНМА = СоздатьОбъект("ТаблицаЗначений"); СписокНМА.НоваяКолонка("НМА"); СписокНМА.НоваяКолонка("СтоимостьБУ", "Число"); СписокНМА.НоваяКолонка("СтоимостьНУ", "Число"); СписокНМА.НоваяКолонка("СтоимостьПР", "Число"); СписокНМА.НоваяКолонка("СтоимостьВР", "Число"); СписокНМА.НоваяКолонка("БУ", "Число"); СписокНМА.НоваяКолонка("НУ", "Число"); СписокНМА.НоваяКолонка("ПервоначальнаяСтоимостьН", "Число"); СписокНМА.НоваяКолонка("СрокПолезногоИспользованияН", "Число"); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, "04.2,97"); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БУ); БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если БУ.Счет = Сч04_2 Тогда БУ.ВыбратьСубконто(); Пока БУ.ПолучитьСубконто() = 1 Цикл Если БУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; НомСтроки = 0; Если СписокНМА.НайтиЗначение(БУ.Субконто(1), НомСтроки, "НМА") = 0 Тогда СписокНМА.НоваяСтрока(); СписокНМА.БУ = 1; СписокНМА.НМА = БУ.Субконто(1); КонецЕсли; // Выгрузка начальных остатков ПервоначальнаяСтоимость = БУ.Субконто(1).ПервоначальнаяСтоимость; Если БУ.СНД(1) <> ПервоначальнаяСтоимость Тогда Проводки.НоваяСтрока(); Проводки.СчетКт = Сч04_2; Проводки.СчетДт = Параметры.СчетВводаОстатков; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = ВидыСубконто.НематериальныеАктивы; Проводки.СубконтоКт.Значение = БУ.Субконто(1); Проводки.Сумма = ПервоначальнаяСтоимость - БУ.СНД(1); СтоимостьНМА_бух.НоваяСтрока(); СтоимостьНМА_бух.Период = Параметры.ДатаВводаОстатков; СтоимостьНМА_бух.НематериальныйАктив = БУ.Субконто(1); СтоимостьНМА_бух.Амортизация = ПервоначальнаяСтоимость - БУ.СНД(1); СтоимостьНМА_бух.ВидДвижения = "Приход"; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Счет", "04.2"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); Проводки.УдалитьСтроки(); // Налоговый учет НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков+1,, "Н04.03,НПР.04"); НУ.ВыбратьСубконто(); Пока НУ.ПолучитьСубконто() = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; ИначеЕсли НУ.Субконто(1).Вид() = "НематериальныеАктивы" Тогда Продолжить; КонецЕсли; СтоимостьНУ = 0; СтоимостьПР = 0; ДтКт = 1; // 1 - дебет, 2 - кредит Если НУ.ПолучитьСчет(, СчН04_03) = 1 Тогда ДтКт = 1; СтоимостьНУ = НУ.СНД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчНПР_04) = 1 Тогда ДтКт = 1; СтоимостьПР = НУ.СНД(1); КонецЕсли; СтоимостьБУ = 0; СтатьяРБП = НУ.Субконто(1); //РБП ПервоначальнаяСтоимостьН = НУ.Субконто(1).Сумма; СрокПолезногоИспользованияН = Окр((НУ.Субконто(1).ДатаОкончанияСписания - НУ.Субконто(1).ДатаНачалаСписания)/30.41667,0); Счет1 = Сч97; БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если БУ.Счет = Сч04_2 Тогда НомСтроки = 0; Если ДокументыНМА.НайтиЗначение(СтатьяРБП, НомСтроки, "РБП") = 1 Тогда Счет1 = Сч04_2; СтатьяРБП = ДокументыНМА.ПолучитьЗначение(НомСтроки, "НМА"); //НМА Если БУ.ПолучитьСубконто(1,, СтатьяРБП) = 1 Тогда СтоимостьБУ = БУ.СНД(); КонецЕсли; БУ.ПолучитьСубконто(1,, ""); КонецЕсли; КонецЕсли; Если БУ.Счет = Сч97 Тогда Если БУ.ПолучитьСубконто(1,, СтатьяРБП) = 1 Тогда СтоимостьБУ = БУ.СНД(); КонецЕсли; БУ.ПолучитьСубконто(1,, ""); КонецЕсли; КонецЦикла; Если Счет1 = Сч04_2 Тогда НомСтроки = 0; Если СписокНМА.НайтиЗначение(СтатьяРБП, НомСтроки, "НМА") = 0 Тогда СписокНМА.НоваяСтрока(); СписокНМА.НМА = СтатьяРБП; НомСтроки = СписокНМА.КоличествоСтрок(); КонецЕсли; СписокНМА.УстановитьЗначение(НомСтроки, "НУ", 1); СписокНМА.УстановитьЗначение(НомСтроки, "ПервоначальнаяСтоимостьН", ПервоначальнаяСтоимостьН); СписокНМА.УстановитьЗначение(НомСтроки, "СрокПолезногоИспользованияН", СрокПолезногоИспользованияН); КонецЕсли; // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", СтатьяРБП); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ""); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", СтатьяРБП); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ""); // Стоимость Параметры.ПараметрыАлгоритмов.Установить("СчетКт", Счет1); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ПервоначальнаяСтоимостьН - СтоимостьНУ ); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); Если (ПервоначальнаяСтоимостьН - СтоимостьНУ) <> 0 Тогда СтоимостьНМА_Нал.НоваяСтрока(); СтоимостьНМА_Нал.Период = Параметры.ДатаВводаОстатков; СтоимостьНМА_Нал.НематериальныйАктив = СтатьяРБП; СтоимостьНМА_Нал.Амортизация = ПервоначальнаяСтоимостьН - СтоимостьНУ; СтоимостьНМА_Нал.ВидДвижения = "Приход"; КонецЕсли; // Поддержка ПБУ 18 Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаВводаОстатков) = Да Тогда // Постоянные разницы Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", Счет1); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьПР); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); // Временные разницы Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); // Стоимость СтоимостьВР = СтоимостьБУ - СтоимостьНУ - СтоимостьПР; Параметры.ПараметрыАлгоритмов.Установить("СчетДт", Счет1); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР); ДобавитьПроводкуНУ( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", "Н04.03"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); СписокНМА.ВыбратьСтроки(); Пока СписокНМА.ПолучитьСтроку() = 1 Цикл ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("НМА", СписокНМА.НМА); ВходящиеДанные.Установить("ПервоначальнаяСтоимостьН", СписокНМА.ПервоначальнаяСтоимостьН); ВходящиеДанные.Установить("СрокПолезногоИспользованияН", СписокНМА.СрокПолезногоИспользованияН); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПринятиеКУчетуНМА"); КонецЦикла; Если (СтоимостьНМА_Бух.КоличествоСтрок()>0) или (СтоимостьНМА_нал.КоличествоСтрок()>0) ТОгда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("Комментарий", "Ввод остатков амортизации НИОКР"); ВходящиеДанные.Установить("СтоимостьНМАБухгалтерскийУчет", СтоимостьНМА_Бух); ВходящиеДанные.Установить("СтоимостьНМАНалоговыйУчет", СтоимостьНМА_Нал); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "АмортизацияНМА"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_РасходыНаНИОКР", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_РасходыНаНИОКР" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_РасходыНаНИОКР() Функция ПВД_ПередОбработкойПравила_Подразделения( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Организация", 1); Выборка = СоздатьОбъект("Справочник.Подразделения"); Выборка.ВыбратьЭлементы(); Пока Выборка.ПолучитьЭлемент() > 0 Цикл ВходящиеДанные.Установить("Подразделение", Выборка.ТекущийЭлемент()); ВходящиеДанные.Установить("ПодразделениеОрганизации", Выборка.ТекущийЭлемент()); ВыгрузитьПоПравилу(,,ВходящиеДанные, , "СоответствиеПодразделенийИПодразделенийОрганизаций",,,); КонецЦикла; Отказ = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Подразделения", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_Подразделения" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_Подразделения() Функция ПВД_ПослеВыгрузкиОбъекта_Сотрудники( ИмяПКО, Правило, Объект, ИсходящиеДанные, ВходящиеДанные, УзелСсылки) Отказ = 0; Попытка Если Объект.ХарактерРаботы.Получить(Параметры.ДатаВводаОстатков) <> Перечисление.ХарактерРаботы.ТрудовыеОтношенияПрекращены Тогда Параметры.СотрудникиОрганизации.НоваяСтрока(); Параметры.СотрудникиОрганизации.ФизЛицо = Объект; Если ПустоеЗначение(Объект.Подразделение.Получить(Параметры.ДатаВводаОстатков))=1 Тогда ВспПодразделение = СоздатьОбъект("СписокЗначений"); ВспПодразделение.Установить("ПометкаУдаления",0); ВспПодразделение.Установить("Код",""); ВспПодразделение.Установить("Наименование","Вспомогательное (для ввода остатков)"); ВспПодразделение.Установить("Родитель",""); Параметры.СотрудникиОрганизации.ПодразделениеОрганизации = ВспПодразделение; Иначе Параметры.СотрудникиОрганизации.ПодразделениеОрганизации = Объект.Подразделение.Получить(Параметры.ДатаВводаОстатков); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПослеВыгрузкиОбъекта_Сотрудники", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПослеВыгрузкиОбъекта_Сотрудники" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПослеВыгрузкиОбъекта_Сотрудники() Функция ПВД_ПослеОбработкиПравила_Сотрудники( ИмяПКО, Правило, ИсходящиеДанные) Отказ = 0; Попытка Параметры.СотрудникиОрганизации.Свернуть("ФизЛицо, ПодразделениеОрганизации",""); КраткийСоставДокумента = ""; Если Параметры.СотрудникиОрганизации.КоличествоСтрок()>0 Тогда Таб = Параметры.СотрудникиОрганизации; Таб.ВыбратьСтроки(); Пока Таб.ПолучитьСтроку() = 1 Цикл ФИОФизЛица = ФИО(Таб.ФизЛицо); Если Найти(КраткийСоставДокумента, ФИОФизЛица) = 0 Тогда Если СтрДлина(КраткийСоставДокумента) < 100 Тогда КраткийСоставДокумента = КраткийСоставДокумента + ", " + ФИОФизЛица; Иначе КраткийСоставДокумента = Сред(КраткийСоставДокумента,3,95) + "..."; Прервать; КонецЕсли; КонецЕсли; Если Лев(КраткийСоставДокумента,2) = ", " Тогда ДлинаСтроки = СтрДлина(КраткийСоставДокумента); Если ДлинаСтроки < 100 Тогда КраткийСоставДокумента = Сред(КраткийСоставДокумента,3) Иначе КраткийСоставДокумента = Сред(КраткийСоставДокумента,3,95) + "..."; КонецЕсли; КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("РаботникиОрганизации", Параметры.СотрудникиОрганизации); ВходящиеДанные.Установить("Работники", Параметры.СотрудникиОрганизации); ВходящиеДанные.Установить("ОсновныеНачисления", Параметры.СотрудникиОрганизации); ВходящиеДанные.Установить("КраткийСоставДокумента", КраткийСоставДокумента); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПриемНаРаботуВОрганизацию"); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ПриемНаРаботу"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПослеОбработкиПравила_Сотрудники", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПослеОбработкиПравила_Сотрудники" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПослеОбработкиПравила_Сотрудники() Функция ПВД_ПередОбработкойПравила_УстановкаЦенНоменклатуры( ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных) Отказ = 0; Попытка //Документы формируем порциями МаксКоличествоСтрок = Параметры.МаксКоличествоСтрок; Комментарий = Параметры.Метка; ТипыЦен = СоздатьОбъект("ТаблицаЗначений"); ТипыЦен.НоваяКолонка("Наименование"); ТипыЦен.НоваяКолонка("ТипЦен"); ТипыЦен.НоваяКолонка("Товары"); Выборка = СоздатьОбъект("Справочник.Цены"); ВыборкаВладельцев = СоздатьОбъект("Справочник.Номенклатура"); ВыборкаМатериалов = СоздатьОбъект("Справочник.Материалы"); ВыборкаВладельцев.ВыбратьЭлементы(); Пока ВыборкаВладельцев.ПолучитьЭлемент() > 0 Цикл // Покупная стоимость Если ВыборкаВладельцев.Себестоимость <> 0 Тогда НомСтроки = 0; Наименование = "Учетная (покупная) цена"; Если ТипыЦен.НайтиЗначение(Наименование, НомСтроки, "Наименование") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.Наименование = Наименование; ТипыЦен.ТипЦен = СоздатьОбъект("СписокЗначений"); ТипыЦен.ТипЦен.Установить("ПометкаУдаления",0); ТипыЦен.ТипЦен.Установить("Наименование", Наименование); ТипыЦен.ТипЦен.Установить("ЦенаВклНДС", 0); ТипыЦен.ТипЦен.Установить("Комментарий", Наименование); ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Товары.НоваяКолонка("ИндексСтрокиТаблицыЦен"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = ВыборкаВладельцев.Себестоимость; Товары.Валюта = Параметры.Рубли; КонецЕсли; // Плановая себестоимость Если ВыборкаВладельцев.ПлановаяСебестоимость.Получить(Параметры.ДатаВводаОстатков) <> 0 Тогда НомСтроки = 0; Наименование = "Плановая себестоимость"; Если ТипыЦен.НайтиЗначение(Наименование, НомСтроки, "Наименование") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.Наименование = Наименование; ТипыЦен.ТипЦен = СоздатьОбъект("СписокЗначений"); ТипыЦен.ТипЦен.Установить("ПометкаУдаления",0); ТипыЦен.ТипЦен.Установить("Наименование", Наименование); ТипыЦен.ТипЦен.Установить("ЦенаВклНДС", 0); ТипыЦен.ТипЦен.Установить("Комментарий", Наименование); ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Товары.НоваяКолонка("ИндексСтрокиТаблицыЦен"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = ВыборкаВладельцев.ПлановаяСебестоимость.Получить(Параметры.ДатаВводаОстатков); Товары.Валюта = Параметры.Рубли; КонецЕсли; // Цены Если ВыборкаВладельцев.Цена <> 0 Тогда НомСтроки = 0; Наименование = ?(ВыборкаВладельцев.ПорядокХраненияОтпускнойЦены = 1, "Отпускная цена (без НДС)", "Отпускная цена (с учетом НДС)"); Если ТипыЦен.НайтиЗначение(Наименование, НомСтроки, "Наименование") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.Наименование = Наименование; ТипыЦен.ТипЦен = СоздатьОбъект("СписокЗначений"); ТипыЦен.ТипЦен.Установить("ПометкаУдаления",0); ТипыЦен.ТипЦен.Установить("Наименование", Наименование); ТипыЦен.ТипЦен.Установить("ЦенаВклНДС", ?(ВыборкаВладельцев.ПорядокХраненияОтпускнойЦены = 1, 0, 1)); ТипыЦен.ТипЦен.Установить("Комментарий", Наименование); ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Товары.НоваяКолонка("ИндексСтрокиТаблицыЦен"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = ВыборкаВладельцев.Цена; Товары.Валюта = ?(ПустоеЗначение(ВыборкаВладельцев.Валюта) = 1, Параметры.Рубли, ВыборкаВладельцев.Валюта); КонецЕсли; // Справочник "Цены" Выборка.ИспользоватьВладельца(ВыборкаВладельцев.ТекущийЭлемент()); Выборка.ВыбратьЭлементы(); Пока Выборка.ПолучитьЭлемент() > 0 Цикл Если Выборка.Цена.Получить(Параметры.ДатаВводаОстатков) <> 0 Тогда НомСтроки = 0; Наименование = СокрЛП(Выборка.ТипЦен.Наименование); Если ТипыЦен.НайтиЗначение(Наименование, НомСтроки, "Наименование") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.Наименование = Наименование; ТипыЦен.ТипЦен = Выборка.ТипЦен; ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Товары.НоваяКолонка("ИндексСтрокиТаблицыЦен"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = Выборка.Цена.Получить(Параметры.ДатаВводаОстатков); Товары.Валюта = ?(ПустоеЗначение(Выборка.Валюта) = 1, Параметры.Рубли, Выборка.Валюта); КонецЕсли; КонецЦикла; КонецЦикла; //Материалы ВыборкаВладельцев = СоздатьОбъект("Справочник.Материалы"); ВыборкаВладельцев.ВыбратьЭлементы(); Пока ВыборкаВладельцев.ПолучитьЭлемент() > 0 Цикл // Реквизит Материалы.Цена используется в Бух.7.7 только для документа "Поступление материалов" // Покупная стоимость Если ВыборкаВладельцев.Цена <> 0 Тогда НомСтроки = 0; Наименование = "Учетная (покупная) цена"; Если ТипыЦен.НайтиЗначение(Наименование, НомСтроки, "Наименование") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.Наименование = Наименование; ТипыЦен.ТипЦен = СоздатьОбъект("СписокЗначений"); ТипыЦен.ТипЦен.Установить("ПометкаУдаления",0); ТипыЦен.ТипЦен.Установить("Наименование", Наименование); ТипыЦен.ТипЦен.Установить("ЦенаВклНДС", 0); ТипыЦен.ТипЦен.Установить("Комментарий", Наименование); ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Товары.НоваяКолонка("ИндексСтрокиТаблицыЦен"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = ВыборкаВладельцев.Цена; Товары.Валюта = Параметры.Рубли; КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); НомерДокументаПоПорядку = 1; ТипыЦен.ВыбратьСтроки(); Пока ТипыЦен.ПолучитьСтроку() = 1 Цикл Если ТипыЦен.Товары.КоличествоСтрок() > 0 Тогда ТТ = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по ТипыЦен.Товары.КоличествоКолонок() Цикл ТТ.НоваяКолонка(ТипыЦен.Товары.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; ИндексСтрокиТаблицыЦен = 0; ТипыЦен.Товары.ВыбратьСтроки(); Пока ТипыЦен.Товары.ПолучитьСтроку() = 1 Цикл Если ТТ.КоличествоСтрок() > МаксКоличествоСтрок Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("Комментарий","("+НомерДокументаПоПорядку+") "+Комментарий); ВходящиеДанные.Установить("ТипЦен", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("Товары", ТТ); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "УстановкаЦенНоменклатуры"); НомерДокументаПоПорядку = НомерДокументаПоПорядку + 1; ТТ.УдалитьСтроки(); ИндексСтрокиТаблицыЦен = 0; КонецЕсли; ТТ.НоваяСтрока(); НомСтроки = ТТ.КоличествоСтрок(); ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен + 1; Для НомКолонки = 1 по ТипыЦен.Товары.КоличествоКолонок() Цикл ТТ.УстановитьЗначение(НомСтроки, НомКолонки, ТипыЦен.Товары.ПолучитьЗначение(ТипыЦен.Товары.НомерСтроки, НомКолонки)); КонецЦикла; ТТ.ИндексСтрокиТаблицыЦен = ИндексСтрокиТаблицыЦен; КонецЦикла; Если ТТ.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("Комментарий","("+НомерДокументаПоПорядку+") "+Комментарий); ВходящиеДанные.Установить("ТипЦен", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("Товары", ТТ); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "УстановкаЦенНоменклатуры"); НомерДокументаПоПорядку = НомерДокументаПоПорядку + 1; ТТ.УдалитьСтроки(); ИндексСтрокиТаблицыЦен = 0; КонецЕсли; КонецЕсли; КонецЦикла; Исключение Сообщить("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_УстановкаЦенНоменклатуры", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПВД_ПередОбработкойПравила_УстановкаЦенНоменклатуры" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПВД_ПередОбработкойПравила_УстановкаЦенНоменклатуры() Функция ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Комментарий_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Ввод остатков по подотчетным лицам"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Комментарий_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Комментарий_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Комментарий_Реквизит2() Функция ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Организация_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Организация_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Организация_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Организация_Реквизит5() Функция ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_ВидПоступления_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "НаСклад"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_ВидПоступления_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_ВидПоступления_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_ВидПоступления_Реквизит8() Функция ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Дата_Свойство15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Дата_Свойство15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Дата_Свойство15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АвансовыйОтчетДляПО_Дата_Свойство15() Функция ПКО_ПередВыгрузкой_АдресПоПропискеФизЛица( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Источник.АдресПрописка); ПолучитьСтруктуруАдреса( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,,,,,,,,, ИмяПКО,,,,, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, РежимЗаписи, РежимПроведения,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_АдресПоПропискеФизЛица", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_АдресПоПропискеФизЛица" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_АдресПоПропискеФизЛица() Функция ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Вид_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ЮрАдресФизЛица"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Вид_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Вид_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Вид_Измерение1() Функция ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Объект_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Объект_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Объект_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Объект_Измерение2() Функция ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Тип_Измерение13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Адрес"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Тип_Измерение13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Тип_Измерение13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АдресПоПропискеФизЛица_Тип_Измерение13() Функция ПКГС_ПередОбработкойВыгрузки_АмортизацияНМА_ТаблицаРегистровНакопления_ТабличнаяЧасть3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Имя"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Имя = "СтоимостьНМАБухгалтерскийУчет"; КоллекцияОбъектов.Представление = "Стоимость НМА (бухгалтерский учет)"; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Имя = "СтоимостьНМАНалоговыйУчет"; КоллекцияОбъектов.Представление = "Стоимость НМА (налоговый учет)"; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_АмортизацияНМА_ТаблицаРегистровНакопления_ТабличнаяЧасть3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_АмортизацияНМА_ТаблицаРегистровНакопления_ТабличнаяЧасть3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_АмортизацияНМА_ТаблицаРегистровНакопления_ТабличнаяЧасть3() Функция ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_Организация_Измерение7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_Организация_Измерение7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_Организация_Измерение7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_Организация_Измерение7() Функция ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_ВидДвижения_Свойство8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Приход"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_ВидДвижения_Свойство8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_ВидДвижения_Свойство8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАБухгалтерскийУчет_ВидДвижения_Свойство8() Функция ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_ВидДвижения_Свойство17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Приход"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_ВидДвижения_Свойство17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_ВидДвижения_Свойство17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_ВидДвижения_Свойство17() Функция ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_Организация_Измерение18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_Организация_Измерение18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_Организация_Измерение18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_АмортизацияНМА_СтоимостьНМАНалоговыйУчет_Организация_Измерение18() Функция ПКГС_ПередОбработкойВыгрузки_Банки__10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Банки__10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Банки__10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_Банки__10() Функция ПКО_ПередВыгрузкой_БанковскиеСчета( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка ВидСчета = ПолучитьЗначение(ВходящиеДанные,"ВидСчета"); Если ПустоеЗначение(ВидСчета) = 1 Тогда ВидСчета = ПолучитьЗначение(Источник,"ВидСчета"); КонецЕсли; КлючВыгружаемыхДанных = Источник.Номер+Источник.БанкОрганизации.Код+ВидСчета; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_БанковскиеСчета", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_БанковскиеСчета" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_БанковскиеСчета() Функция ПКС_ПередВыгрузкой_БанковскиеСчета_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_БанковскиеСчета_Код_Свойство2() Функция ПКС_ПередВыгрузкой_БанковскиеСчета_ВалютаДенежныхСредств_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ТипСчета = Перечисление.ТипыБанковскихСчетов.Рублевый Тогда Значение = Параметры.Рубли; Иначе //6-8 символы номера счета - код валюты КодВалюты = Сред(Источник.Номер,6,3); СпрВалюты = СоздатьОбъект("Справочник.Валюты"); Если СпрВалюты.НайтиПоКоду(КодВалюты) = 1 Тогда Значение = СпрВалюты.ТекущийЭлемент(); Иначе Значение = ""; КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_ВалютаДенежныхСредств_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_ВалютаДенежныхСредств_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_БанковскиеСчета_ВалютаДенежныхСредств_Реквизит6() Функция ПКС_ПередВыгрузкой_БанковскиеСчета_ВидСчета_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидСчета = ПолучитьЗначение(ВходящиеДанные,"ВидСчета"); Если ПустоеЗначение(ВидСчета) = 1 Тогда ВидСчета = ПолучитьЗначение(Источник,"ВидСчета"); КонецЕсли; Если ПустоеЗначение(ВидСчета) = 1 Тогда ВидСчета = ""; КонецЕсли; Если (СокрЛП(ВидСчета) <> "Ссудный") и (СокрЛП(ВидСчета) <> "Депозитный") Тогда ВидСчета = "Расчетный"; КонецЕсли; Значение = ВидСчета; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_ВидСчета_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_ВидСчета_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_БанковскиеСчета_ВидСчета_Реквизит7() Функция ПКС_ПередВыгрузкой_БанковскиеСчета_Владелец_Свойство16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_Владелец_Свойство16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БанковскиеСчета_Владелец_Свойство16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_БанковскиеСчета_Владелец_Свойство16() Функция ПКС_ПередВыгрузкой_БланкиСтрогойОтчетности_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БланкиСтрогойОтчетности_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_БланкиСтрогойОтчетности_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_БланкиСтрогойОтчетности_Код_Свойство1() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Организация_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Организация_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Организация_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Организация_Реквизит4() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ЕдиницаИзмерения_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.Номенклатура.ЕдиницаИзмерения; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ЕдиницаИзмерения_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ЕдиницаИзмерения_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ЕдиницаИзмерения_Реквизит10() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ДатаПередачиВЭксплуатацию_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.НазначениеИспользования.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ДатаПередачиВЭксплуатацию_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ДатаПередачиВЭксплуатацию_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_ДатаПередачиВЭксплуатацию_Реквизит12() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_Коэффициент_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_Коэффициент_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_Коэффициент_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_Коэффициент_Реквизит14() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаБУ_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СчетПоКоду("10.11.1"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаБУ_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаБУ_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаБУ_Реквизит17() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаНУ_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СчетПоКоду("10.11.1"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаНУ_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаНУ_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМатериаловВЭксплуатации_Материалы_СчетУчетаНУ_Реквизит18() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Проведен_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Проведен_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Проведен_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Проведен_Свойство2() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Комментарий_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Метка + ", ввод остатков по счету МЦ.01"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Комментарий_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Комментарий_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Комментарий_Реквизит3() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Организация_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Организация_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Организация_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_Организация_Реквизит4() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВУправленческомУчете_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВУправленческомУчете_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВУправленческомУчете_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВУправленческомУчете_Реквизит5() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВБухгалтерскомУчете_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВБухгалтерскомУчете_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВБухгалтерскомУчете_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВБухгалтерскомУчете_Реквизит6() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВНалоговомУчете_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВНалоговомУчете_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВНалоговомУчете_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОтражатьВНалоговомУчете_Реквизит7() Функция ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковМЦ01_ОС_ТабличнаяЧасть10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка КоллекцияОбъектов = ВходящиеДанные.Получить("ОС"); КоллекцияОбъектов.НоваяКолонка("СпособПоступленияРегл"); КоллекцияОбъектов.НоваяКолонка("МОЛРегл"); КоллекцияОбъектов.НоваяКолонка("СпособОтраженияРасходовПоАмортизацииБУ"); КоллекцияОбъектов.НоваяКолонка("СпособОтраженияРасходовПоАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("МетодНачисленияАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("СпособНачисленияАмортизацииБУ"); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковМЦ01_ОС_ТабличнаяЧасть10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковМЦ01_ОС_ТабличнаяЧасть10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковМЦ01_ОС_ТабличнаяЧасть10() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьБУ_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьБУ_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьБУ_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьБУ_Реквизит11() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимость_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимость_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимость_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимость_Реквизит12() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьНУ_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимостьН.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьНУ_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьНУ_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьНУ_Реквизит13() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьБУ_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ПервоначальнаяСтоимостьБУ; Если ПустоеЗначение(Значение) = 1 ТОгда Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимость.Получить(Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьБУ_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьБУ_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимостьБУ_Реквизит14() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимость_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ПервоначальнаяСтоимость; Если ПустоеЗначение(Значение) = 1 ТОгда Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимость.Получить(Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимость_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимость_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПервоначальнаяСтоимость_Реквизит15() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит16() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит17() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ ввода в эксплуатацию"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит18() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ ввода в эксплуатацию"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит19() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Ввод в эксплуатацию"); СобытиеОС.Установить("ВидСобытияОС","ВводВЭксплуатацию"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит20() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатацию_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Ввод в эксплуатацию"); СобытиеОС.Установить("ВидСобытияОС","ВводВЭксплуатацию"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатацию_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатацию_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеВводВЭксплуатацию_Реквизит21() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьНУ_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьНУ_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьНУ_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьНУ_Реквизит22() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьПР_Реквизит23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьПР_Реквизит23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьПР_Реквизит23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ТекущаяСтоимостьПР_Реквизит23() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизация_Реквизит24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизация_Реквизит24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизация_Реквизит24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизация_Реквизит24() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияБУ_Реквизит25( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияБУ_Реквизит25", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияБУ_Реквизит25" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияБУ_Реквизит25() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияНУ_Реквизит26( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияНУ_Реквизит26", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияНУ_Реквизит26" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияНУ_Реквизит26() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияПР_Реквизит27( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияПР_Реквизит27", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияПР_Реквизит27" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НакопленнаяАмортизацияПР_Реквизит27() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииБУ_Реквизит28( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииБУ_Реквизит28", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииБУ_Реквизит28" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииБУ_Реквизит28() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииНУ_Реквизит29( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииНУ_Реквизит29", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииНУ_Реквизит29" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетАмортизацииНУ_Реквизит29() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаБУ_Реквизит30( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаБУ_Реквизит30", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаБУ_Реквизит30" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаБУ_Реквизит30() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаНУ_Реквизит31( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СчетПоКоду("01.1"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаНУ_Реквизит31", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаНУ_Реквизит31" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СчетУчетаНУ_Реквизит31() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛ_Реквизит32( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.МОЛ.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛ_Реквизит32", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛ_Реквизит32" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛ_Реквизит32() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ИнвентарныйНомерРегл_Реквизит34( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.Код; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ИнвентарныйНомерРегл_Реквизит34", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ИнвентарныйНомерРегл_Реквизит34" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ИнвентарныйНомерРегл_Реквизит34() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчету_Реквизит35( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчету_Реквизит35", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчету_Реквизит35" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчету_Реквизит35() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчетуРегл_Реквизит36( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчетуРегл_Реквизит36", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчетуРегл_Реквизит36" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПринятияКУчетуРегл_Реквизит36() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчету_Реквизит37( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Принятие к учету"); СобытиеОС.Установить("ВидСобытияОС","ПринятиеКУчету"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчету_Реквизит37", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчету_Реквизит37" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчету_Реквизит37() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчетуРегл_Реквизит38( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Принятие к учету"); СобытиеОС.Установить("ВидСобытияОС","ПринятиеКУчету"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчетуРегл_Реквизит38", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчетуРегл_Реквизит38" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеПринятияКУчетуРегл_Реквизит38() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчету_Реквизит39( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ принятия к учету"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчету_Реквизит39", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчету_Реквизит39" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчету_Реквизит39() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит40( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ принятия к учету"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит40", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит40" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит40() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчету_Реквизит41( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчету_Реквизит41", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчету_Реквизит41" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчету_Реквизит41() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит42( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит42", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит42" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит42() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособПоступленияБУ_Реквизит43( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СпособПоступления; Если ПустоеЗначение(Значение)=1 Тогда Значение = Перечисление.СпособыПоступленияОС.ПриобретениеЗаПлату; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособПоступленияБУ_Реквизит43", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособПоступленияБУ_Реквизит43" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособПоступленияБУ_Реквизит43() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатацию_Реквизит44( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатацию_Реквизит44", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатацию_Реквизит44" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатацию_Реквизит44() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит45( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит45", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит45" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит45() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит46( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит46", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит46" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит46() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит47( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит47", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит47" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит47() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличество_Реквизит48( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличество_Реквизит48", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличество_Реквизит48" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличество_Реквизит48() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличествоБУ_Реквизит49( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличествоБУ_Реквизит49", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличествоБУ_Реквизит49" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ВыработкаКоличествоБУ_Реквизит49() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскорения_Реквизит50( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентУскорения; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскорения_Реквизит50", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскорения_Реквизит50" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскорения_Реквизит50() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскоренияБУ_Реквизит51( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентУскорения; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскоренияБУ_Реквизит51", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскоренияБУ_Реквизит51" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентУскоренияБУ_Реквизит51() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизации_Реквизит52( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентАмортизации.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизации_Реквизит52", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизации_Реквизит52" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизации_Реквизит52() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизацииБУ_Реквизит53( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентАмортизации.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизацииБУ_Реквизит53", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизацииБУ_Реквизит53" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_КоэффициентАмортизацииБУ_Реквизит53() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпециальныйКоэффициентНУ_Реквизит54( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СпециальныйКоэффициент.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпециальныйКоэффициентНУ_Реквизит54", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпециальныйКоэффициентНУ_Реквизит54" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпециальныйКоэффициентНУ_Реквизит54() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит55( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ВключениеВРасходыПриПринятииКУчету"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит55", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит55" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит55() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит56( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0, 0, 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит56", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит56" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит56() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит57( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0 Тогда Отказ = 1; Иначе Значение = глДатаНаКоторуюУстановленоЗначение(ОбъектКоллекции.ОсновноеСредство, "БазоваяСтоимость", Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит57", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит57" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит57() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ФактическийСрокИспользованияНУ_Реквизит58( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0 Тогда Отказ = 1; Иначе ДатаПереходаНаБазовую = глДатаНаКоторуюУстановленоЗначение(ОбъектКоллекции.ОсновноеСредство, "БазоваяСтоимость", Параметры.ДатаВводаОстатков); ДатаВводаВЭксплуатацию = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Значение = (ДатаГод(ДатаПереходаНаБазовую) - ДатаГод(ДатаВводаВЭксплуатацию) + 1) * 12 + ДатаМесяц(ДатаПереходаНаБазовую) - ДатаМесяц(КонМесяца(ДатаВводаВЭксплуатацию) + 1); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ФактическийСрокИспользованияНУ_Реквизит58", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ФактическийСрокИспользованияНУ_Реквизит58" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ФактическийСрокИспользованияНУ_Реквизит58() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизации_Реквизит59( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Значение = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация Значение = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизации_Реквизит59", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизации_Реквизит59" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизации_Реквизит59() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизацииРегл_Реквизит60( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Значение = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация Значение = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизацииРегл_Реквизит60", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизацииРегл_Реквизит60" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ДатаПоследнейМодернизацииРегл_Реквизит60() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизации_Реквизит61( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации); Значение = СтоимостьДоМодернизации - СтоимостьПослеМодернизации; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизации_Реквизит61", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизации_Реквизит61" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизации_Реквизит61() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииБУ_Реквизит62( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации); Значение = СтоимостьДоМодернизации - СтоимостьПослеМодернизации; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииБУ_Реквизит62", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииБУ_Реквизит62" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииБУ_Реквизит62() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииНУ_Реквизит63( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимостьН.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимостьН.Получить(ДатаМодернизации); Значение = СтоимостьДоМодернизации - СтоимостьПослеМодернизации; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииНУ_Реквизит63", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииНУ_Реквизит63" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаПоследнейМодернизацииНУ_Реквизит63() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит64( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0 Тогда Отказ = 1; Иначе ДатаБазовойСтоимости = глДатаНаКоторуюУстановленоЗначение(ОбъектКоллекции.ОсновноеСредство, "БазоваяСтоимость", Параметры.ДатаВводаОстатков); ПервоначальнаяСтоимость = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимостьН.Получить(ДатаБазовойСтоимости); БазоваяСтоимость = ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(ДатаБазовойСтоимости); Значение = ПервоначальнаяСтоимость - БазоваяСтоимость; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит64", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит64" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит64() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизации_Реквизит65( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Модернизация ОС"); СобытиеОС.Установить("ВидСобытияОС","Модернизация"); Значение = СобытиеОС; Отказ = ПустоеЗначение(ОбъектКоллекции.ОсновноеСредство.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизации_Реквизит65", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизации_Реквизит65" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизации_Реквизит65() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизацииРегл_Реквизит66( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Модернизация ОС"); СобытиеОС.Установить("ВидСобытияОС","Модернизация"); Значение = СобытиеОС; Отказ = ПустоеЗначение(ОбъектКоллекции.ОсновноеСредство.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизацииРегл_Реквизит66", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизацииРегл_Реквизит66" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СобытиеМодернизацииРегл_Реквизит66() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛРегл_Реквизит67( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.МОЛ.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛРегл_Реквизит67", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛРегл_Реквизит67" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МОЛРегл_Реквизит67() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользования_Реквизит68( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользования_Реквизит68", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользования_Реквизит68" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользования_Реквизит68() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияБУ_Реквизит69( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияБУ_Реквизит69", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияБУ_Реквизит69" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияБУ_Реквизит69() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияНУ_Реквизит70( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользованияН.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияНУ_Реквизит70", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияНУ_Реквизит70" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокПолезногоИспользованияНУ_Реквизит70() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СтоимостьДо2002НУ_Реквизит71( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СтоимостьДо2002НУ_Реквизит71", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СтоимостьДо2002НУ_Реквизит71" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СтоимостьДо2002НУ_Реквизит71() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_АмортизацияДо2002НУ_Реквизит72( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.АмортизацияНачисленнаяДо2002; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_АмортизацияДо2002НУ_Реквизит72", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_АмортизацияДо2002НУ_Реквизит72" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_АмортизацияДо2002НУ_Реквизит72() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизацию_Реквизит73( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизацию_Реквизит73", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизацию_Реквизит73" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизацию_Реквизит73() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюБУ_Реквизит74( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюБУ_Реквизит74", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюБУ_Реквизит74" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюБУ_Реквизит74() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюНУ_Реквизит75( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюНУ_Реквизит75", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюНУ_Реквизит75" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_НачислятьАмортизациюНУ_Реквизит75() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизации_Реквизит76( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизации_Реквизит76", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизации_Реквизит76" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизации_Реквизит76() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботБУ_Реквизит77( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботБУ_Реквизит77", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботБУ_Реквизит77" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРаботБУ_Реквизит77() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРабот_Реквизит78( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРабот_Реквизит78", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРабот_Реквизит78" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ОбъемПродукцииРабот_Реквизит78() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработкиБУ_Реквизит79( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.СпособНачисленияАмортизации = Перечисление.СпособыНачисленияАмортизацииОС.ПропорциональноОбъемуПродукцииРабот Тогда Значение = "1"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработкиБУ_Реквизит79", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработкиБУ_Реквизит79" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработкиБУ_Реквизит79() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработки_Реквизит80( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.СпособНачисленияАмортизации = Перечисление.СпособыНачисленияАмортизацииОС.ПропорциональноОбъемуПродукцииРабот Тогда Значение = "1"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработки_Реквизит80", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработки_Реквизит80" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_ПараметрВыработки_Реквизит80() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит81( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); ДатаМодернизации = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; СрокПолезногоИспользования = ОС.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ОставшийсяСрокПолезногИспользованияПослеМодернизации = 0; ОстаточнаяСтоимостьПослеМодернизации = ОС.ОстаточнаяСтоимостьПослеМодернизации.Получить(Параметры.ДатаВводаОстатков); Если (ПустоеЗначение(ДатаМодернизации) = 0) и (ПустоеЗначение(ОС.ДатаВводаВЭксплуатацию) = 0) Тогда ОставшийсяСрокПолезногИспользованияПослеМодернизации = СрокПолезногоИспользования - (ДатаГод(КонМесяца(ДатаМодернизации)) - ДатаГод(КонМесяца(ОС.ДатаВводаВЭксплуатацию))) * 12 - (ДатаМесяц(КонМесяца(ДатаМодернизации)) - ДатаМесяц(КонМесяца(ОС.ДатаВводаВЭксплуатацию))); КонецЕсли; СрокПолезногоИспользования = ОставшийсяСрокПолезногИспользованияПослеМодернизации; КонецЕсли; Значение = СрокПолезногоИспользования; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит81", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит81" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит81() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит82( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); ДатаМодернизации = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; СрокПолезногоИспользования = ОС.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ОставшийсяСрокПолезногИспользованияПослеМодернизации = 0; ОстаточнаяСтоимостьПослеМодернизации = ОС.ОстаточнаяСтоимостьПослеМодернизации.Получить(Параметры.ДатаВводаОстатков); Если (ПустоеЗначение(ДатаМодернизации) = 0) и (ПустоеЗначение(ОС.ДатаВводаВЭксплуатацию) = 0) Тогда ОставшийсяСрокПолезногИспользованияПослеМодернизации = СрокПолезногоИспользования - (ДатаГод(КонМесяца(ДатаМодернизации)) - ДатаГод(КонМесяца(ОС.ДатаВводаВЭксплуатацию))) * 12 - (ДатаМесяц(КонМесяца(ДатаМодернизации)) - ДатаМесяц(КонМесяца(ОС.ДатаВводаВЭксплуатацию))); КонецЕсли; СрокПолезногоИспользования = ОставшийсяСрокПолезногИспользованияПослеМодернизации; КонецЕсли; Значение = СрокПолезногоИспользования; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит82", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит82" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит82() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит83( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит83", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит83" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит83() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит84( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит84", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит84" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит84() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит85( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит85", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит85" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит85() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МетодНачисленияАмортизацииНУ_Реквизит86( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МетодНачисленияАмортизацииНУ_Реквизит86", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МетодНачисленияАмортизацииНУ_Реквизит86" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_МетодНачисленияАмортизацииНУ_Реквизит86() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизацииБУ_Реквизит87( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизацииБУ_Реквизит87", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизацииБУ_Реквизит87" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СпособНачисленияАмортизацииБУ_Реквизит87() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводе_Реквизит88( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводе_Реквизит88", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводе_Реквизит88" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводе_Реквизит88() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводеРегл_Реквизит89( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводеРегл_Реквизит89", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводеРегл_Реквизит89" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковМЦ01_ОС_СписатьНаЗатратыПриВводеРегл_Реквизит89() Функция ПКО_ПередВыгрузкой_ВводНачальныхОстатковНДС( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка //КлючВыгружаемыхДанных = ПолучитьЗначение(ВходящиеДанные,"Комментарий")+ПолучитьЗначение(ВходящиеДанные,"ВидОперации"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВводНачальныхОстатковНДС", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВводНачальныхОстатковНДС" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ВводНачальныхОстатковНДС() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Проведен_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Проведен_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Проведен_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Проведен_Свойство2() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Организация_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Организация_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Организация_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_Организация_Реквизит4() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ОтразитьРасчетыСКонтрагентами_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ОтразитьРасчетыСКонтрагентами_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ОтразитьРасчетыСКонтрагентами_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ОтразитьРасчетыСКонтрагентами_Реквизит6() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДоговорКонтрагента_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидОперации = ПолучитьЗначение(ВходящиеДанные,"ВидОперации"); ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); Если ВидОперации = "НДСПоПриобретеннымЦенностям" Тогда ИсходящиеДанные.Установить("ВидДоговора","СПоставщиком"); Иначе ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДоговорКонтрагента_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДоговорКонтрагента_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДоговорКонтрагента_Реквизит10() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ПредъявленСФ_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ВходящиеДанные.Получить("ВидОперации") <> "НДСПоПриобретеннымЦенностям" Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ПредъявленСФ_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ПредъявленСФ_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ПредъявленСФ_Реквизит11() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДатаСФ_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Дата(ОбъектКоллекции.ДатаСФ); Значение = ?(ПустоеЗначение(Значение) = 1, Параметры.ДатаВводаОстатков, Значение); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДатаСФ_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДатаСФ_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ДатаСФ_Реквизит12() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КурсВзаиморасчетов_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КурсВзаиморасчетов_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КурсВзаиморасчетов_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КурсВзаиморасчетов_Реквизит19() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КратностьВзаиморасчетов_Реквизит20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КратностьВзаиморасчетов_Реквизит20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КратностьВзаиморасчетов_Реквизит20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_КратностьВзаиморасчетов_Реквизит20() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ВалютаВзаиморасчетов_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Рубли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ВалютаВзаиморасчетов_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ВалютаВзаиморасчетов_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_ВалютаВзаиморасчетов_Реквизит21() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДополнительныеСведения_Номенклатура_Реквизит30( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.Номенклатура) = 1 Тогда Отказ = 1; Иначе Если ОбъектКоллекции.Номенклатура.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДополнительныеСведения_Номенклатура_Реквизит30", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДополнительныеСведения_Номенклатура_Реквизит30" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДополнительныеСведения_Номенклатура_Реквизит30() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_СчетФактура_Реквизит41( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидОперации = ПолучитьЗначение(ВходящиеДанные,"ВидОперации"); Если ПустоеЗначение(ОбъектКоллекции.СчетФактура) = 1 Тогда Отказ = 1; ИначеЕсли ВидОперации = "НДСПоПриобретеннымЦенностям" Тогда ИмяПКО = "РасчетныйДокументПоставщики"; ИначеЕсли ВидОперации = "НДСНеПолученныйОтПокупателей" Тогда ИмяПКО = "РасчетныйДокументПокупатели"; ИначеЕсли ВидОперации = "НДСпоАвансамПолученным" Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидОперации", ВидОперации); //ИсходящиеДанные.Установить("КредДокумент", ОбъектКоллекции.СчетФактура); ИсходящиеДанные.Установить("РасчетныйДокумент","Да"); ИсходящиеДанные.Установить("ДокументОснование","Да"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_СчетФактура_Реквизит41", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_СчетФактура_Реквизит41" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковНДС_ДанныеПоСФ_СчетФактура_Реквизит41() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Проведен_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Проведен_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Проведен_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Проведен_Свойство2() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Комментарий_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ПолучитьКомментарийДокумента( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Комментарий_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Комментарий_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Комментарий_Реквизит3() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Организация_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Организация_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Организация_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_Организация_Реквизит4() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВУправленческомУчете_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВУправленческомУчете_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВУправленческомУчете_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВУправленческомУчете_Реквизит5() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВБухгалтерскомУчете_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВБухгалтерскомУчете_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВБухгалтерскомУчете_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОтражатьВБухгалтерскомУчете_Реквизит6() Функция ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковОС_ОС_ТабличнаяЧасть10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка КоллекцияОбъектов = ВходящиеДанные.Получить("ОС"); КоллекцияОбъектов.НоваяКолонка("СпособПоступленияРегл"); КоллекцияОбъектов.НоваяКолонка("МОЛРегл"); КоллекцияОбъектов.НоваяКолонка("СпособОтраженияРасходовПоАмортизацииБУ"); КоллекцияОбъектов.НоваяКолонка("СпособОтраженияРасходовПоАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("МетодНачисленияАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("СпособНачисленияАмортизацииБУ"); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковОС_ОС_ТабличнаяЧасть10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковОС_ОС_ТабличнаяЧасть10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ВводНачальныхОстатковОС_ОС_ТабличнаяЧасть10() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ИнвентарныйНомерРегл_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.Код; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ИнвентарныйНомерРегл_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ИнвентарныйНомерРегл_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ИнвентарныйНомерРегл_Реквизит12() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчету_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчету_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчету_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчету_Реквизит13() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчетуРегл_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчетуРегл_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчетуРегл_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПринятияКУчетуРегл_Реквизит14() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчету_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Принятие к учету"); СобытиеОС.Установить("ВидСобытияОС","ПринятиеКУчету"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчету_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчету_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчету_Реквизит15() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчетуРегл_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Принятие к учету"); СобытиеОС.Установить("ВидСобытияОС","ПринятиеКУчету"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчетуРегл_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчетуРегл_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеПринятияКУчетуРегл_Реквизит16() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчету_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ принятия к учету"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчету_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчету_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчету_Реквизит17() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ принятия к учету"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаПринятияКУчетуРегл_Реквизит18() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчету_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчету_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчету_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчету_Реквизит19() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаПринятияКУчетуРегл_Реквизит20() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособПоступленияБУ_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СпособПоступления; Если ПустоеЗначение(Значение)=1 Тогда Значение = Перечисление.СпособыПоступленияОС.ПриобретениеЗаПлату; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособПоступленияБУ_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособПоступленияБУ_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособПоступленияБУ_Реквизит21() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатацию_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатацию_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатацию_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатацию_Реквизит22() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаВводаВЭксплуатациюРегл_Реквизит23() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатацию_Реквизит24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Ввод в эксплуатацию"); СобытиеОС.Установить("ВидСобытияОС","ВводВЭксплуатацию"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатацию_Реквизит24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатацию_Реквизит24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатацию_Реквизит24() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит25( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Ввод в эксплуатацию"); СобытиеОС.Установить("ВидСобытияОС","ВводВЭксплуатацию"); Значение = СобытиеОС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит25", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит25" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеВводВЭксплуатациюРегл_Реквизит25() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит26( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ ввода в эксплуатацию"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит26", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит26" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатацию_Реквизит26() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит27( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Документ ввода в эксплуатацию"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит27", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит27" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НазваниеДокументаВводаВЭксплуатациюРегл_Реквизит27() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит28( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит28", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит28" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатацию_Реквизит28() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит29( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит29", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит29" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НомерДокументаВводаВЭксплуатациюРегл_Реквизит29() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимость_Реквизит30( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимость.Получить(Параметры.ДатаВводаОстатков); Если ПустоеЗначение(Значение) = 1 ТОгда Значение = ОбъектКоллекции.ТекущаяСтоимостьБУНач; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимость_Реквизит30", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимость_Реквизит30" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимость_Реквизит30() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьБУ_Реквизит31( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимость.Получить(Параметры.ДатаВводаОстатков); Если ПустоеЗначение(Значение) = 1 ТОгда Значение = ОбъектКоллекции.ТекущаяСтоимостьБУНач; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьБУ_Реквизит31", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьБУ_Реквизит31" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьБУ_Реквизит31() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьНУ_Реквизит32( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимостьН.Получить(Параметры.ДатаВводаОстатков); Если ПустоеЗначение(Значение) = 1 ТОгда Значение = ОбъектКоллекции.ТекущаяСтоимостьНУ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьНУ_Реквизит32", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьНУ_Реквизит32" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПервоначальнаяСтоимостьНУ_Реквизит32() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимость_Реквизит33( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.ТекущаяСтоимостьБУНач) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.ТекущаяСтоимостьБУНач; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимость_Реквизит33", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимость_Реквизит33" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимость_Реквизит33() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимостьБУ_Реквизит34( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.ТекущаяСтоимостьБУНач) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.ТекущаяСтоимостьБУНач; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимостьБУ_Реквизит34", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимостьБУ_Реквизит34" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ТекущаяСтоимостьБУ_Реквизит34() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизация_Реквизит37( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.НакопленнаяАмортизацияБУНач) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.НакопленнаяАмортизацияБУНач; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизация_Реквизит37", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизация_Реквизит37" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизация_Реквизит37() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизацияБУ_Реквизит38( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.НакопленнаяАмортизацияБУНач) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.НакопленнаяАмортизацияБУНач; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизацияБУ_Реквизит38", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизацияБУ_Реквизит38" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НакопленнаяАмортизацияБУ_Реквизит38() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииБУ_Реквизит41( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.СчетАмортизацииБУ) = 1 Тогда Значение = СчетПоКоду("02.1"); Иначе Значение = ОбъектКоллекции.СчетАмортизацииБУ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииБУ_Реквизит41", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииБУ_Реквизит41" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииБУ_Реквизит41() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииНУ_Реквизит42( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.СчетАмортизацииБУ) = 1 Тогда Значение = СчетПоКоду("02.1"); Иначе Значение = ОбъектКоллекции.СчетАмортизацииБУ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииНУ_Реквизит42", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииНУ_Реквизит42" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетАмортизацииНУ_Реквизит42() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаБУ_Реквизит43( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.СчетУчетаБУ) = 1 Тогда Значение = СчетПоКоду("01.1"); Иначе Значение = ОбъектКоллекции.СчетУчетаБУ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаБУ_Реквизит43", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаБУ_Реквизит43" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаБУ_Реквизит43() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаНУ_Реквизит44( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.СчетУчетаБУ) = 1 Тогда Значение = СчетПоКоду("01.1"); Иначе Значение = ОбъектКоллекции.СчетУчетаБУ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаНУ_Реквизит44", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаНУ_Реквизит44" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СчетУчетаНУ_Реквизит44() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛ_Реквизит45( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.МОЛ.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛ_Реквизит45", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛ_Реквизит45" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛ_Реквизит45() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛРегл_Реквизит46( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.МОЛ.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛРегл_Реквизит46", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛРегл_Реквизит46" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МОЛРегл_Реквизит46() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользования_Реквизит47( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользования_Реквизит47", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользования_Реквизит47" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользования_Реквизит47() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияБУ_Реквизит48( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияБУ_Реквизит48", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияБУ_Реквизит48" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияБУ_Реквизит48() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияНУ_Реквизит49( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользованияН.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияНУ_Реквизит49", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияНУ_Реквизит49" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокПолезногоИспользованияНУ_Реквизит49() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_АмортизацияДо2002НУ_Реквизит51( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.АмортизацияНачисленнаяДо2002; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_АмортизацияДо2002НУ_Реквизит51", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_АмортизацияДо2002НУ_Реквизит51" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_АмортизацияДо2002НУ_Реквизит51() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизацию_Реквизит52( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.НачислятьАмортизацию.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизацию_Реквизит52", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизацию_Реквизит52" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизацию_Реквизит52() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюБУ_Реквизит53( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.НачислятьАмортизацию.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюБУ_Реквизит53", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюБУ_Реквизит53" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюБУ_Реквизит53() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюНУ_Реквизит54( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.НачислятьАмортизацию.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюНУ_Реквизит54", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюНУ_Реквизит54" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьАмортизациюНУ_Реквизит54() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизации_Реквизит55( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СпособНачисленияАмортизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизации_Реквизит55", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизации_Реквизит55" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизации_Реквизит55() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизацииБУ_Реквизит56( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СпособНачисленияАмортизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизацииБУ_Реквизит56", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизацииБУ_Реквизит56" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособНачисленияАмортизацииБУ_Реквизит56() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МетодНачисленияАмортизацииНУ_Реквизит57( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.МетодНачисленияАмортизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МетодНачисленияАмортизацииНУ_Реквизит57", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МетодНачисленияАмортизацииНУ_Реквизит57" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_МетодНачисленияАмортизацииНУ_Реквизит57() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит58( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация",ПолучитьЗначение(ВходящиеДанные,"Организация")); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит58", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит58" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизации_Реквизит58() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит59( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация",ПолучитьЗначение(ВходящиеДанные,"Организация")); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит59", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит59" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииБУ_Реквизит59() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит60( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация",ПолучитьЗначение(ВходящиеДанные,"Организация")); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит60", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит60" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпособОтраженияРасходовПоАмортизацииНУ_Реквизит60() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит61( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); ДатаМодернизации = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; СрокПолезногоИспользования = ОС.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ОставшийсяСрокПолезногИспользованияПослеМодернизации = 0; ОстаточнаяСтоимостьПослеМодернизации = ОС.ОстаточнаяСтоимостьПослеМодернизации.Получить(Параметры.ДатаВводаОстатков); Если (ПустоеЗначение(ДатаМодернизации) = 0) и (ПустоеЗначение(ОС.ДатаВводаВЭксплуатацию) = 0) Тогда ОставшийсяСрокПолезногИспользованияПослеМодернизации = СрокПолезногоИспользования - (ДатаГод(КонМесяца(ДатаМодернизации)) - ДатаГод(КонМесяца(ОС.ДатаВводаВЭксплуатацию))) * 12 - (ДатаМесяц(КонМесяца(ДатаМодернизации)) - ДатаМесяц(КонМесяца(ОС.ДатаВводаВЭксплуатацию))); КонецЕсли; СрокПолезногоИспользования = ОставшийсяСрокПолезногИспользованияПослеМодернизации; КонецЕсли; Значение = СрокПолезногоИспользования; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит61", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит61" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизации_Реквизит61() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит62( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); ДатаМодернизации = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; СрокПолезногоИспользования = ОС.СрокПолезногоИспользования.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ОставшийсяСрокПолезногИспользованияПослеМодернизации = 0; ОстаточнаяСтоимостьПослеМодернизации = ОС.ОстаточнаяСтоимостьПослеМодернизации.Получить(Параметры.ДатаВводаОстатков); Если (ПустоеЗначение(ДатаМодернизации) = 0) и (ПустоеЗначение(ОС.ДатаВводаВЭксплуатацию) = 0) Тогда ОставшийсяСрокПолезногИспользованияПослеМодернизации = СрокПолезногоИспользования - (ДатаГод(КонМесяца(ДатаМодернизации)) - ДатаГод(КонМесяца(ОС.ДатаВводаВЭксплуатацию))) * 12 - (ДатаМесяц(КонМесяца(ДатаМодернизации)) - ДатаМесяц(КонМесяца(ОС.ДатаВводаВЭксплуатацию))); КонецЕсли; СрокПолезногоИспользования = ОставшийсяСрокПолезногИспользованияПослеМодернизации; КонецЕсли; Значение = СрокПолезногоИспользования; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит62", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит62" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СрокИспользованияДляВычисленияАмортизацииБУ_Реквизит62() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработки_Реквизит63( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.СпособНачисленияАмортизации = Перечисление.СпособыНачисленияАмортизацииОС.ПропорциональноОбъемуПродукцииРабот Тогда Значение = "1"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработки_Реквизит63", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработки_Реквизит63" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработки_Реквизит63() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработкиБУ_Реквизит64( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.СпособНачисленияАмортизации = Перечисление.СпособыНачисленияАмортизацииОС.ПропорциональноОбъемуПродукцииРабот Тогда Значение = "1"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработкиБУ_Реквизит64", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработкиБУ_Реквизит64" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПараметрВыработкиБУ_Реквизит64() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРабот_Реквизит65( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРабот_Реквизит65", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРабот_Реквизит65" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРабот_Реквизит65() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботБУ_Реквизит66( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботБУ_Реквизит66", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботБУ_Реквизит66" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботБУ_Реквизит66() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит67( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит67", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит67" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит67() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит68( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит68", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит68" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ОбъемПродукцииРаботДляВычисленияАмортизацииБУ_Реквизит68() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличество_Реквизит69( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличество_Реквизит69", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличество_Реквизит69" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличество_Реквизит69() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличествоБУ_Реквизит70( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличествоБУ_Реквизит70", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличествоБУ_Реквизит70" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ВыработкаКоличествоБУ_Реквизит70() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскорения_Реквизит71( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентУскорения; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскорения_Реквизит71", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскорения_Реквизит71" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскорения_Реквизит71() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскоренияБУ_Реквизит72( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентУскорения; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскоренияБУ_Реквизит72", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскоренияБУ_Реквизит72" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентУскоренияБУ_Реквизит72() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизации_Реквизит73( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентАмортизации.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизации_Реквизит73", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизации_Реквизит73" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизации_Реквизит73() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизацииБУ_Реквизит74( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентАмортизации.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизацииБУ_Реквизит74", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизацииБУ_Реквизит74" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_КоэффициентАмортизацииБУ_Реквизит74() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпециальныйКоэффициентНУ_Реквизит75( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ОсновноеСредство.СпециальныйКоэффициент.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпециальныйКоэффициентНУ_Реквизит75", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпециальныйКоэффициентНУ_Реквизит75" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СпециальныйКоэффициентНУ_Реквизит75() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит76( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ОбъектКоллекции.ОсновноеСредство.ПодлежитАмортизации = 1, "НачислениеАмортизации", "СтоимостьНеВключаетсяВРасходы"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит76", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит76" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ПорядокВключенияСтоимостиВСоставРасходовНУ_Реквизит76() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит77( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0, 0, 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит77", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит77" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_НачислятьПоБазовойСтоимостиНУ_Реквизит77() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит78( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0 Тогда Отказ = 1; Иначе Значение = глДатаНаКоторуюУстановленоЗначение(ОбъектКоллекции.ОсновноеСредство, "БазоваяСтоимость", Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит78", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит78" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПереходаКРасчетуПоБазовойСтоимостиНУ_Реквизит78() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ФактическийСрокИспользованияНУ_Реквизит79( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0 Тогда Отказ = 1; Иначе ДатаПереходаНаБазовую = глДатаНаКоторуюУстановленоЗначение(ОбъектКоллекции.ОсновноеСредство, "БазоваяСтоимость", Параметры.ДатаВводаОстатков); ДатаВводаВЭксплуатацию = ОбъектКоллекции.ОсновноеСредство.ДатаВводаВЭксплуатацию; Значение = (ДатаГод(ДатаПереходаНаБазовую) - ДатаГод(ДатаВводаВЭксплуатацию) + 1) * 12 + ДатаМесяц(ДатаПереходаНаБазовую) - ДатаМесяц(КонМесяца(ДатаВводаВЭксплуатацию) + 1); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ФактическийСрокИспользованияНУ_Реквизит79", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ФактическийСрокИспользованияНУ_Реквизит79" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ФактическийСрокИспользованияНУ_Реквизит79() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизации_Реквизит80( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Значение = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация Значение = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизации_Реквизит80", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизации_Реквизит80" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизации_Реквизит80() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизацииРегл_Реквизит81( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Значение = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация Значение = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизацииРегл_Реквизит81", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизацииРегл_Реквизит81" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_ДатаПоследнейМодернизацииРегл_Реквизит81() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизации_Реквизит82( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации); Значение = СтоимостьДоМодернизации - СтоимостьПослеМодернизации; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизации_Реквизит82", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизации_Реквизит82" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизации_Реквизит82() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииБУ_Реквизит83( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации); Значение = СтоимостьДоМодернизации - СтоимостьПослеМодернизации; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииБУ_Реквизит83", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииБУ_Реквизит83" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииБУ_Реквизит83() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииНУ_Реквизит84( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимостьН.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимостьН.Получить(ДатаМодернизации); Значение = СтоимостьДоМодернизации - СтоимостьПослеМодернизации; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииНУ_Реквизит84", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииНУ_Реквизит84" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаПоследнейМодернизацииНУ_Реквизит84() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит85( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(Параметры.ДатаВводаОстатков) = 0 Тогда Отказ = 1; Иначе ДатаБазовойСтоимости = глДатаНаКоторуюУстановленоЗначение(ОбъектКоллекции.ОсновноеСредство, "БазоваяСтоимость", Параметры.ДатаВводаОстатков); ПервоначальнаяСтоимость = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимостьН.Получить(ДатаБазовойСтоимости); БазоваяСтоимость = ОбъектКоллекции.ОсновноеСредство.БазоваяСтоимость.Получить(ДатаБазовойСтоимости); Значение = ПервоначальнаяСтоимость - БазоваяСтоимость; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит85", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит85" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СуммаНакопленнойАмортизацииНУ_Реквизит85() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизации_Реквизит86( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Модернизация ОС"); СобытиеОС.Установить("ВидСобытияОС","Модернизация"); Значение = СобытиеОС; Отказ = ПустоеЗначение(ОбъектКоллекции.ОсновноеСредство.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизации_Реквизит86", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизации_Реквизит86" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизации_Реквизит86() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизацииРегл_Реквизит87( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка СобытиеОС = СоздатьОбъект("СписокЗначений"); СобытиеОС.Установить("Наименование","Модернизация ОС"); СобытиеОС.Установить("ВидСобытияОС","Модернизация"); Значение = СобытиеОС; Отказ = ПустоеЗначение(ОбъектКоллекции.ОсновноеСредство.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизацииРегл_Реквизит87", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизацииРегл_Реквизит87" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковОС_ОС_СобытиеМодернизацииРегл_Реквизит87() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Организация_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Организация_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Организация_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Организация_Реквизит4() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВБухгалтерскомУчете_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВБухгалтерскомУчете_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВБухгалтерскомУчете_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВБухгалтерскомУчете_Реквизит5() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВУправленческомУчете_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВУправленческомУчете_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВУправленческомУчете_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтражатьВУправленческомУчете_Реквизит6() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтразитьВРегистрахРасчетовОрганизации_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение =1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтразитьВРегистрахРасчетовОрганизации_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтразитьВРегистрахРасчетовОрганизации_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ОтразитьВРегистрахРасчетовОрганизации_Реквизит7() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ФормироватьПроводкиПоВводуНачальныхОстатков_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ФормироватьПроводкиПоВводуНачальныхОстатков_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ФормироватьПроводкиПоВводуНачальныхОстатков_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ФормироватьПроводкиПоВводуНачальныхОстатков_Реквизит9() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДоговорКонтрагента_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидОперации = ПолучитьЗначение(ВходящиеДанные,"ВидОперации"); ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); Если ВидОперации = "РасчетыСПоставщиками" Тогда ИсходящиеДанные.Установить("ВидДоговора","СПоставщиком"); ИначеЕсли ВидОперации = "РасчетыПоПрочимОперациям" Тогда ИсходящиеДанные.Установить("ВидДоговора","Прочее"); Иначе ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДоговорКонтрагента_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДоговорКонтрагента_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДоговорКонтрагента_Реквизит12() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДокументРасчетовСКонтрагентом_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидОперации = ПолучитьЗначение(ВходящиеДанные,"ВидОперации"); Если ПустоеЗначение(ОбъектКоллекции.ДокументРасчетовСКонтрагентом) = 1 Тогда Отказ = 1; ИначеЕсли ВидОперации = "РасчетыСПоставщиками" Тогда ИмяПКО = "РасчетныйДокументПоставщики"; ИначеЕсли ВидОперации = "РасчетыСПокупателями" Тогда ИмяПКО = "РасчетныйДокументПокупатели"; ИначеЕсли ВидОперации = "РасчетыПоПрочимОперациям" Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); //ИсходящиеДанные.Установить("КредДокумент",ОбъектКоллекции.ДокументРасчетовСКонтрагентом); ИсходящиеДанные.Установить("РасчетныйДокумент",""); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДокументРасчетовСКонтрагентом_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДокументРасчетовСКонтрагентом_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоРасчетам_ДокументРасчетовСКонтрагентом_Реквизит13() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДоговорКонтрагента_Реквизит23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидОперации = ПолучитьЗначение(ВходящиеДанные,"ВидОперации"); ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); Если ВидОперации = "РасчетыСПоставщиками" Тогда ИсходящиеДанные.Установить("ВидДоговора","СПоставщиком"); ИначеЕсли ВидОперации = "РасчетыПоПрочимОперациям" Тогда ИсходящиеДанные.Установить("ВидДоговора","Прочее"); Иначе ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДоговорКонтрагента_Реквизит23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДоговорКонтрагента_Реквизит23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДоговорКонтрагента_Реквизит23() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДокументОплаты_Реквизит24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.ДокументОплаты) = 1 Тогда Отказ = 1; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); //ИсходящиеДанные.Установить("КредДокумент",ОбъектКоллекции.ДокументОплаты); ИсходящиеДанные.Установить("ДокументОснование",""); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДокументОплаты_Реквизит24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДокументОплаты_Реквизит24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_ДанныеПоАвансам_ДокументОплаты_Реквизит24() Функция ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Проведен_Свойство32( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Проведен_Свойство32", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Проведен_Свойство32" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводНачальныхОстатковПоВзаиморасчетам_Проведен_Свойство32() Функция ПКО_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ""+ПолучитьЗначение(ВходящиеДанные,"ВидОперации"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка() Функция ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Комментарий_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Ввод остатков НДС"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Комментарий_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Комментарий_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Комментарий_Реквизит2() Функция ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Организация_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Организация_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Организация_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВводОстатковНДСтолькоСсылка_Организация_Реквизит3() Функция ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_ВидДвижения_Свойство7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Приход"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_ВидДвижения_Свойство7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_ВидДвижения_Свойство7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_ВидДвижения_Свойство7() Функция ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Организация_Измерение8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Организация_Измерение8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Организация_Измерение8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Организация_Измерение8() Функция ПКГС_ПередОбработкойВыгрузки_ВзаиморасчетыСДепонентамиОрганизаций_ТаблицаРегистровНакопления_ТабличнаяЧасть13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Имя"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Имя = "ВзаиморасчетыСДепонентамиОрганизаций"; КоллекцияОбъектов.Представление = "Взаиморасчеты с депонентами организаций"; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ВзаиморасчетыСДепонентамиОрганизаций_ТаблицаРегистровНакопления_ТабличнаяЧасть13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ВзаиморасчетыСДепонентамиОрганизаций_ТаблицаРегистровНакопления_ТабличнаяЧасть13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ВзаиморасчетыСДепонентамиОрганизаций_ТаблицаРегистровНакопления_ТабличнаяЧасть13() Функция ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Период_Свойство16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Период_Свойство16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Период_Свойство16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВзаиморасчетыСДепонентамиОрганизаций_ВзаиморасчетыСДепонентамиОрганизаций_Период_Свойство16() Функция ПКО_ПередВыгрузкой_ВидыНоменклатуры( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ""+ВходящиеДанные.Получить("Наименование")+ ВходящиеДанные.Получить("ТипНоменклатуры"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВидыНоменклатуры", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВидыНоменклатуры" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ВидыНоменклатуры() Функция ПКС_ПередВыгрузкой_ВидыСубконтоХозрасчетные_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВидыСубконтоХозрасчетные_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВидыСубконтоХозрасчетные_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВидыСубконтоХозрасчетные_Код_Свойство2() Функция ПКО_ПередВыгрузкой_ВычетыНаРебенка( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Если (Источник <> 600) и (Источник <> 1200) Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВычетыНаРебенка", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ВычетыНаРебенка" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ВычетыНаРебенка() Функция ПКС_ПередВыгрузкой_ВычетыНаРебенка_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(Источник = 600, "101", "102"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВычетыНаРебенка_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ВычетыНаРебенка_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ВычетыНаРебенка_Код_Свойство1() Функция ПКО_ПередВыгрузкой_ГражданствоФизЛиц( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Если ПустоеЗначение(ПолучитьЗначение(Источник, "Страна"))=1 Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ГражданствоФизЛиц", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ГражданствоФизЛиц" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ГражданствоФизЛиц() Функция ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеИмеетПравоНаПенсию_Ресурс1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеИмеетПравоНаПенсию_Ресурс1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеИмеетПравоНаПенсию_Ресурс1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеИмеетПравоНаПенсию_Ресурс1() Функция ПКС_ПередВыгрузкой_ГражданствоФизЛиц_Период_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_Период_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_Период_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГражданствоФизЛиц_Период_Свойство2() Функция ПКС_ПередВыгрузкой_ГражданствоФизЛиц_ФизЛицо_Измерение3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_ФизЛицо_Измерение3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_ФизЛицо_Измерение3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГражданствоФизЛиц_ФизЛицо_Измерение3() Функция ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеЯвляетсяНалоговымРезидентомРФ_Ресурс4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПустоеЗначение(Источник.Статус.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеЯвляетсяНалоговымРезидентомРФ_Ресурс4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеЯвляетсяНалоговымРезидентомРФ_Ресурс4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГражданствоФизЛиц_НеЯвляетсяНалоговымРезидентомРФ_Ресурс4() Функция ПКС_ПередВыгрузкой_ГрафикиРаботы_Наименование_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_Наименование_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_Наименование_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГрафикиРаботы_Наименование_Свойство1() Функция ПКС_ПередВыгрузкой_ГрафикиРаботы_ВидГрафика_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Пятидневка"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ВидГрафика_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ВидГрафика_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГрафикиРаботы_ВидГрафика_Реквизит2() Функция ПКС_ПередВыгрузкой_ГрафикиРаботы_ПервыйВыходной_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Суббота"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ПервыйВыходной_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ПервыйВыходной_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГрафикиРаботы_ПервыйВыходной_Реквизит3() Функция ПКС_ПередВыгрузкой_ГрафикиРаботы_ВторойВыходной_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Воскресенье"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ВторойВыходной_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ВторойВыходной_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГрафикиРаботы_ВторойВыходной_Реквизит4() Функция ПКС_ПередВыгрузкой_ГрафикиРаботы_ДлительностьРабочейНедели_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 40; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ДлительностьРабочейНедели_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГрафикиРаботы_ДлительностьРабочейНедели_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГрафикиРаботы_ДлительностьРабочейНедели_Реквизит5() Функция ПКО_ПередВыгрузкой_ГруппаНМА( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = "АвтоматическиСозданнаяГруппа_" + ВходящиеДанные.Получить("Наименование"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ГруппаНМА", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ГруппаНМА" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ГруппаНМА() Функция ПКС_ПередВыгрузкой_ГруппаНМА_Родитель_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьПустоеЗначение(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаНМА_Родитель_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаНМА_Родитель_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГруппаНМА_Родитель_Свойство2() Функция ПКС_ПередВыгрузкой_ГруппаНМА_ЭтоГруппа_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаНМА_ЭтоГруппа_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаНМА_ЭтоГруппа_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГруппаНМА_ЭтоГруппа_Свойство3() Функция ПКО_ПередВыгрузкой_ГруппаНоменклатуры( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ВходящиеДанные.Получить("Наименование"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ГруппаНоменклатуры", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ГруппаНоменклатуры" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ГруппаНоменклатуры() Функция ПКС_ПередВыгрузкой_ГруппаНоменклатуры_ЭтоГруппа_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаНоменклатуры_ЭтоГруппа_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаНоменклатуры_ЭтоГруппа_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГруппаНоменклатуры_ЭтоГруппа_Свойство3() Функция ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_Наименование_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Строка(Источник); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_Наименование_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_Наименование_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_Наименование_Свойство1() Функция ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_ЭтоГруппа_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_ЭтоГруппа_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_ЭтоГруппа_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ГруппаСтатьиЗатрат_ЭтоГруппа_Свойство2() Функция ПКО_ПередВыгрузкой_ДоговорЗаймаСРаботником( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ПолучитьЗначение(Источник, "ФизЛицо").Код; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ДоговорЗаймаСРаботником", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ДоговорЗаймаСРаботником" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ДоговорЗаймаСРаботником() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ВалютаДокумента_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Рубли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ВалютаДокумента_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ВалютаДокумента_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ВалютаДокумента_Реквизит1() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Дата_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Дата_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Дата_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Дата_Свойство2() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КратностьДокумента_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КратностьДокумента_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КратностьДокумента_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КратностьДокумента_Реквизит4() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КурсДокумента_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КурсДокумента_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КурсДокумента_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_КурсДокумента_Реквизит5() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачалоПогашения_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ДобавитьМесяц(Параметры.ДатаВводаОстатков, 12); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачалоПогашения_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачалоПогашения_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачалоПогашения_Реквизит6() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачислятьМатериальнуюВыгоду_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачислятьМатериальнуюВыгоду_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачислятьМатериальнуюВыгоду_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_НачислятьМатериальнуюВыгоду_Реквизит7() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Организация_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Организация_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Организация_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_Организация_Реквизит8() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВБухгалтерскомУчете_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВБухгалтерскомУчете_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВБухгалтерскомУчете_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВБухгалтерскомУчете_Реквизит9() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВУправленческомУчете_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВУправленческомУчете_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВУправленческомУчете_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ОтражатьВУправленческомУчете_Реквизит10() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПорядокПогашенияЗайма_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоОкончанииСрока"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПорядокПогашенияЗайма_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПорядокПогашенияЗайма_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПорядокПогашенияЗайма_Реквизит11() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПроцентЗаПользованиеЗаймом_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПроцентЗаПользованиеЗаймом_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПроцентЗаПользованиеЗаймом_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_ПроцентЗаПользованиеЗаймом_Реквизит12() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СрокПогашения_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 12; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СрокПогашения_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СрокПогашения_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СрокПогашения_Реквизит13() Функция ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СчетУчетаПроцентовПоЗайму_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка //Значение = СчетПоКоду("91.1"); Значение = "91.01"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СчетУчетаПроцентовПоЗайму_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СчетУчетаПроцентовПоЗайму_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорЗаймаСРаботником_СчетУчетаПроцентовПоЗайму_Реквизит16() Функция ПКО_ПередВыгрузкой_ДоговорыКонтрагентов( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка НеЗапоминатьВыгруженные = 1 - ПустоеЗначение(ПолучитьЗначение(ВходящиеДанные, "НеЗапоминать")); ВидДоговора = ПолучитьЗначение(ВходящиеДанные, "ВидДоговора"); Если (ПустоеЗначение(ВидДоговора)=1) ТОгда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Комментарий",Источник.ПолныйКод()); //определим ВидДоговора НашлиВидДоговора=0; // справочник должен быть добавлен пользователем // - подчинен справочнику "Договоры" // справочник заполняется в результате запуска предварительной обработки базы источника СпрВидыДоговоров = СоздатьОбъект("Справочник.ВидыДоговора"); СпрВидыДоговоров.ИспользоватьВладельца(Источник); //если один договор превращается в несколько договоров, берем первый попавшийся ВидДоговора СпрВидыДоговоров.ВыбратьЭлементы(); Если СпрВидыДоговоров.ПолучитьЭлемент() = 1 Тогда НашлиВидДоговора=1; ВходящиеДанные.Установить("ВидДоговора",СпрВидыДоговоров.Наименование); КонецЕсли; Если НашлиВидДоговора = 0 ТОгда ВходящиеДанные.Установить("ВидДоговора","Прочее"); КонецЕсли; КонецЕсли; КлючВыгружаемыхДанных = ""+Источник.Владелец.Код+"/" +Источник.ПолныйКод()+"/" +ПолучитьЗначение(ВходящиеДанные,"ВидДоговора"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ДоговорыКонтрагентов", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ДоговорыКонтрагентов" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ДоговорыКонтрагентов() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВалютаВзаиморасчетов_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.ВалютаДоговора) = 1 Тогда Значение = Параметры.Рубли; ИначеЕсли Источник.ОплатаДоговора = 1 Тогда Если Источник.ВестиУчетРасчетовУЕ = 0 Тогда Значение = Параметры.Рубли; КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВалютаВзаиморасчетов_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВалютаВзаиморасчетов_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВалютаВзаиморасчетов_Реквизит7() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидДоговора_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные, "ВидДоговора"); Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидДоговора_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидДоговора_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидДоговора_Реквизит9() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВедениеВзаиморасчетов_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоДоговоруВЦелом"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВедениеВзаиморасчетов_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВедениеВзаиморасчетов_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВедениеВзаиморасчетов_Реквизит12() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидУсловийДоговора_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "БезДополнительныхУсловий"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидУсловийДоговора_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидУсловийДоговора_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_ВидУсловийДоговора_Реквизит13() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьСуммуЗадолженности_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьСуммуЗадолженности_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьСуммуЗадолженности_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьСуммуЗадолженности_Реквизит14() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьЧислоДнейЗадолженности_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьЧислоДнейЗадолженности_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьЧислоДнейЗадолженности_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_КонтролироватьЧислоДнейЗадолженности_Реквизит15() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Организация_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Иначе Значение = "1"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Организация_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Организация_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Организация_Реквизит16() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Комментарий_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"Комментарий"); Если ПустоеЗначение(Значение) = 1 Тогда Значение = Источник.ПолныйКод(); Конецесли; Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Комментарий_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Комментарий_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентов_Комментарий_Реквизит18() Функция ПКГС_ПередОбработкойВыгрузки_ДоговорыКонтрагентов__19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ДоговорыКонтрагентов__19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ДоговорыКонтрагентов__19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ДоговорыКонтрагентов__19() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВедениеВзаиморасчетов_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоДоговоруВЦелом"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВедениеВзаиморасчетов_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВедениеВзаиморасчетов_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВедениеВзаиморасчетов_Реквизит2() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВидУсловийДоговора_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "БезДополнительныхУсловий"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВидУсловийДоговора_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВидУсловийДоговора_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВидУсловийДоговора_Реквизит4() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьСуммуЗадолженности_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьСуммуЗадолженности_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьСуммуЗадолженности_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьСуммуЗадолженности_Реквизит5() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьЧислоДнейЗадолженности_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьЧислоДнейЗадолженности_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьЧислоДнейЗадолженности_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_КонтролироватьЧислоДнейЗадолженности_Реквизит6() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВалютаВзаиморасчетов_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Рубли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВалютаВзаиморасчетов_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВалютаВзаиморасчетов_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ВалютаВзаиморасчетов_Реквизит7() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_РасчетыВУсловныхЕдиницах_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_РасчетыВУсловныхЕдиницах_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_РасчетыВУсловныхЕдиницах_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_РасчетыВУсловныхЕдиницах_Реквизит8() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Организация_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Организация_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Организация_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Организация_Реквизит11() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Родитель_Свойство15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Родитель_Свойство15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Родитель_Свойство15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_Родитель_Свойство15() Функция ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ЭтоГруппа_Свойство16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ЭтоГруппа_Свойство16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ЭтоГруппа_Свойство16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоговорыКонтрагентовДоп_ЭтоГруппа_Свойство16() Функция ПКО_ПередВыгрузкой_ДокументРасчетовСКонтрагентом( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ПолучитьЗначение(Источник,"Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ДокументРасчетовСКонтрагентом", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ДокументРасчетовСКонтрагентом" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ДокументРасчетовСКонтрагентом() Функция ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_Организация_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_Организация_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_Организация_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_Организация_Реквизит3() Функция ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДоговорКонтрагента_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДоговорКонтрагента_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДоговорКонтрагента_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДоговорКонтрагента_Реквизит5() Функция ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДокументОснование_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ПолучитьЗначение(ВходящиеДанные,"ДокументОснование")) = 1 Тогда Отказ=1; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидОперации", ПолучитьЗначение(ВходящиеДанные,"ВидОперации")); Значение = "3"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДокументОснование_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДокументОснование_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДокументРасчетовСКонтрагентом_ДокументОснование_Реквизит6() Функция ПКС_ПередВыгрузкой_ДокументыУдостоверяющиеЛичность_КодПФР_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ВРег(Источник.КодСЗВ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументыУдостоверяющиеЛичность_КодПФР_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДокументыУдостоверяющиеЛичность_КодПФР_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДокументыУдостоверяющиеЛичность_КодПФР_Реквизит3() Функция ПКС_ПередВыгрузкой_ДолжностиОрганизаций_Наименование_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДолжностиОрганизаций_Наименование_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДолжностиОрганизаций_Наименование_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДолжностиОрганизаций_Наименование_Свойство1() Функция ПКС_ПередВыгрузкой_ДоходыБудущихПериодов_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоходыБудущихПериодов_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ДоходыБудущихПериодов_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ДоходыБудущихПериодов_Код_Свойство1() Функция ПКС_ПриВыгрузке_ДоходыБудущихПериодов_Наименование_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Значение = Лев(Значение, 25); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ДоходыБудущихПериодов_Наименование_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ДоходыБудущихПериодов_Наименование_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ДоходыБудущихПериодов_Наименование_Свойство2() Функция ПКО_ПередВыгрузкой_ЕдиницыИзмерения( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка НомерПКО = НайтиПравило( , "ЕдиницыИзмерения"); ВыгруженныеОбъекты = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НомерПКО, "Выгруженные"); Если ВыгруженныеОбъекты.РазмерСписка() > 5000 Тогда ВыгруженныеОбъекты.УдалитьВсе(); КонецЕсли; КлючВыгружаемыхДанных = ПолучитьЗначение(Источник, "Код")+ "/" + ПолучитьЗначение(ВходящиеДанные.Получить("Владелец"), "Код")+ "/" + ВходящиеДанные.Получить("Владелец").Вид(); НеЗапоминатьВыгруженные = ПолучитьЗначение(ВходящиеДанные, "НеЗапоминать"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЕдиницыИзмерения", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЕдиницыИзмерения" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ЕдиницыИзмерения() Функция ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Владелец_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"Владелец"); Если Значение.Вид()="ВидыНоменклатуры" Тогда ИмяПКО = "НоменклатурныеГруппы"; ИначеЕсли Значение.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли Значение.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли Значение.Вид() = "Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Владелец_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Владелец_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Владелец_Свойство2() Функция ПКС_ПередВыгрузкой_ЕдиницыИзмерения_ЕдиницаПоКлассификатору_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЕдиницыИзмерения_ЕдиницаПоКлассификатору_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЕдиницыИзмерения_ЕдиницаПоКлассификатору_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЕдиницыИзмерения_ЕдиницаПоКлассификатору_Реквизит3() Функция ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Коэффициент_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Коэффициент_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Коэффициент_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЕдиницыИзмерения_Коэффициент_Реквизит5() Функция ПКО_ПередВыгрузкой_ЗаказПокупателя( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка //КлючВыгружаемыхДанных = ""+ПривестиНомерКДлине(ПолучитьЗначение(ВходящиеДанные, "Контрагент").Код, 8) // +ПолучитьЗначение(ВходящиеДанные, "Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЗаказПокупателя", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЗаказПокупателя" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ЗаказПокупателя() Функция ПКС_ПередВыгрузкой_ЗаказПокупателя_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Заявка = ПолучитьЗначение(ВходящиеДанные,"ЗаявкаПокупателя"); Если ПустоеЗначение(Заявка)=0 Тогда Значение = Заявка.ДатаДок; Иначе Значение = Параметры.ДатаВводаОстатков; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗаказПокупателя_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ЗаказПокупателя_ДоговорКонтрагента_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"ДоговорКонтрагента"); Если ТипЗначенияСтр(Значение) = "СписокЗначений" Тогда ИмяПКО = "ДоговорыКонтрагентовДоп"; КонецЕсли; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_ДоговорКонтрагента_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_ДоговорКонтрагента_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗаказПокупателя_ДоговорКонтрагента_Реквизит3() Функция ПКС_ПередВыгрузкой_ЗаказПокупателя_Организация_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Организация_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Организация_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗаказПокупателя_Организация_Реквизит8() Функция ПКС_ПередВыгрузкой_ЗаказПокупателя_СкладГруппа_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"СкладГруппа"); Если ТипЗначенияСтр(Значение)<>"СписокЗначений" Тогда ИмяПКО = "Склады"; Иначе ИмяПКО = "СкладыДоп"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_СкладГруппа_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_СкладГруппа_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗаказПокупателя_СкладГруппа_Реквизит9() Функция ПКС_ПриВыгрузке_ЗаказПокупателя_Товары_Коэффициент_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(Значение) = 1 Тогда Значение = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ЗаказПокупателя_Товары_Коэффициент_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ЗаказПокупателя_Товары_Коэффициент_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ЗаказПокупателя_Товары_Коэффициент_Реквизит12() Функция ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_Номенклатура_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.Номенклатура.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_Номенклатура_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_Номенклатура_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_Номенклатура_Реквизит13() Функция ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_ЕдиницаИзмерения_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если (ОбъектКоллекции.Номенклатура.Вид()="Материалы") или (ОбъектКоллекции.Номенклатура.Вид()="Номенклатура") Тогда Значение = ОбъектКоллекции.Номенклатура.ЕдиницаИзмерения; Иначе Значение = Параметры.Шт; КонеЦЕсли; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_ЕдиницаИзмерения_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_ЕдиницаИзмерения_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗаказПокупателя_Товары_ЕдиницаИзмерения_Реквизит16() Функция ПКС_ПередВыгрузкой_ЗаказПокупателя_ВидОперации_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПолучитьЗначение(ВходящиеДанные, "ВидОперации") = "ВПереработку" Тогда Значение = "Переработка"; Иначе Значение = "ПродажаКомиссия"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_ВидОперации_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗаказПокупателя_ВидОперации_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗаказПокупателя_ВидОперации_Реквизит17() Функция ПКО_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций() Функция ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Комментарий_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение="Ввод остатков депонированных сумм"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Комментарий_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Комментарий_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Комментарий_Реквизит2() Функция ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Организация_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Организация_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Организация_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_Организация_Реквизит3() Функция ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ПериодРегистрации_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = НачМесяца(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ПериодРегистрации_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ПериодРегистрации_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ПериодРегистрации_Реквизит4() Функция ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_СпособВыплаты_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ЧерезКассу"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_СпособВыплаты_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_СпособВыплаты_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_СпособВыплаты_Реквизит5() Функция ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ХарактерВыплаты_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Зарплата"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ХарактерВыплаты_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ХарактерВыплаты_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЗарплатаКВыплатеОрганизаций_ХарактерВыплаты_Реквизит6() Функция ПКС_ПередВыгрузкой_Кассы_Владелец_Свойство4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Кассы_Владелец_Свойство4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Кассы_Владелец_Свойство4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Кассы_Владелец_Свойство4() Функция ПКС_ПередВыгрузкой_Константы_ВалютаРегламентированногоУчета_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОсновнаяВалюта; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Константы_ВалютаРегламентированногоУчета_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Константы_ВалютаРегламентированногоУчета_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Константы_ВалютаРегламентированногоУчета_Реквизит1() Функция ПКС_ПередВыгрузкой_Константы_ВалютаУправленческогоУчета_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОсновнаяВалюта; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Константы_ВалютаУправленческогоУчета_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Константы_ВалютаУправленческогоУчета_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Константы_ВалютаУправленческогоУчета_Реквизит2() Функция ПКС_ПередВыгрузкой_КонтактнаяИнформация_Объект_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"Объект"); Если Значение.Вид()="Контрагенты" Тогда имяПКО = "Контрагенты" ИначеЕсли Значение.Вид()="ФизЛица" Тогда ИмяПКО = "ФизическиеЛица"; Иначе ИмяПКО = "Организация"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_КонтактнаяИнформация_Объект_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_КонтактнаяИнформация_Объект_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_КонтактнаяИнформация_Объект_Измерение1() Функция ПКС_ПередВыгрузкой_КонтактнаяИнформация_Вид_Измерение4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_КонтактнаяИнформация_Вид_Измерение4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_КонтактнаяИнформация_Вид_Измерение4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_КонтактнаяИнформация_Вид_Измерение4() Функция ПКС_ПередВыгрузкой_КонтактнаяИнформация_Поле3_Ресурс5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПолучитьЗначение(ВходящиеДанные, "Тип") = "Телефон" Тогда Значение = ПолучитьЗначение(ВходящиеДанные, "Представление"); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_КонтактнаяИнформация_Поле3_Ресурс5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_КонтактнаяИнформация_Поле3_Ресурс5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_КонтактнаяИнформация_Поле3_Ресурс5() Функция ПКС_ПередВыгрузкой_Контрагенты_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_Код_Свойство2() Функция ПКС_ПередВыгрузкой_Контрагенты_ОсновнойДоговорКонтрагента_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Комментарий",""); ИсходящиеДанные.Установить("ВидДоговора",""); ИсходящиеДанные.Установить("Организация",""); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ОсновнойДоговорКонтрагента_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ОсновнойДоговорКонтрагента_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_ОсновнойДоговорКонтрагента_Реквизит8() Функция ПКС_ПередВыгрузкой_Контрагенты_ГоловнойКонтрагент_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ГоловнойКонтрагент_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ГоловнойКонтрагент_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_ГоловнойКонтрагент_Реквизит10() Функция ПКС_ПередВыгрузкой_Контрагенты_ИНН_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ЭтоГруппа() = 0 Тогда Значение = ?(Источник.ВидКонтрагента = Перечисление.ВидыКонтрагентов.ЧастноеЛицо, СРЕД(Источник.ИНН,1,12), СРЕД(Источник.ИНН,1,10)); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ИНН_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ИНН_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_ИНН_Реквизит11() Функция ПКС_ПередВыгрузкой_Контрагенты_Покупатель_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка // свойство покупатель должно быть добавлено пользователем // свойство заполняется в результате запуска предварительной обработки базы источника Значение = Источник.Покупатель; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_Покупатель_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_Покупатель_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_Покупатель_Реквизит13() Функция ПКС_ПередВыгрузкой_Контрагенты_Поставщик_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка // свойство покупатель должно быть добавлено пользователем // свойство заполняется в результате запуска предварительной обработки базы источника Значение = Источник.Поставщик; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_Поставщик_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_Поставщик_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_Поставщик_Реквизит14() Функция ПКС_ПередВыгрузкой_Контрагенты_КПП_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ЭтоГруппа()=0 Тогда Значение = ?(Источник.ВидКонтрагента = Перечисление.ВидыКонтрагентов.ЧастноеЛицо, "", СРЕД(Источник.ИНН,12)); Иначе Отказ=1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_КПП_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_КПП_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_КПП_Реквизит16() Функция ПКГС_ПередОбработкойВыгрузки_Контрагенты__17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Контрагенты__17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Контрагенты__17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_Контрагенты__17() Функция ПКС_ПередВыгрузкой_Контрагенты_ДокументУдостоверяющийЛичность_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СокрЛП(Источник.ДокументСерия) +?(ПустоеЗначение(Источник.ДокументСерия)=1, ""," ") + СокрЛП(Источник.ДокументНомер) +?(ПустоеЗначение(Источник.ДокументНомер)=1, ""," ") + СокрЛП(Источник.ДокументКемВыдан)+?(ПустоеЗначение(Источник.ДокументКемВыдан)=1, ""," ") + СокрЛП(Источник.ДокументДатаВыдачи); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ДокументУдостоверяющийЛичность_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Контрагенты_ДокументУдостоверяющийЛичность_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Контрагенты_ДокументУдостоверяющийЛичность_Реквизит18() Функция ПКО_ПередВыгрузкой_КурсыВалют( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = Строка(ПолучитьЗначение(Источник, "Период")) + Строка(ПолучитьЗначение(Источник, "Валюта")); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_КурсыВалют", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_КурсыВалют" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_КурсыВалют() Функция ПКО_ПередВыгрузкой_Материалы( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка НомерПКО = НайтиПравило( , "Материалы"); ВыгруженныеОбъекты = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НомерПКО, "Выгруженные"); Если ВыгруженныеОбъекты.РазмерСписка() > 5000 Тогда ВыгруженныеОбъекты.УдалитьВсе(); КонецЕсли; Если Источник.ЭтоГруппа()=0 Тогда ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); // для НоменклатураОрганизаций ИсходящиеДанные.Установить("ВидНоменклатуры", "Материалы: "+Источник.СубСчет10.Наименование); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); ИсходящиеДанные.Установить("Номенклатура", ПолучитьЗначение(ИсходящиеДанные,"ВидНоменклатуры")); ИсходящиеДанные.Установить("СчетУчетаБУ", Источник.СубСчет10); ИсходящиеДанные.Установить("СчетУчетаНУ", Источник.СубСчет10); ИсходящиеДанные.Установить("СчетДоходовВРозницеБУ",""); ИсходящиеДанные.Установить("СчетРасходовВРозницеБУ",""); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииБУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииНУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетРасходовБУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("СчетРасходовНУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("СчетУчетаВРозницеБУ", ""); ИсходящиеДанные.Установить("СчетУчетаВРозницеНУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйБУ", СчетПоКоду("003")); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйНУ", ""); ИсходящиеДанные.Установить("СчетУчетаНДС", СчетПоКоду("19.3")); ИсходящиеДанные.Установить("СчетУчетаНДСУплаченногоНаТаможне",СчетПоКоду("19.4")); ИсходящиеДанные.Установить("СчетУчетаПередачиБУ", СчетПоКоду("10.7")); ИсходящиеДанные.Установить("СчетУчетаПередачиНУ", СчетПоКоду("10.7")); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйБУ",СчетПоКоду("003")); //003.02 после загрузки ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйНУ",""); ВыгрузитьПоПравилу(,, ИсходящиеДанные, , "НоменклатураОрганизаций",,,); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Материалы", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Материалы" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_Материалы() Функция ПКГС_ПередОбработкойВыгрузки_Материалы__1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Материалы__1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Материалы__1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_Материалы__1() Функция ПКС_ПередВыгрузкой_Материалы_ВидВоспроизводства_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Закупка"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ВидВоспроизводства_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ВидВоспроизводства_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_ВидВоспроизводства_Реквизит3() Функция ПКС_ПередВыгрузкой_Материалы_ЕдиницаДляОтчетов_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ЕдиницаДляОтчетов_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ЕдиницаДляОтчетов_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_ЕдиницаДляОтчетов_Реквизит4() Функция ПКС_ПередВыгрузкой_Материалы_ЕдиницаХраненияОстатков_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ЕдиницаХраненияОстатков_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ЕдиницаХраненияОстатков_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_ЕдиницаХраненияОстатков_Реквизит5() Функция ПКС_ПередВыгрузкой_Материалы_СтавкаНДС_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "НДС18"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_СтавкаНДС_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_СтавкаНДС_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_СтавкаНДС_Реквизит7() Функция ПКС_ПередВыгрузкой_Материалы_Услуга_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_Услуга_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_Услуга_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_Услуга_Реквизит8() Функция ПКС_ПередВыгрузкой_Материалы_ВидНоменклатуры_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Материалы: "+Источник.СубСчет10.Наименование); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); Значение = ПолучитьЗначение(ИсходящиеДанные,"Наименование"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ВидНоменклатуры_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_ВидНоменклатуры_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_ВидНоменклатуры_Реквизит9() Функция ПКС_ПередВыгрузкой_Материалы_Код_Свойство10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "М"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-1); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_Код_Свойство10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_Код_Свойство10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_Код_Свойство10() Функция ПКС_ПередВыгрузкой_Материалы_Родитель_Свойство12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Материалы"); Значение = "1"; ИмяПКО = "ГруппаНоменклатуры"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_Родитель_Свойство12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Материалы_Родитель_Свойство12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Материалы_Родитель_Свойство12() Функция ПКС_ПередВыгрузкой_НазначенияИспользования_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НазначенияИспользования_Код_Свойство2() Функция ПКС_ПередВыгрузкой_НазначенияИспользования_Наименование_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "износ "+Источник.СрокПолезногоИспользования+" мес., Сч. "+Источник.СчетЗатрат.Код; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_Наименование_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_Наименование_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НазначенияИспользования_Наименование_Свойство3() Функция ПКС_ПередВыгрузкой_НазначенияИспользования_Количество_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_Количество_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_Количество_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НазначенияИспользования_Количество_Реквизит7() Функция ПКС_ПередВыгрузкой_НазначенияИспользования_ЕдиницаИзмерения_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник.Владелец.ЕдиницаИзмерения; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ПолучитьЗначение(Источник,"Владелец")); ИсходящиеДанные.Установить("НеЗапоминать", 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_ЕдиницаИзмерения_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_ЕдиницаИзмерения_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НазначенияИспользования_ЕдиницаИзмерения_Реквизит8() Функция ПКС_ПередВыгрузкой_НазначенияИспользования_СпособОтраженияРасходов_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_СпособОтраженияРасходов_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НазначенияИспользования_СпособОтраженияРасходов_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НазначенияИспользования_СпособОтраженияРасходов_Реквизит9() Функция ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Организация_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Организация_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Организация_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Организация_Измерение1() Функция ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_СпособВеденияПартионногоУчетаПоОрганизации_Ресурс2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоТекущейОрганизации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_СпособВеденияПартионногоУчетаПоОрганизации_Ресурс2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_СпособВеденияПартионногоУчетаПоОрганизации_Ресурс2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_СпособВеденияПартионногоУчетаПоОрганизации_Ресурс2() Функция ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Период_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Дата("01.01.1990"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Период_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Период_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НастройкаСпособовВеденияУправленческогоПартионного_Период_Свойство3() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ВидОперации_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПолныйРасчет"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ВидОперации_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ВидОперации_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ВидОперации_Реквизит1() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Дата_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Дата_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Дата_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Дата_Свойство2() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Организация_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Организация_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Организация_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Организация_Реквизит6() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодРегистрации_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = НачМесяца(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодРегистрации_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодРегистрации_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодРегистрации_Реквизит7() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Авторасчет_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Авторасчет_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Авторасчет_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Авторасчет_Реквизит9() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ВидРасчета_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ОкладПоДням"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ВидРасчета_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ВидРасчета_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ВидРасчета_Реквизит10() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачала_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачала_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачала_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачала_Реквизит11() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаОкончания_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаОкончания_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаОкончания_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаОкончания_Реквизит12() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачалаСобытия_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачалаСобытия_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачалаСобытия_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_ДатаНачалаСобытия_Реквизит15() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Сотрудник_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Сотрудник_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Сотрудник_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_Начисления_Сотрудник_Реквизит16() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисления_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ТекущийМесяц"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисления_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисления_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисления_Реквизит17() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаНачала_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = НачМесяца(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаНачала_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаНачала_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаНачала_Реквизит18() Функция ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаОкончания_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = КонМесяца(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаОкончания_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаОкончания_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НачислениеЗарплатыРаботникамОрганизаций_ПериодНачисленияДатаОкончания_Реквизит19() Функция ПКО_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Если Источник.ВаловойДоход_СНачалаГода = 0 Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы() Функция ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_МесяцНалоговогоПериода_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = НачМесяца(ДобавитьМесяц(Источник.ДатаПриема, -1)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_МесяцНалоговогоПериода_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_МесяцНалоговогоПериода_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_МесяцНалоговогоПериода_Измерение1() Функция ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_Организация_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_Организация_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_Организация_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_Организация_Измерение2() Функция ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_ФизЛицо_Измерение4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_ФизЛицо_Измерение4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_ФизЛицо_Измерение4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НДФЛДоходыПредыдущегоМестаРаботы_ФизЛицо_Измерение4() Функция ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Организация_Ресурс1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Организация_Ресурс1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Организация_Ресурс1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Организация_Ресурс1() Функция ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Физлицо_Измерение3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Физлицо_Измерение3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Физлицо_Измерение3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НДФЛПрименениеВычетов_Физлицо_Измерение3() Функция ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_Физлицо_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_Физлицо_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_Физлицо_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_Физлицо_Измерение2() Функция ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_КодВычетаЛичный_Ресурс5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник.ТипВычета.Получить(ВходящиеДанные.Получить("Период")); Если Значение = Перечисление.ТипыВычетов.Обычный Тогда Значение = "Код103"; ИначеЕсли Значение = Перечисление.ТипыВычетов.Льготный1 Тогда Значение = "Код104"; ИначеЕсли Значение = Перечисление.ТипыВычетов.Льготный2 Тогда Значение = "Код105"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_КодВычетаЛичный_Ресурс5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_КодВычетаЛичный_Ресурс5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НДФЛСтандартныеВычетыФизлиц_КодВычетаЛичный_Ресурс5() Функция ПКС_ПередВыгрузкой_НематериальныеАктивы_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НематериальныеАктивы_Код_Свойство2() Функция ПКС_ПередВыгрузкой_НематериальныеАктивы_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель) = 1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Нематериальные активы"); ИмяПКО = "ГруппаНМА"; Значение = "1"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НематериальныеАктивы_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_НематериальныеАктивы_ПрочиеСведения_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Иначе Значение = СокрЛП(Источник.ПрочиеСведения + "; инв. ном.: " + СокрЛП(Источник.Код) + " #"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_ПрочиеСведения_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_ПрочиеСведения_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НематериальныеАктивы_ПрочиеСведения_Реквизит6() Функция ПКС_ПередВыгрузкой_НематериальныеАктивы_ВидОбъектаУчета_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(Источник.ВидОбъектаУчета = 0, "НематериальныйАктив", "РасходыНаНИОКР"); Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_ВидОбъектаУчета_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НематериальныеАктивы_ВидОбъектаУчета_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НематериальныеАктивы_ВидОбъектаУчета_Реквизит9() Функция ПКГС_ПередОбработкойВыгрузки_НематериальныеАктивы__10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_НематериальныеАктивы__10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_НематериальныеАктивы__10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_НематериальныеАктивы__10() Функция ПКС_ПередВыгрузкой_НМА_08_5_08_8_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НМА_08_5_08_8_Код_Свойство1() Функция ПКС_ПередВыгрузкой_НМА_08_5_08_8_Родитель_Свойство4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Объекты внеоборотных активов"); Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_Родитель_Свойство4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_Родитель_Свойство4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НМА_08_5_08_8_Родитель_Свойство4() Функция ПКС_ПередВыгрузкой_НМА_08_5_08_8_НаименованиеПолное_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = Источник.Наименование; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_НаименованиеПолное_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_НаименованиеПолное_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НМА_08_5_08_8_НаименованиеПолное_Реквизит5() Функция ПКС_ПередВыгрузкой_НМА_08_5_08_8_ВидОбъектаУчета_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "НематериальныйАктив"; Счет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); Если ПустоеЗначение(Счет) = 0 Тогда Если (Счет = СчетПоКоду("08.8")) ИЛИ (Счет = СчетПоКоду("Н01.03")) Тогда Значение = "РасходыНаНИОКР"; КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_ВидОбъектаУчета_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НМА_08_5_08_8_ВидОбъектаУчета_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НМА_08_5_08_8_ВидОбъектаУчета_Реквизит7() Функция ПКО_ПередВыгрузкой_Номенклатура( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка НомерПКО = НайтиПравило( , "Номенклатура"); ВыгруженныеОбъекты = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НомерПКО, "Выгруженные"); Если ВыгруженныеОбъекты.РазмерСписка() > 5000 Тогда ВыгруженныеОбъекты.УдалитьВсе(); КонецЕсли; Если Источник.ЭтоГруппа()=0 Тогда ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); Если (Константа.ОрганизацияЯвляетсяПлательщикомЕНВД = Да) и (Константа.РозницаОблагаетсяЕНВД = Да) Тогда ИсходящиеДанные.Установить("СчетДоходовВРозницеБУ",СчетПоКоду("90.1.2")); ИсходящиеДанные.Установить("СчетРасходовВРозницеБУ",СчетПоКоду("90.2.2")); Иначе ИсходящиеДанные.Установить("СчетДоходовВРозницеБУ",СчетПоКоду("90.1.1")); ИсходящиеДанные.Установить("СчетРасходовВРозницеБУ",СчетПоКоду("90.2.1")); КонецЕсли; ИсходящиеДанные.Установить("СчетДоходовОтРеализацииБУ", СчетПоКоду("90.1.1")); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииНУ", СчетПоКоду("90.1.1")); ИсходящиеДанные.Установить("СчетРасходовБУ", СчетПоКоду("90.2.1")); ИсходящиеДанные.Установить("СчетРасходовНУ", СчетПоКоду("90.2.1")); ИсходящиеДанные.Установить("СчетУчетаВРозницеБУ", СчетПоКоду("41.2")); ИсходящиеДанные.Установить("СчетУчетаВРозницеНУ", СчетПоКоду("41.2")); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйБУ", СчетПоКоду("004")); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйНУ", СчетПоКоду("004")); ИсходящиеДанные.Установить("СчетУчетаНДС", СчетПоКоду("19.3")); ИсходящиеДанные.Установить("СчетУчетаНДСУплаченногоНаТаможне",СчетПоКоду("19.4")); ИсходящиеДанные.Установить("СчетУчетаПередачиБУ", СчетПоКоду("45")); ИсходящиеДанные.Установить("СчетУчетаПередачиНУ", СчетПоКоду("45")); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйБУ",СчетПоКоду("004")); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйНУ",СчетПоКоду("004")); Если Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если Источник.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда ИсходящиеДанные.Установить("СчетУчетаБУ", СчетПоКоду("41.3")); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииБУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииНУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетРасходовБУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("СчетРасходовНУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("ВидНоменклатуры", "Тара"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); ИначеЕсли Источник.ТипТовара = Перечисление.ТипыТоваров.ПокупныеИзделия Тогда ИсходящиеДанные.Установить("СчетУчетаБУ", СчетПоКоду("41.4")); ИсходящиеДанные.Установить("ВидНоменклатуры", "Покупные изделия"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); Иначе //Если Товар.ТипТовара = Перечисление.ТипыТоваров.Собственный Тогда ИсходящиеДанные.Установить("СчетУчетаБУ", СчетПоКоду("41.1")); ИсходящиеДанные.Установить("ВидНоменклатуры", "Товар"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); КонецЕсли; ИначеЕсли Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда ИсходящиеДанные.Установить("СчетУчетаБУ", СчетПоКоду("43")); ИсходящиеДанные.Установить("ВидНоменклатуры", "Продукция"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйБУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйНУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйБУ",""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйНУ",""); ИначеЕсли (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Работа) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД) ТОгда ИсходящиеДанные.Установить("СчетУчетаБУ", ""); ИсходящиеДанные.Установить("ВидНоменклатуры", "Услуга"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Услуга"); ИсходящиеДанные.Установить("СчетУчетаВРозницеБУ", ""); ИсходящиеДанные.Установить("СчетУчетаВРозницеНУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйБУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйНУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиБУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиНУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйБУ",""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйНУ",""); Иначе // полуфабрикат ИсходящиеДанные.Установить("СчетУчетаБУ", СчетПоКоду("21")); ИсходящиеДанные.Установить("ВидНоменклатуры", "Полуфабрикат"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйБУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйНУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйБУ",""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйНУ",""); КонецЕсли; ИсходящиеДанные.Установить("СчетУчетаНУ",ИсходящиеДанные.Получить("СчетУчетаБУ")); ИсходящиеДанные.Установить("Номенклатура", ПолучитьЗначение(ИсходящиеДанные,"ВидНоменклатуры")); ВыгрузитьПоПравилу(,, ИсходящиеДанные, , "НоменклатураОрганизаций",,,); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Номенклатура", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Номенклатура" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_Номенклатура() Функция ПКС_ПередВыгрузкой_Номенклатура_СтавкаНДС_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.СтавкаНДС.Получить(Параметры.ДатаВводаОстатков)) =1 Тогда Ставка = 18; Иначе Ставка = Источник.СтавкаНДС.Получить(Параметры.ДатаВводаОстатков).Ставка; КонецЕсли; Если Ставка = 0 Тогда Значение = "БезНДС"; ИначеЕсли Ставка < 11 Тогда Значение = "НДС10"; Иначе Значение = "НДС18"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_СтавкаНДС_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_СтавкаНДС_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_СтавкаНДС_Реквизит11() Функция ПКС_ПередВыгрузкой_Номенклатура_СтранаПроисхождения_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПолучитьЗначение(Источник, "СтранаПроисхожд") = 1 Тогда Россия = СоздатьОбъект("СписокЗначений"); Россия.Установить("ПометкаУдаления", 0); Россия.Установить("Код", "643"); Россия.Установить("Наименование", "РОССИЯ"); Россия.Установить("НаименованиеПолное", "Российская Федерация"); Значение = Россия; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_СтранаПроисхождения_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_СтранаПроисхождения_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_СтранаПроисхождения_Реквизит12() Функция ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаДляОтчетов_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаДляОтчетов_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаДляОтчетов_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаДляОтчетов_Реквизит14() Функция ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаХраненияОстатков_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаХраненияОстатков_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаХраненияОстатков_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_ЕдиницаХраненияОстатков_Реквизит15() Функция ПКС_ПередВыгрузкой_Номенклатура_НаименованиеПолное_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.ПолнНаименование) = 1 Тогда Значение = Источник.Наименование; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_НаименованиеПолное_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_НаименованиеПолное_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_НаименованиеПолное_Реквизит16() Функция ПКС_ПередВыгрузкой_Номенклатура_ВидВоспроизводства_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ТипНоменклатуры = ПолучитьЗначение(Источник, "ТипНоменклатуры"); Если (ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат) или (ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция) Тогда Значение = "Производство"; Иначе Значение = "Закупка"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ВидВоспроизводства_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ВидВоспроизводства_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_ВидВоспроизводства_Реквизит17() Функция ПКС_ПередВыгрузкой_Номенклатура_Услуга_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Работа) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД) ТОгда Значение = 1; Иначе Значение = 0; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_Услуга_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_Услуга_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_Услуга_Реквизит19() Функция ПКГС_ПередОбработкойВыгрузки_Номенклатура__20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Номенклатура__20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Номенклатура__20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_Номенклатура__20() Функция ПКС_ПередВыгрузкой_Номенклатура_ВидНоменклатуры_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); Если Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если Источник.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда ИсходящиеДанные.Установить("Наименование", "Тара"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); ИначеЕсли Источник.ТипТовара = Перечисление.ТипыТоваров.ПокупныеИзделия Тогда ИсходящиеДанные.Установить("Наименование", "Покупные изделия"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); Иначе //Если Товар.ТипТовара = Перечисление.ТипыТоваров.Собственный Тогда ИсходящиеДанные.Установить("Наименование", "Товар"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); КонецЕсли; ИначеЕсли Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда ИсходящиеДанные.Установить("Наименование", "Продукция"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); ИначеЕсли (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Работа) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) или (Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД) ТОгда ИсходящиеДанные.Установить("Наименование", "Услуга"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Услуга"); Иначе // полуфабрикат ИсходящиеДанные.Установить("Наименование", "Полуфабрикат"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ВидНоменклатуры_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ВидНоменклатуры_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_ВидНоменклатуры_Реквизит21() Функция ПКС_ПередВыгрузкой_Номенклатура_ВесовойКоэффициентВхождения_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ВесовойКоэффициентВхождения_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Номенклатура_ВесовойКоэффициентВхождения_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Номенклатура_ВесовойКоэффициентВхождения_Реквизит22() Функция ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Номенклатура_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", ПолучитьЗначение(ВходящиеДанные,"ВидНоменклатуры")); ИсходящиеДанные.Установить("ТипНоменклатуры", ПолучитьЗначение(ВходящиеДанные,"ТипНоменклатуры")); Если ПолучитьЗначение(ВходящиеДанные,"ТипНоменклатуры") = "Оборудование" Тогда ИмяПКО = "ГруппаНоменклатуры"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Номенклатура_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Номенклатура_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Номенклатура_Измерение1() Функция ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Организация_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Организация_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Организация_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НоменклатураОрганизаций_Организация_Измерение2() Функция ПКС_ПередВыгрузкой_НоменклатурныеГруппы_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НоменклатурныеГруппы_Код_Свойство2() Функция ПКС_ПередВыгрузкой_НоменклатурныеГруппы_БазоваяЕдиницаИзмерения_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОсновнаяЕдиницаИзмерения; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_БазоваяЕдиницаИзмерения_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_БазоваяЕдиницаИзмерения_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НоменклатурныеГруппы_БазоваяЕдиницаИзмерения_Реквизит6() Функция ПКС_ПередВыгрузкой_НоменклатурныеГруппы_ЕдиницаХраненияОстатков_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОсновнаяЕдиницаИзмерения; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_ЕдиницаХраненияОстатков_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_ЕдиницаХраненияОстатков_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НоменклатурныеГруппы_ЕдиницаХраненияОстатков_Реквизит7() Функция ПКС_ПередВыгрузкой_НоменклатурныеГруппы_СтавкаНДС_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Константа.ОсновнаяСтавкаНДС) =1 Тогда Ставка = 18; Иначе Ставка = Константа.ОсновнаяСтавкаНДС.Ставка; КонецЕсли; Если Ставка = 0 Тогда Значение = "БезНДС"; ИначеЕсли Ставка < 11 Тогда Значение = "НДС10"; Иначе Значение = "НДС18"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_СтавкаНДС_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_НоменклатурныеГруппы_СтавкаНДС_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_НоменклатурныеГруппы_СтавкаНДС_Реквизит8() Функция ПКГС_ПередОбработкойВыгрузки_НоменклатурныеГруппы__9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Если ТипЗначенияСтр(Источник) = "Справочник" Тогда Отказ = Источник.ЭтоГруппа(); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_НоменклатурныеГруппы__9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_НоменклатурныеГруппы__9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_НоменклатурныеГруппы__9() Функция ПКО_ПередВыгрузкой_Оборудование( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); // для НоменклатураОрганизаций ИсходящиеДанные.Установить("ВидНоменклатуры", "Оборудование к установке Сч.07"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Оборудование"); ИсходящиеДанные.Установить("Номенклатура", ПолучитьЗначение(ИсходящиеДанные,"ВидНоменклатуры")); ИсходящиеДанные.Установить("СчетУчетаБУ", СчетПоКоду("07")); ИсходящиеДанные.Установить("СчетУчетаНУ", СчетПоКоду("07")); ИсходящиеДанные.Установить("СчетДоходовВРозницеБУ",""); ИсходящиеДанные.Установить("СчетРасходовВРозницеБУ",""); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииБУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииНУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетРасходовБУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("СчетРасходовНУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("СчетУчетаВРозницеБУ", ""); ИсходящиеДанные.Установить("СчетУчетаВРозницеНУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйБУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйНУ", ""); ИсходящиеДанные.Установить("СчетУчетаНДС", СчетПоКоду("19.1")); ИсходящиеДанные.Установить("СчетУчетаНДСУплаченногоНаТаможне",СчетПоКоду("19.4")); ИсходящиеДанные.Установить("СчетУчетаПередачиБУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиНУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйБУ",""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйНУ",""); ВыгрузитьПоПравилу(,, ИсходящиеДанные, , "НоменклатураОрганизаций",,,); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Оборудование", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Оборудование" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_Оборудование() Функция ПКС_ПередВыгрузкой_Оборудование_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "О"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-1); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_Код_Свойство2() Функция ПКС_ПередВыгрузкой_Оборудование_Родитель_Свойство4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Оборудование к установке Сч.07"); Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_Родитель_Свойство4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_Родитель_Свойство4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_Родитель_Свойство4() Функция ПКС_ПередВыгрузкой_Оборудование_ЭтоГруппа_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ЭтоГруппа_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ЭтоГруппа_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_ЭтоГруппа_Свойство5() Функция ПКС_ПередВыгрузкой_Оборудование_Услуга_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_Услуга_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_Услуга_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_Услуга_Реквизит7() Функция ПКС_ПередВыгрузкой_Оборудование_ВидНоменклатуры_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Оборудование"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ВидНоменклатуры_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ВидНоменклатуры_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_ВидНоменклатуры_Реквизит8() Функция ПКС_ПередВыгрузкой_Оборудование_БазоваяЕдиницаИзмерения_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОКЕИ = СоздатьОбъект("СписокЗначений"); ОКЕИ.Установить("ПометкаУдаления",0); ОКЕИ.Установить("Код","796"); ОКЕИ.Установить("Наименование","шт"); ОКЕИ.Установить("НаименованиеПолное","Штука"); Значение = ОКЕИ; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_БазоваяЕдиницаИзмерения_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_БазоваяЕдиницаИзмерения_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_БазоваяЕдиницаИзмерения_Реквизит9() Функция ПКС_ПередВыгрузкой_Оборудование_ЕдиницаДляОтчетов_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Значение = Параметры.Шт; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ЕдиницаДляОтчетов_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ЕдиницаДляОтчетов_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_ЕдиницаДляОтчетов_Реквизит10() Функция ПКС_ПередВыгрузкой_Оборудование_ЕдиницаХраненияОстатков_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Значение = Параметры.Шт; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ЕдиницаХраненияОстатков_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ЕдиницаХраненияОстатков_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_ЕдиницаХраненияОстатков_Реквизит11() Функция ПКГС_ПередОбработкойВыгрузки_Оборудование__12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Оборудование__12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_Оборудование__12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_Оборудование__12() Функция ПКС_ПередВыгрузкой_Оборудование_ВидВоспроизводства_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Закупка"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ВидВоспроизводства_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_ВидВоспроизводства_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_ВидВоспроизводства_Реквизит13() Функция ПКС_ПередВыгрузкой_Оборудование_СтавкаНДС_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "НДС18"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_СтавкаНДС_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Оборудование_СтавкаНДС_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Оборудование_СтавкаНДС_Реквизит14() Функция ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_3( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_3() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_3_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "О"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-1); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_3_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_3_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_3_Код_Свойство1() Функция ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_4( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); // для НоменклатураОрганизаций ИсходящиеДанные.Установить("ВидНоменклатуры", "Оборудование (объекты основных средств) сч. 08.4"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Оборудование"); ИсходящиеДанные.Установить("Номенклатура", ПолучитьЗначение(ИсходящиеДанные,"ВидНоменклатуры")); ИсходящиеДанные.Установить("СчетУчетаБУ", СчетПоКоду("08.4")); ИсходящиеДанные.Установить("СчетУчетаНУ", СчетПоКоду("08.4")); ИсходящиеДанные.Установить("СчетДоходовВРозницеБУ",""); ИсходящиеДанные.Установить("СчетРасходовВРозницеБУ",""); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииБУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетДоходовОтРеализацииНУ", СчетПоКоду("91.1")); ИсходящиеДанные.Установить("СчетРасходовБУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("СчетРасходовНУ", СчетПоКоду("91.2")); ИсходящиеДанные.Установить("СчетУчетаВРозницеБУ", ""); ИсходящиеДанные.Установить("СчетУчетаВРозницеНУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйБУ", ""); ИсходящиеДанные.Установить("СчетУчетаЗабалансовыйНУ", ""); ИсходящиеДанные.Установить("СчетУчетаНДС", СчетПоКоду("19.1")); ИсходящиеДанные.Установить("СчетУчетаНДСУплаченногоНаТаможне",СчетПоКоду("19.4")); ИсходящиеДанные.Установить("СчетУчетаПередачиБУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиНУ", ""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйБУ",""); ИсходящиеДанные.Установить("СчетУчетаПередачиЗабалансовыйНУ",""); ВыгрузитьПоПравилу(,, ИсходящиеДанные, , "НоменклатураОрганизаций",,,); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ОбъектыСтроительства_08_4() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "В"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-1); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Код_Свойство1() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Родитель_Свойство4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИсходящиеДанные.Установить("Наименование", "Оборудование (объекты основных средств) сч. 08.4"); Иначе ИсходящиеДанные.Установить("Наименование", Источник.Родитель.Наименование); КонецЕсли; Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Родитель_Свойство4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Родитель_Свойство4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Родитель_Свойство4() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_БазоваяЕдиницаИзмерения_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ОКЕИ = СоздатьОбъект("СписокЗначений"); ОКЕИ.Установить("ПометкаУдаления",0); ОКЕИ.Установить("Код","796"); ОКЕИ.Установить("Наименование","шт"); ОКЕИ.Установить("НаименованиеПолное","Штука"); Значение = ОКЕИ; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_БазоваяЕдиницаИзмерения_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_БазоваяЕдиницаИзмерения_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_БазоваяЕдиницаИзмерения_Реквизит5() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидНоменклатуры_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); // для ВидыНоменклатуры ИсходящиеДанные.Установить("Наименование", "Внеоборотные активы"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидНоменклатуры_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидНоменклатуры_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидНоменклатуры_Реквизит6() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаДляОтчетов_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Значение = Параметры.Шт; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаДляОтчетов_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаДляОтчетов_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаДляОтчетов_Реквизит7() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаХраненияОстатков_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",Источник); ИсходящиеДанные.Установить("НеЗапоминать", 1); Значение = Параметры.Шт; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаХраненияОстатков_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаХраненияОстатков_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ЕдиницаХраненияОстатков_Реквизит8() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Услуга_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Услуга_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Услуга_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_Услуга_Реквизит9() Функция ПКГС_ПередОбработкойВыгрузки_ОбъектыСтроительства_08_4__10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОбъектыСтроительства_08_4__10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОбъектыСтроительства_08_4__10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ОбъектыСтроительства_08_4__10() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидВоспроизводства_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Закупка"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидВоспроизводства_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидВоспроизводства_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_ВидВоспроизводства_Реквизит11() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_НаименованиеПолное_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник.Наименование; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_НаименованиеПолное_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_НаименованиеПолное_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_НаименованиеПолное_Реквизит12() Функция ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_СтавкаНДС_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "НДС18"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_СтавкаНДС_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_СтавкаНДС_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОбъектыСтроительства_08_4_СтавкаНДС_Реквизит13() Функция ПКО_ПередВыгрузкой_ОперацияБух( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Если (ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1) и (ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 1) Тогда Отказ = 1; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1) и (ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 0) Тогда Если ВходящиеДанные.Получить("Налоговый").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 0) и (ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 1) Тогда Если ВходящиеДанные.Получить("Хозрасчетный").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; Иначе Если (ВходящиеДанные.Получить("Хозрасчетный").КоличествоСтрок() = 0) и (ВходящиеДанные.Получить("Налоговый").КоличествоСтрок() = 0) Тогда Отказ = 1; КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ОперацияБух", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ОперацияБух" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ОперацияБух() Функция ПКС_ПередВыгрузкой_ОперацияБух_Организация_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Организация_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Организация_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Организация_Реквизит2() Функция ПКС_ПередВыгрузкой_ОперацияБух_Комментарий_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ПолучитьКомментарийДокумента( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Комментарий_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Комментарий_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Комментарий_Реквизит3() Функция ПКС_ПередВыгрузкой_ОперацияБух_Содержание_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1 Тогда РегистрБух = " (налоговый учет)"; Иначе РегистрБух = " (бухгалтерский учет)"; КонецЕсли; Счет = ВходящиеДанные.Получить("Счет"); Значение = "Итоги по счету " + Счет + РегистрБух; Счет = ?(ТипЗначения(Счет) = 2, Счет, Счет.Код); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Содержание_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Содержание_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Содержание_Реквизит4() Функция ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Если ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1 Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5() Функция ПКГС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ОбъектКоллекции, УзелКоллекцииОбъектов) Отказ = 0; Попытка СчетДт = ?(ПустоеЗначение(ОбъектКоллекции.КодСчетаДт) = 1, ОбъектКоллекции.СчетДт, ОбъектКоллекции.КодСчетаДт); СчетКт = ?(ПустоеЗначение(ОбъектКоллекции.КодСчетаКт) = 1, ОбъектКоллекции.СчетКт, ОбъектКоллекции.КодСчетаКт); Если (ПустоеЗначение(СчетДт) = 1) и (ПустоеЗначение(СчетКт) = 1) Тогда Сообщить("Попытка выгрузки проводки без указания счетов дебета и кредита. Проводка не выгружена."); Отказ = 1; Иначе Если ТипЗначенияСтр(СчетДт) = "Счет" Тогда СчетДтЗабалансовый = ОбъектКоллекции.СчетДт.Забалансовый; СчетДт = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(СчетДт, "Хозрасчетный"), "Значения").Получить(Строка(СчетДт)); Иначе СчетДтЗабалансовый = 1; КонецЕсли; Если ТипЗначенияСтр(СчетКт) = "Счет" Тогда СчетКтЗабалансовый = ОбъектКоллекции.СчетКт.Забалансовый; СчетКт = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(СчетКт, "Хозрасчетный"), "Значения").Получить(Строка(СчетКт)); Иначе СчетКтЗабалансовый = 1; КонецЕсли; Если (ПустоеЗначение(СчетДт) = 1) и (СчетКтЗабалансовый = 0) Тогда Сообщить("При попытке выгрузки проводку по кредиту счета " + СокрЛП(СчетКт) + " не удалось определить счет дебета. Проводка не выгружена."); Отказ = 1; ИначеЕсли (ПустоеЗначение(СчетКт) = 1) и (СчетДтЗабалансовый = 0) Тогда Сообщить("При попытке выгрузки проводку по дебету счета " + СокрЛП(СчетДт) + " не удалось определить счет кредита. Проводка не выгружена."); Отказ = 1; КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НаборДвиженийРегистраБухгалтерии5() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Период_Свойство6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Период_Свойство6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Период_Свойство6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Период_Свойство6() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетДт_Свойство7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("КодСчета", ОбъектКоллекции.КодСчетаДт); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетДт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетДт_Свойство7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетДт_Свойство7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетДт_Свойство7() Функция ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетДт_Свойство7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.КодСчетаДт) = 0 Тогда ИмяПКО = ""; Значение = ОбъектКоллекции.КодСчетаДт; Пусто = 0; Иначе ИмяПКО = "Хозрасчетный"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетДт_Свойство7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетДт_Свойство7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетДт_Свойство7() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетКт_Свойство8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("КодСчета", ОбъектКоллекции.КодСчетаКт); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетКт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетКт_Свойство8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетКт_Свойство8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СчетКт_Свойство8() Функция ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетКт_Свойство8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.КодСчетаКт) = 0 Тогда ИмяПКО = ""; Значение = ОбъектКоллекции.КодСчетаКт; Пусто = 0; Иначе ИмяПКО = "Хозрасчетный"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетКт_Свойство8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетКт_Свойство8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СчетКт_Свойство8() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СубконтоДт); ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9() Функция ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетДт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 3 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; НомерСубконто = ОбъектКоллекции.СубконтоДт.НомерСтроки; Для Сч = 1 по 3 Цикл Если ОбъектКоллекции.СчетДт.ВидСубконто(Сч) = ОбъектКоллекции.СубконтоДт.Ключ Тогда НомерСубконто = Сч; Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоДт.Значение); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,, Значение,, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,,,,,,, УзелСвойства, ВидСубконто, Субконто, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоДт_ВидыСубконтоСчета9() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СубконтоКт); ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10() Функция ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетКт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 3 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; НомерСубконто = ОбъектКоллекции.СубконтоКт.НомерСтроки; Для Сч = 1 по 3 Цикл Если ОбъектКоллекции.СчетКт.ВидСубконто(Сч) = ОбъектКоллекции.СубконтоКт.Ключ Тогда НомерСубконто = Сч; Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоКт.Значение); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,, Значение,, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,,,,,,, УзелСвойства, ВидСубконто, Субконто, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Хозрасчетный_СубконтоКт_ВидыСубконтоСчета10() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Организация_Измерение11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Организация_Измерение11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Организация_Измерение11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Организация_Измерение11() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаДт_Измерение12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СчетДт); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаДт_Измерение12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаДт_Измерение12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаДт_Измерение12() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаКт_Измерение13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СчетКт); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаКт_Измерение13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаКт_Измерение13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_ВалютаКт_Измерение13() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Содержание_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Метка; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Содержание_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Содержание_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_Содержание_Реквизит19() Функция ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НомерЖурнала_Реквизит20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "О"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НомерЖурнала_Реквизит20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НомерЖурнала_Реквизит20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Хозрасчетный_НомерЖурнала_Реквизит20() Функция ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Если ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 1 Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21() Функция ПКГС_ПередВыгрузкой_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ОбъектКоллекции, УзелКоллекцииОбъектов) Отказ = 0; Попытка СчетДт = ?(ПустоеЗначение(ОбъектКоллекции.КодСчетаДт) = 1, ОбъектКоллекции.СчетДт, ОбъектКоллекции.КодСчетаДт); СчетКт = ?(ПустоеЗначение(ОбъектКоллекции.КодСчетаКт) = 1, ОбъектКоллекции.СчетКт, ОбъектКоллекции.КодСчетаКт); Если (ПустоеЗначение(СчетДт) = 1) и (ПустоеЗначение(СчетКт) = 1) Тогда Сообщить("Попытка выгрузки проводки без указания счетов дебета и кредита. Проводка не выгружена."); Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередВыгрузкой_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередВыгрузкой_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередВыгрузкой_ОперацияБух_Налоговый_НаборДвиженийРегистраБухгалтерии21() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Период_Свойство22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Период_Свойство22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Период_Свойство22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Период_Свойство22() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетДт_Свойство23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("КодСчета", ОбъектКоллекции.КодСчетаДт); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетДт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетДт_Свойство23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетДт_Свойство23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетДт_Свойство23() Функция ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетДт_Свойство23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.КодСчетаДт) = 0 Тогда ИмяПКО = ""; Значение = ОбъектКоллекции.КодСчетаДт; Пусто = 0; Иначе ИмяПКО = "Налоговый"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетДт_Свойство23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетДт_Свойство23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетДт_Свойство23() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетКт_Свойство24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("КодСчета", ОбъектКоллекции.КодСчетаКт); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетКт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетКт_Свойство24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетКт_Свойство24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СчетКт_Свойство24() Функция ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетКт_Свойство24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.КодСчетаКт) = 0 Тогда ИмяПКО = ""; Значение = ОбъектКоллекции.КодСчетаКт; Пусто = 0; Иначе ИмяПКО = "Налоговый"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетКт_Свойство24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетКт_Свойство24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СчетКт_Свойство24() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СубконтоДт); ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25() Функция ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетДт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 3 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; НомерСубконто = ОбъектКоллекции.СубконтоДт.НомерСтроки; Для Сч = 1 по 3 Цикл Если ОбъектКоллекции.СчетДт.ВидСубконто(Сч) = ОбъектКоллекции.СубконтоДт.Ключ Тогда НомерСубконто = Сч; Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоДт.Значение); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,, Значение,, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,,,,,,, УзелСвойства, ВидСубконто, Субконто, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоДт_ВидыСубконтоСчета25() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СубконтоКт); ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26() Функция ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетКт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 3 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; НомерСубконто = ОбъектКоллекции.СубконтоКт.НомерСтроки; Для Сч = 1 по 3 Цикл Если ОбъектКоллекции.СчетКт.ВидСубконто(Сч) = ОбъектКоллекции.СубконтоКт.Ключ Тогда НомерСубконто = Сч; Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоКт.Значение); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,, Значение,, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,,,,,,, УзелСвойства, ВидСубконто, Субконто, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОперацияБух_Налоговый_СубконтоКт_ВидыСубконтоСчета26() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Организация_Измерение27( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Организация_Измерение27", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Организация_Измерение27" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Организация_Измерение27() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаДт_Измерение28( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СчетДт); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаДт_Измерение28", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаДт_Измерение28" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаДт_Измерение28() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаКт_Измерение29( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = ПустоеЗначение(ОбъектКоллекции.СчетКт); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаКт_Измерение29", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаКт_Измерение29" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_ВидУчетаКт_Измерение29() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_НомерЖурнала_Реквизит33( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "О"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_НомерЖурнала_Реквизит33", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_НомерЖурнала_Реквизит33" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_НомерЖурнала_Реквизит33() Функция ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Содержание_Реквизит34( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Метка; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Содержание_Реквизит34", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Содержание_Реквизит34" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОперацияБух_Налоговый_Содержание_Реквизит34() Функция ПКС_ПриВыгрузке_ОприходованиеТоваров_Товары_Коэффициент_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(Значение) = 1 Тогда Значение = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОприходованиеТоваров_Товары_Коэффициент_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ОприходованиеТоваров_Товары_Коэффициент_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ОприходованиеТоваров_Товары_Коэффициент_Реквизит4() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Номенклатура_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.Номенклатура.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Номенклатура_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Номенклатура_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Номенклатура_Реквизит5() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_ЕдиницаИзмерения_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если (ОбъектКоллекции.Номенклатура.Вид()= "Материалы") или (ОбъектКоллекции.Номенклатура.Вид()= "Номенклатура") Тогда Значение = ОбъектКоллекции.Номенклатура.ЕдиницаИзмерения; Иначе Значение = Параметры.Шт; КонеЦЕсли; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_ЕдиницаИзмерения_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_ЕдиницаИзмерения_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_ЕдиницаИзмерения_Реквизит10() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_Организация_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Организация_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Организация_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_Организация_Реквизит12() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_Склад_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"Склад"); Если ТипЗначенияСтр(Значение) = "СписокЗначений" Тогда ИмяПКО = "СкладыДоп"; Иначе ИмяПКО = "Склады"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Склад_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Склад_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_Склад_Реквизит13() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_ОтражатьВУправленческомУчете_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_ОтражатьВУправленческомУчете_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_ОтражатьВУправленческомУчете_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_ОтражатьВУправленческомУчете_Реквизит14() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_КоррСчет_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СчетПоКоду("00"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_КоррСчет_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_КоррСчет_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_КоррСчет_Реквизит21() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Качество_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Новый"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Качество_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Качество_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_Качество_Реквизит22() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_ВидОперации_Реквизит23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ВводНачальныхОстатков"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_ВидОперации_Реквизит23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_ВидОперации_Реквизит23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_ВидОперации_Реквизит23() Функция ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_СуммаНУ_Реквизит24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.СуммаРегл; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_СуммаНУ_Реквизит24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_СуммаНУ_Реквизит24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОприходованиеТоваров_Товары_СуммаНУ_Реквизит24() Функция ПКО_ПослеВыгрузки_Организация( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, Приемник, УзелСсылки) Отказ = 0; Попытка ВыгрузитьПоПравилу(Источник,,,, "ТелефоныОрганизации"); ВыгрузитьПоПравилу(Источник,,,, "ЮридическийАдресОрганизации"); ВыгрузитьПоПравилу(Источник,,,, "ФактическийАдресОрганизации"); ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ОтветственноеЛицо", "Руководитель"); ВходящиеДанные.Установить("ФизическоеЛицо", Константа.Руководитель.Получить(Параметры.ДатаВводаОстатков)); ВходящиеДанные.Установить("Должность", Константа.Руководитель.Получить(Параметры.ДатаВводаОстатков).Должность); ВыгрузитьПоПравилу(,,ВходящиеДанные,, "ОтветственныеЛицаОрганизаций"); ВходящиеДанные.Установить("ОтветственноеЛицо", "ГлавныйБухгалтер"); ВходящиеДанные.Установить("ФизическоеЛицо", Константа.ГлБухгалтер.Получить(Параметры.ДатаВводаОстатков)); ВходящиеДанные.Установить("Должность", Константа.ГлБухгалтер.Получить(Параметры.ДатаВводаОстатков).Должность); ВыгрузитьПоПравилу(,,ВходящиеДанные,, "ОтветственныеЛицаОрганизаций"); ВходящиеДанные.Установить("ОтветственноеЛицо", "Кассир"); ВходящиеДанные.Установить("ФизическоеЛицо", Константа.Кассир.Получить(Параметры.ДатаВводаОстатков)); ВходящиеДанные.Установить("Должность", Константа.Кассир.Получить(Параметры.ДатаВводаОстатков).Должность); ВыгрузитьПоПравилу(,,ВходящиеДанные,, "ОтветственныеЛицаОрганизаций"); ВходящиеДанные.Установить("ОтветственноеЛицо", "ОтветственныйЗаНалоговыеРегистры"); ВходящиеДанные.Установить("ФизическоеЛицо", Константа.ОтветственныйЗаСоставлениеРегистровНУ); ВходящиеДанные.Установить("Должность", Константа.ОтветственныйЗаСоставлениеРегистровНУ.Должность); ВыгрузитьПоПравилу(,,ВходящиеДанные,, "ОтветственныеЛицаОрганизаций"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПослеВыгрузки_Организация", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПослеВыгрузки_Организация" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПослеВыгрузки_Организация() Функция ПКС_ПередВыгрузкой_Организация_ВидСтавокЕСНиПФР_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ДляНеСельскохозяйственныхПроизводителей" Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ВидСтавокЕСНиПФР_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ВидСтавокЕСНиПФР_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ВидСтавокЕСНиПФР_Реквизит1() Функция ПКС_ПередВыгрузкой_Организация_ИНН_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если СтрДлина(СокрЛП(Константа.ИННОрганизации))=12 Тогда Значение = Лев(СокрЛП(Константа.ИННОрганизации), 12); Иначе Значение = Лев(СокрЛП(Константа.ИННОрганизации), 10); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ИНН_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ИНН_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ИНН_Реквизит2() Функция ПКС_ПередВыгрузкой_Организация_КодИМНС_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.КодИМНС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодИМНС_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодИМНС_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КодИМНС_Реквизит3() Функция ПКС_ПередВыгрузкой_Организация_КодПоОКПО_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.КодОКПО; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодПоОКПО_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодПоОКПО_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КодПоОКПО_Реквизит4() Функция ПКС_ПередВыгрузкой_Организация_КПП_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если СтрДлина(СокрЛП(Константа.ИННОрганизации))=12 Тогда Значение = ""; Иначе Значение = Сред(СокрЛП(Константа.ИННОрганизации), 12, 9); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КПП_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КПП_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КПП_Реквизит5() Функция ПКС_ПередВыгрузкой_Организация_Наименование_Свойство6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.НазваниеОрганизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_Наименование_Свойство6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_Наименование_Свойство6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_Наименование_Свойство6() Функция ПКС_ПередВыгрузкой_Организация_НаименованиеПолное_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОфициальноеНазваниеОрганизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеПолное_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеПолное_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_НаименованиеПолное_Реквизит7() Функция ПКС_ПередВыгрузкой_Организация_ОГРН_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОГРН; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ОГРН_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ОГРН_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ОГРН_Реквизит8() Функция ПКС_ПередВыгрузкой_Организация_ОсновнойБанковскийСчет_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОсновнойБанковскийСчет; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ОсновнойБанковскийСчет_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ОсновнойБанковскийСчет_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ОсновнойБанковскийСчет_Реквизит9() Функция ПКС_ПередВыгрузкой_Организация_РегистрационныйНомерПФР_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = глПолучитьНалог("ПФР_страх").РегНомер; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_РегистрационныйНомерПФР_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_РегистрационныйНомерПФР_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_РегистрационныйНомерПФР_Реквизит10() Функция ПКС_ПередВыгрузкой_Организация_ТерриториальныеУсловияПФР_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ТерриториальныеУсловия; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ТерриториальныеУсловияПФР_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ТерриториальныеУсловияПФР_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ТерриториальныеУсловияПФР_Реквизит11() Функция ПКС_ПередВыгрузкой_Организация_НаименованиеИМНС_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ГНИОрганизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеИМНС_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеИМНС_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_НаименованиеИМНС_Реквизит12() Функция ПКС_ПередВыгрузкой_Организация_НаименованиеПлательщикаПриПеречисленииНалогов_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.НаименованиеПлательщикаПриПеречисленииНалогов; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеПлательщикаПриПеречисленииНалогов_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеПлательщикаПриПеречисленииНалогов_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_НаименованиеПлательщикаПриПеречисленииНалогов_Реквизит13() Функция ПКС_ПередВыгрузкой_Организация_СвидетельствоДатаВыдачи_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.СвидетельствоДатаВыдачи; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоДатаВыдачи_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоДатаВыдачи_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_СвидетельствоДатаВыдачи_Реквизит14() Функция ПКС_ПередВыгрузкой_Организация_СвидетельствоКодОргана_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.СвидетельствоКодИМНС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоКодОргана_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоКодОргана_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_СвидетельствоКодОргана_Реквизит15() Функция ПКС_ПередВыгрузкой_Организация_СвидетельствоНаименованиеОргана_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.СвидетельствоНаименованиеИМНС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоНаименованиеОргана_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоНаименованиеОргана_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_СвидетельствоНаименованиеОргана_Реквизит16() Функция ПКС_ПередВыгрузкой_Организация_СвидетельствоСерияНомер_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.СвидетельствоСерияНомер; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоСерияНомер_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_СвидетельствоСерияНомер_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_СвидетельствоСерияНомер_Реквизит17() Функция ПКС_ПередВыгрузкой_Организация_КодОКВЭД_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.КодОКВЭД; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКВЭД_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКВЭД_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КодОКВЭД_Реквизит18() Функция ПКС_ПередВыгрузкой_Организация_НаименованиеОКВЭД_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.Отрасль; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеОКВЭД_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеОКВЭД_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_НаименованиеОКВЭД_Реквизит19() Функция ПКС_ПередВыгрузкой_Организация_ДатаРегистрации_Реквизит20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ДатаРегистрации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ДатаРегистрации_Реквизит20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ДатаРегистрации_Реквизит20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ДатаРегистрации_Реквизит20() Функция ПКС_ПередВыгрузкой_Организация_КодОКОНХ_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.КодОКОНХ; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКОНХ_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКОНХ_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КодОКОНХ_Реквизит21() Функция ПКС_ПередВыгрузкой_Организация_КодОКОПФ_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.КодКОПФ; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКОПФ_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКОПФ_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КодОКОПФ_Реквизит22() Функция ПКС_ПередВыгрузкой_Организация_КодОКФС_Реквизит23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.КодКФС; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКФС_Реквизит23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодОКФС_Реквизит23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КодОКФС_Реквизит23() Функция ПКС_ПередВыгрузкой_Организация_КодПоОКАТО_Реквизит24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = глПолучитьНалог("ПФР_страх").КодОКАТО; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодПоОКАТО_Реквизит24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_КодПоОКАТО_Реквизит24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_КодПоОКАТО_Реквизит24() Функция ПКС_ПередВыгрузкой_Организация_ОтражатьВРегламентированномУчете_Реквизит25( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ОтражатьВРегламентированномУчете_Реквизит25", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ОтражатьВРегламентированномУчете_Реквизит25" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ОтражатьВРегламентированномУчете_Реквизит25() Функция ПКС_ПередВыгрузкой_Организация_ЮрФизЛицо_Реквизит28( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ЮрЛицо"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ЮрФизЛицо_Реквизит28", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_ЮрФизЛицо_Реквизит28" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_ЮрФизЛицо_Реквизит28() Функция ПКС_ПередВыгрузкой_Организация_НаименованиеОКОПФ_Реквизит29( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ОргПравФорма; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеОКОПФ_Реквизит29", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Организация_НаименованиеОКОПФ_Реквизит29" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Организация_НаименованиеОКОПФ_Реквизит29() Функция ПКС_ПередВыгрузкой_ОсновныеСредства_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); //Код ОС - инв.номер Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОсновныеСредства_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОсновныеСредства_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОсновныеСредства_Код_Свойство1() Функция ПКС_ПередВыгрузкой_ОсновныеСредства_Комментарий_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Иначе //На случай загрузки из разных БД Значение = СокрЛП(Источник.ПрочиеСведения + " # ИНН организации: " + СокрЛП(Константа.ИННОрганизации) + "; инв. ном.: " + СокрЛП(Источник.Код) + " #"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОсновныеСредства_Комментарий_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОсновныеСредства_Комментарий_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОсновныеСредства_Комментарий_Реквизит5() Функция ПКГС_ПередОбработкойВыгрузки_ОсновныеСредства__10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОсновныеСредства__10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ОсновныеСредства__10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ОсновныеСредства__10() Функция ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_Период_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_Период_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_Период_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_Период_Свойство1() Функция ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_СтруктурнаяЕдиница_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_СтруктурнаяЕдиница_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_СтруктурнаяЕдиница_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ОтветственныеЛицаОрганизаций_СтруктурнаяЕдиница_Измерение2() Функция ПКС_ПередВыгрузкой_ПараметрыВыработкиОС_Наименование_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ПолучитьКомментарийДокумента( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПараметрыВыработкиОС_Наименование_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПараметрыВыработкиОС_Наименование_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПараметрыВыработкиОС_Наименование_Свойство1() Функция ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_Период_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_Период_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_Период_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_Период_Свойство1() Функция ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_ФизЛицо_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_ФизЛицо_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_ФизЛицо_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПаспортныеДанныеФизЛиц_ФизЛицо_Измерение2() Функция ПКО_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ПолучитьЗначение(Источник, "Подразделение").Код+Строка(ПолучитьЗначение(Источник, "Дата")); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию() Функция ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВУправленческомУчете_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВУправленческомУчете_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВУправленческомУчете_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВУправленческомУчете_Реквизит2() Функция ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВБухгалтерскомУчете_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВБухгалтерскомУчете_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВБухгалтерскомУчете_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВБухгалтерскомУчете_Реквизит3() Функция ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВНалоговомУчете_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВНалоговомУчете_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВНалоговомУчете_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_ОтражатьВНалоговомУчете_Реквизит4() Функция ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_Организация_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_Организация_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_Организация_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаМатериаловВЭксплуатацию_Организация_Реквизит5() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_ЕдиницаИзмерения_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если (ОбъектКоллекции.Номенклатура.Вид()= "Материалы") или (ОбъектКоллекции.Номенклатура.Вид()= "Номенклатура") Тогда Значение = ОбъектКоллекции.Номенклатура.ЕдиницаИзмерения; Иначе Значение = Параметры.Шт; КонеЦЕсли; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_ЕдиницаИзмерения_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_ЕдиницаИзмерения_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_ЕдиницаИзмерения_Реквизит2() Функция ПКС_ПриВыгрузке_ПередачаТоваров_Товары_Коэффициент_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(Значение) = 1 Тогда Значение = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ПередачаТоваров_Товары_Коэффициент_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ПередачаТоваров_Товары_Коэффициент_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ПередачаТоваров_Товары_Коэффициент_Реквизит6() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Номенклатура_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.Номенклатура.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Номенклатура_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Номенклатура_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Номенклатура_Реквизит7() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_ВалютаДокумента_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Рубли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_ВалютаДокумента_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_ВалютаДокумента_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_ВалютаДокумента_Реквизит14() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_ВидПередачи_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "СоСклада"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_ВидПередачи_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_ВидПередачи_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_ВидПередачи_Реквизит16() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_ДоговорКонтрагента_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если (ПолучитьЗначение(Источник, "ВидОперации") = "ВПереработку") или (ПолучитьЗначение(Источник, "ВидОперации") = "ИзПереработки") Тогда ИсходящиеДанные.Установить("ВидДоговора","СПоставщиком"); Иначе ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_ДоговорКонтрагента_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_ДоговорКонтрагента_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_ДоговорКонтрагента_Реквизит18() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_КратностьВзаиморасчетов_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_КратностьВзаиморасчетов_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_КратностьВзаиморасчетов_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_КратностьВзаиморасчетов_Реквизит21() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_КурсВзаиморасчетов_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_КурсВзаиморасчетов_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_КурсВзаиморасчетов_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_КурсВзаиморасчетов_Реквизит22() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_Организация_Реквизит24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Организация_Реквизит24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Организация_Реквизит24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_Организация_Реквизит24() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_Склад_Реквизит28( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"Склад"); Если ТипЗначенияСтр(Значение) = "СписокЗначений" Тогда ИмяПКО = "СкладыДоп"; Иначе ИмяПКО = "Склады"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Склад_Реквизит28", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Склад_Реквизит28" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_Склад_Реквизит28() Функция ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Качество_Реквизит30( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Новый"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Качество_Реквизит30", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Качество_Реквизит30" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПередачаТоваров_Товары_Качество_Реквизит30() Функция ПКО_ПередВыгрузкой_ПлатежноеПоручениеВходящее( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка //КлючВыгружаемыхДанных = Источник.Комментарий; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ПлатежноеПоручениеВходящее", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ПлатежноеПоручениеВходящее" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ПлатежноеПоручениеВходящее() Функция ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Организация_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Организация_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Организация_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Организация_Реквизит2() Функция ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_СчетОрганизации_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидСчета", ПолучитьЗначение(Источник,"ВидСчета")); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_СчетОрганизации_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_СчетОрганизации_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_СчетОрганизации_Реквизит3() Функция ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ВидОперации_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПрочееПоступлениеБезналичныхДенежныхСредств"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ВидОперации_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ВидОперации_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ВидОперации_Реквизит6() Функция ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ОтраженоВОперУчете_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ОтраженоВОперУчете_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ОтраженоВОперУчете_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ОтраженоВОперУчете_Реквизит7() Функция ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Оплачено_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Оплачено_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Оплачено_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_Оплачено_Реквизит8() Функция ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ДатаОплаты_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник.Дата; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ДатаОплаты_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ДатаОплаты_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПлатежноеПоручениеВходящее_ДатаОплаты_Реквизит9() Функция ПКС_ПередВыгрузкой_Подразделения_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(ПолучитьЗначение(Источник,"Код"), Параметры.ДлинаКода); //Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Подразделения_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Подразделения_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Подразделения_Код_Свойство2() Функция ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(ПолучитьЗначение(Источник,"Код"), Параметры.ДлинаКода); //Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Код_Свойство2() Функция ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Владелец_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Владелец_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Владелец_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПодразделенияОрганизаций_Владелец_Свойство5() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если (ОбъектКоллекции.Номенклатура.Вид()="Материалы") или (ОбъектКоллекции.Номенклатура.Вид()="Номенклатура") Тогда Значение = ОбъектКоллекции.Номенклатура.ЕдиницаИзмерения; Иначе Значение = Параметры.Шт; КонеЦЕсли; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит2() Функция ПКС_ПриВыгрузке_ПоступлениеТоваровУслуг_Товары_Коэффициент_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(Значение) = 1 Тогда Значение = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ПоступлениеТоваровУслуг_Товары_Коэффициент_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ПоступлениеТоваровУслуг_Товары_Коэффициент_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ПоступлениеТоваровУслуг_Товары_Коэффициент_Реквизит4() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_Номенклатура_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.Номенклатура.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_Номенклатура_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_Номенклатура_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Товары_Номенклатура_Реквизит5() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ВидПоступления_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "НаСклад"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ВидПоступления_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ВидПоступления_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ВидПоступления_Реквизит9() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ДоговорКонтрагента_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"ДоговорКонтрагента"); Если ТипЗначенияСтр(Значение) = "СписокЗначений" Тогда ИмяПКО = "ДоговорыКонтрагентовДоп"; КонецЕсли; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора",ПолучитьЗначение(ВходящиеДанные, "ВидДоговора")); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ДоговорКонтрагента_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ДоговорКонтрагента_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_ДоговорКонтрагента_Реквизит10() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Организация_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Организация_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Организация_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Организация_Реквизит15() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_СкладОрдер_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"СкладОрдер"); Если ТипЗначенияСтр(Значение) = "СписокЗначений" Тогда ИмяПКО = "СкладыДоп"; Иначе ИмяПКО = "Склады"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_СкладОрдер_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_СкладОрдер_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_СкладОрдер_Реквизит17() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_УчитыватьНДС_Реквизит20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_УчитыватьНДС_Реквизит20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_УчитыватьНДС_Реквизит20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_УчитыватьНДС_Реквизит20() Функция ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Сделка_Реквизит25( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПолучитьЗначение(ВходящиеДанные, "ВидОперации") = "ВПереработку" Тогда ИсходящиеДанные = ВходящиеДанные; ИмяПКО = "ЗаказПокупателя"; Значение = 1; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Сделка_Реквизит25", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Сделка_Реквизит25" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПоступлениеТоваровУслуг_Сделка_Реквизит25() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Подразделение_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ПодразделениеОрганизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Подразделение_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Подразделение_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Подразделение_Реквизит3() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Должность_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо.Должность; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "Ввод остатков"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Должность_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Должность_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Должность_Реквизит4() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ДатаПриема_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо.ДатаПриема; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ДатаПриема_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ДатаПриема_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ДатаПриема_Реквизит5() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ЗанимаемыхСтавок_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ЗанимаемыхСтавок_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ЗанимаемыхСтавок_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ЗанимаемыхСтавок_Реквизит6() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ГрафикРаботы_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "40-часовая неделя"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ГрафикРаботы_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ГрафикРаботы_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_ГрафикРаботы_Реквизит8() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Комментарий_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Прием на работу сотрудников"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Комментарий_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Комментарий_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Комментарий_Реквизит9() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Дата_Свойство10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков - 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Дата_Свойство10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Дата_Свойство10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Дата_Свойство10() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Сотрудник_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Сотрудник_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Сотрудник_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_Сотрудник_Реквизит11() Функция ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_УчетНачисленийПоОрганизации_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_УчетНачисленийПоОрганизации_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_УчетНачисленийПоОрганизации_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботу_Работники_УчетНачисленийПоОрганизации_Реквизит13() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Должность_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо.Должность; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "Ввод остатков"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Должность_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Должность_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Должность_Реквизит4() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ЗанимаемыхСтавок_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ЗанимаемыхСтавок_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ЗанимаемыхСтавок_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ЗанимаемыхСтавок_Реквизит5() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ДатаПриема_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо.ДатаПриема; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ДатаПриема_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ДатаПриема_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ДатаПриема_Реквизит6() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_СпособРасчета_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоМесячнойТарифнойСтавкеПоДням"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_СпособРасчета_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_СпособРасчета_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_СпособРасчета_Реквизит8() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ГрафикРаботы_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "40-часовая неделя"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ГрафикРаботы_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ГрафикРаботы_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_ГрафикРаботы_Реквизит9() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Организация_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Организация_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Организация_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Организация_Реквизит10() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Комментарий_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Прием на работу сотрудников"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Комментарий_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Комментарий_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Комментарий_Реквизит11() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РайонныйКоэффициент_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.РайонныйКоэффициент; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РайонныйКоэффициент_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РайонныйКоэффициент_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РайонныйКоэффициент_Реквизит13() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Дата_Свойство14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков - 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Дата_Свойство14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Дата_Свойство14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Дата_Свойство14() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Номер_Свойство15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "00000000001"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Номер_Свойство15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Номер_Свойство15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_Номер_Свойство15() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Сотрудник_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Сотрудник_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Сотрудник_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_РаботникиОрганизации_Сотрудник_Реквизит16() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Сотрудник_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Сотрудник_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Сотрудник_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Сотрудник_Реквизит19() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_ВидРасчета_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ОкладПоДням"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_ВидРасчета_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_ВидРасчета_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_ВидРасчета_Реквизит21() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Валюта1_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Рубли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Валюта1_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Валюта1_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Валюта1_Реквизит22() Функция ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Показатель1_Реквизит23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.ФизЛицо.Оклад.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Показатель1_Реквизит23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Показатель1_Реквизит23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриемНаРаботуВОрганизацию_ОсновныеНачисления_Показатель1_Реквизит23() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Дата_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Дата_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Дата_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Дата_Свойство1() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ВидОбъектаУчета_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ВходящиеДанные.Получить("НМА").ВидОбъектаУчета = 0, "НематериальныйАктив", "РасходыНаНИОКР"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ВидОбъектаУчета_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ВидОбъектаУчета_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ВидОбъектаУчета_Реквизит2() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Комментарий_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Ввод начальных остатков НМА"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Комментарий_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Комментарий_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Комментарий_Реквизит3() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособОтраженияРасходов_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВходящиеДанные.Установить("СпособОтраженияРасходов", ВходящиеДанные.Получить("НМА")); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособОтраженияРасходов_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособОтраженияРасходов_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособОтраженияРасходов_Реквизит4() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюБУ_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ВходящиеДанные.Получить("НМА").ПорядокНачисленияАмортизации = 1, 0, 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюБУ_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюБУ_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюБУ_Реквизит5() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюНУ_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ВходящиеДанные.Получить("НМА").ПорядокНачисленияАмортизации = 1, 0, 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюНУ_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюНУ_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НачислятьАмортизациюНУ_Реквизит6() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НематериальныйАктив_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ВходящиеДанные.Получить("НМА"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НематериальныйАктив_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НематериальныйАктив_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_НематериальныйАктив_Реквизит7() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ВходящиеДанные.Получить("НМА").ОбщийОбъемПродукцииРабот; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОбъемПродукцииРаботДляВычисленияАмортизации_Реквизит8() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Организация_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Организация_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Организация_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_Организация_Реквизит9() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВБухгалтерскомУчете_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВБухгалтерскомУчете_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВБухгалтерскомУчете_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВБухгалтерскомУчете_Реквизит10() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВНалоговомУчете_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВНалоговомУчете_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВНалоговомУчете_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ОтражатьВНалоговомУчете_Реквизит11() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпециальныйКоэффициентНУ_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ВходящиеДанные.Получить("НМА").СпециальныйКоэффициент.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпециальныйКоэффициентНУ_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпециальныйКоэффициентНУ_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпециальныйКоэффициентНУ_Реквизит12() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииБУ_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВыбСпособ = ВходящиеДанные.Получить("НМА").СпособНачисленияАмортизации; Если ПустоеЗначение(ВыбСпособ) = 1 Тогда ВыбСпособ = ""; Иначе //ВыбСпособ = ВыбСпособ.Идентификатор(); КонецЕсли; ВходящиеДанные.Установить("СпособНачисленияАмортизацииБУ", ВыбСпособ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииБУ_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииБУ_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииБУ_Реквизит13() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииНУ_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВыбСпособ = ВходящиеДанные.Получить("НМА").МетодНачисленияАмортизации; Если ПустоеЗначение(ВыбСпособ) = 1 Тогда ВыбСпособ = ""; Иначе //ВыбСпособ = ВыбСпособ.Идентификатор(); КонецЕсли; ВходящиеДанные.Установить("СпособНачисленияАмортизацииНУ", ВыбСпособ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииНУ_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииНУ_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособНачисленияАмортизацииНУ_Реквизит14() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособПоступления_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВыбСпособ = ВходящиеДанные.Получить("НМА").СпособПоступления; Если ПустоеЗначение(ВыбСпособ) = 1 Тогда ВыбСпособ = ""; КонецЕсли; ВходящиеДанные.Установить("СпособПоступления", ВыбСпособ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособПоступления_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособПоступления_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СпособПоступления_Реквизит15() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияБУ_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ВходящиеДанные.Получить("НМА").СрокПолезногоИспользования; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияБУ_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияБУ_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияБУ_Реквизит16() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияНУ_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ВходящиеДанные.Получить("СрокПолезногоИспользованияН")) = 1 Тогда Значение = ВходящиеДанные.Получить("НМА").СрокПолезногоИспользованияН; Иначе Значение = ВходящиеДанные.Получить("СрокПолезногоИспользованияН"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияНУ_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияНУ_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СрокПолезногоИспользованияНУ_Реквизит17() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьБУ_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ВходящиеДанные.Получить("НМА").ПервоначальнаяСтоимость; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьБУ_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьБУ_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьБУ_Реквизит18() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьНУ_Реквизит19( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ВходящиеДанные.Получить("ПервоначальнаяСтоимостьН")) = 1 Тогда Значение = ВходящиеДанные.Получить("НМА").ПервоначальнаяСтоимостьН; Иначе Значение = ВходящиеДанные.Получить("ПервоначальнаяСтоимостьН"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьНУ_Реквизит19", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьНУ_Реквизит19" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьНУ_Реквизит19() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииБУ_Реквизит20( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ВходящиеДанные.Получить("НМА").ПорядокНачисленияАмортизации = 2, "05", "04.01"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииБУ_Реквизит20", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииБУ_Реквизит20" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииБУ_Реквизит20() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииНУ_Реквизит21( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ВходящиеДанные.Получить("НМА").ПорядокНачисленияАмортизации = 2, "05", "04.01"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииНУ_Реквизит21", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииНУ_Реквизит21" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетНачисленияАмортизацииНУ_Реквизит21() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУ_Реквизит22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ВходящиеДанные.Получить("НМА").ВидОбъектаУчета = 0, "04.01", "04.02"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУ_Реквизит22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУ_Реквизит22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУ_Реквизит22() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУВнеоборотногоАктива_Реквизит23( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "000"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУВнеоборотногоАктива_Реквизит23", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУВнеоборотногоАктива_Реквизит23" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаБУВнеоборотногоАктива_Реквизит23() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаНУ_Реквизит24( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(ВходящиеДанные.Получить("НМА").ВидОбъектаУчета = 0, "04.01", "04.02"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаНУ_Реквизит24", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаНУ_Реквизит24" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СчетУчетаНУ_Реквизит24() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьПР_Реквизит26( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка //Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаВводаОстатков) <> Да Тогда // Отказ = 1; //КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьПР_Реквизит26", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьПР_Реквизит26" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьПР_Реквизит26() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьВР_Реквизит27( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка //Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаВводаОстатков) <> Да Тогда // Отказ = 1; //КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьВР_Реквизит27", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьВР_Реквизит27" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_СтоимостьВР_Реквизит27() Функция ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ДатаПриобретения_Реквизит28( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ВходящиеДанные.Получить("НМА").ДатаПриобретения; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ДатаПриобретения_Реквизит28", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ДатаПриобретения_Реквизит28" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПринятиеКУчетуНМА_ДатаПриобретения_Реквизит28() Функция ПКО_ПередВыгрузкой_ПриходныйКассовыйОрдер( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка //КлючВыгружаемыхДанных = ПолучитьЗначение(Источник, "Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ПриходныйКассовыйОрдер", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ПриходныйКассовыйОрдер" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ПриходныйКассовыйОрдер() Функция ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Организация_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Организация_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Организация_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Организация_Реквизит1() Функция ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ВидОперации_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПриходДенежныхСредствПрочее"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ВидОперации_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ВидОперации_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ВидОперации_Реквизит3() Функция ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ОтраженоВОперУчете_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение=1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ОтраженоВОперУчете_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ОтраженоВОперУчете_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_ОтраженоВОперУчете_Реквизит6() Функция ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Оплачено_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Оплачено_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Оплачено_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПриходныйКассовыйОрдер_Оплачено_Реквизит7() Функция ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_Код_Свойство2() Функция ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ВидПрочихДоходовИРасходов_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если СокрЛП(Источник.Наименование) = "Курсовые разницы по расчетам в у.е." Тогда Значение = "КурсовыеРазницыПоРасчетамВУЕ"; ИмяПКО = ""; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ВидПрочихДоходовИРасходов_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ВидПрочихДоходовИРасходов_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ВидПрочихДоходовИРасходов_Реквизит4() Функция ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ПринятиеКналоговомуУчету_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидпрочихдоходовИРасходов = Перечисление.ВидыПрочихДоходовИРасходов.НеПринимаемыеДляЦелейНалогообложения Тогда Значение = 0; Иначе Значение = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ПринятиеКналоговомуУчету_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ПринятиеКналоговомуУчету_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПрочиеДоходыИРасходы_ПринятиеКналоговомуУчету_Реквизит5() Функция ПКС_ПередВыгрузкой_ПрочиеЗатраты_ВидОперации_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Отражение"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеЗатраты_ВидОперации_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеЗатраты_ВидОперации_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПрочиеЗатраты_ВидОперации_Реквизит1() Функция ПКС_ПередВыгрузкой_ПрочиеЗатраты_Организация_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеЗатраты_Организация_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеЗатраты_Организация_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПрочиеЗатраты_Организация_Реквизит3() Функция ПКС_ПередВыгрузкой_ПрочиеЗатраты_Счет_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СчетПоКоду("00"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеЗатраты_Счет_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ПрочиеЗатраты_Счет_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ПрочиеЗатраты_Счет_Реквизит9() Функция ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Организация_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Организация_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Организация_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Организация_Реквизит1() Функция ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ВидОперации_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ВыдачаДенежныхСредствПодотчетнику"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ВидОперации_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ВидОперации_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ВидОперации_Реквизит3() Функция ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Комментарий_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Ввод остатков по подотчетным лицам"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Комментарий_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Комментарий_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Комментарий_Реквизит4() Функция ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ОтраженоВОперУчете_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ОтраженоВОперУчете_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ОтраженоВОперУчете_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_ОтраженоВОперУчете_Реквизит9() Функция ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Оплачено_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Оплачено_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Оплачено_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Оплачено_Реквизит10() Функция ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Дата_Свойство22( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Дата_Свойство22", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Дата_Свойство22" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходныйКассовыйОрдерДляПО_Дата_Свойство22() Функция ПКО_ПередВыгрузкой_РасходыБудущихПериодов( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РасходыБудущихПериодов", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РасходыБудущихПериодов" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_РасходыБудущихПериодов() Функция ПКС_ПередВыгрузкой_РасходыБудущихПериодов_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходыБудущихПериодов_Код_Свойство2() Функция ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ1_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 1); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ1_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ1_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ1_Реквизит10() Функция ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ2_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 2); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ2_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ2_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ2_Реквизит11() Функция ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ3_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 3); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ3_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ3_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходыБудущихПериодов_СубконтоБУ3_Реквизит12() Функция ПКС_ПередВыгрузкой_РасходыБудущихПериодов_ВидРБП_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Прочие"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_ВидРБП_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасходыБудущихПериодов_ВидРБП_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасходыБудущихПериодов_ВидРБП_Реквизит14() Функция ПКС_ПередВыгрузкой_РасчетныеСчета_ВалютаДенежныхСредств_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка //6-8 символы номера счета - код валюты КодВалюты = Сред(Источник.Номер,6,3); СпрВалюты = СоздатьОбъект("Справочник.Валюты"); Если СпрВалюты.НайтиПоКоду(КодВалюты) = 1 Тогда Значение = СпрВалюты.ТекущийЭлемент(); Иначе Значение = ""; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныеСчета_ВалютаДенежныхСредств_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныеСчета_ВалютаДенежныхСредств_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныеСчета_ВалютаДенежныхСредств_Реквизит4() Функция ПКС_ПередВыгрузкой_РасчетныеСчета_ВидСчета_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Расчетный"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныеСчета_ВидСчета_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныеСчета_ВидСчета_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныеСчета_ВидСчета_Реквизит5() Функция ПКС_ПередВыгрузкой_РасчетныеСчета_Код_Свойство8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныеСчета_Код_Свойство8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныеСчета_Код_Свойство8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныеСчета_Код_Свойство8() Функция ПКС_ПриВыгрузке_РасчетныеСчета_НомерСчета_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Значение = Лев(Значение, 20); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_РасчетныеСчета_НомерСчета_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_РасчетныеСчета_НомерСчета_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_РасчетныеСчета_НомерСчета_Реквизит13() Функция ПКО_ПередВыгрузкой_РасчетныйДокументПокупатели( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ПолучитьЗначение(Источник,"Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РасчетныйДокументПокупатели", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РасчетныйДокументПокупатели" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_РасчетныйДокументПокупатели() Функция ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_Организация_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_Организация_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_Организация_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_Организация_Реквизит2() Функция ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_ДоговорКонтрагента_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_ДоговорКонтрагента_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_ДоговорКонтрагента_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_ДоговорКонтрагента_Реквизит4() Функция ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_РасчетныйДокумент_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ПолучитьЗначение(ВходящиеДанные,"РасчетныйДокумент")) = 1 Тогда Отказ=1; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидОперации", ПолучитьЗначение(ВходящиеДанные,"ВидОперации")); Значение = "2"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_РасчетныйДокумент_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_РасчетныйДокумент_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныйДокументПокупатели_РасчетныйДокумент_Реквизит5() Функция ПКО_ПередВыгрузкой_РасчетныйДокументПоставщики( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ПолучитьЗначение(Источник,"Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РасчетныйДокументПоставщики", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РасчетныйДокументПоставщики" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_РасчетныйДокументПоставщики() Функция ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_Организация_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_Организация_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_Организация_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_Организация_Реквизит5() Функция ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_ДоговорКонтрагента_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора","СПоставщиком"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_ДоговорКонтрагента_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_ДоговорКонтрагента_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_ДоговорКонтрагента_Реквизит6() Функция ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_РасчетныйДокумент_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ПолучитьЗначение(ВходящиеДанные,"РасчетныйДокумент")) = 1 Тогда Отказ=1; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидОперации", ПолучитьЗначение(ВходящиеДанные,"ВидОперации")); Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_РасчетныйДокумент_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_РасчетныйДокумент_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РасчетныйДокументПоставщики_РасчетныйДокумент_Реквизит7() Функция ПКО_ПередВыгрузкой_РБП_НМА( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РБП_НМА", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_РБП_НМА" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_РБП_НМА() Функция ПКС_ПередВыгрузкой_РБП_НМА_ВидОбъектаУчета_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "РасходыНаНИОКР"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РБП_НМА_ВидОбъектаУчета_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РБП_НМА_ВидОбъектаУчета_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РБП_НМА_ВидОбъектаУчета_Реквизит7() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидОперации_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПродажаКомиссия"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидОперации_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидОперации_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидОперации_Реквизит3() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидПередачи_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "СоСклада"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидПередачи_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидПередачи_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ВидПередачи_Реквизит4() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ДоговорКонтрагента_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора","СКомиссионером"); ИсходящиеДанные.Установить("Организация",ПолучитьЗначение(ВходящиеДанные,"Организация")); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ДоговорКонтрагента_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ДоговорКонтрагента_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_ДоговорКонтрагента_Реквизит5() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Организация_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Организация_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Организация_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Организация_Реквизит10() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если (ОбъектКоллекции.Номенклатура.Вид()= "Материалы") или (ОбъектКоллекции.Номенклатура.Вид()= "Номенклатура") Тогда Значение = ОбъектКоллекции.Номенклатура.ЕдиницаИзмерения; Иначе Значение = Параметры.Шт; КонеЦЕсли; ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_ЕдиницаИзмерения_Реквизит14() Функция ПКС_ПриВыгрузке_РеализацияТоваровУслуг_Товары_Коэффициент_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(Значение) = 1 Тогда Значение = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_РеализацияТоваровУслуг_Товары_Коэффициент_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_РеализацияТоваровУслуг_Товары_Коэффициент_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_РеализацияТоваровУслуг_Товары_Коэффициент_Реквизит16() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Номенклатура_Реквизит17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.Номенклатура.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Номенклатура_Реквизит17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Номенклатура_Реквизит17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Номенклатура_Реквизит17() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_СпособСписанияОстаткаТоваров_Реквизит18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "СоСклада"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_СпособСписанияОстаткаТоваров_Реквизит18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_СпособСписанияОстаткаТоваров_Реквизит18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_СпособСписанияОстаткаТоваров_Реквизит18() Функция ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Качество_Реквизит31( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Новый"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Качество_Реквизит31", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Качество_Реквизит31" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_РеализацияТоваровУслуг_Товары_Качество_Реквизит31() Функция ПКО_ПередВыгрузкой_Резервы( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Резервы", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_Резервы" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_Резервы() Функция ПКС_ПередВыгрузкой_Резервы_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Резервы_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Резервы_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Резервы_Код_Свойство2() Функция ПКО_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Отказ = ?(Источник.Инвалид.Получить(Параметры.ДатаВводаОстатков) = 1, 0, 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц() Функция ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_ДатаВыдачи_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_ДатаВыдачи_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_ДатаВыдачи_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_ДатаВыдачи_Реквизит1() Функция ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Инвалидность_Ресурс2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник.Инвалид.Получить(Параметры.ДатаВводаОстатков); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Инвалидность_Ресурс2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Инвалидность_Ресурс2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Инвалидность_Ресурс2() Функция ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Период_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Период_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Период_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Период_Свойство3() Функция ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Физлицо_Измерение4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Физлицо_Измерение4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Физлицо_Измерение4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СведенияОбИнвалидностиФизлиц_Физлицо_Измерение4() Функция ПКО_ПередВыгрузкой_СкладГруппа( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ПолучитьЗначение(Источник,"Код"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СкладГруппа", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СкладГруппа" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_СкладГруппа() Функция ПКС_ПередВыгрузкой_СкладГруппа_Родитель_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_Родитель_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_Родитель_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладГруппа_Родитель_Свойство1() Функция ПКС_ПередВыгрузкой_СкладГруппа_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладГруппа_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СкладГруппа_Наименование_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка //Значение = "Вспомогательные для переноса переданных материалов"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_Наименование_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_Наименование_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладГруппа_Наименование_Свойство3() Функция ПКС_ПередВыгрузкой_СкладГруппа_ЭтоГруппа_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_ЭтоГруппа_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладГруппа_ЭтоГруппа_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладГруппа_ЭтоГруппа_Свойство5() Функция ПКС_ПередВыгрузкой_Склады_ЭтоГруппа_Свойство8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Склады_ЭтоГруппа_Свойство8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_Склады_ЭтоГруппа_Свойство8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_Склады_ЭтоГруппа_Свойство8() Функция ПКО_ПередВыгрузкой_СкладыДоп( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка КлючВыгружаемыхДанных = ПолучитьЗначение(Источник,"Наименование"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СкладыДоп", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СкладыДоп" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_СкладыДоп() Функция ПКС_ПередВыгрузкой_СкладыДоп_ЭтоГруппа_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение=0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_ЭтоГруппа_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_ЭтоГруппа_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладыДоп_ЭтоГруппа_Свойство2() Функция ПКС_ПередВыгрузкой_СкладыДоп_ТипЦенРозничнойТорговли_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(Источник,"ТипЦен"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_ТипЦенРозничнойТорговли_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_ТипЦенРозничнойТорговли_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладыДоп_ТипЦенРозничнойТорговли_Реквизит5() Функция ПКС_ПередВыгрузкой_СкладыДоп_ПометкаУдаления_Свойство7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_ПометкаУдаления_Свойство7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_ПометкаУдаления_Свойство7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладыДоп_ПометкаУдаления_Свойство7() Функция ПКС_ПередВыгрузкой_СкладыДоп_Родитель_Свойство8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если (Лев(ПолучитьЗначение(Источник, "Код"),4) <> "СКЛП") Тогда Пусто = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_Родитель_Свойство8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СкладыДоп_Родитель_Свойство8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СкладыДоп_Родитель_Свойство8() Функция ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Актуальность_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Актуальность_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Актуальность_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Актуальность_Реквизит5() Функция ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидДоговора_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ТрудовойДоговор"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидДоговора_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидДоговора_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидДоговора_Реквизит6() Функция ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидЗанятости_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ОсновноеМестоРаботы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидЗанятости_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидЗанятости_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ВидЗанятости_Реквизит7() Функция ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ГрафикРаботы_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "40-часовая неделя"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ГрафикРаботы_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ГрафикРаботы_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СотрудникиОрганизаций_ГрафикРаботы_Реквизит8() Функция ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Организация_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Организация_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Организация_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Организация_Реквизит9() Функция ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Физлицо_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Физлицо_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Физлицо_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СотрудникиОрганизаций_Физлицо_Реквизит10() Функция ПКС_ПриВыгрузке_СотрудникиОрганизаций_Должность_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Если ПустоеЗначение(Значение) = 1 Тогда Значение = "Ввод остатков"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_СотрудникиОрганизаций_Должность_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_СотрудникиОрганизаций_Должность_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_СотрудникиОрганизаций_Должность_Реквизит11() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_Активная_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_Активная_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_Активная_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_Активная_Реквизит1() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВидСпецификации_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Сборочная"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВидСпецификации_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВидСпецификации_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВидСпецификации_Реквизит2() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ДоляСтоимости_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ДоляСтоимости_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ДоляСтоимости_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ДоляСтоимости_Реквизит5() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_Количество_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_Количество_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_Количество_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_Количество_Реквизит7() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ЕдиницаИзмерения_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ЕдиницаИзмерения_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ЕдиницаИзмерения_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ВыходныеИзделия_ЕдиницаИзмерения_Реквизит8() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ВидНорматива_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Номенклатура"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ВидНорматива_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ВидНорматива_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ВидНорматива_Реквизит9() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ЕдиницаИзмерения_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",ОбъектКоллекции.Номенклатура); ИсходящиеДанные.Установить("НеЗапоминать", 1); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ЕдиницаИзмерения_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ЕдиницаИзмерения_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_ЕдиницаИзмерения_Реквизит10() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_Кратность_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_Кратность_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_Кратность_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_Кратность_Реквизит12() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_УказаниеНорматива_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "НаКоличествоПродукции"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_УказаниеНорматива_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_УказаниеНорматива_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_УказаниеНорматива_Реквизит14() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_СписаниеКомплектующей_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Всегда"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_СписаниеКомплектующей_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_СписаниеКомплектующей_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИсходныеКомплектующие_СписаниеКомплектующей_Реквизит15() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИспользоватьВидВоспроизводства_Реквизит16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИспользоватьВидВоспроизводства_Реквизит16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИспользоватьВидВоспроизводства_Реквизит16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ИспользоватьВидВоспроизводства_Реквизит16() Функция ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ЭтоГруппа_Свойство18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ЭтоГруппа_Свойство18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ЭтоГруппа_Свойство18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпецификацииНоменклатуры_ЭтоГруппа_Свойство18() Функция ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Если ТипЗначенияСтр(Источник) = "Справочник" Тогда Счет = Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков); СчетН = Источник.СчетЗатратН.Получить(Параметры.ДатаВводаОстатков); Если (ПустоеЗначение(Счет) = 1) и (ПустоеЗначение(СчетН) = 1) Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = Источник.Код+Источник.Вид(); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Комментарий_Реквизит1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "БУ: " + СокрП(Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Комментарий_Реквизит1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Комментарий_Реквизит1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Комментарий_Реквизит1() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Наименование_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СокрП(Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Наименование_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Наименование_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Наименование_Свойство2() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Организация_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Организация_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Организация_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Организация_Реквизит3() Функция ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоАмортизации_Способы_ТабличнаяЧасть4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("СчетЗатрат"); КоллекцияОбъектов.НоваяКолонка("Субконто1"); КоллекцияОбъектов.НоваяКолонка("Субконто2"); КоллекцияОбъектов.НоваяКолонка("Субконто3"); КоллекцияОбъектов.НоваяКолонка("Подразделение"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("ОбъектСтроительства"); КоллекцияОбъектов.НоваяКолонка("СтатьяЗатрат"); КоллекцияОбъектов.НоваяКолонка("НоменклатурнаяГруппа"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.СчетЗатрат = Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков); КоллекцияОбъектов.Субконто1 = Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков); КоллекцияОбъектов.Субконто2 = Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков); КоллекцияОбъектов.Субконто3 = Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков); Если ПустоеЗначение(КоллекцияОбъектов.Субконто1)=0 ТОгда ВидСубконто1 = КоллекцияОбъектов.Субконто1.Вид(); Иначе ВидСубконто1=""; КонецЕсли; Если ПустоеЗначение(КоллекцияОбъектов.Субконто2)=0 ТОгда ВидСубконто2 = КоллекцияОбъектов.Субконто2.Вид(); Иначе ВидСубконто2=""; КонецЕсли; Если ПустоеЗначение(КоллекцияОбъектов.Субконто3)=0 ТОгда ВидСубконто3 = КоллекцияОбъектов.Субконто3.Вид(); Иначе ВидСубконто3=""; КонецЕсли; //подразделения Если ВидСубконто1="Подразделения" Тогда КоллекцияОбъектов.Подразделение = КоллекцияОбъектов.Субконто1; КоллекцияОбъектов.ПодразделениеОрганизации = КоллекцияОбъектов.Субконто1; ИначеЕсли ВидСубконто2="Подразделения" Тогда КоллекцияОбъектов.Подразделение = КоллекцияОбъектов.Субконто2; КоллекцияОбъектов.ПодразделениеОрганизации = КоллекцияОбъектов.Субконто2; ИначеЕсли ВидСубконто3="Подразделения" Тогда КоллекцияОбъектов.Подразделение = КоллекцияОбъектов.Субконто3; КоллекцияОбъектов.ПодразделениеОрганизации = КоллекцияОбъектов.Субконто3; Иначе КоллекцияОбъектов.Подразделение = ""; КоллекцияОбъектов.ПодразделениеОрганизации = ""; КонецЕсли; //статьи затрат СписокВидовСтатейЗатрат = СоздатьОбъект("СписокЗначений"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиЗатратНаПроизводство"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиЗатратНаСтроительство"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиОбщепроизводственныхЗатрат"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиОбщехозяйственныхЗатрат"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиЗатратОбслуживающихПроизводств"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиИздержекОбращения"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиКоммерческихРасходов"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиРасходовНаПродажу"); Если СписокВидовСтатейЗатрат.НайтиЗначение(ВидСубконто1)<>0 ТОгда СтатьяЗатрат = КоллекцияОбъектов.Субконто1; ИначеЕсли СписокВидовСтатейЗатрат.НайтиЗначение(ВидСубконто2)<>0 ТОгда СтатьяЗатрат = КоллекцияОбъектов.Субконто2; ИначеЕсли СписокВидовСтатейЗатрат.НайтиЗначение(ВидСубконто3)<>0 ТОгда СтатьяЗатрат = КоллекцияОбъектов.Субконто3; Иначе СтатьяЗатрат = ""; КонецЕсли; КоллекцияОбъектов.СтатьяЗатрат = СтатьяЗатрат; //Если СтатьяЗатратСсылка<>"" ТОгда // СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); // СтатьяЗатрат.Установить("Ссылка",СтатьяЗатратСсылка); // СтатьяЗатрат.Установить("Наименование","Амортизация (Сч. "+КоллекцияОбъектов.СчетЗатрат+")"); // СтатьяЗатрат.Установить("ВидЗатрат","Амортизация"); // СтатьяЗатрат.Установить("ЭтоГруппа",0); // СтатьяЗатрат.Установить("СтатусМатериальныхЗатрат",""); // СтатьяЗатрат.Установить("ВидРасходовНУ","Амортизация"); // Если КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("20") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ПроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Производственные расходы"); // ИначеЕсли КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("23") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ПроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Производственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("25") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ОбщепроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Общепроизводственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("26") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ОбщехозяйственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Общехозяйственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("28"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","БракВПроизводстве"); // СтатьяЗатрат.Установить("Родитель","Брак в производстве"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("29"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ПроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Производственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ИздержкиОбращения"); // СтатьяЗатрат.Установить("Родитель","Издержки обращения"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.2"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","КоммерческиеРасходы"); // СтатьяЗатрат.Установить("Родитель","Коммерческие расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.3"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","КоммерческиеРасходы"); // СтатьяЗатрат.Установить("Родитель","Коммерческие расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат=(СчетПоКоду("08.3")) Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ВложенияВоВнеоборотныеАктивы"); // СтатьяЗатрат.Установить("Родитель","Вложения во внеоборотные активы"); // // Иначе // СтатьяЗатрат.Установить("ХарактерЗатрат","Прочие"); // СтатьяЗатрат.Установить("Родитель","Прочие затраты"); // КонецЕсли; // // КоллекцияОбъектов.СтатьяЗатрат = СтатьяЗатрат; //Иначе // КоллекцияОбъектов.СтатьяЗатрат = ""; //КонецЕсли; //объекты строительства Если КоллекцияОбъектов.СчетЗатрат=(СчетПоКоду("08.3")) Тогда Если ВидСубконто1="ОбъектыСтроительства" Тогда КоллекцияОбъектов.ОбъектСтроительства = КоллекцияОбъектов.Субконто1; ИначеЕсли ВидСубконто2="ОбъектыСтроительства" Тогда КоллекцияОбъектов.ОбъектСтроительства = КоллекцияОбъектов.Субконто2; ИначеЕсли ВидСубконто3="ОбъектыСтроительства" Тогда КоллекцияОбъектов.ОбъектСтроительства = КоллекцияОбъектов.Субконто3; Иначе КоллекцияОбъектов.ОбъектСтроительства = ""; КонецЕсли; Иначе КоллекцияОбъектов.ОбъектСтроительства = ""; КонецЕсли; //номенклатурные группы Если ВидСубконто1="ВидыНоменклатуры" Тогда КоллекцияОбъектов.НоменклатурнаяГруппа = КоллекцияОбъектов.Субконто1; ИначеЕсли ВидСубконто2="ВидыНоменклатуры" Тогда КоллекцияОбъектов.НоменклатурнаяГруппа = КоллекцияОбъектов.Субконто2; ИначеЕсли ВидСубконто3="ВидыНоменклатуры" Тогда КоллекцияОбъектов.НоменклатурнаяГруппа = КоллекцияОбъектов.Субконто3; Иначе КоллекцияОбъектов.НоменклатурнаяГруппа = ""; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоАмортизации_Способы_ТабличнаяЧасть4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоАмортизации_Способы_ТабличнаяЧасть4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоАмортизации_Способы_ТабличнаяЧасть4() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Коэффициент_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение =1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Коэффициент_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Коэффициент_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Коэффициент_Реквизит5() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто1_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 1); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто1_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто1_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто1_Реквизит6() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто2_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 2); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто2_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто2_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто2_Реквизит7() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто3_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 3); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто3_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто3_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Субконто3_Реквизит8() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СчетЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СчетЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СчетЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СчетЗатрат_Реквизит9() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СтатьяЗатрат_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.СтатьяЗатрат)=1 Тогда Отказ=1; Иначе Если ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиЗатратНаПроизводство" Тогда ИмяПКО = "СтатьиЗатратНаПроизводство"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиЗатратНаСтроительство" Тогда ИмяПКО = "СтатьиЗатратНаСтроительство"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиЗатратОбслуживающихПроизводств" Тогда ИмяПКО = "СтатьиЗатратОбслуживающихПроизводств"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиИздержекОбращения" Тогда ИмяПКО = "СтатьиИздержекОбращения"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиКоммерческихРасходов" Тогда ИмяПКО = "СтатьиКоммерческихРасходов"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиОбщепроизводственныхЗатрат" Тогда ИмяПКО = "СтатьиОбщепроизводственныхЗатрат"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиОбщехозяйственныхЗатрат" Тогда ИмяПКО = "СтатьиОбщехозяйственныхЗатрат"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиРасходовНаПродажу" Тогда ИмяПКО = "СтатьиРасходовНапродажу"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидЗатрат","Амортизация"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СтатьяЗатрат_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СтатьяЗатрат_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_СтатьяЗатрат_Реквизит10() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Подразделение_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.Подразделение)=1 Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Подразделение_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Подразделение_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_Подразделение_Реквизит11() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ПодразделениеОрганизации_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.Подразделение)=1 Тогда Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ПодразделениеОрганизации_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ПодразделениеОрганизации_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ПодразделениеОрганизации_Реквизит12() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_НоменклатурнаяГруппа_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.НоменклатурнаяГруппа)=1 Тогда Отказ=1; Иначе Значение = ОбъектКоллекции.НоменклатурнаяГруппа; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_НоменклатурнаяГруппа_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_НоменклатурнаяГруппа_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_НоменклатурнаяГруппа_Реквизит13() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ОбъектСтроительства_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.ОбъектСтроительства)=1 Тогда Отказ=1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ОбъектСтроительства_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ОбъектСтроительства_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоАмортизации_Способы_ОбъектСтроительства_Реквизит14() Функция ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Если ТипЗначенияСтр(Источник) = "Справочник" Тогда Счет = Источник.СчетЗатрат; Если ПустоеЗначение(Счет) = 1 Тогда Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Наименование_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = СокрП(Источник.СчетЗатрат) + " / " + СокрП(Источник.Субконто1) + " / " + СокрП(Источник.Субконто2) + " / " + СокрП(Источник.Субконто3); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Наименование_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Наименование_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Наименование_Свойство1() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Комментарий_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "БУ: " + СокрП(Источник.СчетЗатрат) + " / " + СокрП(Источник.Субконто1) + " / " + СокрП(Источник.Субконто2) + " / " + СокрП(Источник.Субконто3); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Комментарий_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Комментарий_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Комментарий_Реквизит2() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Организация_Реквизит3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Организация_Реквизит3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Организация_Реквизит3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Организация_Реквизит3() Функция ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоСпецодежде_Способы_ТабличнаяЧасть4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("СчетЗатрат"); КоллекцияОбъектов.НоваяКолонка("Субконто1"); КоллекцияОбъектов.НоваяКолонка("Субконто2"); КоллекцияОбъектов.НоваяКолонка("Субконто3"); КоллекцияОбъектов.НоваяКолонка("Подразделение"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("ОбъектСтроительства"); КоллекцияОбъектов.НоваяКолонка("СтатьяЗатрат"); КоллекцияОбъектов.НоваяКолонка("НоменклатурнаяГруппа"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.СчетЗатрат = Источник.СчетЗатрат; КоллекцияОбъектов.Субконто1 = Источник.Субконто1; КоллекцияОбъектов.Субконто2 = Источник.Субконто2; КоллекцияОбъектов.Субконто3 = Источник.Субконто3; Если ПустоеЗначение(КоллекцияОбъектов.Субконто1)=0 ТОгда ВидСубконто1 = КоллекцияОбъектов.Субконто1.Вид(); Иначе ВидСубконто1=""; КонецЕсли; Если ПустоеЗначение(КоллекцияОбъектов.Субконто2)=0 ТОгда ВидСубконто2 = КоллекцияОбъектов.Субконто2.Вид(); Иначе ВидСубконто2=""; КонецЕсли; Если ПустоеЗначение(КоллекцияОбъектов.Субконто3)=0 ТОгда ВидСубконто3 = КоллекцияОбъектов.Субконто3.Вид(); Иначе ВидСубконто3=""; КонецЕсли; //подразделения Если ВидСубконто1="Подразделения" Тогда КоллекцияОбъектов.Подразделение = КоллекцияОбъектов.Субконто1; КоллекцияОбъектов.ПодразделениеОрганизации = КоллекцияОбъектов.Субконто1; ИначеЕсли ВидСубконто2="Подразделения" Тогда КоллекцияОбъектов.Подразделение = КоллекцияОбъектов.Субконто2; КоллекцияОбъектов.ПодразделениеОрганизации = КоллекцияОбъектов.Субконто2; ИначеЕсли ВидСубконто3="Подразделения" Тогда КоллекцияОбъектов.Подразделение = КоллекцияОбъектов.Субконто3; КоллекцияОбъектов.ПодразделениеОрганизации = КоллекцияОбъектов.Субконто3; Иначе КоллекцияОбъектов.Подразделение = ""; КоллекцияОбъектов.ПодразделениеОрганизации = ""; КонецЕсли; //статьи затрат СписокВидовСтатейЗатрат = СоздатьОбъект("СписокЗначений"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиЗатратНаПроизводство"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиЗатратНаСтроительство"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиОбщепроизводственныхЗатрат"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиОбщехозяйственныхЗатрат"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиЗатратОбслуживающихПроизводств"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиИздержекОбращения"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиКоммерческихРасходов"); СписокВидовСтатейЗатрат.ДобавитьЗначение("СтатьиРасходовНаПродажу"); Если СписокВидовСтатейЗатрат.НайтиЗначение(ВидСубконто1)<>0 ТОгда СтатьяЗатрат = КоллекцияОбъектов.Субконто1; ИначеЕсли СписокВидовСтатейЗатрат.НайтиЗначение(ВидСубконто2)<>0 ТОгда СтатьяЗатрат = КоллекцияОбъектов.Субконто2; ИначеЕсли СписокВидовСтатейЗатрат.НайтиЗначение(ВидСубконто3)<>0 ТОгда СтатьяЗатрат = КоллекцияОбъектов.Субконто3; Иначе СтатьяЗатрат = ""; КонецЕсли; КоллекцияОбъектов.СтатьяЗатрат = СтатьяЗатрат; //Если СтатьяЗатратСсылка<>"" ТОгда // СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); // СтатьяЗатрат.Установить("Наименование","Амортизация (Сч. "+КоллекцияОбъектов.СчетЗатрат+")"); // СтатьяЗатрат.Установить("Ссылка",СтатьяЗатратСсылка); // СтатьяЗатрат.Установить("ВидЗатрат","Амортизация"); // СтатьяЗатрат.Установить("ЭтоГруппа",0); // СтатьяЗатрат.Установить("СтатусМатериальныхЗатрат",""); // СтатьяЗатрат.Установить("ВидРасходовНУ","Амортизация"); // Если КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("20") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ПроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Производственные расходы"); // ИначеЕсли КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("23") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ПроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Производственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("25") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ОбщепроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Общепроизводственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат = СчетПоКоду("26") Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ОбщехозяйственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Общехозяйственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("28"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","БракВПроизводстве"); // СтатьяЗатрат.Установить("Родитель","Брак в производстве"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("29"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ПроизводственныеРасходы"); // СтатьяЗатрат.Установить("Родитель","Производственные расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ИздержкиОбращения"); // СтатьяЗатрат.Установить("Родитель","Издержки обращения"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.2"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","КоммерческиеРасходы"); // СтатьяЗатрат.Установить("Родитель","Коммерческие расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат.ПринадлежитГруппе(СчетПоКоду("44.3"))=1 Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","КоммерческиеРасходы"); // СтатьяЗатрат.Установить("Родитель","Коммерческие расходы"); // // ИначеЕсли КоллекцияОбъектов.СчетЗатрат=(СчетПоКоду("08.3")) Тогда // // СтатьяЗатрат.Установить("ХарактерЗатрат","ВложенияВоВнеоборотныеАктивы"); // СтатьяЗатрат.Установить("Родитель","Вложения во внеоборотные активы"); // // Иначе // СтатьяЗатрат.Установить("ХарактерЗатрат","Прочие"); // СтатьяЗатрат.Установить("Родитель","Прочие затраты"); // КонецЕсли; // // КоллекцияОбъектов.СтатьяЗатрат = СтатьяЗатрат; //Иначе // КоллекцияОбъектов.СтатьяЗатрат = ""; //КонецЕсли; //объекты строительства Если КоллекцияОбъектов.СчетЗатрат=(СчетПоКоду("08.3")) Тогда Если ВидСубконто1="ОбъектыСтроительства" Тогда КоллекцияОбъектов.ОбъектСтроительства = КоллекцияОбъектов.Субконто1; ИначеЕсли ВидСубконто2="ОбъектыСтроительства" Тогда КоллекцияОбъектов.ОбъектСтроительства = КоллекцияОбъектов.Субконто2; ИначеЕсли ВидСубконто3="ОбъектыСтроительства" Тогда КоллекцияОбъектов.ОбъектСтроительства = КоллекцияОбъектов.Субконто3; Иначе КоллекцияОбъектов.ОбъектСтроительства = ""; КонецЕсли; Иначе КоллекцияОбъектов.ОбъектСтроительства = ""; КонецЕсли; //номенклатурные группы Если ВидСубконто1="ВидыПродукции" Тогда КоллекцияОбъектов.НоменклатурнаяГруппа = КоллекцияОбъектов.Субконто1; ИначеЕсли ВидСубконто2="ВидыПродукции" Тогда КоллекцияОбъектов.НоменклатурнаяГруппа = КоллекцияОбъектов.Субконто2; ИначеЕсли ВидСубконто3="ВидыПродукции" Тогда КоллекцияОбъектов.НоменклатурнаяГруппа = КоллекцияОбъектов.Субконто3; Иначе КоллекцияОбъектов.ОбъектСтроительства = ""; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоСпецодежде_Способы_ТабличнаяЧасть4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоСпецодежде_Способы_ТабличнаяЧасть4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_СпособыОтраженияРасходовПоСпецодежде_Способы_ТабличнаяЧасть4() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто1_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 1); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто1_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто1_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто1_Реквизит5() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто2_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 2); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто2_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто2_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто2_Реквизит6() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто3_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", 3); ПриВыгрузкеСубконто( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник, ТипПриемника, Значение, Выражение, Пусто,,,, ОбъектКоллекции, ИмяПКО, ИмяПКОВидСубконто, НомерПКО, НомерПКС,,,,,,,,,, НеЗамещать,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто3_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто3_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Субконто3_Реквизит7() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СчетЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СчетЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СчетЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СчетЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Коэффициент_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение =1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Коэффициент_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Коэффициент_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Коэффициент_Реквизит9() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СтатьяЗатрат_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.СтатьяЗатрат)=1 Тогда Отказ=1; Иначе Если ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиЗатратНаПроизводство" Тогда ИмяПКО = "СтатьиЗатратНаПроизводство"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиЗатратНаСтроительство" Тогда ИмяПКО = "СтатьиЗатратНаСтроительство"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиЗатратОбслуживающихПроизводств" Тогда ИмяПКО = "СтатьиЗатратОбслуживающихПроизводств"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиИздержекОбращения" Тогда ИмяПКО = "СтатьиИздержекОбращения"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиКоммерческихРасходов" Тогда ИмяПКО = "СтатьиКоммерческихРасходов"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиОбщепроизводственныхЗатрат" Тогда ИмяПКО = "СтатьиОбщепроизводственныхЗатрат"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиОбщехозяйственныхЗатрат" Тогда ИмяПКО = "СтатьиОбщехозяйственныхЗатрат"; ИначеЕсли ОбъектКоллекции.СтатьяЗатрат.Вид() = "СтатьиРасходовНаПродажу" Тогда ИмяПКО = "СтатьиРасходовНапродажу"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидЗатрат","Амортизация"); КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СтатьяЗатрат_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СтатьяЗатрат_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_СтатьяЗатрат_Реквизит10() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Подразделение_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.Подразделение)=1 Тогда Отказ=1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Подразделение_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Подразделение_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_Подразделение_Реквизит11() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ПодразделениеОрганизации_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.Подразделение)=1 Тогда Отказ=1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ПодразделениеОрганизации_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ПодразделениеОрганизации_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ПодразделениеОрганизации_Реквизит12() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_НоменклатурнаяГруппа_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.НоменклатурнаяГруппа)=1 Тогда Отказ=1; Иначе Значение = ОбъектКоллекции.НоменклатурнаяГруппа; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_НоменклатурнаяГруппа_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_НоменклатурнаяГруппа_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_НоменклатурнаяГруппа_Реквизит13() Функция ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ОбъектСтроительства_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ОбъектКоллекции.ОбъектСтроительства)=1 Тогда Отказ=1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ОбъектСтроительства_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ОбъектСтроительства_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СпособыОтраженияРасходовПоСпецодежде_Способы_ОбъектСтроительства_Реквизит14() Функция ПКС_ПередВыгрузкой_СтатьиЗатрат_ЭтоГруппа_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатрат_ЭтоГруппа_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатрат_ЭтоГруппа_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатрат_ЭтоГруппа_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "ПЗ"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Производственные расходы"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "ПроизводственныеРасходы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); ВЗ = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(ВЗ)=0 Тогда Значение = ВЗ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_СтатусМатериальныхЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.МатериальныеРасходы Тогда Значение = "Собственные"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_СтатусМатериальныхЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_СтатусМатериальныхЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаПроизводство_СтатусМатериальныхЗатрат_Реквизит9() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "ВН"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Вложения во внеоборотные активы"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "ВложенияВоВнеоборотныеАктивы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "ПрочиеРасходы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(Значение)=1 Тогда Значение = "Прочие"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратНаСтроительство_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "ОП"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Производственные расходы"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "ПроизводственныеРасходы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); ВЗ = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(ВЗ)=0 Тогда Значение = ВЗ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_СтатусМатериальныхЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.МатериальныеРасходы Тогда Значение = "Собственные"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_СтатусМатериальныхЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_СтатусМатериальныхЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиЗатратОбслуживающихПроизводств_СтатусМатериальныхЗатрат_Реквизит9() Функция ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "ИО"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Издержки обращения"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "ИздержкиОбращения"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); ВЗ = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(ВЗ)=0 Тогда Значение = ВЗ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_СтатусМатериальныхЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.МатериальныеРасходы Тогда Значение = "Собственные"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_СтатусМатериальныхЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_СтатусМатериальныхЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиИздержекОбращения_СтатусМатериальныхЗатрат_Реквизит9() Функция ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "КР"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Коммерческие расходы"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "КоммерческиеРасходы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); ВЗ = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(ВЗ)=0 Тогда Значение = ВЗ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_СтатусМатериальныхЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.МатериальныеРасходы Тогда Значение = "Собственные"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_СтатусМатериальныхЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_СтатусМатериальныхЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиКоммерческихРасходов_СтатусМатериальныхЗатрат_Реквизит9() Функция ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "ПЗ"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Общепроизводственные расходы"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "ОбщепроизводственныеРасходы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); ВЗ = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(ВЗ)=0 Тогда Значение = ВЗ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.МатериальныеРасходы Тогда Значение = "Собственные"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщепроизводственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9() Функция ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "ОЗ"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Общехозяйственные расходы"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "ОбщехозяйственныеРасходы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); ВЗ = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(ВЗ)=0 Тогда Значение = ВЗ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.МатериальныеРасходы Тогда Значение = "Собственные"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиОбщехозяйственныхЗатрат_СтатусМатериальныхЗатрат_Реквизит9() Функция ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = "РП"+ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода-2); Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Код_Свойство2() Функция ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Родитель_Свойство5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(Источник.Родитель)=1 Тогда Значение = "Коммерческие расходы"; ИмяПКО = "ГруппаСтатьиЗатрат"; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Родитель_Свойство5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Родитель_Свойство5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_Родитель_Свойство5() Функция ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ХарактерЗатрат_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Значение = "КоммерческиеРасходы"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ХарактерЗатрат_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ХарактерЗатрат_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ХарактерЗатрат_Реквизит6() Функция ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидРасходовНУ_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидРасходовНУ_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидРасходовНУ_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидРасходовНУ_Реквизит7() Функция ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидЗатрат_Реквизит8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); ВЗ = ПолучитьЗначение(ВходящиеДанные,"ВидЗатрат"); Если ПустоеЗначение(ВЗ)=0 Тогда Значение = ВЗ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидЗатрат_Реквизит8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидЗатрат_Реквизит8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_ВидЗатрат_Реквизит8() Функция ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_СтатусМатериальныхЗатрат_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.МатериальныеРасходы Тогда Значение = "Собственные"; Иначе Отказ = 1; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_СтатусМатериальныхЗатрат_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_СтатусМатериальныхЗатрат_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СтатьиРасходовНаПродажу_СтатусМатериальныхЗатрат_Реквизит9() Функция ПКО_ПередВыгрузкой_СчетФактураВыданный( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка //КлючВыгружаемыхДанных = "СФ"+ПолучитьЗначение(ВходящиеДанные,"Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СчетФактураВыданный", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СчетФактураВыданный" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_СчетФактураВыданный() Функция ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументыОснования_ДокументОснование_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидСчетаФактуры = ПолучитьЗначение(ВходящиеДанные,"ВидСчетаФактуры"); Если ВидСчетаФактуры = "НаРеализацию" Тогда ИмяПКО = "РасчетныйДокументПокупатели"; Иначе ИмяПКО = "ДокументРасчетовСКонтрагентом"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КредДокумент",ПолучитьЗначение(Входящиеданные,"КредДокумент")); ИсходящиеДанные.Установить("РасчетныйДокумент",""); ИсходящиеДанные.Установить("ДокументОснование",""); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументыОснования_ДокументОснование_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументыОснования_ДокументОснование_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументыОснования_ДокументОснование_Реквизит4() Функция ПКС_ПередВыгрузкой_СчетФактураВыданный_Организация_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_Организация_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_Организация_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураВыданный_Организация_Реквизит9() Функция ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументОснование_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ВидСчетаФактуры = ПолучитьЗначение(ВходящиеДанные,"ВидСчетаФактуры"); Если ВидСчетаФактуры = "НаРеализацию" Тогда ИмяПКО = "РасчетныйДокументПокупатели"; Иначе ИмяПКО = "ДокументРасчетовСКонтрагентом"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КредДокумент",ПолучитьЗначение(Входящиеданные,"КредДокумент")); ИсходящиеДанные.Установить("РасчетныйДокумент",""); ИсходящиеДанные.Установить("ДокументОснование",""); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументОснование_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументОснование_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураВыданный_ДокументОснование_Реквизит11() Функция ПКС_ПередВыгрузкой_СчетФактураВыданный_СформированПриВводеНачальныхОстатковНДС_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_СформированПриВводеНачальныхОстатковНДС_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_СформированПриВводеНачальныхОстатковНДС_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураВыданный_СформированПриВводеНачальныхОстатковНДС_Реквизит12() Функция ПКС_ПередВыгрузкой_СчетФактураВыданный_ВалютаДокумента_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Рубли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ВалютаДокумента_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ВалютаДокумента_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураВыданный_ВалютаДокумента_Реквизит13() Функция ПКС_ПередВыгрузкой_СчетФактураВыданный_ДоговорКонтрагента_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора","СПокупателем"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ДоговорКонтрагента_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураВыданный_ДоговорКонтрагента_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураВыданный_ДоговорКонтрагента_Реквизит14() Функция ПКО_ПередВыгрузкой_СчетФактураПолученный( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка //КлючВыгружаемыхДанных = "СФ"+ПолучитьЗначение(ВходящиеДанные,"Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СчетФактураПолученный", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_СчетФактураПолученный" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_СчетФактураПолученный() Функция ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументыОснования_ДокументОснование_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КредДокумент",ПолучитьЗначение(Входящиеданные,"КредДокумент")); ИсходящиеДанные.Установить("РасчетныйДокумент",""); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументыОснования_ДокументОснование_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументыОснования_ДокументОснование_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументыОснования_ДокументОснование_Реквизит4() Функция ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументОснование_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КредДокумент",ПолучитьЗначение(Входящиеданные,"КредДокумент")); ИсходящиеДанные.Установить("РасчетныйДокумент",""); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументОснование_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументОснование_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураПолученный_ДокументОснование_Реквизит9() Функция ПКС_ПередВыгрузкой_СчетФактураПолученный_СформированПриВводеНачальныхОстатковНДС_Реквизит10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_СформированПриВводеНачальныхОстатковНДС_Реквизит10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_СформированПриВводеНачальныхОстатковНДС_Реквизит10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураПолученный_СформированПриВводеНачальныхОстатковНДС_Реквизит10() Функция ПКС_ПередВыгрузкой_СчетФактураПолученный_Организация_Реквизит11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_Организация_Реквизит11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_Организация_Реквизит11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураПолученный_Организация_Реквизит11() Функция ПКС_ПередВыгрузкой_СчетФактураПолученный_ВалютаДокумента_Реквизит14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.Рубли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ВалютаДокумента_Реквизит14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ВалютаДокумента_Реквизит14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураПолученный_ВалютаДокумента_Реквизит14() Функция ПКС_ПередВыгрузкой_СчетФактураПолученный_ДоговорКонтрагента_Реквизит15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка ИсходящиеДанные=СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидДоговора","СПоставщиком"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ДоговорКонтрагента_Реквизит15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_СчетФактураПолученный_ДоговорКонтрагента_Реквизит15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_СчетФактураПолученный_ДоговорКонтрагента_Реквизит15() Функция ПКС_ПередВыгрузкой_ТелефоныОрганизации_Вид_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ТелефонОрганизации"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Вид_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Вид_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныОрганизации_Вид_Измерение1() Функция ПКС_ПередВыгрузкой_ТелефоныОрганизации_Объект_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Объект_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Объект_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныОрганизации_Объект_Измерение2() Функция ПКС_ПередВыгрузкой_ТелефоныОрганизации_Поле3_Ресурс3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ТелефоныОрганизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Поле3_Ресурс3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Поле3_Ресурс3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныОрганизации_Поле3_Ресурс3() Функция ПКС_ПередВыгрузкой_ТелефоныОрганизации_Представление_Ресурс4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Константа.ТелефоныОрганизации; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Представление_Ресурс4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Представление_Ресурс4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныОрганизации_Представление_Ресурс4() Функция ПКС_ПередВыгрузкой_ТелефоныОрганизации_Тип_Измерение5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Телефон"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Тип_Измерение5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныОрганизации_Тип_Измерение5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныОрганизации_Тип_Измерение5() Функция ПКС_ПередВыгрузкой_ТелефоныФизЛица_Вид_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ТелефонФизЛицаДомашний"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныФизЛица_Вид_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныФизЛица_Вид_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныФизЛица_Вид_Измерение1() Функция ПКС_ПередВыгрузкой_ТелефоныФизЛица_Объект_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныФизЛица_Объект_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныФизЛица_Объект_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныФизЛица_Объект_Измерение2() Функция ПКС_ПередВыгрузкой_ТелефоныФизЛица_Тип_Измерение5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Телефон"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныФизЛица_Тип_Измерение5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТелефоныФизЛица_Тип_Измерение5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТелефоныФизЛица_Тип_Измерение5() Функция ПКО_ПередВыгрузкой_ТерриториальныеУсловия( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка Источник = Источник.Идентификатор(); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ТерриториальныеУсловия", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ТерриториальныеУсловия" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ТерриториальныеУсловия() Функция ПКС_ПередВыгрузкой_ТерриториальныеУсловия_Код_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТерриториальныеУсловия_Код_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТерриториальныеУсловия_Код_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТерриториальныеУсловия_Код_Свойство1() Функция ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка //Если Параметры.ВыгружатьКодыСправочников = Да Тогда // Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); //Иначе Отказ = 1 ; //КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Код_Свойство2() Функция ПКС_ПриВыгрузке_ТипыЦенНоменклатуры_Наименование_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства) Отказ = 0; Попытка Значение = Лев(Значение, 25); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ТипыЦенНоменклатуры_Наименование_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПриВыгрузке_ТипыЦенНоменклатуры_Наименование_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПриВыгрузке_ТипыЦенНоменклатуры_Наименование_Свойство3() Функция ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Рассчитывается_Реквизит4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Рассчитывается_Реквизит4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Рассчитывается_Реквизит4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_Рассчитывается_Реквизит4() Функция ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ВалютаЦены_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ПустоеЗначение(ПолучитьЗначение(Источник, "Валюта")) = 1 Тогда Значение = Параметры.Рубли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ВалютаЦены_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ВалютаЦены_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ВалютаЦены_Реквизит7() Функция ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ПорядокОкругления_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Окр0_01"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ПорядокОкругления_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ПорядокОкругления_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ТипыЦенНоменклатуры_ПорядокОкругления_Реквизит9() Функция ПКО_ПередВыгрузкой_УстановкаЦенНоменклатуры( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка //КлючВыгружаемыхДанных = ПолучитьЗначение(ВходящиеДанные,"Комментарий"); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_УстановкаЦенНоменклатуры", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_УстановкаЦенНоменклатуры" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_УстановкаЦенНоменклатуры() Функция ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_Номенклатура_Реквизит2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если ОбъектКоллекции.Номенклатура.Вид()="Оборудование" Тогда ИмяПКО = "Оборудование"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли ОбъектКоллекции.Номенклатура.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонеЦЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_Номенклатура_Реквизит2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_Номенклатура_Реквизит2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_Номенклатура_Реквизит2() Функция ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ЕдиницаИзмерения_Реквизит5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ОбъектКоллекции.Номенклатура.ЕдиницаИзмерения; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",ОбъектКоллекции.Номенклатура); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ЕдиницаИзмерения_Реквизит5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ЕдиницаИзмерения_Реквизит5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ЕдиницаИзмерения_Реквизит5() Функция ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ПроцентСкидкиНаценки_Реквизит6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ПроцентСкидкиНаценки_Реквизит6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ПроцентСкидкиНаценки_Реквизит6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ПроцентСкидкиНаценки_Реквизит6() Функция ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ТипЦен_Реквизит7( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ПолучитьЗначение(ВходящиеДанные,"ТипЦен"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ТипЦен_Реквизит7", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ТипЦен_Реквизит7" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_ТипЦен_Реквизит7() Функция ПКГС_ПередОбработкойВыгрузки_УстановкаЦенНоменклатуры_ТипыЦен_ТабличнаяЧасть9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ТипЦен"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ТипЦен = ПолучитьЗначение(ВходящиеДанные,"ТипЦен"); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_УстановкаЦенНоменклатуры_ТипыЦен_ТабличнаяЧасть9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_УстановкаЦенНоменклатуры_ТипыЦен_ТабличнаяЧасть9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_УстановкаЦенНоменклатуры_ТипыЦен_ТабличнаяЧасть9() Функция ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_НеПроводитьНулевыеЗначения_Реквизит12( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_НеПроводитьНулевыеЗначения_Реквизит12", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_НеПроводитьНулевыеЗначения_Реквизит12" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_НеПроводитьНулевыеЗначения_Реквизит12() Функция ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_СпособРасчетаЦены_Реквизит13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Пусто = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_СпособРасчетаЦены_Реквизит13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_СпособРасчетаЦены_Реквизит13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УстановкаЦенНоменклатуры_Товары_СпособРасчетаЦены_Реквизит13() Функция ПКС_ПередВыгрузкой_УчетнаяПолитика_Период_Свойство1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Дата("01.01.1990"); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_Период_Свойство1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_Период_Свойство1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитика_Период_Свойство1() Функция ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособОценкиМПЗ_Ресурс4( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоСредней"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособОценкиМПЗ_Ресурс4", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособОценкиМПЗ_Ресурс4" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособОценкиМПЗ_Ресурс4() Функция ПКС_ПередВыгрузкой_УчетнаяПолитика_ВестиУчетТоваровОрганизацийВРазрезеСкладов_Ресурс6( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_ВестиУчетТоваровОрганизацийВРазрезеСкладов_Ресурс6", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_ВестиУчетТоваровОрганизацийВРазрезеСкладов_Ресурс6" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитика_ВестиУчетТоваровОрганизацийВРазрезеСкладов_Ресурс6() Функция ПКС_ПередВыгрузкой_УчетнаяПолитика_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоКаждойСтатьеЗатрат"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитика_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс8() Функция ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособРасчетаСебестоимостиВыпускаПоОперациям_Ресурс9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоПлановойСебестоимости"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособРасчетаСебестоимостиВыпускаПоОперациям_Ресурс9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособРасчетаСебестоимостиВыпускаПоОперациям_Ресурс9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитика_СпособРасчетаСебестоимостиВыпускаПоОперациям_Ресурс9() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоКаждойСтатьеЗатрат"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ДетализацияКосвенныхЗатратВСебестоимости_Ресурс3() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОпределятьАвансыПриПроведенииДокумента_Ресурс8( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОпределятьАвансыПриПроведенииДокумента_Ресурс8", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОпределятьАвансыПриПроведенииДокумента_Ресурс8" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОпределятьАвансыПриПроведенииДокумента_Ресурс8() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СпособОценкиМПЗ_Ресурс10( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоСредней"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СпособОценкиМПЗ_Ресурс10", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СпособОценкиМПЗ_Ресурс10" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СпособОценкиМПЗ_Ресурс10() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_Организация_Измерение11( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_Организация_Измерение11", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_Организация_Измерение11" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_Организация_Измерение11() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СложныйУчетНДС_Ресурс15( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СложныйУчетНДС_Ресурс15", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СложныйУчетНДС_Ресурс15" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СложныйУчетНДС_Ресурс15() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ВариантУчетаРасходовПоНалогамСФОТВНалоговомУчете_Ресурс16( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "НаСчетахРасходовНаОплатуТруда"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ВариантУчетаРасходовПоНалогамСФОТВНалоговомУчете_Ресурс16", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ВариантУчетаРасходовПоНалогамСФОТВНалоговомУчете_Ресурс16" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ВариантУчетаРасходовПоНалогамСФОТВНалоговомУчете_Ресурс16() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияЯвляетсяПлательщикомЕНВД_Ресурс17( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = ?(Константа.ОрганизацияЯвляетсяПлательщикомЕНВД = Да, 1, 0); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияЯвляетсяПлательщикомЕНВД_Ресурс17", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияЯвляетсяПлательщикомЕНВД_Ресурс17" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияЯвляетсяПлательщикомЕНВД_Ресурс17() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_НДСРежимУчетаРаспределенныхОплат_Ресурс18( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Приоритет_НДСнеМожетБытьПринятКВычету"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_НДСРежимУчетаРаспределенныхОплат_Ресурс18", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_НДСРежимУчетаРаспределенныхОплат_Ресурс18" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_НДСРежимУчетаРаспределенныхОплат_Ресурс18() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СистемаНалогообложения_Ресурс30( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Общая"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СистемаНалогообложения_Ресурс30", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СистемаНалогообложения_Ресурс30" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_СистемаНалогообложения_Ресурс30() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ПорядокРасчетаВычетаФБ_Ресурс31( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ПоСуммеСтраховыхВзносов"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ПорядокРасчетаВычетаФБ_Ресурс31", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ПорядокРасчетаВычетаФБ_Ресурс31" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ПорядокРасчетаВычетаФБ_Ресурс31() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияЕСН_Ресурс32( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Точно"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияЕСН_Ресурс32", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияЕСН_Ресурс32" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияЕСН_Ресурс32() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияПФР_Ресурс33( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Точно"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияПФР_Ресурс33", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияПФР_Ресурс33" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ТочностьИсчисленияПФР_Ресурс33() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияВедетПроизводственнуюДеятельность_Ресурс34( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияВедетПроизводственнуюДеятельность_Ресурс34", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияВедетПроизводственнуюДеятельность_Ресурс34" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаОрганизаций_ОрганизацияВедетПроизводственнуюДеятельность_Ресурс34() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаПоНДФЛ_Организация_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаПоНДФЛ_Организация_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаПоНДФЛ_Организация_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаПоНДФЛ_Организация_Измерение1() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_Организация_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 1; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_Организация_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_Организация_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_Организация_Измерение1() Функция ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_ПоказыватьТабельныеНомераВДокументах_Ресурс3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = 0; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_ПоказыватьТабельныеНомераВДокументах_Ресурс3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_ПоказыватьТабельныеНомераВДокументах_Ресурс3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_УчетнаяПолитикаПоПерсоналуОрганизаций_ПоказыватьТабельныеНомераВДокументах_Ресурс3() Функция ПКО_ПередВыгрузкой_ФактическийАдресОрганизации( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Константа.ПочтовыйАдресОрганизации); ПолучитьСтруктуруАдреса( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,,,,,,,,, ИмяПКО,,,,, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, РежимЗаписи, РежимПроведения,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ФактическийАдресОрганизации", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ФактическийАдресОрганизации" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ФактическийАдресОрганизации() Функция ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Вид_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ФактАдресОрганизации"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Вид_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Вид_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Вид_Измерение1() Функция ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Объект_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Объект_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Объект_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Объект_Измерение2() Функция ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Тип_Измерение14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Адрес"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Тип_Измерение14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Тип_Измерение14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФактическийАдресОрганизации_Тип_Измерение14() Функция ПКО_ПередВыгрузкой_ФактическийАдресФизЛица( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Источник.АдресФакт); ПолучитьСтруктуруАдреса( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,,,,,,,,, ИмяПКО,,,,, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, РежимЗаписи, РежимПроведения,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ФактическийАдресФизЛица", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ФактическийАдресФизЛица" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ФактическийАдресФизЛица() Функция ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Вид_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ФактАдресФизЛица"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Вид_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Вид_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Вид_Измерение1() Функция ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Объект_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Объект_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Объект_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Объект_Измерение2() Функция ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Тип_Измерение13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Адрес"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Тип_Измерение13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Тип_Измерение13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФактическийАдресФизЛица_Тип_Измерение13() Функция ПКО_ПослеВыгрузки_ФизическиеЛица( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, Приемник, УзелСсылки) Отказ = 0; Попытка //Параметры.СписокСотрудники.НоваяСтрока(); //Параметры.СписокСотрудники.ФизЛицо = Источник; Если Источник.ЭтоГруппа() = 0 Тогда НомСтроки = 0; //Если Параметры.СписокРаботников.НайтиЗначение(Источник, НомСтроки, "ФизЛицо") = 0 Тогда // Параметры.СписокРаботников.НоваяСтрока(); // Параметры.СписокРаботников.ФизЛицо = Источник; //КонецЕсли; ПолноеИмя = Источник.Наименование; ПозицияПервогоПробела = Найти(ПолноеИмя, " "); Если ПозицияПервогоПробела <> 0 Тогда Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела); ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1); ИмяОтчество = СокрЛ(ИмяОтчество); Имя = Лев(ИмяОтчество, 1)+"."; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Фамилия", Фамилия); ВходящиеДанные.Установить("Имя", ИмяОтчество); ВходящиеДанные.Установить("Отчество", ""); ПозицияВторогоПробела = Найти(ИмяОтчество, " "); Если ПозицияВторогоПробела <> 0 Тогда Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1); Отчество = СокрЛ(Отчество); ВходящиеДанные.Установить("Имя", Лев(ИмяОтчество, ПозицияВторогоПробела)); ВходящиеДанные.Установить("Отчество", Отчество); КонецЕсли; ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "ФИОФизЛиц"); КонецЕсли; ВыгрузитьПоПравилу(Источник,,,, "СведенияОбИнвалидностиФизлиц"); ВыгрузитьПоПравилу(Источник,,,, "ПаспортныеДанныеФизЛиц"); ВыгрузитьПоПравилу(Источник,,,, "ГражданствоФизЛиц"); ВыгрузитьПоПравилу(Источник,,,, "ТелефоныФизЛица"); ВыгрузитьПоПравилу(Источник,,,, "АдресПоПропискеФизЛица"); ВыгрузитьПоПравилу(Источник,,,, "ФактическийАдресФизЛица"); ВыгрузитьПоПравилу(Источник,,,, "НДФЛДоходыПредыдущегоМестаРаботы"); // Параметры.ДатаВводаОстатков ТипВычета = Перечисление.ТипыВычетов.БезВычетов; ВычетНаРебенка = 0; КоличествоДетей = 0; ТекДата = КонМесяца(Параметры.ДатаВводаОстатков); ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Период", ТекДата); Если (Источник.ТипВычета.Получить(ТекДата) <> Перечисление.ТипыВычетов.БезВычетов) Тогда ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "НДФЛПрименениеВычетов"); КонецЕсли; Если (Источник.ТипВычета.Получить(ТекДата)<>Перечисление.ТипыВычетов.БезВычетов) или (Источник.РазмерВычетаНаРебенка.Получить(ТекДата)<> 0) или (Источник.Дети.Получить(ТекДата)<>0) Тогда ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "НДФЛСтандартныеВычетыФизлиц"); КонецЕсли; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПослеВыгрузки_ФизическиеЛица", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПослеВыгрузки_ФизическиеЛица" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПослеВыгрузки_ФизическиеЛица() Функция ПКС_ПередВыгрузкой_ФизическиеЛица_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФизическиеЛица_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФизическиеЛица_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФизическиеЛица_Код_Свойство2() Функция ПКС_ПередВыгрузкой_ФизическиеЛица_КодИМНС_Реквизит9( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Лев(Источник.ИНН,4); Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФизическиеЛица_КодИМНС_Реквизит9", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФизическиеЛица_КодИМНС_Реквизит9" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФизическиеЛица_КодИМНС_Реквизит9() Функция ПКГС_ПередОбработкойВыгрузки_ФизическиеЛица__13( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать) Отказ = 0; Попытка Отказ = Источник.ЭтоГруппа(); Исключение Сообщить("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ФизическиеЛица__13", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКГС_ПередОбработкойВыгрузки_ФизическиеЛица__13" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКГС_ПередОбработкойВыгрузки_ФизическиеЛица__13() Функция ПКС_ПередВыгрузкой_ФИОФизЛиц_Период_Свойство3( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Параметры.ДатаВводаОстатков; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФИОФизЛиц_Период_Свойство3", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФИОФизЛиц_Период_Свойство3" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФИОФизЛиц_Период_Свойство3() Функция ПКС_ПередВыгрузкой_ФИОФизЛиц_ФизЛицо_Измерение5( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = Источник; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФИОФизЛиц_ФизЛицо_Измерение5", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ФИОФизЛиц_ФизЛицо_Измерение5" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ФИОФизЛиц_ФизЛицо_Измерение5() Функция ПКС_ПередВыгрузкой_ЦенныеБумаги_Код_Свойство2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Если Параметры.ВыгружатьКодыСправочников = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЦенныеБумаги_Код_Свойство2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЦенныеБумаги_Код_Свойство2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЦенныеБумаги_Код_Свойство2() Функция ПКО_ПередВыгрузкой_ЮридическийАдресОрганизации( Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения) Отказ = 0; Попытка ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Константа.АдресОрганизации); ПолучитьСтруктуруАдреса( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,,,,,,,,, ИмяПКО,,,,, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, РежимЗаписи, РежимПроведения,,,,,,,,,, Отказ); Исключение Сообщить("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЮридическийАдресОрганизации", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКО_ПередВыгрузкой_ЮридическийАдресОрганизации" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКО_ПередВыгрузкой_ЮридическийАдресОрганизации() Функция ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Вид_Измерение1( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "ЮрАдресОрганизации"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Вид_Измерение1", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Вид_Измерение1" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Вид_Измерение1() Функция ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Объект_Измерение2( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "1"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Объект_Измерение2", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Объект_Измерение2" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Объект_Измерение2() Функция ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Тип_Измерение14( Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать) Отказ = 0; Попытка Значение = "Адрес"; Исключение Сообщить("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Тип_Измерение14", "!!!"); Сообщить(" - " + ОписаниеОшибки()); ЗафиксироватьОшибку("Ошибка исполнения обработчика: ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Тип_Измерение14" + ": " + ОписаниеОшибки()); КонецПопытки; Возврат Отказ; КонецФункции // ПКС_ПередВыгрузкой_ЮридическийАдресОрганизации_Тип_Измерение14() //////////////////////////////////////////////////////////////////////////////// // ОКОНЧАНИЕ ОБРАБОТЧИКОВ //////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////// // ПРОЦЕДУРЫ И ФУНКЦИИ ЗАПИСИ "Msxml2.DOMDocument.4.0" //////////////////////////////////////////////////////////////////////////////// //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция СоздатьУзел(name) newNode = DOMDocument.createNode(1, name, ""); Возврат newNode; КонецФункции // СоздатьУзел() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура УстановитьАтрибут(element, name, value) element.setAttribute(name, Строка(value)); КонецПроцедуры // УстановитьАтрибут() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗаписатьЭлемент(node, name, value = "") childNode = DOMDocument.createNode(1, name, ""); Попытка childNode.text = Строка(value); Исключение Сообщить("Не удалось записать элемент: "+name+", со значением: "+value); childNode.text = ""; КонецПопытки; node.appendChild(childNode); КонецПроцедуры // одЗаписатьЭлемент() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ДобавитьПодчиненный(parentNode, childNode) parentNode.appendChild(childNode); КонецПроцедуры // ДобавитьПодчиненный() //////////////////////////////////////////////////////////////////////////////// // СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ //////////////////////////////////////////////////////////////////////////////// //****************************************************************************** // // // Параметры: // // // Описание: // Процедура УстановитьЗначениеПараметраКонвертации(ИмяПараметра, ЗначениеПараметра) НомерСтроки = 0; Если ТаблицаНастройкиПараметров.НайтиЗначение(ИмяПараметра, НомерСтроки, "Имя") = 1 Тогда ТаблицаНастройкиПараметров.УстановитьЗначение(НомерСтроки, "Значение", ЗначениеПараметра) Иначе Сообщить("Значение параметра """ + ИмяПараметра + """ не установлено! Возможно, имя параметра указано не верно или параметр не редактируется в диалоге.", "!"); КонецЕсли; КонецПроцедуры //УстановитьЗначениеПараметраКонвертации() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВывестиСообщение(ТекстСообщения, СтатусСообщения = " ") Сообщить(ТекстСообщения, СтатусСообщения); КонецПроцедуры // ВывестиСообщение() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПривестиБулевоКЗначению(Булево) Если Врег(Булево) = "TRUE" Тогда Возврат 1; ИначеЕсли Врег(Булево) = "FALSE" Тогда Возврат 0; Иначе Возврат 0; КонецЕсли; КонецФункции // ПривестиБулевоКЗначению() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПривестиЗначениеКБулево(Значение) Если Число(Значение) > 0 Тогда Возврат "true"; Иначе Возврат "false"; КонецЕсли; КонецФункции // ПривестиЗначениеКБулево() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПроверитьИмяТипУзла(Узел, ПроверяемоеИмя = "", ТипТега = "", ПроверяемыйТип = "") Если (ТипТега <> "") И (ПроверяемыйТип <> "") Тогда Если ТипТега = ПроверяемыйТип Тогда Если ПроверяемоеИмя <> "" Тогда Если Узел.СвойстваТекущегоУзла.Имя = ПроверяемоеИмя Тогда Возврат 1; Иначе Возврат 0; КонецЕсли; Иначе Возврат 1; КонецЕсли; Иначе Возврат 0; КонецЕсли; Иначе Если ПроверяемоеИмя <> "" Тогда Если Узел.СвойстваТекущегоУзла.Имя = ПроверяемоеИмя Тогда Возврат 1; Иначе Возврат 0; КонецЕсли; Иначе ВывестиСообщение("Неверно переданы параметры в функцию ""ПроверитьИмяТипУзла"".", "!!!"); Возврат 0; КонецЕсли; КонецЕсли; КонецФункции // ПроверитьИмяТипУзла() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПолучитьДатуV8(ЧастьДата, ЧастьВремя = "00:00:00") Если (ПустоеЗначение(ЧастьДата) = 1) ИЛИ (ЧастьДата = Дата(1,1,1)) Тогда Возврат "0001-01-01T" + ЧастьВремя; Иначе // Год может быть введен неверно Год = ДатаГод(ЧастьДата); // Возможно случайно ошиблись и не доввели дату Если Год < 30 Тогда Год = 2000 + Год; ИначеЕсли Год < 100 Тогда Год = 1900 + Год; ИначеЕсли Год < 1000 Тогда Год = 1000 + Год; КонецЕсли; // Если исправления не помогли, тогда вернем пустой год // Иначе данные просто не загрузятся Если Год < 1900 Тогда Возврат "0001-01-01T" + ЧастьВремя; КонецЕсли; Возврат "" + Год + "-" + Формат(ДатаМесяц(ЧастьДата),"Ч(0)2") + "-" + Формат(ДатаЧисло(ЧастьДата),"Ч(0)2") + "T" + ЧастьВремя; КонецЕсли; КонецФункции // ПолучитьДатуV8() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПолучитьПрефиксЧислоНомера(Знач Стр, ЧисловаяЧасть = "", Режим = "") Стр = СокрЛП(Стр); Префикс = Стр; Длина = СтрДлина(Стр); Для Сч = 1 По Длина Цикл ЧисловаяЧасть = Число(Стр); Если (ЧисловаяЧасть > 0) И (СтрДлина(ЧисловаяЧасть) = Длина - Сч + 1) Тогда Префикс = Лев(Префикс, Сч - 1); Пока Прав(Префикс, 1) = "0" Цикл Префикс = Лев(Префикс, СтрДлина(Префикс)-1); КонецЦикла; Прервать; Иначе Стр = Прав(Стр, Длина - Сч); КонецЕсли; Если ЧисловаяЧасть < 0 Тогда ЧисловаяЧасть = - ЧисловаяЧасть; КонецЕсли; КонецЦикла; Если Режим = "Число" Тогда Возврат(ЧисловаяЧасть); Иначе Возврат(Префикс); КонецЕсли; КонецФункции // ПолучитьПрефиксЧислоНомера() // Добавляет к префиксу номера или кода подстроку // // Параметры: // Стр - Строка. Номер или код; // Добавок - добаляемая к префиксу подстрока; // Длина - требуемая результрирующая длина строки; // Режим - "Слева" - подстрока добавляется слева к префиксу, иначе - справа. // // Возвращаемое значение: // Строка - номер или код, к префиксу которого добавлена указанная подстрока. // Функция ДобавитьКПрефиксу(Знач Стр, Добавок = "", Длина = "", Режим = "Слева") Стр = СтрЗаменить(СокрЛП(Стр)," ",""); Если ПустаяСтрока(Длина) = 1 Тогда Длина = СтрДлина(Стр); КонецЕсли; ЧисловаяЧасть = ""; Префикс = ПолучитьПрефиксЧислоНомера(Стр, ЧисловаяЧасть); Если Режим = "Слева" Тогда Результат = СокрЛП(Добавок) + Префикс; Иначе Результат = Префикс + СокрЛП(Добавок); КонецЕсли; Пока Длина - СтрДлина(Результат) - СтрДлина(СтрЗаменить(СокрЛП(ЧисловаяЧасть)," ","")) > 0 Цикл Результат = Результат + "0"; КонецЦикла; Результат = Результат + СтрЗаменить(СокрЛП(ЧисловаяЧасть)," ",""); Возврат(Результат); КонецФункции // ДобавитьКПрефиксу() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПривестиНомерКДлине(Знач Стр, Длина) Стр = СокрЛП(Стр); ЧисловаяЧасть = ""; Результат = ПолучитьПрефиксЧислоНомера(Стр, ЧисловаяЧасть); Пока Длина - СтрДлина(Результат) - СтрДлина(ЧисловаяЧасть) > 0 Цикл Результат = Результат + "0"; КонецЦикла; Результат = Результат + ЧисловаяЧасть; Возврат(Результат); КонецФункции // ПривестиНомерКДлине() //////////////////////////////////////////////////////////////////////////////// // ПРОЦЕДУРЫ И ФУНКЦИИ РАБОТЫ С ПРАВИЛАМИ //////////////////////////////////////////////////////////////////////////////// //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ИнициализацияПравилВыгрузки() мТаблицаПравилВыгрузки = СоздатьОбъект("ТаблицаЗначений"); мТаблицаПравилВыгрузки.НоваяКолонка("Отключить"); мТаблицаПравилВыгрузки.НоваяКолонка("ЭтоГруппа"); мТаблицаПравилВыгрузки.НоваяКолонка("Родитель"); мТаблицаПравилВыгрузки.НоваяКолонка("Уровень"); мТаблицаПравилВыгрузки.НоваяКолонка("Код"); мТаблицаПравилВыгрузки.НоваяКолонка("Наименование"); мТаблицаПравилВыгрузки.НоваяКолонка("Порядок", "Число", 10, 0); мТаблицаПравилВыгрузки.НоваяКолонка("КодПравилаКонвертации"); мТаблицаПравилВыгрузки.НоваяКолонка("СпособОтбораДанных"); мТаблицаПравилВыгрузки.НоваяКолонка("ОбъектВыборки"); мТаблицаПравилВыгрузки.НоваяКолонка("ПередОбработкойПравила", "Число", 1, 0); мТаблицаПравилВыгрузки.НоваяКолонка("ПередВыгрузкойОбъекта", "Число", 1, 0); мТаблицаПравилВыгрузки.НоваяКолонка("ПослеВыгрузкиОбъекта", "Число", 1, 0); мТаблицаПравилВыгрузки.НоваяКолонка("ПослеОбработкиПравила", "Число", 1, 0); мТаблицаПравилВыгрузки.НоваяКолонка("НомерГруппы", "Число", 5, 0); мТаблицаПравилВыгрузки.НоваяКолонка("Отбор"); КонецПроцедуры // ИнициализацияПравилВыгрузки() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ИнициализацияПравилКонвертацииОбъектов() мТаблицаПравилКонвертацииОбъектов = СоздатьОбъект("ТаблицаЗначений"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Код"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Наименование"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Порядок", "Число", 10, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("СинхронизироватьПоИдентификатору", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Источник"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Приемник"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПередВыгрузкой", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПриВыгрузке", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПослеВыгрузки", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПослеВыгрузкиВФайл", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПередЗагрузкой"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПриЗагрузке"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПослеЗагрузки"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("СвойстваПоиска"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Свойства"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Значения"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Выгруженные"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("НеЗамещать", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("НеЗапоминатьВыгруженные", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("НеВыгружатьОбъектыСвойствПоСсылкам", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ВсеОбъектыВыгружены", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПоследовательностьПолейПоиска"); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("ГенерироватьНовыйНомерИлиКодЕслиНеУказан", "Число", 1, 0); мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("НеСоздаватьЕслиНеНайден", "Число", 1, 0); КонецПроцедуры // ИнициализацияПравилКонвертацииОбъектов() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ИнициализацияПравилКонвертацииСвойств() ТаблицаПравилКонвертацииСвойств = СоздатьОбъект("ТаблицаЗначений"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("Код"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("Наименование"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("Порядок", "Число", 10, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ЭтоГруппа", "Число", 1, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("СвойстваГруппы"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("Источник"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ВидИсточника"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ТипИсточника"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("Приемник"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ВидПриемника"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ТипПриемника"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("КодПравилаКонвертации"); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ПолучитьИзВходящихДанных", "Число", 1, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("НеЗамещать", "Число", 1, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ПередОбработкойВыгрузки", "Число", 1, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ПередВыгрузкой", "Число", 1, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ПриВыгрузке", "Число", 1, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ПослеВыгрузки", "Число", 1, 0); ТаблицаПравилКонвертацииСвойств.НоваяКолонка("ПослеОбработкиВыгрузки", "Число", 1, 0); Возврат ТаблицаПравилКонвертацииСвойств; КонецФункции // ИнициализацияПравилКонвертацииСвойств() //****************************************************************************** // // Инициализирует колонки таблицы настройки параметров // // Параметры: // Нет. // Процедура ИнициализацияТаблицыНастройкиПараметров() //ТаблицаНастройкиПараметров = СоздатьОбъект("ТаблицаЗначений"); //ТаблицаНастройкиПараметров.НоваяКолонка("Имя"); //ТаблицаНастройкиПараметров.НоваяКолонка("Наименование"); //ТаблицаНастройкиПараметров.НоваяКолонка("Значение"); // //ТаблицаНастройкиПараметров.ВидимостьКолонки("Имя",0,); КонецПроцедуры // ИнициализацияТаблицыПравилОчистки() Функция ПолучитьЗначениеУзлаИзXML() Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = Узел.Значение; ПозицияПоиска = Найти(Значение, РазделительСтрок); Если (ПозицияПоиска > 0) Тогда Возврат Значение; Иначе Значение = СтрЗаменить(Значение, Симв(10),РазделительСтрок); Возврат Значение; КонецЕсли; КонецФункции //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПВД(Родитель, Уровень, НомерГруппы) мТаблицаПравилВыгрузки.НоваяСтрока(); мТаблицаПравилВыгрузки.ТекущаяСтрока(мТаблицаПравилВыгрузки.КоличествоСтрок()); Для Индекс = 0 По мЧтениеXML.СвойстваТекущегоУзла.КоличествоАтрибутов - 1 Цикл мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), мЧтениеXML.СвойстваТекущегоУзла.НаименованиеАтрибута(Индекс), ПривестиБулевоКЗначению(мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс))); КонецЦикла; мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "ЭтоГруппа", 0); мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "Уровень", Уровень); мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "Родитель", Родитель); мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "НомерГруппы", НомерГруппы); ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Имя = мЧтениеXML.СвойстваТекущегоУзла.Имя; Если (Имя = "ПередОбработкойПравила") ИЛИ (Имя = "ПередВыгрузкойОбъекта") ИЛИ (Имя = "ПослеВыгрузкиОбъекта") ИЛИ (Имя = "ПослеОбработкиПравила") Тогда Значение = 1; ИначеЕсли (Имя = "Комментарий") ИЛИ (Имя = "Описание") ИЛИ (Имя = "ИмяТипаПриемника") Тогда ТипТега = мЧтениеXML.Следующий(); Продолжить; Иначе Значение = ПолучитьЗначениеУзлаИзXML(); КонецЕсли; мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), Имя, Значение); ТипТега = мЧтениеXML.Следующий(); КонецЦикла; КонецПроцедуры // ЗагрузитьПВД() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьГруппуПВД(Родитель, Уровень, НомерГруппы) НомерГруппы = НомерГруппы + 1; ТекущийРодитель = ""; мТаблицаПравилВыгрузки.НоваяСтрока(); мТаблицаПравилВыгрузки.ТекущаяСтрока(мТаблицаПравилВыгрузки.КоличествоСтрок()); Для Индекс = 0 По мЧтениеXML.СвойстваТекущегоУзла.КоличествоАтрибутов - 1 Цикл мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), мЧтениеXML.СвойстваТекущегоУзла.НаименованиеАтрибута(Индекс), ПривестиБулевоКЗначению(мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс))); КонецЦикла; мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "ЭтоГруппа", 1); мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "Уровень", Уровень); мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "Родитель", Родитель); мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), "НомерГруппы", НомерГруппы); ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Имя = мЧтениеXML.СвойстваТекущегоУзла.Имя; Если ПроверитьИмяТипУзла(мЧтениеXML, "Группа", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьГруппуПВД(ТекущийРодитель, Уровень + 1, НомерГруппы); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Правило", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПВД(ТекущийРодитель, Уровень + 1, НомерГруппы); Иначе Значение = ПолучитьЗначениеУзлаИзXML(); мТаблицаПравилВыгрузки.УстановитьЗначение(мТаблицаПравилВыгрузки.ТекущаяСтрока(), Имя, Значение); Если Имя = "Код" Тогда ТекущийРодитель = Значение; КонецЕсли; КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; НомерГруппы = НомерГруппы + 1; КонецПроцедуры // ЗагрузитьГруппуПВД() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПравилаВыгрузкиДанных() мТаблицаПравилВыгрузки.УдалитьСтроки(); НомерТекущейГруппы = 1; ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Если ПроверитьИмяТипУзла(мЧтениеXML, "Правило", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПВД("", 0, НомерТекущейГруппы); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Группа", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьГруппуПВД("", 0, НомерТекущейГруппы); КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; мТаблицаПравилВыгрузки.Сортировать("НомерГруппы, ЭтоГруппа -, Порядок"); КонецПроцедуры // ЗагрузитьПравилаВыгрузкиДанных() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПКС(СвойстваГруппы = 0, ЭтоГруппа = 0) Для Индекс = 0 По мЧтениеXML.СвойстваТекущегоУзла.КоличествоАтрибутов - 1 Цикл НаименованиеАтрибута = мЧтениеXML.СвойстваТекущегоУзла.НаименованиеАтрибута(Индекс); Если НаименованиеАтрибута = "Отключить" Тогда Если ПривестиБулевоКЗначению(мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс)) = 1 Тогда Возврат; КонецЕсли; ИначеЕсли НаименованиеАтрибута = "Поиск" Тогда Поиск = ПривестиБулевоКЗначению(мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс)); КонецЕсли; КонецЦикла; Если Поиск = 1 Тогда Если СвойстваГруппы = 0 Тогда Свойства = мТаблицаПравилКонвертацииОбъектов.СвойстваПоиска; Иначе Свойства = СвойстваГруппы; КонецЕсли; Иначе Если СвойстваГруппы = 0 Тогда Свойства = мТаблицаПравилКонвертацииОбъектов.Свойства; Иначе Свойства = СвойстваГруппы; КонецЕсли; КонецЕсли; Свойства.НоваяСтрока(); Свойства.ТекущаяСтрока(Свойства.КоличествоСтрок()); Свойства.ЭтоГруппа = ЭтоГруппа; ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Имя = мЧтениеXML.СвойстваТекущегоУзла.Имя; Если (Имя = "ПередОбработкойВыгрузки") ИЛИ (Имя = "ПередВыгрузкой") ИЛИ (Имя = "ПриВыгрузке") ИЛИ (Имя = "ПослеВыгрузки") ИЛИ (Имя = "ПослеОбработкиВыгрузки") Тогда Значение = 1; ИначеЕсли Имя = "ПолучитьИзВходящихДанных" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "НеЗамещать" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "Источник" Тогда Для Индекс = 0 По мЧтениеXML.СвойстваТекущегоУзла.КоличествоАтрибутов - 1 Цикл НаименованиеАтрибута = мЧтениеXML.СвойстваТекущегоУзла.НаименованиеАтрибута(Индекс); Если НаименованиеАтрибута = "Имя" Тогда Свойства.Источник = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); ИначеЕсли НаименованиеАтрибута = "Вид" Тогда Свойства.ВидИсточника = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); ИначеЕсли НаименованиеАтрибута = "Тип" Тогда Свойства.ТипИсточника = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); КонецЕсли; КонецЦикла; ТипТега = мЧтениеXML.Следующий(); Продолжить; ИначеЕсли Имя = "Приемник" Тогда Для Индекс = 0 По мЧтениеXML.СвойстваТекущегоУзла.КоличествоАтрибутов - 1 Цикл НаименованиеАтрибута = мЧтениеXML.СвойстваТекущегоУзла.НаименованиеАтрибута(Индекс); Если НаименованиеАтрибута = "Имя" Тогда Свойства.Приемник = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); ИначеЕсли НаименованиеАтрибута = "Вид" Тогда Свойства.ВидПриемника = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); ИначеЕсли НаименованиеАтрибута = "Тип" Тогда Свойства.ТипПриемника = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); КонецЕсли; КонецЦикла; ТипТега = мЧтениеXML.Следующий(); Продолжить; ИначеЕсли Имя = "Свойство" Тогда Если ЭтоГруппа = 1 Тогда Если ПустоеЗначение(Свойства.СвойстваГруппы) = 1 Тогда Свойства.СвойстваГруппы = ИнициализацияПравилКонвертацииСвойств(); КонецЕсли; ЗагрузитьПКС(Свойства.СвойстваГруппы); Свойства.СвойстваГруппы.Сортировать("Порядок"); ТипТега = мЧтениеXML.Следующий(); Продолжить; Иначе ЗагрузитьПКС(); мТаблицаПравилКонвертацииОбъектов.Свойства.Сортировать("Порядок"); ТипТега = мЧтениеXML.Следующий(); Продолжить; КонецЕсли; ИначеЕсли Имя = "Группа" Тогда ЗагрузитьПКС(, 1); мТаблицаПравилКонвертацииОбъектов.СвойстваГруппы.Сортировать("Порядок"); ИначеЕсли (Имя = "Комментарий") ИЛИ (Имя = "Описание") Тогда ТипТега = мЧтениеXML.Следующий(); Продолжить; Иначе Значение = ПолучитьЗначениеУзлаИзXML(); КонецЕсли; Свойства.УстановитьЗначение(Свойства.ТекущаяСтрока(), Имя, Значение); ТипТега = мЧтениеXML.Следующий(); КонецЦикла; КонецПроцедуры // ЗагрузитьПКС() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПравилаКонвертацииСвойств() ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Если ПроверитьИмяТипУзла(мЧтениеXML, "Свойство", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПКС(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Группа", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПКС(, 1); КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; мТаблицаПравилКонвертацииОбъектов.Свойства.Сортировать("Порядок"); КонецПроцедуры // ЗагрузитьПравилаКонвертацииСвойств() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПравилаКонвертацииЗначений() ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Если ПроверитьИмяТипУзла(мЧтениеXML, "Значение", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ТипТега = мЧтениеXML.Спуститься(); Источник = ""; Приемник = ""; Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Имя = мЧтениеXML.СвойстваТекущегоУзла.Имя; Если Имя = "Источник" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Источник = Узел.Значение; ИначеЕсли Имя = "Приемник" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Приемник = Узел.Значение; КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; мТаблицаПравилКонвертацииОбъектов.Значения.Установить(СокрЛП(Источник), СокрЛП(Приемник)); КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; КонецПроцедуры // ЗагрузитьПравилаКонвертацииЗначений() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПКО(Знач Порядок = "") мТаблицаПравилКонвертацииОбъектов.НоваяСтрока(); мТаблицаПравилКонвертацииОбъектов.ТекущаяСтрока(мТаблицаПравилКонвертацииОбъектов.КоличествоСтрок()); мТаблицаПравилКонвертацииОбъектов.Выгруженные = СоздатьОбъект("СписокЗначений"); ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Имя = мЧтениеXML.СвойстваТекущегоУзла.Имя; Если (Имя = "Порядок") Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = Число(Узел.Значение); Порядок = СтрЗаменить(Порядок, ",", РазделительСтрок); Для Индекс = 1 ПО СтрКоличествоСтрок(Порядок) Цикл Попытка мТаблицаПравилКонвертацииОбъектов.УстановитьЗначение(мТаблицаПравилКонвертацииОбъектов.ТекущаяСтрока(), "Порядок" + Индекс, Число(СтрПолучитьСтроку(Порядок, Индекс))); Исключение мТаблицаПравилКонвертацииОбъектов.НоваяКолонка("Порядок" + Индекс, "Число", 10, 0); мТаблицаПравилКонвертацииОбъектов.УстановитьЗначение(мТаблицаПравилКонвертацииОбъектов.ТекущаяСтрока(), "Порядок" + Индекс, Число(СтрПолучитьСтроку(Порядок, Индекс))); КонецПопытки; КонецЦикла; ИначеЕсли (Имя = "ПередВыгрузкой") ИЛИ (Имя = "ПриВыгрузке") ИЛИ (Имя = "ПослеВыгрузки") ИЛИ (Имя = "ПослеВыгрузкиВФайл") Тогда Значение = 1; ИначеЕсли Имя = "СинхронизироватьПоИдентификатору" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "НеЗамещать" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "НеЗапоминатьВыгруженные" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "НеВыгружатьОбъектыСвойствПоСсылкам" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "ГенерироватьНовыйНомерИлиКодЕслиНеУказан" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "НеСоздаватьЕслиНеНайден" Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); Значение = ПривестиБулевоКЗначению(Узел.Значение); ИначеЕсли Имя = "Свойства" Тогда мТаблицаПравилКонвертацииОбъектов.СвойстваПоиска = ИнициализацияПравилКонвертацииСвойств(); мТаблицаПравилКонвертацииОбъектов.Свойства = ИнициализацияПравилКонвертацииСвойств(); ЗагрузитьПравилаКонвертацииСвойств(); ТипТега = мЧтениеXML.Следующий(); Продолжить; ИначеЕсли Имя = "Значения" Тогда мТаблицаПравилКонвертацииОбъектов.Значения = СоздатьОбъект("СписокЗначений"); ЗагрузитьПравилаКонвертацииЗначений(); ТипТега = мЧтениеXML.Следующий(); Продолжить; ИначеЕсли (Имя = "Комментарий") ИЛИ (Имя = "Описание") Тогда ТипТега = мЧтениеXML.Следующий(); Продолжить; Иначе Значение = ПолучитьЗначениеУзлаИзXML(); КонецЕсли; мТаблицаПравилКонвертацииОбъектов.УстановитьЗначение(мТаблицаПравилКонвертацииОбъектов.ТекущаяСтрока(), Имя, Значение); ТипТега = мЧтениеXML.Следующий(); КонецЦикла; КонецПроцедуры // ЗагрузитьПКО() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьГруппуПКО(Знач Порядок = "") ПорядокГруппы = 0; // Группы ПКО в таблицу не добавляются ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Если ПроверитьИмяТипУзла(мЧтениеXML, "Порядок", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); ПорядокГруппы = Число(Узел.Значение); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Группа", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьГруппуПКО(?(ПустаяСтрока(Порядок) = 1, Порядок, Порядок + ",") + Строка(ПорядокГруппы)); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Правило", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПКО(?(ПустаяСтрока(Порядок) = 1, Порядок, Порядок + ",") + Строка(ПорядокГруппы)); Иначе Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; КонецПроцедуры // ЗагрузитьГруппуПКО() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПравилаКонвертацииОбъектов() мТаблицаПравилКонвертацииОбъектов.УдалитьСтроки(); ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Если ПроверитьИмяТипУзла(мЧтениеXML, "Правило", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПКО(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Группа", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьГруппуПКО(); КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; Индекс = 1; СтрокаСортировки = ""; Пока (1 = 1) Цикл Попытка мТаблицаПравилКонвертацииОбъектов.ТекущаяКолонка("Порядок" + Индекс); СтрокаСортировки = СтрокаСортировки + "Порядок" + Индекс + ","; Исключение СтрокаСортировки = СтрокаСортировки + "Порядок"; Прервать; КонецПопытки; Индекс = Индекс + 1; КонецЦикла; мТаблицаПравилКонвертацииОбъектов.Сортировать(СтрокаСортировки); КонецПроцедуры // ЗагрузитьПравилаКонвертацииОбъектов() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПараметры() Параметры = СоздатьОбъект("ТаблицаЗначений"); Если мВерсияФормата = "2.01" Тогда ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецУровня) = 0 Цикл Если ПроверитьИмяТипУзла(мЧтениеXML, "Параметр", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ИмяПараметра = ""; НаименованиеПараметра = ""; УстанавливатьВДиалоге = 1; ТипЗначенияПараметра = "Строка"; ИспользуетсяПриЗагрузке = 0; Для Индекс = 0 По мЧтениеXML.СвойстваТекущегоУзла.КоличествоАтрибутов - 1 Цикл НаименованиеАтрибута = мЧтениеXML.СвойстваТекущегоУзла.НаименованиеАтрибута(Индекс); Если НаименованиеАтрибута = "Имя" Тогда ИмяПараметра = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); ИначеЕсли НаименованиеАтрибута = "Наименование" Тогда НаименованиеПараметра = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); ИначеЕсли НаименованиеАтрибута = "УстанавливатьВДиалоге" Тогда УстанавливатьВДиалоге = ПривестиБулевоКЗначению(мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс)); ИначеЕсли НаименованиеАтрибута = "ТипЗначения" Тогда ТипЗначенияПараметра = мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс); ИначеЕсли НаименованиеАтрибута = "ИспользуетсяПриЗагрузке" Тогда ИспользуетсяПриЗагрузке = ПривестиБулевоКЗначению(мЧтениеXML.СвойстваТекущегоУзла.ЗначениеАтрибута(Индекс)); КонецЕсли; КонецЦикла; Если ПустаяСтрока(ИмяПараметра) = 0 Тогда //Параметры.НоваяКолонка(СокрЛП(ИмяПараметра)); Параметры.ВставитьКолонку(СокрЛП(ИмяПараметра)); Если УстанавливатьВДиалоге = 1 Тогда ТаблицаНастройкиПараметров.НоваяСтрока(); ТаблицаНастройкиПараметров.Имя = СокрЛП(ИмяПараметра); ТаблицаНастройкиПараметров.Наименование = НаименованиеПараметра; Если Найти("Строка, Число, Дата",ТипЗначенияПараметра) > 0 Тогда ТаблицаНастройкиПараметров.ТипЗначения = ТипЗначенияПараметра; ТаблицаНастройкиПараметров.ВидЗначения = ТипЗначенияПараметра; ТаблицаНастройкиПараметров.Значение = ПолучитьПустоеЗначение(ТипЗначенияПараметра); ИначеЕсли Найти(ТипЗначенияПараметра,"ПеречислениеСсылка.") = 1 Тогда ТаблицаНастройкиПараметров.ТипЗначения = "Перечисление"; ТаблицаНастройкиПараметров.ВидЗначения = Сред(ТипЗначенияПараметра, СтрДлина("ПеречислениеСсылка.")+1); ПеречислениеДляПараметра = Перечисление.ПолучитьАтрибут(ТаблицаНастройкиПараметров.ВидЗначения); ТаблицаНастройкиПараметров.Значение = ПеречислениеДляПараметра.ЗначениеПоНомеру(1); ИначеЕсли Найти(ТипЗначенияПараметра,"СправочникСсылка.") = 1 Тогда ТаблицаНастройкиПараметров.ТипЗначения = "Справочник"; ТаблицаНастройкиПараметров.ВидЗначения = Сред(ТипЗначенияПараметра, СтрДлина("СправочникСсылка.")+1); ТаблицаНастройкиПараметров.Значение = ПолучитьПустоеЗначение("Справочник."+ТаблицаНастройкиПараметров.ВидЗначения); ИначеЕсли Найти(ТипЗначенияПараметра,"ДокументСсылка.") = 1 Тогда ТаблицаНастройкиПараметров.ТипЗначения = "Документ"; ТаблицаНастройкиПараметров.ВидЗначения = Сред(ТипЗначенияПараметра, СтрДлина("ДокументСсылка.")+1); ТаблицаНастройкиПараметров.Значение = ПолучитьПустоеЗначение("Документ."+ТаблицаНастройкиПараметров.ВидЗначения); КонецЕсли; КонецЕсли; Если ИспользуетсяПриЗагрузке = 1 Тогда ТаблицаПараметровДляЗагрузки.НоваяСтрока(); ТаблицаПараметровДляЗагрузки.Имя = ИмяПараметра; ТаблицаПараметровДляЗагрузки.Наименование = НаименованиеПараметра; КонецЕсли; КонецЕсли; КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; Иначе Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); СтрокаПараметров = СтрЗаменить(Узел.Значение, ",", РазделительСтрок); Для Индекс = 1 По СтрКоличествоСтрок(СтрокаПараметров) Цикл Параметры.НоваяКолонка(СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, Индекс))); КонецЦикла; КонецЕсли; КонецПроцедуры // ЗагрузитьПараметры() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ЗагрузитьПравила() Если ПустаяСтрока(ИмяФайлаПравил) = 1 Тогда Если Форма.МодальныйРежим() = 0 Тогда Предупреждение("Не указано имя файла правил!"); Иначе Сообщить("Не указано имя файла правил!"); КонецЕсли; Возврат 0; КонецЕсли; Состояние("Идет загрузка правил обмена..."); ПравилаВыгрузкиСписок.УдалитьВсе(); мЧтениеXML.СвязатьСФайлом(ИмяФайлаПравил); ТипТега = мЧтениеXML.Спуститься(); Если ПроверитьИмяТипУзла(мЧтениеXML, "ПравилаОбмена", ТипТега, мНачалоНовогоЭлемента) = 0 Тогда ВывестиСообщение("Файл не содержит корневого узла <ПравилаОбмена>!", "!!!"); Возврат 0; КонецЕсли; мИд = ""; мНаименование = ""; мДатаВремяСоздания = ""; мКонфигурацияИсточник = ""; мКонфигурацияПриемник = ""; мВерсияФормата = ""; мКонвертацияПередВыгрузкойДанных = 0; мКонвертацияПередВыгрузкойОбъекта = 0; мКонвертацияПередКонвертациейОбъекта = 0; мКонвертацияПослеВыгрузкиОбъекта = 0; мКонвертацияПослеВыгрузкиДанных = 0; мКонвертацияПослеЗагрузкиПравилОбмена = 0; // Очищаем настройки параметров ТаблицаНастройкиПараметров.УдалитьСтроки(); ТаблицаПараметровДляЗагрузки.УдалитьСтроки(); // Очищаем отборы ТаблицаНастройкиОтбора.УдалитьСтроки(); ИмяПВДДляНастройкиОтбора = ""; ОбъектДляНастройкиОтбора = ""; КодПВДДляНастройкиОтбора = ""; ТипТега = мЧтениеXML.Спуститься(); Пока ПроверитьИмяТипУзла(мЧтениеXML,, ТипТега, мКонецДокумента) = 0 Цикл Если ПроверитьИмяТипУзла(мЧтениеXML, "Ид", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мИд = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ВерсияФормата", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мВерсияФормата = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Наименование", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мНаименование = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ДатаВремяСоздания", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мДатаВремяСоздания = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Источник", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонфигурацияИсточник = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Приемник", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда Узел = мЧтениеXML.ТекущийЭлементВВидеОбъекта(); мКонфигурацияПриемник = Узел.Значение; ВерсияПлатформыПриемника = Узел.ПолучитьАтрибут("ВерсияПлатформы"); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПередВыгрузкойДанных", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПередВыгрузкойДанных = 1; ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПередВыгрузкойОбъекта", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПередВыгрузкойОбъекта = 1; ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПередКонвертациейОбъекта", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПередКонвертациейОбъекта = 1; ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПослеВыгрузкиОбъекта", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПослеВыгрузкиОбъекта = 1; ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПослеВыгрузкиДанных", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПослеВыгрузкиДанных = 1; ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПослеЗагрузкиПравилОбмена", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПослеЗагрузкиПравилОбмена = 1; ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПередЗагрузкойДанных", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПередЗагрузкойДанных = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПередЗагрузкойОбъекта", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПередЗагрузкойОбъекта = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПослеЗагрузкиОбъекта", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПослеЗагрузкиОбъекта = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПослеЗагрузкиДанных", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда мКонвертацияПослеЗагрузкиДанных = ПолучитьЗначениеУзлаИзXML(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПравилаКонвертацииОбъектов", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПравилаКонвертацииОбъектов(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "ПравилаВыгрузкиДанных", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПравилаВыгрузкиДанных(); ИначеЕсли ПроверитьИмяТипУзла(мЧтениеXML, "Параметры", ТипТега, мНачалоНовогоЭлемента) = 1 Тогда ЗагрузитьПараметры(); КонецЕсли; ТипТега = мЧтениеXML.Следующий(); КонецЦикла; Состояние("Загрузка правил обмена завершена."); // Глобальный обработчик "ПослеЗагрузкиПравилОбмена" Если мКонвертацияПослеЗагрузкиПравилОбмена = 1 Тогда Отказ = Шаблон("[Конвертация_ПослеЗагрузкиПравилОбмена()]"); Если Число(Отказ) = 1 Тогда ВывестиСообщение("Ошибка в обработчике ПослеЗагрузкиПравилОбмена!", "!!!"); Возврат 0; КонецЕсли; КонецЕсли; мТаблицаПравилВыгрузки.ВыбратьСтроки(); Пока мТаблицаПравилВыгрузки.ПолучитьСтроку() > 0 Цикл Префикс = ""; Если мТаблицаПравилВыгрузки.ЭтоГруппа = 1 Тогда Наименование = "[ " + СокрЛП(мТаблицаПравилВыгрузки.Наименование) + " ]"; Иначе Наименование = "-" + СокрЛП(мТаблицаПравилВыгрузки.Наименование); КонецЕсли; Для Индекс = 0 По мТаблицаПравилВыгрузки.Уровень - 1 Цикл Префикс = Префикс + " "; КонецЦикла; Наименование = Префикс + Наименование; ПравилаВыгрузкиСписок.ДобавитьЗначение(мТаблицаПравилВыгрузки.Код, Наименование); // Если в обработку был передан список кодов правил выгрузки, будем выгружать // именно их, а не те, которые установлены в правилах выгрузки по умолчанию Если ПустоеЗначение(мИспользуемыеПравилаВыгрузки) = 0 Тогда Если Найти(мИспользуемыеПравилаВыгрузки, мТаблицаПравилВыгрузки.Код) = 0 Тогда Пометка = 0; Иначе Пометка = ?(мТаблицаПравилВыгрузки.Отключить = 1, 0, 1); КонецЕсли; Иначе Пометка = ?(мТаблицаПравилВыгрузки.Отключить = 1, 0, 1); КонецЕсли; ПравилаВыгрузкиСписок.Пометка(ПравилаВыгрузкиСписок.РазмерСписка(), Пометка); КонецЦикла; Возврат 1; КонецФункции // ЗагрузитьПравила() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция НайтиПравило(Объект, ИмяПравила = "") Перем НомерСтроки; Если ПустаяСтрока(СокрЛП(ИмяПравила)) = 0 Тогда мТаблицаПравилКонвертацииОбъектов.НайтиЗначение(СокрЛП(ИмяПравила), НомерСтроки, "Код"); ИначеЕсли ТипЗначения(Объект) < 4 Тогда мТаблицаПравилКонвертацииОбъектов.НайтиЗначение(ТипЗначенияСтр(Объект), НомерСтроки, "Код"); ИначеЕсли ТипЗначения(Объект) < 100 Тогда мТаблицаПравилКонвертацииОбъектов.НайтиЗначение(ТипЗначенияСтр(Объект) + "Ссылка." + Объект.Вид(), НомерСтроки, "Источник"); Иначе НомерСтроки = 0; КонецЕсли; Возврат НомерСтроки; КонецФункции // НайтиПравило() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПолучитьРеквизитПКО(НомерПКО, Реквизит) Возврат мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НомерПКО, Реквизит); КонецФункции // ПолучитьРеквизитПКО() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, Реквизит) Возврат КоллекцияПКС.ПолучитьЗначение(НомерПКС, Реквизит); КонецФункции // ПолучитьРеквизитПКС() //////////////////////////////////////////////////////////////////////////////// // ПРОЦЕДУРЫ И ФУНКЦИИ ДОСТУПА К ДАННЫМ //////////////////////////////////////////////////////////////////////////////// //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ПолучитьЗначение(Объект, Имя) Значение = мПустоеЗначение; Если ТипЗначенияСтр(Объект) = "СписокЗначений" Тогда Значение = Объект.Получить(Имя); ИначеЕсли ТипЗначенияСтр(Объект) = "ТаблицаЗначений" Тогда Значение = Объект.ПолучитьЗначение(Объект.НомерСтроки, Имя); ИначеЕсли ТипЗначенияСтр(Объект) = "Справочник" Тогда Если Имя = "ПометкаУдаления" Тогда Значение = Объект.ПометкаУдаления(); ИначеЕсли Имя = "Код" Тогда Значение = Объект.Код; ИначеЕсли Имя = "Наименование" Тогда Значение = Объект.Наименование; ИначеЕсли Имя = "ЭтоГруппа" Тогда Значение = Объект.ЭтоГруппа(); ИначеЕсли Имя = "Родитель" Тогда Значение = Объект.Родитель; Иначе Попытка Значение = Объект.ПолучитьАтрибут(Имя); Исключение ВывестиСообщение("Ошибка получения значения свойства объекта", "!!!"); ВывестиСообщение(СимволТабуляции + "Объект: " + Строка(Объект) + ", свойство: " + Имя + "."); КонецПопытки; Если ТипЗначенияСтр(Значение) = "НеизвестныйОбъект" Тогда Значение = мПустоеЗначение; КонецЕсли; КонецЕсли; ИначеЕсли ТипЗначенияСтр(Объект) = "Документ" Тогда Если Имя = "ПометкаУдаления" Тогда Значение = Объект.ПометкаУдаления(); ИначеЕсли Имя = "НомерДок" Тогда Значение = Объект.НомерДок; ИначеЕсли Имя = "ДатаДок" Тогда Значение = ПолучитьДатуV8(Объект.ДатаДок, Объект.ПолучитьВремя()); ИначеЕсли Имя = "Проведен" Тогда Значение = Объект.Проведен(); ИначеЕсли Имя = "ТабличнаяЧасть" Тогда Объект.ВыгрузитьТабличнуюЧасть(Значение); Иначе Значение = Объект.ПолучитьАтрибут(Имя); КонецЕсли; ИначеЕсли ТипЗначенияСтр(Объект) = "НеизвестныйОбъект" Тогда // Например, константы Попытка Значение = Объект.ПолучитьАтрибут(Имя); Исключение ВывестиСообщение("Ошибка получения значения свойства объекта", "!!!"); ВывестиСообщение(СимволТабуляции + "Объект: " + Строка(Объект) + ", свойство: " + Имя + "."); КонецПопытки; // Возможно это периодическая константа Если ТипЗначенияСтр(Значение) = "НеизвестныйОбъект" Тогда Попытка Значение = Объект.ПолучитьАтрибут(Имя).Получить(ДатаОкончания); Исключение ВывестиСообщение("Ошибка получения значения свойства объекта", "!!!"); ВывестиСообщение(СимволТабуляции + "Объект: " + Строка(Объект) + ", свойство: " + Имя + "."); КонецПопытки; КонецЕсли; // Тогда уж точно что-то еще нам неизвестное... Если ТипЗначенияСтр(Значение) = "НеизвестныйОбъект" Тогда Значение = мПустоеЗначение; КонецЕсли; КонецЕсли; Возврат Значение; КонецФункции // ПолучитьЗначение() //////////////////////////////////////////////////////////////////////////////// // ПРОЦЕДУРЫ И ФУНКЦИИ ОБРАБОТКИ ВЫГРУЗКИ ПО ПРАВИЛАМ //////////////////////////////////////////////////////////////////////////////// //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВыгрузитьГруппуСвойств(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, КоллекцияПКС, НомерПКГС, УзелКоллекцииСвойств, ВыгрузитьТолькоСсылку = 0) КоллекцияОбъектов = мПустоеЗначение; НеЗамещать = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "НеЗамещать"); НеОчищать = 0; // Обработчик "ПередОбработкойВыгрузки" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ПередОбработкойВыгрузки") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Код"))); Отказ = Шаблон("[ПКГС_ПередОбработкойВыгрузки_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, НеЗамещать, НеОчищать)]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; ВидИсточника = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидИсточника"); ВидПриемника = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидПриемника"); // Создание узла коллекции подчиненных объектов Если ВидПриемника = "ТабличнаяЧасть" Тогда УзелКоллекцииОбъектов = СоздатьУзел("ТабличнаяЧасть"); УстановитьАтрибут(УзелКоллекцииОбъектов, "Имя", ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")); Если НеЗамещать = 1 Тогда УстановитьАтрибут(УзелКоллекцииОбъектов, "НеЗамещать", "true"); КонецЕсли; Если НеОчищать = 1 Тогда УстановитьАтрибут(УзелКоллекцииОбъектов, "НеОчищать", "true"); КонецЕсли; ИначеЕсли Найти(ВидПриемника, "НаборДвижений") > 0 Тогда УзелКоллекцииОбъектов = СоздатьУзел("НаборЗаписей"); УстановитьАтрибут(УзелКоллекцииОбъектов, "Имя", ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")); Если НеЗамещать = 1 Тогда УстановитьАтрибут(УзелКоллекцииОбъектов, "НеЗамещать", "true"); КонецЕсли; Если НеОчищать = 1 Тогда УстановитьАтрибут(УзелКоллекцииОбъектов, "НеОчищать", "true"); КонецЕсли; Иначе // это простая группировка ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "СвойстваГруппы"), УзелКоллекцииСвойств,, СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")), , ВыгрузитьТолькоСсылку); // Обработчик "ПослеОбработкиВыгрузки" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ПослеОбработкиВыгрузки") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Код"))); Отказ = Шаблон("[ПКГС_ПослеОбработкиВыгрузки_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, УзелКоллекцииОбъектов)]"); КонецЕсли; Возврат; КонецЕсли; // Получение коллекции подчиненных объектов Если КоллекцияОбъектов <> мПустоеЗначение Тогда // Инициализировали коллекцию в обработчике ПередОбработкой ИначеЕсли ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ПолучитьИзВходящихДанных") = 1 Тогда КоллекцияОбъектов = ПолучитьЗначение(ВходящиеДанные, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")); ИначеЕсли ВидИсточника = "ТабличнаяЧасть" Тогда КоллекцияОбъектов = ПолучитьЗначение(Источник, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Источник")); ИначеЕсли ПустаяСтрока(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Источник")) = 1 Тогда КоллекцияОбъектов = ПолучитьЗначение(Источник, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")); КонецЕсли; Попытка КоллекцияОбъектов.ВыбратьСтроки(); Исключение ВывестиСообщение("Ошибка выбора объектов коллекции", "!!!"); Возврат; КонецПопытки; Пока КоллекцияОбъектов.ПолучитьСтроку() > 0 Цикл Индекс = 1 + Индекс; КоллекцияОбъектов.ТекущаяСтрока(Индекс); // Обработчик "ПередВыгрузкой" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ПередВыгрузкой") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Код"))); Отказ = Шаблон("[ПКГС_ПередВыгрузкой_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, УзелКоллекцииОбъектов)]"); Если Число(Отказ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; УзелОбъектаКоллекции = СоздатьУзел("Запись"); СтандартнаяОбработка = 1; // Обработчик "ПриВыгрузке" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ПриВыгрузке") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Код"))); Отказ = Шаблон("[ПКГС_ПриВыгрузке_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, УзелКоллекцииОбъектов, УзелОбъектаКоллекции, СтандартнаяОбработка)]"); Если Число(Отказ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; // Выгрузка свойств объекта коллекции Если СтандартнаяОбработка = 1 Тогда СвойстваГруппы = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "СвойстваГруппы"); Если СвойстваГруппы.КоличествоСтрок() > 0 Тогда ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, СвойстваГруппы, УзелОбъектаКоллекции, КоллекцияОбъектов, СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")), , ВыгрузитьТолькоСсылку); Иначе // ПО ПРАВИЛУ КонецЕсли; КонецЕсли; // Обработчик "ПослеВыгрузки" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ПослеВыгрузки") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Код"))); Отказ = Шаблон("[ПКГС_ПослеВыгрузки_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, КоллекцияОбъектов, УзелКоллекцииОбъектов, УзелОбъектаКоллекции)]"); Если Число(Отказ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; ДобавитьПодчиненный(УзелКоллекцииОбъектов, УзелОбъектаКоллекции); КонецЦикла; // Обработчик "ПослеОбработкиВыгрузки" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ПослеОбработкиВыгрузки") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКГС, "Код"))); Отказ = Шаблон("[ПКГС_ПослеОбработкиВыгрузки_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, УзелКоллекцииОбъектов)]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; ДобавитьПодчиненный(УзелКоллекцииСвойств, УзелКоллекцииОбъектов); КонецПроцедуры // ВыгрузитьГруппуСвойств() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВыгрузитьСубконто(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, КоллекцияПКС, НомерПКС, УзелКоллекцииСвойств = 0, ОбъектКоллекции = 0, ПравилоРодитель = "", Знач ВыгрузитьТолькоСсылку = 0) // Инициализация значения Значение = мПустоеЗначение; ИмяПКО = ""; ИмяПКОВидСубконто = ""; НеЗамещать = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "НеЗамещать"); Пусто = 0; Выражение = мПустоеЗначение; ТипПриемника = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ТипПриемника"); // Обработчик "ПередВыгрузкой" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПередВыгрузкой") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + ?(ПустаяСтрока(ПравилоРодитель) = 1, "", ПравилоРодитель + "_") + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Код"))); Отказ = Шаблон("[ПКС_ПередВыгрузкой_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать)]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; Если Значение = мПустоеЗначение Тогда Если ОбъектКоллекции <> мПустоеЗначение Тогда Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПолучитьИзВходящихДанных") = 1 Тогда Значение = ПолучитьЗначение(ВходящиеДанные, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); ИначеЕсли ПустаяСтрока(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")) = 0 Тогда Значение = ПолучитьЗначение(ВходящиеДанные, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")); Иначе Значение = ПолучитьЗначение(ОбъектКоллекции, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); КонецЕсли; ИначеЕсли ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПолучитьИзВходящихДанных") = 1 Тогда Значение = ПолучитьЗначение(ОбъектКоллекции, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); ИначеЕсли ПустаяСтрока(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")) = 0 Тогда Значение = ПолучитьЗначение(Источник, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")); Иначе Значение = ПолучитьЗначение(Источник, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(Значение) <> "ТаблицаЗначений" Тогда ВывестиСообщение("Коллекция субконто не является таблицей значений", "!!!"); Возврат; КонецЕсли; Значение.ВыбратьСтроки(); Пока Значение.ПолучитьСтроку() > 0 Цикл ВидСубконто = Значение.Ключ; Субконто = Значение.Значение; //Обработчик "ПриВыгрузке" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПриВыгрузке") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + ?(ПустаяСтрока(ПравилоРодитель) = 1, "", ПравилоРодитель + "_") + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Код"))); Отказ = Шаблон("[ПКС_ПриВыгрузке_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства)]"); Если Число(Отказ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Субконто) = 0 Тогда УзелСубконто = СоздатьУзел(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); // Ключ УзелСвойства = СоздатьУзел("Свойство"); НомерПКОКлюч = НайтиПравило(, ИмяПКОВидСубконто); УстановитьАтрибут(УзелСвойства, "Имя", "Ключ"); УстановитьАтрибут(УзелСвойства, "Тип", ПолучитьРеквизитПКО(НомерПКОКлюч, "Приемник")); УзелСсылки = ВыгрузитьПоПравилу(ВидСубконто,, ИсходящиеДанные,, ИмяПКОВидСубконто,,ВыгрузитьТолькоСсылку, НомерПКОКлюч); ТипУзлаСсылки = ТипЗначенияСтр(УзелСсылки); Если УзелСсылки = мПустоеЗначение Тогда Продолжить; ИначеЕсли ТипУзлаСсылки = "Строка" Тогда Если Найти(УзелСсылки, "") > 0 Тогда ДобавитьПодчиненный(УзелСвойства, УзелСсылки); Иначе ЗаписатьЭлемент(УзелСвойства, "Значение", УзелСсылки); КонецЕсли; ИначеЕсли ТипУзлаСсылки = "Число" Тогда ЗаписатьЭлемент(УзелСвойства, "Нпп", УзелСсылки); Иначе ДобавитьПодчиненный(УзелСвойства, УзелСсылки.cloneNode(1)); КонецЕсли; ДобавитьПодчиненный(УзелСубконто, УзелСвойства); // Значение УзелСвойства = СоздатьУзел("Свойство"); ТипЗначенияСубконто = ТипЗначенияСтр(Субконто); Если (ИмяПКО = "") И ((ТипЗначенияСубконто = "Строка") ИЛИ (ТипЗначенияСубконто = "Число") ИЛИ (ТипЗначенияСубконто = "Булево") ИЛИ (ТипЗначенияСубконто = "Дата")) Тогда НомерПКОЗначение = 0; ТипПриемника = ТипЗначенияСубконто; Иначе НомерПКОЗначение = НайтиПравило(Субконто, ИмяПКО); ТипПриемника = ПолучитьРеквизитПКО(НомерПКОЗначение, "Приемник"); КонецЕсли; УстановитьАтрибут(УзелСвойства, "Имя", "Значение"); УстановитьАтрибут(УзелСвойства, "Тип", ТипПриемника); УзелСсылки = ВыгрузитьПоПравилу(Субконто,, ИсходящиеДанные,, ИмяПКО,, ВыгрузитьТолькоСсылку, НомерПКОЗначение); ТипУзлаСсылки = ТипЗначенияСтр(УзелСсылки); Если УзелСсылки = мПустоеЗначение Тогда Продолжить; ИначеЕсли ТипУзлаСсылки = "Строка" Тогда Если Найти(УзелСсылки, "") > 0 Тогда ДобавитьПодчиненный(УзелСвойства, УзелСсылки); Иначе ЗаписатьЭлемент(УзелСвойства, "Значение", УзелСсылки); КонецЕсли; ИначеЕсли ТипУзлаСсылки = "Число" Тогда ЗаписатьЭлемент(УзелСвойства, "Нпп", УзелСсылки); Иначе ДобавитьПодчиненный(УзелСвойства, УзелСсылки.cloneNode(1)); КонецЕсли; ДобавитьПодчиненный(УзелСубконто, УзелСвойства); // Обработчик "ПослеВыгрузки" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПослеВыгрузки") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + ?(ПустаяСтрока(ПравилоРодитель) = 1, "", ПравилоРодитель + "_") + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Код"))); Отказ = Шаблон("[ПКС_ПослеВыгрузки_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ВидСубконто, Субконто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства, УзелСсылки)]"); КонецЕсли; ДобавитьПодчиненный(УзелКоллекцииСвойств, УзелСубконто); КонецЕсли; КонецЦикла; КонецПроцедуры // ВыгрузитьСубконто() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, КоллекцияПКС, УзелКоллекцииСвойств = 0, ОбъектКоллекции = 0, ПравилоРодитель = "", ИмяПредопределенногоЭлемента = "", Знач ВыгрузитьТолькоСсылку = 0) Если УзелКоллекцииСвойств = 0 Тогда УзелКоллекцииСвойств = Приемник; КонецЕсли; // Выгружаем имя предопределенного если оно указано Если ПустаяСтрока(ИмяПредопределенногоЭлемента) = 0 Тогда УзелСвойства = СоздатьУзел("Свойство"); УстановитьАтрибут(УзелСвойства, "Имя", "{ИмяПредопределенногоЭлемента}"); УстановитьАтрибут(УзелСвойства, "Тип", "Строка"); ЗаписатьЭлемент(УзелСвойства, "Значение", ИмяПредопределенногоЭлемента); ДобавитьПодчиненный(УзелКоллекцииСвойств, УзелСвойства); КонецЕсли; Если ПустоеЗначение(КоллекцияПКС) = 1 Тогда Возврат; КонецЕсли; Для НомерПКС = 1 По КоллекцияПКС.КоличествоСтрок() Цикл Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ВидПриемника") = "ВидыСубконтоСчета" Тогда ВыгрузитьСубконто(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, КоллекцияПКС, НомерПКС, УзелКоллекцииСвойств, ОбъектКоллекции, ПравилоРодитель, ВыгрузитьТолькоСсылку); Продолжить; КонецЕсли; Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ЭтоГруппа") = 1 Тогда ВыгрузитьГруппуСвойств(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, КоллекцияПКС, НомерПКС, УзелКоллекцииСвойств, ВыгрузитьТолькоСсылку); Продолжить; КонецЕсли; //Инициализация конвертируемого значения Значение = мПустоеЗначение; ИмяПКО = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "КодПравилаКонвертации"); ИмяПКОВидСубконто = ""; НеЗамещать = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "НеЗамещать"); Пусто = 0; Выражение = мПустоеЗначение; ТипПриемника = ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ТипПриемника"); // Обработчик "ПередВыгрузкой" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПередВыгрузкой") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + ?(ПустаяСтрока(ПравилоРодитель) = 1, "", ПравилоРодитель + "_") + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Код"))); Отказ = Шаблон("[ПКС_ПередВыгрузкой_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, ТипПриемника, ИмяПКО, ИмяПКОВидСубконто, Пусто, Выражение, НеЗамещать)]"); Если Число(Отказ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; // Создаем узел свойства УзелСвойства = СоздатьУзел("Свойство"); УстановитьАтрибут(УзелСвойства, "Имя", ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); Если НеЗамещать = 1 Тогда УстановитьАтрибут(УзелСвойства, "НеЗамещать", "true"); КонецЕсли; // Возможно правило конвертации уже определено НомерПКОСвойств = мПустоеЗначение; Если ПустаяСтрока(ИмяПКО) = 0 Тогда НомерПКОСвойств = НайтиПравило(, ИмяПКО); КонецЕсли; // Попытка определить тип свойства приемника Если ПустаяСтрока(ТипПриемника) = 0 Тогда УстановитьАтрибут(УзелСвойства, "Тип", ТипПриемника); ИначеЕсли НомерПКОСвойств <> мПустоеЗначение Тогда ТипПриемника = ПолучитьРеквизитПКО(НомерПКОСвойств, "Приемник"); УстановитьАтрибут(УзелСвойства, "Тип", ТипПриемника); КонецЕсли; // Определяем конвертируемое значение Если Выражение <> мПустоеЗначение Тогда ЗаписатьЭлемент(УзелСвойства, "Выражение", Выражение); ДобавитьПодчиненный(УзелКоллекцииСвойств, УзелСвойства); Продолжить; ИначеЕсли Пусто = 1 Тогда Если ПустаяСтрока(ТипПриемника) = 1 Тогда Продолжить; КонецЕсли; ЗаписатьЭлемент(УзелСвойства, "Пусто"); ДобавитьПодчиненный(УзелКоллекцииСвойств, УзелСвойства); Продолжить; ИначеЕсли Значение = мПустоеЗначение Тогда Если ОбъектКоллекции <> 0 Тогда Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПолучитьИзВходящихДанных") = 1 Тогда Попытка Значение = ПолучитьЗначение(ВходящиеДанные, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); Исключение ВывестиСообщение("Ошибка получения свойства из входящих данных", "!!!"); КонецПопытки; ИначеЕсли ПустаяСтрока(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")) = 0 Тогда Попытка Значение = ПолучитьЗначение(ОбъектКоллекции, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")); Исключение ВывестиСообщение("Ошибка получения свойства из объекта коллекции. Свойство: "+ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник"), "!!!"); КонецПопытки; Иначе Попытка Значение = ПолучитьЗначение(ОбъектКоллекции, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); Исключение ВывестиСообщение("Ошибка получения свойства из объекта коллекции. Свойство: "+ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник"), "!!!"); КонецПопытки; КонецЕсли; ИначеЕсли ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПолучитьИзВходящихДанных") = 1 Тогда Попытка Значение = ПолучитьЗначение(ВходящиеДанные, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); Исключение КонецПопытки; ИначеЕсли ПустаяСтрока(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")) = 0 Тогда Попытка Значение = ПолучитьЗначение(Источник, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Источник")); Исключение КонецПопытки; Иначе // получаем конвертируемое значение по имени свойства приемника Попытка Значение = ПолучитьЗначение(Источник, ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")); Исключение КонецПопытки; КонецЕсли; КонецЕсли; Пусто = ПустоеЗначение(Значение); //Обработчик "ПриВыгрузке" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПриВыгрузке") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + ?(ПустаяСтрока(ПравилоРодитель) = 1, "", ПравилоРодитель + "_") + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Код"))); Отказ = Шаблон("[ПКС_ПриВыгрузке_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, """", """", Пусто, ИмяПКО, ИмяПКОВидСубконто, УзелСвойства)]"); Если Число(Отказ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Пусто = ПустоеЗначение(Значение); Если Пусто = 1 Тогда Если ПустаяСтрока(ТипПриемника) = 1 Тогда Продолжить; КонецЕсли; ЗаписатьЭлемент(УзелСвойства, "Пусто"); ДобавитьПодчиненный(УзелКоллекцииСвойств, УзелСвойства); Продолжить; КонецЕсли; УзелСсылки = мПустоеЗначение; Если (НомерПКОСвойств <> мПустоеЗначение) ИЛИ (ПустаяСтрока(ИмяПКО) = 0) Тогда УзелСсылки = ВыгрузитьПоПравилу(Значение,, ИсходящиеДанные,, ИмяПКО,, ВыгрузитьТолькоСсылку, НомерПКОСвойств); ТипУзлаСсылки = ТипЗначенияСтр(УзелСсылки); Если ПустаяСтрока(ТипПриемника) = 1 Тогда ТипПриемника = ПолучитьРеквизитПКО(НомерПКОСвойств, "Приемник"); УстановитьАтрибут(УзелСвойства, "Тип", ТипПриемника); КонецЕсли; Если УзелСсылки = мПустоеЗначение Тогда Продолжить; ИначеЕсли ТипУзлаСсылки = "Строка" Тогда Если Найти(УзелСсылки, "") > 0 Тогда ДобавитьПодчиненный(УзелСвойства, УзелСсылки); Иначе ЗаписатьЭлемент(УзелСвойства, "Значение", УзелСсылки); КонецЕсли; ИначеЕсли ТипУзлаСсылки = "Число" Тогда ЗаписатьЭлемент(УзелСвойства, "Нпп", УзелСсылки); Иначе ДобавитьПодчиненный(УзелСвойства, УзелСсылки.cloneNode(1)); КонецЕсли; Иначе ТипЗнач = ТипЗначенияСтр(Значение); Если ТипЗнач = "Строка" Тогда Если ТипПриемника = "Строка" Тогда ИначеЕсли ТипПриемника = "Число" Тогда Значение = Число(Значение); ИначеЕсли ТипПриемника = "Булево" Тогда Значение = Значение; ИначеЕсли ТипПриемника = "Дата" Тогда Значение = Значение; ИначеЕсли ПустаяСтрока(ТипПриемника) = 1 Тогда УстановитьАтрибут(УзелСвойства, "Тип", "Строка"); Иначе КонецЕсли; ЗаписатьЭлемент(УзелСвойства, "Значение", Значение); ИначеЕсли ТипЗнач = "Число" Тогда Если ТипПриемника = "Число" Тогда ИначеЕсли ТипПриемника = "Булево" Тогда Значение = ПривестиЗначениеКБулево(Значение); ИначеЕсли ТипПриемника = "Строка" Тогда ИначеЕсли ПустаяСтрока(ТипПриемника) = 1 Тогда УстановитьАтрибут(УзелСвойства, "Тип", "Число"); Иначе Продолжить; КонецЕсли; ЗаписатьЭлемент(УзелСвойства, "Значение", Значение); ИначеЕсли ТипЗнач = "Дата" Тогда Если ТипПриемника = "Дата" Тогда Значение = ПолучитьДатуV8(Значение); ИначеЕсли ТипПриемника = "Строка" Тогда Значение = Строка(Значение); ИначеЕсли ПустаяСтрока(ТипПриемника) = 1 Тогда УстановитьАтрибут(УзелСвойства, "Тип", "Дата"); Иначе Продолжить; КонецЕсли; ЗаписатьЭлемент(УзелСвойства, "Значение", Значение); Иначе НомерПКОСвойств = НайтиПравило(Значение, ""); Если НомерПКОСвойств > 0 Тогда ИмяПКО = ПолучитьРеквизитПКО(НомерПКОСвойств, "Код"); Если ПустаяСтрока(ТипПриемника) = 1 Тогда ТипПриемника = ПолучитьРеквизитПКО(НомерПКОСвойств, "Приемник"); УстановитьАтрибут(УзелСвойства, "Тип", ТипПриемника); КонецЕсли; УзелСсылки = ВыгрузитьПоПравилу(Значение,, ИсходящиеДанные,, ИмяПКО,, ВыгрузитьТолькоСсылку, НомерПКОСвойств); ТипУзлаСсылки = ТипЗначенияСтр(УзелСсылки); Если УзелСсылки = мПустоеЗначение Тогда Продолжить; ИначеЕсли ТипУзлаСсылки = "Строка" Тогда Если Найти(УзелСсылки, "") > 0 Тогда ДобавитьПодчиненный(УзелСвойства, УзелСсылки); Иначе ЗаписатьЭлемент(УзелСвойства, "Значение", УзелСсылки); КонецЕсли; ИначеЕсли ТипУзлаСсылки = "Число" Тогда ЗаписатьЭлемент(УзелСвойства, "Нпп", УзелСсылки); Иначе ДобавитьПодчиненный(УзелСвойства, УзелСсылки.cloneNode(1)); КонецЕсли; Иначе Продолжить; КонецЕсли; КонецЕсли; КонецЕсли; // Обработчик "ПослеВыгрузки" Если ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ПослеВыгрузки") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")) + "_" + ?(ПустаяСтрока(ПравилоРодитель) = 1, "", ПравилоРодитель + "_") + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Приемник")) + "_" + СокрЛП(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "ВидПриемника")) + СокрЛП(Строка(ПолучитьРеквизитПКС(КоллекцияПКС, НомерПКС, "Код"))); Отказ = Шаблон("[ПКС_ПослеВыгрузки_" + КодПравила + "(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКС, НомерПКО, ОбъектКоллекции, Значение, """", """", ИмяПКО, ИмяПКОВидСубконто, УзелСвойства, УзелСсылки)]"); Если Число(Отказ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; ДобавитьПодчиненный(УзелКоллекцииСвойств, УзелСвойства); КонецЦикла; // по ПКС КонецПроцедуры // ВыгрузитьСвойства() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция ВыгрузитьПоПравилу(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО = "", УзелСсылки = "", ТолькоПолучитьУзелСсылки = 0, НомерПКО = 0) // Поиск ПКО Если НомерПКО = 0 Тогда НомерПКО = НайтиПравило(Источник, ИмяПКО); Если НомерПКО = 0 Тогда ВывестиСообщение("Не найдено правило конвертации объекта: " + Строка(Источник), "!!!"); Возврат мПустоеЗначение; КонецЕсли; ИначеЕсли ПустаяСтрока(ИмяПКО) = 0 Тогда НомерПКО = НайтиПравило(Источник, ИмяПКО); Если НомерПКО = 0 Тогда ВывестиСообщение("Не найдено правило конвертации объекта: " + ИмяПКО, "!!!"); Возврат мПустоеЗначение; КонецЕсли; КонецЕсли; Если КомментироватьВыгрузкуОбъектов = 1 Тогда ВывестиСообщение("Конвертация объекта или получение ссылки: " + Строка(Источник) + " (" + ТипЗначенияСтр(Источник) + ")"); КонецЕсли; НеЗапоминатьВыгруженные = ПолучитьРеквизитПКО(НомерПКО, "НеЗапоминатьВыгруженные"); НеВыгружатьОбъектыСвойствПоСсылкам = ПолучитьРеквизитПКО(НомерПКО, "НеВыгружатьОбъектыСвойствПоСсылкам"); ВыгруженныеОбъекты = ПолучитьРеквизитПКО(НомерПКО, "Выгруженные"); ВсеОбъектыВыгружены = ПолучитьРеквизитПКО(НомерПКО, "ВсеОбъектыВыгружены"); НеЗамещатьОбъектПриЗагрузке = ПолучитьРеквизитПКО(НомерПКО, "НеЗамещать"); НеСоздаватьЕслиНеНайден = ПолучитьРеквизитПКО(НомерПКО, "НеСоздаватьЕслиНеНайден"); РежимЗаписи = ""; РежимПроведения = ""; // Ключ выгружаемых данных Если (ПустоеЗначение(Источник) = 0) И (НеЗапоминатьВыгруженные = 0) Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(Источник); Иначе КлючВыгружаемыхДанных = НомерПКО; НеЗапоминатьВыгруженные = 1; КонецЕсли; // Переменная для хранения имени предопределенного элемента ИмяПредопределенногоЭлемента = ""; // Глобальный обработчик "ПередКонвертациейОбъекта" Если мКонвертацияПередКонвертациейОбъекта = 1 Тогда Отказ = Шаблон("[Конвертация_ПередКонвертациейОбъекта(Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения)]"); Если Число(Отказ) = 1 Тогда Возврат мПустоеЗначение; КонецЕсли; КонецЕсли; // Обработчик "ПередВыгрузкой" Если ПолучитьРеквизитПКО(НомерПКО, "ПередВыгрузкой") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")); Отказ = Шаблон("[ПКО_ПередВыгрузкой_" + КодПравила + "(Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, КлючВыгружаемыхДанных, НеЗапоминатьВыгруженные, НеЗамещатьОбъектПриЗагрузке, НеСоздаватьЕслиНеНайден, ВсеОбъектыВыгружены, ТолькоПолучитьУзелСсылки, Приемник, РежимЗаписи, РежимПроведения)]"); Если Число(Отказ) = 1 Тогда Возврат мПустоеЗначение; КонецЕсли; КонецЕсли; // Возможно, такие данные уже выгружались Если ВсеОбъектыВыгружены = 0 Тогда Если НеЗапоминатьВыгруженные = 0 Тогда УзелСсылки = ВыгруженныеОбъекты.Получить(КлючВыгружаемыхДанных); Если ПустоеЗначение(УзелСсылки) = 0 Тогда Возврат УзелСсылки; КонецЕсли; КонецЕсли; Состояние("Выгружено объектов: " + мСчетчикВыгруженныхОбъектов); мСчетчикВыгруженныхОбъектов = 1 + мСчетчикВыгруженныхОбъектов; Нпп = мСчетчикВыгруженныхОбъектов; // Это позволит избежать циклических ссылок Если НеЗапоминатьВыгруженные = 0 Тогда ВыгруженныеОбъекты.Установить(КлючВыгружаемыхДанных, Нпп); КонецЕсли; КонецЕсли; СписокЗначенийВрем = ПолучитьРеквизитПКО(НомерПКО, "Значения"); СписокЗначений = СоздатьОбъект("СписокЗначений"); СписокЗначенийВрем.выгрузить(СписокЗначений); Если (ВерсияПлатформыПриемника = "8.0") Или (ВерсияПлатформыПриемника = "УП") Тогда Если ТипЗначения(Источник) <> 10 Тогда // Поиск в списке значений Если (ТипЗначения(Источник) = 16) Тогда //вид субконто ИмяПредопределенногоЭлемента = СписокЗначений.Получить(Строка(Источник.Идентификатор())); ИначеЕсли (ТипЗначения(Источник) = 14) Тогда //вид расчета ИмяПредопределенногоЭлемента = СписокЗначений.Получить(Строка(Источник.Код)); Иначе ИмяПредопределенногоЭлемента = СписокЗначений.Получить(Строка(Источник)); КонецЕсли; СписокЗначений.УдалитьВсе(); Иначе ИмяПредопределенногоЭлемента = ""; КонецЕсли; КонецЕсли; Если СписокЗначений.РазмерСписка() = 0 Тогда СвойстваПоиска = ПолучитьРеквизитПКО(НомерПКО, "СвойстваПоиска"); Если (СвойстваПоиска.КоличествоСтрок() > 0) ИЛИ (ПустаяСтрока(ИмяПредопределенногоЭлемента) = 0) Тогда Если (НеВыгружатьОбъектыСвойствПоСсылкам = 1) ИЛИ (ТолькоПолучитьУзелСсылки = 1) Тогда ВыгрузитьТолькоСсылку = 1; Иначе ВыгрузитьТолькоСсылку = 0; КонецЕсли; // Формируем узел ссылки УзелСсылки = СоздатьУзел("Ссылка"); Если (НеЗапоминатьВыгруженные = 0) И (ВсеОбъектыВыгружены = 0) Тогда УстановитьАтрибут(УзелСсылки, "Нпп", Нпп); Если НеСоздаватьЕслиНеНайден = 1 Тогда УстановитьАтрибут(УзелСсылки, "НеСоздаватьЕслиНеНайден", "true"); КонецЕсли; ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, ПолучитьРеквизитПКО(НомерПКО, "СвойстваПоиска"), УзелСсылки, , , ИмяПредопределенногоЭлемента, ВыгрузитьТолькоСсылку); ВыгруженныеОбъекты.Установить(КлючВыгружаемыхДанных, УзелСсылки); Иначе ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, ПолучитьРеквизитПКО(НомерПКО, "СвойстваПоиска"), УзелСсылки, , , ИмяПредопределенногоЭлемента, ВыгрузитьТолькоСсылку); КонецЕсли; Иначе УзелСсылки = Нпп; КонецЕсли; Иначе // Поиск в списке значений Если (ТипЗначения(Источник) = 10) ИЛИ (ТипЗначения(Источник) = 16) Тогда //Перечисление или вид субконто УзелСсылки = СписокЗначений.Получить(Строка(Источник.Идентификатор())); Иначе УзелСсылки = СписокЗначений.Получить(Строка(Источник)); КонецЕсли; Если УзелСсылки = мПустоеЗначение Тогда ВывестиСообщение("Значение не найдено: " + Строка(Источник), "!!!"); Возврат мПустоеЗначение; КонецЕсли; Если НеЗапоминатьВыгруженные = 0 Тогда ВыгруженныеОбъекты.Установить(КлючВыгружаемыхДанных, УзелСсылки); КонецЕсли; Возврат УзелСсылки; КонецЕсли; Если (ТолькоПолучитьУзелСсылки = 1) ИЛИ (ВсеОбъектыВыгружены = 1) Тогда Возврат УзелСсылки; КонецЕсли; Если Приемник = мПустоеЗначение Тогда Приемник = СоздатьУзел("Объект"); УстановитьАтрибут(Приемник, "Нпп", Нпп); УстановитьАтрибут(Приемник, "Тип", ПолучитьРеквизитПКО(НомерПКО, "Приемник")); УстановитьАтрибут(Приемник, "ИмяПравила", ПолучитьРеквизитПКО(НомерПКО, "Код")); Если НеЗамещатьОбъектПриЗагрузке = 1 Тогда УстановитьАтрибут(Приемник, "НеЗамещать", "true"); КонецЕсли; Если ПустаяСтрока(РежимЗаписи) = 0 Тогда УстановитьАтрибут(Приемник, "РежимЗаписи", РежимЗаписи); Если ПустаяСтрока(РежимПроведения) = 0 Тогда УстановитьАтрибут(Приемник, "РежимПроведения", РежимПроведения); КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(УзелСсылки) <> "Число" Тогда ДобавитьПодчиненный(Приемник, УзелСсылки.cloneNode(1)); КонецЕсли; КонецЕсли; СтандартнаяОбработка = 1; // Обработчик "ПриВыгрузке" Если ПолучитьРеквизитПКО(НомерПКО, "ПриВыгрузке") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")); Отказ = Шаблон("[ПКО_ПриВыгрузке_" + КодПравила + "(Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, СтандартнаяОбработка, Приемник, УзелСсылки)]"); КонецЕсли; // Выгрузка свойств Если СтандартнаяОбработка = 1 Тогда Если (НеВыгружатьОбъектыСвойствПоСсылкам = 1) ИЛИ (ТолькоПолучитьУзелСсылки = 1) Тогда ВыгрузитьТолькоСсылку = 1; Иначе ВыгрузитьТолькоСсылку = 0; КонецЕсли; ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, НомерПКО, ПолучитьРеквизитПКО(НомерПКО, "Свойства"), , , , , ВыгрузитьТолькоСсылку); КонецЕсли; // Обработчик ПослеВыгрузки Если ПолучитьРеквизитПКО(НомерПКО, "ПослеВыгрузки") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")); Отказ = Шаблон("[ПКО_ПослеВыгрузки_" + КодПравила + "(Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, Приемник, УзелСсылки)]"); Если Число(Отказ) = 1 Тогда Возврат УзелСсылки; КонецЕсли; КонецЕсли; // Запись объекта ДобавитьПодчиненный(rootNode, Приемник); // Обработчик ПослеВыгрузкиВФайлОбмена Если ПолучитьРеквизитПКО(НомерПКО, "ПослеВыгрузкиВФайл") = 1 Тогда КодПравила = СокрЛП(ПолучитьРеквизитПКО(НомерПКО, "Код")); Отказ = Шаблон("[ПКО_ПослеВыгрузкиВФайлОбмена_" + КодПравила + "(Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, Приемник, УзелСсылки)]"); Если Число(Отказ) = 1 Тогда Возврат УзелСсылки; КонецЕсли; КонецЕсли; Возврат УзелСсылки; КонецФункции // ВыгрузитьПоПравилу() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВыгрузкаОбъектаВыборки(Объект, Правило, ВходящиеДанные) Перем ИсходящиеДанные; Если КомментироватьВыгрузкуОбъектов = 1 Тогда Попытка ПредставлениеОбъекта = Строка(Объект) + " (" + ТипЗначенияСтр(Объект) + ")"; ВывестиСообщение("Выгрузка объекта выборки: " + ПредставлениеОбъекта); Исключение ВывестиСообщение("Выгрузка объекта выборки: " + ТипЗначенияСтр(Объект)); КонецПопытки; КонецЕсли; ИмяПКО = ""; НомерПКО = НайтиПравило(, Правило.КодПравилаКонвертации); // Глобальный обработчик "ПередВыгрузкойОбъекта" Если мКонвертацияПередВыгрузкойОбъекта = 1 Тогда Отказ = Шаблон("[Конвертация_ПередВыгрузкойОбъекта(ИмяПКО, Правило, Объект, ИсходящиеДанные, ВходящиеДанные)]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; // Обработчик "ПередВыгрузкойОбъекта" Если Правило.ПередВыгрузкойОбъекта = 1 Тогда Отказ = Шаблон("[ПВД_ПередВыгрузкойОбъекта_" + СокрЛП(Правило.Код) + "(ИмяПКО, Правило, Объект, ИсходящиеДанные, ВходящиеДанные)]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; УзелСсылки = мПустоеЗначение; ВыгрузитьПоПравилу(Объект,, ИсходящиеДанные,, ИмяПКО, УзелСсылки,, НомерПКО); // Глобальный обработчик "ПослеВыгрузкиОбъекта" Если мКонвертацияПослеВыгрузкиОбъекта = 1 Тогда Отказ = Шаблон("[Конвертация_ПослеВыгрузкиОбъекта(ИмяПКО, Правило, Объект, ИсходящиеДанные, ВходящиеДанные, УзелСсылки)]"); КонецЕсли; // Обработчик "ПослеВыгрузкиОбъекта" Если Правило.ПослеВыгрузкиОбъекта = 1 Тогда Отказ = Шаблон("[ПВД_ПослеВыгрузкиОбъекта_" + СокрЛП(Правило.Код) + "(ИмяПКО, Правило, Объект, ИсходящиеДанные, ВходящиеДанные, УзелСсылки)]"); КонецЕсли; КонецПроцедуры // ВыгрузкаОбъектаВыборки() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВыгрузитьДанныеПоПравилу(ИмяПравилаВыгрузки) Перем ИсходящиеДанные, ВыборкаДанных; Перем Индекс; мТаблицаПравилВыгрузки.НайтиЗначение(ИмяПравилаВыгрузки, Индекс, "Код"); Если Индекс = 0 Тогда ВывестиСообщение("Не найдено правило выгрузки: " + ИмяПравилаВыгрузки, "!!"); Возврат; КонецЕсли; Правило = мТаблицаПравилВыгрузки; ИмяПКО = мТаблицаПравилВыгрузки.КодПравилаКонвертации; Если КомментироватьВыгрузкуОбъектов = 1 Тогда ВывестиСообщение("Начало обработки правила выгрузки данных: " + ИмяПравилаВыгрузки); КонецЕсли; // Обработчик "ПередОбработкойПравила" Если Правило.ПередОбработкойПравила = 1 Тогда Отказ = Шаблон("[ПВД_ПередОбработкойПравила_" + СокрЛП(Правило.Код) + "(ИмяПКО, Правило, ИсходящиеДанные, ВыборкаДанных)]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; // Выборка данных Если Правило.СпособОтбораДанных = "СтандартнаяВыборка" Тогда ЕстьОтбор = 0; Если ТипЗначенияСтр(мТаблицаПравилВыгрузки.Отбор) = "ТаблицаЗначений" Тогда мТаблицаПравилВыгрузки.Отбор.ВыбратьСтроки(); Пока мТаблицаПравилВыгрузки.Отбор.ПолучитьСтроку() = 1 Цикл Если (мТаблицаПравилВыгрузки.Отбор.Использовать = 2) И (ПустаяСтрока(мТаблицаПравилВыгрузки.Отбор.ПолеОтбора)=0) Тогда ЕстьОтбор = 1; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; ОбъектВыборки = СтрЗаменить(Правило.ОбъектВыборки, "Ссылка", ""); ИмяТипа = Лев(ОбъектВыборки, Найти(ОбъектВыборки, ".") - 1); Если ЕстьОтбор = 1 Тогда Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = СоздатьЗапрос(ОбъектВыборки, мТаблицаПравилВыгрузки.Отбор); Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Сообщить("Ошибка при выполнении запроса для отбора данных по правилу " + мТаблицаПравилВыгрузки.Наименование,"!"); Сообщить("Выгрузка данных по этому правилу не проведена!","!"); Возврат; КонецЕсли; Пока Запрос.Группировка("ПеремОбъект") = 1 Цикл ВыгрузкаОбъектаВыборки(Запрос.ПеремОбъект, Правило, ИсходящиеДанные); КонецЦикла; Иначе Если ИмяТипа = "Справочник" Тогда Выборка = СоздатьОбъект(ОбъектВыборки); Выборка.ВыбратьЭлементы(0); Пока Выборка.ПолучитьЭлемент() > 0 Цикл ВыгрузкаОбъектаВыборки(Выборка.ТекущийЭлемент(), Правило, ИсходящиеДанные); КонецЦикла; ИначеЕсли ИмяТипа = "Документ" Тогда Выборка = СоздатьОбъект(ОбъектВыборки); Выборка.ВыбратьДокументы(ДатаНачала, ДатаОкончания); Пока Выборка.ПолучитьДокумент() > 0 Цикл ВыгрузкаОбъектаВыборки(Выборка.ТекущийДокумент(), Правило, ИсходящиеДанные); КонецЦикла; ИначеЕсли ОбъектВыборки = "КонстантыНабор" Тогда ВыгрузкаОбъектаВыборки(Константа, Правило, ИсходящиеДанные); ИначеЕсли ИмяТипа = "ПланСчетов" Тогда Возврат; Иначе Возврат; КонецЕсли; КонецЕсли; ИначеЕсли Правило.СпособОтбораДанных = "ПроизвольныйАлгоритм" Тогда Если ПустоеЗначение(ВыборкаДанных) = 0 Тогда Если ТипЗначенияСтр(ВыборкаДанных) = "ТаблицаЗначений" Тогда ВыборкаДанных.ВыбратьСтроки(); Пока ВыборкаДанных.ПолучитьСтроку() > 0 Цикл ВыборкаДанных.ТекущаяСтрока(ВыборкаДанных.НомерСтроки); ВыгрузкаОбъектаВыборки(ВыборкаДанных, Правило, ИсходящиеДанные); КонецЦикла; ИначеЕсли ТипЗначенияСтр(ВыборкаДанных) = "СписокЗначений" Тогда СчетчикЦикла = 0; Для СчетчикЦикла = 1 По ВыборкаДанных.РазмерСписка() Цикл ОбъектДляВыгрузки = ВыборкаДанных.ПолучитьЗначение(СчетчикЦикла); ВыгрузкаОбъектаВыборки(ОбъектДляВыгрузки, Правило, ИсходящиеДанные); КонецЦикла; Иначе Возврат; КонецЕсли; Иначе Возврат; КонецЕсли; КонецЕсли; // Обработчик "ПослеОбработкиПравила" Если Правило.ПослеОбработкиПравила = 1 Тогда Отказ = Шаблон("[ПВД_ПослеОбработкиПравила_" + СокрЛП(Правило.Код) + "(ИмяПКО, Правило, ИсходящиеДанные)]"); КонецЕсли; КонецПроцедуры // ВыгрузитьДанныеПоПравилу() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВывестиОбрабатываемоеПравило(ИмяПравила) Форма.ВывестиОбрабатываемоеПравило.Заголовок(ИмяПравила); КонецПроцедуры // ВывестиОбрабатываемоеПравило(ИмяПравила) //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ОбработатьПравилаВыгрузки() мТаблицаПравилВыгрузки.ВыбратьСтроки(); Пока мТаблицаПравилВыгрузки.ПолучитьСтроку() = 1 Цикл Отключено = 0; Позиция = ПравилаВыгрузкиСписок.НайтиЗначение(мТаблицаПравилВыгрузки.Код); Если Позиция > 0 Тогда Отключено = ?(ПравилаВыгрузкиСписок.Пометка(Позиция) = 1, 0, 1); Иначе Отключено = мТаблицаПравилВыгрузки.Отключить; КонецЕсли; Если Отключено = 1 Тогда Продолжить; КонецЕсли; ВывестиОбрабатываемоеПравило(?(ПустоеЗначение(мТаблицаПравилВыгрузки.Наименование) = 1, мТаблицаПравилВыгрузки.Код, мТаблицаПравилВыгрузки.Наименование)); ВыгрузитьДанныеПоПравилу(мТаблицаПравилВыгрузки.Код); КонецЦикла; КонецПроцедуры // ОбработатьПравилаВыгрузки() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ИнициализацияФайлаОбмена() УстановитьАтрибут(rootNode, "ВерсияФормата", "2.0"); УстановитьАтрибут(rootNode, "ДатаВыгрузки", ПолучитьДатуV8(ТекущаяДата(), ТекущееВремя())); УстановитьАтрибут(rootNode, "НачалоПериодаВыгрузки", ПолучитьДатуV8(ДатаНачала)); УстановитьАтрибут(rootNode, "ОкончаниеПериодаВыгрузки", ПолучитьДатуV8(ДатаОкончания)); УстановитьАтрибут(rootNode, "ИмяКонфигурацииИсточника", мКонфигурацияИсточник); УстановитьАтрибут(rootNode, "ИмяКонфигурацииПриемника", мКонфигурацияПриемник); УстановитьАтрибут(rootNode, "ИдПравилКонвертации", мИд); УстановитьАтрибут(rootNode, "Комментарий", ""); // Правила обмена УзелПравилаОбмена = СоздатьУзел("ПравилаОбмена"); УстановитьАтрибут(УзелПравилаОбмена, "ВерсияФормата", мВерсияФормата); УстановитьАтрибут(УзелПравилаОбмена, "Ид", мИд); УстановитьАтрибут(УзелПравилаОбмена, "Наименование", мНаименование); УстановитьАтрибут(УзелПравилаОбмена, "ДатаВремяСоздания", мДатаВремяСоздания); УстановитьАтрибут(УзелПравилаОбмена, "Источник", мКонфигурацияИсточник); УстановитьАтрибут(УзелПравилаОбмена, "Приемник", мКонфигурацияПриемник); // Обработчики Если ПустоеЗначение(мКонвертацияПередЗагрузкойДанных) = 0 Тогда ЗаписатьЭлемент(УзелПравилаОбмена, "ПередЗагрузкойДанных", мКонвертацияПередЗагрузкойДанных); КонецЕсли; Если ПустоеЗначение(мКонвертацияПередЗагрузкойОбъекта) = 0 Тогда ЗаписатьЭлемент(УзелПравилаОбмена, "ПередЗагрузкойОбъекта", мКонвертацияПередЗагрузкойОбъекта); КонецЕсли; Если ПустоеЗначение(мКонвертацияПослеЗагрузкиОбъекта) = 0 Тогда ЗаписатьЭлемент(УзелПравилаОбмена, "ПослеЗагрузкиОбъекта", мКонвертацияПослеЗагрузкиОбъекта); КонецЕсли; Если ПустоеЗначение(мКонвертацияПослеЗагрузкиДанных) = 0 Тогда ЗаписатьЭлемент(УзелПравилаОбмена, "ПослеЗагрузкиДанных", мКонвертацияПослеЗагрузкиДанных); КонецЕсли; // ПКО УзелПКО = СоздатьУзел("ПравилаКонвертацииОбъектов"); мТаблицаПравилКонвертацииОбъектов.ВыбратьСтроки(); Пока мТаблицаПравилКонвертацииОбъектов.ПолучитьСтроку() > 0 Цикл УзелПравило = СоздатьУзел("Правило"); ЗаписатьЭлемент(УзелПравило, "Код", мТаблицаПравилКонвертацииОбъектов.Код); ЗаписатьЭлемент(УзелПравило, "Источник", мТаблицаПравилКонвертацииОбъектов.Источник); ЗаписатьЭлемент(УзелПравило, "Приемник", мТаблицаПравилКонвертацииОбъектов.Приемник); Если ПустоеЗначение(мТаблицаПравилКонвертацииОбъектов.НеЗамещать) = 0 Тогда ЗаписатьЭлемент(УзелПравило, "НеЗамещать", мТаблицаПравилКонвертацииОбъектов.НеЗамещать); КонецЕсли; Если ПустоеЗначение(мТаблицаПравилКонвертацииОбъектов.ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли) = 0 Тогда ЗаписатьЭлемент(УзелПравило, "ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли", мТаблицаПравилКонвертацииОбъектов.ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли); КонецЕсли; Если ПустоеЗначение(мТаблицаПравилКонвертацииОбъектов.ГенерироватьНовыйНомерИлиКодЕслиНеУказан) = 0 Тогда ЗаписатьЭлемент(УзелПравило, "ГенерироватьНовыйНомерИлиКодЕслиНеУказан", мТаблицаПравилКонвертацииОбъектов.ГенерироватьНовыйНомерИлиКодЕслиНеУказан); КонецЕсли; Если ПустоеЗначение(мТаблицаПравилКонвертацииОбъектов.ПередЗагрузкой) = 0 Тогда ЗаписатьЭлемент(УзелПравило, "ПередЗагрузкой", мТаблицаПравилКонвертацииОбъектов.ПередЗагрузкой); КонецЕсли; Если ПустоеЗначение(мТаблицаПравилКонвертацииОбъектов.ПриЗагрузке) = 0 Тогда ЗаписатьЭлемент(УзелПравило, "ПриЗагрузке", мТаблицаПравилКонвертацииОбъектов.ПриЗагрузке); КонецЕсли; Если ПустоеЗначение(мТаблицаПравилКонвертацииОбъектов.ПослеЗагрузки) = 0 Тогда ЗаписатьЭлемент(УзелПравило, "ПослеЗагрузки", мТаблицаПравилКонвертацииОбъектов.ПослеЗагрузки); КонецЕсли; Если ПустоеЗначение(мТаблицаПравилКонвертацииОбъектов.ПоследовательностьПолейПоиска) = 0 Тогда ЗаписатьЭлемент(УзелПравило, "ПоследовательностьПолейПоиска", мТаблицаПравилКонвертацииОбъектов.ПоследовательностьПолейПоиска); КонецЕсли; ДобавитьПодчиненный(УзелПКО, УзелПравило); КонецЦикла; ДобавитьПодчиненный(УзелПравилаОбмена, УзелПКО); Если ТаблицаПараметровДляЗагрузки.КоличествоСтрок() > 0 Тогда УзелПараметры = СоздатьУзел("Параметры"); ТаблицаПараметровДляЗагрузки.ВыбратьСтроки(); Пока ТаблицаПараметровДляЗагрузки.ПолучитьСтроку() = 1 Цикл УзелПараметр = СоздатьУзел("Параметр"); УстановитьАтрибут(УзелПараметр, "Имя", ТаблицаПараметровДляЗагрузки.Имя); УстановитьАтрибут(УзелПараметр, "Наименование", ТаблицаПараметровДляЗагрузки.Наименование); ДобавитьПодчиненный(УзелПараметры, УзелПараметр); КонецЦикла; ДобавитьПодчиненный(УзелПравилаОбмена, УзелПараметры); КонецЕсли; // ПОД Попытка _DOMDocument = CreateObject("Msxml2.DOMDocument.4.0"); Исключение _DOMDocument = CreateObject("Msxml2.DOMDocument"); КонецПопытки; _DOMDocument.load(ИмяФайлаПравил); УзелПОД = _DOMDocument.selectSingleNode("ПравилаОбмена/ПравилаОчисткиДанных"); ДобавитьПодчиненный(УзелПравилаОбмена, УзелПОД); УзелАлгоритмы = _DOMDocument.selectSingleNode("ПравилаОбмена/Алгоритмы"); ДобавитьПодчиненный(УзелПравилаОбмена, УзелАлгоритмы); УзелЗапросы = _DOMDocument.selectSingleNode("ПравилаОбмена/Запросы"); ДобавитьПодчиненный(УзелПравилаОбмена, УзелЗапросы); ДобавитьПодчиненный(rootNode, УзелПравилаОбмена) КонецПроцедуры // ИнициализацияФайлаОбмена() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВыполнитьВыгрузку() мСчетчикВыгруженныхОбъектов = 0; Если ПустаяСтрока(ИмяФайлаДанных) = 1 Тогда Если Форма.МодальныйРежим() = 0 Тогда Предупреждение("Не указано имя файла данных!"); Иначе Сообщить("Не указано имя файла данных!"); КонецЕсли; Возврат; КонецЕсли; // Загрузка правил Если мТаблицаПравилВыгрузки.КоличествоСтрок() = 0 Тогда Если ЗагрузитьПравила() = 0 Тогда Возврат; КонецЕсли; Иначе мТаблицаПравилКонвертацииОбъектов.Заполнить(0,,, "ВсеОбъектыВыгружены"); мТаблицаПравилКонвертацииОбъектов.ВыбратьСтроки(); Пока мТаблицаПравилКонвертацииОбъектов.ПолучитьСтроку() > 0 Цикл мТаблицаПравилКонвертацииОбъектов.Выгруженные.УдалитьВсе(); КонецЦикла; КонецЕсли; ВывестиСообщение("Начало выгрузки: " + ТекущаяДата() + " " + ТекущееВремя()); Если ТипЗначенияСтр(Параметры) = "ТаблицаЗначений" Тогда Параметры.УдалитьСтроки(); Параметры.НоваяСтрока(); Параметры.ТекущаяСтрока(Параметры.КоличествоСтрок()); КонецЕсли; Попытка DOMDocument = CreateObject("Msxml2.DOMDocument.4.0"); Исключение DOMDocument = CreateObject("Msxml2.DOMDocument"); КонецПопытки; rootNode = DOMDocument.createNode(1, "ФайлОбмена", ""); ИнициализацияФайлаОбмена(); // Сохраняем текущие настройки отбора СохранитьНастройкиОтбора(); // Устанавливат значения парамтров в структуре Параметры // по таблице ТаблицаНастройкиПараметров ТаблицаНастройкиПараметров.ВыбратьСтроки(); Пока ТаблицаНастройкиПараметров.ПолучитьСтроку() = 1 Цикл Параметры.УстановитьЗначение(1, СокрЛП(ТаблицаНастройкиПараметров.Имя), ТаблицаНастройкиПараметров.Значение); КонецЦикла; // Глобальный обработчик "ПередВыгрузкойДанных" Если мКонвертацияПередВыгрузкойДанных = 1 Тогда Отказ = Шаблон("[Конвертация_ПередВыгрузкойДанных()]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; ОбработатьПравилаВыгрузки(); // Глобальный обработчик "ПослеВыгрузкиДанных" Если мКонвертацияПослеВыгрузкиДанных = 1 Тогда Отказ = Шаблон("[Конвертация_ПослеВыгрузкиДанных()]"); Если Число(Отказ) = 1 Тогда Возврат; КонецЕсли; КонецЕсли; DOMDocument.appendChild(rootNode); DOMDocument.save(ИмяФайлаДанных); ВывестиСообщение("Выгружено объектов: " + мСчетчикВыгруженныхОбъектов); ВывестиСообщение("Окончание выгрузки: " + ТекущаяДата() + " " + ТекущееВремя()); КонецПроцедуры // ВыполнитьВыгрузку() //////////////////////////////////////////////////////////////////////////////// // ОБРАБОТКА НАСТРОЙКИ ОТБОРА ДАННЫХ //////////////////////////////////////////////////////////////////////////////// //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ДобавитьУсловие() Если ПустоеЗначение(КодПВДДляНастройкиОтбора) = 0 Тогда ТаблицаНастройкиОтбора.НоваяСтрока(); ТаблицаНастройкиОтбора.Использовать = 2; ТаблицаНастройкиОтбора.Условие = "="; ТаблицаНастройкиОтбора.ТипОбъекта = ""; ТаблицаНастройкиОтбора.Объект = ""; ТаблицаНастройкиОтбора.ТекущаяСтрока(ТаблицаНастройкиОтбора.КоличествоСтрок()); КонецЕсли; КонецПроцедуры //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура УдалитьУсловие() Если НЕ (ТаблицаНастройкиОтбора.ТекущаяСтрока()=0) Тогда Если ТаблицаНастройкиОтбора.НомерСтроки = ТаблицаНастройкиОтбора.КоличествоСтрок() Тогда Номер = ТаблицаНастройкиОтбора.КоличествоСтрок() - 1; Иначе Номер = ТаблицаНастройкиОтбора.НомерСтроки; КонецЕсли; ТаблицаНастройкиОтбора.УдалитьСтроку(); ТаблицаНастройкиОтбора.ТекущаяСтрока(Номер); КонецЕсли; КонецПроцедуры //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗаполнитьТаблицуРеквизитов(ТипОбъекта, ВидОбъекта, Префикс = "") Если ТипОбъекта = "Справочник" Тогда Если ПустаяСтрока(Префикс) = 1 Тогда ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = "ТекущийЭлемент"; ТаблицаРеквизитов.Наименование = "Текущий элемент"; ТаблицаРеквизитов.Тип = "Справочник"; ТаблицаРеквизитов.Вид = ВидОбъекта; ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "ПометкаУдаления"; ТаблицаРеквизитов.Наименование = "Пометка удаления"; ТаблицаРеквизитов.Тип = "Число"; ТаблицаРеквизитов.Длина = 1; КонецЕсли; Если НЕ (Метаданные.Справочник(ВидОбъекта).КоличествоУровней = 0) Тогда ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "Родитель"; ТаблицаРеквизитов.Наименование = "Родитель"; ТаблицаРеквизитов.Тип = "Справочник"; ТаблицаРеквизитов.Вид = ВидОбъекта; //ТаблицаРеквизитов.НоваяСтрока(); //ТаблицаРеквизитов.Ид = Префикс + "ЭтоГруппа"; //ТаблицаРеквизитов.Наименование = "Это группа"; //ТаблицаРеквизитов.Тип = "Число"; //ТаблицаРеквизитов.Длина = 1; КонецЕсли; ВладелецСтр = Метаданные.Справочник(ВидОбъекта).Владелец; Если НЕ (СокрЛП(ВладелецСтр) = "Метаданные") Тогда ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "Владелец"; ТаблицаРеквизитов.Наименование = "Владелец"; ТаблицаРеквизитов.Тип = "Справочник"; ТаблицаРеквизитов.Вид = Строка(ВладелецСтр); КонецЕсли; ДлинаМД = Метаданные.Справочник(ВидОбъекта).ДлинаКода; Если НЕ (ДлинаМД = 0) Тогда ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "Код"; ТаблицаРеквизитов.Наименование = "Код"; Если Метаданные.Справочник(ВидОбъекта).ТипКода = "Текстовый" Тогда ТаблицаРеквизитов.Тип = "Строка"; Иначе ТаблицаРеквизитов.Тип = "Число"; КонецЕсли; ТаблицаРеквизитов.Длина = ДлинаМД; КонецЕсли; ДлинаМД = Метаданные.Справочник(ВидОбъекта).ДлинаНаименования; Если НЕ (ДлинаМД = 0) Тогда ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "Наименование"; ТаблицаРеквизитов.Наименование = "Наименование"; ТаблицаРеквизитов.Тип = "Строка"; ТаблицаРеквизитов.Длина = ДлинаМД; КонецЕсли; Для Сч = 1 По Метаданные.Справочник(ВидОбъекта).Реквизит() Цикл ТипМД = Метаданные.Справочник(ВидОбъекта).Реквизит(Сч).Тип; ДлинаМД = Метаданные.Справочник(ВидОбъекта).Реквизит(Сч).Длина; Если (ТипМД = "Строка") И (ДлинаМД = 0) Тогда Продолжить; КонецЕсли; ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + Метаданные.Справочник(ВидОбъекта).Реквизит(Сч).Идентификатор; ТаблицаРеквизитов.Наименование = Метаданные.Справочник(ВидОбъекта).Реквизит(Сч).Представление(); ТаблицаРеквизитов.Тип = ТипМД; ТаблицаРеквизитов.Вид = Метаданные.Справочник(ВидОбъекта).Реквизит(Сч).Вид; ТаблицаРеквизитов.Длина = ДлинаМД; ТаблицаРеквизитов.Точность = Метаданные.Справочник(ВидОбъекта).Реквизит(Сч).Точность; КонецЦикла; ИначеЕсли ТипОбъекта = "Документ" Тогда Если ПустаяСтрока(Префикс) = 1 Тогда ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = "ТекущийДокумент"; ТаблицаРеквизитов.Наименование = "Текущий документ"; ТаблицаРеквизитов.Тип = "Документ"; ТаблицаРеквизитов.Вид = ОбъектДляНастройкиОтбора; ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "ПометкаУдаления"; ТаблицаРеквизитов.Наименование = "Пометка удаления"; ТаблицаРеквизитов.Тип = "Число"; ТаблицаРеквизитов.Длина = 1; ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "Проведен"; ТаблицаРеквизитов.Наименование = "Проведен"; ТаблицаРеквизитов.Тип = "Число"; ТаблицаРеквизитов.Длина = 1; КонецЕсли; ДлинаМД = Метаданные.Документ(ВидОбъекта).ДлинаНомера; Если НЕ (ДлинаМД = 0) Тогда ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + "НомерДок"; ТаблицаРеквизитов.Наименование = "Номер"; Если Метаданные.Документ(ВидОбъекта).ТипНомера = "Текстовый" Тогда ТаблицаРеквизитов.Тип = "Строка"; Иначе ТаблицаРеквизитов.Тип = "Число"; КонецЕсли; ТаблицаРеквизитов.Длина = ДлинаМД; КонецЕсли; ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = "ДатаДок"; ТаблицаРеквизитов.Наименование = "Дата"; ТаблицаРеквизитов.Тип = "Дата"; Для Сч = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл ТипМД = Метаданные.ОбщийРеквизитДокумента(Сч).Тип; ДлинаМД = Метаданные.ОбщийРеквизитДокумента(Сч).Длина; Если (ТипМД = "Строка") И (ДлинаМД = 0) Тогда Продолжить; КонецЕсли; ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + Метаданные.ОбщийРеквизитДокумента(Сч).Идентификатор; ТаблицаРеквизитов.Наименование = Метаданные.ОбщийРеквизитДокумента(Сч).Представление(); ТаблицаРеквизитов.Тип = ТипМД; ТаблицаРеквизитов.Вид = Метаданные.ОбщийРеквизитДокумента(Сч).Вид; ТаблицаРеквизитов.Длина = ДлинаМД; ТаблицаРеквизитов.Точность = Метаданные.ОбщийРеквизитДокумента(Сч).Точность; КонецЦикла; Для Сч = 1 По Метаданные.Документ(ВидОбъекта).РеквизитШапки() Цикл ТипМД = Метаданные.Документ(ВидОбъекта).РеквизитШапки(Сч).Тип; ДлинаМД = Метаданные.Документ(ВидОбъекта).РеквизитШапки(Сч).Длина; Если (ТипМД = "Строка") И (ДлинаМД = 0) Тогда Продолжить; КонецЕсли; ТаблицаРеквизитов.НоваяСтрока(); ТаблицаРеквизитов.Ид = Префикс + Метаданные.Документ(ВидОбъекта).РеквизитШапки(Сч).Идентификатор; ТаблицаРеквизитов.Наименование = Метаданные.Документ(ВидОбъекта).РеквизитШапки(Сч).Представление(); ТаблицаРеквизитов.Тип = ТипМД; ТаблицаРеквизитов.Вид = Метаданные.Документ(ВидОбъекта).РеквизитШапки(Сч).Вид; ТаблицаРеквизитов.Длина = ДлинаМД; ТаблицаРеквизитов.Точность = Метаданные.Документ(ВидОбъекта).РеквизитШапки(Сч).Точность; КонецЦикла; КонецЕсли; КонецПроцедуры //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура РедактироватьУсловие() Если ТаблицаНастройкиОтбора.ТекущаяСтрока()=0 Тогда Возврат; КонецЕсли; Если ТаблицаНастройкиОтбора.ТекущаяКолонка() = "Использовать" Тогда Если ТаблицаНастройкиОтбора.Использовать = 1 Тогда ТаблицаНастройкиОтбора.Использовать = 2; Иначе ТаблицаНастройкиОтбора.Использовать = 1; КонецЕсли; ИначеЕсли ТаблицаНастройкиОтбора.ТекущаяКолонка() = "Условие" Тогда НовоеЗначение = ТаблицаНастройкиОтбора.Условие; Если ТаблицаНастройкиОтбора.ТипОбъекта = "Справочник" Тогда Если ТипыУсловийДляСправочников.ВыбратьЗначение(НовоеЗначение, "Выбор типа условия",ТипыУсловийДляСправочников.НайтиЗначение(ТаблицаНастройкиОтбора.Условие),,2) = 1 Тогда ТаблицаНастройкиОтбора.Условие = НовоеЗначение; КонецЕсли; ИначеЕсли (ТаблицаНастройкиОтбора.ТипОбъекта = "Число") ИЛИ (ТаблицаНастройкиОтбора.ТипОбъекта = "Дата") Тогда Если ТипыУсловийДляЧисел.ВыбратьЗначение(НовоеЗначение, "Выбор типа условия",ТипыУсловийДляЧисел.НайтиЗначение(ТаблицаНастройкиОтбора.Условие),,2) = 1 Тогда ТаблицаНастройкиОтбора.Условие = НовоеЗначение; КонецЕсли; Иначе Если ТипыУсловийДляСтрок.ВыбратьЗначение(НовоеЗначение, "Выбор типа условия",ТипыУсловийДляСтрок.НайтиЗначение(ТаблицаНастройкиОтбора.Условие),,2) = 1 Тогда ТаблицаНастройкиОтбора.Условие = НовоеЗначение; КонецЕсли; КонецЕсли; ИначеЕсли ТаблицаНастройкиОтбора.ТекущаяКолонка() = "ПолеОтбора" Тогда ТаблицаРеквизитов.УдалитьСтроки(); ЗаполнитьТаблицуРеквизитов(ТипОбъектаДляНастройкиОтбора, ОбъектДляНастройкиОтбора); Если (ТаблицаНастройкиОтбора.ТипОбъекта = "Справочник") ИЛИ (ТаблицаНастройкиОтбора.ТипОбъекта = "Документа") Тогда ЗаполнитьТаблицуРеквизитов(ТаблицаНастройкиОтбора.ТипОбъекта, ТаблицаНастройкиОтбора.Объект, ТаблицаНастройкиОтбора.ПолеОтбора + "."); КонецЕсли; Если ТаблицаРеквизитов.КоличествоСтрок()=0 Тогда Возврат; КонецЕсли; СтрокаРеквизита = 0; Если ТаблицаРеквизитов.ВыбратьСтроку(СтрокаРеквизита,"Выбор реквизита отбора") = 1 Тогда ТаблицаРеквизитов.ПолучитьСтрокуПоНомеру(СтрокаРеквизита); ТаблицаНастройкиОтбора.ПолеОтбора = ТаблицаРеквизитов.Ид; ТаблицаНастройкиОтбора.ТипОбъекта = ТаблицаРеквизитов.Тип; ТаблицаНастройкиОтбора.Объект = ТаблицаРеквизитов.Вид; ТаблицаНастройкиОтбора.Длина = ТаблицаРеквизитов.Длина; ТаблицаНастройкиОтбора.Точность = ТаблицаРеквизитов.Точность; ТаблицаНастройкиОтбора.Условие = "="; Если ПустаяСтрока(ТаблицаНастройкиОтбора.Объект) = 1 Тогда ТаблицаНастройкиОтбора.Значение = ПолучитьПустоеЗначение(ТаблицаНастройкиОтбора.Объект); Иначе ТаблицаНастройкиОтбора.Значение = ПолучитьПустоеЗначение(СокрЛП(ТаблицаНастройкиОтбора.ТипОбъекта) + "." + ТаблицаНастройкиОтбора.Объект); КонецЕсли; КонецЕсли; ИначеЕсли ТаблицаНастройкиОтбора.ТекущаяКолонка() = "Значение" Тогда НовоеЗначение = ТаблицаНастройкиОтбора.Значение; Если ПустаяСтрока(ТаблицаНастройкиОтбора.Объект) = 1 Тогда Если ВвестиЗначение(НовоеЗначение, "Новое значение отбора", ТаблицаНастройкиОтбора.ТипОбъекта, ТаблицаНастройкиОтбора.Длина, ТаблицаНастройкиОтбора.Точность) = 1 тогда ТаблицаНастройкиОтбора.Значение = НовоеЗначение; КонецЕсли; Иначе Если ВвестиЗначение(НовоеЗначение, "Новое значение отбора", СокрЛП(ТаблицаНастройкиОтбора.ТипОбъекта) + "." + ТаблицаНастройкиОтбора.Объект) = 1 тогда ТаблицаНастройкиОтбора.Значение = НовоеЗначение; КонецЕсли; КонецЕсли; КонецЕсли; КонецПроцедуры //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура СохранитьНастройкиОтбора() Если НЕ (ПустоеЗначение(КодПВДДляНастройкиОтбора) = 1) Тогда НомерСтроки = 0; Если мТаблицаПравилВыгрузки.НайтиЗначение(КодПВДДляНастройкиОтбора, НомерСтроки, "Код") = 1 Тогда мТаблицаПравилВыгрузки.ПолучитьСтрокуПоНомеру(НомерСтроки); Если НЕ (ТипЗначенияСтр(мТаблицаПравилВыгрузки.Отбор) = "ТаблицаЗначений") Тогда мТаблицаПравилВыгрузки.Отбор = СоздатьОбъект("ТаблицаЗначений"); КонецЕсли; ТаблицаНастройкиОтбора.Выгрузить(мТаблицаПравилВыгрузки.Отбор); НомерВСписке = ПравилаВыгрузкиСписок.НайтиЗначение(КодПВДДляНастройкиОтбора); НаименованиеПВД = ""; Зн = ПравилаВыгрузкиСписок.ПолучитьЗначение(НомерВСписке,НаименованиеПВД); ЕстьПометка = ПравилаВыгрузкиСписок.Пометка(НомерВСписке); НаименованиеПВД = СтрЗаменить(НаименованиеПВД, " [ОТБОР]", ""); Если НЕ (ТаблицаНастройкиОтбора.КоличествоСтрок() = 0) Тогда ПравилаВыгрузкиСписок.УстановитьЗначение(НомерВСписке, Зн, НаименованиеПВД + " [ОТБОР]"); Если ЕстьПометка = 1 Тогда ПравилаВыгрузкиСписок.Пометка(НомерВСписке, ЕстьПометка); КонецЕсли; Иначе ПравилаВыгрузкиСписок.УстановитьЗначение(НомерВСписке, Зн, НаименованиеПВД); Если ЕстьПометка = 1 Тогда ПравилаВыгрузкиСписок.Пометка(НомерВСписке, ЕстьПометка); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецПроцедуры //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура УстановитьПВДДляНастройкиОтбора() Если ПравилаВыгрузкиСписок.ТекущаяСтрока() = 0 Тогда Возврат КонецЕсли; СохранитьНастройкиОтбора(); Если ПравилаВыгрузкиСписок.ТекущаяСтрока() = 0 Тогда Возврат КонецЕсли; НомерСтроки = 0; Если мТаблицаПравилВыгрузки.НайтиЗначение(ПравилаВыгрузкиСписок.ПолучитьЗначение(ПравилаВыгрузкиСписок.ТекущаяСтрока()), НомерСтроки, "Код") = 1 Тогда мТаблицаПравилВыгрузки.ПолучитьСтрокуПоНомеру(НомерСтроки); Если мТаблицаПравилВыгрузки.ЭтоГруппа = 1 Тогда Возврат; КонецЕсли; Если НЕ (мТаблицаПравилВыгрузки.СпособОтбораДанных = "СтандартнаяВыборка") Тогда Возврат; КонецЕсли; Если Найти(мТаблицаПравилВыгрузки.ОбъектВыборки, "СправочникСсылка.") = 1 Тогда ТипОбъектаДляНастройкиОтбора = "Справочник"; ОбъектДляНастройкиОтбора = Сред(мТаблицаПравилВыгрузки.ОбъектВыборки, СтрДлина("СправочникСсылка.")+1); ИмяПВДДляНастройкиОтбора = мТаблицаПравилВыгрузки.Наименование; КодПВДДляНастройкиОтбора = мТаблицаПравилВыгрузки.Код; ИначеЕсли Найти(мТаблицаПравилВыгрузки.ОбъектВыборки, "ДокументСсылка.") = 1 Тогда ТипОбъектаДляНастройкиОтбора = "Документ"; ОбъектДляНастройкиОтбора = Сред(мТаблицаПравилВыгрузки.ОбъектВыборки, СтрДлина("ДокументСсылка.")+1); ИмяПВДДляНастройкиОтбора = мТаблицаПравилВыгрузки.Наименование; КодПВДДляНастройкиОтбора = мТаблицаПравилВыгрузки.Код; Иначе Возврат; КонецЕсли; Если ТипЗначенияСтр(мТаблицаПравилВыгрузки.Отбор) = "ТаблицаЗначений" Тогда мТаблицаПравилВыгрузки.Отбор.Выгрузить(ТаблицаНастройкиОтбора); ТаблицаНастройкиОтбора.ВыводитьПиктограммы("Использовать"); ТаблицаНастройкиОтбора.ВидимостьКолонки("ТипОбъекта", 0); ТаблицаНастройкиОтбора.ВидимостьКолонки("Объект", 0); ТаблицаНастройкиОтбора.ВидимостьКолонки("Длина", 0); ТаблицаНастройкиОтбора.ВидимостьКолонки("Точность", 0); ТаблицаНастройкиОтбора.ТекущаяСтрока(1); Иначе ТаблицаНастройкиОтбора.УдалитьСтроки(); КонецЕсли; КонецЕсли; КонецПроцедуры //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция СоздатьЗапрос(ОбъектВыборки, ТабОтбор) ПрефиксЗапроса = "Обрабатывать Все; "; ПрефиксЗапросаДок = "ОбрабатыватьДокументы Все; "; Если Найти(ОбъектВыборки, "Справочник.") = 1 Тогда стрТекущий = ".ТекущийЭлемент"; Иначе стрТекущий = ".ТекущийДокумент"; КонецЕсли; ТекстЗапроса = "ПеремОбъект = " + ОбъектВыборки + стрТекущий + ";"; ТабОтбор.ВыбратьСтроки(); Пока ТабОтбор.ПолучитьСтроку() = 1 Цикл Если (ТабОтбор.ПолеОтбора = "ТекущийЭлемент") ИЛИ (ТабОтбор.ПолеОтбора = "ТекущийДокумент") Тогда Продолжить; КонецЕсли; Если (ТабОтбор.Использовать = 1) ИЛИ (ПустаяСтрока(ТабОтбор.ПолеОтбора) = 1) Тогда Продолжить; КонецЕсли; Если (ТабОтбор.Объект = "ПометкаУдаления") Тогда Если ТабОтбор.Значение = 0 Тогда ПрефиксЗапроса = "Обрабатывать НеПомеченныеНаУдаление; "; Иначе ПрефиксЗапроса = "Обрабатывать ПомеченныеНаУдаление; "; КонецЕсли; Продолжить; КонецЕсли; Если (ТабОтбор.Объект = "Проведен") Тогда Если ТабОтбор.Значение = 0 Тогда ПрефиксЗапросаДок = "ОбрабатыватьДокументы Непроведенные; "; Иначе ПрефиксЗапросаДок = "ОбрабатыватьДокументы Проведенные; "; КонецЕсли; Продолжить; КонецЕсли; ТекстЗапроса = ТекстЗапроса + " Перем" + ТабОтбор.НомерСтроки +" = " + ОбъектВыборки + "." + ТабОтбор.ПолеОтбора + ";";//" Группировка ПеремОбъект; Без Итогов;"; КонецЦикла; ТекстЗапроса = ТекстЗапроса + " Группировка ПеремОбъект;"; ТабОтбор.ВыбратьСтроки(); Пока ТабОтбор.ПолучитьСтроку() = 1 Цикл ЗначенияДляОтбора[ТабОтбор.НомерСтроки] = ТабОтбор.Значение; Если (ТабОтбор.Использовать = 1) ИЛИ (ПустаяСтрока(ТабОтбор.ПолеОтбора) = 1) Тогда Продолжить; КонецЕсли; Если (ТабОтбор.ПолеОтбора = "ТекущийЭлемент") ИЛИ (ТабОтбор.ПолеОтбора = "ТекущийДокумент") Тогда ИмяПеременной = "ПеремОбъект"; ИначеЕсли (ТабОтбор.Объект = "ПометкаУдаления") ИЛИ (ТабОтбор.Объект = "Проведен") Тогда Продолжить; Иначе ИмяПеременной = "Перем" + ТабОтбор.НомерСтроки; КонецЕсли; Если ТабОтбор.Условие = "НЕ В" Тогда ТекстЗапроса = ТекстЗапроса + "Условие (НЕ (" + ИмяПеременной + " В ЗначенияДляОтбора[" + ТабОтбор.НомерСтроки + "]));"; Иначе ТекстЗапроса = ТекстЗапроса + "Условие (" + ИмяПеременной + " "+ ТабОтбор.Условие + " ЗначенияДляОтбора[" + ТабОтбор.НомерСтроки + "]);"; КонецЕсли; КонецЦикла; Если Найти(ОбъектВыборки, "Документ.") = 1 Тогда ТекстЗапроса = ПрефиксЗапроса + ПрефиксЗапросаДок + ТекстЗапроса; Иначе ТекстЗапроса = ПрефиксЗапроса + ТекстЗапроса; КонецЕсли; Возврат ТекстЗапроса; КонецФункции //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВключитьПометкиТаблицыОтбора(Режим) ТаблицаНастройкиОтбора.ВыбратьСтроки(); Пока ТаблицаНастройкиОтбора.ПолучитьСтроку() = 1 Цикл ТаблицаНастройкиОтбора.Использовать = Режим; КонецЦикла; КонецПроцедуры // ВключитьПометки() //////////////////////////////////////////////////////////////////////////////// // ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ //////////////////////////////////////////////////////////////////////////////// //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ПриОткрытии() ИмяКоманды = ""; СписокПараметров = Форма.Параметр; Если ПустоеЗначение(СписокПараметров) = 0 Тогда ИмяФайлаПравил = СписокПараметров.Получить("ИмяФайлаПравил"); ИмяФайлаДанных = СписокПараметров.Получить("ИмяФайлаДанных"); ДатаНачала = СписокПараметров.Получить("ДатаНачала"); ДатаОкончания = СписокПараметров.Получить("ДатаОкончания"); ИмяКоманды = СписокПараметров.Получить("ИмяКоманды"); ЗнТаблицаНастройкиПараметров = СписокПараметров.Получить("ТаблицаНастройкиПараметров"); КомментироватьВыгрузкуОбъектов = СписокПараметров.Получить("КомментироватьВыгрузкуОбъектов"); мИспользуемыеПравилаВыгрузки = СписокПараметров.Получить("ИспользуемыеПравилаВыгрузки"); ИмяАлгоритма = СписокПараметров.Получить("ИмяАлгоритма"); КонецЕсли; // Обрабатываем закладки Форма.ИспользоватьЗакладки(1); Форма.Закладки.ДобавитьЗначение("Правила выгрузки"); Форма.Закладки.ДобавитьЗначение("Параметры"); Форма.Закладки.ТекущаяСтрока(1); Форма.ИспользоватьСлой("Основной,ПравилаВыгрузки"); Попытка FSO = СоздатьОбъект("Scripting.FileSystemObject"); Исключение КонецПопытки; Компоненты = СоздатьОбъект("ТаблицаЗначений"); Компоненты.НоваяКолонка("Путь"); Компоненты.НоваяКолонка("МожноЗагружать"); Компоненты.НоваяСтрока(); Компоненты.Путь = КаталогПрограммы() + "v7plus.dll"; Компоненты.МожноЗагружать = 0; Компоненты.НоваяСтрока(); Компоненты.Путь = КаталогИБ() + "v7plus.dll"; Компоненты.МожноЗагружать = 0; Компоненты.НоваяСтрока(); Компоненты.Путь = КаталогИБ() + "ExtForms\" + "v7plus.dll"; Компоненты.МожноЗагружать = 0; МожноПроверятьВерсию = Найти(ТипЗначенияСтр(FSO), "OLE.IFileSystem"); Компоненты.ВыбратьСтроки(); Пока Компоненты.ПолучитьСтроку() = 1 Цикл Если МожноПроверятьВерсию = 1 Тогда Если FSO.GetFileVersion(Компоненты.Путь) = "7.70.0.11" Тогда Компоненты.МожноЗагружать = 1; КонецЕсли; Иначе Компоненты.МожноЗагружать = ФС.СуществуетФайл(Компоненты.Путь); КонецЕсли; КонецЦикла; Если Компоненты.Итог("МожноЗагружать") = 0 Тогда ТекстОшибки = "Компонента v7plus.dll версии 7.70.0.11 не найдена!"; Если Форма.МодальныйРежим() = 0 Тогда Предупреждение(ТекстОшибки, 60); Иначе Сообщить(ТекстОшибки); Если ПустаяСтрока(ИмяКоманды) = 0 Тогда ЗафиксироватьОшибку(ТекстОшибки); Форма.Параметр = СписокОшибок; СтатусВозврата(0); Возврат; КонецЕсли; КонецЕсли; Возврат; КонецЕсли; КомпонентаУспешноЗагружена = 0; Компоненты.ВыбратьСтроки(); Пока Компоненты.ПолучитьСтроку() = 1 Цикл Если Компоненты.МожноЗагружать = 0 Тогда Продолжить; КонецЕсли; КомпонентаУспешноЗагружена = ЗагрузитьВнешнююКомпоненту(Компоненты.Путь); Если КомпонентаУспешноЗагружена = 1 Тогда Прервать; КонецЕсли; КонецЦикла; Если КомпонентаУспешноЗагружена = 0 Тогда ТекстОшибки = "Компонента v7plus.dll не найдена!"; Если Форма.МодальныйРежим() = 0 Тогда Предупреждение(ТекстОшибки, 60); Иначе Сообщить(ТекстОшибки); Если ПустаяСтрока(ИмяКоманды) = 0 Тогда ЗафиксироватьОшибку(ТекстОшибки); Форма.Параметр = СписокОшибок; СтатусВозврата(0); Возврат; КонецЕсли; КонецЕсли; Возврат; КонецЕсли; мXMLАнализатор = СоздатьОбъект("AddIn.XMLParser"); мЧтениеXML = мXMLАнализатор.СоздатьПоследовательноСчитываемыйДокумент(); // Инициализация правил ИнициализацияПравилВыгрузки(); ИнициализацияПравилКонвертацииОбъектов(); // Инициализация таблицы настройки параметров ИнициализацияТаблицыНастройкиПараметров(); Если ПустоеЗначение(СписокПараметров) = 0 Тогда ЗагрузитьПравилаОбмена(); // Если в правилах нет ни одного параметра, который необходимо настраивать, // то в обработку могли ничего и не передать Если ПустоеЗначение(ЗнТаблицаНастройкиПараметров) = 0 Тогда ПредставлениеЗначения = ""; Для НомерСтрокиСписка = 1 По ЗнТаблицаНастройкиПараметров.РазмерСписка() Цикл ЗнТаблицаНастройкиПараметров.ПолучитьЗначение(НомерСтрокиСписка, ПредставлениеЗначения); СтрокаТаблицы = ""; Если ТаблицаНастройкиПараметров.НайтиЗначение(ПредставлениеЗначения,СтрокаТаблицы,1) = 1 Тогда ТаблицаНастройкиПараметров.ПолучитьСтрокуПоНомеру(СтрокаТаблицы); ТаблицаНастройкиПараметров.Значение = ЗнТаблицаНастройкиПараметров.Получить(ПредставлениеЗначения); КонецЕсли; КонецЦикла; КонецЕсли; Если ИмяКоманды = "Выгрузить" Тогда Выгрузить(); СтатусВозврата(0); Возврат; ИначеЕсли ИмяКоманды = "ВыполнитьАлгоритм" Тогда // Выполним алгоритм правил обмена и вернем результат в параметр формы Форма.Параметр = ЗначениеИзСтрокиВнутр(Шаблон("[" + ИмяАлгоритма + "()]")); СтатусВозврата(0); Возврат; КонецЕсли; КонецЕсли; КонецПроцедуры // ПриОткрытии() //****************************************************************************** // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ПриВыбореЗакладки(НомерЗакладки, ЗначениеЗакладки) Если НомерЗакладки = 1 Тогда Форма.ИспользоватьСлой("Основной, ПравилаВыгрузки"); ИначеЕсли НомерЗакладки = 2 Тогда Форма.ИспользоватьСлой("Основной, Параметры"); КонецЕсли; КонецПроцедуры // ПриВыбореЗакладки() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура УправлениеПометками(Пометка, КодПравила) Для Индекс = 1 По мТаблицаПравилВыгрузки.КоличествоСтрок() Цикл Если мТаблицаПравилВыгрузки.ПолучитьЗначение(Индекс, "Родитель") = КодПравила Тогда ПравилаВыгрузкиСписок.Пометка(ПравилаВыгрузкиСписок.НайтиЗначение(мТаблицаПравилВыгрузки.ПолучитьЗначение(Индекс, "Код")), Пометка); УправлениеПометками(Пометка, мТаблицаПравилВыгрузки.ПолучитьЗначение(Индекс, "Код")); КонецЕсли; КонецЦикла; КонецПроцедуры // УправлениеПометками() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Функция УправлениеПометкамиПравилаВыгрузкиСписок() ТекущаяСтрокаПравилаВыгрузкиСписок = ПравилаВыгрузкиСписок.ТекущаяСтрока(); Если ТекущаяСтрокаПравилаВыгрузкиСписок = 0 Тогда Возврат ""; КонецЕсли; НомерСтроки = 0; Если мТаблицаПравилВыгрузки.НайтиЗначение(ПравилаВыгрузкиСписок.ПолучитьЗначение(ТекущаяСтрокаПравилаВыгрузкиСписок, ""), НомерСтроки, "Код") = 1 Тогда Если мТаблицаПравилВыгрузки.ЭтоГруппа = 0 Тогда Возврат ""; КонецЕсли; Пометка = ПравилаВыгрузкиСписок.Пометка(ТекущаяСтрокаПравилаВыгрузкиСписок); КодПравила = мТаблицаПравилВыгрузки.ПолучитьЗначение(НомерСтроки, "Код"); УправлениеПометками(Пометка, КодПравила); КонецЕсли; КонецФункции // УправлениеПометкамиПравилаВыгрузкиСписок() //****************************************************************************** // ВыборФайла(ИмяФайла, Фильтр = "xml") // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВыборФайла(ТипДиалога = 0, ИмяФайла, ИмяФильтра = "", Фильтр = "xml") Каталог = ""; Стр = ИмяФильтра + " (*." + Фильтр + ")|*." + Фильтр + ""; Если ФС.ВыбратьФайл(ТипДиалога, ИмяФайла, Каталог, "Выберите файл", Стр, , ) = 1 Тогда ИмяФайла = Каталог + ИмяФайла; КонецЕсли; КонецПроцедуры // ВыборФайла() //****************************************************************************** // ОткрытьФайлДляПросмотра(ИмяФайла) // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ОткрытьФайлДляПросмотра(ИмяФайла) Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда ЗапуститьПриложение(ИмяФайла); Иначе Если Форма.МодальныйРежим() = 0 Тогда Предупреждение("Файл с таким именем не существует!"); Иначе Сообщить("Файл с таким именем не существует!"); КонецЕсли; КонецЕсли; КонецПроцедуры // ОткрытьФайлДляПросмотра(ИмяФайла) //****************************************************************************** // ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр) // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр) Если ИдентЭлемДиалога = "ИмяФайлаПравил" Тогда ВыборФайла(, ИмяФайлаПравил, "Файл правил"); ИначеЕсли ИдентЭлемДиалога = "ИмяФайлаДанных" Тогда ВыборФайла(1, ИмяФайлаДанных, "Файл данных"); КонецЕсли; КонецПроцедуры // ПриНачалеВыбораЗначения() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ВключитьПометки(Режим) Для Индекс = 1 По ПравилаВыгрузкиСписок.РазмерСписка() Цикл ПравилаВыгрузкиСписок.Пометка(Индекс, Режим); КонецЦикла; КонецПроцедуры // ВключитьПометки() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура УстановитьЗначенияПараметра() ТекПозиция = ТаблицаНастройкиПараметров.ТекущаяСтрока(); ТекКолонка = ТаблицаНастройкиПараметров.ТекущаяКолонка(); Если ТекПозиция = 0 Тогда Возврат; КонецЕсли; Если НЕ (ТекКолонка = "Значение") Тогда Возврат; КонецЕсли; ТипЗнач = ТаблицаНастройкиПараметров.ТипЗначения; ВидЗнач = ТаблицаНастройкиПараметров.ВидЗначения; Значение = ТаблицаНастройкиПараметров.Значение; Если ТипЗнач = "Строка" Тогда Если ВвестиЗначение(Значение,"Введите значение параметра " + ТаблицаНастройкиПараметров.Наименование, "Строка", 100) = 1 Тогда ТаблицаНастройкиПараметров.Значение = Значение; КонецЕсли; ИначеЕсли ТипЗнач = "Число" Тогда Если ВвестиЗначение(Значение,"Введите значение параметра " + ТаблицаНастройкиПараметров.Наименование, "Число", 15) = 1 Тогда ТаблицаНастройкиПараметров.Значение = Значение; КонецЕсли; ИначеЕсли ТипЗнач = "Дата" Тогда Если ВвестиЗначение(Значение,"Введите значение параметра " + ТаблицаНастройкиПараметров.Наименование, "Дата") = 1 Тогда ТаблицаНастройкиПараметров.Значение = Значение; КонецЕсли; ИначеЕсли ТипЗнач = "Перечисление" Тогда Если ВвестиПеречисление(Значение,"Введите значение параметра " + ТаблицаНастройкиПараметров.Наименование) = 1 Тогда ТаблицаНастройкиПараметров.Значение = Значение; КонецЕсли; ИначеЕсли ТипЗнач = "Справочник" Тогда Если ВвестиЗначение(Значение,"Введите значение параметра " + ТаблицаНастройкиПараметров.Наименование, "Справочник."+ ТаблицаНастройкиПараметров.ВидЗначения) = 1 Тогда ТаблицаНастройкиПараметров.Значение = Значение; КонецЕсли; ИначеЕсли ТипЗнач = "Документ" Тогда Если ВвестиЗначение(Значение,"Введите значение параметра " + ТаблицаНастройкиПараметров.Наименование, "Документ."+ ТаблицаНастройкиПараметров.ВидЗначения) = 1 Тогда ТаблицаНастройкиПараметров.Значение = Значение; КонецЕсли; КонецЕсли; КонецПроцедуры //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗагрузитьПравилаОбмена() ЗагрузитьПравила(); КонецПроцедуры // ЗагрузитьПравилаОбмена() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура Выгрузить() ВыполнитьВыгрузку(); Если Форма.МодальныйРежим() = 0 Тогда Предупреждение("Выгрузка данных завершена."); Иначе Сообщить("Выгрузка данных завершена."); КонецЕсли; Форма.Параметр = СписокОшибок; КонецПроцедуры // Выгрузить() //****************************************************************************** // // // Параметры: // // Возвращаемое значение: // // Описание: // Процедура ЗафиксироватьОшибку(ТекстОшибки) СписокОшибок.ДобавитьЗначение(ТекстОшибки); КонецПроцедуры // ЗафиксироватьОшибку() //////////////////////////////////////////////////////////////////////////////// // ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ //////////////////////////////////////////////////////////////////////////////// мНачалоНовогоЭлемента = 1; мИнструкцияОбработки = 2; мКонецУровня = 3; мКонецДокумента = 4; мКонвертацияПередВыгрузкойДанных = 0; мКонвертацияПередВыгрузкойОбъекта = 0; мКонвертацияПередКонвертациейОбъекта = 0; мКонвертацияПослеВыгрузкиОбъекта = 0; мКонвертацияПослеВыгрузкиДанных = 0; мПустоеЗначение = ПолучитьПустоеЗначение(); ТаблицаНастройкиПараметров.НоваяКолонка("Имя"); ТаблицаНастройкиПараметров.НоваяКолонка("Наименование",,,,"Наименование параметра"); ТаблицаНастройкиПараметров.НоваяКолонка("Значение",,,,"Значение параметра"); ТаблицаНастройкиПараметров.НоваяКолонка("ТипЗначения"); ТаблицаНастройкиПараметров.НоваяКолонка("ВидЗначения"); ТаблицаНастройкиПараметров.ВидимостьКолонки("Имя",0,); ТаблицаНастройкиПараметров.ВидимостьКолонки("ТипЗначения",0,); ТаблицаНастройкиПараметров.ВидимостьКолонки("ВидЗначения",0,); ТаблицаПараметровДляЗагрузки = СоздатьОбъект("ТаблицаЗначений"); ТаблицаПараметровДляЗагрузки.НоваяКолонка("Имя"); ТаблицаПараметровДляЗагрузки.НоваяКолонка("Наименование"); ТаблицаНастройкиОтбора.НоваяКолонка("Использовать", "Число",,, "", 5); ТаблицаНастройкиОтбора.НоваяКолонка("ПолеОтбора", "Строка",,,"Реквизит отбора"); ТаблицаНастройкиОтбора.НоваяКолонка("Условие", "Строка",,, "", 5); ТаблицаНастройкиОтбора.НоваяКолонка("Значение"); ТаблицаНастройкиОтбора.НоваяКолонка("ТипОбъекта", "Строка"); ТаблицаНастройкиОтбора.НоваяКолонка("Объект", "Строка"); ТаблицаНастройкиОтбора.НоваяКолонка("Длина", "Число"); ТаблицаНастройкиОтбора.НоваяКолонка("Точность", "Число"); ТаблицаНастройкиОтбора.ВыводитьПиктограммы("Использовать"); ТаблицаНастройкиОтбора.ВидимостьКолонки("ТипОбъекта", 0); ТаблицаНастройкиОтбора.ВидимостьКолонки("Объект", 0); ТаблицаНастройкиОтбора.ВидимостьКолонки("Длина", 0); ТаблицаНастройкиОтбора.ВидимостьКолонки("Точность", 0); ТипыУсловийДляСтрок = СоздатьОбъект("СписокЗначений"); ТипыУсловийДляСтрок.ДобавитьЗначение("="); ТипыУсловийДляСтрок.ДобавитьЗначение("<>"); ТипыУсловийДляЧисел = СоздатьОбъект("СписокЗначений"); ТипыУсловийДляЧисел.ДобавитьЗначение("="); ТипыУсловийДляЧисел.ДобавитьЗначение(">"); ТипыУсловийДляЧисел.ДобавитьЗначение("<"); ТипыУсловийДляЧисел.ДобавитьЗначение("<="); ТипыУсловийДляЧисел.ДобавитьЗначение(">="); ТипыУсловийДляЧисел.ДобавитьЗначение("<>"); ТипыУсловийДляСправочников = СоздатьОбъект("СписокЗначений"); ТипыУсловийДляСправочников.ДобавитьЗначение("="); ТипыУсловийДляСправочников.ДобавитьЗначение("<>"); ТипыУсловийДляСправочников.ДобавитьЗначение("В"); ТипыУсловийДляСправочников.ДобавитьЗначение("НЕ В"); ТаблицаРеквизитов = СоздатьОбъект("ТаблицаЗначений"); ТаблицаРеквизитов.НоваяКолонка("Ид", "Строка"); ТаблицаРеквизитов.НоваяКолонка("Наименование", "Строка"); ТаблицаРеквизитов.НоваяКолонка("Тип", "Строка"); ТаблицаРеквизитов.НоваяКолонка("Вид", "Строка"); ТаблицаРеквизитов.НоваяКолонка("Длина", "Строка"); ТаблицаРеквизитов.НоваяКолонка("Точность", "Строка"); СписокОшибок = СоздатьОбъект("СписокЗначений");