<ПравилаОбмена> <ВерсияФормата>2.01 <Ид>aa90ee25-8351-4284-99c1-be81cd9247a5 <Наименование>Бухгалтерский учет, ред. 4.5 --> Бухгалтерия предприятия КОРП <ДатаВремяСоздания>2012-09-20T13:04:45 <Источник ВерсияПлатформы="7.7" ВерсияКонфигурации="7.70.543" СинонимКонфигурации="">Бухгалтерский учет, редакция 4.5 <Приемник ВерсияПлатформы="8.0" ВерсияКонфигурации="2.0.40.3" СинонимКонфигурации="Бухгалтерия предприятия КОРП, редакция 2.0">БухгалтерияПредприятияКОРП <ПослеЗагрузкиПравилОбмена>//настройки выгрузки документов НС = 0; Если ТаблицаНастройкиПараметров.НайтиЗначение("_ВыгружатьНеПроведенные",НС,"Имя") = 1 Тогда ТаблицаНастройкиПараметров.УстановитьЗначение(НС,"Значение",0) КонецЕсли; НС = 0; Если ТаблицаНастройкиПараметров.НайтиЗначение("_ВыгружатьПроведенные",НС,"Имя") = 1 Тогда ТаблицаНастройкиПараметров.УстановитьЗначение(НС,"Значение",1) КонецЕсли; НС = 0; Если ТаблицаНастройкиПараметров.НайтиЗначение("_ВыгружатьУдаленные",НС,"Имя") = 1 Тогда ТаблицаНастройкиПараметров.УстановитьЗначение(НС,"Значение",0) КонецЕсли; НС = 0; Если ТаблицаНастройкиПараметров.НайтиЗначение("ПрефиксОрганизации",НС,"Имя") = 1 Тогда Если СокрЛП(Метаданные.Константа("ПрефиксДляВыгрузкиВ1СБухгалтерию8").ПолныйИдентификатор())<>"" Тогда ТаблицаНастройкиПараметров.УстановитьЗначение(НС,"Значение",Константа.ПрефиксДляВыгрузкиВ1СБухгалтерию8); КонецЕсли; КонецЕсли; <ПередВыгрузкойДанных>Если ПустоеЗначение(ДатаНачала) = 1 Тогда Если Форма.МодальныйРежим() = 0 Тогда Предупреждение("Не указана дата начала периода выгрузки!"); Иначе Сообщить("Не указана дата начала периода выгрузки!"); КонецЕсли; Отказ = 1; КонецЕсли; Если ДатаНачала > ДатаОкончания Тогда Если Форма.МодальныйРежим() = 0 Тогда Предупреждение("Неправильно задан период выгрузки!"+РазделительСтрок+ "Дата начала больше даты окончания периода."); Иначе Сообщить("Неправильно задан период выгрузки!"+РазделительСтрок+ "Дата начала больше даты окончания периода."); КонецЕсли; Отказ = 1; КонецЕсли; Если ДатаОкончания > КонецРассчитанногоПериодаБИ() Тогда Если Форма.МодальныйРежим() = 0 Тогда Предупреждение("За выбранный период итоги не рассчитаны!"+РазделительСтрок+ "Расчет итогов выполняется в режиме"+РазделительСтрок+ """Операции - Управление бухгалтерскими итогами""."); Иначе Сообщить("За выбранный период итоги не рассчитаны!"+РазделительСтрок+ "Расчет итогов выполняется в режиме"+РазделительСтрок+ """Операции - Управление бухгалтерскими итогами""."); КонецЕсли; Отказ = 1; КонецЕсли; Если СокрЛП(Метаданные.Константа("ПрефиксДляВыгрузкиВ1СБухгалтерию8").ПолныйИдентификатор())<>"" Тогда Константа.ПрефиксДляВыгрузкиВ1СБухгалтерию8 = Параметры.ПрефиксОрганизации; КонецЕсли; Параметры.ДатаВводаОстатков = ДатаНачала; Параметры.ДатаКонцаПериодаВыгрузки = ДатаОкончания; Если ПустоеЗначение(Константа.НачалоПримененияИсправленныхСчетовФактур) = 1 Тогда Параметры.НачалоПримененияПостановления1137 = Дата(2200, 1, 1); Иначе Параметры.НачалоПримененияПостановления1137 = Константа.НачалоПримененияИсправленныхСчетовФактур; КонецЕсли; Параметры.СчетВводаОстатков = СчетПоКоду("00"); Параметры.ДлинаКода = 9; // стандартная длина кодов справочников в 8.0 Параметры.СписокРаботников = СоздатьОбъект("ТаблицаЗначений"); Параметры.СписокРаботников.НоваяКолонка("ФизЛицо"); // общее во всех талицах Параметры.СписокУволенныхРаботников = СоздатьОбъект("ТаблицаЗначений"); Параметры.СписокУволенныхРаботников.НоваяКолонка("ФизЛицо"); Параметры.СписокОбъектовСтроительства = СоздатьОбъект("ТаблицаЗначений"); Параметры.СписокОбъектовСтроительства.НоваяКолонка("ОбъектСтроительства"); Параметры.СписокОбъектовСтроительства.НоваяКолонка("СчетБухгалтерскогоУчета"); Параметры.СписокОбъектовСтроительства.НоваяКолонка("СчетБухгалтерскогоУчетаНДС"); Параметры.ВычетыСотрудниковпоНДФЛ = СоздатьОбъект("ТаблицаЗначений"); Параметры.ВычетыСотрудниковпоНДФЛ.НоваяКолонка("Физлицо"); Параметры.ВычетыСотрудниковпоНДФЛ.НоваяКолонка("КодВычета"); Параметры.ВычетыСотрудниковпоНДФЛ.НоваяКолонка("Период", "Дата"); Параметры.ВычетыСотрудниковпоНДФЛ.НоваяКолонка("ПериодЗавершения", "Дата"); Параметры.ВычетыСотрудниковпоНДФЛ.НоваяКолонка("КоличествоДетей", "Число"); Параметры.ВычетыСотрудниковпоНДФЛЛичный = СоздатьОбъект("ТаблицаЗначений"); Параметры.ВычетыСотрудниковпоНДФЛЛичный.НоваяКолонка("Физлицо"); Параметры.ВычетыСотрудниковпоНДФЛЛичный.НоваяКолонка("КодВычетаЛичный", "Строка"); Параметры.ВычетыСотрудниковпоНДФЛЛичный.НоваяКолонка("Период", "Дата"); Параметры.ВычетыСотрудниковпоНДФЛЛичный.НоваяКолонка("ПериодЗавершения", "Дата"); СпрВалюты = СоздатьОбъект("Справочник.Валюты"); Если (СпрВалюты.НайтиПоКоду("810") = 1) Тогда Параметры.Рубли = СпрВалюты.ТекущийЭлемент(); ИначеЕсли (СпрВалюты.НайтиПоКоду("643") = 1) Тогда Параметры.Рубли = СпрВалюты.ТекущийЭлемент(); КонецЕсли; Параметры.ПараметрыАлгоритмов = СоздатьОбъект("СписокЗначений"); //Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); Параметры.ТаблицаПроводок = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаПроводок.НоваяКолонка("СчетДт"); Параметры.ТаблицаПроводок.НоваяКолонка("СчетКт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВидУчетаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВидУчетаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("КодСчетаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("КодСчетаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("СубконтоДт"); Параметры.ТаблицаПроводок.НоваяКолонка("СубконтоКт"); Параметры.ТаблицаПроводок.НоваяКолонка("Сумма"); Параметры.ТаблицаПроводок.НоваяКолонка("Содержание"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютнаяСуммаДт"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютнаяСуммаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("КоличествоДт"); Параметры.ТаблицаПроводок.НоваяКолонка("КоличествоКт"); //********************************************************* // Исключительно для упрощения формирования документа ВНО Параметры.ТаблицаПроводок.НоваяКолонка("СчетУчета"); Параметры.ТаблицаПроводок.НоваяКолонка("СчетУчетаНУ"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаКт"); Параметры.ТаблицаПроводок.НоваяКолонка("Валюта"); Параметры.ТаблицаПроводок.НоваяКолонка("ВалютнаяСумма"); Параметры.ТаблицаПроводок.НоваяКолонка("Количество", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("Субконто1"); Параметры.ТаблицаПроводок.НоваяКолонка("Субконто2"); Параметры.ТаблицаПроводок.НоваяКолонка("Субконто3"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаНУ", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаПР", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаВР", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаНДС", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаМЦ", "Число"); //********************************************************* // Учет специфики БП с ОП Параметры.ТаблицаПроводок.НоваяКолонка("СуммаНУДт", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаПРДт", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаВРДт", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаНУКт", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаПРКт", "Число"); Параметры.ТаблицаПроводок.НоваяКолонка("СуммаВРКт", "Число"); //*** Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 1); Параметры.ТаблицаОстатковНУ = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("СчетДт"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("Субконто1"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("Субконто2"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("Субконто3"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("СуммаНУ", "Число"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("СуммаПР", "Число"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("СуммаВР", "Число"); Параметры.ТаблицаОстатковНУ.НоваяКолонка("Количество", "Число"); Параметры.ТаблицаОстатковМЦ = СоздатьОбъект("ТаблицаЗначений"); //********************************************************* Параметры.ТаблицаПроводокОбороты = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СчетДт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СчетКт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("КодСчетаДт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("КодСчетаКт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("ВидУчетаДт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("ВидУчетаКт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("ВалютаДт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("ВалютаКт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СубконтоДт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СубконтоКт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("Сумма"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("ВалютнаяСуммаДт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("ВалютнаяСуммаКт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("КоличествоДт"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("КоличествоКт"); //********************************************************* // Учет специфики БП с ОП Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СуммаНУДт", "Число"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СуммаПРДт", "Число"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СуммаВРДт", "Число"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СуммаНУКт", "Число"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СуммаПРКт", "Число"); Параметры.ТаблицаПроводокОбороты.НоваяКолонка("СуммаВРКт", "Число"); Параметры.ТаблицаДоговоров = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаДоговоров.НоваяКолонка("Договор"); Параметры.ТаблицаДоговоров.НоваяКолонка("ВидыДоговора"); //********************************************************* // Перенос учетной политики //определим даты измения учетной политики СписокКонстант = СоздатьОбъект("СписокЗначений"); СписокКонстант.ДобавитьЗначение("ДиректКостинг"); СписокКонстант.ДобавитьЗначение("ПрименяетсяПБУ18"); СписокКонстант.ДобавитьЗначение("БазаРаспределенияКосвенныхРасходовПоВидамДеятельности"); СписокКонстант.ДобавитьЗначение("МетодОпределенияВыручки"); СписокКонстант.ДобавитьЗначение("НалоговыйПериодПоНДС"); СписокКонстант.ДобавитьЗначение("ОсобенностиИсчисленияНДФЛ"); СписокКонстант.ДобавитьЗначение("РозницаОблагаетсяЕНВД"); СписокКонстант.ДобавитьЗначение("УчитыватьПоложительныеСуммовыеРазницыПриНачисленииНДС"); СписокКонстант.ДобавитьЗначение("ФормироватьСчетФактуруПоУЕвРублях"); СписокКонстант.ДобавитьЗначение("МетодНачисленияАмортизацииНУ"); СписокКонстант.ДобавитьЗначение("ТарифСтраховыхВзносов"); СписокКонстант.ДобавитьЗначение("УчитыватьДоходыИРасходыВНУПоКурсуАвансов"); ТаблицаИзмененийУП = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзмененийУП.НоваяКолонка("ДатаИзменения"); Периодический = СоздатьОбъект("Периодический"); Для НомерКонстанты = 1 По СписокКонстант.РазмерСписка() Цикл Периодический.ИспользоватьОбъект(СписокКонстант.ПолучитьЗначение(НомерКонстанты)); Периодический.ВыбратьЗначения(,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаИзмененийУП.НоваяСтрока(); ТаблицаИзмененийУП.ДатаИзменения = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; ТаблицаИзмененийУП.Свернуть("ДатаИзменения",""); ТаблицаИзмененийУП.Сортировать("ДатаИзменения"); ТаблицаИзмененийУП.ВыбратьСтроки(); Пока ТаблицаИзмененийУП.ПолучитьСтроку()=1 Цикл ДатаПолученияЗначений = ТаблицаИзмененийУП.ДатаИзменения; ДатаУстановкиЗначений = НачМесяца(ТаблицаИзмененийУП.ДатаИзменения); СписокЭлементов = СоздатьОбъект("СписокЗначений"); СписокЭлементов.ДобавитьЗначение(?(Константа.ДиректКостинг.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ДиректКостинг"); СписокЭлементов.ДобавитьЗначение(?(Константа.ПрименяетсяПБУ18.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ПоддержкаПБУ18"); СписокЭлементов.ДобавитьЗначение(Константа.БазаРаспределенияКосвенныхРасходовПоВидамДеятельности.Получить(ДатаПолученияЗначений), "БазаРаспределенияКосвенныхРасходовПоВидамДеятельности"); СписокЭлементов.ДобавитьЗначение(Константа.МетодОпределенияВыручки.Получить(ДатаПолученияЗначений), "МоментОпределенияНалоговойБазыНДС"); СписокЭлементов.ДобавитьЗначение(Константа.НалоговыйПериодПоНДС.Получить(ДатаПолученияЗначений), "НДСНалоговыйПериод"); СписокЭлементов.ДобавитьЗначение(Константа.ОсобенностиИсчисленияНДФЛ.Получить(ДатаПолученияЗначений), "ОсобенностиИсчисленияНДФЛ"); СписокЭлементов.ДобавитьЗначение(?(Константа.РозницаОблагаетсяЕНВД.Получить(ДатаПолученияЗначений) = Да, 1, 0), "РозничнаяТорговляОблагаетсяЕНВД"); СписокЭлементов.ДобавитьЗначение(?(Константа.РозницаОблагаетсяЕНВД.Получить(ДатаПолученияЗначений) = Да, 1, 0), "СложныйУчетНДС"); СписокЭлементов.ДобавитьЗначение(?(Константа.УчитыватьПоложительныеСуммовыеРазницыПриНачисленииНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьПоложительныеСуммовыеРазницыПриНачисленииНДС"); СписокЭлементов.ДобавитьЗначение(?(Константа.УчитыватьОтрицательныеСуммовыеРазницыПриНачисленииНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьОтрицательныеСуммовыеРазницыПриНачисленииНДС"); СписокЭлементов.ДобавитьЗначение(?(Константа.УчитыватьПоложительныеСуммовыеРазницыПриОпределенииВычетовПоНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьПоложительныеСуммовыеРазницыПриОпределенииВычетовПоНДС"); СписокЭлементов.ДобавитьЗначение(?(Константа.УчитыватьОтрицательныеСуммовыеРазницыПриОпределенииВычетовПоНДС.Получить(ДатаПолученияЗначений) = Да, 1, 0), "УчитыватьОтрицательныеСуммовыеРазницыПриОпределенииВычетовПоНДС"); СписокЭлементов.ДобавитьЗначение(?(Константа.ФормироватьСчетФактуруПоУЕвРублях.Получить(ДатаПолученияЗначений) = Да, 1, 0), "ФормироватьСчетФактуруПоУЕвРублях"); СписокЭлементов.ДобавитьЗначение( "ПоСтоимостиПриобретения" , "СпособОценкиТоваровВРознице"); СписокЭлементов.ДобавитьЗначение(Константа.МетодНачисленияАмортизацииНУ.Получить(ДатаПолученияЗначений), "МетодНачисленияАмортизацииНУ"); СписокЭлементов.ДобавитьЗначение(Константа.ТарифСтраховыхВзносов.Получить(ДатаПолученияЗначений), "ВидТарифаСтраховыхВзносов"); СписокЭлементов.ДобавитьЗначение(Константа.УчитыватьДоходыИРасходыВНУПоКурсуАвансов.Получить(ДатаПолученияЗначений), "УчитыватьРасходыНУАналогичноБУ"); СписокЭлементов.ДобавитьЗначение(1, "ОрганизацияВедетРозничнуюТорговлю"); СписокЭлементов.ДобавитьЗначение(ДатаУстановкиЗначений, "Период"); ВыгрузитьПоПравилу(,, СписокЭлементов,, "УчетнаяПолитикаБухгалтерскийУчет"); КонецЦикла; ВыгрузитьПоПравилу(,,,, "УчетнаяПолитикаПоПерсоналу"); Параметры.ТаблицаСчетовРазделовУчета = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаСчетовРазделовУчета.НоваяКолонка("СчетаГруппы"); Параметры.ТаблицаСчетовРазделовУчета.НоваяКолонка("Счета"); Параметры.ТаблицаСчетовРазделовУчета.НоваяКолонка("СчетаИсключения"); Параметры.ТаблицаСчетовРазделовУчета.НоваяКолонка("РазделУчета"); Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "ОсновныеСредства"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "01, 02, 03"; Параметры.ТаблицаСчетовРазделовУчета.Счета = """010"""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = """10"", ""11"", ""001"", ""011"""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "НематериальныеАктивыИНИОКР"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "04, 05"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "КапитальныеВложения"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "07, 08"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "Материалы"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "10"; Параметры.ТаблицаСчетовРазделовУчета.Счета = """41.5"""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "НезавершенноеПроизводство"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "20, 23"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "Товары"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "41"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = """41.5"""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "ГотоваяПродукцияИПолуфабрикаты"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "43, 21"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "ТоварыОтгруженные"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "45"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "ДенежныеСредства"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "50, 51, 52, 53, 54, 55, 56, 57, 58, 59"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасчетыСПоставщикамиИПодрядчиками"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "60"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = """60.3"""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасчетыСПокупателямиИЗаказчиками"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "62"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = """62.3"""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасчетыПоНалогамИСборам"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "68, 69"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасчетыСПерсоналомПоОплатеТрудаИДепонентам"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "70"; Параметры.ТаблицаСчетовРазделовУчета.Счета = """76.4"""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = """76"""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасчетыСПодотчетнымиЛицами"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "71"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасчетыСУчредителями"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "75"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасчетыСПрочимиДебиторамиИКредиторами"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "76"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = """76.3"", ""76.4"", ""76.1.2"", ""76.1.3"", ""76.1.4"", ""76.1.1"", ""76.11"", ""76.АВ"", ""76.ВА"", ""76.Н"", ""76.Н.1"", ""76.Н.2"", ""76.Н.3"""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "НДСПоПриобретеннымЦенностям"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "19"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "НДСПоАвансамПолученным"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = ""; Параметры.ТаблицаСчетовРазделовУчета.Счета = """76.АВ"",""76.ВА"""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = """76"""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "Капитал"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "80, 81, 82, 83, 84, 85, 86"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "РасходыБудущихПериодов"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "97"; Параметры.ТаблицаСчетовРазделовУчета.Счета = "";//""76.1.2"", ""76.1.3"", ""76.1.4"""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "ОтложенныеНалоговыеАктивыОбязательства"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = "09, 77"; Параметры.ТаблицаСчетовРазделовУчета.Счета = ""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; Параметры.ТаблицаСчетовРазделовУчета.НоваяСтрока(); Параметры.ТаблицаСчетовРазделовУчета.РазделУчета = "НДСНачисленный"; Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы = ""; Параметры.ТаблицаСчетовРазделовУчета.Счета = """90.03"""; Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения = ""; //********************************************************* // Сформируем таблицу соответствий счетов авансов и счетов расчетов Параметры.ТаблицаСчетовРасчета = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаСчетовРасчета.НоваяКолонка("АвансовыйСчет"); Параметры.ТаблицаСчетовРасчета.НоваяКолонка("РасчетныйСчет"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("60.2"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("60.1"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("60.7"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("60.6"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("60.22"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("60.11"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("62.2"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("62.1"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("62.2"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("62.4"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("62.7"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("62.6"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("62.22"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("62.11"); Параметры.ТаблицаСчетовРасчета.НоваяСтрока(); Параметры.ТаблицаСчетовРасчета.АвансовыйСчет = СчетПоКоду("62.22"); Параметры.ТаблицаСчетовРасчета.РасчетныйСчет = СчетПоКоду("62.44"); //********************************************************* // Сформируем список розничных складов, используемых как НТТ Параметры.СписокСкладовНТТ = СоздатьОбъект("СписокЗначений"); ПКО = СоздатьОбъект("Документ.ПриходныйОрдер"); ПКО.ВыбратьДокументы(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока ПКО.ПолучитьДокумент()=1 Цикл Если (ПКО.РозничнаяВыручка = 1) и (ПКО.ФормироватьПроводки = 1) Тогда Если Параметры.СписокСкладовНТТ.НайтиЗначение(ПКО.ТорговаяТочка)=0 Тогда Параметры.СписокСкладовНТТ.ДобавитьЗначение(ПКО.ТорговаяТочка); КонецЕсли; КонецЕсли; КонецЦикла; //********************************************************* // Сформируем список счетов, которые не нужно переносить Параметры.СписокНеПереносящихсяСчетов = СоздатьОбъект("СписокЗначений"); Параметры.СписокСчетовНалоговогоУчетаНУ = СоздатьОбъект("СписокЗначений"); Параметры.СписокСчетовНалоговогоУчетаПР = СоздатьОбъект("СписокЗначений"); Параметры.СписокСчетовУчетаРасчетов = СоздатьОбъект("СписокЗначений"); Счета = СоздатьОбъект("Счет"); Счета.ВыбратьСчета(); Пока Счета.ПолучитьСчет()=1 Цикл Если Счета.ПринадлежитГруппе(СчетПоКоду("ЗПК"))=1 Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Счета.ТекущийСчет() = СчетПоКоду("НБ") Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Счета.ПринадлежитГруппе(СчетПоКоду("ДФЛ"))=1 Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Счета.ПринадлежитГруппе(СчетПоКоду("ЗПР"))=1 Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Счета.ПринадлежитГруппе(СчетПоКоду("КВР"))=1 Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Счета.ПринадлежитГруппе(СчетПоКоду("СВЗ"))=1 Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Счета.ПринадлежитГруппе(СчетПоКоду("ВР"))=1 Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Счета.ПринадлежитГруппе(СчетПоКоду("СВР"))=1 Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли Лев(Счета.Код,3)="НПР" Тогда Параметры.СписокСчетовНалоговогоУчетаПР.ДобавитьЗначение(Счета.ТекущийСчет()); //мы не переносим движение по НПР.01 ручными проводками Если Счета.ТекущийСчет()=СчетПоКоду("НПР.01") Тогда Параметры.СписокНеПереносящихсяСчетов.ДобавитьЗначение(Счета.ТекущийСчет()); КонецЕсли; ИначеЕсли Лев(Счета.Код,1)="Н" Тогда Параметры.СписокСчетовНалоговогоУчетаНУ.ДобавитьЗначение(Счета.ТекущийСчет()); ИначеЕсли (Счета.ТекущийСчет() = СчетПоКоду("70")) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("62"))=1) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("60"))=1) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("76"))=1) ИЛИ (Счета.ТекущийСчет() = СчетПоКоду("63")) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("66"))=1) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("67"))=1) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("71"))=1) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("73"))=1) ИЛИ (Счета.ПринадлежитГруппе(СчетПоКоду("75"))=1) Тогда Параметры.СписокСчетовУчетаРасчетов.ДобавитьЗначение(Счета.ТекущийСчет()); КонецЕсли; КонецЦикла; //********************************************************* Параметры.ТаблицаВедомостейПоКассе = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаВедомостейПоКассе.НоваяКолонка("Ведомость"); Параметры.ТаблицаВедомостейПоКассе.НоваяКолонка("Сумма"); Параметры.ТаблицаВедомостейПоКассе.НоваяКолонка("Дата"); //********************************************************* Параметры.ТаблицаВедомостейПоБанку = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаВедомостейПоБанку.НоваяКолонка("Ведомость"); Параметры.ТаблицаВедомостейПоБанку.НоваяКолонка("Выписка"); Параметры.ТаблицаВедомостейПоБанку.НоваяКолонка("СтрокаВыписки"); СписокВедомостей = СоздатьОбъект("ТаблицаЗначений"); СписокВедомостей.НоваяКолонка("Ведомость"); СписокВедомостей.НоваяКолонка("Контрагент"); СписокВедомостей.НоваяКолонка("Договор"); СписокВедомостей.НоваяКолонка("Сумма"); СписокВедомостей.НоваяКолонка("Дата"); Ведомость = СоздатьОбъект("Документ.ВыплатаЗПКасса"); Ведомость.ВыбратьДокументы(Параметры.ДатаВводаОстатков-3,Параметры.ДатаКонцаПериодаВыгрузки); Пока Ведомость.ПолучитьДокумент()=1 Цикл Если Ведомость.Проведен()=0 Тогда Продолжить; КонецЕсли; Если Ведомость.ПорядокВыплаты <> 0 Тогда СписокВедомостей.НоваяСтрока(); СписокВедомостей.Ведомость = Ведомость.ТекущийДокумент(); СписокВедомостей.Контрагент = Ведомость.Контрагент; СписокВедомостей.Договор = Ведомость.Договор; СписокВедомостей.Сумма = Ведомость.Итог("КВыдаче"); СписокВедомостей.Дата = Ведомость.ДатаДок; КонецЕсли; КонецЦикла; //заполним соответствия строк выписки и ведомостей на оплату по банку Выписка = СоздатьОбъект("Документ.Выписка"); Выписка.ВыбратьДокументы(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Выписка.ПолучитьДокумент()=1 Цикл Выписка.ВыбратьСтроки(); Пока Выписка.ПолучитьСтроку()=1 Цикл Если (Выписка.КоррСчет = СчетПоКоду("76.ЗП")) и (Выписка.Расход<>0) Тогда СписокВедомостей.ВыбратьСтроки(); Пока СписокВедомостей.ПолучитьСтроку()=1 Цикл РазницаДней = Выписка.ДатаДок - СписокВедомостей.Дата; Если (РазницаДней>=0) и (РазницаДней<3) и (СписокВедомостей.Сумма = Выписка.Расход) и (СписокВедомостей.Контрагент = Выписка.Субконто1) и (СписокВедомостей.Договор = Выписка.Субконто2) Тогда Параметры.ТаблицаВедомостейПоБанку.НоваяСтрока(); Параметры.ТаблицаВедомостейПоБанку.Ведомость = СписокВедомостей.Ведомость; Параметры.ТаблицаВедомостейПоБанку.Выписка = Выписка.ТекущийДокумент(); Параметры.ТаблицаВедомостейПоБанку.СтрокаВыписки = Выписка.НомерСтроки; СписокВедомостей.УдалитьСтроку(СписокВедомостей.НомерСтроки); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЦикла; // распределяем партии по счету МЦ.04 БИ = СоздатьОбъект("БухгалтерскиеИтоги"); БИ.ИспользоватьСубконто(ВидыСубконто.Материалы,); БИ.ИспользоватьСубконто(ВидыСубконто.Сотрудники,); Если БИ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков, Параметры.ДатаКонцаПериодаВыгрузки,"МЦ.04")=1 Тогда ПартииМатериалов = СоздатьОбъект("ТаблицаЗначений"); ПартииМатериалов.НоваяКолонка("Материал"); ПартииМатериалов.НоваяКолонка("Сотрудник"); ПартииМатериалов.НоваяКолонка("Партия"); ПартииМатериалов.НоваяКолонка("Количество"); СоответствияПартийМатериалов = СоздатьОбъект("ТаблицаЗначений"); СоответствияПартийМатериалов.НоваяКолонка("Материал"); СоответствияПартийМатериалов.НоваяКолонка("Сотрудник"); СоответствияПартийМатериалов.НоваяКолонка("Документ"); СоответствияПартийМатериалов.НоваяКолонка("Партия"); СоответствияПартийМатериалов.НоваяКолонка("Количество"); БИ.ВыбратьСчета(); Пока БИ.ПолучитьСчет()=1 Цикл БИ.ВыбратьСубконто(1); Пока БИ.ПолучитьСубконто(1)=1 Цикл БИ.ВыбратьСубконто(2); Пока БИ.ПолучитьСубконто(2)=1 Цикл ПартииМатериалов.НоваяСтрока(); ПартииМатериалов.Количество = БИ.СНД("К"); ПартииМатериалов.Материал = БИ.Субконто(1).ТекущийЭлемент(); ПартииМатериалов.Сотрудник = БИ.Субконто(2).ТекущийЭлемент(); КонецЦикла; КонецЦикла; КонецЦикла; // Выбираем партии прихода Опер = СоздатьОбъект("Операция"); Опер.ВыбратьОперацииСПроводками(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки,"МЦ.04"); Пока Опер.ПолучитьПроводку()=1 Цикл Если Опер.Дебет.Счет = СчетПоКоду("МЦ.04") Тогда ПартииМатериалов.НоваяСтрока(); ПартииМатериалов.Материал = Опер.Дебет.Материалы; ПартииМатериалов.Сотрудник = Опер.Дебет.Сотрудники; ПартииМатериалов.Партия = Опер.Документ.ТекущийДокумент(); ПартииМатериалов.Количество = Опер.Количество; КонецЕсли; КонецЦикла; // Распределяем партии с начала периода Опер = СоздатьОбъект("Операция"); Опер.ВыбратьОперацииСПроводками(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки,"МЦ.04"); Пока Опер.ПолучитьПроводку()=1 Цикл Если Опер.Кредит.Счет = СчетПоКоду("МЦ.04") Тогда КоличествоРаспределить = Опер.Количество; ПартииМатериалов.ВыбратьСтроки(); Пока (ПартииМатериалов.ПолучитьСтроку()=1) И (КоличествоРаспределить>0) Цикл Если (ПартииМатериалов.Материал = Опер.Кредит.Материалы) Тогда Если (ПартииМатериалов.Сотрудник = Опер.Кредит.Сотрудники) Тогда Если ПартииМатериалов.Количество>0 Тогда СоответствияПартийМатериалов.НоваяСтрока(); СоответствияПартийМатериалов.Материал = ПартииМатериалов.Материал; СоответствияПартийМатериалов.Сотрудник = ПартииМатериалов.Сотрудник; СоответствияПартийМатериалов.Документ = Опер.Документ.ТекущийДокумент(); СоответствияПартийМатериалов.Партия = ПартииМатериалов.Партия; СоответствияПартийМатериалов.Количество = Мин(ПартииМатериалов.Количество,КоличествоРаспределить); ПартииМатериалов.Количество = ПартииМатериалов.Количество - СоответствияПартийМатериалов.Количество; КоличествоРаспределить = КоличествоРаспределить - СоответствияПартийМатериалов.Количество; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Параметры.СоответствияПартийМатериалов = СоответствияПартийМатериалов; КонецЕсли; <ПослеВыгрузкиДанных>//ВыгрузитьПоПравилу(,,,, "Работники"); //ВыгрузитьПоПравилу(,,,, "УволенныеРаботники"); //******************************************************* //выгружаем ставки налога на прибыль ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Период",Параметры.ДатаВводаОстатков-1); ВД.Установить("СтавкаФБ",глПолучитьСтавкуНалога("ПрибФед", Параметры.ДатаВводаОстатков-1)); ВД.Установить("СтавкаСубъектРФ",глПолучитьСтавкуНалога("ПрибРесп", Параметры.ДатаВводаОстатков-1)); ВыгрузитьПоПравилу(,,ВД,,"СтавкиНалогаНаПрибыльДляВсехОрганизаций"); ТаблицаИзмененийСтавок = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзмененийСтавок.НоваяКолонка("Период"); Периодический = СоздатьОбъект("Периодический"); СправочникСтавок = СоздатьОбъект("Справочник.НалогиИОтчисления"); Если СправочникСтавок.НайтиПоКоду("ПрибФед")=1 Тогда Периодический.ИспользоватьОбъект("Ставка",СправочникСтавок.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаИзмененийСтавок.НоваяСтрока(); ТаблицаИзмененийСтавок.Период = НачМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЕсли; Если СправочникСтавок.НайтиПоКоду("ПрибРесп")=1 Тогда Периодический.ИспользоватьОбъект("Ставка",СправочникСтавок.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаИзмененийСтавок.НоваяСтрока(); ТаблицаИзмененийСтавок.Период = НачМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЕсли; ТаблицаИзмененийСтавок.Свернуть("Период",""); ТаблицаИзмененийСтавок.ВыбратьСтроки(); Пока ТаблицаИзмененийСтавок.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Период",ТаблицаИзмененийСтавок.Период); ВД.Установить("СтавкаФБ",глПолучитьСтавкуНалога("ПрибФед", КонМесяца(ТаблицаИзмененийСтавок.Период))); ВД.Установить("СтавкаСубъектРФ",глПолучитьСтавкуНалога("ПрибРесп", КонМесяца(ТаблицаИзмененийСтавок.Период))); ВыгрузитьПоПравилу(,,ВД,,"СтавкиНалогаНаПрибыльДляВсехОрганизаций"); КонецЦикла; //******************************************************* ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Параметры.СписокОбъектовСтроительства.ВыбратьСтроки(); Пока Параметры.СписокОбъектовСтроительства.ПолучитьСтроку() = 1 Цикл ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ОбъектСтроительства", Параметры.СписокОбъектовСтроительства.ОбъектСтроительства); ВходящиеДанные.Установить("СчетБухгалтерскогоУчета", Параметры.СписокОбъектовСтроительства.СчетБухгалтерскогоУчета); ВходящиеДанные.Установить("СчетБухгалтерскогоУчетаНДС", Параметры.СписокОбъектовСтроительства.СчетБухгалтерскогоУчетаНДС); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "СчетаУчетаОбъектовСтроительства"); КонецЦикла; Параметры.ТаблицаДоговоров.ВыбратьСтроки(); Пока Параметры.ТаблицаДоговоров.ПолучитьСтроку() = 1 Цикл ВходящиеДанные.УдалитьВсе(); ВидыДоговора = Параметры.ТаблицаДоговоров.ВидыДоговора; ВидыДоговора.Сортировать("ВесДоговора -,ВидДоговора +"); ВидыДоговора.ВыбратьСтроки(); //выбираем самую первую строчку Если ВидыДоговора.ПолучитьСтроку()=1 Тогда ВидДоговора = ?(ПустоеЗначение(ВидыДоговора.ВидДоговора) = 1, "Прочее", ВидыДоговора.ВидДоговора); ВходящиеДанные.Установить("ВидДоговора", ВидДоговора); ВыгрузитьПоПравилу(Параметры.ТаблицаДоговоров.Договор,, ВходящиеДанные,, "ДоговорыКонтрагентовПоВидам"); КонецЕсли; КонецЦикла; //**************************************** // Ищем и выгружаем расходные кассовые ордера по зарплате СписокРКО = СоздатьОбъект("ТаблицаЗначений"); СписокРКО.НоваяКолонка("РКО"); СписокРКО.НоваяКолонка("Сумма"); СписокРКО.НоваяКолонка("Дата"); РКО = СоздатьОбъект("Документ.РасходныйОрдер"); РКО.ВыбратьДокументы(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки+3); Пока РКО.ПолучитьДокумент()=1 Цикл Если РКО.Проведен()=0 Тогда Продолжить; КонецЕсли; //получим РКО, которые не формируют проводки и относятся к выплате ЗП Если РКО.КоррСчет = СчетПоКоду("70") Тогда СписокРКО.НоваяСтрока(); СписокРКО.РКО = РКО.ТекущийДокумент(); СписокРКО.Сумма = РКО.Сумма; СписокРКО.Дата = РКО.ДатаДок; КонецЕсли; КонецЦикла; СписокРКО.Сортировать("Дата"); ТаблицаВедомостейПоКассе = Параметры.ТаблицаВедомостейПоКассе; ТаблицаВедомостейПоКассе.Сортировать("Дата"); //теперь распределим РКО по ведомостям ТаблицаВедомостейПоКассе.ВыбратьСтроки(); Пока ТаблицаВедомостейПоКассе.ПолучитьСтроку()=1 Цикл Найдено = 0; СписокРКО.ВыбратьСтроки(); Пока СписокРКО.ПолучитьСтроку()=1 Цикл РазницаДней = СписокРКО.Дата - ТаблицаВедомостейПоКассе.Дата; Если (РазницаДней>=0) и (РазницаДней<3) и (СписокРКО.Сумма = ТаблицаВедомостейПоКассе.Сумма) Тогда //нашли - выгружаем РКО ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("ЗарплатнаяВедомость",ТаблицаВедомостейПоКассе.Ведомость); ВыгрузитьПоПравилу(СписокРКО.РКО,,ВД,,"РасходныйОрдер"); СписокРКО.УдалитьСтроку(СписокРКО.НомерСтроки); Найдено = 1; Прервать; КонецЕсли; КонецЦикла; Если Найдено = 0 Тогда //не нашли ВыгрузитьПоПравилу(ТаблицаВедомостейПоКассе.Ведомость,,,,"РасходныйКассовыйОрдер_ВыплатаЗП"); КонецЕсли; КонецЦикла; //**************************************** // Добавляем сведени о конфигурации и ИБ ВыгрузитьСведенияОбИБ(); //**************************************** // Добавляем код проверок данных ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ИдентификаторКонфигурации", глИдентификаторКонфигурации()); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "КонвертацииИзИнформационныхБаз1СПредприятия77"); <ПередЗагрузкойДанных>//********************************************************************************************* // Настройка параметров учета //********************************************************************************************* // Склады // если не включен складской учет - то включим его принудительно БУ = ПланыСчетов.Хозрасчетный.Товары.ПолучитьОбъект(); ВестиПартионныйУчетБУ = НЕ (БУ.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии, "ВидСубконто") = Неопределено); ВестиСкладскойУчетБУ = НЕ (БУ.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады, "ВидСубконто") = Неопределено); Если ВестиСкладскойУчетБУ Тогда ВестиСуммовойУчетПоСкладамБУ = БУ.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады, "ВидСубконто").Суммовой; Иначе ВестиСуммовойУчетПоСкладамБУ = Ложь; КонецЕсли; Если НЕ ВестиСкладскойУчетБУ Тогда ОбщегоНазначения.ПрименитьПараметрыАналитикиМПЗ(ВестиПартионныйУчетБУ, Истина, ВестиСуммовойУчетПоСкладамБУ,); КонецЕсли; //********************************************************************************************* // Денежные средства Выполнить(Алгоритмы.ПрименитьПараметрыДляСчетовДенежныхСредств); //********************************************************************************************* //Работники // Алгоритм читает значение константы 7.7 и при необходимости включает аналитику на счете 70 Выполнить(Алгоритмы.ПрименитьПараметрыРасчетовССотрудниками); //********************************************************************************************* Параметры.Вставить("ПараметрыАлгоритмов",Новый Структура); НаборКонстант = Константы.СоздатьНабор("ЕстьПроизводственнаяДеятельность, ЕстьРозничнаяТорговля"); НаборКонстант.Прочитать(); НаборКонстант.ЕстьПроизводственнаяДеятельность = Истина; НаборКонстант.ЕстьРозничнаяТорговля = Истина; НаборКонстант.Записать(); <ПослеЗагрузкиОбъекта>Если ИмяТипаОбъекта = "Справочник" ИЛИ ИмяТипаОбъекта = "ПланВидовХарактеристик" Тогда Если НЕ ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод(); КонецЕсли; ИначеЕсли ИмяТипаОбъекта = "Документ" Тогда Если НЕ ЗначениеЗаполнено(Объект.Номер) Тогда Объект.УстановитьНовыйНомер(); КонецЕсли; КонецЕсли; <Параметры> <Параметр Имя="_ВыгружатьНеПроведенные " Наименование="Выгружать непроведенные документы" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="_ВыгружатьПроведенные " Наименование="Выгружать проведенные документы" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="_ВыгружатьУдаленные " Наименование="Выгружать помеченные на удаление документы" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="БУ_ДатаКонца " Наименование="Бухгалерские итоги" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ВыгружатьКоды " Наименование="Выгружать коды справочников" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ВычетыСотрудниковпоНДФЛ " Наименование="Таблицы вычетов сотрудников по НДФЛ" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ВычетыСотрудниковпоНДФЛЛичный " Наименование="Таблица личных вычетов сотрудников по НДФЛ" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ДатаВводаОстатков " Наименование="Дата ввода остатков" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ДатаКонцаПериодаВыгрузки " Наименование="Дата конца периода выгрузки" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ДлинаКода " Наименование="Длина кодов справочников" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="НачалоПримененияПостановления1137 " Наименование="Начало применения постановления №1137 " ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ТипЗначения="Дата" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ПараметрыАлгоритмов " Наименование="Параметры алгоритмов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ПрефиксОрганизации " Наименование="Префикс документов организации" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="РазделУчета " Наименование="Текущий раздел учета" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="Рубли " Наименование="Рубли" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СоответствияПартийМатериалов " Наименование="Соответствия партий для списания" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокНеПереносящихсяСчетов " Наименование="Список счетов, проводки с которыми не переносятся" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокНМА " Наименование="Список НМА" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокОбъектовСтроительства " Наименование="Список объектов строительства" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокОС " Наименование="Список ОС" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокРаботников " Наименование="Список работников" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокСкладовНТТ " Наименование="Список складов, используемых как НТТ" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокСчетовНалоговогоУчетаНУ " Наименование="Список счетов по налоговому учету" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокСчетовНалоговогоУчетаПР " Наименование="Список счетов по налоговому учету постоянных разниц" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокСчетовУчетаРасчетов " Наименование="Список счетов учета расчетов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокУволенныхРаботников " Наименование="Список уволенных работников" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СчетВводаОстатков " Наименование="Счет ввода остатков" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаВедомостейПоБанку " Наименование="Таблица ведомостей выплаты ЗП через банк" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаВедомостейПоКассе " Наименование="Таблица ведомостей выплаты ЗП через кассу" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаДоговоров " Наименование="Таблица договоров" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаОстатковМЦ " Наименование="Таблица остатков по счетам МЦ" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаОстатковНУ " Наименование="Таблица остатков по НУ" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаПроводок " Наименование="Таблица проводок (остатки)" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаПроводокОбороты " Наименование="Таблица проводок (обороты)" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаСчетовРазделовУчета " Наименование="Таблица соответствий разделов учета документа ввода остатков и счетов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаСчетовРасчета " Наименование="Таблица соответствий счета аванса и счета расчета для расчетных счетов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Обработки/> <ПравилаКонвертацииОбъектов> <Группа> <Код>ОбъектыУчета <Наименование>Объекты учета <Порядок>50 <Группа> <Код>Справочники <Наименование>Справочники <Порядок>100 <Правило> <Код>БанковскиеСчета <Наименование>СправочникСсылка.БанковскиеСчета --> СправочникСсылка.БанковскиеСчета <Порядок>50 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("Владелец"))=0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("Владелец")); КонецЕсли; КонецЕсли; <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчета <Свойства> <Свойство> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> НомерСчета <Порядок>300 <Источник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>БанкОрганизации --> Банк <Порядок>400 <Источник Имя="БанкОрганизации" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Свойство> <Код>5 <Наименование>БанкДляРасчетов --> БанкДляРасчетов <Порядок>500 <Источник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Свойство> <Код>6 <Наименование>Корреспондент --> ТекстКорреспондента <Порядок>600 <Источник Имя="Корреспондент" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстКорреспондента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>МесяцПрописью --> МесяцПрописью <Порядок>700 <Источник Имя="МесяцПрописью" Вид="Реквизит" Тип="Число"/> <Приемник Имя="МесяцПрописью" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>8 <Наименование>СуммаБез00Копеек --> СуммаБезКопеек <Порядок>800 <Источник Имя="СуммаБез00Копеек" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаБезКопеек" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ВидСчета --> ВидСчета <Порядок>900 <Источник Имя="ВидСчета" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидСчета" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>НомерИДатаРазрешения --> НомерИДатаРазрешения <Порядок>1000 <Источник Имя="НомерИДатаРазрешения" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИДатаРазрешения" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>ДатаОткрытияСчета --> ДатаОткрытия <Порядок>1100 <Источник Имя="ДатаОткрытияСчета" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаОткрытия" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>12 <Наименование>ДатаЗакрытияСчета --> ДатаЗакрытия <Порядок>1200 <Источник Имя="ДатаЗакрытияСчета" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаЗакрытия" Вид="Реквизит" Тип="Дата"/> <Свойство Поиск="true"> <Код>13 <Наименование> --> Владелец <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("Владелец"))=1 Тогда Значение = ВходящиеДанные.Получить("Владелец"); ИмяПКО = "КонтрагентБанк"; КонецЕсли; Иначе КонецЕсли; Значение = "1"; <Свойство> <Код>14 <Наименование> --> ВалютаДенежныхСредств <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если Источник.ТипСчета = Перечисление.ТипыБанковскихСчетов.Рублевый Тогда Значение = Параметры.Рубли; Иначе Значение = ""; КонецЕсли; <Свойство> <Код>15 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>16 <Наименование>ВсегдаУказыватьКПП --> ВсегдаУказыватьКПП <Порядок>1600 <Источник Имя="ВсегдаУказыватьКПП" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВсегдаУказыватьКПП" Вид="Реквизит" Тип="Булево"/> <Значения/> <Правило> <Код>НоменклатурныеГруппы <Наименование>СправочникСсылка.ВидыНоменклатуры --> СправочникСсылка.НоменклатурныеГруппы <Порядок>100 <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ВидыНоменклатуры <Приемник>СправочникСсылка.НоменклатурныеГруппы <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Отключить="true"> <Код>3 <Наименование>Код --> Код <Порядок>300 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ДоговорыКонтрагентов <Наименование>СправочникСсылка.Договоры --> СправочникСсылка.ДоговорыКонтрагентов <Порядок>150 <ПередВыгрузкой>ВидДоговора = Параметры.ПараметрыАлгоритмов.Получить("ВидДоговора"); ВесДоговора = Параметры.ПараметрыАлгоритмов.Получить("ВесДоговора"); Если (ПустоеЗначение(Источник) = 0) и (ВидДоговора <> "Прочее") и (ПустоеЗначение(ВидДоговора) = 0) и (ПустоеЗначение(ВесДоговора)=0) Тогда Если Источник.ЭтоГруппа() = 0 Тогда НомСтр = 0; Если Параметры.ТаблицаДоговоров.НайтиЗначение(Источник, НомСтр, "Договор") = 0 Тогда Параметры.ТаблицаДоговоров.НоваяСтрока(); Параметры.ТаблицаДоговоров.Договор = Источник; Параметры.ТаблицаДоговоров.ВидыДоговора = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаДоговоров.ВидыДоговора.НоваяКолонка("ВидДоговора"); Параметры.ТаблицаДоговоров.ВидыДоговора.НоваяКолонка("ВесДоговора"); Параметры.ТаблицаДоговоров.ВидыДоговора.НоваяСтрока(); Параметры.ТаблицаДоговоров.ВидыДоговора.ВидДоговора = ВидДоговора; Параметры.ТаблицаДоговоров.ВидыДоговора.ВесДоговора = ВесДоговора; Иначе ВидыДоговора = Параметры.ТаблицаДоговоров.ПолучитьЗначение(НомСтр,"ВидыДоговора"); НомВид = 0; Если ВидыДоговора.НайтиЗначение(ВидДоговора,НомВид,"ВидДоговора")=1 Тогда ВидыДоговора.ПолучитьСтрокуПоНомеру(НомВид); ВидыДоговора.ВесДоговора = ВидыДоговора.ВесДоговора + ВесДоговора; Иначе ВидыДоговора.НоваяСтрока(); ВидыДоговора.ВидДоговора = ВидДоговора; ВидыДоговора.ВесДоговора = ВесДоговора; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора",""); Параметры.ПараметрыАлгоритмов.Установить("ВесДоговора",""); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник.Наименование, 50); <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство Поиск="true"> <Код>5 <Наименование>Владелец --> Владелец <Порядок>500 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true"> <Код>10 <Наименование> --> Организация <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Иначе Значение = "1"; КонецЕсли; <Группа> <Код>11 <Наименование> --> <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>6 <Наименование> --> ВалютаВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВалютаДоговора) = 1 Тогда Значение = Параметры.Рубли; Иначе Значение = Источник.ВалютаДоговора; КонецЕсли; <Свойство> <Код>7 <Наименование> --> РасчетыВУсловныхЕдиницах <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыВУсловныхЕдиницах" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если (Источник.ОплатаДоговора = 1) и (ПустоеЗначение(Источник.ВалютаДоговора) = 0) Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>8 <Наименование> --> ВидДоговора <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДоговоровКонтрагентов"/> <ПередВыгрузкой>Если ПустоеЗначение(Параметры.ПараметрыАлгоритмов.Получить("ВидДоговора")) = 0 Тогда Значение = Параметры.ПараметрыАлгоритмов.Получить("ВидДоговора"); Иначе Значение = "Прочее"; КонецЕсли; <Свойство> <Код>13 <Наименование>ВидДоговора --> ВидВзаиморасчетов <Порядок>850 <Источник Имя="ВидДоговора" Вид="Реквизит" Тип="СправочникСсылка.ВидыДоговоров"/> <Приемник Имя="ВидВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.ВидыВзаиморасчетов"/> <КодПравилаКонвертации>ВидыВзаиморасчетов <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ДоговорыКонтрагентовПоВидам <Наименование>СправочникСсылка.Договоры --> СправочникСсылка.ДоговорыКонтрагентов <Порядок>200 <ПриЗагрузке>//Если ОбъектНайден Тогда // Если НЕ Объект.ЭтоГруппа Тогда // Если НЕ ЗначениеЗаполнено(Объект.ВидДоговора) Тогда // Объект.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.Прочее; // НеЗамещатьОбъект = Истина; // КонецЕсли; // Если НЕ ЗначениеЗаполнено(Объект.ВалютаВзаиморасчетов) Тогда // Объект.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить(); // КонецЕсли; // КонецЕсли; //КонецЕсли; <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>11 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>9 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник.Наименование, 50); <Свойство Поиск="true"> <Код>10 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство Поиск="true"> <Код>7 <Наименование>Владелец --> Владелец <Порядок>500 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>3 <Наименование> --> ВидДоговора <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДоговоровКонтрагентов"/> <ПередВыгрузкой>Если ТипЗначения(ВходящиеДанные) = 0 Тогда Значение = "Прочее"; КонецЕсли; <Свойство Поиск="true"> <Код>6 <Наименование> --> Организация <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>Контрагенты <Наименование>СправочникСсылка.Контрагенты --> СправочникСсылка.Контрагенты <Порядок>300 <ПослеВыгрузки>Если Источник.ЭтоГруппа() = 0 Тогда ВыгрузитьПоПравилу(Источник,,,, "ТелефоныКонтрагента"); ВыгрузитьПоПравилу(Источник,,,, "ЮридическийАдресКонтрагента"); ВыгрузитьПоПравилу(Источник,,,, "ФактическийАдресКонтрагента"); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true"> <Код>6 <Наименование>ИНН --> ИНН <Порядок>600 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Значение = ?(СтрДлина(СокрЛП(Источник.ИНН)) > 12, Лев(СокрЛП(Источник.ИНН), 10), СокрЛП(Источник.ИНН)); Иначе Отказ = 1; КонецЕсли; <Свойство Поиск="true"> <Код>10 <Наименование> --> КПП <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Значение = ?(СтрДлина(СокрЛП(Источник.ИНН)) > 12, СокрЛП(Сред(Источник.ИНН, 12, 9)), ""); Иначе Отказ = 1; КонецЕсли; <Группа> <Код>12 <Наименование> --> <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>5 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>500 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ОсновнойДоговор --> ОсновнойДоговорКонтрагента <Порядок>700 <Источник Имя="ОсновнойДоговор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ОсновнойДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>8 <Наименование>ОсновнойСчет --> ОсновнойБанковскийСчет <Порядок>800 <Источник Имя="ОсновнойСчет" Вид="Реквизит" Тип="СправочникСсылка.РасчетныеСчета"/> <Приемник Имя="ОсновнойБанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>РасчетныеСчета <Свойство> <Код>9 <Наименование>ВидКонтрагента --> ЮрФизЛицо <Порядок>900 <Источник Имя="ВидКонтрагента" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыКонтрагентов"/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <КодПравилаКонвертации>ЮрФизЛицо <Свойство> <Код>11 <Наименование> --> ДокументУдостоверяющийЛичность <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументУдостоверяющийЛичность" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ", серия: " + Источник.ДокументСерия + ", № " + Источник.ДокументНомер + ", выдан: "+ Источник.ДокументДатаВыдачи + ", " + Источник.ДокументКемВыдан; <Свойство> <Код>13 <Наименование> --> ГоловнойКонтрагент <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ГоловнойКонтрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>15 <Наименование>ОКПО --> КодПоОКПО <Порядок>1250 <Источник Имя="ОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>НомераГТД <Наименование>СправочникСсылка.ГТД --> СправочникСсылка.НомераГТД <Порядок>350 <Источник>СправочникСсылка.ГТД <Приемник>СправочникСсылка.НомераГТД <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Код <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ДоходыБудущихПериодов <Наименование>СправочникСсылка.ДоходыБудущихПериодов --> СправочникСсылка.ДоходыБудущихПериодов <Порядок>400 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ДоходыБудущихПериодов <Приемник>СправочникСсылка.ДоходыБудущихПериодов <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник.Наименование, 25); <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Материалы <Наименование>СправочникСсылка.Материалы --> СправочникСсылка.Номенклатура <Порядок>450 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Материалы <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, 11); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель) = 1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Материалы"); ИмяПКО = "ГруппаНоменклатуры"; Значение = "1"; КонецЕсли; <Группа> <Код>8 <Наименование> --> <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство Поиск="true"> <Код>5 <Наименование>ЕдиницаИзмерения --> БазоваяЕдиницаИзмерения <Порядок>500 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерений"/> <Приемник Имя="БазоваяЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <Свойство> <Код>6 <Наименование>Наименование --> НаименованиеПолное <Порядок>600 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Услуга <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>900 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>КлассификаторСтранМира <Наименование>Строка --> СправочникСсылка.КлассификаторСтранМира <Порядок>500 <Источник>Строка <Приемник>СправочникСсылка.КлассификаторСтранМира <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник, 60); <Свойство> <Код>2 <Наименование> --> НаименованиеПолное <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>Склады <Наименование>СправочникСсылка.МестаХранения --> СправочникСсылка.Склады <Порядок>550 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.МестаХранения <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>ТипСклада --> ВидСклада <Порядок>300 <Источник Имя="ТипСклада" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыСкладов"/> <Приемник Имя="ВидСклада" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСкладов"/> <ПередВыгрузкой>Если Источник.ТипСклада = Перечисление.ТипыСкладов.Розничный Тогда Если Параметры.СписокСкладовНТТ.НайтиЗначение(Источник)>0 Тогда Значение = "НеавтоматизированнаяТорговаяТочка"; Иначе Значение = "Розничный"; КонецЕсли; Иначе Значение = "Оптовый"; КонецЕсли; <Свойство> <Код>4 <Наименование>ТипЦен --> ТипЦенРозничнойТорговли <Порядок>400 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦенРозничнойТорговли" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>НематериальныеАктивы <Наименование>СправочникСсылка.НематериальныеАктивы --> СправочникСсылка.НематериальныеАктивы <Порядок>600 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.НематериальныеАктивы <Приемник>СправочникСсылка.НематериальныеАктивы <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.НематериальныеАктивы"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель) = 1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Наименование = ?(Источник.ВидОбъектаУчета = 0, "Нематериальные активы", "Расходы на НИОКР"); ИсходящиеДанные.Установить("Наименование", Наименование); ИмяПКО = "ГруппаНМА"; Значение = "1"; КонецЕсли; <Свойство Поиск="true"> <Код>8 <Наименование>ВидОбъектаУчета --> ВидОбъектаУчета <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОбъектаУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОбъектовУчетаНМА"/> <ПередВыгрузкой>Значение = ?(Источник.ВидОбъектаУчета = 0, "НематериальныйАктив", "РасходыНаНИОКР"); Отказ = Источник.ЭтоГруппа(); <Группа> <Код>9 <Наименование> --> <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>5 <Наименование>Группа --> ВидНМА <Порядок>500 <Источник Имя="Группа" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыНМА"/> <Приемник Имя="ВидНМА" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыНМА"/> <КодПравилаКонвертации>ВидыНМА <Свойство> <Код>7 <Наименование>АмортизационнаяГруппа --> АмортизационнаяГруппа <Порядок>700 <Источник Имя="АмортизационнаяГруппа" Вид="Реквизит" Тип="ПеречислениеСсылка.АмортизационныеГруппы"/> <Приемник Имя="АмортизационнаяГруппа" Вид="Реквизит" Тип="ПеречислениеСсылка.АмортизационныеГруппы"/> <КодПравилаКонвертации>АмортизационныеГруппы <Свойство Поиск="true"> <Код>10 <Наименование> --> ПрочиеСведения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ПрочиеСведения" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Иначе Значение = СокрЛП(Источник.ПрочиеСведения + " # ИНН организации: " + СокрЛП(Константа.ИННОрганизации) + "; инв. ном.: " + СокрЛП(Источник.Код) + " #"); КонецЕсли; <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Номенклатура <Наименование>СправочникСсылка.Номенклатура --> СправочникСсылка.Номенклатура <Порядок>650 <ПередВыгрузкой>Если Источник.ЭтоГруппа()=1 Тогда Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(Источник)+ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ТипНоменклатуры")); КонецЕсли; КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, 11); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда ТипНоменклатуры = Источник.ТипНоменклатуры; ИначеЕсли ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда ТипНоменклатуры = ВходящиеДанные.Получить("ТипНоменклатуры"); Иначе ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар; КонецЕсли; Если ПустоеЗначение(Источник.Родитель) = 1 Тогда Если ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда ИмяГруппы = "Товары"; ИначеЕсли ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда ИмяГруппы = "Продукция"; ИначеЕсли ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда ИмяГруппы = "Полуфабрикаты"; ИначеЕсли ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга Тогда ИмяГруппы = "Услуги"; ИначеЕсли ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Работа Тогда ИмяГруппы = "Услуги"; ИначеЕсли ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга Тогда ИмяГруппы = "Услуги"; ИначеЕсли ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда ИмяГруппы = "Услуги"; Иначе ИмяГруппы = "Товары"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", ИмяГруппы); ИмяПКО = "ГруппаНоменклатуры"; Значение = "1"; Иначе ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", ТипНоменклатуры); КонецЕсли; <Свойство Поиск="true"> <Код>7 <Наименование>ЕдиницаИзмерения --> БазоваяЕдиницаИзмерения <Порядок>700 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерений"/> <Приемник Имя="БазоваяЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; КонецЕсли; <Группа> <Код>11 <Наименование> --> <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>5 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>500 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ПолнНаименование) = 1 Тогда Значение = Источник.Наименование; КонецЕсли; <Свойство> <Код>6 <Наименование>ВидНоменклатуры --> НоменклатурнаяГруппа <Порядок>600 <Источник Имя="ВидНоменклатуры" Вид="Реквизит" Тип="СправочникСсылка.ВидыНоменклатуры"/> <Приемник Имя="НоменклатурнаяГруппа" Вид="Реквизит" Тип="СправочникСсылка.НоменклатурныеГруппы"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>8 <Наименование> --> СтавкаНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Ставка = Источник.СтавкаНДС.Получить(Параметры.ДатаКонцаПериодаВыгрузки).Ставка; Если Ставка = 0 Тогда Значение = "БезНДС"; ИначеЕсли Ставка = 18 Тогда Значение = "НДС18"; ИначеЕсли Ставка = 10 Тогда Значение = "НДС10"; ИначеЕсли Ставка = 20 Тогда Значение = "НДС20"; Иначе Значение = ""; КонецЕсли; <Свойство> <Код>9 <Наименование>СтранаПроисхождения --> СтранаПроисхождения <Порядок>900 <Источник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство> <Код>10 <Наименование> --> Услуга <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга Тогда Значение = 1; ИначеЕсли Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга Тогда Значение = 1; ИначеЕсли Источник.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Оборудование <Наименование>СправочникСсылка.Оборудование --> СправочникСсылка.Номенклатура <Порядок>700 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Оборудование <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, 11); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Описание --> НаименованиеПолное <Порядок>300 <Источник Имя="Описание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Услуга <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование> --> ЭтоГруппа <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>6 <Наименование> --> Родитель <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>ГруппаНоменклатуры <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Оборудование к установке"); Значение = "1"; <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ОбъектыСтроительства_08_4 <Наименование>СправочникСсылка.ОбъектыСтроительства --> СправочникСсылка.Номенклатура <Порядок>750 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ОбъектыСтроительства <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, 11); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ОбъектыСтроительства"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>ГруппаНоменклатуры <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Оборудование (объекты основных средств)"); Значение = "1"; <Свойство> <Код>5 <Наименование> --> Услуга <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = 0; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ОбъектыСтроительства_08_3 <Наименование>СправочникСсылка.ОбъектыСтроительства --> СправочникСсылка.ОбъектыСтроительства <Порядок>800 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ОбъектыСтроительства <Приемник>СправочникСсылка.ОбъектыСтроительства <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ОбъектыСтроительства_08_5_08_8 <Наименование>СправочникСсылка.ОбъектыСтроительства --> СправочникСсылка.НематериальныеАктивы <Порядок>850 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ОбъектыСтроительства <Приемник>СправочникСсылка.НематериальныеАктивы <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>300 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ОбъектыСтроительства"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>ГруппаНМА <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Объекты внеоборотных активов"); Значение = "1"; <Свойство> <Код>5 <Наименование> --> НаименованиеПолное <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = Источник.Наименование; <Свойство Поиск="true"> <Код>6 <Наименование> --> ВидОбъектаУчета <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОбъектаУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОбъектовУчетаНМА"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "НематериальныйАктив"; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Счет = ВходящиеДанные.Получить("Счет"); Если ПустоеЗначение(Счет) = 0 Тогда Если (Счет = СчетПоКоду("08.8")) ИЛИ (Счет = СчетПоКоду("Н01.03")) Тогда Значение = "РасходыНаНИОКР"; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ОсновныеСредства <Наименование>СправочникСсылка.ОсновныеСредства --> СправочникСсылка.ОсновныеСредства <Порядок>900 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ОсновныеСредства <Приемник>СправочникСсылка.ОсновныеСредства <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>//Если Параметры.ВыгружатьКоды = Да Тогда // Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); // //Иначе // Отказ = 1 ; //КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ОсновныеСредства"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство Поиск="true"> <Код>7 <Наименование>ПрочиеСведения --> НаименованиеПолное <Порядок>700 <Источник Имя="ПрочиеСведения" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Иначе Значение = СокрЛП(Источник.ПрочиеСведения + " # ИНН организации: " + СокрЛП(Константа.ИННОрганизации) + "; инв. ном.: " + СокрЛП(Источник.Код) + " #"); КонецЕсли; <Группа> <Код>10 <Наименование> --> <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>5 <Наименование>Группа --> ГруппаОС <Порядок>500 <Источник Имя="Группа" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыОС"/> <Приемник Имя="ГруппаОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыОС"/> <КодПравилаКонвертации>ГруппыОС <Свойство> <Код>8 <Наименование>ШифрПоЕНАОФ --> ШифрПоЕНАОФ <Порядок>800 <Источник Имя="ШифрПоЕНАОФ" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕН"/> <Приемник Имя="ШифрПоЕНАОФ" Вид="Реквизит" Тип="СправочникСсылка.ЕдиныеНормыАмортизационныхОтчисленийОсновныхФондов"/> <КодПравилаКонвертации>ЕдиныеНормыАмортизационныхОтчисленийОсновныхФондов <Свойство> <Код>9 <Наименование>АмортизационнаяГруппа --> АмортизационнаяГруппа <Порядок>900 <Источник Имя="АмортизационнаяГруппа" Вид="Реквизит" Тип="ПеречислениеСсылка.АмортизационныеГруппы"/> <Приемник Имя="АмортизационнаяГруппа" Вид="Реквизит" Тип="ПеречислениеСсылка.АмортизационныеГруппы"/> <КодПравилаКонвертации>АмортизационныеГруппы <Свойство> <Код>11 <Наименование>Наименование --> НаименованиеПолное <Порядок>1000 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>КодПоОКОФ --> КодПоОКОФ <Порядок>1050 <Источник Имя="КодПоОКОФ" Вид="Реквизит" Тип="СправочникСсылка.ОбщероссийскийКлассификаторОсновныхФондов"/> <Приемник Имя="КодПоОКОФ" Вид="Реквизит" Тип="СправочникСсылка.ОбщероссийскийКлассификаторОсновныхФондов"/> <КодПравилаКонвертации>ОбщероссийскийКлассификаторОсновныхФондов <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ПодразделенияОрганизаций <Наименование>СправочникСсылка.Подразделения --> СправочникСсылка.ПодразделенияОрганизаций <Порядок>950 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Подразделения <Приемник>СправочникСсылка.ПодразделенияОрганизаций <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование> --> Владелец <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ПрочиеДоходыИРасходы <Наименование>СправочникСсылка.ПрочиеДоходыИРасходы --> СправочникСсылка.ПрочиеДоходыИРасходы <Порядок>1000 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ПрочиеДоходыИРасходы <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>ВидПрочихДоходовИРасходов --> ВидПрочихДоходовИРасходов <Порядок>100 <Источник Имя="ВидПрочихДоходовИРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПрочихДоходовИРасходов"/> <Приемник Имя="ВидПрочихДоходовИРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПрочихДоходовИРасходов"/> <КодПравилаКонвертации>ВидыПрочихДоходовИРасходов <Свойство> <Код>4 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство Отключить="true"> <Код>5 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>7 <Наименование> --> ПринятиеКналоговомуУчету <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПринятиеКналоговомуУчету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ПринятиеКналоговомуУчету"))=0 Тогда Значение = ВходящиеДанные.Получить("ПринятиеКналоговомуУчету"); КонецЕсли; КонецЕсли; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>РасходыБудущихПериодов <Наименование>СправочникСсылка.РасходыБудущихПериодов --> СправочникСсылка.РасходыБудущихПериодов <Порядок>1050 <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <ПослеЗагрузки> //обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатрат"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоЗатрат"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.РасходыБудущихПериодов <Приемник>СправочникСсылка.РасходыБудущихПериодов <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаНачалаСписания --> ДатаНачалаСписания <Порядок>400 <Источник Имя="ДатаНачалаСписания" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаНачалаСписания" Вид="Реквизит" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаОкончанияСписания --> ДатаОкончанияСписания <Порядок>500 <Источник Имя="ДатаОкончанияСписания" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаОкончанияСписания" Вид="Реквизит" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>7 <Наименование>СчетЗатрат --> СчетЗатрат <Порядок>700 <Источник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Основной"/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Счет = Источник.СчетЗатрат; Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); ИмяПКО = "Хозрасчетный"; <Свойство> <Код>8 <Наименование>Субконто1 --> СубконтоЗатрат1 <Порядок>800 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="СубконтоЗатрат1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>9 <Наименование>Субконто2 --> СубконтоЗатрат2 <Порядок>900 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="СубконтоЗатрат2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); ПриВыгрузкеСубконто(); <Свойство> <Код>10 <Наименование>Субконто3 --> СубконтоЗатрат3 <Порядок>1000 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="СубконтоЗатрат3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); ПриВыгрузкеСубконто(); <Свойство> <Код>15 <Наименование> --> ВидРБП <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРБП" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРБП"/> <ПередВыгрузкой>Значение = "Прочие"; <Свойство> <Код>16 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true" Обязательное="true"> <Код>17 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>1700 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>18 <Наименование>Родитель --> Родитель <Порядок>1800 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.РасходыБудущихПериодов"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.РасходыБудущихПериодов"/> <КодПравилаКонвертации>РасходыБудущихПериодов <Свойство> <Код>19 <Наименование>СпособПризнанияРасходов --> СпособПризнанияРасходов <Порядок>1900 <Источник Имя="СпособПризнанияРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПризнанияРасходов"/> <Приемник Имя="СпособПризнанияРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПризнанияРасходов"/> <КодПравилаКонвертации>СпособыПризнанияРасходов <Свойство> <Код>20 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>2000 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>21 <Наименование> --> ВидАктива <Порядок>2050 <Источник Имя="" Вид=""/> <Приемник Имя="ВидАктива" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыАктивовДляРБП"/> <ПередВыгрузкой>Значение = "ПрочиеОборотныеАктивы"; <Значения/> <Правило> <Код>Резервы <Наименование>СправочникСсылка.Резервы --> СправочникСсылка.Резервы <Порядок>1100 <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Резервы <Приемник>СправочникСсылка.Резервы <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ФизическиеЛица <Наименование>СправочникСсылка.Сотрудники --> СправочникСсылка.ФизическиеЛица <Порядок>1150 <ПослеВыгрузки>Если Источник.ЭтоГруппа() = 0 Тогда ВычетыСотрудниковпоНДФЛ = СоздатьОбъект("Справочник.ВычетыСотрудниковпоНДФЛ"); ВычетыСотрудниковпоНДФЛ.ИспользоватьВладельца(Источник); Параметры.ВычетыСотрудниковпоНДФЛ.УдалитьСтроки(); Параметры.ВычетыСотрудниковпоНДФЛЛичный.УдалитьСтроки(); НомСтроки = 0; Если Параметры.СписокРаботников.НайтиЗначение(Источник, НомСтроки, "ФизЛицо") = 0 Тогда Параметры.СписокРаботников.НоваяСтрока(); Параметры.СписокРаботников.ФизЛицо = Источник; КонецЕсли; Если Источник.ХарактерРаботы.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Перечисление.ХарактерРаботы.ТрудовыеОтношенияПрекращены Тогда НомСтроки = 0; Если Параметры.СписокУволенныхРаботников.НайтиЗначение(Источник, НомСтроки, "ФизЛицо") = 0 Тогда Параметры.СписокУволенныхРаботников.НоваяСтрока(); Параметры.СписокУволенныхРаботников.ФизЛицо = Источник; КонецЕсли; КонецЕсли; ПолноеИмя = Источник.Наименование; ПозицияПервогоПробела = Найти(ПолноеИмя, " "); Если ПозицияПервогоПробела <> 0 Тогда Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела); ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1); ИмяОтчество = СокрЛ(ИмяОтчество); Имя = Лев(ИмяОтчество, 1)+"."; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Фамилия", Фамилия); ВходящиеДанные.Установить("Имя", ИмяОтчество); ВходящиеДанные.Установить("Отчество", ""); ПозицияВторогоПробела = Найти(ИмяОтчество, " "); Если ПозицияВторогоПробела <> 0 Тогда Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1); Отчество = СокрЛ(Отчество); ВходящиеДанные.Установить("Имя", Лев(ИмяОтчество, ПозицияВторогоПробела)); ВходящиеДанные.Установить("Отчество", Отчество); КонецЕсли; ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "ФИОФизЛиц"); КонецЕсли; ВыгрузитьПоПравилу(Источник,,,, "СведенияОбИнвалидностиФизлиц"); ВыгрузитьПоПравилу(Источник,,,, "ПаспортныеДанныеФизЛиц"); ВыгрузитьПоПравилу(Источник,,,, "СтатусФизЛицКакНалогоплательщиковНДФЛ"); ВыгрузитьПоПравилу(Источник,,,, "ГражданствоФизЛиц"); ВыгрузитьПоПравилу(Источник,,,, "ПроцентСевернойНадбавкиФизЛиц"); ВыгрузитьПоПравилу(Источник,,,, "ТелефоныФизЛица"); ВыгрузитьПоПравилу(Источник,,,, "АдресПоПропискеФизЛица"); ВыгрузитьПоПравилу(Источник,,,, "ФактическийАдресФизЛица"); ВыгрузитьПоПравилу(Источник,,,, "НДФЛДоходыПредыдущегоМестаРаботы"); //Выгрузка стандартных вычетов сотрудника ВычетыСотрудниковпоНДФЛ.ВыбратьЭлементы(); Пока ВычетыСотрудниковпоНДФЛ.ПолучитьЭлемент() = 1 Цикл Если ВычетыСотрудниковпоНДФЛ.ПометкаУдаления() = 1 Тогда Продолжить; КонецЕсли; Если (Лев(ВычетыСотрудниковпоНДФЛ.ВидВычета.КодДляОтчетности2009, 1)) <> "1" Тогда Продолжить; КонецЕсли; Если (ВычетыСотрудниковпоНДФЛ.ВидВычета.КодДляОтчетности2009 <> "103") И (ВычетыСотрудниковпоНДФЛ.ВидВычета.КодДляОтчетности2009 <> "104") И (ВычетыСотрудниковпоНДФЛ.ВидВычета.КодДляОтчетности2009 <> "105") Тогда Параметры.ВычетыСотрудниковпоНДФЛ.НоваяСтрока(); Параметры.ВычетыСотрудниковпоНДФЛ.Физлицо = Источник; Параметры.ВычетыСотрудниковпоНДФЛ.КодВычета = ВычетыСотрудниковпоНДФЛ.ВидВычета; Параметры.ВычетыСотрудниковпоНДФЛ.КоличествоДетей = 1; Параметры.ВычетыСотрудниковпоНДФЛ.Период = ?(ПустоеЗначение(ВычетыСотрудниковпоНДФЛ.ДатаНачала) = 1, "",НачМесяца(ВычетыСотрудниковпоНДФЛ.ДатаНачала)); Параметры.ВычетыСотрудниковпоНДФЛ.ПериодЗавершения = ?(ПустоеЗначение(ВычетыСотрудниковпоНДФЛ.ДатаОкончания) = 1, "",КонМесяца(ВычетыСотрудниковпоНДФЛ.ДатаОкончания)); Иначе Параметры.ВычетыСотрудниковпоНДФЛЛичный.НоваяСтрока(); Параметры.ВычетыСотрудниковпоНДФЛЛичный.Физлицо = Источник; Параметры.ВычетыСотрудниковпоНДФЛЛичный.КодВычетаЛичный = ВычетыСотрудниковпоНДФЛ.ВидВычета.КодДляОтчетности2009; Параметры.ВычетыСотрудниковпоНДФЛЛичный.Период = ?(ПустоеЗначение(ВычетыСотрудниковпоНДФЛ.ДатаНачала) = 1, "",НачМесяца(ВычетыСотрудниковпоНДФЛ.ДатаНачала)); Если ПустоеЗначение(ВычетыСотрудниковпоНДФЛ.ДатаОкончания) <> 1 Тогда Параметры.ВычетыСотрудниковпоНДФЛЛичный.НоваяСтрока(); Параметры.ВычетыСотрудниковпоНДФЛЛичный.Физлицо = Источник; Параметры.ВычетыСотрудниковпоНДФЛЛичный.Период = ?(ПустоеЗначение(ВычетыСотрудниковпоНДФЛ.ДатаОкончания) = 1, "",КонМесяца(ВычетыСотрудниковпоНДФЛ.ДатаОкончания)); КонецЕсли; КонецЕсли; КонецЦикла; Параметры.ВычетыСотрудниковпоНДФЛ.Свернуть("Физлицо, КодВычета, Период, ПериодЗавершения","КоличествоДетей"); Параметры.ВычетыСотрудниковпоНДФЛЛичный.Свернуть("Физлицо, КодВычетаЛичный, Период, ",""); Если (Параметры.ВычетыСотрудниковпоНДФЛ.КоличествоСтрок()>0) или (Параметры.ВычетыСотрудниковпоНДФЛЛичный.КоличествоСтрок()>0) Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Период", Параметры.ДатаВводаОстатков); ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "НДФЛПрименениеВычетов"); КонецЕсли; Параметры.ВычетыСотрудниковпоНДФЛ.ВыбратьСтроки(); Пока Параметры.ВычетыСотрудниковпоНДФЛ.ПолучитьСтроку() = 1 Цикл ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Период", Параметры.ВычетыСотрудниковпоНДФЛ.Период); ВходящиеДанные.Установить("ПериодЗавершения", Параметры.ВычетыСотрудниковпоНДФЛ.ПериодЗавершения); ВходящиеДанные.Установить("Физлицо", Параметры.ВычетыСотрудниковпоНДФЛ.Физлицо); ВходящиеДанные.Установить("КодВычета", Параметры.ВычетыСотрудниковпоНДФЛ.КодВычета); ВходящиеДанные.Установить("КоличествоДетей", Параметры.ВычетыСотрудниковпоНДФЛ.КоличествоДетей); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "НДФЛСтандартныеВычетыНаДетей"); КонецЦикла; Параметры.ВычетыСотрудниковпоНДФЛЛичный.ВыбратьСтроки(); Пока Параметры.ВычетыСотрудниковпоНДФЛЛичный.ПолучитьСтроку() = 1 Цикл ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Период", Параметры.ВычетыСотрудниковпоНДФЛЛичный.Период); ВходящиеДанные.Установить("Физлицо", Параметры.ВычетыСотрудниковпоНДФЛЛичный.Физлицо); ВходящиеДанные.Установить("КодВычетаЛичный", Параметры.ВычетыСотрудниковпоНДФЛЛичный.КодВычетаЛичный); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "НДФЛСтандартныеВычетыФизлиц"); КонецЦикла; КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Сотрудники <Приемник>СправочникСсылка.ФизическиеЛица <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = Источник.Код; Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство Поиск="true"> <Код>6 <Наименование>ИНН --> ИНН <Порядок>600 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; КонецЕсли; <Группа> <Код>11 <Наименование> --> <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>5 <Наименование>ДатаРождения --> ДатаРождения <Порядок>500 <Источник Имя="ДатаРождения" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаРождения" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>МестоРождения --> МестоРождения <Порядок>700 <Источник Имя="МестоРождения" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="МестоРождения" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Пол --> Пол <Порядок>800 <Источник Имя="Пол" Вид="Реквизит" Тип="ПеречислениеСсылка.Пол"/> <Приемник Имя="Пол" Вид="Реквизит" Тип="ПеречислениеСсылка.ПолФизическихЛиц"/> <КодПравилаКонвертации>ПолФизическихЛиц <Свойство> <Код>9 <Наименование>СтраховойНомерПФР --> СтраховойНомерПФР <Порядок>900 <Источник Имя="СтраховойНомерПФР" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="СтраховойНомерПФР" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> КодИМНС <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КодИМНС" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник.ИНН, 4); <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиЗатратНаПроизводство <Наименование>СправочникСсылка.СтатьиЗатратНаПроизводство --> СправочникСсылка.СтатьиЗатрат <Порядок>1200 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиЗатратНаПроизводство <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатратНаПроизводство"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатратНаПроизводство <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи затрат на производство"; КонецЕсли; <Свойство Поиск="true"> <Код>5 <Наименование>ВидРасходовДляНалоговогоУчета --> ВидРасходовНУ <Порядок>500 <Источник Имя="ВидРасходовДляНалоговогоУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыВидыРасходов"/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <КодПравилаКонвертации>ГруппыВидыРасходов <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Свойство Поиск="true"> <Код>6 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиЗатратНаСтроительство <Наименование>СправочникСсылка.СтатьиЗатратНаСтроительство --> СправочникСсылка.СтатьиЗатрат <Порядок>1250 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиЗатратНаСтроительство <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатратНаСтроительство"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатратНаСтроительство <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи затрат на строительство"; КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование> --> ВидРасходовНУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "НеУчитываемыеВЦеляхНалогообложения"; <Свойство Поиск="true"> <Код>5 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); ОтнесениеРасходовКДеятельностиЕНВД(); Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиЗатратОбслуживающихПроизводств <Наименование>СправочникСсылка.СтатьиЗатратОбслуживающихПроизводств --> СправочникСсылка.СтатьиЗатрат <Порядок>1300 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиЗатратОбслуживающихПроизводств <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатратОбслуживающихПроизводств"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатратОбслуживающихПроизводств <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи затрат обслуживающих производств"; КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование>ВидРасходовДляНалоговогоУчета --> ВидРасходовНУ <Порядок>400 <Источник Имя="ВидРасходовДляНалоговогоУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыВидыРасходов"/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <КодПравилаКонвертации>ГруппыВидыРасходов <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Свойство Поиск="true"> <Код>5 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиИздержекОбращения <Наименование>СправочникСсылка.СтатьиИздержекОбращения --> СправочникСсылка.СтатьиЗатрат <Порядок>1350 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ВидДеятельностиДляНалоговогоУчетаЗатрат"))=0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ВходящиеДанные.Получить("ВидДеятельностиДляНалоговогоУчетаЗатрат"); КонецЕсли; КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиИздержекОбращения <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиИздержекОбращения"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиИздержекОбращения <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи издержек обращения"; КонецЕсли; <Свойство Поиск="true"> <Код>5 <Наименование>ВидРасходовДляНалоговогоУчета --> ВидРасходовНУ <Порядок>500 <Источник Имя="ВидРасходовДляНалоговогоУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыВидыРасходов"/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Если Источник.СписыватьИздержкиПропорциональноОстаткуТоваров.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = 1 Тогда Значение = "ТранспортныеРасходы"; Иначе ИмяПКО = "ГруппыВидыРасходов"; КонецЕсли; <Свойство Поиск="true"> <Код>6 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ВидДеятельностиДляНалоговогоУчетаЗатрат"))=0 Тогда Значение = ВходящиеДанные.Получить("ВидДеятельностиДляНалоговогоУчетаЗатрат"); КонецЕсли; КонецЕсли; <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиКоммерческихРасходов <Наименование>СправочникСсылка.СтатьиКоммерческихРасходов --> СправочникСсылка.СтатьиЗатрат <Порядок>1400 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиКоммерческихРасходов <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиКоммерческихРасходов"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиКоммерческихРасходов <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи коммерческих расходов"; КонецЕсли; <Свойство Поиск="true"> <Код>5 <Наименование>ВидРасходовДляНалоговогоУчета --> ВидРасходовНУ <Порядок>500 <Источник Имя="ВидРасходовДляНалоговогоУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыВидыРасходов"/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <КодПравилаКонвертации>ГруппыВидыРасходов <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Свойство Поиск="true"> <Код>6 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "ВидДеятельностиОпределяетсяПоДоходам"; <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиОбщепроизводственныхЗатрат <Наименование>СправочникСсылка.СтатьиОбщепроизводственныхЗатрат --> СправочникСсылка.СтатьиЗатрат <Порядок>1450 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиОбщепроизводственныхЗатрат <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиОбщепроизводственныхЗатрат"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиОбщепроизводственныхЗатрат <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи общепроизводственных затрат"; КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование>ВидРасходовДляНалоговогоУчета --> ВидРасходовНУ <Порядок>400 <Источник Имя="ВидРасходовДляНалоговогоУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыВидыРасходов"/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <КодПравилаКонвертации>ГруппыВидыРасходов <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Свойство Поиск="true"> <Код>5 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиОбщехозяйственныхЗатрат <Наименование>СправочникСсылка.СтатьиОбщехозяйственныхЗатрат --> СправочникСсылка.СтатьиЗатрат <Порядок>1500 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиОбщехозяйственныхЗатрат <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиОбщехозяйственныхЗатрат"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиОбщехозяйственныхЗатрат <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи общехозяйственных затрат"; КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование>ВидРасходовДляНалоговогоУчета --> ВидРасходовНУ <Порядок>400 <Источник Имя="ВидРасходовДляНалоговогоУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыВидыРасходов"/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <КодПравилаКонвертации>ГруппыВидыРасходов <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Свойство Поиск="true"> <Код>5 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "ВидДеятельностиОпределяетсяПоДоходам"; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиРасходовНаПродажу <Наименование>СправочникСсылка.СтатьиРасходовНаПродажу --> СправочникСсылка.СтатьиЗатрат <Порядок>1550 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиРасходовНаПродажу <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиРасходовНаПродажу"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиРасходовНаПродажу <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель)=1 Тогда ИмяПКО = "ГруппаСтатейЗатрат"; Значение = "Статьи расходов на продажу"; КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование>ВидРасходовДляНалоговогоУчета --> ВидРасходовНУ <Порядок>400 <Источник Имя="ВидРасходовДляНалоговогоУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ГруппыВидыРасходов"/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <КодПравилаКонвертации>ГруппыВидыРасходов <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Свойство Поиск="true"> <Код>5 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = "ВидДеятельностиОпределяетсяПоДоходам"; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ЦенныеБумаги <Наименование>СправочникСсылка.ЦенныеБумаги --> СправочникСсылка.ЦенныеБумаги <Порядок>1600 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ЦенныеБумаги <Приемник>СправочникСсылка.ЦенныеБумаги <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>РБП_НМА <Наименование>СправочникСсылка.РасходыБудущихПериодов --> СправочникСсылка.НематериальныеАктивы <Порядок>1650 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.РасходыБудущихПериодов <Приемник>СправочникСсылка.НематериальныеАктивы <Свойства> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>400 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>5 <Наименование>Родитель --> Родитель <Порядок>500 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.РасходыБудущихПериодов"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>РБП_НМА <ПередВыгрузкой>Если ПустоеЗначение(Источник.Родитель) = 1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Расходы на НИОКР"); ИмяПКО = "ГруппаНМА"; Значение = "1"; КонецЕсли; <Свойство Поиск="true"> <Код>6 <Наименование> --> ВидОбъектаУчета <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОбъектаУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОбъектовУчетаНМА"/> <ПередВыгрузкой>Значение = "РасходыНаНИОКР"; Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиДвиженияДенежныхСредств <Наименование>СправочникСсылка.ДвиженияДенежныхСредств --> СправочникСсылка.СтатьиДвиженияДенежныхСредств <Порядок>1700 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>ВидДвижения --> ВидДвиженияДенежныхСредств <Порядок>400 <Источник Имя="ВидДвижения" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДвиженийДенежныхСредств"/> <Приемник Имя="ВидДвиженияДенежныхСредств" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДвиженийДенежныхСредств"/> <ПередВыгрузкой>Если Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоОбычнымВидамДеятельности Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "СредстваПолученныеОтПокупателейИЗаказчиков"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоПрочимОперациям Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеПоступленияПоТекущейДеятельности"; ИначеЕсли Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПрочиеПоступленияПоИнвестиционнойДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ЦелевоеФинансирование Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеПоступленияПоТекущейДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.БезвозмездныеПоступления Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеПоступленияПоТекущейДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.КредитыПолученные Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Финансовая Тогда Значение = "ПоступленияОтЗаймовИКредитовПредоставленныхДругимиОрганизациями"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ЗаймыПолученные Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Финансовая Тогда Значение = "ПоступленияОтЗаймовИКредитовПредоставленныхДругимиОрганизациями"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ДивидендыПроцентыПолученные Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПолученныеДивиденды"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПолученоИзБанкаНаличными Тогда Отказ = 1; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.КупляПродажаИностраннойВалюты Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеПоступленияПоТекущейДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПрочиеПоступления Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеПоступленияПоТекущейДеятельности"; ИначеЕсли Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПрочиеПоступленияПоИнвестиционнойДеятельности"; ИначеЕсли Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Финансовая Тогда Значение = "ПрочиеРасходыПоФинансовойДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеТоваровПродукцииРаботИУслуг Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ОплатаОборотныхАктивов"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ОплатаТруда Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ОплатаТруда"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПлатежиВСоциальныеФонды Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ОплатаПоПенсионнымПланам"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыданныеПодотчетныеСуммы Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеРасходыПоТекущейДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ДолевоеУчастиеВСтроительстве Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеРасходыПоТекущейДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеМашинОборудованияИТранспортныхСредств Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПриобретениеОбъектовОсновныхСредств"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ФинансовыеВложения Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПриобретениеЦенныхБумагИИныхФинансовыхВложений"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ДивидендыПроцентыВыплаченные Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ВыплатаДивидендовПроцентов"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПлатежиВБюджет Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "РасчетыПоНалогамИСборам"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВозвратКредитовИЗаймов Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Финансовая Тогда Значение = "ПогашениеЗаймовИКредитов"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.СданоВБанкНаличными Тогда Отказ = 1; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПрочиеВыплатыИПеречисления Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Текущая Тогда Значение = "ПрочиеРасходыПоТекущейДеятельности"; ИначеЕсли Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПрочиеРасходыПоИнвестиционнойДеятельности"; ИначеЕсли Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Финансовая Тогда Значение = "ПрочиеРасходыПоФинансовойДеятельности"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаОтПродажиЦенныхБумаг Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ВыручкаОтПродажиЦенныхБумагИИныхФинансовыхВложений"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПроцентыПолученные Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПолученныеПроценты"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПоступленияОтПогашенияЗаймов Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПоступленияОтПогашенияЗаймовПредоставленныхДругимОрганизациям"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеДочернихОрганизаций Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ПриобретениеДочернихОрганизаций"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПредоставленныеЗаймы Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Инвестиционная Тогда Значение = "ЗаймыПредоставленныеДругимОрганизациям"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПоступленияОтЭмиссииАкций Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Финансовая Тогда Значение = "ПоступленияОтЭмиссииАкций"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли Источник.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПогашениеОбязательствПоФинансовойАренде Тогда Если Источник.РазрезДеятельности = Перечисление.РазрезыДеятельности.Финансовая Тогда Значение = "ПогашениеОбязательствПоФинансовойАренде"; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СотрудникиОрганизаций <Наименование>СправочникСсылка.Сотрудники --> СправочникСсылка.СотрудникиОрганизаций <Порядок>1750 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Сотрудники <Приемник>СправочникСсылка.СотрудникиОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>500 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>8 <Наименование> --> Организация <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Иначе Значение = "1"; КонецЕсли; <Группа> <Код>10 <Наименование> --> <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>6 <Наименование> --> Актуальность <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Актуальность" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование> --> ВидЗанятости <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЗанятости" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЗанятостиВОрганизации"/> <ПередВыгрузкой>Значение = "ОсновноеМестоРаботы"; <Свойство> <Код>9 <Наименование> --> Физлицо <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>БланкиСтрогойОтчетности <Наименование>СправочникСсылка.БланкиСтрогойОтчетности --> СправочникСсылка.БланкиСтрогойОтчетности <Порядок>1800 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.БланкиСтрогойОтчетности <Приемник>СправочникСсылка.БланкиСтрогойОтчетности <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Число"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ВидыДоходов <Наименование>Справочник: Виды доходов <Порядок>1850 <НеЗамещать>true <Источник>СправочникСсылка.ВидыДоходов <Приемник>СправочникСсылка.ДоходыНДФЛ <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Код --> КодДляОтчетности <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="КодДляОтчетности" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> СтавкаНалогообложенияРезидента <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНалогообложенияРезидента" Вид="Реквизит" Тип="ПеречислениеСсылка.НДФЛСтавкиНалогообложенияРезидента"/> <ПередВыгрузкой>Если Источник.Код = "1010" Тогда Значение = "Ставка09"; ИначеЕсли Найти(",2610,1210,3020,2740,",","+Источник.Код+",") > 0 Тогда Значение = "Ставка35"; Иначе Значение = "Ставка13"; КонецЕсли; <Значения/> <Группа> <Код>Перечисления <Наименование>Перечисления <Порядок>200 <Правило> <Код>ВидыНачисленийОплатыТрудаПоСт255НК <Наименование>ПеречислениеСсылка.ВидыНачисленийПоОплатеТруда --> ПеречислениеСсылка.ВидыНачисленийОплатыТрудаПоСт2 <Порядок>100 <Источник>ПеречислениеСсылка.ВидыНачисленийПоОплатеТруда <Приемник>ПеречислениеСсылка.ВидыНачисленийОплатыТрудаПоСт255НК <Свойства/> <Значения> <Значение> <Код>1 <Наименование>пп1ст255 --> пп1ст255 <Порядок>100 <Источник>пп1ст255 <Приемник>пп1ст255 <Значение> <Код>2 <Наименование>пп2ст255 --> пп2ст255 <Порядок>200 <Источник>пп2ст255 <Приемник>пп2ст255 <Значение> <Код>3 <Наименование>пп3ст255 --> пп3ст255 <Порядок>300 <Источник>пп3ст255 <Приемник>пп3ст255 <Значение> <Код>4 <Наименование>пп4ст255 --> пп4ст255 <Порядок>400 <Источник>пп4ст255 <Приемник>пп4ст255 <Значение> <Код>5 <Наименование>пп5ст255 --> пп5ст255 <Порядок>500 <Источник>пп5ст255 <Приемник>пп5ст255 <Значение> <Код>6 <Наименование>пп6ст255 --> пп6ст255 <Порядок>600 <Источник>пп6ст255 <Приемник>пп6ст255 <Значение> <Код>7 <Наименование>пп7ст255 --> пп7ст255 <Порядок>700 <Источник>пп7ст255 <Приемник>пп7ст255 <Значение> <Код>8 <Наименование>пп8ст255 --> пп8ст255 <Порядок>800 <Источник>пп8ст255 <Приемник>пп8ст255 <Значение> <Код>9 <Наименование>пп9ст255 --> пп9ст255 <Порядок>900 <Источник>пп9ст255 <Приемник>пп9ст255 <Значение> <Код>10 <Наименование>пп10ст255 --> пп10ст255 <Порядок>1000 <Источник>пп10ст255 <Приемник>пп10ст255 <Значение> <Код>11 <Наименование>пп11ст255 --> пп11ст255 <Порядок>1100 <Источник>пп11ст255 <Приемник>пп11ст255 <Значение> <Код>12 <Наименование>пп12ст255 --> пп12ст255 <Порядок>1200 <Источник>пп12ст255 <Приемник>пп12ст255 <Значение> <Код>13 <Наименование>пп13ст255 --> пп13ст255 <Порядок>1300 <Источник>пп13ст255 <Приемник>пп13ст255 <Значение> <Код>14 <Наименование>пп14ст255 --> пп14ст255 <Порядок>1400 <Источник>пп14ст255 <Приемник>пп14ст255 <Значение> <Код>15 <Наименование>пп15ст255 --> пп15ст255 <Порядок>1500 <Источник>пп15ст255 <Приемник>пп15ст255 <Значение> <Код>16 <Наименование>пп16ст255 --> пп16ст255 <Порядок>1600 <Источник>пп16ст255 <Приемник>пп16ст255 <Значение> <Код>17 <Наименование>пп17ст255 --> пп17ст255 <Порядок>1700 <Источник>пп17ст255 <Приемник>пп17ст255 <Значение> <Код>18 <Наименование>пп18ст255 --> пп18ст255 <Порядок>1800 <Источник>пп18ст255 <Приемник>пп18ст255 <Значение> <Код>19 <Наименование>пп19ст255 --> пп19ст255 <Порядок>1900 <Источник>пп19ст255 <Приемник>пп19ст255 <Значение> <Код>20 <Наименование>пп20ст255 --> пп20ст255 <Порядок>2000 <Источник>пп20ст255 <Приемник>пп20ст255 <Значение> <Код>21 <Наименование>пп21ст255 --> пп21ст255 <Порядок>2100 <Источник>пп21ст255 <Приемник>пп21ст255 <Значение> <Код>22 <Наименование>пп22ст255 --> пп22ст255 <Порядок>2200 <Источник>пп22ст255 <Приемник>пп22ст255 <Значение> <Код>23 <Наименование>пп23ст255 --> пп23ст255 <Порядок>2300 <Источник>пп23ст255 <Приемник>пп23ст255 <Значение> <Код>24 <Наименование>пп24ст255 --> пп24ст255 <Порядок>2400 <Источник>пп24ст255 <Приемник>пп24ст255 <Значение> <Код>25 <Наименование>пп25ст255 --> пп25ст255 <Порядок>2500 <Источник>пп25ст255 <Приемник>пп25ст255 <Значение> <Код>26 <Наименование>пп12_1ст255 --> пп12_1ст255 <Порядок>2550 <Источник>пп12_1ст255 <Приемник>пп12_1ст255 <Правило> <Код>ВидыАктивовИОбязательств <Наименование>ПеречислениеСсылка.ВидыАктивовИобязательств --> ПеречислениеСсылка.ВидыАктивовИОбязательств <Порядок>200 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВидыАктивовИобязательств <Приемник>ПеречислениеСсылка.ВидыАктивовИОбязательств <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ОсновныеСредства --> ОсновныеСредства <Порядок>100 <Источник>ОсновныеСредства <Приемник>ОсновныеСредства <Значение> <Код>2 <Наименование>НематериальныеАктивы --> НематериальныеАктивы <Порядок>200 <Источник>НематериальныеАктивы <Приемник>НематериальныеАктивы <Значение> <Код>3 <Наименование>Оборудование --> Оборудование <Порядок>300 <Источник>Оборудование <Приемник>Оборудование <Значение> <Код>4 <Наименование>ВнеоборотныеАктивы --> ВнеоборотныеАктивы <Порядок>400 <Источник>ВнеоборотныеАктивы <Приемник>ВнеоборотныеАктивы <Значение> <Код>5 <Наименование>Материалы --> Материалы <Порядок>500 <Источник>Материалы <Приемник>Материалы <Значение> <Код>6 <Наименование>НезавершенноеПроизводство --> НезавершенноеПроизво <Порядок>600 <Источник>НезавершенноеПроизводство <Приемник>НезавершенноеПроизводство <Значение> <Код>7 <Наименование>ГотоваяПродукция --> ГотоваяПродукция <Порядок>700 <Источник>ГотоваяПродукция <Приемник>ГотоваяПродукция <Значение> <Код>8 <Наименование>Полуфабрикаты --> Полуфабрикаты <Порядок>800 <Источник>Полуфабрикаты <Приемник>Полуфабрикаты <Значение> <Код>9 <Наименование>РасходыБудущихПериодов --> РасходыБудущихПериодов <Порядок>900 <Источник>РасходыБудущихПериодов <Приемник>РасходыБудущихПериодов <Значение> <Код>10 <Наименование>Товары --> Товары <Порядок>1000 <Источник>Товары <Приемник>Товары <Значение> <Код>11 <Наименование>ТоварыОтгруженные --> ТоварыОтгруженные <Порядок>1100 <Источник>ТоварыОтгруженные <Приемник>ТоварыОтгруженные <Значение> <Код>12 <Наименование>ИздержкиОбращения --> ИздержкиОбращения <Порядок>1200 <Источник>ИздержкиОбращения <Приемник>ИздержкиОбращения <Значение> <Код>13 <Наименование>ДебиторскаяЗадолженность --> ДебиторскаяЗадолженно <Порядок>1300 <Источник>ДебиторскаяЗадолженность <Приемник>ДебиторскаяЗадолженность <Значение> <Код>14 <Наименование>ФинансовыеВложения --> ФинансовыеВложения <Порядок>1400 <Источник>ФинансовыеВложения <Приемник>ФинансовыеВложения <Значение> <Код>15 <Наименование>Паи --> ФинансовыеВложения <Порядок>1500 <Источник>Паи <Приемник>ФинансовыеВложения <Значение> <Код>16 <Наименование>ПраваТребования --> ДебиторскаяЗадолженность <Порядок>1600 <Источник>ПраваТребования <Приемник>ДебиторскаяЗадолженность <Значение> <Код>17 <Наименование>НедостачиПотери --> УбытокТекущегоПериода <Порядок>1700 <Источник>НедостачиПотери <Приемник>УбытокТекущегоПериода <Значение> <Код>18 <Наименование>ДоходыБудущихПериодов --> ДоходыБудущихПериодов <Порядок>1800 <Источник>ДоходыБудущихПериодов <Приемник>ДоходыБудущихПериодов <Значение> <Код>19 <Наименование>РезервыСомнительныхДолгов --> ДебиторскаяЗадолженн <Порядок>1900 <Источник>РезервыСомнительныхДолгов <Приемник>ДебиторскаяЗадолженность <Значение> <Код>20 <Наименование>КредиторскаяЗадолженность --> КредиторскаяЗадолжен <Порядок>2000 <Источник>КредиторскаяЗадолженность <Приемник>КредиторскаяЗадолженность <Значение> <Код>21 <Наименование>УбыткиПрошлыхПериодов --> УбытокТекущегоПериода <Порядок>2100 <Источник>УбыткиПрошлыхПериодов <Приемник>УбытокТекущегоПериода <Значение> <Код>22 <Наименование>КурсовыеРазницыПриОплатеВРублях --> КурсовыеРазниц <Порядок>2200 <Источник>КурсовыеРазницыПриОплатеВРублях <Приемник>КурсовыеРазницыПоРасчетамВУЕ <Правило> <Код>ВидыПлатежейВБюджет <Наименование>ПеречислениеСсылка.ВидыПлатежейВБюджет --> ПеречислениеСсылка.ВидыПлатежейВГосБюджет <Порядок>300 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВидыПлатежейВБюджет <Приемник>ПеречислениеСсылка.ВидыПлатежейВГосБюджет <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Налог --> Налог <Порядок>100 <Источник>Налог <Приемник>Налог <Значение> <Код>2 <Наименование>НалогСам --> НалогСам <Порядок>200 <Источник>НалогСам <Приемник>НалогСам <Значение> <Код>3 <Наименование>НалогАкт --> НалогАкт <Порядок>300 <Источник>НалогАкт <Приемник>НалогАкт <Значение> <Код>4 <Наименование>Штраф --> Штраф <Порядок>400 <Источник>Штраф <Приемник>Штраф <Значение> <Код>5 <Наименование>Пени --> ПениСам <Порядок>500 <Источник>Пени <Приемник>ПениСам <Правило> <Код>ВидыПлатежейВФонды <Наименование>ПеречислениеСсылка.ВидыПлатежейВФонды --> ПеречислениеСсылка.ВидыПлатежейВГосБюджет <Порядок>400 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВидыПлатежейВФонды <Приемник>ПеречислениеСсылка.ВидыПлатежейВГосБюджет <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Взносы --> Налог <Порядок>100 <Источник>Взносы <Приемник>Налог <Значение> <Код>2 <Наименование>ВзносыСам --> НалогСам <Порядок>200 <Источник>ВзносыСам <Приемник>НалогСам <Значение> <Код>3 <Наименование>ВзносыАкт --> НалогСам <Порядок>300 <Источник>ВзносыАкт <Приемник>НалогСам <Значение> <Код>4 <Наименование>ПениСам --> ПениСам <Порядок>400 <Источник>ПениСам <Приемник>ПениСам <Значение> <Код>5 <Наименование>ПениАкт --> ПениАкт <Порядок>500 <Источник>ПениАкт <Приемник>ПениАкт <Значение> <Код>6 <Наименование>Путевки --> РасходыПоСтрахованию <Порядок>600 <Источник>Путевки <Приемник>РасходыПоСтрахованию <Значение> <Код>7 <Наименование>НеПринято --> НеПринято <Порядок>700 <Источник>НеПринято <Приемник>НеПринято <Значение> <Код>8 <Наименование>Штраф --> Штраф <Порядок>800 <Источник>Штраф <Приемник>Штраф <Значение> <Код>9 <Наименование>ПолученоИзфонда --> ПолученоИзФонда <Порядок>900 <Источник>ПолученоИзфонда <Приемник>ПолученоИзФонда <Значение> <Код>10 <Наименование>РасходыПоСтрахованию --> РасходыПоСтрахованию <Порядок>1000 <Источник>РасходыПоСтрахованию <Приемник>РасходыПоСтрахованию <Значение> <Код>11 <Наименование>ПолученоОтНалоговогоОргана --> ПолученоИзФонда <Порядок>1100 <Источник>ПолученоОтНалоговогоОргана <Приемник>ПолученоИзФонда <Правило> <Код>ГруппыВидыРасходов <Наименование>ПеречислениеСсылка.ГруппыВидыРасходов --> ПеречислениеСсылка.ВидыРасходовНУ <Порядок>500 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ГруппыВидыРасходов <Приемник>ПеречислениеСсылка.ВидыРасходовНУ <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ОплатаТруда --> ОплатаТруда <Порядок>100 <Источник>ОплатаТруда <Приемник>ОплатаТруда <Значение> <Код>2 <Наименование>МатериальныеРасходы --> МатериальныеРасходы <Порядок>200 <Источник>МатериальныеРасходы <Приемник>МатериальныеРасходы <Значение> <Код>3 <Наименование>Амортизация --> Амортизация <Порядок>300 <Источник>Амортизация <Приемник>Амортизация <Значение> <Код>4 <Наименование>ДобровольноеИОбязательноеСтрахование --> Обязатель <Порядок>400 <Источник>ДобровольноеИОбязательноеСтрахование <Приемник>ОбязательноеИДобровольноеСтрахованиеИмущества <Значение> <Код>5 <Наименование>ЕСН --> ОплатаТруда <Порядок>500 <Источник>ЕСН <Приемник>ОплатаТруда <Значение> <Код>6 <Наименование>НалогиИСборы --> НалогиИСборы <Порядок>600 <Источник>НалогиИСборы <Приемник>НалогиИСборы <Значение> <Код>7 <Наименование>ПользованиеПравамиНаРезультатыИнтеллектуальнойДеят <Порядок>700 <Источник>ПользованиеПравамиНаРезультатыИнтеллектуальнойДеятельности <Приемник>ПрочиеРасходы <Значение> <Код>8 <Наименование>РасходыНаКомандировки --> ПрочиеРасходы <Порядок>800 <Источник>РасходыНаКомандировки <Приемник>ПрочиеРасходы <Значение> <Код>9 <Наименование>ПредставительскиеРасходы --> ПредставительскиеРасх <Порядок>900 <Источник>ПредставительскиеРасходы <Приемник>ПредставительскиеРасходы <Значение> <Код>10 <Наименование>РасходыНаРекламу --> РасходыНаРекламуНормируемые <Порядок>1000 <Источник>РасходыНаРекламу <Приемник>РасходыНаРекламуНормируемые <Значение> <Код>11 <Наименование>РасходыНаРекламуБезНорм --> ПрочиеРасходы <Порядок>1100 <Источник>РасходыНаРекламуБезНорм <Приемник>ПрочиеРасходы <Значение> <Код>12 <Наименование>ИнформационныеУслуги --> ПрочиеРасходы <Порядок>1200 <Источник>ИнформационныеУслуги <Приемник>ПрочиеРасходы <Значение> <Код>13 <Наименование>ИзучениеКонъюнктурыРынка --> ПрочиеРасходы <Порядок>1300 <Источник>ИзучениеКонъюнктурыРынка <Приемник>ПрочиеРасходы <Значение> <Код>14 <Наименование>РемонтОсновныхСредств --> РемонтОсновныхСредств <Порядок>1400 <Источник>РемонтОсновныхСредств <Приемник>РемонтОсновныхСредств <Значение> <Код>15 <Наименование>ГарантийныйРемонтИОбслуживание --> ПрочиеРасходы <Порядок>1500 <Источник>ГарантийныйРемонтИОбслуживание <Приемник>ПрочиеРасходы <Значение> <Код>16 <Наименование>ПодготовкаИПереподготовкаКадров --> ПрочиеРасходы <Порядок>1600 <Источник>ПодготовкаИПереподготовкаКадров <Приемник>ПрочиеРасходы <Значение> <Код>17 <Наименование>ОхранаИмущества --> ПрочиеРасходы <Порядок>1700 <Источник>ОхранаИмущества <Приемник>ПрочиеРасходы <Значение> <Код>18 <Наименование>УслугиПоУправлению --> ПрочиеРасходы <Порядок>1800 <Источник>УслугиПоУправлению <Приемник>ПрочиеРасходы <Значение> <Код>19 <Наименование>АудиторскиеУслуги --> ПрочиеРасходы <Порядок>1900 <Источник>АудиторскиеУслуги <Приемник>ПрочиеРасходы <Значение> <Код>20 <Наименование>ПредоставлениеРаботниковСтороннимиОрганизациями -- <Порядок>2000 <Источник>ПредоставлениеРаботниковСтороннимиОрганизациями <Приемник>ПрочиеРасходы <Значение> <Код>21 <Наименование>НИОКР --> НаНИОКР <Порядок>2100 <Источник>НИОКР <Приемник>НИОКР <Значение> <Код>22 <Наименование>ОсвоениеПриродныхРесурсов --> ОсвоениеПриродныхРес <Порядок>2200 <Источник>ОсвоениеПриродныхРесурсов <Приемник>ОсвоениеПриродныхРесурсов <Значение> <Код>23 <Наименование>СоциальнаяЗащитаИнвалидов --> ПрочиеРасходы <Порядок>2300 <Источник>СоциальнаяЗащитаИнвалидов <Приемник>ПрочиеРасходы <Значение> <Код>24 <Наименование>ДругиеРасходы --> ПрочиеРасходы <Порядок>2400 <Источник>ДругиеРасходы <Приемник>ПрочиеРасходы <Значение> <Код>25 <Наименование>НеПринимаемые --> НеУчитываемыеВЦеляхНалогообложен <Порядок>2500 <Источник>НеПринимаемые <Приемник>НеУчитываемыеВЦеляхНалогообложения <Значение> <Код>26 <Наименование>АмортизационнаяПремия --> АмортизационнаяПремия <Порядок>2550 <Источник>АмортизационнаяПремия <Приемник>АмортизационнаяПремия <Правило> <Код>ВидыРасходов <Наименование> --> СправочникСсылка.СтатьиЗатрат <Порядок>600 <Источник>ПеречислениеСсылка.ГруппыВидыРасходов <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Свойство Поиск="true"> <Код>2 <Наименование> --> Родитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>ГруппаСтатейЗатрат <ПередВыгрузкой>Значение = "Выгрузка оборотов счета Н07.04.1"; <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование> --> ЭтоГруппа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>4 <Наименование> --> ВидРасходовНУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <ПередВыгрузкой>Значение = Источник; <Свойство Поиск="true"> <Код>5 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Значения/> <Правило> <Код>ВидыРасходовПрочие <Наименование> --> СправочникСсылка.СтатьиЗатрат <Порядок>700 <Источник>ПеречислениеСсылка.ГруппыВидыРасходов <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Свойство Поиск="true"> <Код>2 <Наименование> --> Родитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <КодПравилаКонвертации>ГруппаПрочихРасходов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", "Выгрузка оборотов счета Н09"); Значение = "1"; <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование> --> ЭтоГруппа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>4 <Наименование> --> ВидРасходовНУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПрочихДоходовИРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПрочихДоходовИРасходов"/> <ПередВыгрузкой>Значение = Источник; <Свойство Поиск="true"> <Код>5 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>6 <Наименование> --> ПринятиеКналоговомуУчету <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПринятиеКналоговомуУчету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>УровниБюджетов <Наименование>ПеречислениеСсылка.Бюджеты --> ПеречислениеСсылка.УровниБюджетов <Порядок>800 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.Бюджеты <Приемник>ПеречислениеСсылка.УровниБюджетов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Федеральный --> ФедеральныйБюджет <Порядок>100 <Источник>Федеральный <Приемник>ФедеральныйБюджет <Значение> <Код>2 <Наименование>Республиканский --> РегиональныйБюджет <Порядок>200 <Источник>Республиканский <Приемник>РегиональныйБюджет <Значение> <Код>3 <Наименование>Местный --> МестныйБюджет <Порядок>300 <Источник>Местный <Приемник>МестныйБюджет <Правило> <Код>ВнереализационныеДоходы <Наименование>ПеречислениеСсылка.ВнереализационныеДоходы --> СправочникСсылка.ПрочиеДоходыИРасходы <Порядок>900 <Источник>ПеречислениеСсылка.ВнереализационныеДоходы <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Свойство Поиск="true"> <Код>2 <Наименование> --> ВидПрочихДоходовИРасходов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПрочихДоходовИРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПрочихДоходовИРасходов"/> <ПередВыгрузкой>Значение = ВыгрузитьПоПравилу(Источник,,,, "ПеречислениеВнереализационныеДоходы"); Отказ = ПустоеЗначение(Значение); <Свойство> <Код>3 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>4 <Наименование> --> ПринятиеКналоговомуУчету <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПринятиеКналоговомуУчету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ВнереализационныеРасходы <Наименование>ПеречислениеСсылка.ВнереализационныеРасходы --> СправочникСсылка.ПрочиеДоходыИРасходы <Порядок>1000 <Источник>ПеречислениеСсылка.ВнереализационныеРасходы <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Свойство Поиск="true"> <Код>2 <Наименование> --> ВидПрочихДоходовИРасходов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПрочихДоходовИРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПрочихДоходовИРасходов"/> <ПередВыгрузкой>Значение = ВыгрузитьПоПравилу(Источник,,,, "ПеречислениеВнереализационныеРасходы"); Отказ = ПустоеЗначение(Значение); <Свойство> <Код>3 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>4 <Наименование> --> ПринятиеКналоговомуУчету <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПринятиеКналоговомуУчету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ПрибылиИУбытки <Наименование>ПеречислениеСсылка.ПрибылиИУбытки --> ПеречислениеСсылка.ПрибылиИУбытки <Порядок>1100 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ПрибылиИУбытки <Приемник>ПеречислениеСсылка.ПрибылиИУбытки <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ПрибыльУбытокОтПродаж --> ПрибыльУбытокОтПродаж <Порядок>100 <Источник>ПрибыльУбытокОтПродаж <Приемник>ПрибыльУбытокОтПродаж <Значение> <Код>2 <Наименование>СальдоПрочихДоходовРасходов --> СальдоПрочихДоходо <Порядок>200 <Источник>СальдоПрочихДоходовРасходов <Приемник>СальдоПрочихДоходовИРасходов <Значение> <Код>3 <Наименование>ЧрезвычайныеДоходы --> ЧрезвычайныеДоходыРасходы <Порядок>300 <Источник>ЧрезвычайныеДоходы <Приемник>ЧрезвычайныеДоходыРасходы <Значение> <Код>4 <Наименование>ЧрезвычайныеРасходы --> ЧрезвычайныеДоходыРасходы <Порядок>400 <Источник>ЧрезвычайныеРасходы <Приемник>ЧрезвычайныеДоходыРасходы <Значение> <Код>5 <Наименование>НалогНаПрибыль --> НалогНаПрибыль <Порядок>500 <Источник>НалогНаПрибыль <Приемник>НалогНаПрибыль <Значение> <Код>6 <Наименование>НалоговыеСанкции --> НалоговыеСанкции <Порядок>600 <Источник>НалоговыеСанкции <Приемник>НалоговыеСанкции <Значение> <Код>7 <Наименование>НеПринимаемыеДляЦелейНалогообложения --> ПрибыльУб <Порядок>700 <Источник>НеПринимаемыеДляЦелейНалогообложения <Приемник>ПрибыльУбытокОтПродаж <Значение> <Код>8 <Наименование>ПрибыльУбытокПоСпецРежимам --> ПрибыльУбытокОтПрод <Порядок>750 <Источник>ПрибыльУбытокПоСпецРежимам <Приемник>ПрибыльУбытокОтПродаж <Правило> <Код>ВариантыУчетаРасходовПоАмортизационнойПремии <Наименование>Перечисление: Варианты учета расходов по амортизационной премии <Порядок>1150 <Источник>ПеречислениеСсылка.ВариантыУчетаРасходовПоАмортизационнойПремии <Приемник>ПеречислениеСсылка.ВариантыУчетаРасходовПоАмортизационнойПремии <Свойства/> <Значения> <Значение> <Код>1 <Наименование>НаСчетахРасходовПоАмортизации --> НаСчетахРасходов <Порядок>50 <Источник>НаСчетахРасходовПоАмортизации <Приемник>НаСчетахРасходовПоАмортизации <Правило> <Код>КатегорииЗастрахованныхЛицПФР <Наименование>Перечисление: Категории застрахованных лиц ПФР <Порядок>1250 <Источник>ПеречислениеСсылка.КатегорииЗастрахованныхЛицПФР <Приемник>ПеречислениеСсылка.КатегорииЗастрахованныхЛицПФР <Свойства/> <Значения> <Значение> <Код>1 <Наименование>НР --> НР <Порядок>50 <Источник>НР <Приемник>НР <Значение> <Код>2 <Наименование>ОДИТ --> ОДИТ <Порядок>100 <Источник>ОДИТ <Приемник>ОДИТ <Значение> <Код>3 <Наименование>ОЗОИ --> ОЗОИ <Порядок>150 <Источник>ОЗОИ <Приемник>ОЗОИ <Значение> <Код>4 <Наименование>ООИ --> ООИ <Порядок>200 <Источник>ООИ <Приемник>ООИ <Значение> <Код>5 <Наименование>СМИ --> СМИ <Порядок>250 <Источник>СМИ <Приемник>СМИ <Значение> <Код>6 <Наименование>ТВЭЗ --> ТВЭЗ <Порядок>300 <Источник>ТВЭЗ <Приемник>ТВЭЗ <Значение> <Код>7 <Наименование>УСЕН --> УСЕН <Порядок>350 <Источник>УСЕН <Приемник>УСЕН <Значение> <Код>8 <Наименование>ХМН --> ХМН <Порядок>400 <Источник>ХМН <Приемник>ХМН <Значение> <Код>9 <Наименование>ХО --> ХО <Порядок>450 <Источник>ХО <Приемник>ХО <Правило> <Код>СостоянияОС <Наименование>Перечисление: <Порядок>1300 <Источник>ПеречислениеСсылка.СостоянияОС <Приемник>ПеречислениеСсылка.СостоянияОС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>В_Запасе --> ПринятоКУчету <Порядок>50 <Источник>В_Запасе <Приемник>ПринятоКУчету <Значение> <Код>2 <Наименование>В_Эксплуатации --> ПринятоКУчету <Порядок>100 <Источник>В_Эксплуатации <Приемник>ПринятоКУчету <Значение> <Код>3 <Наименование>Выбыло --> СнятоСУчета <Порядок>150 <Источник>Выбыло <Приемник>СнятоСУчета <Значение> <Код>4 <Наименование>Иное --> ПринятоКУчету <Порядок>200 <Источник>Иное <Приемник>ПринятоКУчету <Значение> <Код>5 <Наименование>НаКапитальномРемонте --> ПринятоКУчету <Порядок>250 <Источник>НаКапитальномРемонте <Приемник>ПринятоКУчету <Значение> <Код>6 <Наименование>НаКонсервации --> ПринятоКУчету <Порядок>300 <Источник>НаКонсервации <Приемник>ПринятоКУчету <Значение> <Код>7 <Наименование>ПереданоВТекущуюАренду --> ПринятоКУчету <Порядок>350 <Источник>ПереданоВТекущуюАренду <Приемник>ПринятоКУчету <Правило> <Код>ТипыСведенийСЗВ <Наименование>Перечисление: Типы сведений СЗВ <Порядок>1350 <Источник>ПеречислениеСсылка.ТипыСведенийСЗВ <Приемник>ПеречислениеСсылка.ТипыСведенийСЗВ <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ИСХОДНАЯ --> ИСХОДНАЯ <Порядок>50 <Источник>ИСХОДНАЯ <Приемник>ИСХОДНАЯ <Значение> <Код>2 <Наименование>КОРРЕКТИРУЮЩАЯ --> КОРРЕКТИРУЮЩАЯ <Порядок>100 <Источник>КОРРЕКТИРУЮЩАЯ <Приемник>КОРРЕКТИРУЮЩАЯ <Значение> <Код>3 <Наименование>ОТМЕНЯЮЩАЯ --> ОТМЕНЯЮЩАЯ <Порядок>150 <Источник>ОТМЕНЯЮЩАЯ <Приемник>ОТМЕНЯЮЩАЯ <Правило> <Код>ВидыСобытийОС <Наименование>Перечисление: <Порядок>1450 <Источник>ПеречислениеСсылка.СостоянияОС <Приемник>ПеречислениеСсылка.ВидыСобытийОС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>В_Запасе --> Прочее <Порядок>50 <Источник>В_Запасе <Приемник>Прочее <Значение> <Код>2 <Наименование>В_Эксплуатации --> Прочее <Порядок>100 <Источник>В_Эксплуатации <Приемник>Прочее <Значение> <Код>3 <Наименование>Выбыло --> Списание <Порядок>150 <Источник>Выбыло <Приемник>Списание <Значение> <Код>4 <Наименование>Иное --> Прочее <Порядок>200 <Источник>Иное <Приемник>Прочее <Значение> <Код>5 <Наименование>НаКапитальномРемонте --> КапитальныйРемонт <Порядок>250 <Источник>НаКапитальномРемонте <Приемник>КапитальныйРемонт <Значение> <Код>6 <Наименование>НаКонсервации --> Прочее <Порядок>300 <Источник>НаКонсервации <Приемник>Прочее <Значение> <Код>7 <Наименование>ПереданоВТекущуюАренду --> Прочее <Порядок>350 <Источник>ПереданоВТекущуюАренду <Приемник>Прочее <Правило> <Код>ВидСчетаФактурыВыставленного <Наименование>Перечисление: Виды операций счета-фактуры выданного <Порядок>1500 <Источник>ПеречислениеСсылка.ВидыОперацийСчетаФактурыВыданного <Приемник>ПеречислениеСсылка.ВидСчетаФактурыВыставленного <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Аванс --> НаАванс <Порядок>50 <Источник>Аванс <Приемник>НаАванс <Значение> <Код>2 <Наименование>Возврат --> НаРеализацию <Порядок>100 <Источник>Возврат <Приемник>НаРеализацию <Значение> <Код>3 <Наименование>Реализация --> НаРеализацию <Порядок>150 <Источник>Реализация <Приемник>НаРеализацию <Значение> <Код>4 <Наименование>СуммоваяРазница --> НаСуммовуюРазницу <Порядок>200 <Источник>СуммоваяРазница <Приемник>НаСуммовуюРазницу <Правило> <Код>ВидСчетаФактурыПолученного <Наименование>Перечисление: Виды операций счета-фактуры полученного <Порядок>1550 <Источник>ПеречислениеСсылка.ВидыОперацийСчетаФактурыПолученного <Приемник>ПеречислениеСсылка.ВидСчетаФактурыПолученного <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Аванс --> НаАванс <Порядок>50 <Источник>Аванс <Приемник>НаАванс <Значение> <Код>2 <Наименование>Возврат --> НаПоступление <Порядок>100 <Источник>Возврат <Приемник>НаПоступление <Значение> <Код>3 <Наименование>Приобретение --> НаПоступление <Порядок>150 <Источник>Приобретение <Приемник>НаПоступление <Правило> <Код>ВидыЗастрахованныхЛицОбязательногоСтрахования <Наименование>Перечисление: Виды застрахованных лиц обязательного страхования <Порядок>1600 <Источник>ПеречислениеСсылка.ВидыЗастрахованныхЛицОбязательногоСтрахования <Приемник>ПеречислениеСсылка.ВидыЗастрахованныхЛицОбязательногоСтрахования <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ВременноПребывающиеИностранцы --> ВременноПребываю <Порядок>50 <Источник>ВременноПребывающиеИностранцы <Приемник>ВременноПребывающиеИностранцы <Значение> <Код>2 <Наименование>ВременноПроживающиеИностранцы --> ВременноПроживаю <Порядок>100 <Источник>ВременноПроживающиеИностранцы <Приемник>ВременноПроживающиеИностранцы <Значение> <Код>3 <Наименование>ГражданеРФ --> ГражданеРФ <Порядок>150 <Источник>ГражданеРФ <Приемник>ГражданеРФ <Значение> <Код>4 <Наименование>ПостоянноПроживающиеИностранцы --> ПостоянноПрожив <Порядок>200 <Источник>ПостоянноПроживающиеИностранцы <Приемник>ПостоянноПроживающиеИностранцы <Правило> <Код>ВидыДвиженийДенежныхСредств <Наименование>Перечисление: Виды движений денежных средств <Порядок>1650 <Источник>ПеречислениеСсылка.ВидыДвиженийДенежныхСредств <Приемник>ПеречислениеСсылка.ВидыДвиженийДенежныхСредств <Свойства/> <Значения> <Значение> <Код>1 <Наименование>АрендныеПлатежиРоялтиЛицензионныеПлатежиГонорарыКо <Порядок>50 <Источник>АрендныеПлатежиРоялтиЛицензионныеПлатежиГонорарыКомиссионные <Приемник>АрендныеПлатежиРоялтиЛицензионныеПлатежиГонорарыКомиссионные <Значение> <Код>2 <Наименование>ВыплатаДивидендов --> ВыплатаДивидендов <Порядок>100 <Источник>ВыплатаДивидендов <Приемник>ВыплатаДивидендов <Значение> <Код>3 <Наименование>ВыплатаПроцентовВСвязиСоСтроительством --> Выплата <Порядок>150 <Источник>ВыплатаПроцентовВСвязиСоСтроительством <Приемник>ВыплатаПроцентовВСвязиСоСтроительством <Значение> <Код>4 <Наименование>ВыплатаПроцентовПоДолговымОбязательствам --> Выпла <Порядок>200 <Источник>ВыплатаПроцентовПоДолговымОбязательствам <Приемник>ВыплатаПроцентовПоДолговымОбязательствам <Значение> <Код>5 <Наименование>ВыпускДолговыхИнструментов --> ВыпускДолговыхИнстр <Порядок>250 <Источник>ВыпускДолговыхИнструментов <Приемник>ВыпускДолговыхИнструментов <Значение> <Код>6 <Наименование>ВыручкаОтПродажиВнеоборотныхАктивовКромеФинансовых <Порядок>300 <Источник>ВыручкаОтПродажиВнеоборотныхАктивовКромеФинансовых <Приемник>ВыручкаОтПродажиВнеоборотныхАктивовКромеФинансовых <Значение> <Код>7 <Наименование>НалогНаПрибыль --> НалогНаПрибыль <Порядок>350 <Источник>НалогНаПрибыль <Приемник>НалогНаПрибыль <Значение> <Код>8 <Наименование>ОплатаТруда --> ОплатаТруда <Порядок>400 <Источник>ОплатаТруда <Приемник>ОплатаТруда <Значение> <Код>9 <Наименование>ПлатежиСобственникамВСвязиСВыкупомАкцийИлиПриВыход <Порядок>450 <Источник>ПлатежиСобственникамВСвязиСВыкупомАкцийИлиПриВыходеИзСоставаУчастников <Приемник>ПлатежиСобственникамВСвязиСВыкупомАкцийИлиПриВыходеИзСоставаУчастников <Значение> <Код>10 <Наименование>ПогашениеДолговыйЦенныхБумагВозвратКредитовИЗаймов <Порядок>500 <Источник>ПогашениеДолговыйЦенныхБумагВозвратКредитовИЗаймов <Приемник>ПогашениеДолговыйЦенныхБумагВозвратКредитовИЗаймов <Значение> <Код>11 <Наименование>ПогашениеОбязательствПоФинансовойАренде --> Погаше <Порядок>550 <Источник>ПогашениеОбязательствПоФинансовойАренде <Приемник>ПогашениеОбязательствПоФинансовойАренде <Значение> <Код>12 <Наименование>ПоступлениеДенежныхВкладовСобственников --> Поступ <Порядок>600 <Источник>ПоступлениеДенежныхВкладовСобственников <Приемник>ПоступлениеДенежныхВкладовСобственников <Значение> <Код>13 <Наименование>ПоступлениеОтДивидендовПроцентовПоДолговымФинансов <Порядок>650 <Источник>ПоступлениеОтДивидендовПроцентовПоДолговымФинансовымВложениям <Приемник>ПоступлениеОтДивидендовПроцентовПоДолговымФинансовымВложениям <Значение> <Код>14 <Наименование>ПоступленияОтПерепродажиФинансовыхВложений --> Пос <Порядок>700 <Источник>ПоступленияОтПерепродажиФинансовыхВложений <Приемник>ПоступленияОтПерепродажиФинансовыхВложений <Значение> <Код>15 <Наименование>ПоступленияОтПогашенияЗаймовПредоставленныхДругимО <Порядок>750 <Источник>ПоступленияОтПогашенияЗаймовПредоставленныхДругимОрганизациям <Приемник>ПоступленияОтПогашенияЗаймовПредоставленныхДругимОрганизациям <Значение> <Код>16 <Наименование>ПоступленияОтПогашенияЗаймовПродажиДолговыхЦенныхБ <Порядок>800 <Источник>ПоступленияОтПогашенияЗаймовПродажиДолговыхЦенныхБумаг <Приемник>ПоступленияОтПогашенияЗаймовПродажиДолговыхЦенныхБумаг <Значение> <Код>17 <Наименование>ПоступленияОтПродажиАкцийДругихОрганизаций --> Пос <Порядок>850 <Источник>ПоступленияОтПродажиАкцийДругихОрганизаций <Приемник>ПоступленияОтПродажиАкцийДругихОрганизаций <Значение> <Код>18 <Наименование>ПоступленияОтЭмиссииАкций --> ПоступленияОтЭмиссии <Порядок>900 <Источник>ПоступленияОтЭмиссииАкций <Приемник>ПоступленияОтЭмиссииАкций <Значение> <Код>19 <Наименование>ПриобретениеАкцийДругихОрганизаций --> Приобретени <Порядок>950 <Источник>ПриобретениеАкцийДругихОрганизаций <Приемник>ПриобретениеАкцийДругихОрганизаций <Значение> <Код>20 <Наименование>ПриобретениеДолговыхЦенныхБумагПредоставлениеЗаймо <Порядок>1000 <Источник>ПриобретениеДолговыхЦенныхБумагПредоставлениеЗаймов <Приемник>ПриобретениеДолговыхЦенныхБумагПредоставлениеЗаймов <Значение> <Код>21 <Наименование>ПриобретениеДочернихОрганизаций --> ПриобретениеДо <Порядок>1050 <Источник>ПриобретениеДочернихОрганизаций <Приемник>ПриобретениеДочернихОрганизаций <Значение> <Код>22 <Наименование>ПриобретениеСозданиеМодернизацияРеконструкцияВнеоб <Порядок>1100 <Источник>ПриобретениеСозданиеМодернизацияРеконструкцияВнеоборотныхАктивов <Приемник>ПриобретениеСозданиеМодернизацияРеконструкцияВнеоборотныхАктивов <Значение> <Код>23 <Наименование>ПрочиеПоступленияПоИнвестиционнойДеятельности --> <Порядок>1150 <Источник>ПрочиеПоступленияПоИнвестиционнойДеятельности <Приемник>ПрочиеПоступленияПоИнвестиционнойДеятельности <Значение> <Код>24 <Наименование>ПрочиеПоступленияПоФинансовойДеятельности --> Проч <Порядок>1200 <Источник>ПрочиеПоступленияПоФинансовойДеятельности <Приемник>ПрочиеПоступленияПоФинансовойДеятельности <Значение> <Код>25 <Наименование>ПрочиеРасходыПоИнвестиционнойДеятельности --> Проч <Порядок>1250 <Источник>ПрочиеРасходыПоИнвестиционнойДеятельности <Приемник>ПрочиеРасходыПоИнвестиционнойДеятельности <Значение> <Код>26 <Наименование>ПрочиеРасходыПоФинансовойДеятельности --> ПрочиеРа <Порядок>1300 <Источник>ПрочиеРасходыПоФинансовойДеятельности <Приемник>ПрочиеРасходыПоФинансовойДеятельности <Группа> <Код>Документы <Наименование>Документы <Порядок>300 <Правило> <Код>ДоговорСКомитентом <Наименование>СправочникСсылка.Договоры --> ДокументСсылка.Партия <Порядок>50 <Источник>СправочникСсылка.Договоры <Приемник>ДокументСсылка.ДокументРасчетовСКонтрагентом <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаВводаОстатков - 1; <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование> --> Контрагент <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = Источник.Владелец; <Свойство Поиск="true"> <Код>6 <Наименование> --> ДоговорКонтрагента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник; <Свойство Поиск="true"> <Код>7 <Наименование> --> СчетУчетаРасчетовСКомитентом <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКомитентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = "76.09"; <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Значения/> <Правило> <Код>ПартияМатериаловВЭксплуатации <Наименование>СправочникСсылка.НазначенияИспользования --> ДокументСсылка.ПартияМатериаловВЭксплуатации <Порядок>100 <Источник>СправочникСсылка.НазначенияИспользования <Приемник>ДокументСсылка.ПартияМатериаловВЭксплуатации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Дата <Порядок>100 <Источник Имя="ДатаВводаВЭксплуатацию" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>4 <Наименование> --> Номенклатура <Порядок>400 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство Поиск="true"> <Код>6 <Наименование> --> НазначениеИспользования <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеИспользования" Вид="Реквизит" Тип="СправочникСсылка.НазначенияИспользования"/> <КодПравилаКонвертации>НазначенияИспользования <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>СчетФактура <Наименование>ДокументСсылка.ПоступлениеНМА --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>200 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; <ПослеЗагрузки>Если Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс Тогда // найдем договор из документа-основания и установим его таким же, как у счета-фактуры // это необходимо из-за того, что договор может отличаться в выписке и в счете-фактуре Попытка НовыйДоговор = Объект.ДокументыОснования[0].ДокументОснование.ДоговорКонтрагента; Исключение НовыйДоговор = Неопределено; КонецПопытки; Если НовыйДоговор <> Неопределено Тогда Объект.ДоговорКонтрагента = НовыйДоговор; КонецЕсли; КонецЕсли; <Источник>ДокументСсылка.СчетФактура <Приемник>ДокументСсылка.СчетФактураВыданный <Свойства> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>50 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>//Значение = Параметры.ДатаВводаОстатков - 1; <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>35 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>2 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>//счет-фактура не должна влиять на вид договора, так как вид договора должен определится в документе основании <Свойство> <Код>10 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если (ПустоеЗначение(Источник.Договор)=0) И (Источник.ВидОперации <> Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница) тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>11 <Наименование>ВидОперации --> ВидСчетаФактуры <Порядок>450 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСчетаФактурыВыданного"/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыВыставленного"/> <КодПравилаКонвертации>ВидСчетаФактурыВыставленного <Свойство> <Код>12 <Наименование>ДатаПлатРасчДок --> ДатаПлатежноРасчетногоДокумента <Порядок>500 <Источник Имя="ДатаПлатРасчДок" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование>НомерПлатРасчДок --> НомерПлатежноРасчетногоДокумента <Порядок>550 <Источник Имя="НомерПлатРасчДок" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> Ответственный <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Свойство> <Код>15 <Наименование> --> Под0 <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Под0" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>16 <Наименование> --> СтавкаНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Если (Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс) или (Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница) Тогда //ставку НДС берем из 1-ой строки Если Источник.ПолучитьСтрокуПоНомеру(1)=1 Тогда Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",Источник.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Если Значение = "НДС18" Тогда Значение = "НДС18_118"; ИначеЕсли Значение = "НДС10" Тогда Значение = "НДС10_110"; ИначеЕсли Значение = "НДС20" Тогда Значение = "НДС20_120"; КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>17 <Наименование> --> Сумма <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Реализация Тогда Отказ = 1; ИначеЕсли Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница Тогда Значение = Источник.Итог("Всего"); Иначе Значение = Источник.Итог("Сумма"); КонецЕсли; <Свойство> <Код>18 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>19 <Наименование> --> СуммаНДС <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Реализация Тогда Отказ = 1; Иначе Значение = Источник.Итог("НДС"); КонецЕсли; <Свойство> <Код>20 <Наименование> --> СформированПриВводеНачальныхОстатковНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СформированПриВводеНачальныхОстатковНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Значение = ВходящиеДанные.Получить("СчетФактураНаВводОстатков"); Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>21 <Наименование> --> СчетНаОплату <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНаОплату" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <Свойство> <Код>37 <Наименование>Выставлен --> Выставлен <Порядок>1000 <Источник Имя="Выставлен" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Выставлен" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>38 <Наименование>ДатаВыставления --> ДатаВыставления <Порядок>1050 <Источник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>39 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>1100 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>42 <Наименование>СпособВыставления --> КодСпособаВыставления <Порядок>1150 <Источник Имя="СпособВыставления" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаВыставления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>40 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>1200 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>41 <Наименование>СчетФактураНеВыставляется --> СчетФактураНеВыставляется <Порядок>1250 <Источник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>34 <Наименование>ДокументОснование --> ДокументОснование <Порядок>1300 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник); УстановитьПараметрыДокументаОснованияСчетаФактуры(); Если ПустоеЗначение(ИмяПКО) = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; <Группа> <Код>22 <Наименование> --> Авансы <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="Авансы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>//Если Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Реализация Тогда // Отказ = 1; Если Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс Тогда //формируем таблицу КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Содержание"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); Если ТипЗначенияСтр(Источник.Товар)="Строка" Тогда КоллекцияОбъектов.Содержание = Источник.Товар; Иначе КоллекцияОбъектов.Номенклатура = Источник.Товар; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",Источник.СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Если КоллекцияОбъектов.СтавкаНДС = "НДС18" Тогда КоллекцияОбъектов.СтавкаНДС = "НДС18_118"; ИначеЕсли КоллекцияОбъектов.СтавкаНДС = "НДС10" Тогда КоллекцияОбъектов.СтавкаНДС = "НДС10_110"; ИначеЕсли КоллекцияОбъектов.СтавкаНДС = "НДС20" Тогда КоллекцияОбъектов.СтавкаНДС = "НДС20_120"; КонецЕсли; КоллекцияОбъектов.Сумма = Источник.Всего; КоллекцияОбъектов.СуммаНДС = Источник.НДС; КонецЦикла; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>23 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>24 <Наименование> --> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>25 <Наименование> --> СтавкаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>26 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> СуммаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>28 <Наименование> --> УдалитьСчетНаОплату <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="УдалитьСчетНаОплату" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <Группа> <Код>29 <Наименование> --> ДатаНомерДокументовОплаты <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНомерДокументовОплаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); КоллекцияОбъектов.НоваяКолонка("НомерПлатежноРасчетногоДокумента"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДатаПлатежноРасчетногоДокумента = Источник.ДатаПлатРасчДок; КоллекцияОбъектов.НомерПлатежноРасчетногоДокумента = СокрЛП(Источник.НомерПлатРасчДок); <Свойство> <Код>30 <Наименование> --> ДатаПлатежноРасчетногоДокумента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>31 <Наименование> --> НомерПлатежноРасчетногоДокумента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>32 <Наименование> --> ДокументыОснования <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДокументОснование"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДокументОснование = Источник.ДокументОснование; <Свойство> <Код>33 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник); УстановитьПараметрыДокументаОснованияСчетаФактуры(); Если ПустоеЗначение(ИмяПКО) = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; <Свойство Отключить="true"> <Код>36 <Наименование> --> Проведен <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ПоступлениеОборудования <Наименование>ДокументСсылка.ПоступлениеНМА --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>250 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеОборудования <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>21 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>12 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "Оборудование"; <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>2 <Наименование>Договор --> ДоговорКонтрагента <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>11 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>15 <Наименование> --> КратностьВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>16 <Наименование>Курс --> КурсВзаиморасчетов <Порядок>600 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>13 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>650 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>19 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>700 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование> --> ПредъявленСчетФактура <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>14 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>20 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>45 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>900 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>46 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>950 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>1000 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> НДСПредъявленКВычету <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>23 <Наименование>МестоХранения --> Склад <Порядок>1100 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>24 <Наименование> --> СпособЗачетаАвансов <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>25 <Наименование> --> СуммаВключаетНДС <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>26 <Наименование> --> СуммаДокумента <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>27 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>28 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство Отключить="true"> <Код>29 <Наименование> --> ТипЦен <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>30 <Наименование> --> УчитыватьНДС <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>31 <Наименование> --> Оборудование <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Оборудование" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Оборудование; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС",); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.СчетУчета = СчетПокоду("07"); КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.1"); КонецЦикла; <Свойство Отключить="true"> <Код>32 <Наименование> --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>35 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Оборудование <Свойство> <Код>33 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> Коэффициент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> Цена <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>40 <Наименование> --> СуммаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>41 <Наименование> --> СчетУчета <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>42 <Наименование> --> СчетУчетаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>36 <Наименование> --> НомерГТД <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>38 <Наименование> --> СтранаПроисхождения <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство Отключить="true"> <Код>44 <Наименование> --> Проведен <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ПоступлениеОС <Наименование>ДокументСсылка.ПоступлениеНМА --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>300 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеОС <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>21 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>8 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "Оборудование"; <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>2 <Наименование>Договор --> ДоговорКонтрагента <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>11 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>16 <Наименование> --> КурсВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>15 <Наименование> --> КратностьВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>19 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>650 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>700 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>22 <Наименование> --> ПредъявленСчетФактура <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>14 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>20 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>44 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>900 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>45 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>950 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>1000 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> НДСПредъявленКВычету <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>23 <Наименование> --> Склад <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Константа.ОсновнойСклад; <Свойство> <Код>24 <Наименование> --> СпособЗачетаАвансов <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>25 <Наименование> --> СуммаВключаетНДС <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>26 <Наименование> --> СуммаДокумента <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>27 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>28 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство> <Код>29 <Наименование> --> УчитыватьНДС <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>30 <Наименование> --> Оборудование <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="Оборудование" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.ОбъектВнеоборотныхАктивов; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Стоимость; СтавкаНДС = глСтавкаНалога(Источник, "НДС",); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.СчетУчета = СчетПокоду("08.4"); КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.1"); КонецЦикла; <Свойство Отключить="true"> <Код>31 <Наименование> --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>34 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>ОбъектыСтроительства_08_4 <Свойство> <Код>32 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> Коэффициент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> Цена <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>39 <Наименование> --> СуммаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>40 <Наименование> --> СчетУчета <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>41 <Наименование> --> СчетУчетаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>35 <Наименование> --> НомерГТД <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>37 <Наименование> --> СтранаПроисхождения <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <Свойство Отключить="true"> <Код>43 <Наименование> --> Проведен <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>УслугиСтороннихОрганизаций_ПТУ <Наименование>ДокументСсылка.ПоступлениеНМА --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>350 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ДокументПоступления.Выбран() = 1 Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", "Услуги"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатрат"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","Субконто"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); //обрабатываем субконто НУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", "Услуги"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатратНУ"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоНУ"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <Источник>ДокументСсылка.УслугиСтороннихОрганизаций <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>9 <Наименование> --> Номер <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство> <Код>53 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>2 <Наименование>Договор --> ДоговорКонтрагента <Порядок>300 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>8 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>11 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>10 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>16 <Наименование> --> КратностьВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>17 <Наименование> --> КурсВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>12 <Наименование> --> Грузоотправитель <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Отключить="true"> <Код>13 <Наименование> --> Грузополучатель <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>14 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>700 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>20 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>750 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование> --> ПредъявленСчетФактура <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>21 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>55 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>950 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>56 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>1000 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>1050 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>19 <Наименование> --> НДСПредъявленКВычету <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>22 <Наименование> --> ПодразделениеОрганизации <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство Отключить="true"> <Код>25 <Наименование> --> Склад <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>26 <Наименование> --> СпособЗачетаАвансов <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>27 <Наименование> --> СуммаВключаетНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>28 <Наименование> --> СуммаДокумента <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>29 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>31 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство Отключить="true"> <Код>30 <Наименование> --> СчетУчетаРасчетовПоТаре <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство Отключить="true"> <Код>32 <Наименование> --> ТипЦен <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>33 <Наименование> --> УчитыватьНДС <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>34 <Наименование>ТабличнаяЧасть --> Услуги <Порядок>1650 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>36 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>39 <Наименование>НаименованиеУслуги --> Содержание <Порядок>100 <Источник Имя="НаименованиеУслуги" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>35 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство Отключить="true"> <Код>37 <Наименование> --> ОтражениеВУСН <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>38 <Наименование> --> ПодразделениеЗатрат <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <ПередВыгрузкой>Счет = ОбъектКоллекции.КоррСчет; Для к=1 по Счет.КоличествоСубконто() цикл ВидСубконтоИсточника = Счет.ВидСубконто(к); Если (ВидСубконтоИсточника = ВидыСубконто.Подразделения) ИЛИ (ВидСубконтоИсточника = ВидыСубконто.РасходыБудущихПериодов) Тогда Если к = 1 тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ОбъектКоллекции.Субконто1); ИначеЕсли к=2 тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ОбъектКоллекции.Субконто2); ИначеЕсли к=3 тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ОбъектКоллекции.Субконто3); КонецЕсли; Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение) = 1 тогда Отказ = 1; КонецЕсли; <Свойство> <Код>40 <Наименование> --> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой> СтавкаНДС = глСтавкаНалога(Источник, "НДС", ); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>49 <Наименование>КоррСчет --> СчетЗатрат <Порядок>350 <Источник Имя="КоррСчет" Вид="Реквизит" Тип="ПланСчетовСсылка.Основной"/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Счет = ОбъектКоллекции.КоррСчет; Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1",ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2",ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3",ОбъектКоллекции.Субконто3); ПолучитьКодСчетаДополнительный(); КодСчета = Параметры.ПараметрыАлгоритмов.Получить("КодСчета"); Если ПустоеЗначение(КодСчета)=0 Тогда Значение = КодСчета; ИмяПКО = ""; Иначе ИмяПКО = "Хозрасчетный"; КонецЕсли; <Свойство> <Код>41 <Наименование>Субконто1 --> Субконто1 <Порядок>400 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>42 <Наименование>Субконто2 --> Субконто2 <Порядок>450 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто2); ПриВыгрузкеСубконто(); <Свойство> <Код>43 <Наименование>Субконто3 --> Субконто3 <Порядок>500 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто3); ПриВыгрузкеСубконто(); <Свойство> <Код>50 <Наименование>КоррСчет --> СчетЗатратНУ <Порядок>550 <Источник Имя="КоррСчет" Вид="Реквизит" Тип="ПланСчетовСсылка.Основной"/> <Приемник Имя="СчетЗатратНУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Счет = ОбъектКоллекции.КоррСчет; Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1",ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2",ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3",ОбъектКоллекции.Субконто3); ПолучитьКодСчетаДополнительный(); КодСчета = Параметры.ПараметрыАлгоритмов.Получить("КодСчета"); Если ПустоеЗначение(КодСчета)=0 Тогда Значение = КодСчета; ИмяПКО = ""; Иначе ИмяПКО = "Хозрасчетный"; КонецЕсли; <Свойство> <Код>44 <Наименование>Субконто1 --> СубконтоНУ1 <Порядок>600 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>45 <Наименование>Субконто2 --> СубконтоНУ2 <Порядок>650 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто2); ПриВыгрузкеСубконто(); <Свойство> <Код>46 <Наименование>Субконто3 --> СубконтоНУ3 <Порядок>700 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто3); ПриВыгрузкеСубконто(); <Свойство> <Код>47 <Наименование>Сумма --> Сумма <Порядок>750 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>48 <Наименование>НДС --> СуммаНДС <Порядок>800 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>51 <Наименование> --> СчетУчетаНДС <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("19.3"); <Свойство> <Код>52 <Наименование>Сумма --> Цена <Порядок>900 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>54 <Наименование> --> Проведен <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>УслугиСтороннихОрганизаций_ДопРасходы <Наименование>Документ: УслугиСтороннихОрганизаций <Порядок>400 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ДокументПоступления.Выбран() = 0 Тогда Отказ = 1; ИначеЕсли Источник.ДокументПоступления.Вид()="ПоступлениеНМА" Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.УслугиСтороннихОрганизаций <Приемник>ДокументСсылка.ПоступлениеДопРасходов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>15 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>6 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>10 <Наименование> --> КратностьВзаиморасчетов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование> --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>7 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>550 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>600 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> ПредъявленСчетФактура <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>8 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>41 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>800 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>42 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>850 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>900 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>17 <Наименование> --> Содержание <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ""; Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = СокрЛП(Источник.НаименованиеУслуги); КонецЕсли; <Свойство> <Код>18 <Наименование> --> СпособЗачетаАвансов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>19 <Наименование> --> СпособРаспределения <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРаспределения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРаспределенияДопРасходов"/> <ПередВыгрузкой>Значение = "ПоСумме"; <Свойство> <Код>20 <Наименование> --> СтавкаНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>СтавкаНДС = глСтавкаНалога(Источник, "НДС", ); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>22 <Наименование> --> СуммаВключаетНДС <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>23 <Наименование> --> СуммаДокумента <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>21 <Наименование> --> Сумма <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма"); <Свойство> <Код>24 <Наименование> --> СуммаНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("НДС"); <Свойство> <Код>25 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>26 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство> <Код>27 <Наименование> --> УчитыватьНДС <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>28 <Наименование> --> Товары <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Номенклатура_ИмяПКО"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("СуммаТовара"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("ДокументПартии"); КоллекцияОбъектов.НоваяКолонка("Документ_ИмяПКО"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНУ"); КоллекцияОбъектов.НоваяКолонка("СтатьяЗатратНУ"); ДокументПоступления = Источник.ДокументПоступления; ТаблицаВидовОтнесенияНУ = ""; Источник.ВыгрузитьТабличнуюЧасть(ТаблицаВидовОтнесенияНУ,"Всего,ВариантПринятияРасходовНУ"); Если ДокументПоступления.Вид()="ПоступлениеТоваров" Тогда ТаблицаВидовОтнесенияНУ.Свернуть("ВариантПринятияРасходовНУ","Всего"); Иначе ТаблицаВидовОтнесенияНУ.Свернуть("","Всего"); КонецЕсли; //Если ДокументПоступления.Выбран() = 0 Тогда // ПереченьСтатейЗатрат = глПолучитьПереченьСтатейЗатрат(Источник.ДатаДок); //КонецЕсли; Если ДокументПоступления.Вид() = "ПоступлениеОС" Тогда СчетПоступления = СчетПоКоду("08.4"); Сч19 = СчетПоКоду("19.1"); Реквизит = "ОбъектВнеоборотныхАктивов"; Номенклатура_ИмяПКО = "ОбъектыСтроительства_08_4"; Документ_ИмяПКО = "ПоступлениеОС"; ИначеЕсли ДокументПоступления.Вид() = "ПоступлениеНМА" Тогда СчетПоступления = СчетПоКоду("08.5"); Сч19 = СчетПоКоду("19.2"); Реквизит = "ОбъектВнеоборотныхАктивов"; Номенклатура_ИмяПКО = "ОбъектыСтроительства_08_5_08_8"; Документ_ИмяПКО = "ПоступлениеНМА"; ИначеЕсли ДокументПоступления.Вид() = "ПоступлениеМатериалов" Тогда Сч19 = СчетПоКоду("19.3"); Реквизит = "Материал"; Номенклатура_ИмяПКО = "Материалы"; Если ДокументПоступления.ВидПоступления = 0 тогда Документ_ИмяПКО = "ПоступлениеМатериалов_ПТУ"; Иначе Документ_ИмяПКО = "ПоступлениеМатериалов_ИзПереработки"; КонецЕсли; ИначеЕсли ДокументПоступления.Вид() = "ПоступлениеОборудования" Тогда Сч19 = СчетПоКоду("19.1"); Реквизит = "Оборудование"; Номенклатура_ИмяПКО = "Оборудование"; Документ_ИмяПКО = "ПоступлениеОборудования"; ИначеЕсли ДокументПоступления.Вид() = "ПоступлениеТоваров" Тогда Сч19 = СчетПоКоду("19.3"); Реквизит = "Товар"; Номенклатура_ИмяПКО = "Номенклатура"; Если (ДокументПоступления.ВидПоступления <> 1) и (ДокументПоступления.ВидПоступления <> 2) и (ДокументПоступления.ВидПоступления <> 11) Тогда Документ_ИмяПКО = "ПоступлениеТоваров_Возврат"; Иначе Документ_ИмяПКО = "ПоступлениеТоваров_ПТУ"; КонецЕсли; КонецЕсли; ДокументПоступления.ВыбратьСтроки(); Пока ДокументПоступления.ПолучитьСтроку() = 1 Цикл Если Реквизит = "Товар" Тогда Если ДокументПоступления.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда Продолжить; КонецЕсли; КонецЕсли; Если Реквизит = "Материал" Тогда СчетУчета = ДокументПоступления.Материал.СубСчет10; ИначеЕсли Реквизит = "Товар" Тогда Если ДокументПоступления.Товар.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда СчетУчета = СчетПоКоду("41.3"); ИначеЕсли ДокументПоступления.Товар.ТипТовара = Перечисление.ТипыТоваров.ПокупныеИзделия Тогда СчетУчета = СчетПоКоду("41.4"); Иначе Если (ДокументПоступления.ВидПоступления = 2) или ((ДокументПоступления.ВидПоступления = 11) и (ДокументПоступления.МестоХранения.ТипСклада = Перечисление.ТипыСкладов.Розничный)) Тогда СчетУчета = СчетПоКоду("41.2"); Иначе СчетУчета = СчетПоКоду("41.1"); КонецЕсли; КонецЕсли; ИначеЕсли Реквизит = "Оборудование" Тогда СчетУчета = СчетПоКоду("07"); Иначе СчетУчета = СчетПоступления; КонецЕсли; ВсегоСуммаТовара = ?(Реквизит = "ОбъектВнеоборотныхАктивов", ДокументПоступления.Стоимость, ДокументПоступления.Сумма); ВсегоСуммаОтражено = ТаблицаВидовОтнесенияНУ.Итог("Всего"); ТаблицаВидовОтнесенияНУ.ВыбратьСтроки(); Пока ТаблицаВидовОтнесенияНУ.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ДокументПоступления.ПолучитьАтрибут(Реквизит); КоллекцияОбъектов.Номенклатура_ИмяПКО = Номенклатура_ИмяПКО; КоллекцияОбъектов.Количество = ?(Номенклатура_ИмяПКО = "ОбъектыСтроительства_08_5_08_8",1,ДокументПоступления.Количество); КоллекцияОбъектов.СуммаТовара = Окр(ТаблицаВидовОтнесенияНУ.Всего/ВсегоСуммаОтражено * ВсегоСуммаТовара,2); КоллекцияОбъектов.Сумма = 0; КоллекцияОбъектов.СуммаНДС = 0; КоллекцияОбъектов.ДокументПартии = ДокументПоступления.ТекущийДокумент(); КоллекцияОбъектов.Документ_ИмяПКО = ?(ДокументПоступления.ДатаДок<Параметры.ДатаВводаОстатков,"ДокументРасчетовСКонтрагентом_Документ",Документ_ИмяПКО); КоллекцияОбъектов.СчетУчета = СчетУчета; КоллекцияОбъектов.СчетУчетаНДС = Сч19; Если ДокументПоступления.Вид()="ПоступлениеТоваров" Тогда //при поступлении товаров нужно рассматривать вид принятия к ну Если ТаблицаВидовОтнесенияНУ.ВариантПринятияРасходовНУ = Перечисление.ВариантыПринятияРасходовНУ.Транспортные Тогда КоллекцияОбъектов.СчетУчетаНУ = СчетПоКоду("44.1.3"); СтатьяЗатратНУ = СоздатьОбъект("СписокЗначений"); СтатьяЗатратНУ.Установить("ВидРасходовНУ","ТранспортныеРасходы"); СтатьяЗатратНУ.Установить("Наименование","Транспортные расходы"); СтатьяЗатратНУ.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КоллекцияОбъектов.СтатьяЗатратНУ = СтатьяЗатратНУ; ИначеЕсли ТаблицаВидовОтнесенияНУ.ВариантПринятияРасходовНУ = Перечисление.ВариантыПринятияРасходовНУ.Прямые Тогда КоллекцияОбъектов.СчетУчетаНУ = КоллекцияОбъектов.СчетУчета; Иначе КоллекцияОбъектов.СчетУчетаНУ = СчетПоКоду("44.1.3"); СтатьяЗатратНУ = СоздатьОбъект("СписокЗначений"); СтатьяЗатратНУ.Установить("ВидРасходовНУ","ПрочиеРасходы"); СтатьяЗатратНУ.Установить("Наименование","Дополнительные расходы на товары"); СтатьяЗатратНУ.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КоллекцияОбъектов.СтатьяЗатратНУ = СтатьяЗатратНУ; КонецЕсли; Иначе КоллекцияОбъектов.СчетУчетаНУ = КоллекцияОбъектов.СчетУчета; КонецЕсли; ВсегоСуммаОтражено = ВсегоСуммаОтражено - ТаблицаВидовОтнесенияНУ.Всего; ВсегоСуммаТовара = ВсегоСуммаТовара - КоллекцияОбъектов.СуммаТовара; КонецЦикла; КонецЦикла; <Свойство> <Код>31 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>ИмяПКО = ОбъектКоллекции.Номенклатура_ИмяПКО; <Свойство> <Код>30 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> СуммаТовара <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаТовара" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование> --> СуммаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> ДокументПартии <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументПартии" Вид="Реквизит"/> <ПередВыгрузкой>ИмяПКО = ОбъектКоллекции.Документ_ИмяПКО; <Свойство> <Код>37 <Наименование> --> СчетУчета <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>38 <Наименование> --> СчетУчетаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>39 <Наименование> --> СчетУчетаНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>33 <Наименование> --> СтатьяЗатратНУ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяЗатратНУ" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьиЗатрат_Предопределенные <Свойство Отключить="true"> <Код>32 <Наименование> --> ОтражениеВУСН <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство Отключить="true"> <Код>40 <Наименование> --> Проведен <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>УслугиСтороннихОрганизаций_ДопРасходы_НМА <Наименование>Документ: УслугиСтороннихОрганизаций <Порядок>450 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ДокументПоступления.Выбран() = 0 Тогда Отказ = 1; ИначеЕсли Источник.ДокументПоступления.Вид()<>"ПоступлениеНМА" Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.УслугиСтороннихОрганизаций <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>16 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>17 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>2 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>10 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование> --> ВидОперации <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>6 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>11 <Наименование> --> КратностьВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>12 <Наименование> --> КурсВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>8 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>650 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>700 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование> --> ПредъявленСчетФактура <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>9 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>45 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>900 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>46 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>950 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>1000 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>19 <Наименование> --> СпособЗачетаАвансов <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>20 <Наименование> --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>21 <Наименование> --> СуммаДокумента <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>22 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>23 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство> <Код>24 <Наименование> --> УчитыватьНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>25 <Наименование> --> Услуги <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Содержание"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетЗатрат"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеЗатрат"); КоллекцияОбъектов.НоваяКолонка("Субконто1"); КоллекцияОбъектов.НоваяКолонка("Субконто2"); КоллекцияОбъектов.НоваяКолонка("Субконто3"); КоллекцияОбъектов.НоваяКолонка("СчетЗатратНУ"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ1"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ2"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ3"); НДСВключатьВСтоимость = Источник.НДСвключатьВСтоимость; Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда СуммаВключаетНДС = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе СуммаВключаетНДС = 0; КонецЕсли; СтавкаНДС = глСтавкаНалога(Источник, "НДС", ); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); СтавкаНДССтрока = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); ОбщаяСуммаНДС = Источник.Итог("НДС"); ОбщаяСумма = Источник.Итог("Сумма"); ВалютныйУЕ = 0; Кратность = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; ВалютныйУЕ = 1; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КонецЕсли; КонецЕсли; Курс = ?(Источник.Курс=0,1,Источник.Курс); СчетПоступления = СчетПоКоду("08.5"); Сч19 = СчетПоКоду("19.2"); СуммаПоступления = Источник.ДокументПоступления.Итог("Стоимость"); СуммаДокумента = Источник.Итог("Сумма"); СуммаНДС = Источник.Итог("НДС"); РаспредСумДок = 0; РаспредСумНДС = 0; КолСтрокДокумента = Источник.ДокументПоступления.КоличествоСтрок(); ДокументПоступления = Источник.ДокументПоступления; ДокументПоступления.ВыбратьСтроки(); Пока ДокументПоступления.ПолучитьСтроку() = 1 Цикл СуммаУчтенногоПоступления = ДокументПоступления.Стоимость; К = СуммаУчтенногоПоступления/СуммаПоступления; ЧастьСуммыДопРасходов = Окр(СуммаДокумента * К, 2, 1); ЧастьСуммыНДС = Окр(СуммаНДС * К, 2, 1); РаспредСумДок = РаспредСумДок + ЧастьСуммыДопРасходов; РаспредСумНДС = РаспредСумНДС + ЧастьСуммыНДС; Если КолСтрокДокумента = ДокументПоступления.НомерСтроки Тогда ЧастьСуммыДопРасходов = ЧастьСуммыДопРасходов + СуммаДокумента - РаспредСумДок; ЧастьСуммыНДС = ЧастьСуммыНДС + СуммаНДС - РаспредСумНДС; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Количество = 1; КоллекцияОбъектов.Содержание = "Дополнительные затраты"; КоллекцияОбъектов.Цена = ЧастьСуммыДопРасходов; КоллекцияОбъектов.Сумма = ЧастьСуммыДопРасходов; КоллекцияОбъектов.СтавкаНДС = СтавкаНДССтрока; КоллекцияОбъектов.СуммаНДС = ЧастьСуммыНДС; КоллекцияОбъектов.СчетУчетаНДС = Сч19; КоллекцияОбъектов.СчетЗатрат = СчетПоступления; КоллекцияОбъектов.Субконто1 = ДокументПоступления.ОбъектВнеоборотныхАктивов; КоллекцияОбъектов.СчетЗатратНУ = СчетПоступления; КоллекцияОбъектов.СубконтоНУ1 = ДокументПоступления.ОбъектВнеоборотныхАктивов; КонецЦикла; <Свойство Отключить="true"> <Код>27 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>30 <Наименование> --> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>26 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>39 <Наименование> --> СуммаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> СчетУчетаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>40 <Наименование> --> СчетЗатрат <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>29 <Наименование> --> ПодразделениеЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>32 <Наименование> --> Субконто1 <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>33 <Наименование> --> Субконто2 <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто2); ПриВыгрузкеСубконто(); <Свойство> <Код>34 <Наименование> --> Субконто3 <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто3); ПриВыгрузкеСубконто(); <Свойство> <Код>41 <Наименование> --> СчетЗатратНУ <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатратНУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>35 <Наименование> --> СубконтоНУ1 <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатратНУ); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоНУ1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоНУ2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоНУ3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоНУ1); ПриВыгрузкеСубконто(); <Свойство> <Код>36 <Наименование> --> СубконтоНУ2 <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатратНУ); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоНУ1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоНУ2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоНУ3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоНУ2); ПриВыгрузкеСубконто(); <Свойство> <Код>37 <Наименование> --> СубконтоНУ3 <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатратНУ); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоНУ1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоНУ2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоНУ3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоНУ3); ПриВыгрузкеСубконто(); <Свойство Отключить="true"> <Код>28 <Наименование> --> ОтражениеВУСН <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство Отключить="true"> <Код>44 <Наименование> --> Проведен <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ПоступлениеТоваров_ПТУ <Наименование>ДокументСсылка.ПоступлениеНМА --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>500 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ВидПоступления <> 1) и (Источник.ВидПоступления <> 2) и (Источник.ВидПоступления <> 11) Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеТоваров <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>52 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>2 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>9 <Наименование>ТипЦен --> ТипЦен <Порядок>400 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>11 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>12 <Наименование> --> ВидОперации <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство Отключить="true"> <Код>13 <Наименование> --> Грузоотправитель <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Отключить="true"> <Код>14 <Наименование> --> Грузополучатель <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>15 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>650 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>21 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>700 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>24 <Наименование> --> ПредъявленСчетФактура <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>16 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>22 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>54 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>900 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>55 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>950 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> КратностьВзаиморасчетов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>18 <Наименование> --> КурсВзаиморасчетов <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>19 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>1100 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> НДСПредъявленКВычету <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>23 <Наименование> --> ПодразделениеОрганизации <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>26 <Наименование>МестоХранения --> Склад <Порядок>1250 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>27 <Наименование> --> СпособЗачетаАвансов <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>28 <Наименование> --> СуммаВключаетНДС <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>29 <Наименование> --> СуммаДокумента <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>30 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>32 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство Отключить="true"> <Код>31 <Наименование> --> СчетУчетаРасчетовПоТаре <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>33 <Наименование> --> УчитыватьНДС <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>34 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1650 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; Параметры.ПараметрыАлгоритмов.Установить("ТоварВидПоступления",Источник.ВидПоступления); Параметры.ПараметрыАлгоритмов.Установить("ТоварМестоХранения",Источник.МестоХранения); Параметры.ПараметрыАлгоритмов.Установить("Товар",Источник.Товар); ПолучитьСчетУчетаТоваров(); КоллекцияОбъектов.СчетУчета = Параметры.ПараметрыАлгоритмов.Получить("СчетУчетаТовара"); КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.3"); Если СокрЛП(Источник.ДатаНомерСчетаФактуры) <> "" Тогда КоллекцияОбъектов.НомерГТД = Источник.ГТД; Если ПустоеЗначение(Источник.ГТД)=0 Тогда КоллекцияОбъектов.СтранаПроисхождения = Источник.ГТД.СтранаПроисхождения; КонецЕсли; КонецЕсли; КонецЦикла; РаспределитьГТД(); <Свойство> <Код>39 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство Отключить="true"> <Код>35 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <Свойство> <Код>36 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>37 <Наименование> --> КоличествоМест <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> Коэффициент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>50 <Наименование> --> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>41 <Наименование> --> ОтражениеВУСН <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>45 <Наименование> --> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> СтавкаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>47 <Наименование> --> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>51 <Наименование> --> ЦенаВРознице <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>43 <Наименование> --> СтавкаНДСВРознице <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство Отключить="true"> <Код>46 <Наименование> --> СуммаВРознице <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>48 <Наименование> --> СчетУчета <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>49 <Наименование> --> СчетУчетаНДС <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>40 <Наименование> --> НомерГТД <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>44 <Наименование> --> СтранаПроисхождения <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство Отключить="true"> <Код>53 <Наименование> --> Проведен <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ПоступлениеТоваров_Возврат <Наименование>Документ: ПоступлениеТоваров <Порядок>550 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ВидПоступления <> 3) и (Источник.ВидПоступления <> 4) и (Источник.ВидПоступления <> 5) и (Источник.ВидПоступления <> 12) и (Источник.ВидПоступления <> 13) Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеТоваров <Приемник>ДокументСсылка.ВозвратТоваровОтПокупателя <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>16 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>12 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>8 <Наименование>ТипЦен --> ТипЦен <Порядок>400 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>9 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>10 <Наименование> --> ВидОперации <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровОтПокупателя"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>19 <Наименование> --> ПредъявленСчетФактура <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>11 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>46 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>700 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>47 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>750 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> КратностьВзаиморасчетов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>14 <Наименование> --> КурсВзаиморасчетов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>18 <Наименование> --> ПодразделениеОрганизации <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>5 <Наименование>ПокупателемВыставляетсяСчетФактураНаВозврат --> ПокупателемВыставляетсяСчетФактураНаВозврат <Порядок>950 <Источник Имя="ПокупателемВыставляетсяСчетФактураНаВозврат" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПокупателемВыставляетсяСчетФактураНаВозврат" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>17 <Наименование>ВключатьВКнигуПокупок --> ОтразитьВКнигеПокупок <Порядок>1000 <Источник Имя="ВключатьВКнигуПокупок" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ОтразитьВКнигеПокупок" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование>ДокументОснование --> Сделка <Порядок>1050 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="Сделка" Вид="Реквизит"/> <КодПравилаКонвертации>РасходнаяНакладная_Продажа <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументОснование)=0 Тогда Если Источник.ДокументОснование.Вид()<>"РасходнаяНакладная" Тогда Отказ = 1; ИначеЕсли Источник.ДокументОснование.ДатаДок<Параметры.ДатаВводаОстатков Тогда Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование>МестоХранения --> Склад <Порядок>1100 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>22 <Наименование> --> СуммаВключаетНДС <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>23 <Наименование> --> СуммаДокумента <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>24 <Наименование> --> СчетУчетаНДС <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("19.3"); <Свойство> <Код>25 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетАвансовПолученных"); <Свойство> <Код>26 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Свойство> <Код>27 <Наименование> --> УчитыватьНДС <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>28 <Наименование> --> Товары <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("Себестоимость"); КоллекцияОбъектов.НоваяКолонка("ПереданныеСчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетДоходов"); КоллекцияОбъектов.НоваяКолонка("Субконто"); КоллекцияОбъектов.НоваяКолонка("СчетРасходов"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДСПоРеализации"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.Себестоимость = Источник.ВсегоСтоимость; Если Источник.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда КоллекцияОбъектов.ПереданныеСчетУчета = СчетПоКоду("КМС"); ИначеЕсли Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда КоллекцияОбъектов.ПереданныеСчетУчета = "45.01"; ИначеЕсли Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда КоллекцияОбъектов.ПереданныеСчетУчета = "45.02"; Иначе КоллекцияОбъектов.ПереданныеСчетУчета = "45.03"; КонецЕсли; СчетРасходов90 = СчетПоКоду("90.2.1"); СчетВыручки90 = СчетПоКоду("90.1.1"); Если Источник.ДокументОснование.Вид() = "ПродажаВРозницу" Тогда Если Источник.ДокументОснование.ПродажаОблагаетсяЕНВД = 1 Тогда СчетРасходов90 = СчетПоКоду("90.2.2"); СчетВыручки90 = СчетПоКоду("90.1.2"); КонецЕсли; КонецЕсли; КоллекцияОбъектов.СчетДоходов = СчетВыручки90; Если ПустоеЗначение(Источник.Товар) = 0 Тогда КоллекцияОбъектов.Субконто = Источник.Товар.ВидНоменклатуры; КонецЕсли; КоллекцияОбъектов.СчетРасходов = СчетРасходов90; Параметры.ПараметрыАлгоритмов.Установить("ТоварМестоХранения",Источник.МестоХранения); Параметры.ПараметрыАлгоритмов.Установить("Товар",Источник.Товар); ПолучитьСчетУчетаТоваров(); КоллекцияОбъектов.СчетУчета = Параметры.ПараметрыАлгоритмов.Получить("СчетУчетаТовара"); КоллекцияОбъектов.СчетУчетаНДСПоРеализации = СчетПоКоду("90.3"); Если ПустоеЗначение(Источник.ГТД)=0 Тогда КоллекцияОбъектов.НомерГТД = Источник.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Источник.ГТД.СтранаПроисхождения; КонецЕсли; КонецЦикла; РаспределитьГТД(); <Свойство> <Код>30 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>29 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>44 <Наименование> --> Цена <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование> --> СтавкаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>39 <Наименование> --> СуммаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> Себестоимость <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> ПереданныеСчетУчета <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПереданныеСчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ТипЗначенияСтр(ОбъектКоллекции.ПереданныеСчетУчета)="Строка" Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КодСчета", ОбъектКоллекции.ПереданныеСчетУчета); ИмяПКО = ""; КонецЕсли; <Свойство> <Код>40 <Наименование> --> СчетДоходов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>37 <Наименование> --> Субконто <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>41 <Наименование> --> СчетРасходов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>42 <Наименование> --> СчетУчета <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>43 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>31 <Наименование> --> НомерГТД <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>36 <Наименование> --> СтранаПроисхождения <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство Отключить="true"> <Код>32 <Наименование> --> ОтражениеВУСН <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство Отключить="true"> <Код>45 <Наименование> --> Проведен <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ПоступлениеМатериалов_ПТУ <Наименование>ДокументСсылка.ПоступлениеМатериалов --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>600 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидПоступления > 0 тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеМатериалов <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>10 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>11 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>14 <Наименование> --> Номер <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство> <Код>57 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>2 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>12 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>15 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>16 <Наименование> --> ВидОперации <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство Отключить="true"> <Код>17 <Наименование> --> Грузоотправитель <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> Грузополучатель <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство> <Код>19 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>600 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>25 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>650 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>28 <Наименование> --> ПредъявленСчетФактура <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>26 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>59 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>850 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>60 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>900 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование> --> КратностьВзаиморасчетов <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>22 <Наименование> --> КурсВзаиморасчетов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>23 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>1050 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>24 <Наименование> --> НДСПредъявленКВычету <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>27 <Наименование> --> ПодразделениеОрганизации <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>30 <Наименование>МестоХранения --> Склад <Порядок>1200 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство> <Код>31 <Наименование> --> СпособЗачетаАвансов <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>32 <Наименование> --> СуммаВключаетНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>33 <Наименование> --> СуммаДокумента <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>34 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>36 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство Отключить="true"> <Код>35 <Наименование> --> СчетУчетаРасчетовПоТаре <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>37 <Наименование> --> ТипЦен <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>38 <Наименование> --> УчитыватьНДС <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>39 <Наименование> --> Товары <Порядок>1650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Материал; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС", ); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.СчетУчета = Источник.Материал.СубСчет10; КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.3"); КонецЦикла; РаспределитьГТД(); <Свойство> <Код>44 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство Отключить="true"> <Код>40 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>41 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>42 <Наименование> --> КоличествоМест <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> Коэффициент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>46 <Наименование> --> ОтражениеВУСН <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>55 <Наименование> --> Цена <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>50 <Наименование> --> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>47 <Наименование> --> СтавкаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>52 <Наименование> --> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>53 <Наименование> --> СчетУчета <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>54 <Наименование> --> СчетУчетаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство Отключить="true"> <Код>56 <Наименование> --> ЦенаВРознице <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>51 <Наименование> --> СуммаВРознице <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>48 <Наименование> --> СтавкаНДСВРознице <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>45 <Наименование> --> НомерГТД <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>49 <Наименование> --> СтранаПроисхождения <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <Свойство Отключить="true"> <Код>58 <Наименование> --> Проведен <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ПоступлениеМатериалов_ИзПереработки <Наименование>Документ: ПоступлениеТоваров <Порядок>650 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидПоступления <> 1 Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ПоступлениеМатериалов <Приемник>ДокументСсылка.ПоступлениеИзПереработки <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>18 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>7 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>10 <Наименование> --> КратностьВзаиморасчетов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>12 <Наименование> --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>21 <Наименование> --> ПредъявленСчетФактура <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство Отключить="true"> <Код>17 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>8 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование> --> КратностьДокумента <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>13 <Наименование> --> КурсДокумента <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>37 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>800 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>850 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>6 <Наименование>СчетЗатрат --> СчетЗатрат <Порядок>900 <Источник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Основной"/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>16 <Наименование> --> НоменклатурнаяГруппа <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="НоменклатурнаяГруппа" Вид="Реквизит" Тип="СправочникСсылка.НоменклатурныеГруппы"/> <КодПравилаКонвертации>НоменклатурныеГруппы <ПередВыгрузкой>Если Источник.СчетЗатрат.ВидСубконто(1) = ВидыСубконто.ВидыНоменклатуры Тогда Значение = Источник.Субконто1; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(2) = ВидыСубконто.ВидыНоменклатуры Тогда Значение = Источник.Субконто2; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(3) = ВидыСубконто.ВидыНоменклатуры Тогда Значение = Источник.Субконто3; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>19 <Наименование> --> ПодразделениеЗатрат <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Счет = Источник.СчетЗатрат; Для к = 1 По Счет.КоличествоСубконто() Цикл Если (Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.Подразделения) ИЛИ (Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", Источник.ПолучитьАтрибут("Субконто"+к)); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение) = 1 Тогда Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>15 <Наименование> --> НДСПредъявленКВычету <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> ПодразделениеОрганизации <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>22 <Наименование>МестоХранения --> Склад <Порядок>1150 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>23 <Наименование> --> СпособЗачетаАвансов <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Значение = "Автоматически"; <Свойство> <Код>24 <Наименование> --> СуммаВключаетНДС <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>25 <Наименование> --> СуммаДокумента <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>26 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>28 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство Отключить="true"> <Код>27 <Наименование> --> СчетУчетаРасчетовПоТаре <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>29 <Наименование> --> УчитыватьНДС <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>30 <Наименование>ТабличнаяЧасть --> ИспользованныеМатериалы <Порядок>1550 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ИспользованныеМатериалы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>32 <Наименование>Материал --> Номенклатура <Порядок>50 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>31 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>33 <Наименование> --> ОтражениеВУСН <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>34 <Наименование> --> СтатьяЗатрат <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяЗатрат" Вид="Реквизит" Тип="СправочникСсылка.СтатьиЗатрат"/> <ПередВыгрузкой>Значение = ПолучитьПустоеЗначение(); Для к = 1 по 3 Цикл Если Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.СтатьиЗатратНаПроизводство Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+строка(к)); ИмяПКО = "СтатьиЗатратНаПроизводство"; Прервать; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.СтатьиЗатратНаСтроительство Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+строка(к)); ИмяПКО = "СтатьиЗатратНаСтроительство"; Прервать; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+строка(к)); ИмяПКО = "СтатьиЗатратОбслуживающихПроизводств"; Прервать; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.СтатьиКоммерческихРасходов Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+строка(к)); ИмяПКО = "СтатьиКоммерческихРасходов"; Прервать; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+строка(к)); ИмяПКО = "СтатьиОбщепроизводственныхЗатрат"; Прервать; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+строка(к)); ИмяПКО = "СтатьиОбщехозяйственныхЗатрат"; Прервать; ИначеЕсли Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.СтатьиРасходовНаПродажу Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+строка(к)); ИмяПКО = "СтатьиРасходовНаПродажу"; Прервать; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>35 <Наименование> --> СчетУчета <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПокоду("10.7"); <Свойство Отключить="true"> <Код>36 <Наименование> --> Проведен <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>СчетФактураПолученный <Наименование>ДокументСсылка.ПоступлениеНМА --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>700 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоДокумента", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоДокумента", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоДокумента",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоДокумента",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоДокумента",""); ВходящиеДанные.Установить("ДатаВходящегоДокумента",""); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СчетФактураПолученный <Приемник>ДокументСсылка.СчетФактураПолученный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>8 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>2 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>11 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>16 <Наименование> --> НомерВходящегоДокумента <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> ДатаВходящегоДокумента <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>28 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>550 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>31 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>600 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>650 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>13 <Наименование>ДокументОприходования --> ДокументОснование <Порядок>700 <Источник Имя="ДокументОприходования" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник); УстановитьПараметрыДокОснСчетаФактурыПолученного(); Если ПустоеЗначение(ИмяПКО)=1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; <Свойство> <Код>14 <Наименование>ВидОперации --> ВидСчетаФактуры <Порядок>750 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСчетаФактурыПолученного"/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыПолученного"/> <КодПравилаКонвертации>ВидСчетаФактурыПолученного <Свойство> <Код>19 <Наименование>Всего --> СуммаДокумента <Порядок>800 <Источник Имя="Всего" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>15 <Наименование> --> НДСПредъявленКВычету <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> СформированПриВводеНачальныхОстатковНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СформированПриВводеНачальныхОстатковНДС" Вид="Реквизит" Тип="Булево"/> <Группа> <Код>21 <Наименование> --> ДокументыОснования <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДокументОснование"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДокументОснование = Источник.ДокументОприходования; <Свойство> <Код>22 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник); УстановитьПараметрыДокОснСчетаФактурыПолученного(); Если ПустоеЗначение(ИмяПКО)=1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; <Группа> <Код>23 <Наименование> --> Авансы <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Авансы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыПолученного.Аванс Тогда КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); Если Источник.СуммаБезНДС20>0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сумма = Источник.СуммаБезНДС20+Источник.НДС20; КоллекцияОбъектов.СтавкаНДС = "НДС18_118"; КоллекцияОбъектов.СуммаНДС = Источник.НДС20; КонецЕсли; Если Источник.СуммаБезНДС10>0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сумма = Источник.СуммаБезНДС10+Источник.НДС10; КоллекцияОбъектов.СтавкаНДС = "НДС10_110"; КоллекцияОбъектов.СуммаНДС = Источник.НДС10; КонецЕсли; Если Источник.СуммаСовсемБезНДС>0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сумма = Источник.СуммаСовсемБезНДС; КоллекцияОбъектов.СтавкаНДС = "БезНДС"; КоллекцияОбъектов.СуммаНДС = 0; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>25 <Наименование> --> Сумма <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> СтавкаНДС <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>26 <Наименование> --> СуммаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>27 <Наименование> --> Проведен <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ДокументРасчетовСКонтрагентом <Наименование>СправочникСсылка.Договоры --> ДокументСсылка.ДокументРасчетовСКонтрагентом <Порядок>750 <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; <Источник>СправочникСсылка.Договоры <Приемник>ДокументСсылка.ДокументРасчетовСКонтрагентом <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование> --> Контрагент <Порядок>200 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true"> <Код>1 <Наименование> --> Дата <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаВводаОстатков - 1; <Свойство Поиск="true"> <Код>3 <Наименование> --> Организация <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>5 <Наименование> --> ДоговорКонтрагента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>ДокументРасчетовСКонтрагентом_Документ <Наименование>: <Порядок>800 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ДокументРасчетовСКонтрагентом <Свойства> <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>9 <Наименование> --> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Если Источник.ДатаДок < Параметры.ДатаВводаОстатков Тогда Значение = Параметры.ДатаВводаОстатков - 1; Иначе Значение = Источник.ДатаДок; КонецЕсли; <Свойство Поиск="true"> <Код>5 <Наименование> --> Контрагент <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Если Метаданные.Документ(Источник.Вид()).РеквизитШапки("Контрагент").Выбран()=1 Тогда Значение = Источник.Контрагент; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование> --> ДоговорКонтрагента <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если Метаданные.Документ(Источник.Вид()).РеквизитШапки("Договор").Выбран()=1 Тогда Значение = Источник.Договор; КонецЕсли; <Свойство> <Код>4 <Наименование> --> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Отключить="true"> <Код>2 <Наименование> --> ДатаВходящегоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>6 <Наименование> --> НомерВходящегоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Если Метаданные.Документ(Источник.Вид()).РеквизитШапки("Договор").Выбран()=1 Тогда Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>8 <Наименование> --> СуммаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Метаданные.Документ(Источник.Вид()).РеквизитТабличнойЧасти("Всего").Выбран()=1 Тогда Значение = Источник.Итог("Всего"); КонецЕсли; <Значения/> <Правило> <Код>РасходнаяНакладная_Продажа <Наименование>Документ: Отгрузка товаров, продукции <Порядок>850 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ВидОтгрузки <> 1) и (Источник.ВидОтгрузки <> 11) и (Источник.ВидОтгрузки <> 2) и (Источник.ВидОтгрузки <> 12)Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.РасходнаяНакладная <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>38 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>6 <Наименование> --> Номер <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство> <Код>50 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>11 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>2 <Наименование>Грузополучатель --> Грузополучатель <Порядок>400 <Источник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>1 <Наименование>Грузоотправитель --> Грузоотправитель <Порядок>450 <Источник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>ТипЦен --> ТипЦен <Порядок>500 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>10 <Наименование>ВидОтгрузки --> ВидОперации <Порядок>550 <Источник Имя="ВидОтгрузки" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияТоваров"/> <ПередВыгрузкой> Значение = "ПродажаКомиссия"; <Свойство> <Код>12 <Наименование>ЗачитыватьАванс --> СпособЗачетаАвансов <Порядок>600 <Источник Имя="ЗачитыватьАванс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>36 <Наименование> --> ВалютаДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>13 <Наименование> --> КурсВзаиморасчетов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>37 <Наименование> --> КратностьВзаиморасчетов <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>14 <Наименование>МестоХранения --> Склад <Порядок>800 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>35 <Наименование>РасчетныйСчет --> БанковскийСчетОрганизации <Порядок>850 <Источник Имя="РасчетныйСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство Отключить="true"> <Код>34 <Наименование> --> АдресДоставки <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="АдресДоставки" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>39 <Наименование> --> ПодразделениеОрганизации <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство Отключить="true"> <Код>40 <Наименование> --> СтатьяДоходовИРасходовПоТаре <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходовИРасходовПоТаре" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Свойство> <Код>41 <Наименование> --> СуммаВключаетНДС <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>49 <Наименование> --> УчитыватьНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>42 <Наименование> --> СуммаДокумента <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство Отключить="true"> <Код>43 <Наименование> --> СчетНаОплатуПокупателю <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНаОплатуПокупателю" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <Свойство Отключить="true"> <Код>44 <Наименование> --> СчетУчетаДоходовПоТаре <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаДоходовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство Отключить="true"> <Код>45 <Наименование> --> СчетУчетаРасходовПоТаре <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасходовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство Отключить="true"> <Код>47 <Наименование> --> СчетУчетаРасчетовПоТаре <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>46 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетАвансовПолученных"); <Свойство> <Код>48 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Группа> <Код>15 <Наименование> --> Товары <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетДоходов"); КоллекцияОбъектов.НоваяКолонка("Субконто"); КоллекцияОбъектов.НоваяКолонка("СчетРасходов"); КоллекцияОбъектов.НоваяКолонка("ПереданныеСчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДСПоРеализации"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл Если (Источник.Товар.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.Продукция) и (Источник.Товар.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.Полуфабрикат) и (Источник.Товар.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.Товар) Тогда Продолжить; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; Если ПустоеЗначение(Источник.Товар) = 0 Тогда Если Источник.Товар.ВидНоменклатуры.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.2"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.2"); Иначе КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.1"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.1"); КонецЕсли; КоллекцияОбъектов.Субконто = Источник.Товар.ВидНоменклатуры; КонецЕсли; Если Источник.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда КоллекцияОбъектов.ПереданныеСчетУчета = СчетПоКоду("КМС"); ИначеЕсли Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда КоллекцияОбъектов.ПереданныеСчетУчета = "45.01"; ИначеЕсли Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда КоллекцияОбъектов.ПереданныеСчетУчета = "45.02"; Иначе КоллекцияОбъектов.ПереданныеСчетУчета = "45.03"; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТоварМестоХранения",Источник.МестоХранения); Параметры.ПараметрыАлгоритмов.Установить("Товар",Источник.Товар); ПолучитьСчетУчетаТоваров(); КоллекцияОбъектов.СчетУчета = Параметры.ПараметрыАлгоритмов.Получить("СчетУчетаТовара"); КоллекцияОбъектов.СчетУчетаНДСПоРеализации = СчетПоКоду("90.3"); КонецЦикла; РаспределитьГТД(); <Свойство Отключить="true"> <Код>19 <Наименование> --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <ПередВыгрузкой>Значение = ОбъектКоллекции.Товар.ЕдиницаИзмерения; <Свойство Отключить="true"> <Код>51 <Наименование> --> Себестоимость <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование> --> Номенклатура <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>16 <Наименование> --> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование> --> Коэффициент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование> --> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> СтавкаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>27 <Наименование> --> СуммаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование> --> СчетДоходов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>26 <Наименование> --> Субконто <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>29 <Наименование> --> СчетРасходов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>23 <Наименование> --> ПереданныеСчетУчета <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПереданныеСчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Если ТипЗначенияСтр(ОбъектКоллекции.ПереданныеСчетУчета)="Строка" Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КодСчета", ОбъектКоллекции.ПереданныеСчетУчета); Иначе ИмяПКО = "Хозрасчетный"; КонецЕсли; <Свойство> <Код>30 <Наименование> --> СчетУчета <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>31 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>22 <Наименование> --> НомерГТД <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>25 <Наименование> --> СтранаПроисхождения <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Группа> <Код>52 <Наименование> --> Услуги <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Содержание"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетДоходов"); КоллекцияОбъектов.НоваяКолонка("Субконто"); КоллекцияОбъектов.НоваяКолонка("СчетРасходов"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДСПоРеализации"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл Если (Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция) или (Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат) или (Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар) Тогда Продолжить; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; Если ПустоеЗначение(Источник.Товар) = 0 Тогда Если Источник.Товар.ВидНоменклатуры.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.2"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.2"); Иначе КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.1"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.1"); КонецЕсли; КоллекцияОбъектов.Субконто = Источник.Товар.ВидНоменклатуры; КонецЕсли; КоллекцияОбъектов.СчетУчетаНДСПоРеализации = СчетПоКоду("90.3"); КонецЦикла; <Свойство> <Код>54 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>55 <Наименование> --> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>53 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>63 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>58 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>56 <Наименование> --> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>59 <Наименование> --> СуммаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>60 <Наименование> --> СчетДоходов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>57 <Наименование> --> Субконто <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>61 <Наименование> --> СчетРасходов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>62 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство Отключить="true"> <Код>64 <Наименование> --> Проведен <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>РасходнаяНакладная_Возврат <Наименование>Документ: Отгрузка товаров, продукции <Порядок>900 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ВидОтгрузки <> 3) и (Источник.ВидОтгрузки <> 4) и (Источник.ВидОтгрузки <> 13) Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.РасходнаяНакладная <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>17 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование> --> ВидОперации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровПоставщику"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>13 <Наименование>Договор --> ДоговорКонтрагента <Порядок>400 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>1 <Наименование>Грузоотправитель --> Грузоотправитель <Порядок>450 <Источник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>2 <Наименование>Грузополучатель --> Грузополучатель <Порядок>500 <Источник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>ПоставщикуВыставляетсяСчетФактураНаВозврат --> ПоставщикуВыставляетсяСчетФактураНаВозврат <Порядок>550 <Источник Имя="ПоставщикуВыставляетсяСчетФактураНаВозврат" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПоставщикуВыставляетсяСчетФактураНаВозврат" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>10 <Наименование>ТипЦен --> ТипЦен <Порядок>600 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>11 <Наименование> --> ВалютаДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>14 <Наименование> --> КратностьВзаиморасчетов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>15 <Наименование> --> КурсВзаиморасчетов <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>16 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>800 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> ПодразделениеОрганизации <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>19 <Наименование>МестоХранения --> Склад <Порядок>900 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>21 <Наименование> --> СуммаВключаетНДС <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>22 <Наименование> --> СуммаДокумента <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>23 <Наименование> --> СчетУчетаДоходов <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.1"); <Свойство> <Код>24 <Наименование> --> СчетУчетаРасходов <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.2"); <Свойство> <Код>20 <Наименование> --> СтатьяДоходовИРасходов <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходовИРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы_Предопределенные <ПередВыгрузкой>Значение = "РазницыСтоимостиВозвратаИФактическойСтоимостиТоваров"; <Свойство> <Код>25 <Наименование> --> СчетУчетаРасчетовПоПретензиям <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоПретензиям" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовПоПретензиям"); <Свойство Отключить="true"> <Код>26 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>27 <Наименование> --> УчитыватьНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>47 <Наименование>ДокументПоступления --> Сделка <Порядок>1350 <Источник Имя="ДокументПоступления" Вид="Реквизит" Тип="ДокументСсылка.ПоступлениеТоваров"/> <Приемник Имя="Сделка" Вид="Реквизит" Тип="ДокументСсылка.ПоступлениеТоваровУслуг"/> <КодПравилаКонвертации>ПоступлениеТоваров_ПТУ <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументПоступления)=0 Тогда Если Источник.ДокументПоступления.ДатаДок<Параметры.ДатаВводаОстатков Тогда Отказ = 1; КонецЕсли; КонецЕсли; <Группа> <Код>28 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1400 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; КоллекцияОбъектов.СуммаНДС = Источник.НДС; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Параметры.ПараметрыАлгоритмов.Установить("ТоварМестоХранения",Источник.МестоХранения); Параметры.ПараметрыАлгоритмов.Установить("Товар", Источник.Товар); ПолучитьСчетУчетаТоваров(); КоллекцияОбъектов.СчетУчета = Параметры.ПараметрыАлгоритмов.Получить("СчетУчетаТовара"); КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.3"); КонецЦикла; РаспределитьГТД(); <Свойство Отключить="true"> <Код>29 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>32 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>36 <Наименование> --> Себестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> Номенклатура <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>31 <Наименование> --> Количество <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> Коэффициент <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>45 <Наименование> --> Цена <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>40 <Наименование> --> Сумма <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СтавкаНДС <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>43 <Наименование> --> СчетУчета <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>44 <Наименование> --> СчетУчетаНДС <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство Отключить="true"> <Код>38 <Наименование> --> СтавкаНДСВРознице <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство Отключить="true"> <Код>41 <Наименование> --> СуммаВРознице <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>46 <Наименование> --> ЦенаВРознице <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> СтранаПроисхождения <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство> <Код>35 <Наименование> --> НомерГТД <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство Отключить="true"> <Код>48 <Наименование> --> Проведен <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>РеализацияОтгруженнойПродукции <Наименование>Документ: Реализация отгруженной продукции <Порядок>950 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.РеализацияОтгруженнойПродукции <Приемник>ДокументСсылка.ОтчетКомиссионераОПродажах <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>1 <Наименование> --> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>63 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>5 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>12 <Наименование>Грузоотправитель --> Грузоотправитель <Порядок>400 <Источник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>13 <Наименование>Грузополучатель --> Грузополучатель <Порядок>450 <Источник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>ЗачитыватьАванс --> СпособЗачетаАвансов <Порядок>500 <Источник Имя="ЗачитыватьАванс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>9 <Наименование> --> СуммаДокумента <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>10 <Наименование> --> СчетУчетаРасчетовПоАвансамПолученным <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансамПолученным" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетАвансовПолученных"); <Свойство> <Код>11 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Свойство> <Код>14 <Наименование>ТипЦен --> ТипЦен <Порядок>700 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>15 <Наименование> --> ВалютаДокумента <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>18 <Наименование> --> КратностьВзаиморасчетов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>19 <Наименование> --> КурсВзаиморасчетов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>24 <Наименование> --> ПодразделениеОрганизации <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>26 <Наименование> --> ПроцентКомиссионногоВознаграждения <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентКомиссионногоВознаграждения" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>27 <Наименование> --> СпособРасчетаКомиссионногоВознаграждения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаКомиссионногоВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <ПередВыгрузкой>Значение = "НеРассчитывается"; <Свойство> <Код>28 <Наименование> --> СтавкаНДСВознаграждения <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Значение = "НДС18"; <Свойство> <Код>32 <Наименование> --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>33 <Наименование> --> СуммаВознаграждения <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВознаграждения" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>35 <Наименование> --> СчетУчетаНДС <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("19.3"); <Свойство> <Код>36 <Наименование> --> СчетУчетаРасчетовЗаПосредническиеУслуги <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовЗаПосредническиеУслуги" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство> <Код>37 <Наименование> --> СчетУчетаРасчетовПоАвансамВыданным <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансамВыданным" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>38 <Наименование> --> УдержатьВознаграждение <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="УдержатьВознаграждение" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>39 <Наименование> --> УчитыватьНДС <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>65 <Наименование> --> Покупатели <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="Покупатели" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВыставленСФ"); КоллекцияОбъектов.НоваяКолонка("ДатаСФ"); КоллекцияОбъектов.НоваяКолонка("КлючСтроки"); КоллекцияОбъектов.НоваяКолонка("Покупатель"); КоллекцияОбъектов.НоваяКолонка("СчетФактура"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Покупатель = Источник.Контрагент; КоллекцияОбъектов.КлючСтроки = 1; //найдем счет-фактуру СчетФактура = СоздатьОбъект("Документ"); СчетФактура.ВыбратьПодчиненныеДокументы(НачГода(Источник.ДатаДок),КонГода(Источник.ДатаДок),Источник); ДокументСчетФактура = ""; Пока СчетФактура.ПолучитьДокумент() = 1 Цикл Если (СчетФактура.Проведен() = 1) и (СчетФактура.Вид() = "СчетФактура") Тогда ДокументСчетФактура = СчетФактура.ТекущийДокумент(); КонецЕсли; КонецЦикла; Если ПустоеЗначение(ДокументСчетФактура)=0 Тогда КоллекцияОбъектов.ВыставленСФ = 1; КоллекцияОбъектов.ДатаСФ = ДокументСчетФактура.ДатаДок; КоллекцияОбъектов.СчетФактура = ДокументСчетФактура; КонецЕсли; <Свойство> <Код>66 <Наименование> --> ВыставленСФ <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВыставленСФ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>67 <Наименование> --> ДатаСФ <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСФ" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>68 <Наименование> --> КлючСтроки <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КлючСтроки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>69 <Наименование> --> Покупатель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Покупатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>70 <Наименование> --> СчетФактура <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураВыданный"/> <КодПравилаКонвертации>СчетФактура <Группа> <Код>40 <Наименование> --> Товары <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетДоходов"); КоллекцияОбъектов.НоваяКолонка("Субконто"); КоллекцияОбъектов.НоваяКолонка("СчетРасходов"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДСПоРеализации"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("КлючСтроки"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.КлючСтроки = 1; КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.1"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.1"); Если ПустоеЗначение(Источник.Товар)=0 Тогда КоллекцияОбъектов.Субконто = Источник.Товар.ВидНоменклатуры; Если Источник.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда КоллекцияОбъектов.СчетУчета = СчетПоКоду("КМС"); ИначеЕсли Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда КоллекцияОбъектов.СчетУчета = "45.01"; ИначеЕсли Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда КоллекцияОбъектов.СчетУчета = "45.02"; Иначе КоллекцияОбъектов.СчетУчета = "45.03"; КонецЕсли; КонецЕсли; КоллекцияОбъектов.СчетУчетаНДСПоРеализации = СчетПоКоду("90.3"); КонецЦикла; РаспределитьГТД(); <Свойство Отключить="true"> <Код>41 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>42 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>44 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>46 <Наименование> --> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>43 <Наименование> --> Количество <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>45 <Наименование> --> Коэффициент <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>61 <Наименование> --> Цена <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>52 <Наименование> --> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>49 <Наименование> --> СтавкаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>54 <Наименование> --> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>57 <Наименование> --> СчетДоходов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>51 <Наименование> --> Субконто <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>58 <Наименование> --> СчетРасходов <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>59 <Наименование> --> СчетУчета <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ТипЗначенияСтр(ОбъектКоллекции.СчетУчета)="Строка" Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КодСчета", ОбъектКоллекции.СчетУчета); ИмяПКО = ""; КонецЕсли; <Свойство> <Код>60 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>47 <Наименование> --> НомерГТД <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>50 <Наименование> --> СтранаПроисхождения <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство Отключить="true"> <Код>62 <Наименование> --> ЦенаПередачи <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаПередачи" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>56 <Наименование> --> СуммаПередачи <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПередачи" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>53 <Наименование> --> СуммаВознаграждения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>55 <Наименование> --> СуммаНДСВознаграждения <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДСВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>48 <Наименование> --> Себестоимость <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>71 <Наименование> --> КлючСтроки <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="КлючСтроки" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>25 <Наименование> --> ПредъявленСчетФактура <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>22 <Наименование> --> НомерВходящегоДокумента <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>16 <Наименование> --> ДатаВходящегоДокумента <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>23 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>17 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>1750 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> НДСВключенВСтоимость <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> НДСПредъявленКВычету <Порядок>1850 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>34 <Наименование> --> СчетУчетаЗатрат <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>29 <Наименование> --> Субконто1 <Порядок>1950 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> Субконто2 <Порядок>2000 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>31 <Наименование> --> Субконто3 <Порядок>2050 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>64 <Наименование> --> Проведен <Порядок>2100 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>СчетНаОплатуПокупателю <Наименование>Документ: Счет <Порядок>1000 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.Счет <Приемник>ДокументСсылка.СчетНаОплатуПокупателю <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>11 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>34 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование> --> ОрганизацияПолучатель <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОрганизацияПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>Договор --> ДоговорКонтрагента <Порядок>400 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Свойство> <Код>5 <Наименование>ТипЦен --> ТипЦен <Порядок>450 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>15 <Наименование>РасчетныйСчет --> СтруктурнаяЕдиница <Порядок>500 <Источник Имя="РасчетныйСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СтруктурнаяЕдиница" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство Отключить="true"> <Код>6 <Наименование> --> АдресДоставки <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="АдресДоставки" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> ВалютаДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>9 <Наименование> --> КратностьВзаиморасчетов <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>10 <Наименование> --> КурсВзаиморасчетов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Курс = Валюта.Курс.Получить(Источник.ДатаДок); Значение = Курс; КонецЕсли; КонецЕсли; <Свойство Отключить="true"> <Код>13 <Наименование> --> ПодразделениеОрганизации <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> Склад <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство> <Код>16 <Наименование> --> СуммаВключаетНДС <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>17 <Наименование> --> СуммаДокумента <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>18 <Наименование> --> УчитыватьНДС <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>19 <Наименование> --> Товары <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если (Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар) или (Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция) или (Источник.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; КоллекцияОбъектов.СуммаНДС = Источник.НДС; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КонецЕсли; КонецЦикла; Если КоллекцияОбъектов.КоличествоСтрок()=0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>20 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> Цена <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> СтавкаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>24 <Наименование> --> СуммаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Группа> <Код>26 <Наименование> --> Услуги <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если (Источник.Товар.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.Товар) и (Источник.Товар.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.Продукция) и (Источник.Товар.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.Полуфабрикат) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; КоллекцияОбъектов.СуммаНДС = Источник.НДС; СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КонецЕсли; КонецЦикла; Если КоллекцияОбъектов.КоличествоСтрок()=0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>28 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство Отключить="true"> <Код>29 <Наименование> --> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>27 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>32 <Наименование> --> СуммаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>Доверенность <Наименование>Документ: Доверенность <Порядок>1050 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.Доверенность <Приемник>ДокументСсылка.Доверенность <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>10 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>19 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>9 <Наименование>Поставщик --> Контрагент <Порядок>300 <Источник Имя="Поставщик" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Отключить="true"> <Код>8 <Наименование> --> ДоговорКонтрагента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Свойство> <Код>7 <Наименование>РасчетныйСчет --> БанковскийСчетОрганизации <Порядок>400 <Источник Имя="РасчетныйСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>3 <Наименование>ДатаДействия --> ДатаДействия <Порядок>450 <Источник Имя="ДатаДействия" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаДействия" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>5 <Наименование>НаПолучениеОт --> НаПолучениеОт <Порядок>500 <Источник Имя="НаПолучениеОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаПолучениеОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> ПоДокументу <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрЛП(Источник.ПоДокументу)+" №"+СокрЛП(Источник.НомерДокумента)+" от "+Формат(источник.ДатаДокумента,"ДДД.ММ.ГГГГ"); <Свойство Отключить="true"> <Код>11 <Наименование> --> Сделка <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>12 <Наименование>Сотрудник --> ФизЛицо <Порядок>650 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Группа> <Код>14 <Наименование>ТабличнаяЧасть --> Товары <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>18 <Наименование>Товар --> НаименованиеТовара <Порядок>50 <Источник Имя="Товар" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеТовара" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование>ЕдиницаИзмерения --> ЕдиницаПоКлассификатору <Порядок>100 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ЕдиницаПоКлассификатору" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения_Строка <Свойство> <Код>15 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>АвансовыйОтчет <Наименование>Документ: Авансовый отчет <Порядок>1100 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); СписокСчетовФактур = СоздатьОбъект("СписокЗначений"); //найдем все счета-фактуры и поместим их в исходящие данные Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,,Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.ПометкаУдаления() = 0) и (Док.Вид() = "СчетФактураПолученный") Тогда СписокСчетовФактур.ДобавитьЗначение(Док.ТекущийДокумент()); КонецЕсли; КонецЦикла; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.ДобавитьЗначение(СписокСчетовФактур, "СписокСчетовФактур"); <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", "Прочее"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатрат"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","Субконто"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); //обрабатываем субконто НУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", "Прочее"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатратНУ"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоНУ"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.АвансовыйОтчет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>11 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>64 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование> --> ВалютаДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(Источник.Валюта) = 0,Источник.Валюта,Параметры.Рубли); <Свойство> <Код>5 <Наименование>ПриложеноДок --> КоличествоДокументов <Порядок>350 <Источник Имя="ПриложеноДок" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДокументов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>НаЛистах --> КоличествоЛистов <Порядок>400 <Источник Имя="НаЛистах" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоЛистов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> КратностьДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта.Выбран()=1 Тогда Значение = Источник.Валюта.Кратность.Получить(Источник.ДатаДок); Иначе Значение = 1; КонецЕсли; <Свойство> <Код>8 <Наименование> --> КурсДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта.Выбран()=1 Тогда Значение = Источник.Валюта.Курс.Получить(Источник.ДатаДок); Иначе Значение = 1; КонецЕсли; <Свойство> <Код>9 <Наименование>НаименованиеАванса --> НазначениеАванса <Порядок>550 <Источник Имя="НаименованиеАванса" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НазначениеАванса" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> НДСВключенВСтоимость <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>12 <Наименование> --> ПодразделениеОрганизации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>13 <Наименование> --> Склад <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = ПолучитьПустоеЗначение("Справочник.МестаХранения"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если Источник.КоррСчет.ВидСубконто(1) = ВидыСубконто.МестаХранения Тогда Значение = Источник.Субконто1; Прервать; ИначеЕсли Источник.КоррСчет.ВидСубконто(2) = ВидыСубконто.МестаХранения Тогда Значение = Источник.Субконто2; Прервать; ИначеЕсли Источник.КоррСчет.ВидСубконто(3) = ВидыСубконто.МестаХранения Тогда Значение = Источник.Субконто3; Прервать; КонецЕсли; КонецЦикла; <Свойство> <Код>14 <Наименование> --> СуммаВключаетНДС <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>15 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма"); <Свойство Отключить="true"> <Код>16 <Наименование> --> ТипЦен <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>17 <Наименование> --> УчитыватьНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>18 <Наименование>Сотрудник --> ФизЛицо <Порядок>950 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Группа> <Код>44 <Наименование> --> Товары <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидДокВходящий"); КоллекцияОбъектов.НоваяКолонка("ДатаВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("НомерВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("Поставщик"); КоллекцияОбъектов.НоваяКолонка("ПредъявленСФ"); КоллекцияОбъектов.НоваяКолонка("НомерСФ"); КоллекцияОбъектов.НоваяКолонка("ДатаСФ"); КоллекцияОбъектов.НоваяКолонка("СчетФактура"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); СписокСчетовФактур = ВходящиеДанные.Получить("СписокСчетовФактур"); ВсегоСчетовФактур = СписокСчетовФактур.РазмерСписка(); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("10"))=1) или (Источник.КоррСчет=СчетПоКоду("07")) или (Источник.КоррСчет=СчетПоКоду("08.4")) или (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("41"))=1) или (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("43"))=1) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидДокВходящий = Источник.КомуЗаЧто; КоллекцияОбъектов.ДатаВходящегоДокумента = Источник.ДатаС; КоллекцияОбъектов.НомерВходящегоДокумента = Источник.НомерДокумента; Счет = Источник.КоррСчет; Для к=1 по Счет.КоличествоСубконто() цикл ВидСубконтоИсточника = Счет.ВидСубконто(к); Если (ВидСубконтоИсточника = ВидыСубконто.Номенклатура) или (ВидСубконтоИсточника = ВидыСубконто.Материалы) или (ВидСубконтоИсточника = ВидыСубконто.Оборудование) или (ВидСубконтоИсточника = ВидыСубконто.ОбъектыСтроительства)тогда Если к = 1 тогда КоллекцияОбъектов.Номенклатура = Источник.Субконто1; ИначеЕсли к=2 тогда КоллекцияОбъектов.Номенклатура = Источник.Субконто2; ИначеЕсли к=3 тогда КоллекцияОбъектов.Номенклатура = Источник.Субконто3; КонецЕсли; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Цена = (Источник.Сумма - Источник.НДС)/?(Источник.Количество = 0,1,Источник.Количество); КоллекцияОбъектов.Сумма = (Источник.Сумма - Источник.НДС); КоллекцияОбъектов.СуммаНДС = Источник.НДС; Если Источник.НДС = 0 Тогда КоллекцияОбъектов.СтавкаНДС = "БезНДС"; Иначе //определяем ставку Ставка = Источник.НДС / (Источник.Сумма - Источник.НДС); Если Ставка>0.19 Тогда КоллекцияОбъектов.СтавкаНДС = "НДС20"; ИначеЕсли Ставка>0.17 Тогда КоллекцияОбъектов.СтавкаНДС = "НДС18"; Иначе КоллекцияОбъектов.СтавкаНДС = "НДС10"; КонецЕсли; КонецЕсли; КоллекцияОбъектов.СчетУчета = Источник.КоррСчет; КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.3"); Если Источник.НДС <> 0 Тогда //получим счета-фактуры, введенные для данного авансового отчета. //если такой счет-фактура один, то будем использовать его. //если счетов-фактур несколько - то поищем счет-фактуру с нужной суммой и суммой НДС КоллекцияОбъектов.ПредъявленСФ = 1; Если ВсегоСчетовФактур = 1 Тогда СчетФактура = СписокСчетовФактур.ПолучитьЗначение(1); ИначеЕсли СписокСчетовФактур.РазмерСписка() = 0 Тогда СчетФактура = ПолучитьПустоеЗначение("Документ.СчетФактураВыданный"); ДатаСФ = ""; НомерСФ = ""; Иначе //пытаемся найти с/ф СчетФактура = ""; Для НомерСФ = 1 По СписокСчетовФактур.РазмерСписка() Цикл СФ = СписокСчетовФактур.ПолучитьЗначение(НомерСФ); Если ((СФ.НДС10 + СФ.НДС20) = Источник.НДС) и (СФ.Всего = Источник.Сумма) Тогда СчетФактура = СФ; СписокСчетовФактур.УдалитьЗначение(НомерСФ); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; Если ПустоеЗначение(СчетФактура)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(СчетФактура.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); КоллекцияОбъектов.ДатаСФ = Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры"); КоллекцияОбъектов.НомерСФ = Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры"); КоллекцияОбъектов.Поставщик = СчетФактура.Контрагент; КоллекцияОбъектов.СчетФактура = СчетФактура; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если ПустоеЗначение(СчетФактура)=0 Тогда РаспределитьГТД(); КонецЕсли; <Свойство> <Код>45 <Наименование> --> ВидДокВходящий <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>46 <Наименование> --> ДатаВходящегоДокумента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>50 <Наименование> --> НомерВходящегоДокумента <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>49 <Наименование> --> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>48 <Наименование> --> Количество <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>63 <Наименование> --> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>58 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>56 <Наименование> --> СтавкаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>59 <Наименование> --> СуммаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>60 <Наименование> --> СчетУчета <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>61 <Наименование> --> СчетУчетаНДС <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство Отключить="true"> <Код>53 <Наименование> --> ОтражениеВУСН <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>54 <Наименование> --> Поставщик <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>55 <Наименование> --> ПредъявленСФ <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСФ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>62 <Наименование> --> СчетФактура <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураПолученный"/> <Свойство> <Код>47 <Наименование> --> ДатаСФ <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСФ" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>52 <Наименование> --> НомерСФ <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="НомерСФ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>51 <Наименование> --> НомерГТД <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>57 <Наименование> --> СтранаПроисхождения <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Группа> <Код>19 <Наименование> --> Прочее <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Прочее" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидДокВходящий"); КоллекцияОбъектов.НоваяКолонка("ДатаВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("НомерВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Поставщик"); КоллекцияОбъектов.НоваяКолонка("ПредъявленСФ"); КоллекцияОбъектов.НоваяКолонка("ДатаСФ"); КоллекцияОбъектов.НоваяКолонка("НомерСФ"); КоллекцияОбъектов.НоваяКолонка("Содержание"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетЗатрат"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеЗатрат"); КоллекцияОбъектов.НоваяКолонка("Субконто1"); КоллекцияОбъектов.НоваяКолонка("Субконто2"); КоллекцияОбъектов.НоваяКолонка("Субконто3"); КоллекцияОбъектов.НоваяКолонка("СчетЗатратНУ"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ1"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ2"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ3"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетФактура"); СписокСчетовФактур = ВходящиеДанные.Получить("СписокСчетовФактур"); ВсегоСчетовФактур = СписокСчетовФактур.РазмерСписка(); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл Счет = Источник.КоррСчет; ЕстьСубконтоКонтрагентыДоговоры = 0; Для к=1 по Счет.КоличествоСубконто() Цикл ЕстьСубконтоКонтрагентыДоговоры = ЕстьСубконтоКонтрагентыДоговоры + ?(Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты,3,?(Счет.ВидСубконто(к) = ВидыСубконто.Договоры,1,0)); КонецЦикла; Если (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("10"))=0) и (Источник.КоррСчет<>СчетПоКоду("07")) и (Источник.КоррСчет<>СчетПоКоду("08.4")) и (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("41"))=0) и (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("43"))=0) и (ЕстьСубконтоКонтрагентыДоговоры <> 4 ) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидДокВходящий = Источник.КомуЗаЧто; КоллекцияОбъектов.ДатаВходящегоДокумента = Источник.ДатаС; КоллекцияОбъектов.НомерВходящегоДокумента = Источник.НомерДокумента; Для к=1 по Счет.КоличествоСубконто() цикл ВидСубконтоИсточника = Счет.ВидСубконто(к); Если (ВидСубконтоИсточника = ВидыСубконто.Подразделения) ИЛИ (ВидСубконтоИсточника = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", Источник.ПолучитьАтрибут("Субконто"+к)); КоллекцияОбъектов.ПодразделениеЗатрат = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Субконто1 = Источник.Субконто1; КоллекцияОбъектов.Субконто2 = Источник.Субконто2; КоллекцияОбъектов.Субконто3 = Источник.Субконто3; КоллекцияОбъектов.СубконтоНУ1 = Источник.Субконто1; КоллекцияОбъектов.СубконтоНУ2 = Источник.Субконто2; КоллекцияОбъектов.СубконтоНУ3 = Источник.Субконто3; КоллекцияОбъектов.Сумма = Источник.Сумма - Источник.НДС; КоллекцияОбъектов.СуммаНДС = Источник.НДС; Если Источник.НДС = 0 Тогда КоллекцияОбъектов.СтавкаНДС = "БезНДС"; Иначе //определяем ставку Ставка = Источник.НДС / (Источник.Сумма - Источник.НДС); Если Ставка>0.19 Тогда КоллекцияОбъектов.СтавкаНДС = "НДС20"; ИначеЕсли Ставка>0.17 Тогда КоллекцияОбъектов.СтавкаНДС = "НДС18"; Иначе КоллекцияОбъектов.СтавкаНДС = "НДС10"; КонецЕсли; КонецЕсли; КоллекцияОбъектов.Содержание = Строка(Источник.Субконто1); КоллекцияОбъектов.СчетЗатрат = Источник.КоррСчет; КоллекцияОбъектов.СчетЗатратНУ = Источник.КоррСчет; КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.3"); Если Источник.НДС <> 0 Тогда //получим счета-фактуры, введенные для данного авансового отчета. //если такой счет-фактура один, то будем использовать его. //если счетов-фактур несколько - то поищем счет-фактуру с нужной суммой и суммой НДС КоллекцияОбъектов.ПредъявленСФ = 1; Если ВсегоСчетовФактур = 1 Тогда СчетФактура = СписокСчетовФактур.ПолучитьЗначение(1); ИначеЕсли СписокСчетовФактур.РазмерСписка() = 0 Тогда СчетФактура = ПолучитьПустоеЗначение("Документ.СчетФактураВыданный"); ДатаСФ = ""; НомерСФ = ""; Иначе //пытаемся найти с/ф СчетФактура = ""; Для НомерСФ = 1 По СписокСчетовФактур.РазмерСписка() Цикл СФ = СписокСчетовФактур.ПолучитьЗначение(НомерСФ); Если ((СФ.НДС10 + СФ.НДС20) = Источник.НДС) и (СФ.Всего = Источник.Сумма) Тогда СчетФактура = СФ; СписокСчетовФактур.УдалитьЗначение(НомерСФ); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; Если ПустоеЗначение(СчетФактура)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(СчетФактура.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); КоллекцияОбъектов.ДатаСФ = Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры"); КоллекцияОбъектов.НомерСФ = Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры"); КоллекцияОбъектов.Поставщик = СчетФактура.Контрагент; КоллекцияОбъектов.СчетФактура = СчетФактура; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; <Свойство> <Код>20 <Наименование> --> ВидДокВходящий <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>24 <Наименование> --> НомерВходящегоДокумента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование> --> ДатаВходящегоДокумента <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>23 <Наименование> --> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство Отключить="true"> <Код>26 <Наименование> --> ОтражениеВУСН <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>28 <Наименование> --> Поставщик <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>29 <Наименование> --> ПредъявленСФ <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСФ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>25 <Наименование> --> НомерСФ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерСФ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование> --> ДатаСФ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСФ" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>30 <Наименование> --> Содержание <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>31 <Наименование> --> СтавкаНДС <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>40 <Наименование> --> СчетЗатрат <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1",ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2",ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3",ОбъектКоллекции.Субконто3); ПолучитьКодСчетаДополнительный(); КодСчета = Параметры.ПараметрыАлгоритмов.Получить("КодСчета"); Если ПустоеЗначение(КодСчета)=0 Тогда Значение = КодСчета; ИмяПКО = ""; КонецЕсли; <Свойство> <Код>27 <Наименование> --> ПодразделениеЗатрат <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>32 <Наименование> --> Субконто1 <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>33 <Наименование> --> Субконто2 <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто2); ПриВыгрузкеСубконто(); <Свойство> <Код>34 <Наименование> --> Субконто3 <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто3); ПриВыгрузкеСубконто(); <Свойство> <Код>41 <Наименование> --> СчетЗатратНУ <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатратНУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетЗатратНУ); Параметры.ПараметрыАлгоритмов.Установить("Субконто1",ОбъектКоллекции.СубконтоНУ1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2",ОбъектКоллекции.СубконтоНУ2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3",ОбъектКоллекции.СубконтоНУ3); ПолучитьКодСчетаДополнительный(); КодСчета = Параметры.ПараметрыАлгоритмов.Получить("КодСчета"); Если ПустоеЗначение(КодСчета)=0 Тогда Значение = КодСчета; ИмяПКО = ""; КонецЕсли; <Свойство> <Код>35 <Наименование> --> СубконтоНУ1 <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатратНУ); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоНУ1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоНУ2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоНУ3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоНУ1); ПриВыгрузкеСубконто(); <Свойство> <Код>36 <Наименование> --> СубконтоНУ2 <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатратНУ); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоНУ1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоНУ2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоНУ3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоНУ2); ПриВыгрузкеСубконто(); <Свойство> <Код>37 <Наименование> --> СубконтоНУ3 <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатратНУ); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоНУ1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоНУ2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоНУ3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоНУ3); ПриВыгрузкеСубконто(); <Свойство> <Код>38 <Наименование> --> Сумма <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> СуммаНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> СчетУчетаНДС <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>43 <Наименование> --> СчетФактура <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураПолученный"/> <КодПравилаКонвертации>СчетФактураПолученный <Группа> <Код>65 <Наименование> --> ОплатаПоставщикам <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ОплатаПоставщикам" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидДокВходящий"); КоллекцияОбъектов.НоваяКолонка("ДатаВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("НомерВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("Контрагент"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Содержание"); КоллекцияОбъектов.НоваяКолонка("СпособПогашенияЗадолженности"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетовПоАвансам"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Счет = Источник.КоррСчет; ЕстьСубконтоКонтрагентыДоговоры = 0; Для к=1 по Счет.КоличествоСубконто() Цикл ЕстьСубконтоКонтрагентыДоговоры = ЕстьСубконтоКонтрагентыДоговоры + ?(Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты,3,?(Счет.ВидСубконто(к) = ВидыСубконто.Договоры,1,0)); КонецЦикла; Если ЕстьСубконтоКонтрагентыДоговоры = 4 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидДокВходящий = Источник.КомуЗаЧто; КоллекцияОбъектов.ДатаВходящегоДокумента = Источник.ДатаС; КоллекцияОбъектов.НомерВходящегоДокумента = Источник.НомерДокумента; Для к=1 по Счет.КоличествоСубконто() цикл ВидСубконтоИсточника = Счет.ВидСубконто(к); Если (ВидСубконтоИсточника = ВидыСубконто.Контрагенты) Тогда КоллекцияОбъектов.Контрагент = Источник.ПолучитьАтрибут("Субконто"+к); //Если к = 1 тогда // КоллекцияОбъектов.Номенклатура = Источник.Субконто1; //ИначеЕсли к=2 тогда // КоллекцияОбъектов.Номенклатура = Источник.Субконто2; //ИначеЕсли к=3 тогда // КоллекцияОбъектов.Номенклатура = Источник.Субконто3; //КонецЕсли; ИначеЕсли (ВидСубконтоИсточника = ВидыСубконто.Договоры) Тогда КоллекцияОбъектов.ДоговорКонтрагента = Источник.ПолучитьАтрибут("Субконто"+к); КонецЕсли; КонецЦикла; КоллекцияОбъектов.КурсВзаиморасчетов = ?(ПустоеЗначение(Источник.Валюта)=1,1,Источник.Валюта.Курс.Получить(Источник.ДатаДок)); Кратность = ?(ПустоеЗначение(Источник.Валюта)=1,1,Источник.Валюта.Кратность.Получить(Источник.ДатаДок)); Кратность = ?(Кратность=0,1,Кратность); КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.СпособПогашенияЗадолженности = "Автоматически"; КоллекцияОбъектов.Сумма = Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; //по счету определяем пару расчетных счетов СтрокаСчета = ""; Если Параметры.ТаблицаСчетовРасчета.НайтиЗначение(Счет,СтрокаСчета,"")=1 Тогда КоллекцияОбъектов.СчетУчетаРасчетовПоАвансам = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"АвансовыйСчет"); КоллекцияОбъектов.СчетУчетаРасчетовСКонтрагентом = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"РасчетныйСчет"); Иначе КоллекцияОбъектов.СчетУчетаРасчетовПоАвансам = Счет; КоллекцияОбъектов.СчетУчетаРасчетовСКонтрагентом = Счет; КонецЕсли; КонецЕсли; КонецЦикла; РаспределитьГТД(); <Свойство> <Код>66 <Наименование> --> ВидДокВходящий <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>67 <Наименование> --> ДатаВходящегоДокумента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>72 <Наименование> --> НомерВходящегоДокумента <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>69 <Наименование> --> Контрагент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>68 <Наименование> --> ДоговорКонтрагента <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ДоговорКонтрагента)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); ОпределитьВидДоговора(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>70 <Наименование> --> КратностьВзаиморасчетов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>71 <Наименование> --> КурсВзаиморасчетов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>73 <Наименование> --> Сделка <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>74 <Наименование> --> Содержание <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>75 <Наименование> --> СпособПогашенияЗадолженности <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <Свойство> <Код>76 <Наименование> --> Сумма <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>77 <Наименование> --> СуммаВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>78 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>79 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>80 <Наименование> --> Проведен <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ОтпускМатериаловНаСторону_Продажа <Наименование>Документ: Отгрузка материалов на сторону <Порядок>1150 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидОтпуска <> 0 Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ОтпускМатериаловНаСторону <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>15 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>46 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>12 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство Отключить="true"> <Код>7 <Наименование> --> БанковскийСчетОрганизации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>9 <Наименование> --> ВидОперации <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияТоваров"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство Отключить="true"> <Код>10 <Наименование> --> Грузоотправитель <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство Отключить="true"> <Код>11 <Наименование> --> Грузополучатель <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство> <Код>13 <Наименование> --> КратностьВзаиморасчетов <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>14 <Наименование> --> КурсВзаиморасчетов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>16 <Наименование> --> ПодразделениеОрганизации <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>17 <Наименование>МестоХранения --> Склад <Порядок>800 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>18 <Наименование> --> СпособЗачетаАвансов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли <Свойство> <Код>19 <Наименование> --> СуммаВключаетНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>20 <Наименование> --> СуммаДокумента <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство Отключить="true"> <Код>21 <Наименование> --> СчетУчетаДоходовПоТаре <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаДоходовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>22 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетАвансовПолученных"); <Свойство> <Код>23 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Свойство Отключить="true"> <Код>24 <Наименование> --> ТипЦен <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>25 <Наименование> --> УчитыватьНДС <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>26 <Наименование> --> Товары <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетДоходов"); КоллекцияОбъектов.НоваяКолонка("Субконто"); КоллекцияОбъектов.НоваяКолонка("СчетРасходов"); КоллекцияОбъектов.НоваяКолонка("ПереданныеСчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДСПоРеализации"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Материал; КоллекцияОбъектов.Количество = Источник.КоличествоОтпущено; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; СтавкаНДС = глСтавкаНалога(Источник, "НДС",); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.СчетДоходов = СчетПоКоду("91.1"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("91.2"); КоллекцияОбъектов.Субконто = Источник.СтатьяПрочихДоходовИРасходов; КоллекцияОбъектов.СчетУчета = Источник.Материал.СубСчет10; КоллекцияОбъектов.СчетУчетаНДСПоРеализации = СчетПоКоду("91.2"); КонецЦикла; <Свойство Отключить="true"> <Код>27 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>28 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>34 <Наименование> --> ПереданныеСчетУчета <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПереданныеСчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>35 <Наименование> --> Себестоимость <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> Номенклатура <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>29 <Наименование> --> Количество <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> Коэффициент <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>45 <Наименование> --> Цена <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> Сумма <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> СтавкаНДС <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>40 <Наименование> --> СуммаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> СчетУчета <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>41 <Наименование> --> СчетДоходов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>38 <Наименование> --> Субконто <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы <Свойство> <Код>42 <Наименование> --> СчетРасходов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>44 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>33 <Наименование> --> НомерГТД <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>37 <Наименование> --> СтранаПроисхождения <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <Значения/> <Правило> <Код>ОтпускМатериаловНаСторону_ВПереработку <Наименование>Документ: Отгрузка материалов на сторону <Порядок>1200 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидОтпуска <> 1 Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ОтпускМатериаловНаСторону <Приемник>ДокументСсылка.ПередачаТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>10 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>18 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>5 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>//всегда рубли Значение = Параметры.Рубли; <Свойство> <Код>6 <Наименование> --> ВидОперации <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПередачаТоваров"/> <ПередВыгрузкой>Значение = "ВПереработку"; <Свойство Отключить="true"> <Код>7 <Наименование> --> Грузоотправитель <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Грузоотправитель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство Отключить="true"> <Код>8 <Наименование> --> Грузополучатель <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Грузополучатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство Отключить="true"> <Код>11 <Наименование> --> ПодразделениеОрганизации <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>12 <Наименование>МестоХранения --> Склад <Порядок>650 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>13 <Наименование>ТабличнаяЧасть --> Товары <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>Материал --> Номенклатура <Порядок>50 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>14 <Наименование>КоличествоОтпущено --> Количество <Порядок>100 <Источник Имя="КоличествоОтпущено" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> СчетУчета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = ОбъектКоллекции.Материал.СубСчет10; <Свойство> <Код>16 <Наименование> --> СчетПередачи <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетПередачи" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.7"); <Значения/> <Правило> <Код>ОтпускМатериаловНаСторону_Возврат <Наименование>Документ: Отгрузка материалов на сторону <Порядок>1250 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидОтпуска <> 2 Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ОтпускМатериаловНаСторону <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>15 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>8 <Наименование> --> ВидОперации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровПоставщику"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>11 <Наименование>Договор --> ДоговорКонтрагента <Порядок>400 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>7 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>12 <Наименование> --> КратностьВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>13 <Наименование> --> КурсВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>6 <Наименование>ПоставщикуВыставляетсяСчетФактураНаВозврат --> ПоставщикуВыставляетсяСчетФактураНаВозврат <Порядок>600 <Источник Имя="ПоставщикуВыставляетсяСчетФактураНаВозврат" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПоставщикуВыставляетсяСчетФактураНаВозврат" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>14 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>650 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование> --> СуммаВключаетНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство Отключить="true"> <Код>16 <Наименование> --> ПодразделениеОрганизации <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>17 <Наименование>ДокументПоступления --> Сделка <Порядок>800 <Источник Имя="ДокументПоступления" Вид="Реквизит" Тип="ДокументСсылка.ПоступлениеМатериалов"/> <Приемник Имя="Сделка" Вид="Реквизит" Тип="ДокументСсылка.ПоступлениеТоваровУслуг"/> <КодПравилаКонвертации>ПоступлениеМатериалов_ПТУ <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументПоступления)=0 Тогда Если Источник.ДокументПоступления.ДатаДок<Параметры.ДатаВводаОстатков Тогда Отказ = 1; ИначеЕсли Источник.ДокументПоступления.ВидПоступления > 0 тогда ИмяПКО = "ПоступлениеМатериалов_ИзПереработки"; КонецЕсли; КонецЕсли; <Свойство> <Код>18 <Наименование>МестоХранения --> Склад <Порядок>850 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>21 <Наименование> --> СуммаДокумента <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>22 <Наименование> --> СчетУчетаДоходов <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.1"); <Свойство> <Код>23 <Наименование> --> СчетУчетаРасходов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.2"); <Свойство> <Код>24 <Наименование> --> СчетУчетаРасчетовПоПретензиям <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоПретензиям" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовПоПретензиям"); <Свойство> <Код>19 <Наименование> --> СтатьяДоходовИРасходов <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходовИРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы_Предопределенные <ПередВыгрузкой>Значение = "РазницыСтоимостиВозвратаИФактическойСтоимостиТоваров"; <Свойство Отключить="true"> <Код>25 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>26 <Наименование> --> ТипЦен <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>27 <Наименование> --> УчитыватьНДС <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>28 <Наименование> --> Товары <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДС"); КоллекцияОбъектов.НоваяКолонка("Себестоимость"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл СтавкаНДС = глСтавкаНалога(Источник, "НДС",); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Материал; КоллекцияОбъектов.Количество = Источник.КоличествоОтпущено; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.Сумма; КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.СчетУчета = Источник.Материал.СубСчет10; КоллекцияОбъектов.СчетУчетаНДС = СчетПоКоду("19.3"); КоллекцияОбъектов.Себестоимость = 0; КонецЦикла; <Свойство Отключить="true"> <Код>29 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>32 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>31 <Наименование> --> Количество <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> Коэффициент <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>45 <Наименование> --> Цена <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>40 <Наименование> --> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СтавкаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>42 <Наименование> --> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> СчетУчета <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>44 <Наименование> --> СчетУчетаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>36 <Наименование> --> Себестоимость <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>46 <Наименование> --> ЦенаВРознице <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>41 <Наименование> --> СуммаВРознице <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>38 <Наименование> --> СтавкаНДСВРознице <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>35 <Наименование> --> НомерГТД <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>39 <Наименование> --> СтранаПроисхождения <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Значения/> <Правило> <Код>ОказаниеУслуг_Продажа <Наименование>Документ: Оказание услуг <Порядок>1300 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ТипУслуги <> 1) и (Источник.ТипУслуги <> 3) Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>9 <Наименование> --> ВидОперации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияТоваров"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>10 <Наименование>Договор --> ДоговорКонтрагента <Порядок>400 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>450 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>11 <Наименование> --> КратностьВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>12 <Наименование> --> КурсВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>15 <Наименование> --> СпособЗачетаАвансов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>17 <Наименование> --> СуммаВключаетНДС <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>18 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство Отключить="true"> <Код>16 <Наименование> --> СтатьяДоходовИРасходовПоТаре <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходовИРасходовПоТаре" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> СчетУчетаДоходовПоТаре <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаДоходовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>22 <Наименование> --> СчетУчетаРасчетовПоТаре <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> СчетУчетаРасходовПоТаре <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасходовПоТаре" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>21 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетАвансовПолученных"); <Свойство> <Код>23 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Свойство> <Код>24 <Наименование> --> УчитыватьНДС <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>25 <Наименование>ТабличнаяЧасть --> Услуги <Порядок>1200 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>27 <Наименование>Услуга --> Номенклатура <Порядок>50 <Источник Имя="Услуга" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство Отключить="true"> <Код>28 <Наименование> --> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>26 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование>Цена --> Цена <Порядок>200 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>СтавкаНДС = глСтавкаНалога(Источник, "НДС", ОбъектКоллекции.Услуга); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>32 <Наименование>НДС --> СуммаНДС <Порядок>350 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> СчетДоходов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.ТипУслуги = 3 Тогда Значение = СчетПоКоду("91.1"); Иначе Если ОбъектКоллекции.Услуга.ВидНоменклатуры.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда Значение = СчетПоКоду("90.1.2"); Иначе Значение = СчетПоКоду("90.1.1"); КонецЕсли; КонецЕсли; <Свойство> <Код>30 <Наименование> --> Субконто <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <ПередВыгрузкой>Если Источник.ТипУслуги = 3 Тогда Значение = Источник.СтатьяПрочихДоходовИРасходов; ИмяПКО = "ПрочиеДоходыИРасходы"; Иначе Значение = ОбъектКоллекции.Услуга.ВидНоменклатуры; ИмяПКО = "НоменклатурныеГруппы"; КонецЕсли; <Свойство> <Код>34 <Наименование> --> СчетРасходов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.ТипУслуги = 3 Тогда Значение = СчетПоКоду("91.2"); Иначе Если ОбъектКоллекции.Услуга.ВидНоменклатуры.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда Значение = СчетПоКоду("90.2.2"); Иначе Значение = СчетПоКоду("90.2.1"); КонецЕсли; КонецЕсли; <Свойство> <Код>35 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.ТипУслуги = 3 Тогда Значение = СчетПоКоду("91.2"); Иначе Значение = СчетПоКоду("90.3"); КонецЕсли; <Значения/> <Правило> <Код>ОказаниеУслуг_Комитент <Наименование>Документ: Оказание услуг <Порядок>1350 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ТипУслуги <> 2) Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Если ЗначениеЗаполнено(Объект.СчетДоходов) Тогда мСведенияОСчетах = Новый Соответствие; СведенияОСчете = БухгалтерскийУчет.ПолучитьСведенияОСчете(мСведенияОСчетах, Объект.СчетДоходов); Если СведенияОСчете.КоличествоСубконто > 0 Тогда Объект.Субконто = СведенияОСчете.ТипСубконто1.ПривестиЗначение(Объект.Субконто); КонецЕсли; КонецЕсли; <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.ОтчетКомитентуОПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>12 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>31 <Наименование> --> ВидОперации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийОтчетКомитентуОПродажах"/> <ПередВыгрузкой>Значение = "ОтчетОПродажах"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>Договор --> ДоговорКонтрагента <Порядок>400 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>450 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>10 <Наименование> --> КратностьВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование> --> КурсВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>13 <Наименование> --> ПодразделениеОрганизации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>15 <Наименование> --> СпособРасчетаКомиссионногоВознаграждения <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаКомиссионногоВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <ПередВыгрузкой>Значение = "НеРассчитывается"; <Свойство> <Код>14 <Наименование> --> ПроцентКомиссионногоВознаграждения <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентКомиссионногоВознаграждения" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>16 <Наименование> --> СтавкаНДСВознаграждения <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если ПустоеЗначение(Источник.Услуга)=0 Тогда СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Услуга); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Прервать; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование> --> СуммаВключаетНДС <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>19 <Наименование> --> СуммаВознаграждения <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВознаграждения" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>20 <Наименование> --> СуммаДокумента <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>21 <Наименование> --> СчетДоходов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("90.1.1"); <Свойство> <Код>17 <Наименование> --> Субконто <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <ПередВыгрузкой>Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если ПустоеЗначение(Источник.Услуга)=0 Тогда Если ПустоеЗначение(Источник.Услуга.ВидНоменклатуры)=0 Тогда Значение = Источник.Услуга.ВидНоменклатуры; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>22 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("90.3"); <Свойство> <Код>23 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Если Источник.ЗачетТребований = 1 Тогда Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСКомитентом"); Иначе Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); КонецЕсли; <Свойство> <Код>24 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Свойство> <Код>25 <Наименование>ЗачетТребований --> УдержатьВознаграждение <Порядок>1250 <Источник Имя="ЗачетТребований" Вид="Реквизит" Тип="Число"/> <Приемник Имя="УдержатьВознаграждение" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>26 <Наименование> --> УслугаПоВознаграждению <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="УслугаПоВознаграждению" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если ПустоеЗначение(Источник.Услуга)=0 Тогда Значение = Источник.Услуга; Прервать; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>27 <Наименование> --> УчитыватьНДС <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>28 <Наименование> --> Товары <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("СуммаВознаграждения"); КоллекцияОбъектов.НоваяКолонка("СуммаНДСВознаграждения"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.СуммаВознаграждения = Источник.Сумма; КоллекцияОбъектов.СуммаНДСВознаграждения = Источник.НДС; КонецЦикла; <Свойство> <Код>29 <Наименование> --> СуммаВознаграждения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> СуммаНДСВознаграждения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДСВознаграждения" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>Взаимозачет <Наименование>Документ: Корректировка задолженности <Порядок>1400 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Источник.ВидКорректировки = 0 Тогда ВходящиеДанные.Установить("ВидОперации","ПроведениеВзаимозачета"); Если Источник.ИспользоватьВспомогательныйСчет = 1 Тогда ВходящиеДанные.Установить("СчетДт",Источник.СчетСписания); ВходящиеДанные.Установить("СчетКт",ПолучитьПустоеЗначение()); Иначе ВходящиеДанные.Установить("СчетДт",ПолучитьПустоеЗначение()); ВходящиеДанные.Установить("СчетКт",ПолучитьПустоеЗначение()); КонецЕсли; ИначеЕсли (Источник.ВидКорректировки = 1) или (Источник.ВидКорректировки = 2) Тогда Счет = Источник.СчетСписания; //проверим, есть ли у счета субконто контрагент и договор. Если есть - выбираем перенос задолженности, если нет - то списание СубконтоЕсть = 0; Если ПустоеЗначение(Счет)=0 Тогда Для к=1 по Счет.КоличествоСубконто() Цикл СубконтоЕсть = СубконтоЕсть + ?(Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты,3,?(Счет.ВидСубконто(к) = ВидыСубконто.Договоры,1,0)); КонецЦикла; КонецЕсли; Если СубконтоЕсть = 4 Тогда ВходящиеДанные.Установить("ВидОперации","ПереносЗадолженности"); Иначе ВходящиеДанные.Установить("ВидОперации","СписаниеЗадолженности"); КонецЕсли; ВходящиеДанные.Установить("СчетДт",Источник.СчетСписания); ВходящиеДанные.Установить("СчетКт",Источник.СчетСписания); ИначеЕсли (Источник.ВидКорректировки = 3) или (Источник.ВидКорректировки = 4) Тогда ВходящиеДанные.Установить("ВидОперации","СписаниеЗадолженности"); ВходящиеДанные.Установить("СчетДт",Источник.СчетСписания); ВходящиеДанные.Установить("СчетКт",Источник.СчетСписания); КонецЕсли; <ПослеЗагрузки>//обрабатываем субконто дебета Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетДт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоДт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); //обрабатываем субконто кредита Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетКт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоКт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <Источник>ДокументСсылка.Взаимозачет <Приемник>ДокументСсылка.КорректировкаДолга <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>7 <Наименование> --> ВидОперации <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийКорректировкаДолга"/> <Свойство> <Код>6 <Наименование> --> ВалютаДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>2 <Наименование>ИспользоватьВспомогательныйСчет --> ИспользоватьВспомогательныйСчет <Порядок>400 <Источник Имя="ИспользоватьВспомогательныйСчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ИспользоватьВспомогательныйСчет" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>9 <Наименование> --> КонтрагентДебитор <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КонтрагентДебитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Если (Источник.ВидКорректировки = 1) или (Источник.ВидКорректировки = 3) или (Источник.ВидКорректировки = 0) Тогда Значение = Источник.Дебитор; Иначе Значение = Источник.Кредитор; КонецЕсли; <Свойство> <Код>10 <Наименование> --> КонтрагентКредитор <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КонтрагентКредитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ПроведениеВзаимозачета") Тогда Значение = Источник.Кредитор; ИначеЕсли (ВидОперации = "ПереносЗадолженности") Тогда //контрагента получаем из субконто счета Счет = Источник.СчетСписания; Для к=1 по 3 Цикл Если Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+Строка(к)); Прервать; КонецЕсли; КонецЦикла; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>8 <Наименование> --> ДоговорКонтрагента <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ПереносЗадолженности") Тогда //договор получаем из субконто счета Счет = Источник.СчетСписания; Для к=1 по 3 Цикл Если Счет.ВидСубконто(к) = ВидыСубконто.Договоры Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+Строка(к)); Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Значение); Параметры.ПараметрыАлгоритмов.Установить("Счет",Счет); ОпределитьВидДоговора(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>11 <Наименование> --> КратностьДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>12 <Наименование> --> КурсДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>23 <Наименование> --> СчетДт <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетДт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>15 <Наименование>Субконто1 --> СубконтоДт1 <Порядок>800 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="СубконтоДт1" Вид="Реквизит"/> <ПередВыгрузкой>Счет = ВходящиеДанные.Получить("СчетДт"); Если (ПустоеЗначение(Счет)=0) Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>16 <Наименование>Субконто2 --> СубконтоДт2 <Порядок>850 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="СубконтоДт2" Вид="Реквизит"/> <ПередВыгрузкой>Счет = ВходящиеДанные.Получить("СчетДт"); Если (ПустоеЗначение(Счет)=0) Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>17 <Наименование>Субконто3 --> СубконтоДт3 <Порядок>900 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="СубконтоДт3" Вид="Реквизит"/> <ПередВыгрузкой>Счет = ВходящиеДанные.Получить("СчетДт"); Если (ПустоеЗначение(Счет)=0) Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование> --> СчетКт <Порядок>950 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетКт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>18 <Наименование>Субконто1 --> СубконтоКт1 <Порядок>1000 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <ПередВыгрузкой>Счет = ВходящиеДанные.Получить("СчетКт"); Если (ПустоеЗначение(Счет)=0) Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>19 <Наименование>Субконто2 --> СубконтоКт2 <Порядок>1050 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <ПередВыгрузкой>Счет = ВходящиеДанные.Получить("СчетКт"); Если (ПустоеЗначение(Счет)=0) Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>20 <Наименование>Субконто3 --> СубконтоКт3 <Порядок>1100 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="СубконтоКт3" Вид="Реквизит"/> <ПередВыгрузкой>Счет = ВходящиеДанные.Получить("СчетКт"); Если (ПустоеЗначение(Счет)=0) Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование> --> СуммаДтЗадолженности <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДтЗадолженности" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Значение = Значение + Источник.СуммаДеб; КонецЦикла; <Свойство> <Код>22 <Наименование> --> СуммаКтЗадолженности <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКтЗадолженности" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Значение = Значение + Источник.СуммаКред; КонецЦикла; <Группа> <Код>25 <Наименование>ТабличнаяЧасть --> СуммыДолга <Порядок>1250 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="СуммыДолга" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидЗадолженности"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетов"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаНУ"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Курс = 1; Кратность = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Курс = Валюта.Курс.Получить(Источник.ДатаДок); КонецЕсли; КонецЕсли; Если Источник.СуммаДеб <> 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидЗадолженности = "Дебиторская"; КоллекцияОбъектов.СчетУчетаРасчетов = Источник.Счет; КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Курс; КоллекцияОбъектов.Сумма = Источник.СуммаДеб; КоллекцияОбъектов.СуммаВзаиморасчетов = ?(Курс = 0, 0, Источник.СуммаДеб * Кратность / Курс ); КоллекцияОбъектов.СуммаНУ = Источник.СуммаНУ; КонецЕсли; Если Источник.СуммаКред <> 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидЗадолженности = "Кредиторская"; КоллекцияОбъектов.СчетУчетаРасчетов = Источник.Счет; КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Курс; КоллекцияОбъектов.Сумма = Источник.СуммаКред; КоллекцияОбъектов.СуммаВзаиморасчетов = ?(Курс = 0, 0, Источник.СуммаКред * Кратность / Курс ); КоллекцияОбъектов.СуммаНУ = Источник.СуммаНУ; КонецЕсли; КонецЦикла; <Свойство> <Код>26 <Наименование> --> ВидЗадолженности <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЗадолженности"/> <Свойство> <Код>34 <Наименование> --> СчетУчетаРасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>27 <Наименование> --> ДоговорКонтрагента <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетов); ОпределитьВидДоговора(); <Свойство> <Код>28 <Наименование> --> КратностьВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> КурсВзаиморасчетов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> Сделка <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>31 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> СуммаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> СуммаНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ЗачетАвансаПокупателя <Наименование>Документ: Зачет аванса от покупателя <Порядок>1450 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>//обрабатываем субконто дебета Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетДт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоДт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); //обрабатываем субконто кредита Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетКт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоКт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <Источник>ДокументСсылка.ЗачетАвансаПокупателя <Приемник>ДокументСсылка.КорректировкаДолга <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>6 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийКорректировкаДолга"/> <ПередВыгрузкой>Значение = "ПроведениеВзаимозачета"; <Свойство> <Код>5 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>11 <Наименование> --> КратностьДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>12 <Наименование> --> КурсДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>8 <Наименование> --> ИспользоватьВспомогательныйСчет <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьВспомогательныйСчет" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>9 <Наименование>Контрагент --> КонтрагентДебитор <Порядок>600 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="КонтрагентДебитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>10 <Наименование>Контрагент --> КонтрагентКредитор <Порядок>650 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="КонтрагентКредитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>15 <Наименование> --> СуммаДтЗадолженности <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДтЗадолженности" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма"); <Свойство> <Код>16 <Наименование> --> СуммаКтЗадолженности <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКтЗадолженности" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма"); <Группа> <Код>17 <Наименование> --> СуммыДолга <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммыДолга" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидЗадолженности"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетов"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаНУ"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл СчетРасчетовСПокупателем = СчетПоКоду("62.1"); СчетАвансовПолученных = СчетПоКоду("62.2"); Курс = 1; Кратность = 1; Если Источник.Договор.Выбран() = 1 Тогда Если Источник.Договор.ОплатаДоговора = 2 Тогда // 1 - врублях, 2 - в валюте Валюта = Источник.Договор.ВалютаДоговора; Курс = Валюта.Курс.Получить(Источник.ДатаДок); Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); СчетРасчетовСПокупателем = СчетПоКоду("62.11"); СчетАвансовПолученных = СчетПоКоду("62.22"); КонецЕсли; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидЗадолженности = "Дебиторская"; КоллекцияОбъектов.СчетУчетаРасчетов = СчетРасчетовСПокупателем; КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Курс; КоллекцияОбъектов.Сумма = ?(Кратность = 0, 0, Источник.Сумма * Курс / Кратность ); КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; КоллекцияОбъектов.СуммаНУ = 0; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидЗадолженности = "Кредиторская"; КоллекцияОбъектов.СчетУчетаРасчетов = СчетАвансовПолученных; КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Курс; КоллекцияОбъектов.Сумма = ?(Кратность = 0, 0, Источник.Сумма * Курс / Кратность ); КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; КоллекцияОбъектов.СуммаНУ = 0; КонецЦикла; <Свойство> <Код>18 <Наименование> --> ВидЗадолженности <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЗадолженности"/> <Свойство> <Код>26 <Наименование> --> СчетУчетаРасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>19 <Наименование> --> ДоговорКонтрагента <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетов); ОпределитьВидДоговора(); <Свойство> <Код>20 <Наименование> --> КратностьВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование> --> КурсВзаиморасчетов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>22 <Наименование> --> Сделка <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>23 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> СуммаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СуммаНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ЗачетАвансаПоставщику <Наименование>Документ: Зачет аванса поставщику <Порядок>1500 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>//обрабатываем субконто дебета Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетДт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоДт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); //обрабатываем субконто кредита Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетКт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоКт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <Источник>ДокументСсылка.ЗачетАвансаПоставщику <Приемник>ДокументСсылка.КорректировкаДолга <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>6 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийКорректировкаДолга"/> <ПередВыгрузкой>Значение = "ПроведениеВзаимозачета"; <Свойство> <Код>5 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>11 <Наименование> --> КратностьДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>12 <Наименование> --> КурсДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>8 <Наименование> --> ИспользоватьВспомогательныйСчет <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьВспомогательныйСчет" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>9 <Наименование>Контрагент --> КонтрагентДебитор <Порядок>600 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="КонтрагентДебитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>10 <Наименование>Контрагент --> КонтрагентКредитор <Порядок>650 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="КонтрагентКредитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>21 <Наименование> --> СуммаДтЗадолженности <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДтЗадолженности" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма"); <Свойство> <Код>22 <Наименование> --> СуммаКтЗадолженности <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКтЗадолженности" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма"); <Группа> <Код>25 <Наименование> --> СуммыДолга <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммыДолга" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидЗадолженности"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетов"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаНУ"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл СчетРасчетовСПоставщиком = СчетПоКоду("60.1"); СчетАвансовВыданных = СчетПоКоду("60.2"); Курс = 1; Кратность = 1; Если Источник.Договор.Выбран() = 1 Тогда Если Источник.Договор.ОплатаДоговора = 2 Тогда // 1 - врублях, 2 - в валюте Валюта = Источник.Договор.ВалютаДоговора; Курс = Валюта.Курс.Получить(Источник.ДатаДок); Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); СчетРасчетовСПоставщиком = СчетПоКоду("60.11"); СчетАвансовВыданных = СчетПоКоду("60.22"); КонецЕсли; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидЗадолженности = "Кредиторская"; КоллекцияОбъектов.СчетУчетаРасчетов = СчетРасчетовСПоставщиком; КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Курс; КоллекцияОбъектов.Сумма = ?(Кратность = 0, 0, Источник.Сумма * Курс / Кратность ); КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; КоллекцияОбъектов.СуммаНУ = 0; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидЗадолженности = "Дебиторская"; КоллекцияОбъектов.СчетУчетаРасчетов = СчетАвансовВыданных; КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Курс; КоллекцияОбъектов.Сумма = ?(Кратность = 0, 0, Источник.Сумма * Курс / Кратность ); КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; КоллекцияОбъектов.СуммаНУ = 0; КонецЦикла; <Свойство> <Код>26 <Наименование> --> ВидЗадолженности <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЗадолженности"/> <Свойство> <Код>27 <Наименование> --> ДоговорКонтрагента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетов); ОпределитьВидДоговора(); <Свойство> <Код>34 <Наименование> --> СчетУчетаРасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>28 <Наименование> --> КратностьВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> КурсВзаиморасчетов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> Сделка <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>31 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> СуммаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> СуммаНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>РасходныйОрдер <Наименование>Документ: Расходный кассовый ордер <Порядок>1550 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если (Источник.ФормироватьПроводки = 0) и (ПустоеЗначение(ВходящиеДанные.Получить("ЗарплатнаяВедомость"))=1) Тогда //мы не должны выгружать РКО, которые не формируют проводки и относятся к выплате ЗП Если Источник.КоррСчет = СчетПоКоду("70") Тогда Отказ = 1; КонецЕсли; КонецЕсли; ВидОперации = "ПрочийРасход"; Если Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("60"))=1 Тогда ВидОперации = "ОплатаПоставщику"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("62"))=1 Тогда ВидОперации = "ВозвратПокупателю"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("71"))=1 Тогда ВидОперации = "ВыдачаПодотчетномуЛицу"; ИначеЕсли Источник.КоррСчет = СчетПоКоду("70") Тогда Если Источник.ФормироватьПроводки = 1 Тогда ВидОперации = "ВыплатаЗаработнойПлатыРаботнику"; Иначе ВидОперации = "ВыплатаЗаработнойПлатыПоВедомостям"; КонецЕсли; ИначеЕсли (Источник.КоррСчет = СчетПоКоду("51")) или (Источник.КоррСчет = СчетПоКоду("52")) Тогда ВидОперации = "ВзносНаличнымиВБанк"; ИначеЕсли (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("66"))=1) или (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("67"))=1) Тогда ВидОперации = "РасчетыПоКредитамИЗаймам"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("57"))=1 Тогда ВидОперации = "Инкассация"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("76.1"))=1 Тогда ВидОперации = "ПрочийРасход"; ИначеЕсли (Источник.КоррСчет = СчетПоКоду("76.5")) или (Источник.КоррСчет = СчетПоКоду("76.6")) или (Источник.КоррСчет = СчетПоКоду("76.55")) Тогда Если ПустоеЗначение(Источник.ДвижениеДенежныхСредств)=0 Тогда Если (Источник.ДвижениеДенежныхСредств.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоОбычнымВидамДеятельности) или (Источник.ДвижениеДенежныхСредств.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоПрочимОперациям) Тогда ВидОперации = "ВозвратПокупателю"; ИначеЕсли Источник.ДвижениеДенежныхСредств.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеТоваровПродукцииРаботИУслуг Тогда ВидОперации = "ОплатаПоставщику"; КонецЕсли; КонецЕсли; КонецЕсли; ВходящиеДанные.Установить("ВидОперации",ВидОперации); <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетУчетаРасчетовСКонтрагентом"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоДт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); //***************************************************** //устанавливаем нужный вид поля контрагент ИмяСправочника = "Контрагенты"; ИмяРасчетногоДокумента = "АвансовыйОтчет"; Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыдачаПодотчетномуЛицу ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыплатаЗаработнойПлатыРаботнику Тогда ИмяСправочника = "ФизическиеЛица"; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ПрочийРасход Тогда // Прочее оприходование денежных средств пока не реализовано. КонецЕсли; Если ТипЗнч(Объект.Контрагент) <> Тип("СправочникСсылка." + ИмяСправочника) Тогда Объект.Контрагент = Справочники[ИмяСправочника].ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.РасходныйОрдер <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>15 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>5 <Наименование>НомерЧекаККМ --> НомерЧекаККМ <Порядок>300 <Источник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ВидОперации <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <Свойство> <Код>1 <Наименование>Выдать --> Выдать <Порядок>400 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПоДокументу --> ПоДокументу <Порядок>450 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Основание --> Основание <Порядок>500 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>Приложение --> Приложение <Порядок>550 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> ВалютаДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если Источник.Валютный = 2 Тогда Значение = Источник.Валюта; Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>25 <Наименование> --> СчетКасса <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКасса" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.Валютный = 2 Тогда Значение = СчетПоКоду("50.11"); Иначе Значение = СчетПоКоду("50.1"); КонецЕсли; <Свойство> <Код>20 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>700 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>13 <Наименование>ДокументПоставки --> ДокументОснование <Порядок>750 <Источник Имя="ДокументПоставки" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументПоставки)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник.ДокументПоставки); ОпределитьПКОДляДокумента(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>14 <Наименование> --> Контрагент <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ОплатаПоставщику") или (ВидОперации = "ВозвратПокупателю") или (ВидОперации = "РасчетыПоКредитамИЗаймам") Тогда ВидСубконто = ВидыСубконто.Контрагенты; ИмяПКО = "Контрагенты"; ИначеЕсли (ВидОперации = "ВыдачаПодотчетномуЛицу") или (ВидОперации = "ВыплатаЗаработнойПлатыРаботнику") Тогда ВидСубконто = ВидыСубконто.Сотрудники; ИмяПКО = "ФизическиеЛица"; Иначе Отказ = 1; КонецЕсли; Если Отказ <> 1 Тогда //ищем нужное субконто Счет = Источник.КоррСчет; Если ПустоеЗначение(Счет)=0 Тогда Для НомерСубконто = 1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(НомерСубконто) = ВидСубконто Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование> --> ДоговорКонтрагента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ОплатаПоставщику") или (ВидОперации = "ВозвратПокупателю") или (ВидОперации = "РасчетыПоКредитамИЗаймам") Тогда Счет = Источник.КоррСчет; Если ПустоеЗначение(Счет)=0 Тогда Для НомерСубконто = 1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(НомерСубконто) = ВидыСубконто.Договоры Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>16 <Наименование> --> ПлатежнаяВедомость <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ПлатежнаяВедомость" Вид="Реквизит" Тип="ДокументСсылка.ЗарплатаКВыплатеОрганизаций"/> <КодПравилаКонвертации>ЗарплатаКВыплатеОрганизаций <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации = "ВыплатаЗаработнойПлатыРаботнику" Тогда Значение = Источник; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>18 <Наименование> --> ПодразделениеОрганизации <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>19 <Наименование> --> СтавкаНДС <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Значение = "БезНДС"; Если ПустоеЗначение(Источник.ДокументПоставки)=0 Тогда Документ = Источник.ДокументПоставки; Если Документ.Вид()="ПоступлениеТоваров" Тогда Документ.ВыбратьСтроки(); Документ.ПолучитьСтроку(); СтавкаНДС = глСтавкаНалога(Документ, "НДС", Документ.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); ИначеЕсли (Документ.Вид()="УслугиСтороннихОрганизаций") или (Документ.Вид()="УслугиСтороннихОрганизаций") или (Документ.Вид()="ПоступлениеМатериалов") или (Документ.Вид()="ПоступлениеОборудования") или (Документ.Вид()="ПоступлениеОС") или (Документ.Вид()="ПоступлениеНМА") Тогда СтавкаНДС = глСтавкаНалога(Документ, "НДС", ); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КонецЕсли; КонецЕсли; <Свойство> <Код>27 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ВзносНаличнымиВБанк") или (ВидОперации = "Инкассация") или (ВидОперации = "ПрочийРасход") Тогда Значение = Источник.КоррСчет; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>17 <Наименование> --> ПодразделениеДт <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеДт" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации = "ПрочийРасход" Тогда Счет = Источник.КоррСчет; Для к = 1 По Счет.КоличествоСубконто() Цикл ВидСубконтоИсточника = Счет.ВидСубконто(к); Если (ВидСубконтоИсточника = ВидыСубконто.Подразделения) ИЛИ (ВидСубконтоИсточника = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", Источник.ПолучитьАтрибут("Субконто"+к)); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; Если ПустоеЗначение(Значение) = 1 тогда Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование> --> СубконтоДт1 <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт1" Вид="Реквизит"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ПрочийРасход") ИЛИ (ВидОперации = "Инкассация")Тогда Значение = Источник.Субконто1; Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>22 <Наименование> --> СубконтоДт2 <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт2" Вид="Реквизит"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ПрочийРасход") ИЛИ (ВидОперации = "Инкассация")Тогда Значение = Источник.Субконто2; Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>23 <Наименование> --> СубконтоДт3 <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт3" Вид="Реквизит"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ПрочийРасход") ИЛИ (ВидОперации = "Инкассация")Тогда Значение = Источник.Субконто3; Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование>Сумма --> СуммаДокумента <Порядок>1300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> СчетОрганизации <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации = "ВзносНаличнымиВБанк" Тогда Значение = Источник.Субконто1; КонецЕсли; <Группа> <Код>28 <Наименование> --> РасшифровкаПлатежа <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Счет = Источник.КоррСчет; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СпособПогашенияЗадолженности"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетовПоАвансам"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; КоллекцияОбъектов.СуммаПлатежа = Источник.Сумма; Если (ВидОперации = "ОплатаПоставщику") или (ВидОперации = "ВозвратПокупателю") или (ВидОперации = "РасчетыПоКредитамИЗаймам") Тогда Если ПустоеЗначение(Счет)=0 Тогда Для НомерСубконто = 1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(НомерСубконто) = ВидыСубконто.Договоры Тогда КоллекцияОбъектов.ДоговорКонтрагента = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); КонецЕсли; КонецЦикла; КонецЕсли; КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КоллекцияОбъектов.КурсВзаиморасчетов = 1; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; Если ПустоеЗначение(КоллекцияОбъектов.ДоговорКонтрагента)=0 Тогда Если ПустоеЗначение(КоллекцияОбъектов.ДоговорКонтрагента.ВалютаДоговора) = 0 Тогда Валюта = КоллекцияОбъектов.ДоговорКонтрагента.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если КоллекцияОбъектов.ДоговорКонтрагента.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + КоллекцияОбъектов.ДоговорКонтрагента.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Валюта.Курс.Получить(Источник.ДатаДок); КонецЕсли; Если КоллекцияОбъектов.ДоговорКонтрагента.ВестиУчетРасчетовУЕ = 1 Тогда КоллекцияОбъектов.СуммаВзаиморасчетов = ?(КоллекцияОбъектов.КурсВзаиморасчетов=0,0,Источник.Сумма*КоллекцияОбъектов.КратностьВзаиморасчетов/КоллекцияОбъектов.КурсВзаиморасчетов); КонецЕсли; КонецЕсли; КоллекцияОбъектов.СтавкаНДС = "БезНДС"; КоллекцияОбъектов.СуммаНДС = 0; Если ПустоеЗначение(Источник.ДокументПоставки)=0 Тогда Документ = Источник.ДокументПоставки; Если Документ.Вид()="ПоступлениеТоваров" Тогда Документ.ВыбратьСтроки(); Документ.ПолучитьСтроку(); СтавкаНДС = глСтавкаНалога(Документ, "НДС", Документ.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СуммаНДС = Источник.Сумма*СтавкаНДС.Ставка/(100 + СтавкаНДС.Ставка); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); ИначеЕсли (Документ.Вид()="УслугиСтороннихОрганизаций") или (Документ.Вид()="УслугиСтороннихОрганизаций") или (Документ.Вид()="ПоступлениеМатериалов") или (Документ.Вид()="ПоступлениеОборудования") или (Документ.Вид()="ПоступлениеОС") или (Документ.Вид()="ПоступлениеНМА") Тогда СтавкаНДС = глСтавкаНалога(Документ, "НДС", ); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СуммаНДС = Источник.Сумма*СтавкаНДС.Ставка/(100 + СтавкаНДС.Ставка); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КонецЕсли; КонецЕсли; КоллекцияОбъектов.СпособПогашенияЗадолженности = "Автоматически"; //по счету определяем пару расчетных счетов СтрокаСчета = ""; Если Параметры.ТаблицаСчетовРасчета.НайтиЗначение(Счет,СтрокаСчета,"")=1 Тогда КоллекцияОбъектов.СчетУчетаРасчетовПоАвансам = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"АвансовыйСчет"); КоллекцияОбъектов.СчетУчетаРасчетовСКонтрагентом = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"РасчетныйСчет"); Иначе КоллекцияОбъектов.СчетУчетаРасчетовПоАвансам = Счет; КоллекцияОбъектов.СчетУчетаРасчетовСКонтрагентом = Счет; КонецЕсли; КонецЕсли; <Свойство> <Код>29 <Наименование> --> ДоговорКонтрагента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ДоговорКонтрагента)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); ОпределитьВидДоговора(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>30 <Наименование> --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>32 <Наименование> --> Сделка <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>33 <Наименование> --> СпособПогашенияЗадолженности <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <Свойство> <Код>34 <Наименование> --> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>35 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>36 <Наименование> --> СуммаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СуммаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> СуммаПлатежа <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>40 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Группа Отключить="true"> <Код>41 <Наименование> --> ВыплатаДепонентов <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ВыплатаДепонентов" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Счет = Источник.КоррСчет; Если (ВидОперации = "ВыплатаДепонентов") Тогда КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ФизЛицо"); КоллекцияОбъектов.НоваяКолонка("Ведомость"); КоллекцияОбъектов.НоваяКолонка("СуммаКВыплате"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ФизЛицо = Источник.Субконто1; КоллекцияОбъектов.СуммаКВыплате = Источник.Сумма; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>44 <Наименование> --> ФизЛицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство Отключить="true"> <Код>42 <Наименование> --> Ведомость <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Ведомость" Вид="Реквизит" Тип="ДокументСсылка.ЗарплатаКВыплатеОрганизаций"/> <Свойство> <Код>43 <Наименование> --> СуммаКВыплате <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКВыплате" Вид="Реквизит" Тип="Число"/> <Группа> <Код>55 <Наименование> --> ВыплатаЗаработнойПлаты <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="ВыплатаЗаработнойПлаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Счет = Источник.КоррСчет; Если (ВидОперации = "ВыплатаЗаработнойПлатыПоВедомостям") Тогда КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Ведомость"); КоллекцияОбъектов.НоваяКолонка("СуммаКВыплате"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Ведомость = ВходящиеДанные.Получить("ЗарплатнаяВедомость"); КоллекцияОбъектов.СуммаКВыплате = Источник.Сумма; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>56 <Наименование> --> Ведомость <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Ведомость" Вид="Реквизит" Тип="ДокументСсылка.ЗарплатаКВыплатеОрганизаций"/> <КодПравилаКонвертации>ВыплатаЗПКасса <Свойство> <Код>57 <Наименование> --> СуммаКВыплате <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКВыплате" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>РасходныйКассовыйОрдер_ВыплатаЗП <Наименование>Документ: Выплата зарплаты <Порядок>1600 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>//***************************************************** //устанавливаем нужный вид поля контрагент ИмяСправочника = "Контрагенты"; ИмяРасчетногоДокумента = "АвансовыйОтчет"; Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыдачаПодотчетномуЛицу ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыплатаЗаработнойПлатыРаботнику Тогда ИмяСправочника = "ФизическиеЛица"; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ПрочийРасход Тогда // Прочее оприходование денежных средств пока не реализовано. КонецЕсли; Если ТипЗнч(Объект.Контрагент) <> Тип("СправочникСсылка." + ИмяСправочника) Тогда Объект.Контрагент = Справочники[ИмяСправочника].ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.ВыплатаЗПКасса <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Префикс","В"); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); Параметры.ПараметрыАлгоритмов.Установить("Префикс",""); <Свойство Поиск="true"> <Код>9 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>6 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <ПередВыгрузкой>Значение = "ВыплатаЗаработнойПлатыПоВедомостям"; <Свойство> <Код>5 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>7 <Наименование> --> Выдать <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Основание <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Свойство> <Код>12 <Наименование> --> ПоДокументу <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> ПлатежнаяВедомость <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПлатежнаяВедомость" Вид="Реквизит" Тип="ДокументСсылка.ЗарплатаКВыплатеОрганизаций"/> <КодПравилаКонвертации>ВыплатаЗПКасса <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>17 <Наименование>ВидДвижения --> СтатьяДвиженияДенежныхСредств <Порядок>650 <Источник Имя="ВидДвижения" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>21 <Наименование> --> СуммаДокумента <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("КВыдаче"); <Свойство> <Код>22 <Наименование> --> СчетКасса <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКасса" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("50.1"); <Группа> <Код>24 <Наименование> --> ВыплатаЗаработнойПлаты <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ВыплатаЗаработнойПлаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Ведомость"); КоллекцияОбъектов.НоваяКолонка("СуммаКВыплате"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Ведомость = Источник; КоллекцияОбъектов.СуммаКВыплате = Источник.Итог("КВыдаче"); <Свойство> <Код>25 <Наименование> --> Ведомость <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Ведомость" Вид="Реквизит" Тип="ДокументСсылка.ЗарплатаКВыплатеОрганизаций"/> <КодПравилаКонвертации>ВыплатаЗПКасса <Свойство> <Код>26 <Наименование> --> СуммаКВыплате <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКВыплате" Вид="Реквизит" Тип="Число"/> <Группа> <Код>27 <Наименование> --> РасшифровкаПлатежа <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); //создаем одну пустую строку КоллекцияОбъектов.НоваяКолонка("НомСтроки"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.НомСтроки = 1; КоллекцияОбъектов.СуммаВзаиморасчетов = 0; <Свойство> <Код>28 <Наименование> --> СуммаВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПриходныйОрдер <Наименование>Документ: Приходный кассовый ордер <Порядок>1650 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВидОперации = "ПрочийПриход"; Если Источник.РозничнаяВыручка = 1 Тогда ВидОперации = "РозничнаяВыручка"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("60"))=1 Тогда ВидОперации = "ВозвратОтПоставщика"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("62"))=1 Тогда ВидОперации = "ОплатаПокупателя"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("90"))=1 Тогда ВидОперации = "РозничнаяВыручка"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("71"))=1 Тогда ВидОперации = "ВозвратОтПодотчетногоЛица"; ИначеЕсли (Источник.КоррСчет = СчетПоКоду("51")) или (Источник.КоррСчет = СчетПоКоду("52")) Тогда ВидОперации = "ПолучениеНаличныхВБанке"; ИначеЕсли (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("66"))=1) или (Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("67"))=1) Тогда ВидОперации = "РасчетыПоКредитамИЗаймам"; ИначеЕсли Источник.КоррСчет.ПринадлежитГруппе(СчетПоКоду("76.1"))=1 Тогда ВидОперации = "ПрочийПриход"; ИначеЕсли (Источник.КоррСчет = СчетПоКоду("76.5")) или (Источник.КоррСчет = СчетПоКоду("76.6")) или (Источник.КоррСчет = СчетПоКоду("76.55")) Тогда Если ПустоеЗначение(Источник.ДвижениеДенежныхСредств)=0 Тогда Если (Источник.ДвижениеДенежныхСредств.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоОбычнымВидамДеятельности) или (Источник.ДвижениеДенежныхСредств.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоПрочимОперациям) Тогда ВидОперации = "ОплатаПокупателя"; ИначеЕсли Источник.ДвижениеДенежныхСредств.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеТоваровПродукцииРаботИУслуг Тогда ВидОперации = "ВозвратОтПоставщика"; КонецЕсли; КонецЕсли; КонецЕсли; ВходящиеДанные.Установить("ВидОперации",ВидОперации); <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетУчетаРасчетовСКонтрагентом"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоКт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <Источник>ДокументСсылка.ПриходныйОрдер <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>17 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>12 <Наименование> --> ВидОперации <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>НомерЧекаККМ --> НомерЧекаККМ <Порядок>400 <Источник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>Основание --> Основание <Порядок>450 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Приложение --> Приложение <Порядок>500 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ПринятоОт --> ПринятоОт <Порядок>550 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>600 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="СправочникСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>11 <Наименование> --> ВалютаДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если Источник.Валютный = 2 Тогда Значение = Источник.Валюта; Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>25 <Наименование> --> СчетКасса <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКасса" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.Валютный = 2 Тогда Значение = СчетПоКоду("50.11"); Иначе Значение = СчетПоКоду("50.1"); КонецЕсли; <Свойство> <Код>13 <Наименование> --> ВыручкаСНТТ <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ВыручкаСНТТ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "РозничнаяВыручка") и (Параметры.СписокСкладовНТТ.НайтиЗначение(Источник.ТорговаяТочка)>0) Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>16 <Наименование> --> Контрагент <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <ПередВыгрузкой> ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "РозничнаяВыручка") Тогда Значение = Источник.ТорговаяТочка; ИмяПКО = "Склады"; Иначе Если (ВидОперации = "ОплатаПокупателя") или (ВидОперации = "ВозвратОтПоставщика") или (ВидОперации = "РасчетыПоКредитамИЗаймам") Тогда ВидСубконто = ВидыСубконто.Контрагенты; ИмяПКО = "Контрагенты"; ИначеЕсли (ВидОперации = "ВозвратОтПодотчетногоЛица") Тогда ВидСубконто = ВидыСубконто.Сотрудники; ИмяПКО = "ФизическиеЛица"; ИначеЕсли (ВидОперации = "ПолучениеНаличныхВБанке") Тогда ВидСубконто = ВидыСубконто.БанковскиеСчета; ИмяПКО = "БанковскиеСчета"; Иначе Отказ = 1; КонецЕсли; Если Отказ <> 1 Тогда //ищем нужное субконто Счет = Источник.КоррСчет; Если ПустоеЗначение(Счет)=0 Тогда Для НомерСубконто = 1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(НомерСубконто) = ВидСубконто Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>14 <Наименование> --> ДоговорКонтрагента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ОплатаПокупателя") или (ВидОперации = "ВозвратОтПоставщика") или (ВидОперации = "РасчетыПоКредитамИЗаймам") Тогда Счет = Источник.КоррСчет; Если ПустоеЗначение(Счет)=0 Тогда Для НомерСубконто = 1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(НомерСубконто) = ВидыСубконто.Договоры Тогда Значение = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>15 <Наименование>ДокументПоставки --> ДокументОснование <Порядок>900 <Источник Имя="ДокументПоставки" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументПоставки)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник.ДокументПоставки); ОпределитьПКОДляДокумента(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>20 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>950 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>26 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если (ВидОперации = "ПолучениеНаличныхВБанке") или (ВидОперации = "ПрочийПриход") или (ВидОперации = "РозничнаяВыручка" )Тогда Значение = Источник.КоррСчет; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование> --> ПодразделениеКт <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеКт" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации = "ПрочийПриход" Тогда Счет = Источник.КоррСчет; Для к = 1 По Счет.КоличествоСубконто() Цикл ВидСубконтоИсточника = Счет.ВидСубконто(к); Если (ВидСубконтоИсточника = ВидыСубконто.Подразделения) ИЛИ (ВидСубконтоИсточника = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", Источник.ПолучитьАтрибут("Субконто"+к)); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; Если ПустоеЗначение(Значение) = 1 тогда Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование> --> СубконтоКт1 <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации = "ПрочийПриход" Тогда Значение = Источник.Субконто1; Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>22 <Наименование> --> СубконтоКт2 <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации = "ПрочийПриход" Тогда Значение = Источник.Субконто2; Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>23 <Наименование> --> СубконтоКт3 <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт3" Вид="Реквизит"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации = "ПрочийПриход" Тогда Значение = Источник.Субконто3; Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.КоррСчет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование>Сумма --> СуммаДокумента <Порядок>1250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Группа> <Код>27 <Наименование> --> РасшифровкаПлатежа <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Счет = Источник.КоррСчет; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СпособПогашенияЗадолженности"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяКолонка("СчетНаОплату"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетовПоАвансам"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; КоллекцияОбъектов.СуммаПлатежа = Источник.Сумма; КоллекцияОбъектов.СтавкаНДС = "БезНДС"; КоллекцияОбъектов.СуммаНДС = 0; Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",Источник.СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); КоллекцияОбъектов.СуммаНДС = Источник.НДС; Если (ВидОперации = "ОплатаПокупателя") или (ВидОперации = "ВозвратОтПоставщика") или (ВидОперации = "РасчетыПоКредитамИЗаймам") Тогда Если ПустоеЗначение(Счет)=0 Тогда Для НомерСубконто = 1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(НомерСубконто) = ВидыСубконто.Договоры Тогда КоллекцияОбъектов.ДоговорКонтрагента = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); КонецЕсли; КонецЦикла; КонецЕсли; КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КоллекцияОбъектов.КурсВзаиморасчетов = 1; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; Если ПустоеЗначение(КоллекцияОбъектов.ДоговорКонтрагента)=0 Тогда Если ПустоеЗначение(КоллекцияОбъектов.ДоговорКонтрагента.ВалютаДоговора) = 0 Тогда Валюта = КоллекцияОбъектов.ДоговорКонтрагента.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если КоллекцияОбъектов.ДоговорКонтрагента.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + КоллекцияОбъектов.ДоговорКонтрагента.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КоллекцияОбъектов.КратностьВзаиморасчетов = Кратность; КоллекцияОбъектов.КурсВзаиморасчетов = Валюта.Курс.Получить(Источник.ДатаДок); КонецЕсли; Если КоллекцияОбъектов.ДоговорКонтрагента.ВестиУчетРасчетовУЕ = 1 Тогда КоллекцияОбъектов.СуммаВзаиморасчетов = ?(КоллекцияОбъектов.КурсВзаиморасчетов=0,0,Источник.Сумма*КоллекцияОбъектов.КратностьВзаиморасчетов/КоллекцияОбъектов.КурсВзаиморасчетов); КонецЕсли; КонецЕсли; Если ПустоеЗначение(Источник.ДокументПоставки)=0 Тогда Если Источник.ДокументПоставки.Вид()="Счет" Тогда КоллекцияОбъектов.СчетНаОплату = Источник.ДокументПоставки; КонецЕсли; КонецЕсли; КоллекцияОбъектов.СпособПогашенияЗадолженности = "Автоматически"; //по счету определяем пару расчетных счетов СтрокаСчета = ""; Если Параметры.ТаблицаСчетовРасчета.НайтиЗначение(Счет,СтрокаСчета,"")=1 Тогда КоллекцияОбъектов.СчетУчетаРасчетовПоАвансам = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"АвансовыйСчет"); КоллекцияОбъектов.СчетУчетаРасчетовСКонтрагентом = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"РасчетныйСчет"); Иначе КоллекцияОбъектов.СчетУчетаРасчетовПоАвансам = Счет; КоллекцияОбъектов.СчетУчетаРасчетовСКонтрагентом = Счет; КонецЕсли; КонецЕсли; <Свойство> <Код>28 <Наименование> --> ДоговорКонтрагента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ДоговорКонтрагента)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); ОпределитьВидДоговора(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>29 <Наименование> --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>31 <Наименование> --> Сделка <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>32 <Наименование> --> СпособПогашенияЗадолженности <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <Свойство> <Код>33 <Наименование> --> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>34 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>35 <Наименование> --> СуммаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> СуммаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СуммаПлатежа <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> СчетНаОплату <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНаОплату" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <КодПравилаКонвертации>СчетНаОплатуПокупателю <Свойство> <Код>39 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>40 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Значения/> <Правило> <Код>ПлатежноеПоручение <Наименование>Документ: Платежное поручение <Порядок>1700 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Плательщик = "";БанкПлательщика = "";НомерСчетаПлательщика = "";БИКБанкаПлательщика = "";СчетБанкаПлательщика = "";ИННплательщика=""; глПлатежныеРеквизиты(Источник.РасчетныйСчет, Плательщик, БанкПлательщика, НомерСчетаПлательщика, БИКБанкаПлательщика, СчетБанкаПлательщика, ИННплательщика,, 2); Плательщик = СокрЛП(?(Источник.ПеречислениеНалога=1, Константа.НаименованиеПлательщикаПриПеречисленииНалогов, Плательщик)); ВходящиеДанные.Установить("ТекстПлательщика",Плательщик); ВходящиеДанные.Установить("ИННПлательщика",?(Источник.ПеречислениеНалога=1,?(ПустаяСтрока(ИННплательщика)=1,"0", ИННплательщика), ИННплательщика)); ВходящиеДанные.Установить("КПППлательщика", ?(Источник.ПеречислениеНалога=1,?(ПустаяСтрока(Источник.КППплательщика)=1,"0", Источник.КППплательщика), Источник.КППплательщика)); Получатель = "";БанкПолучателя = "";НомерСчетаПолучателя = "";БИКБанкаПолучателя = "";СчетБанкаПолучателя = "";ИННполучателя=""; глПлатежныеРеквизиты(Источник.СчетКонтрагента, Получатель, БанкПолучателя, НомерСчетаПолучателя, БИКБанкаПолучателя, СчетБанкаПолучателя, ИННполучателя,, 2); ВходящиеДанные.Установить("ТекстПолучателя",Получатель); ВходящиеДанные.Установить("ИННПолучателя",ИННполучателя); ВходящиеДанные.Установить("КПППолучателя",?(Источник.ПеречислениеНалога=1,?(ПустаяСтрока(Источник.КППполучателя)=1,"0", Источник.КППполучателя), Источник.КППполучателя)); <Источник>ДокументСсылка.ПлатежноеПоручение <Приемник>ДокументСсылка.ПлатежноеПоручение <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>26 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>29 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>13 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>34 <Наименование>РасчетныйСчет --> СчетОрганизации <Порядок>350 <Источник Имя="РасчетныйСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>1 <Наименование>ВидПлатежаСтрока --> ВидПлатежа <Порядок>400 <Источник Имя="ВидПлатежаСтрока" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>24 <Наименование> --> НазначениеПлатежа <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>СтрСуммаНДС = ФормирСуммаНДС(Источник.АвтоПодстСуммыНДС,Источник.Сумма,Источник.НДС,Источник.СтавкаНДС); Значение = СокрЛП(Источник.Содержание)+" "+СокрЛП(СтрСуммаНДС); <Свойство> <Код>3 <Наименование>КодБК --> КодБК <Порядок>550 <Источник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>КодОКАТО --> КодОКАТО <Порядок>600 <Источник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>650 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>15 <Наименование>СчетКонтрагента --> СчетКонтрагента <Порядок>700 <Источник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.РасчетныеСчета"/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>РасчетныеСчета <Свойство> <Код>18 <Наименование>Договор --> ДоговорКонтрагента <Порядок>750 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство Отключить="true"> <Код>19 <Наименование> --> ДокументОснование <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>35 <Наименование> --> ТекстПлательщика <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ТекстПлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование> --> ИННПлательщика <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИННПлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование> --> КПППлательщика <Порядок>950 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КПППлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>36 <Наименование> --> ТекстПолучателя <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ТекстПолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование> --> ИННПолучателя <Порядок>1050 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИННПолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование> --> КПППолучателя <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КПППолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>25 <Наименование> --> Оплачено <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="Оплачено" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; ПодчДок = СоздатьОбъект("Документ"); Если ПодчДок.ВыбратьПодчиненныеДокументы(Источник.ДатаДок,Источник.ДатаДок+15,Источник) = 1 Тогда Пока ПодчДок.ПолучитьДокумент() = 1 Цикл Если ПодчДок.Вид() = "Выписка" Тогда Значение = 1; КонецЕсли; КонецЦикла; КонецЕсли; <Свойство> <Код>27 <Наименование>Очередность --> ОчередностьПлатежа <Порядок>1200 <Источник Имя="Очередность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>ПеречислениеНалога --> ПеречислениеВБюджет <Порядок>1250 <Источник Имя="ПеречислениеНалога" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПеречислениеВБюджет" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>30 <Наименование>СтатусСоставителяПлДок --> СтатусСоставителя <Порядок>1300 <Источник Имя="СтатусСоставителяПлДок" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="СтатусСоставителя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>ПоказательТипа --> ПоказательТипа <Порядок>1350 <Источник Имя="ПоказательТипа" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательТипа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>ПоказательПериода --> ПоказательПериода <Порядок>1400 <Источник Имя="ПоказательПериода" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательПериода" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ПоказательОснования --> ПоказательОснования <Порядок>1450 <Источник Имя="ПоказательОснования" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательОснования" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ПоказательНомера --> ПоказательНомера <Порядок>1500 <Источник Имя="ПоказательНомера" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательНомера" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> ПоказательДаты <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="ПоказательДаты" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ПоказательДаты)=1 Тогда Значение = 0; Иначе Значение = Формат(Источник.ПоказательДаты,"ДДДММГГГГ"); КонецЕсли; <Свойство> <Код>17 <Наименование> --> ВидПеречисленияВБюджет <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПеречисленияВБюджет" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПеречисленийВБюджет"/> <ПередВыгрузкой>Если (Источник.ПоказательОснования = "ТП") или (Источник.ПоказательОснования = "ЗД") или (Источник.ПоказательОснования = "БФ") или (Источник.ПоказательОснования = "ТР") или (Источник.ПоказательОснования = "РС") или (Источник.ПоказательОснования = "ОТ") или (Источник.ПоказательОснования = "РТ") или (Источник.ПоказательОснования = "ВУ") или (Источник.ПоказательОснования = "ПР") или (Источник.ПоказательОснования = "АП") или (Источник.ПоказательОснования = "АР") Тогда Значение = "НалоговыйПлатеж"; ИначеЕсли (Источник.ПоказательОснования = "ДЕ") или (Источник.ПоказательОснования = "ПО") или (Источник.ПоказательОснования = "КВ") или (Источник.ПоказательОснования = "КТ") или (Источник.ПоказательОснования = "ИД") или (Источник.ПоказательОснования = "ИП") или (Источник.ПоказательОснования = "ТУ") или (Источник.ПоказательОснования = "БД") или (Источник.ПоказательОснования = "ИН") или (Источник.ПоказательОснования = "КП") Тогда Значение = "ТаможенныйПлатеж"; Иначе Значение = "ИнойПлатеж"; КонецЕсли; <Свойство Отключить="true"> <Код>31 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Свойство> <Код>32 <Наименование>Сумма --> СуммаДокумента <Порядок>1700 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>1750 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="СправочникСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.СтавкаНДС)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",Источник.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>33 <Наименование>НДС --> СуммаНДС <Порядок>1800 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПлатежноеТребование <Наименование>Документ: Платежное требование <Порядок>1750 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ПлатежноеТребование <Приемник>ДокументСсылка.ПлатежноеТребование <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>12 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>1 <Наименование>ВидПлатежаСтрока --> ВидПлатежа <Порядок>200 <Источник Имя="ВидПлатежаСтрока" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> ВалютаДокумента <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>19 <Наименование>РасчетныйСчет --> СчетОрганизации <Порядок>400 <Источник Имя="РасчетныйСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>СчетКонтрагента --> СчетКонтрагента <Порядок>500 <Источник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.РасчетныеСчета"/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>РасчетныеСчета <Свойство> <Код>10 <Наименование>ДатаОтсылки --> ДатаОтсылкиДокументов <Порядок>550 <Источник Имя="ДатаОтсылки" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаОтсылкиДокументов" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование> --> НазначениеПлатежа <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>СтрСуммаНДС = ФормирСуммаНДС(Источник.АвтоПодстСуммыНДС,Источник.Сумма,Источник.НДС,Источник.СтавкаНДС); Значение = СокрЛП(Источник.Содержание)+" "+СокрЛП(СтрСуммаНДС); <Свойство> <Код>13 <Наименование>УсловиеОплаты --> ОснованиеДляБезакцептногоСписания <Порядок>650 <Источник Имя="УсловиеОплаты" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ОснованиеДляБезакцептногоСписания" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>Очередность --> ОчередностьПлатежа <Порядок>700 <Источник Имя="Очередность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Акцепт --> САкцептом <Порядок>750 <Источник Имя="Акцепт" Вид="Реквизит" Тип="Число"/> <Приемник Имя="САкцептом" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>16 <Наименование>СрокАкцепта --> СрокДляАкцепта <Порядок>800 <Источник Имя="СрокАкцепта" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СрокДляАкцепта" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Сумма --> СуммаДокумента <Порядок>850 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>900 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="СправочникСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",Источник.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>18 <Наименование>НДС --> СуммаНДС <Порядок>950 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>ВидАкцепта --> ВидАкцепта <Порядок>1000 <Источник Имя="ВидАкцепта" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВидАкцепта" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>Выписка_Списание <Наименование>Документ: Выписка <Порядок>1800 <ПриВыгрузке>ПроверитьНаВозможностьВыгрузки(); ТаблицаСтрок = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТаблицаСтрок); ТаблицаСтрок.НоваяКолонка("ВидОперации"); ТаблицаСтрок.НоваяКолонка("УникальностьОперации"); ТаблицаСтрок.НоваяКолонка("Контрагент"); ТаблицаСтрок.НоваяКолонка("Договор"); ТаблицаСтрок.НоваяКолонка("Банк"); ТаблицаСтрок.НоваяКолонка("ДоговорБанка"); ТаблицаСтрок.НоваяКолонка("Подразделение"); ТаблицаСтрок.НоваяКолонка("Сумма"); ТаблицаСтрок.НоваяКолонка("БанковскийСчет"); ТаблицаСтрок.НоваяКолонка("СчетКонтрагента"); ТаблицаСтрок.НоваяКолонка("СтавкаНДС"); ТаблицаСтрок.НоваяКолонка("СчетаФактуры"); ТаблицаСтрок.НоваяКолонка("НераспределенныйАванс"); ПолучитьСчетаФактурыПолученныеВыписки(); ТаблицаСчетовФактур = Параметры.ПараметрыАлгоритмов.Получить("ТаблицаСчетовФактур"); Авансы = Параметры.ПараметрыАлгоритмов.Получить("Авансы"); Если ПустоеЗначение(ВходящиеДанные)=1 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Источник.БанковскийСчет.ТипСчета = Перечисление.ТипыБанковскихСчетов.Валютный Тогда Валютный = 2; Курс = Источник.Валюта.Курс.Получить(Источник.ДатаДок); Кратность = Источник.Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0,1,Кратность); Иначе Валютный = 1; Курс = 1; Крантность = 1; КонецЕсли; //классифицируем строки выписки ТаблицаСтрок.ВыбратьСтроки(); Пока ТаблицаСтрок.ПолучитьСтроку()=1 Цикл ВидДвижения = ?(ПустоеЗначение(ТаблицаСтрок.ВидДвижения)=0,ТаблицаСтрок.ВидДвижения.ВидДвижения,""); Если ТаблицаСтрок.Приход=0 Тогда Если ТаблицаСтрок.КоррСчет.Выбран() = 0 Тогда //счет не указан ВалютаДоговора = ?(ПустоеЗначение(ТаблицаСтрок.Субконто2) = 0,ТаблицаСтрок.Субконто2.ВалютаДоговора,""); Если ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеТоваровПродукцииРаботИУслуг Тогда ТаблицаСтрок.КоррСчет = ?(Валютный = 1, ?(ПустоеЗначение(ВалютаДоговора) = 1, СчетПоКоду("60.2"), СчетПоКоду("60.7")), СчетПоКоду("60.22")); ТаблицаСтрок.ВидОперации = "ОплатаПоставщику"; Иначе ТаблицаСтрок.ВидОперации = "ПрочееСписание"; КонецЕсли; Иначе //счет указан Если ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("60"))=1 Тогда ТаблицаСтрок.ВидОперации = "ОплатаПоставщику"; ИначеЕсли ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("62"))=1 Тогда ТаблицаСтрок.ВидОперации = "ВозвратПокупателю"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("68"))=1) или (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("69"))=1)Тогда ТаблицаСтрок.ВидОперации = "ПеречислениеНалога"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("55"))=1) Тогда ТаблицаСтрок.ВидОперации = "ПереводНаДругойСчет"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("66"))=1) или (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("67"))=1)Тогда ТаблицаСтрок.ВидОперации = "РасчетыПоКредитамИЗаймам"; ИначеЕсли (ТаблицаСтрок.КоррСчет = СчетПоКоду("70")) Тогда ТаблицаСтрок.ВидОперации = "ПеречислениеЗП"; ИначеЕсли (ТаблицаСтрок.КоррСчет = СчетПоКоду("76.ЗП")) Тогда ТаблицаСтрок.ВидОперации = "ПеречислениеЗП"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("76.1"))=1) Тогда ТаблицаСтрок.ВидОперации = "ПрочееСписание"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("71"))=1) Тогда ТаблицаСтрок.ВидОперации = "ПеречислениеПодотчетномуЛицу"; ТаблицаСтрок.Банк = Источник.БанковскийСчет.БанкОрганизации; ТаблицаСтрок.СчетКонтрагента = Источник.БанковскийСчет; ИначеЕсли (ТаблицаСтрок.КоррСчет=СчетПоКоду("76.5"))или (ТаблицаСтрок.КоррСчет = СчетПоКоду("76.6")) или (ТаблицаСтрок.КоррСчет = СчетПоКоду("76.55")) Тогда Если (ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоОбычнымВидамДеятельности) или (ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоПрочимОперациям) Тогда ТаблицаСтрок.ВидОперации = "ВозвратПокупателю"; ИначеЕсли (ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеТоваровПродукцииРаботИУслуг) Тогда ТаблицаСтрок.ВидОперации = "ОплатаПоставщику"; Иначе ТаблицаСтрок.ВидОперации = "ПрочиеРасчетыСКонтрагентами"; Если ТаблицаСтрок.Субконто2.Выбран()=1 Тогда //посмотрим, какой максимальный тип договора имеется НомСтр = 0; Если Параметры.ТаблицаДоговоров.НайтиЗначение(ТаблицаСтрок.Субконто2, НомСтр, "Договор") <> 0 Тогда ВидыДоговора = Параметры.ТаблицаДоговоров.ПолучитьЗначение(НомСтр,"ВидыДоговора"); ВидыДоговора.Сортировать("ВесДоговора -,ВидДоговора +"); ВидыДоговора.ВыбратьСтроки(); //выбираем самую первую строчку Если ВидыДоговора.ПолучитьСтроку()=1 Тогда ВидДоговора = ВидыДоговора.ВидДоговора; Если (ВидДоговора = "СПоставщиком")или (ВидДоговора="СКомитентом") Тогда ТаблицаСтрок.ВидОперации = "ОплатаПоставщику"; ИначеЕсли (ВидДоговора = "СПокупателем")или (ВидДоговора="СКомиссионером") Тогда ТаблицаСтрок.ВидОперации = "ВозвратПокупателю"; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли (ТаблицаСтрок.КоррСчет=СчетПоКоду("57.11")) Тогда ТаблицаСтрок.ВидОперации = "ПрочиеРасчетыСКонтрагентами"; ТаблицаСтрок.Банк = Источник.БанковскийСчет.БанкОрганизации; ТаблицаСтрок.ДоговорБанка = СоздатьОбъект("СписокЗначений"); ТаблицаСтрок.ДоговорБанка.ДобавитьЗначение(Источник.БанковскийСчет.БанкОрганизации, "Банк"); ТаблицаСтрок.ДоговорБанка.ДобавитьЗначение(Источник.Валюта, "Валюта"); Иначе //если на счете есть субконто контрагент и договор - то используем вид операции "Прочие расчеты с контрагентами" Счет = ТаблицаСтрок.КоррСчет; СубконтоЕсть = 0; Для к=1 по Счет.КоличествоСубконто() Цикл СубконтоЕсть = СубконтоЕсть + ?(Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты,3,?(Счет.ВидСубконто(к) = ВидыСубконто.Договоры,1,0)); КонецЦикла; ТаблицаСтрок.ВидОперации = ?(СубконтоЕсть = 4,"ПрочиеРасчетыСКонтрагентами","ПрочееСписание"); КонецЕсли; КонецЕсли; ТаблицаСтрок.Сумма = ТаблицаСтрок.Расход; ТаблицаСтрок.БанковскийСчет = Источник.БанковскийСчет; ИначеЕсли ТаблицаСтрок.КоррСчет.Выбран()=1 Тогда //в Бух7 списание с одного расчетного счета на другой попадает в выписку того счета, на который приходят денежные средства //в Бух8 наоборот, эта операция определяется документом того счета, с которого списываются денежные средства Если (ТаблицаСтрок.КоррСчет = СчетПоКоду("51")) или (ТаблицаСтрок.КоррСчет = СчетПоКоду("52")) или (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("55"))=1) Тогда ТаблицаСтрок.ВидОперации = "ПереводНаДругойСчет"; ТаблицаСтрок.Сумма = ТаблицаСтрок.Приход; ТаблицаСтрок.БанковскийСчет = ТаблицаСтрок.Субконто1; ТаблицаСтрок.Субконто1 = Источник.БанковскийСчет; Иначе Продолжить; КонецЕсли; Иначе Продолжить; КонецЕсли; ТаблицаСтрок.СчетаФактуры = СоздатьОбъект("СписокЗначений"); ТаблицаСтрок.НераспределенныйАванс = ТаблицаСтрок.Сумма; //заполняем контрагента и договор Счет = ТаблицаСтрок.КоррСчет; Для к=1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты Тогда ТаблицаСтрок.Контрагент = ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к); ИначеЕсли Счет.ВидСубконто(к) = ВидыСубконто.Договоры Тогда ТаблицаСтрок.Договор = ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к); ИначеЕсли (Счет.ВидСубконто(к) = ВидыСубконто.Подразделения) ИЛИ (Счет.ВидСубконто(к) = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к)); ТаблицаСтрок.Подразделение = ПолучитьПодразделениеИзСубконто(); ИначеЕсли Счет.ВидСубконто(к) = ВидыСубконто.БанковскиеСчета Тогда ТаблицаСтрок.СчетКонтрагента = ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к); КонецЕсли; КонецЦикла; //пытаемся определить контрагента, если он не заполнен Если (ПустоеЗначение(ТаблицаСтрок.Контрагент)=1) и (ПустоеЗначение(ТаблицаСтрок.ПервичныйДокумент)=0) Тогда Если (Метаданные.Документ(ТаблицаСтрок.ПервичныйДокумент.Вид()).РеквизитШапки("Контрагент").Выбран()=1) Тогда ТаблицаСтрок.Контрагент = ТаблицаСтрок.ПервичныйДокумент.Контрагент; КонецЕсли; КонецЕсли; Если (ПустоеЗначение(ТаблицаСтрок.Контрагент)=1) и (ПустоеЗначение(ТаблицаСтрок.ДокументПоставки)=0) Тогда Если (Метаданные.Документ(ТаблицаСтрок.ДокументПоставки.Вид()).РеквизитШапки("Контрагент").Выбран()=1) Тогда ТаблицаСтрок.Контрагент = ТаблицаСтрок.ДокументПоставки.Контрагент; КонецЕсли; КонецЕсли; //пытаемся определить счет контрагента, если он не заполнен Если (ПустоеЗначение(ТаблицаСтрок.СчетКонтрагента)=1) и (ПустоеЗначение(ТаблицаСтрок.ПервичныйДокумент)=0) Тогда Если (Метаданные.Документ(ТаблицаСтрок.ПервичныйДокумент.Вид()).РеквизитШапки("СчетКонтрагента").Выбран()=1) Тогда ТаблицаСтрок.СчетКонтрагента = ТаблицаСтрок.ПервичныйДокумент.СчетКонтрагента; КонецЕсли; КонецЕсли; Если (ПустоеЗначение(ТаблицаСтрок.СчетКонтрагента)=1) и (ПустоеЗначение(ТаблицаСтрок.Контрагент)=0) Тогда Если (ПустоеЗначение(ТаблицаСтрок.Контрагент.ОсновнойСчет)=0) Тогда ТаблицаСтрок.СчетКонтрагента = ТаблицаСтрок.Контрагент.ОсновнойСчет; Иначе //берем первый попавшийся РасчетныеСчета = СоздатьОбъект("Справочник.РасчетныеСчета"); РасчетныеСчета.ИспользоватьВладельца(ТаблицаСтрок.Контрагент); РасчетныеСчета.ВыбратьЭлементы(); Если РасчетныеСчета.ПолучитьЭлемент()=1 Тогда ТаблицаСтрок.СчетКонтрагента = РасчетныеСчета.ТекущийЭлемент(); КонецЕсли; КонецЕсли; КонецЕсли; Если (ТаблицаСтрок.ПервичныйДокумент.Вид() = "ПлатежноеПоручение") или (ТаблицаСтрок.ПервичныйДокумент.Вид()="ПлатежноеТребование") Тогда ТаблицаСтрок.СтавкаНДС = ТаблицаСтрок.ПервичныйДокумент.СтавкаНДС; Иначе ТаблицаСтрок.ПервичныйДокумент = ""; КонецЕсли; Если ПустоеЗначение(ТаблицаСтрок.ВидОперации)=0 Тогда ПрефиксУникальности = Строка(ТаблицаСтрок.НомерСтрокиДокумента); Если (ТаблицаСтрок.ВидОперации = "ПеречислениеЗП") и (ТаблицаСтрок.КоррСчет = СчетПоКоду("70")) Тогда ПрефиксУникальности = "00"; КонецЕсли; ТаблицаСтрок.УникальностьОперации = ПрефиксУникальности + ТаблицаСтрок.ВидОперации + ЗначениеВСтрокуВнутр(ТаблицаСтрок.Контрагент); КонецЕсли; //теперь проверим, ведется ли договор в УЕ. Если ведется, то заменим корр.счет на правильный (на котором ведутся расчеты в УЕ) Если ПустоеЗначение(ТаблицаСтрок.Договор)=0 Тогда РасчетыВУЕ = ?(Валютный = 1, ?(ПустоеЗначение(ТаблицаСтрок.Договор.ВалютаДоговора) = 0, 1, 0), 0); Если РасчетыВУЕ = 1 Тогда //заменяем счета расчетов на УЕ Если ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("60"))=1 Тогда ТаблицаСтрок.КоррСчет = СчетПоКоду("60.7"); ИначеЕсли ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("62"))=1 Тогда ТаблицаСтрок.КоррСчет = СчетПоКоду("62.7"); ИначеЕсли ТаблицаСтрок.КоррСчет = СчетПоКоду("76.5") Тогда ТаблицаСтрок.КоррСчет = СчетПоКоду("76.6"); КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; //********************************************************* //распределяем счета-фактуры по таблице авансов НомерСтрокСчетовФактур = ТаблицаСчетовФактур.КоличествоСтрок(); Пока НомерСтрокСчетовФактур > 0 Цикл ТаблицаСчетовФактур.ПолучитьСтрокуПоНомеру(НомерСтрокСчетовФактур); Авансы.ВыбратьСтроки(); Пока Авансы.ПолучитьСтроку()=1 Цикл Если (Авансы.Тип = ТаблицаСчетовФактур.Тип) и (Авансы.Контрагент = ТаблицаСчетовФактур.Контрагент) и (Авансы.Договор = ТаблицаСчетовФактур.Договор) и (Авансы.Сумма = ТаблицаСчетовФактур.СуммаСчетаФактуры) Тогда //нашли подходящую строку - добавляем ее в таблицу строк НомерСтроки = 0; Если ТаблицаСтрок.НайтиЗначение(Авансы.НомерСтрокиДокумента,НомерСтроки,"НомерСтрокиДокумента")>0 Тогда ТаблицаСтрок.ПолучитьСтрокуПоНомеру(НомерСтроки); ТаблицаСтрок.СчетаФактуры.ДобавитьЗначение(ТаблицаСчетовФактур.СчетФактура); Авансы.УдалитьСтроку(Авансы.НомерСтроки); ТаблицаСчетовФактур.УдалитьСтроку(НомерСтрокСчетовФактур); Прервать; КонецЕсли; КонецЕсли; КонецЦикла; НомерСтрокСчетовФактур = НомерСтрокСчетовФактур - 1; КонецЦикла; ТаблицаСчетовФактур.Сортировать("-СуммаСчетаФактуры"); ТаблицаСтрок.Сортировать("-НераспределенныйАванс"); //теперь распределяем просто по подходящим строкам выписки с учетом того, //что не должно быть 2 счетов-фактур с одинаковым типом, контрагентом и договором в одной строке выписки АвансовыеСчета = ",60.2,60.7,60.22,"; ТаблицаСчетовФактур.ВыбратьСтроки(); Пока ТаблицаСчетовФактур.ПолучитьСтроку()=1 Цикл НайденнаяСтрока = 0; ТаблицаСтрок.ВыбратьСтроки(); Пока ТаблицаСтрок.ПолучитьСтроку()=1 Цикл Если Найти(АвансовыеСчета,","+ТаблицаСтрок.КоррСчет+",")>0 Тогда Если (ТаблицаСчетовФактур.Контрагент = ТаблицаСтрок.Контрагент) и (ТаблицаСчетовФактур.Договор = ТаблицаСтрок.Договор) Тогда НайденнаяСтрока = ?(НайденнаяСтрока=0,ТаблицаСтрок.НомерСтроки,НайденнаяСтрока); Найдено = 0; //теперь поищем уже распределенную счет-фактуру с таким же типом Для НомерСчетФактуры = 1 по ТаблицаСтрок.СчетаФактуры.РазмерСписка() Цикл СФ = ТаблицаСтрок.СчетаФактуры.ПолучитьЗначение(НомерСчетФактуры); Если СФ.ВидОперации = ТаблицаСчетовФактур.Тип Тогда Найдено = 1; КонецЕсли; КонецЦикла; Если Найдено = 0 Тогда ТаблицаСтрок.СчетаФактуры.ДобавитьЗначение(ТаблицаСчетовФактур.СчетФактура); НайденнаяСтрока = 0; Прервать; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если НайденнаяСтрока>0 Тогда //мы не смогли найти подходящую строку выписки, поэтому распределяем на самую первую подошедшую ТаблицаСтрок.ПолучитьСтрокуПоНомеру(НайденнаяСтрока); ТаблицаСтрок.СчетаФактуры.ДобавитьЗначение(ТаблицаСчетовФактур.СчетФактура); КонецЕсли; КонецЦикла; ТаблицаСтрок.Сортировать("НомерСтрокиДокумента"); //********************************************************* УзелСсылки = мПустоеЗначение; //теперь сформируем на основе этой таблицы документы списание с расчетного счета ТаблицаСтрок.Сортировать("УникальностьОперации"); ТекущаяОперация = ""; СуммаДокумента = 0; ВходящиеДанныеДокумента = ""; НомераСтрокВыписки = ""; НазначениеПлатежа = ""; ТаблицаСтрок.ВыбратьСтроки(); Пока ТаблицаСтрок.ПолучитьСтроку()=1 Цикл Если ПустоеЗначение(ТаблицаСтрок.ВидОперации)=1 Тогда Продолжить; КонецЕсли; Если (ТаблицаСтрок.УникальностьОперации <> ТекущаяОперация) Тогда Если ТекущаяОперация <> "" Тогда //выгружаем собранный документ ВходящиеДанныеДокумента.Получить("РасшифровкаПлатежа").Свернуть("ДоговорКонтрагента, ДоговорБанка, КратностьВзаиморасчетов, КурсВзаиморасчетов, СпособПогашенияЗадолженности, СтавкаНДС, СтатьяДвиженияДенежныхСредств, СчетУчетаРасчетовПоАвансам, СчетУчетаРасчетовСКонтрагентом, Сделка","СуммаВзаиморасчетов,СуммаНДС,СуммаПлатежа"); ВходящиеДанныеДокумента.Установить("СуммаДокумента",СуммаДокумента); ВходящиеДанныеДокумента.Установить("НомераСтрокВыписки",НомераСтрокВыписки); ВходящиеДанныеДокумента.Установить("НазначениеПлатежа",НазначениеПлатежа); ВходящиеДанныеДокумента.Установить("Комментарий",ВходящиеДанныеДокумента.Получить("Комментарий")+НомераСтрокВыписки); УзелСсылкиВыписки = ВыгрузитьПоПравилу(Источник, , ВходящиеДанныеДокумента, , "СписаниеСРасчетногоСчета"); Если (ПустоеЗначение(ВходящиеДанные.Получить("СписаниеСчетФактура"))=0) Тогда СчетаФактуры = ВходящиеДанныеДокумента.Получить("СчетаФактуры"); Для НомерСФ = 1 По СчетаФактуры.РазмерСписка() Цикл Если СчетаФактуры.ПолучитьЗначение(НомерСФ)= ВходящиеДанные.Получить("СписаниеСчетФактура") Тогда УзелСсылки = УзелСсылкиВыписки; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; ВходящиеДанныеДокумента = СоздатьОбъект("СписокЗначений"); ВходящиеДанныеДокумента.Установить("Комментарий","# Перенесен из Бухгалтерии 7.7 Выписка №"+Источник.НомерДок+" от "+формат(Источник.ДатаДок,"ДДДММГГГГ")+" строки: "); ВходящиеДанныеДокумента.Установить("ВидОперации",ТаблицаСтрок.ВидОперации); ВходящиеДанныеДокумента.Установить("ДатаВходящегоДокумента",ТаблицаСтрок.ДатаДокВходящий); ВходящиеДанныеДокумента.Установить("НомерВходящегоДокумента",ТаблицаСтрок.НомерДокВходящий); ВходящиеДанныеДокумента.Установить("ВалютаДокумента",?(ПустоеЗначение(Источник.Валюта)=0, Источник.Валюта, Параметры.Рубли)); ВходящиеДанныеДокумента.Установить("ДокументОснование",ТаблицаСтрок.ПервичныйДокумент); ВходящиеДанныеДокумента.Установить("Контрагент",ТаблицаСтрок.Контрагент); ВходящиеДанныеДокумента.Установить("ДоговорКонтрагента",ТаблицаСтрок.Договор); ВходящиеДанныеДокумента.Установить("Банк",ТаблицаСтрок.Банк); ВходящиеДанныеДокумента.Установить("ДоговорБанка",ТаблицаСтрок.ДоговорБанка); ВходящиеДанныеДокумента.Установить("НеПодтвержденоВыпискойБанка",0); ВходящиеДанныеДокумента.Установить("СтатьяДвиженияДенежныхСредств",ТаблицаСтрок.ВидДвижения); Если (ТаблицаСтрок.ВидОперации = "ПеречислениеНалога") или (ТаблицаСтрок.ВидОперации = "ПрочееСписание") Тогда ВходящиеДанныеДокумента.Установить("ПодразделениеДт",ТаблицаСтрок.Подразделение); ВходящиеДанныеДокумента.Установить("СубконтоДт1",ТаблицаСтрок.Субконто1); ВходящиеДанныеДокумента.Установить("СубконтоДт2",ТаблицаСтрок.Субконто2); ВходящиеДанныеДокумента.Установить("СубконтоДт3",ТаблицаСтрок.Субконто3); Иначе ВходящиеДанныеДокумента.Установить("ПодразделениеДт",""); ВходящиеДанныеДокумента.Установить("СубконтоДт1",""); ВходящиеДанныеДокумента.Установить("СубконтоДт2",""); ВходящиеДанныеДокумента.Установить("СубконтоДт3",""); КонецЕсли; ВходящиеДанныеДокумента.Установить("СчетБанк",?(Валютный=2,СчетПоКоду("52"),СчетПоКоду("51"))); ВходящиеДанныеДокумента.Установить("СчетОрганизации",ТаблицаСтрок.БанковскийСчет); ВходящиеДанныеДокумента.Установить("СчетКонтрагента",ТаблицаСтрок.СчетКонтрагента); ВходящиеДанныеДокумента.Установить("СчетУчетаРасчетовСКонтрагентом",?(ТаблицаСтрок.ВидОперации = "ПеречислениеЗП","",ТаблицаСтрок.КоррСчет)); ВходящиеДанныеДокумента.Установить("ФизЛицо",?(ТаблицаСтрок.ВидОперации = "ПеречислениеПодотчетномуЛицу",ТаблицаСтрок.Субконто1,"")); ВходящиеДанныеДокумента.Установить("СчетаФактуры",СоздатьОбъект("СписокЗначений")); ВходящиеДанныеДокумента.Установить("ПометкаУдаления",Источник.ПометкаУдаления()); ТаблицаРасшифровка = СоздатьОбъект("ТаблицаЗначений"); ТаблицаРасшифровка.НоваяКолонка("ДоговорКонтрагента"); ТаблицаРасшифровка.НоваяКолонка("ДоговорБанка"); ТаблицаРасшифровка.НоваяКолонка("КратностьВзаиморасчетов"); ТаблицаРасшифровка.НоваяКолонка("КурсВзаиморасчетов"); ТаблицаРасшифровка.НоваяКолонка("СпособПогашенияЗадолженности"); ТаблицаРасшифровка.НоваяКолонка("СтавкаНДС"); ТаблицаРасшифровка.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); ТаблицаРасшифровка.НоваяКолонка("СуммаВзаиморасчетов"); ТаблицаРасшифровка.НоваяКолонка("СуммаНДС"); ТаблицаРасшифровка.НоваяКолонка("СуммаПлатежа"); ТаблицаРасшифровка.НоваяКолонка("СчетУчетаРасчетовПоАвансам"); ТаблицаРасшифровка.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ТаблицаРасшифровка.НоваяКолонка("Сделка"); ВходящиеДанныеДокумента.Установить("РасшифровкаПлатежа",ТаблицаРасшифровка); ТаблицаПеречислениеЗаработнойПлаты = СоздатьОбъект("ТаблицаЗначений"); ТаблицаПеречислениеЗаработнойПлаты.НоваяКолонка("ФизЛицо"); ТаблицаПеречислениеЗаработнойПлаты.НоваяКолонка("Ведомость"); ТаблицаПеречислениеЗаработнойПлаты.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); ТаблицаПеречислениеЗаработнойПлаты.НоваяКолонка("СуммаПлатежа"); ВходящиеДанныеДокумента.Установить("ПеречислениеЗаработнойПлаты",ТаблицаПеречислениеЗаработнойПлаты); СуммаДокумента = 0; ТекущаяОперация = ТаблицаСтрок.УникальностьОперации; НомераСтрокВыписки = ""; НазначениеПлатежа = ""; КонецЕсли; ТаблицаРасшифровка.НоваяСтрока(); ТаблицаРасшифровка.ДоговорКонтрагента = ТаблицаСтрок.Договор; ТаблицаРасшифровка.ДоговорБанка = ТаблицаСтрок.ДоговорБанка; ТаблицаРасшифровка.КратностьВзаиморасчетов = 1; ТаблицаРасшифровка.КурсВзаиморасчетов = 1; //если валюта в договоре - то нужно установить курс и кратность Если ПустоеЗначение(ТаблицаСтрок.Договор)=0 Тогда ВалютаДокумента = ТаблицаСтрок.Договор.ВалютаДоговора; Если ПустоеЗначение(ТаблицаСтрок.Договор.ВалютаДоговора)=0 Тогда ТаблицаРасшифровка.КурсВзаиморасчетов = ?(ТаблицаСтрок.Договор.ВестиУчетРасчетовУЕ = 1,ТаблицаСтрок.КурсОплаты,ВалютаДокумента.Курс.Получить(Источник.ДатаДок)); Кратность = ВалютаДокумента.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если ТаблицаСтрок.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + ТаблицаСтрок.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; ТаблицаРасшифровка.КратностьВзаиморасчетов = Кратность; КонецЕсли; КонецЕсли; Если (ТаблицаСтрок.ВидОперации = "ОплатаПоставщику") или (ТаблицаСтрок.ВидОперации = "ВозвратПокупателю") Тогда Если ПустоеЗначение(ТаблицаСтрок.ДокументПоставки)=1 Тогда ТаблицаРасшифровка.СпособПогашенияЗадолженности = "Автоматически"; Иначе ТаблицаРасшифровка.СпособПогашенияЗадолженности = "ПоДокументу"; ТаблицаРасшифровка.Сделка = ТаблицаСтрок.ДокументПоставки; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ТаблицаСтрок.СтавкаНДС); ПолучитьСтавкуНДС(); ТаблицаРасшифровка.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Если ПустоеЗначение(ТаблицаСтрок.СтавкаНДС) = 0 Тогда ТаблицаРасшифровка.СуммаНДС = ТаблицаСтрок.Сумма*ТаблицаСтрок.СтавкаНДС.Ставка/(100+ТаблицаСтрок.СтавкаНДС.Ставка); КонецЕсли; //для валютного счета сумма взаиморасчетов и сумма платежа совпадают, они отличаются только для расчетов в УЕ Если Валютный = 1 Тогда ТаблицаРасшифровка.СуммаВзаиморасчетов = ?(ТаблицаРасшифровка.КурсВзаиморасчетов=0,0,ТаблицаСтрок.Сумма * ТаблицаРасшифровка.КратностьВзаиморасчетов / ТаблицаРасшифровка.КурсВзаиморасчетов); Иначе ТаблицаРасшифровка.СуммаВзаиморасчетов = ТаблицаСтрок.Сумма; КонецЕсли; ТаблицаРасшифровка.СуммаПлатежа = ТаблицаСтрок.Сумма; Если ТаблицаСтрок.ВидОперации <> "ПеречислениеЗП" Тогда ТаблицаРасшифровка.СтатьяДвиженияДенежныхСредств = ТаблицаСтрок.ВидДвижения; КонецЕсли; //по счету определяем пару расчетных счетов СтрокаСчета = ""; Если Параметры.ТаблицаСчетовРасчета.НайтиЗначение(ТаблицаСтрок.КоррСчет,СтрокаСчета,"")=1 Тогда ТаблицаРасшифровка.СчетУчетаРасчетовПоАвансам = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"АвансовыйСчет"); ТаблицаРасшифровка.СчетУчетаРасчетовСКонтрагентом = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"РасчетныйСчет"); Иначе ТаблицаРасшифровка.СчетУчетаРасчетовПоАвансам = ТаблицаСтрок.КоррСчет; ТаблицаРасшифровка.СчетУчетаРасчетовСКонтрагентом = ТаблицаСтрок.КоррСчет; КонецЕсли; Если (ВходящиеДанныеДокумента.Получить("ДатаВходящегоДокумента") <> ТаблицаСтрок.ДатаДокВходящий) или (ВходящиеДанныеДокумента.Получить("НомерВходящегоДокумента") <> ТаблицаСтрок.НомерДокВходящий) Тогда //если дата и номер входящего документа очередной строки отличаются от даты и номера предыдущей строки документа - то очищаем их //это справедливо только для тех документов, которые будут содержать несколько строк выписки ВходящиеДанныеДокумента.Установить("ДатаВходящегоДокумента",""); ВходящиеДанныеДокумента.Установить("НомерВходящегоДокумента",""); КонецЕсли; Если ТаблицаСтрок.ВидОперации = "ПеречислениеЗП" Тогда Если ТаблицаСтрок.КоррСчет = СчетПоКоду("70") Тогда ТаблицаПеречислениеЗаработнойПлаты.НоваяСтрока(); ТаблицаПеречислениеЗаработнойПлаты.ФизЛицо = ТаблицаСтрок.Субконто1; ТаблицаПеречислениеЗаработнойПлаты.Ведомость = Источник; ТаблицаПеречислениеЗаработнойПлаты.СтатьяДвиженияДенежныхСредств = ТаблицаСтрок.ВидДвижения; ТаблицаПеречислениеЗаработнойПлаты.СуммаПлатежа = ТаблицаСтрок.Сумма; Иначе //найдем ведомость, соответствующую данной строке выписки Параметры.ТаблицаВедомостейПоБанку.ВыбратьСтроки(); Пока Параметры.ТаблицаВедомостейПоБанку.ПолучитьСтроку()=1 Цикл Если (Параметры.ТаблицаВедомостейПоБанку.Выписка = Источник) и (Параметры.ТаблицаВедомостейПоБанку.СтрокаВыписки = ТаблицаСтрок.НомерСтрокиДокумента) Тогда Ведомость = Параметры.ТаблицаВедомостейПоБанку.Ведомость; Ведомость.ВыбратьСтроки(); Пока Ведомость.ПолучитьСтроку()=1 Цикл ТаблицаПеречислениеЗаработнойПлаты.НоваяСтрока(); ТаблицаПеречислениеЗаработнойПлаты.ФизЛицо = Ведомость.Сотрудник; ТаблицаПеречислениеЗаработнойПлаты.Ведомость = Ведомость; ТаблицаПеречислениеЗаработнойПлаты.СтатьяДвиженияДенежныхСредств = ТаблицаСтрок.ВидДвижения; ТаблицаПеречислениеЗаработнойПлаты.СуммаПлатежа = Ведомость.КВыдаче; КонецЦикла; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; НомераСтрокВыписки = НомераСтрокВыписки+?(НомераСтрокВыписки="","",", ")+Строка(ТаблицаСтрок.НомерСтрокиДокумента); НазначениеПлатежа = НазначениеПлатежа +?(НазначениеПлатежа="","",", ")+СокрЛП(ТаблицаСтрок.НазначениеПлатежа); СуммаДокумента = СуммаДокумента + ТаблицаСтрок.Сумма; Для НомерСФ = 1 По ТаблицаСтрок.СчетаФактуры.РазмерСписка() Цикл ВходящиеДанныеДокумента.Получить("СчетаФактуры").ДобавитьЗначение(ТаблицаСтрок.СчетаФактуры.ПолучитьЗначение(НомерСФ)); КонецЦикла; КонецЦикла; Если ТекущаяОперация <> "" Тогда //выгружаем собранный документ ВходящиеДанныеДокумента.Получить("РасшифровкаПлатежа").Свернуть("ДоговорКонтрагента, ДоговорБанка, КратностьВзаиморасчетов, КурсВзаиморасчетов, СпособПогашенияЗадолженности, СтавкаНДС, СтатьяДвиженияДенежныхСредств, СчетУчетаРасчетовПоАвансам, СчетУчетаРасчетовСКонтрагентом, Сделка","СуммаВзаиморасчетов,СуммаНДС,СуммаПлатежа"); ВходящиеДанныеДокумента.Установить("СуммаДокумента",СуммаДокумента); ВходящиеДанныеДокумента.Установить("НомераСтрокВыписки",НомераСтрокВыписки); ВходящиеДанныеДокумента.Установить("НазначениеПлатежа",НазначениеПлатежа); ВходящиеДанныеДокумента.Установить("Комментарий",ВходящиеДанныеДокумента.Получить("Комментарий")+НомераСтрокВыписки); УзелСсылкиВыписки =ВыгрузитьПоПравилу(Источник, , ВходящиеДанныеДокумента, , "СписаниеСРасчетногоСчета"); Если (ПустоеЗначение(ВходящиеДанные.Получить("СписаниеСчетФактура"))=0) Тогда СчетаФактуры = ВходящиеДанныеДокумента.Получить("СчетаФактуры"); Для НомерСФ = 1 По СчетаФактуры.РазмерСписка() Цикл Если СчетаФактуры.ПолучитьЗначение(НомерСФ)= ВходящиеДанные.Получить("СписаниеСчетФактура") Тогда УзелСсылки = УзелСсылкиВыписки; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; //отказываемся от выгрузки - мы уже все выгрузили Отказ = 1; <ПослеВыгрузки>Отказ = 1; <НеЗапоминатьВыгруженные>true <Источник>ДокументСсылка.Выписка <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>Выписка_Поступление <Наименование>Документ: Выписка <Порядок>1850 <ПриВыгрузке>ТаблицаСтрок = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТаблицаСтрок); ТаблицаСтрок.НоваяКолонка("ВидОперации"); ТаблицаСтрок.НоваяКолонка("УникальностьОперации"); ТаблицаСтрок.НоваяКолонка("Контрагент"); ТаблицаСтрок.НоваяКолонка("Договор"); ТаблицаСтрок.НоваяКолонка("Банк"); ТаблицаСтрок.НоваяКолонка("ДоговорБанка"); ТаблицаСтрок.НоваяКолонка("Подразделение"); ТаблицаСтрок.НоваяКолонка("Сумма"); ТаблицаСтрок.НоваяКолонка("БанковскийСчет"); ТаблицаСтрок.НоваяКолонка("СчетКонтрагента"); ТаблицаСтрок.НоваяКолонка("СтавкаНДС"); ТаблицаСтрок.НоваяКолонка("СчетаФактуры"); ТаблицаСтрок.НоваяКолонка("НераспределенныйАванс"); ПолучитьСчетаФактурыВыписки(); ТаблицаСчетовФактур = Параметры.ПараметрыАлгоритмов.Получить("ТаблицаСчетовФактур"); Авансы = Параметры.ПараметрыАлгоритмов.Получить("Авансы"); //***************************************** //обрабатываем табличную часть Если Источник.БанковскийСчет.ТипСчета = Перечисление.ТипыБанковскихСчетов.Валютный Тогда Валютный = 2; Курс = Источник.Валюта.Курс.Получить(Источник.ДатаДок); Кратность = Источник.Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0,1,Кратность); Иначе Валютный = 1; Курс = 1; Крантность = 1; КонецЕсли; Если ПустоеЗначение(ВходящиеДанные)=1 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; //классифицируем строки выписки ТаблицаСтрок.ВыбратьСтроки(); Пока ТаблицаСтрок.ПолучитьСтроку()=1 Цикл Если ТаблицаСтрок.Приход<>0 Тогда Если ТаблицаСтрок.КоррСчет.Выбран()=1 Тогда //в Бух7 списание с одного расчетного счета на другой попадает в выписку того счета, на который приходят денежные средства //в Бух8 наоборот, эта операция определяется документом того счета, с которого списываются денежные средства Если (ТаблицаСтрок.КоррСчет = СчетПоКоду("51")) или (ТаблицаСтрок.КоррСчет = СчетПоКоду("52")) или (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("55"))=1) Тогда Продолжить; КонецЕсли; КонецЕсли; ВидДвижения = ?(ПустоеЗначение(ТаблицаСтрок.ВидДвижения)=0,ТаблицаСтрок.ВидДвижения.ВидДвижения,""); Если ТаблицаСтрок.КоррСчет.Выбран() = 0 Тогда //счет не указан ВалютаДоговора = ?(ПустоеЗначение(ТаблицаСтрок.Субконто2) = 0,ТаблицаСтрок.Субконто2.ВалютаДоговора,""); Если ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоОбычнымВидамДеятельности Тогда ТаблицаСтрок.КоррСчет = ?(Валютный = 1, ?(ПустоеЗначение(ВалютаДоговора) = 1, СчетПоКоду("62.2"), СчетПоКоду("62.7")), СчетПоКоду("62.22")); ТаблицаСтрок.ВидОперации = "ОплатаПокупателя"; Иначе ТаблицаСтрок.ВидОперации = "ПрочееСписание"; КонецЕсли; Иначе //счет указан Если ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.КупляПродажаИностраннойВалюты Тогда Если Валютный = 2 Тогда ТаблицаСтрок.ВидОперации = "ПриобретениеИностраннойВалюты"; Иначе ТаблицаСтрок.ВидОперации = "ПоступленияОтПродажиИностраннойВалюты"; ТаблицаСтрок.Банк = Источник.БанковскийСчет.БанкОрганизации; ТаблицаСтрок.ДоговорБанка = СоздатьОбъект("СписокЗначений"); ТаблицаСтрок.ДоговорБанка.ДобавитьЗначение( Источник.БанковскийСчет.БанкОрганизации, "Банк"); ТаблицаСтрок.ДоговорБанка.ДобавитьЗначение( ТаблицаСтрок.ПроданнаяВалюта, "Валюта"); КонецЕсли; ИначеЕсли ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("60"))=1 Тогда ТаблицаСтрок.ВидОперации = "ВозвратОтПоставщика"; ИначеЕсли ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("62"))=1 Тогда ТаблицаСтрок.ВидОперации = "ОплатаПокупателя"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("57"))=1) Тогда ТаблицаСтрок.ВидОперации = "Инкассация"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("66"))=1) или (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("67"))=1)Тогда ТаблицаСтрок.ВидОперации = "РасчетыПоКредитамИЗаймам"; ИначеЕсли (ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("76.1"))=1) Тогда ТаблицаСтрок.ВидОперации = "ПрочееПоступление"; ИначеЕсли (ТаблицаСтрок.КоррСчет=СчетПоКоду("76.5"))или (ТаблицаСтрок.КоррСчет = СчетПоКоду("76.6")) или (ТаблицаСтрок.КоррСчет = СчетПоКоду("76.55")) Тогда Если (ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоОбычнымВидамДеятельности) или (ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоПрочимОперациям) Тогда ТаблицаСтрок.ВидОперации = "ОплатаПокупателя"; ИначеЕсли (ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ПриобретениеТоваровПродукцииРаботИУслуг) Тогда ТаблицаСтрок.ВидОперации = "ВозвратОтПоставщика"; Иначе ТаблицаСтрок.ВидОперации = "ПрочиеРасчетыСКонтрагентами"; Если ТаблицаСтрок.Субконто2.Выбран()=1 Тогда //посмотрим, какой максимальный тип договора имеется НомСтр = 0; Если Параметры.ТаблицаДоговоров.НайтиЗначение(ТаблицаСтрок.Субконто2, НомСтр, "Договор") <> 0 Тогда ВидыДоговора = Параметры.ТаблицаДоговоров.ПолучитьЗначение(НомСтр,"ВидыДоговора"); ВидыДоговора.Сортировать("ВесДоговора -,ВидДоговора +"); ВидыДоговора.ВыбратьСтроки(); //выбираем самую первую строчку Если ВидыДоговора.ПолучитьСтроку()=1 Тогда ВидДоговора = ВидыДоговора.ВидДоговора; Если (ВидДоговора = "СПоставщиком")или (ВидДоговора="СКомитентом") Тогда ТаблицаСтрок.ВидОперации = "ВозвратОтПоставщика"; ИначеЕсли (ВидДоговора = "СПокупателем")или (ВидДоговора="СКомиссионером") Тогда ТаблицаСтрок.ВидОперации = "ОплатаПокупателя"; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Иначе //если на счете есть субконто контрагент и договор - то используем вид операции "Прочие расчеты с контрагентами" Счет = ТаблицаСтрок.КоррСчет; СубконтоЕсть = 0; Для к=1 по Счет.КоличествоСубконто() Цикл СубконтоЕсть = СубконтоЕсть + ?(Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты,3,?(Счет.ВидСубконто(к) = ВидыСубконто.Договоры,1,0)); КонецЦикла; ТаблицаСтрок.ВидОперации = ?(СубконтоЕсть = 4,"ПрочиеРасчетыСКонтрагентами","ПрочееПоступление"); КонецЕсли; КонецЕсли; ТаблицаСтрок.Сумма = ТаблицаСтрок.Приход; ТаблицаСтрок.БанковскийСчет = Источник.БанковскийСчет; Иначе Продолжить; КонецЕсли; ТаблицаСтрок.СчетаФактуры = СоздатьОбъект("СписокЗначений"); ТаблицаСтрок.НераспределенныйАванс = ТаблицаСтрок.Сумма; //заполняем контрагента и договор Счет = ТаблицаСтрок.КоррСчет; Для к=1 по Счет.КоличествоСубконто() Цикл Если Счет.ВидСубконто(к) = ВидыСубконто.Контрагенты Тогда ТаблицаСтрок.Контрагент = ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к); ИначеЕсли Счет.ВидСубконто(к) = ВидыСубконто.Договоры Тогда ТаблицаСтрок.Договор = ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к); ИначеЕсли (Счет.ВидСубконто(к) = ВидыСубконто.Подразделения) ИЛИ (Счет.ВидСубконто(к) = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к)); ТаблицаСтрок.Подразделение = ПолучитьПодразделениеИзСубконто(); ИначеЕсли Счет.ВидСубконто(к) = ВидыСубконто.БанковскиеСчета Тогда ТаблицаСтрок.СчетКонтрагента = ТаблицаСтрок.ПолучитьЗначение(ТаблицаСтрок.НомерСтроки,"Субконто"+к); КонецЕсли; КонецЦикла; //пытаемся определить контрагента, если он не заполнен Если (ПустоеЗначение(ТаблицаСтрок.Контрагент)=1) и (ПустоеЗначение(ТаблицаСтрок.ПервичныйДокумент)=0) Тогда Если (Метаданные.Документ(ТаблицаСтрок.ПервичныйДокумент.Вид()).РеквизитШапки("Контрагент").Выбран()=1) Тогда ТаблицаСтрок.Контрагент = ТаблицаСтрок.ПервичныйДокумент.Контрагент; КонецЕсли; КонецЕсли; Если (ПустоеЗначение(ТаблицаСтрок.Контрагент)=1) и (ПустоеЗначение(ТаблицаСтрок.ДокументПоставки)=0) Тогда Если (Метаданные.Документ(ТаблицаСтрок.ДокументПоставки.Вид()).РеквизитШапки("Контрагент").Выбран()=1) Тогда ТаблицаСтрок.Контрагент = ТаблицаСтрок.ДокументПоставки.Контрагент; КонецЕсли; КонецЕсли; //пытаемся определить счет контрагента, если он не заполнен Если (ПустоеЗначение(ТаблицаСтрок.СчетКонтрагента)=1) и (ПустоеЗначение(ТаблицаСтрок.ПервичныйДокумент)=0) Тогда Если (Метаданные.Документ(ТаблицаСтрок.ПервичныйДокумент.Вид()).РеквизитШапки("СчетКонтрагента").Выбран()=1) Тогда ТаблицаСтрок.СчетКонтрагента = ТаблицаСтрок.ПервичныйДокумент.СчетКонтрагента; КонецЕсли; КонецЕсли; Если (ПустоеЗначение(ТаблицаСтрок.СчетКонтрагента)=1) и (ПустоеЗначение(ТаблицаСтрок.Контрагент)=0) Тогда Если (ПустоеЗначение(ТаблицаСтрок.Контрагент.ОсновнойСчет)=0) Тогда ТаблицаСтрок.СчетКонтрагента = ТаблицаСтрок.Контрагент.ОсновнойСчет; Иначе //берем первый попавшийся РасчетныеСчета = СоздатьОбъект("Справочник.РасчетныеСчета"); РасчетныеСчета.ИспользоватьВладельца(ТаблицаСтрок.Контрагент); РасчетныеСчета.ВыбратьЭлементы(); Если РасчетныеСчета.ПолучитьЭлемент()=1 Тогда ТаблицаСтрок.СчетКонтрагента = РасчетныеСчета.ТекущийЭлемент(); КонецЕсли; КонецЕсли; КонецЕсли; Если (ТаблицаСтрок.ПервичныйДокумент.Вид() = "ПлатежноеПоручение") или (ТаблицаСтрок.ПервичныйДокумент.Вид()="ПлатежноеТребование") Тогда ТаблицаСтрок.СтавкаНДС = ТаблицаСтрок.ПервичныйДокумент.СтавкаНДС; Иначе ТаблицаСтрок.ПервичныйДокумент = ""; КонецЕсли; Если ПустоеЗначение(ТаблицаСтрок.ВидОперации)=0 Тогда //ПрефиксУникальности = "00"; ПрефиксУникальности = Строка(ТаблицаСтрок.НомерСтрокиДокумента); ТаблицаСтрок.УникальностьОперации = ПрефиксУникальности + ТаблицаСтрок.ВидОперации + ЗначениеВСтрокуВнутр(ТаблицаСтрок.Контрагент); КонецЕсли; //теперь проверим, ведется ли договор в УЕ. Если ведется, то заменим корр.счет на правильный (на котором ведутся расчеты в УЕ) Если ПустоеЗначение(ТаблицаСтрок.Договор)=0 Тогда РасчетыВУЕ = ?(Валютный = 1, ?(ПустоеЗначение(ТаблицаСтрок.Договор.ВалютаДоговора) = 0, 1, 0), 0); Если РасчетыВУЕ = 1 Тогда //заменяем счета расчетов на УЕ Если ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("60"))=1 Тогда ТаблицаСтрок.КоррСчет = СчетПоКоду("60.7"); ИначеЕсли ТаблицаСтрок.КоррСчет.ПринадлежитГруппе(СчетПоКоду("62"))=1 Тогда ТаблицаСтрок.КоррСчет = СчетПоКоду("62.7"); ИначеЕсли ТаблицаСтрок.КоррСчет = СчетПоКоду("76.5") Тогда ТаблицаСтрок.КоррСчет = СчетПоКоду("76.6"); КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; //********************************************************* //распределяем счета-фактуры по таблице авансов НомерСтрокСчетовФактур = ТаблицаСчетовФактур.КоличествоСтрок(); Пока НомерСтрокСчетовФактур > 0 Цикл ТаблицаСчетовФактур.ПолучитьСтрокуПоНомеру(НомерСтрокСчетовФактур); Авансы.ВыбратьСтроки(); Пока Авансы.ПолучитьСтроку()=1 Цикл Если (Авансы.Тип = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс) Тогда Если (Авансы.Тип = ТаблицаСчетовФактур.Тип) и (Авансы.Контрагент = ТаблицаСчетовФактур.Контрагент) и (Авансы.ДоговорСчетаФактуры = ТаблицаСчетовФактур.Договор) и (Авансы.Сумма = ТаблицаСчетовФактур.СуммаСчетаФактуры) Тогда //нашли подходящую строку - добавляем ее в таблицу строк НомерСтроки = 0; Если ТаблицаСтрок.НайтиЗначение(Авансы.НомерСтрокиДокумента,НомерСтроки,"НомерСтрокиДокумента")>0 Тогда ТаблицаСтрок.ПолучитьСтрокуПоНомеру(НомерСтроки); ТаблицаСтрок.СчетаФактуры.ДобавитьЗначение(ТаблицаСчетовФактур.СчетФактура); Авансы.УдалитьСтроку(Авансы.НомерСтроки); ТаблицаСчетовФактур.УдалитьСтроку(НомерСтрокСчетовФактур); Прервать; КонецЕсли; КонецЕсли; ИначеЕсли (Авансы.Тип = ТаблицаСчетовФактур.Тип) и (Авансы.Контрагент = ТаблицаСчетовФактур.Контрагент) и (Авансы.ДоговорСчетаФактуры = ТаблицаСчетовФактур.Договор) Тогда //нашли подходящую строку - добавляем ее в таблицу строк НомерСтроки = 0; Если ТаблицаСтрок.НайтиЗначение(Авансы.НомерСтрокиДокумента,НомерСтроки,"НомерСтрокиДокумента")>0 Тогда ТаблицаСтрок.ПолучитьСтрокуПоНомеру(НомерСтроки); ТаблицаСтрок.СчетаФактуры.ДобавитьЗначение(ТаблицаСчетовФактур.СчетФактура); Авансы.УдалитьСтроку(Авансы.НомерСтроки); ТаблицаСчетовФактур.УдалитьСтроку(НомерСтрокСчетовФактур); Прервать; КонецЕсли; КонецЕсли; КонецЦикла; НомерСтрокСчетовФактур = НомерСтрокСчетовФактур - 1; КонецЦикла; ТаблицаСчетовФактур.Сортировать("-СуммаСчетаФактуры"); ТаблицаСтрок.Сортировать("-НераспределенныйАванс"); //теперь распределяем просто по подходящим строкам выписки с учетом того, //что не должно быть 2 счетов-фактур с одинаковым типом, контрагентом и договором в одной строке выписки АвансовыеСчета = ",62.2,62.7,62.22,"; ТаблицаСчетовФактур.ВыбратьСтроки(); Пока ТаблицаСчетовФактур.ПолучитьСтроку()=1 Цикл НайденнаяСтрока = 0; ТаблицаСтрок.ВыбратьСтроки(); Пока ТаблицаСтрок.ПолучитьСтроку()=1 Цикл Если Найти(АвансовыеСчета,","+ТаблицаСтрок.КоррСчет+",")>0 Тогда Если (ТаблицаСчетовФактур.Контрагент = ТаблицаСтрок.Контрагент) Тогда НайденнаяСтрока = ?(НайденнаяСтрока=0,ТаблицаСтрок.НомерСтроки,НайденнаяСтрока); Найдено = 0; //теперь поищем уже распределенную счет-фактуру с таким же типом Для НомерСчетФактуры = 1 по ТаблицаСтрок.СчетаФактуры.РазмерСписка() Цикл СФ = ТаблицаСтрок.СчетаФактуры.ПолучитьЗначение(НомерСчетФактуры); Если СФ.ВидОперации = ТаблицаСчетовФактур.Тип Тогда Найдено = 1; КонецЕсли; КонецЦикла; Если Найдено = 0 Тогда ТаблицаСтрок.СчетаФактуры.ДобавитьЗначение(ТаблицаСчетовФактур.СчетФактура); НайденнаяСтрока = 0; Прервать; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если НайденнаяСтрока>0 Тогда //мы не смогли найти подходящую строку выписки, поэтому распределяем на самую первую подошедшую ТаблицаСтрок.ПолучитьСтрокуПоНомеру(НайденнаяСтрока); ТаблицаСтрок.СчетаФактуры.ДобавитьЗначение(ТаблицаСчетовФактур.СчетФактура); КонецЕсли; КонецЦикла; ТаблицаСтрок.Сортировать("НомерСтрокиДокумента"); //********************************************************* УзелСсылки = мПустоеЗначение; //теперь сформируем на основе этой таблицы документы списание с расчетного счета ТаблицаСтрок.Сортировать("УникальностьОперации"); ТекущаяОперация = ""; СуммаДокумента = 0; ВходящиеДанныеДокумента = ""; НомераСтрокВыписки = ""; НазначениеПлатежа = ""; ТаблицаСтрок.ВыбратьСтроки(); Пока ТаблицаСтрок.ПолучитьСтроку()=1 Цикл Если ПустоеЗначение(ТаблицаСтрок.ВидОперации)=1 Тогда Продолжить; КонецЕсли; Если (ТаблицаСтрок.УникальностьОперации <> ТекущаяОперация) Тогда Если ТекущаяОперация <> "" Тогда //выгружаем собранный документ ВходящиеДанныеДокумента.Установить("СуммаДокумента",СуммаДокумента); ВходящиеДанныеДокумента.Установить("НомераСтрокВыписки",НомераСтрокВыписки); ВходящиеДанныеДокумента.Установить("НазначениеПлатежа",НазначениеПлатежа); ВходящиеДанныеДокумента.Установить("Комментарий",ВходящиеДанныеДокумента.Получить("Комментарий")+НомераСтрокВыписки); УзелСсылкиВыписки = ВыгрузитьПоПравилу(Источник, , ВходящиеДанныеДокумента, , "ПоступлениеНаРасчетныйСчет"); Если (ПустоеЗначение(ВходящиеДанные.Получить("ПоступлениеСчетФактура"))=0) Тогда СчетаФактуры = ВходящиеДанныеДокумента.Получить("СчетаФактуры"); Для НомерСФ = 1 По СчетаФактуры.РазмерСписка() Цикл Если СчетаФактуры.ПолучитьЗначение(НомерСФ)= ВходящиеДанные.Получить("ПоступлениеСчетФактура") Тогда УзелСсылки = УзелСсылкиВыписки; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; ВходящиеДанныеДокумента = СоздатьОбъект("СписокЗначений"); ВходящиеДанныеДокумента.Установить("Комментарий","# Перенесен из Бухгалтерии 7.7 Выписка №"+Источник.НомерДок+" от "+формат(Источник.ДатаДок,"ДДДММГГГГ")+" строки: "); ВходящиеДанныеДокумента.Установить("ВидОперации",ТаблицаСтрок.ВидОперации); ВходящиеДанныеДокумента.Установить("ДатаВходящегоДокумента",ТаблицаСтрок.ДатаДокВходящий); ВходящиеДанныеДокумента.Установить("НомерВходящегоДокумента",ТаблицаСтрок.НомерДокВходящий); ВходящиеДанныеДокумента.Установить("ВалютаДокумента",?(ПустоеЗначение(Источник.Валюта)=0, Источник.Валюта, Параметры.Рубли)); ВходящиеДанныеДокумента.Установить("ДокументОснование",ТаблицаСтрок.ДокументПоставки); ВходящиеДанныеДокумента.Установить("Контрагент",ТаблицаСтрок.Контрагент); ВходящиеДанныеДокумента.Установить("ДоговорКонтрагента",ТаблицаСтрок.Договор); ВходящиеДанныеДокумента.Установить("Банк",ТаблицаСтрок.Банк); ВходящиеДанныеДокумента.Установить("ДоговорБанка",ТаблицаСтрок.ДоговорБанка); ВходящиеДанныеДокумента.Установить("СтатьяДвиженияДенежныхСредств",ТаблицаСтрок.ВидДвижения); ВходящиеДанныеДокумента.Установить("КурсНаДатуПриобретенияРеализацииВалюты",0); ВходящиеДанныеДокумента.Установить("ОтражатьРазницуВКурсеВСоставеОперационныхРасходов",1); ВходящиеДанныеДокумента.Установить("СчетБанк",?(Валютный=2,СчетПоКоду("52"),СчетПоКоду("51"))); ВходящиеДанныеДокумента.Установить("СчетУчетаРасчетовСКонтрагентом",ТаблицаСтрок.КоррСчет); Если (ТаблицаСтрок.ВидОперации = "ПрочееПоступление") Тогда ВходящиеДанныеДокумента.Установить("ПодразделениеКт",ТаблицаСтрок.Подразделение); ВходящиеДанныеДокумента.Установить("СубконтоКт1",ТаблицаСтрок.Субконто1); ВходящиеДанныеДокумента.Установить("СубконтоКт2",ТаблицаСтрок.Субконто2); ВходящиеДанныеДокумента.Установить("СубконтоКт3",ТаблицаСтрок.Субконто3); Иначе ВходящиеДанныеДокумента.Установить("ПодразделениеКт",""); ВходящиеДанныеДокумента.Установить("СубконтоКт1",""); ВходящиеДанныеДокумента.Установить("СубконтоКт2",""); ВходящиеДанныеДокумента.Установить("СубконтоКт3",""); КонецЕсли; ВходящиеДанныеДокумента.Установить("СчетОрганизации",ТаблицаСтрок.БанковскийСчет); ВходящиеДанныеДокумента.Установить("СчетКонтрагента",ТаблицаСтрок.СчетКонтрагента); ВходящиеДанныеДокумента.Установить("СчетаФактуры",СоздатьОбъект("СписокЗначений")); ВходящиеДанныеДокумента.Установить("ПометкаУдаления",Источник.ПометкаУдаления()); ТаблицаРасшифровка = СоздатьОбъект("ТаблицаЗначений"); ТаблицаРасшифровка.НоваяКолонка("ДоговорКонтрагента"); ТаблицаРасшифровка.НоваяКолонка("ДоговорБанка"); ТаблицаРасшифровка.НоваяКолонка("КратностьВзаиморасчетов"); ТаблицаРасшифровка.НоваяКолонка("КурсВзаиморасчетов"); ТаблицаРасшифровка.НоваяКолонка("СпособПогашенияЗадолженности"); ТаблицаРасшифровка.НоваяКолонка("СтавкаНДС"); ТаблицаРасшифровка.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); ТаблицаРасшифровка.НоваяКолонка("ПодразделениеКт"); ТаблицаРасшифровка.НоваяКолонка("СубконтоКт1"); ТаблицаРасшифровка.НоваяКолонка("СубконтоКт2"); ТаблицаРасшифровка.НоваяКолонка("СубконтоКт3"); ТаблицаРасшифровка.НоваяКолонка("СуммаВзаиморасчетов"); ТаблицаРасшифровка.НоваяКолонка("СуммаНДС"); ТаблицаРасшифровка.НоваяКолонка("СуммаПлатежа"); ТаблицаРасшифровка.НоваяКолонка("СчетУчетаРасчетовПоАвансам"); ТаблицаРасшифровка.НоваяКолонка("СчетУчетаРасчетовСКонтрагентом"); ТаблицаРасшифровка.НоваяКолонка("Сделка"); ТаблицаРасшифровка.НоваяКолонка("СчетНаОплату"); ВходящиеДанныеДокумента.Установить("РасшифровкаПлатежа",ТаблицаРасшифровка); СуммаДокумента = 0; ТекущаяОперация = ТаблицаСтрок.УникальностьОперации; НомераСтрокВыписки = ""; НазначениеПлатежа = ""; КонецЕсли; ТаблицаРасшифровка.НоваяСтрока(); ТаблицаРасшифровка.ДоговорКонтрагента = ТаблицаСтрок.Договор; ТаблицаРасшифровка.ДоговорБанка = ТаблицаСтрок.ДоговорБанка; ТаблицаРасшифровка.КратностьВзаиморасчетов = 1; ТаблицаРасшифровка.КурсВзаиморасчетов = 1; Если ТаблицаСтрок.ВидОперации = "ПоступленияОтПродажиИностраннойВалюты" Тогда Если ПустоеЗначение(ТаблицаСтрок.ПроданнаяВалюта)=0 Тогда Кратность = ТаблицаСтрок.ПроданнаяВалюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); ТаблицаРасшифровка.КратностьВзаиморасчетов = Кратность; КонецЕсли; ТаблицаРасшифровка.КурсВзаиморасчетов = ?(ТаблицаСтрок.СуммаПроданнойВалюты = 0, 0, ТаблицаСтрок.Сумма / ТаблицаСтрок.СуммаПроданнойВалюты * Кратность); ТаблицаРасшифровка.СуммаВзаиморасчетов = ТаблицаСтрок.СуммаПроданнойВалюты; ВходящиеДанныеДокумента.Установить("КурсНаДатуПриобретенияРеализацииВалюты",ТаблицаСтрок.КурсПокупкиПродажи); ИначеЕсли ТаблицаСтрок.ВидОперации = "ПриобретениеИностраннойВалюты" Тогда Кратность = Источник.Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); ТаблицаРасшифровка.КратностьВзаиморасчетов = Кратность; ТаблицаРасшифровка.КурсВзаиморасчетов = ?(ТаблицаСтрок.КурсПокупкиПродажи = 0, Источник.Валюта.Курс.Получить(Источник.ДатаДок),ТаблицаСтрок.КурсПокупкиПродажи); ТаблицаРасшифровка.СуммаВзаиморасчетов = ТаблицаСтрок.Сумма*ТаблицаРасшифровка.КурсВзаиморасчетов/Кратность; ВходящиеДанныеДокумента.Установить("КурсНаДатуПриобретенияРеализацииВалюты", Источник.Валюта.Курс.Получить(Источник.ДатаДок)); Иначе //если валюта в договоре - то нужно установить курс и кратность Если ПустоеЗначение(ТаблицаСтрок.Договор)=0 Тогда ВалютаДокумента = ТаблицаСтрок.Договор.ВалютаДоговора; Если ПустоеЗначение(ТаблицаСтрок.Договор.ВалютаДоговора)=0 Тогда ТаблицаРасшифровка.КурсВзаиморасчетов = ?(ТаблицаСтрок.Договор.ВестиУчетРасчетовУЕ = 1,ТаблицаСтрок.КурсОплаты,ВалютаДокумента.Курс.Получить(Источник.ДатаДок)); Кратность = ВалютаДокумента.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если ТаблицаСтрок.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + ТаблицаСтрок.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; ТаблицаРасшифровка.КратностьВзаиморасчетов = Кратность; КонецЕсли; КонецЕсли; //для валютного счета сумма взаиморасчетов и сумма платежа совпадают, они отличаются только для расчетов в УЕ Если Валютный = 1 Тогда ТаблицаРасшифровка.СуммаВзаиморасчетов = ?(ТаблицаРасшифровка.КурсВзаиморасчетов=0,0,ТаблицаСтрок.Сумма * ТаблицаРасшифровка.КратностьВзаиморасчетов / ТаблицаРасшифровка.КурсВзаиморасчетов); Иначе ТаблицаРасшифровка.СуммаВзаиморасчетов = ТаблицаСтрок.Сумма; КонецЕсли; КонецЕсли; Если (ТаблицаСтрок.ВидОперации = "ОплатаПокупателя") или (ТаблицаСтрок.ВидОперации = "ВозвратОтПоставщика") Тогда Если ПустоеЗначение(ТаблицаСтрок.ДокументПоставки)=1 Тогда ТаблицаРасшифровка.СпособПогашенияЗадолженности = "Автоматически"; Иначе Если (ТаблицаСтрок.ДокументПоставки.Вид()="Счет") Тогда ТаблицаРасшифровка.СпособПогашенияЗадолженности = "Автоматически"; ТаблицаРасшифровка.СчетНаОплату = ТаблицаСтрок.ДокументПоставки; ИначеЕсли (ТаблицаСтрок.ДокументПоставки.Вид()="ВыполнениеЭтапаРабот") Тогда ТаблицаРасшифровка.СпособПогашенияЗадолженности = "Автоматически"; Иначе ТаблицаРасшифровка.СпособПогашенияЗадолженности = "ПоДокументу"; ТаблицаРасшифровка.Сделка = ТаблицаСтрок.ДокументПоставки; КонецЕсли; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ТаблицаСтрок.СтавкаНДС); ПолучитьСтавкуНДС(); ТаблицаРасшифровка.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Если ПустоеЗначение(ТаблицаСтрок.СтавкаНДС) = 0 Тогда ТаблицаРасшифровка.СуммаНДС = ТаблицаСтрок.Сумма*ТаблицаСтрок.СтавкаНДС.Ставка/(100+ТаблицаСтрок.СтавкаНДС.Ставка); КонецЕсли; ТаблицаРасшифровка.СтатьяДвиженияДенежныхСредств = ТаблицаСтрок.ВидДвижения; ТаблицаРасшифровка.СуммаПлатежа = ТаблицаСтрок.Сумма; //по счету определяем пару расчетных счетов СтрокаСчета = ""; Если Параметры.ТаблицаСчетовРасчета.НайтиЗначение(ТаблицаСтрок.КоррСчет,СтрокаСчета,"")=1 Тогда ТаблицаРасшифровка.СчетУчетаРасчетовПоАвансам = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"АвансовыйСчет"); ТаблицаРасшифровка.СчетУчетаРасчетовСКонтрагентом = Параметры.ТаблицаСчетовРасчета.ПолучитьЗначение(СтрокаСчета,"РасчетныйСчет"); Иначе ТаблицаРасшифровка.СчетУчетаРасчетовПоАвансам = ТаблицаСтрок.КоррСчет; ТаблицаРасшифровка.СчетУчетаРасчетовСКонтрагентом = ТаблицаСтрок.КоррСчет; КонецЕсли; Если (ТаблицаСтрок.ВидОперации = "Инкассация") Тогда ТаблицаРасшифровка.ПодразделениеКт = ТаблицаСтрок.Подразделение; ТаблицаРасшифровка.СубконтоКт1 = ТаблицаСтрок.Субконто1; ТаблицаРасшифровка.СубконтоКт2 = ТаблицаСтрок.Субконто2; ТаблицаРасшифровка.СубконтоКт3 = ТаблицаСтрок.Субконто3; КонецЕсли; Если (ВходящиеДанныеДокумента.Получить("ДатаВходящегоДокумента") <> ТаблицаСтрок.ДатаДокВходящий) или (ВходящиеДанныеДокумента.Получить("НомерВходящегоДокумента") <> ТаблицаСтрок.НомерДокВходящий) Тогда //если дата и номер входящего документа очередной строки отличаются от даты и номера предыдущей строки документа - то очищаем их //это справедливо только для тех документов, которые будут содержать несколько строк выписки ВходящиеДанныеДокумента.Установить("ДатаВходящегоДокумента",""); ВходящиеДанныеДокумента.Установить("НомерВходящегоДокумента",""); КонецЕсли; НомераСтрокВыписки = НомераСтрокВыписки+?(НомераСтрокВыписки="","",", ")+Строка(ТаблицаСтрок.НомерСтрокиДокумента); НазначениеПлатежа = НазначениеПлатежа +?(НазначениеПлатежа="","",", ")+СокрЛП(ТаблицаСтрок.НазначениеПлатежа); СуммаДокумента = СуммаДокумента + ТаблицаСтрок.Сумма; Для НомерСФ = 1 По ТаблицаСтрок.СчетаФактуры.РазмерСписка() Цикл ВходящиеДанныеДокумента.Получить("СчетаФактуры").ДобавитьЗначение(ТаблицаСтрок.СчетаФактуры.ПолучитьЗначение(НомерСФ)); КонецЦикла; КонецЦикла; Если ТекущаяОперация <> "" Тогда //выгружаем собранный документ ВходящиеДанныеДокумента.Установить("СуммаДокумента",СуммаДокумента); ВходящиеДанныеДокумента.Установить("НомераСтрокВыписки",НомераСтрокВыписки); ВходящиеДанныеДокумента.Установить("НазначениеПлатежа",НазначениеПлатежа); ВходящиеДанныеДокумента.Установить("Комментарий",ВходящиеДанныеДокумента.Получить("Комментарий")+НомераСтрокВыписки); УзелСсылкиВыписки = ВыгрузитьПоПравилу(Источник, , ВходящиеДанныеДокумента, , "ПоступлениеНаРасчетныйСчет"); Если (ПустоеЗначение(ВходящиеДанные.Получить("ПоступлениеСчетФактура"))=0) Тогда СчетаФактуры = ВходящиеДанныеДокумента.Получить("СчетаФактуры"); Для НомерСФ = 1 По СчетаФактуры.РазмерСписка() Цикл Если СчетаФактуры.ПолучитьЗначение(НомерСФ)= ВходящиеДанные.Получить("ПоступлениеСчетФактура") Тогда УзелСсылки = УзелСсылкиВыписки; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; Отказ = 1; <ПослеВыгрузки>Отказ = 1; <НеЗапоминатьВыгруженные>true <Источник>ДокументСсылка.Выписка <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>СписаниеСРасчетногоСчета <Наименование>: <Порядок>1900 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + ВходящиеДанные.Получить("НомераСтрокВыписки"); <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетУчетаРасчетовСКонтрагентом"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоДт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Свойства> <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>26 <Наименование> --> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение=ПолучитьДатуV8(Источник.ДатаДок, Источник.ПолучитьВремя()); <Свойство Поиск="true"> <Код>8 <Наименование> --> Комментарий <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>47 <Наименование> --> ПометкаУдаления <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>15 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>3 <Наименование> --> ВидОперации <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств"/> <Свойство> <Код>4 <Наименование> --> ДатаВходящегоДокумента <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>12 <Наименование> --> НомерВходящегоДокумента <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> ДокументОснование <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",ВходящиеДанные.Получить("ДокументОснование")); ОпределитьПКОДляДокумента(); <Свойство> <Код>2 <Наименование> --> ВалютаДокумента <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование> --> Контрагент <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Банк = ВходящиеДанные.Получить("Банк"); Если ПустоеЗначение(Банк)=0 Тогда Значение = Банк; ИмяПКО = "КонтрагентБанк"; КонецЕсли; <Свойство> <Код>6 <Наименование> --> ДоговорКонтрагента <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ДоговорБанка = ВходящиеДанные.Получить("ДоговорБанка"); Если ПустоеЗначение(ДоговорБанка)=0 Тогда Значение = ДоговорБанка; ИмяПКО = "ДоговорПродажиВалюты"; КонецЕсли; <Свойство Отключить="true"> <Код>1 <Наименование> --> ВалютаВзаиморасчетовРаботника <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетовРаботника" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Свойство Отключить="true"> <Код>5 <Наименование> --> ДоговорЗайма <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорЗайма" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> НазначениеПлатежа <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> НеПодтвержденоВыпискойБанка <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НеПодтвержденоВыпискойБанка" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>16 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>14 <Наименование> --> ПодразделениеДт <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеДт" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>17 <Наименование> --> СубконтоДт1 <Порядок>950 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт1" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("СубконтоДт1"); Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ВходящиеДанные.Получить("СчетУчетаРасчетовСКонтрагентом")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ВходящиеДанные.Получить("СубконтоДт1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ВходящиеДанные.Получить("СубконтоДт2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ВходящиеДанные.Получить("СубконтоДт3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование> --> СубконтоДт2 <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт2" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("СубконтоДт2"); Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ВходящиеДанные.Получить("СчетУчетаРасчетовСКонтрагентом")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ВходящиеДанные.Получить("СубконтоДт1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ВходящиеДанные.Получить("СубконтоДт2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ВходящиеДанные.Получить("СубконтоДт3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>19 <Наименование> --> СубконтоДт3 <Порядок>1050 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт3" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("СубконтоДт3"); Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ВходящиеДанные.Получить("СчетУчетаРасчетовСКонтрагентом")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ВходящиеДанные.Получить("СубконтоДт1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ВходящиеДанные.Получить("СубконтоДт2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ВходящиеДанные.Получить("СубконтоДт3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>20 <Наименование> --> СуммаДокумента <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование> --> СчетБанк <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетБанк" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>23 <Наименование> --> СчетОрганизации <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>22 <Наименование> --> СчетКонтрагента <Порядок>1250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <ПередВыгрузкой>СчетКонтрагента = ВходящиеДанные.Получить("СчетКонтрагента"); Если ПустоеЗначение(СчетКонтрагента)=0 Тогда Если СчетКонтрагента.Вид()="БанковскиеСчета" Тогда ИмяПКО = "БанковскиеСчета"; Если ПустоеЗначение(ВходящиеДанные.Получить("Банк"))=0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",ВходящиеДанные.Получить("Банк")); КонецЕсли; Иначе ИмяПКО = "РасчетныеСчета "; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>25 <Наименование> --> ФизЛицо <Порядок>1350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Группа> <Код>29 <Наименование> --> РасшифровкаПлатежа <Порядок>1400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>30 <Наименование> --> ДоговорКонтрагента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ДоговорБанка)=0 Тогда Значение = ОбъектКоллекции.ДоговорБанка; ИмяПКО = "ДоговорПродажиВалюты"; ИначеЕсли ПустоеЗначение(ОбъектКоллекции.ДоговорКонтрагента)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); ОпределитьВидДоговора(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>31 <Наименование> --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> СпособПогашенияЗадолженности <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <Свойство> <Код>34 <Наименование> --> СтавкаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>35 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>36 <Наименование> --> СуммаВзаиморасчетов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СуммаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> СуммаПлатежа <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>40 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>41 <Наименование> --> Сделка <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Сделка)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",ОбъектКоллекции.Сделка); ОпределитьПКОДляДокумента(); Иначе Отказ = 1; КонецЕсли; <Группа> <Код>42 <Наименование> --> ПеречислениеЗаработнойПлаты <Порядок>1450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПеречислениеЗаработнойПлаты" Вид="ТабличнаяЧасть"/> <Свойство> <Код>46 <Наименование> --> Физлицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>43 <Наименование> --> Ведомость <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Ведомость" Вид="Реквизит" Тип="ДокументСсылка.ЗарплатаКВыплатеОрганизаций"/> <КодПравилаКонвертации>ВыплатаЗПКасса <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Ведомость) = 0 Тогда Если ОбъектКоллекции.Ведомость.Вид()="Выписка" Тогда ИмяПКО = "ЗарплатаКВыплатеОрганизаций"; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>44 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>45 <Наименование> --> СуммаПлатежа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеНаРасчетныйСчет <Наименование>: <Порядок>1950 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + ВходящиеДанные.Получить("НомераСтрокВыписки"); <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетУчетаРасчетовСКонтрагентом"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоКт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Свойства> <Свойство Поиск="true"> <Код>11 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>26 <Наименование> --> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение=ПолучитьДатуV8(Источник.ДатаДок, Источник.ПолучитьВремя()); <Свойство Поиск="true"> <Код>6 <Наименование> --> Комментарий <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>46 <Наименование> --> ПометкаУдаления <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>15 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование> --> ВидОперации <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеДенежныхСредств"/> <Свойство> <Код>3 <Наименование> --> ДатаВходящегоДокумента <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>10 <Наименование> --> НомерВходящегоДокумента <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование> --> ВалютаДокумента <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>5 <Наименование> --> ДокументОснование <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",ВходящиеДанные.Получить("ДокументОснование")); ОпределитьПКОДляДокумента(); <Свойство> <Код>7 <Наименование> --> Контрагент <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Банк = ВходящиеДанные.Получить("Банк"); Если ПустоеЗначение(Банк)=0 Тогда Значение = Банк; ИмяПКО = "КонтрагентБанк"; КонецЕсли; <Свойство> <Код>4 <Наименование> --> ДоговорКонтрагента <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ДоговорБанка = ВходящиеДанные.Получить("ДоговорБанка"); Если ПустоеЗначение(ДоговорБанка)=0 Тогда Значение = ДоговорБанка; ИмяПКО = "ДоговорПродажиВалюты"; КонецЕсли; <Свойство> <Код>16 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>8 <Наименование> --> КурсНаДатуПриобретенияРеализацииВалюты <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КурсНаДатуПриобретенияРеализацииВалюты" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> НазначениеПлатежа <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> ОтражатьРазницуВКурсеВСоставеОперационныхРасходов <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьРазницуВКурсеВСоставеОперационныхРасходов" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>22 <Наименование> --> СчетБанк <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетБанк" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>25 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>950 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>14 <Наименование> --> ПодразделениеКт <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеКт" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>17 <Наименование> --> СубконтоКт1 <Порядок>1050 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("СубконтоКт1"); Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ВходящиеДанные.Получить("СчетУчетаРасчетовСКонтрагентом")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ВходящиеДанные.Получить("СубконтоКт1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ВходящиеДанные.Получить("СубконтоКт2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ВходящиеДанные.Получить("СубконтоКт3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование> --> СубконтоКт2 <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("СубконтоКт2"); Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ВходящиеДанные.Получить("СчетУчетаРасчетовСКонтрагентом")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ВходящиеДанные.Получить("СубконтоКт1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ВходящиеДанные.Получить("СубконтоКт2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ВходящиеДанные.Получить("СубконтоКт3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>19 <Наименование> --> СубконтоКт3 <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт3" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("СубконтоКт3"); Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ВходящиеДанные.Получить("СчетУчетаРасчетовСКонтрагентом")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ВходящиеДанные.Получить("СубконтоКт1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ВходящиеДанные.Получить("СубконтоКт2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ВходящиеДанные.Получить("СубконтоКт3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>20 <Наименование> --> СуммаДокумента <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> СуммаУслуг <Порядок>1250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаУслуг" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование> --> СчетКонтрагента <Порядок>1300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <ПередВыгрузкой>СчетКонтрагента = ВходящиеДанные.Получить("СчетКонтрагента"); Если ПустоеЗначение(СчетКонтрагента)=0 Тогда Если СчетКонтрагента.Вид()="БанковскиеСчета" Тогда ИмяПКО = "БанковскиеСчета"; Если ПустоеЗначение(ВходящиеДанные.Получить("Банк"))=0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец",ВходящиеДанные.Получить("Банк")); КонецЕсли; Иначе ИмяПКО = "РасчетныеСчета"; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование> --> СчетОрганизации <Порядок>1350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Группа> <Код>28 <Наименование> --> РасшифровкаПлатежа <Порядок>1400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>29 <Наименование> --> ДоговорКонтрагента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ДоговорБанка)=0 Тогда Значение = ОбъектКоллекции.ДоговорБанка; ИмяПКО = "ДоговорПродажиВалюты"; ИначеЕсли ПустоеЗначение(ОбъектКоллекции.ДоговорКонтрагента)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",ОбъектКоллекции.ДоговорКонтрагента); Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); ОпределитьВидДоговора(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>30 <Наименование> --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> СпособПогашенияЗадолженности <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <Свойство> <Код>35 <Наименование> --> СтавкаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>36 <Наименование> --> СтатьяДвиженияДенежныхСредств <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>32 <Наименование> --> ПодразделениеКт <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеКт" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>37 <Наименование> --> СубконтоКт1 <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СубконтоКт1; Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>38 <Наименование> --> СубконтоКт2 <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СубконтоКт2; Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>39 <Наименование> --> СубконтоКт3 <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт3" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СубконтоКт3; Если ПустоеЗначение(Значение)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетУчетаРасчетовСКонтрагентом); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Значение); ПриВыгрузкеСубконто(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>40 <Наименование> --> СуммаВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>41 <Наименование> --> СуммаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> СуммаПлатежа <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> СчетНаОплату <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНаОплату" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <КодПравилаКонвертации>СчетНаОплатуПокупателю <Свойство> <Код>44 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>45 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>33 <Наименование> --> Сделка <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Сделка)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",ОбъектКоллекции.Сделка); ОпределитьПКОДляДокумента(); Иначе Отказ = 1; КонецЕсли; <Значения/> <Правило> <Код>ПродажаВРозницу <Наименование>Документ: Продажа в розницу <Порядок>2000 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ПродажаВРозницу <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>12 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>6 <Наименование>ТипЦен --> ТипЦен <Порядок>300 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>7 <Наименование> --> ВалютаДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>8 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийОтчетОРозничныхПродажах"/> <ПередВыгрузкой>Если Параметры.СписокСкладовНТТ.НайтиЗначение(Источник.МестоХранения)>0 Тогда Значение = "ОтчетНТТОПродажах"; Иначе Значение = "ОтчетККМОПродажах"; КонецЕсли; <Свойство Отключить="true"> <Код>9 <Наименование> --> ИнвентаризацияТоваровНаСкладе <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентаризацияТоваровНаСкладе" Вид="Реквизит" Тип="ДокументСсылка.ИнвентаризацияТоваровНаСкладе"/> <Свойство> <Код>10 <Наименование> --> КратностьДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>11 <Наименование> --> КурсДокумента <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство Отключить="true"> <Код>13 <Наименование> --> ПодразделениеОрганизации <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>14 <Наименование>МестоХранения --> Склад <Порядок>650 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>15 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>700 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>16 <Наименование> --> СуммаВключаетНДС <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; //для склада НТТ "Сумма включает НДС" должна быть всегда установлен Если Источник.МестоХранения.ТипСклада = Перечисление.ТипыСкладов.Розничный Тогда Если Параметры.СписокСкладовНТТ.НайтиЗначение(Источник.МестоХранения)>0 Тогда Значение = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>17 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>18 <Наименование> --> СчетКасса <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКасса" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("50.1"); <Свойство> <Код>19 <Наименование> --> УчитыватьНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>20 <Наименование> --> Товары <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Себестоимость"); //КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетДоходов"); КоллекцияОбъектов.НоваяКолонка("Субконто"); КоллекцияОбъектов.НоваяКолонка("СчетРасходов"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДСПоРеализации"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); ЭтоСкладНТТ = 0; //для склада НТТ "Сумма включает НДС" должна быть всегда установлен Если Источник.МестоХранения.ТипСклада = Перечисление.ТипыСкладов.Розничный Тогда Если Параметры.СписокСкладовНТТ.НайтиЗначение(Источник.МестоХранения)>0 Тогда ЭтоСкладНТТ = 1; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда СуммаВключаетНДС = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе СуммаВключаетНДС = 0; КонецЕсли; //сначала заполним таблицу из документа Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Товар; КоллекцияОбъектов.Количество = Источник.Количество; КоллекцияОбъектов.Цена = Источник.Цена; Если (ЭтоСкладНТТ = 1) И (СуммаВключаетНДС = 0) Тогда КоллекцияОбъектов.Сумма = Источник.Сумма + Источник.НДС; Иначе КоллекцияОбъектов.Сумма = Источник.Сумма; КонецЕсли; Если Источник.ПродажаОблагаетсяЕНВД = 0 Тогда СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.Товар); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Иначе КоллекцияОбъектов.СтавкаНДС = "БезНДС"; КонецЕсли; КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.НоваяКолонка("Себестоимость"); Параметры.ПараметрыАлгоритмов.Установить("ТоварМестоХранения",Источник.МестоХранения); Параметры.ПараметрыАлгоритмов.Установить("Товар",Источник.Товар); ПолучитьСчетУчетаТоваров(); КоллекцияОбъектов.СчетУчета = Параметры.ПараметрыАлгоритмов.Получить("СчетУчетаТовара"); Если (Источник.ПродажаОблагаетсяЕНВД = 0) и (Источник.Товар.ВидНоменклатуры.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.УслугаЕНВД) Тогда КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.1"); КоллекцияОбъектов.Субконто = Источник.Товар.ВидНоменклатуры; КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.1"); Иначе КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.2"); КоллекцияОбъектов.Субконто = Источник.Товар.ВидНоменклатуры; КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.2"); КонецЕсли; КоллекцияОбъектов.СчетУчетаНДСПоРеализации = СчетПоКоду("90.3"); КоллекцияОбъектов.НомерГТД = Источник.ГТД; Если ПустоеЗначение(Источник.ГТД)=0 Тогда КоллекцияОбъектов.СтранаПроисхождения = Источник.ГТД.СтранаПроисхождения; КонецЕсли; КонецЦикла; <Свойство Отключить="true"> <Код>21 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство> <Код>23 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>22 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> Себестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование> --> Цена <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>30 <Наименование> --> СуммаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> СчетДоходов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>28 <Наименование> --> Субконто <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>32 <Наименование> --> СчетРасходов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>33 <Наименование> --> СчетУчета <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>34 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>24 <Наименование> --> НомерГТД <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>27 <Наименование> --> СтранаПроисхождения <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Значения/> <Правило> <Код>ИнвентаризацияТМЦ_ТМЦ <Наименование>Документ: Инвентаризация ТМЦ <Порядок>2050 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ВидТМЦ<>1) и (Источник.ВидТМЦ<>3) Тогда Отказ = 1; КонецЕсли; <ПослеВыгрузкиВФайл>//выгружаем теперь документы движения по складу, если нужно ОтклонениеНедостача = 0; ОтклонениеИзлишек = 0; ОтклонениеРозница = 0; Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если (Источник.ВидТМЦ = 1) и (СокрЛП(Источник.ФормироватьПроводку) = "Нет") Тогда Продолжить; КонецЕсли; Отклонение = ?(Источник.ВидТМЦ = 3,Источник.ОтклНедостача, Источник.Количество - Источник.КоличествоУчет); Если (Отклонение > 0) Тогда ОтклонениеИзлишек = ОтклонениеИзлишек + Отклонение; ИначеЕсли (Отклонение < 0) Тогда ОтклонениеНедостача = ОтклонениеНедостача - Отклонение; КонецЕсли; Если (Источник.ВидТМЦ = 3) Тогда ОтклонениеРозница = ОтклонениеРозница + Источник.КоличествоУчет + Источник.ОтклНедостача - Источник.Количество; КонецЕсли; КонецЦикла; ИнвентаризацияВходящиеДанные = СоздатьОбъект("СписокЗначений"); ИнвентаризацияВходящиеДанные.Установить("ИнвентаризацияТоваровНаСкладе",Источник); Если ОтклонениеИзлишек > 0 Тогда ВыгрузитьПоПравилу(Источник,,ИнвентаризацияВходящиеДанные,,"ИнвентаризацияТМЦ_Оприходывание"); КонецЕсли; Если ОтклонениеНедостача > 0 Тогда ВыгрузитьПоПравилу(Источник,,ИнвентаризацияВходящиеДанные,,"ИнвентаризацияТМЦ_СписаниеТоваров"); КонецЕсли; Если ОтклонениеРозница > 0 Тогда ВыгрузитьПоПравилу(Источник,,ИнвентаризацияВходящиеДанные,,"ИнвентаризацияТМЦ_Розница"); КонецЕсли; <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>10 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ДатаНачала --> ДатаНачалаИнвентаризации <Порядок>300 <Источник Имя="ДатаНачала" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаНачалаИнвентаризации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>6 <Наименование> --> ДатаОкончанияИнвентаризации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаОкончанияИнвентаризации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование> --> ДокументОснованиеВид <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснованиеВид" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ОснованиеДата --> ДокументОснованиеДата <Порядок>450 <Источник Имя="ОснованиеДата" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДокументОснованиеДата" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>9 <Наименование>ОснованиеНомер --> ДокументОснованиеНомер <Порядок>500 <Источник Имя="ОснованиеНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ДокументОснованиеНомер" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>МестоХранения --> Склад <Порядок>550 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>26 <Наименование> --> ОтветственноеЛицо <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ОтветственноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Если (Источник.ВидТМЦ=1) Тогда Значение = Источник.ВыбМОЛСклада; Иначе Значение = Источник.РозничныйСклад.МОЛ; КонецЕсли; <Группа> <Код>14 <Наименование> --> ИнвентаризационнаяКомиссия <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентаризационнаяКомиссия" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Председатель"); КоллекцияОбъектов.НоваяКолонка("ФизЛицо"); Если ПустоеЗначение(Источник.Председатель)=0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Председатель = 1; КоллекцияОбъектов.ФизЛицо = Источник.Председатель; КонецЕсли; Для к = 1 по 3 Цикл Если ПустоеЗначение(Источник.ПолучитьАтрибут("Член"+к))=0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ФизЛицо = Источник.ПолучитьАтрибут("Член"+к); КонецЕсли; КонецЦикла; <Свойство> <Код>15 <Наименование> --> Председатель <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Председатель" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>16 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Группа> <Код>17 <Наименование>ТабличнаяЧасть --> Товары <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>20 <Наименование>МПЗ --> Номенклатура <Порядок>50 <Источник Имя="МПЗ" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>18 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>Счет --> СчетУчета <Порядок>150 <Источник Имя="Счет" Вид="Реквизит" Тип="ПланСчетовСсылка.Основной"/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>19 <Наименование>КоличествоУчет --> КоличествоУчет <Порядок>200 <Источник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.ВидТМЦ = 3 Тогда Значение = ОбъектКоллекции.Цена * ОбъектКоллекции.Количество; КонецЕсли; <Свойство> <Код>22 <Наименование>СуммаУчет --> СуммаУчет <Порядок>300 <Источник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.ВидТМЦ = 3 Тогда Значение = ОбъектКоллекции.Цена * ОбъектКоллекции.КоличествоУчет; КонецЕсли; <Свойство> <Код>24 <Наименование>Цена --> Цена <Порядок>350 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.ВидТМЦ = 1 Тогда Значение = ?(ОбъектКоллекции.Количество=0,0,ОбъектКоллекции.Сумма / ОбъектКоллекции.Количество); КонецЕсли; <Свойство> <Код>25 <Наименование>Цена --> ЦенаВРознице <Порядок>400 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ИнвентаризацияТМЦ_СписаниеТоваров <Наименование>Документ: Инвентаризация ТМЦ <Порядок>2100 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>//заполняем СуммаДокумента Объект.СуммаДокумента = Объект.Товары.Итог("Сумма"); <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.СписаниеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>9 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеТоваров"/> <ПередВыгрузкой>Значение = "ТоварыПродукция"; <Свойство> <Код>6 <Наименование> --> ИнвентаризацияТоваровНаСкладе <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентаризацияТоваровНаСкладе" Вид="Реквизит" Тип="ДокументСсылка.ИнвентаризацияТоваровНаСкладе"/> <КодПравилаКонвертации>ИнвентаризацияТМЦ_ТМЦ <Свойство Отключить="true"> <Код>8 <Наименование> --> Основание <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Склад <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Если Источник.ВидТМЦ = 1 Тогда Значение = Источник.МестоХранения; Иначе Значение = Источник.РозничныйСклад; КонецЕсли; <Свойство Отключить="true"> <Код>11 <Наименование> --> СуммаДокумента <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Группа> <Код>12 <Наименование> --> Товары <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("Себестоимость"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДСВРознице"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); СебестоимостьТоваров = СоздатьОбъект("ТаблицаЗначений"); СебестоимостьТоваров.НоваяКолонка("Номенклатура"); СебестоимостьТоваров.НоваяКолонка("Счет"); СебестоимостьТоваров.НоваяКолонка("Количество"); СебестоимостьТоваров.НоваяКолонка("Сумма"); //получаем себестоимость из движений Операция = Источник.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если (Найти(",21,43,41.2,41.3,41.4,",","+СокрЛП(Операция.Дебет.Счет)+",")>0) Тогда СебестоимостьТоваров.НоваяСтрока(); СебестоимостьТоваров.Номенклатура = Операция.Дебет.Субконто(1); СебестоимостьТоваров.Счет = Операция.Дебет.Счет; СебестоимостьТоваров.Количество = Операция.Количество; СебестоимостьТоваров.Сумма = Операция.Сумма; ИначеЕсли (Найти(",21,43,41.2,41.3,41.4,",","+СокрЛП(Операция.Кредит.Счет)+",")>0) Тогда СебестоимостьТоваров.НоваяСтрока(); СебестоимостьТоваров.Номенклатура = Операция.Кредит.Субконто(1); СебестоимостьТоваров.Счет = Операция.Кредит.Счет; СебестоимостьТоваров.Количество = Операция.Количество; СебестоимостьТоваров.Сумма = Операция.Сумма; КонецЕсли; КонецЦикла; СебестоимостьТоваров.Свернуть("Номенклатура,Счет","Количество,Сумма"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если (Источник.ВидТМЦ = 1) и (СокрЛП(Источник.ФормироватьПроводку) = "Нет") Тогда Продолжить; КонецЕсли; Отклонение = ?(Источник.ВидТМЦ = 3,Источник.ОтклНедостача,Источник.Количество - Источник.КоличествоУчет); Если (Отклонение >= 0) Тогда Продолжить; КонецЕсли; Себестоимость = 0; СебестоимостьТоваров.ВыбратьСтроки(); Пока СебестоимостьТоваров.ПолучитьСтроку()=1 Цикл Если (СебестоимостьТоваров.Номенклатура = Источник.МПЗ) и (СебестоимостьТоваров.Счет = Источник.Счет) Тогда Себестоимость = ?(СебестоимостьТоваров.Количество = 0,0,СебестоимостьТоваров.Сумма / СебестоимостьТоваров.Количество); КонецЕсли; КонецЦикла; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.МПЗ; КоллекцияОбъектов.Количество = -Отклонение; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = ?(Источник.ВидТМЦ = 3, Себестоимость, Источник.Цена); КоллекцияОбъектов.Сумма = ?(Источник.ВидТМЦ = 3, -Отклонение * Себестоимость, Источник.СуммаУчет - Источник.Сумма); КоллекцияОбъектов.Себестоимость = ?(Источник.ВидТМЦ = 3, -Отклонение * Себестоимость, Источник.СуммаУчет - Источник.Сумма); КоллекцияОбъектов.СчетУчета = Источник.Счет; КонецЦикла; <Свойство Отключить="true"> <Код>13 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>16 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> ОтражениеВУСН <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>18 <Наименование> --> Номенклатура <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>15 <Наименование> --> Количество <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> Коэффициент <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> Цена <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> Сумма <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование> --> Себестоимость <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СчетУчета <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>22 <Наименование> --> СтавкаНДСВРознице <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>19 <Наименование> --> НомерГТД <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>23 <Наименование> --> СтранаПроисхождения <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Значения/> <Правило> <Код>ИнвентаризацияТМЦ_Оприходывание <Наименование>Документ: Инвентаризация ТМЦ <Порядок>2150 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>//заполняем СуммаДокумента Объект.СуммаДокумента = Объект.Товары.Итог("Сумма"); <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.ОприходованиеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>6 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> ИнвентаризацияТоваровНаСкладе <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентаризацияТоваровНаСкладе" Вид="Реквизит" Тип="ДокументСсылка.ИнвентаризацияТоваровНаСкладе"/> <КодПравилаКонвертации>ИнвентаризацияТМЦ_ТМЦ <Свойство Отключить="true"> <Код>7 <Наименование> --> Основание <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>8 <Наименование> --> ПодразделениеОрганизации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>9 <Наименование> --> Склад <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <ПередВыгрузкой>Если Источник.ВидТМЦ = 1 Тогда Значение = Источник.МестоХранения; Иначе Значение = Источник.РозничныйСклад; КонецЕсли; <Свойство> <Код>10 <Наименование>СтатьяПрочихДоходов --> СтатьяПрочихДоходовРасходов <Порядок>500 <Источник Имя="СтатьяПрочихДоходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Приемник Имя="СтатьяПрочихДоходовРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы <Свойство Отключить="true"> <Код>12 <Наименование> --> СуммаДокументаРегл <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокументаРегл" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>13 <Наименование> --> ТипЦен <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство Отключить="true"> <Код>11 <Наименование> --> СуммаДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Группа> <Код>14 <Наименование> --> Товары <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДСВРознице"); КоллекцияОбъектов.НоваяКолонка("ЦенаВРознице"); КоллекцияОбъектов.НоваяКолонка("СуммаВРознице"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); СебестоимостьТоваров = СоздатьОбъект("ТаблицаЗначений"); СебестоимостьТоваров.НоваяКолонка("Номенклатура"); СебестоимостьТоваров.НоваяКолонка("Счет"); СебестоимостьТоваров.НоваяКолонка("Количество"); СебестоимостьТоваров.НоваяКолонка("Сумма"); //получаем себестоимость из движений Операция = Источник.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если (Найти(",21,43,41.2,41.3,41.4,",","+СокрЛП(Операция.Дебет.Счет)+",")>0) Тогда СебестоимостьТоваров.НоваяСтрока(); СебестоимостьТоваров.Номенклатура = Операция.Дебет.Субконто(1); СебестоимостьТоваров.Счет = Операция.Дебет.Счет; СебестоимостьТоваров.Количество = Операция.Количество; СебестоимостьТоваров.Сумма = Операция.Сумма; ИначеЕсли (Найти(",21,43,41.2,41.3,41.4,",","+СокрЛП(Операция.Кредит.Счет)+",")>0) Тогда СебестоимостьТоваров.НоваяСтрока(); СебестоимостьТоваров.Номенклатура = Операция.Кредит.Субконто(1); СебестоимостьТоваров.Счет = Операция.Кредит.Счет; СебестоимостьТоваров.Количество = Операция.Количество; СебестоимостьТоваров.Сумма = Операция.Сумма; КонецЕсли; КонецЦикла; СебестоимостьТоваров.Свернуть("Номенклатура,Счет","Количество,Сумма"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если (Источник.ВидТМЦ = 1) и (СокрЛП(Источник.ФормироватьПроводку) = "Нет") Тогда Продолжить; КонецЕсли; Отклонение = ?(Источник.ВидТМЦ = 3,Источник.ОтклНедостача,Источник.Количество - Источник.КоличествоУчет); Если (Отклонение <= 0) Тогда Продолжить; КонецЕсли; Себестоимость = 0; СебестоимостьТоваров.ВыбратьСтроки(); Пока СебестоимостьТоваров.ПолучитьСтроку()=1 Цикл Если (СебестоимостьТоваров.Номенклатура = Источник.МПЗ) и (СебестоимостьТоваров.Счет = Источник.Счет) Тогда Себестоимость = ?(СебестоимостьТоваров.Количество = 0,0,СебестоимостьТоваров.Сумма / СебестоимостьТоваров.Количество); КонецЕсли; КонецЦикла; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.МПЗ; КоллекцияОбъектов.Количество = Отклонение; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Сумма = ?(Источник.ВидТМЦ = 3,Отклонение*Себестоимость, Источник.Сумма - Источник.СуммаУчет); Если Источник.ВидТМЦ = 1 Тогда КоллекцияОбъектов.Цена = ?(КоллекцияОбъектов.Количество=0,0,КоллекцияОбъектов.Сумма / КоллекцияОбъектов.Количество); Иначе КоллекцияОбъектов.Цена = Себестоимость; КонецЕсли; КоллекцияОбъектов.СчетУчета = Источник.Счет; КонецЦикла; <Свойство Отключить="true"> <Код>15 <Наименование> --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>17 <Наименование> --> КоличествоМест <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование> --> Номенклатура <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>16 <Наименование> --> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование> --> Коэффициент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СчетУчета <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>21 <Наименование> --> СтавкаНДСВРознице <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>27 <Наименование> --> ЦенаВРознице <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> СуммаВРознице <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование> --> НомерГТД <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>22 <Наименование> --> СтранаПроисхождения <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Значения/> <Правило> <Код>ИнвентаризацияТМЦ_Розница <Наименование>Документ: Инвентаризация ТМЦ <Порядок>2200 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидТМЦ <> 3 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>// Посчитать суммы документа и записать ее в соответствующий реквизит шапки для показа в журналах Объект.СуммаДокумента = УчетНДС.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + УчетНДС.ПолучитьСуммуДокументаСНДС(Объект, "АгентскиеУслуги"); <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>10 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>11 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> ВалютаДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой> Значение = Параметры.Рубли; <Свойство> <Код>6 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийОтчетОРозничныхПродажах"/> <ПередВыгрузкой>Если Параметры.СписокСкладовНТТ.НайтиЗначение(Источник.МестоХранения)>0 Тогда Значение = "ОтчетНТТОПродажах"; Иначе Значение = "ОтчетККМОПродажах"; КонецЕсли; <Свойство> <Код>7 <Наименование> --> ИнвентаризацияТоваровНаСкладе <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентаризацияТоваровНаСкладе" Вид="Реквизит" Тип="ДокументСсылка.ИнвентаризацияТоваровНаСкладе"/> <КодПравилаКонвертации>ИнвентаризацияТМЦ_ТМЦ <Свойство> <Код>8 <Наименование> --> КратностьДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>9 <Наименование> --> КурсДокумента <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>12 <Наименование>РозничныйСклад --> Склад <Порядок>600 <Источник Имя="РозничныйСклад" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>13 <Наименование>ВидДвижения --> СтатьяДвиженияДенежныхСредств <Порядок>650 <Источник Имя="ВидДвижения" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>14 <Наименование> --> СуммаВключаетНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>16 <Наименование> --> СчетКасса <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКасса" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("50.1"); <Свойство Отключить="true"> <Код>15 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>17 <Наименование> --> ТипЦен <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>18 <Наименование> --> УчитыватьНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>19 <Наименование> --> Товары <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Себестоимость"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетУчета"); КоллекцияОбъектов.НоваяКолонка("СчетДоходов"); КоллекцияОбъектов.НоваяКолонка("Субконто"); КоллекцияОбъектов.НоваяКолонка("СчетРасходов"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаНДСПоРеализации"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл ОтклонениеРозница = Источник.КоличествоУчет + Источник.ОтклНедостача - Источник.Количество; Если (ОтклонениеРозница <= 0) Тогда Продолжить; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.МПЗ; КоллекцияОбъектов.Количество = ОтклонениеРозница; КоллекцияОбъектов.Цена = Источник.Цена; КоллекцияОбъектов.Сумма = Источник.СуммаПродажи; Если Источник.ОблагаетсяЕНВД = 0 Тогда СтавкаНДС = глСтавкаНалога(Источник, "НДС", Источник.МПЗ); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); КоллекцияОбъектов.СтавкаНДС = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); Иначе КоллекцияОбъектов.СтавкаНДС = "БезНДС"; КонецЕсли; КоллекцияОбъектов.СуммаНДС = Источник.НДС; КоллекцияОбъектов.СчетУчета = Источник.Счет; Если Источник.ОблагаетсяЕНВД = 1 Тогда КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.2"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.2"); Иначе КоллекцияОбъектов.СчетДоходов = СчетПоКоду("90.1.1"); КоллекцияОбъектов.СчетРасходов = СчетПоКоду("90.2.1"); КонецЕсли; КоллекцияОбъектов.Субконто = Источник.МПЗ.ВидНоменклатуры; КоллекцияОбъектов.СчетУчетаНДСПоРеализации = СчетПоКоду("90.3"); КонецЦикла; <Свойство Отключить="true"> <Код>20 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство> <Код>22 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>21 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> Себестоимость <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>29 <Наименование> --> СуммаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> СчетУчета <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>30 <Наименование> --> СчетДоходов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>27 <Наименование> --> Субконто <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>31 <Наименование> --> СчетРасходов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>33 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>23 <Наименование> --> НомерГТД <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>26 <Наименование> --> СтранаПроисхождения <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Значения/> <Правило> <Код>ИнвентаризацияТМЦ_ОС <Наименование>Документ: Инвентаризация ТМЦ <Порядок>2250 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ВидТМЦ<>2) Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.ИнвентаризацияОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>10 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>11 <Наименование>Подразделение --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ДатаНачала --> ДатаНачалаИнвентаризации <Порядок>350 <Источник Имя="ДатаНачала" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаНачалаИнвентаризации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>6 <Наименование> --> ДатаОкончанияИнвентаризации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаОкончанияИнвентаризации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование> --> ДокументОснованиеВид <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснованиеВид" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ОснованиеДата --> ДокументОснованиеДата <Порядок>500 <Источник Имя="ОснованиеДата" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДокументОснованиеДата" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>9 <Наименование>ОснованиеНомер --> ДокументОснованиеНомер <Порядок>550 <Источник Имя="ОснованиеНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ДокументОснованиеНомер" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>12 <Наименование> --> ПричинаПроведенияИнвентаризации <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПричинаПроведенияИнвентаризации" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>13 <Наименование> --> ИнвентаризационнаяКомиссия <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентаризационнаяКомиссия" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Председатель"); КоллекцияОбъектов.НоваяКолонка("ФизЛицо"); Если ПустоеЗначение(Источник.Председатель)=0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Председатель = 1; КоллекцияОбъектов.ФизЛицо = Источник.Председатель; КонецЕсли; Для к = 1 по 3 Цикл Если ПустоеЗначение(Источник.ПолучитьАтрибут("Член"+к))=0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ФизЛицо = Источник.ПолучитьАтрибут("Член"+к); КонецЕсли; КонецЦикла; <Свойство> <Код>14 <Наименование> --> Председатель <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Председатель" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>15 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Группа> <Код>16 <Наименование>ТабличнаяЧасть --> ОС <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>19 <Наименование>МПЗ --> ОсновноеСредство <Порядок>50 <Источник Имя="МПЗ" Вид="Реквизит"/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>17 <Наименование>КоличествоУчет --> НаличиеПоДаннымУчета <Порядок>100 <Источник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НаличиеПоДаннымУчета" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ОбъектКоллекции.КоличествоУчет > 0, 1, 0); <Свойство> <Код>18 <Наименование>Количество --> НаличиеФактическое <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НаличиеФактическое" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ОбъектКоллекции.Количество > 0, 1, 0); <Свойство> <Код>20 <Наименование>СуммаУчет --> СтоимостьПоДаннымУчета <Порядок>200 <Источник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьПоДаннымУчета" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Сумма --> СтоимостьФактическая <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьФактическая" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеНМА <Наименование>ДокументСсылка.ПоступлениеНМА --> ДокументСсылка.ОтражениеПоступленияТоваровИУслугНДС <Порядок>2300 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоСчетаФактуры",""); ВходящиеДанные.Установить("ДатаВходящегоСчетаФактуры",""); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеНМА <Приемник>ДокументСсылка.ПоступлениеНМА <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>8 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>18 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Контрагент --> Контрагент <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>6 <Наименование>Договор --> ДоговорКонтрагента <Порядок>300 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>7 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>14 <Наименование> --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>13 <Наименование> --> КратностьВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>600 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>16 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>650 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> ПредъявленСчетФактура <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(СокрЛП(Источник.ДатаНомерСчетаФактуры))=0,1,0); <Свойство> <Код>12 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>17 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>34 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>850 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>35 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>900 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>НДСвключатьВСтоимость --> НДСВключенВСтоимость <Порядок>950 <Источник Имя="НДСвключатьВСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование> --> СпособЗачетаАвансов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>21 <Наименование> --> СуммаВключаетНДС <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>22 <Наименование> --> СуммаДокумента <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>23 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетАвансовВыданных"); <Свойство> <Код>24 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПокупка(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПокупка").Получить("СчетРасчетовСПоставщиком"); <Свойство> <Код>25 <Наименование> --> УчитыватьНДС <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>26 <Наименование>ТабличнаяЧасть --> НематериальныеАктивы <Порядок>1300 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="НематериальныеАктивы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>27 <Наименование>ОбъектВнеоборотныхАктивов --> НематериальныйАктив <Порядок>50 <Источник Имя="ОбъектВнеоборотныхАктивов" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>ОбъектыСтроительства_08_5_08_8 <Свойство> <Код>30 <Наименование>Стоимость --> Сумма <Порядок>100 <Источник Имя="Стоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>НДС --> СуммаНДС <Порядок>150 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> СтавкаНДС <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>СтавкаНДС = глСтавкаНалога(Источник, "НДС",); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>32 <Наименование> --> СчетУчета <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("08.5"); <Свойство> <Код>33 <Наименование> --> СчетУчетаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("19.2"); <Свойство Отключить="true"> <Код>28 <Наименование> --> ОтражениеВУСН <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Значения/> <Правило> <Код>ПринятиеКУчетуНМА <Наименование>Документ: Принятие к учету НМА и результатов НИОКР <Порядок>2350 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; // Рассчитаем постоянные разницы БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(ВидыСубконто.ОбъектыСтроительства, Источник.ОбъектВнеоборотныхАктивов, 2); БухИт.ВыполнитьЗапрос(Источник.ТекущийДокумент(), КонГода(Параметры.ДатаКонцаПериодаВыгрузки) , "НПР.08"); ВходящиеДанные.Установить("СтоимостьПР", БухИт.СНД()); ВходящиеДанные.Установить("СтоимостьВР", Источник.БалансоваяСтоимость - Источник.ПервоначальнаяСтоимостьН - БухИт.СНД()); <Источник>ДокументСсылка.ПринятиеКУчетуНМА <Приемник>ДокументСсылка.ПринятиеКУчетуНМА <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>1 <Наименование>ВидОбъектаУчета --> ВидОбъектаУчета <Порядок>250 <Источник Имя="ВидОбъектаУчета" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВидОбъектаУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОбъектовУчетаНМА"/> <ПередВыгрузкой>Если Источник.ВидОбъектаУчета = 0 Тогда Значение = "НематериальныйАктив"; Иначе Значение = "РасходыНаНИОКР"; КонецЕсли; <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование> --> ДатаПриобретения <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПриобретения" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.НМА)=0 Тогда Значение = Источник.НМА.ДатаПриобретения; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>11 <Наименование>НМА --> НематериальныйАктив <Порядок>450 <Источник Имя="НМА" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <Свойство Отключить="true"> <Код>20 <Наименование> --> СпособПоступления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПоступления" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПоступленияАктивов"/> <Свойство> <Код>19 <Наименование> --> СпособОтраженияРасходов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходов" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>Значение = Источник; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ВидРасходовНУ = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, "НеУчитываемыеВЦеляхНалогообложения","Амортизация"); НаименованиеРасхода = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые,"Амортизация НМА, не принимаемая в НУ", "Амортизация НМА"); ПринятиеКналоговомуУчету = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, 0,1); ВидПрочихДоходовИРасходов = "ПрочиеВнереализационныеДоходыРасходы"; СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); СтатьяЗатрат.Установить("ВидРасходовНУ",ВидРасходовНУ); СтатьяЗатрат.Установить("ПринятиеКНалоговомуУчету",ПринятиеКНалоговомуУчету); СтатьяЗатрат.Установить("Наименование",НаименованиеРасхода); СтатьяЗатрат.Установить("ВидПрочихДоходовИРасходов",ВидПрочихДоходовИРасходов); ИсходящиеДанные.Установить("СтатьяЗатрат",СтатьяЗатрат); <Свойство> <Код>9 <Наименование> --> НачислятьАмортизациюБУ <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизациюБУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ПорядокНачисленияАмортизации = 1 Тогда Значение = 0; Иначе Значение = 1; КонецЕсли; <Свойство> <Код>18 <Наименование>СпособНачисленияАмортизации --> СпособНачисленияАмортизацииБУ <Порядок>650 <Источник Имя="СпособНачисленияАмортизации" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыНачисленияАмортизацииНМА"/> <Приемник Имя="СпособНачисленияАмортизацииБУ" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыНачисленияАмортизацииНМА"/> <КодПравилаКонвертации>СпособыНачисленияАмортизацииНМА <Свойство> <Код>21 <Наименование>СрокПолезногоИспользования --> СрокПолезногоИспользованияБУ <Порядок>700 <Источник Имя="СрокПолезногоИспользования" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СрокПолезногоИспользованияБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>Коэффициент --> КоэффициентБУ <Порядок>750 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоэффициентБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>ОбщийОбъемПродукцииРабот --> ОбъемПродукцииРаботДляВычисленияАмортизации <Порядок>800 <Источник Имя="ОбщийОбъемПродукцииРабот" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ОбъемПродукцииРаботДляВычисленияАмортизации" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> НачислятьАмортизациюНУ <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизациюНУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; Если (Источник.ВидОбъектаУчета = 0) Тогда Если Источник.ВключитьВСоставРасходов = 1 Тогда Значение = 1; КонецЕсли; ИначеЕсли Источник.ПорядокНачисленияАмортизации <> 1 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>22 <Наименование>СрокПолезногоИспользованияН --> СрокПолезногоИспользованияНУ <Порядок>900 <Источник Имя="СрокПолезногоИспользованияН" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СрокПолезногоИспользованияНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>СпециальныйКоэффициент --> СпециальныйКоэффициентНУ <Порядок>950 <Источник Имя="СпециальныйКоэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СпециальныйКоэффициентНУ" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>15 <Наименование> --> ПорядокВключенияСтоимостиВСоставРасходовУСН <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокВключенияСтоимостиВСоставРасходовУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокВключенияСтоимостиОСиНМАВСоставРасходовУСН"/> <Свойство Отключить="true"> <Код>16 <Наименование> --> РеквизитыДокументаОплаты <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="РеквизитыДокументаОплаты" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование>БалансоваяСтоимость --> СтоимостьБУ <Порядок>1100 <Источник Имя="БалансоваяСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>ПервоначальнаяСтоимостьН --> СтоимостьНУ <Порядок>1150 <Источник Имя="ПервоначальнаяСтоимостьН" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> СтоимостьПР <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьПР" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> СтоимостьВР <Порядок>1250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьВР" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> СчетНачисленияАмортизации <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНачисленияАмортизации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если (Источник.ВидОбъектаУчета = 0) и (Источник.ПорядокНачисленияАмортизации<>1) Тогда Значение = ?(Источник.ПорядокНачисленияАмортизации = 2, СчетПоКоду("05"),СчетПоКоду("04.1")); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>28 <Наименование> --> СчетУчета <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.ВидОбъектаУчета = 1 Тогда // НИОКР Значение = СчетПоКоду("04.2"); Иначе // НМА Значение = СчетПоКоду("04.1"); КонецЕсли; <Свойство> <Код>29 <Наименование> --> СчетУчетаВнеоборотногоАктива <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаВнеоборотногоАктива" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.ВидОбъектаУчета = 1 Тогда // НИОКР Значение = СчетПоКоду("08.8"); Иначе // НМА Значение = СчетПоКоду("08.5"); КонецЕсли; <Свойство> <Код>30 <Наименование> --> ПорядокСписанияНИОКРНаРасходыНУ <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокСписанияНИОКРНаРасходыНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокСписанияНИОКРНУ"/> <ПередВыгрузкой>Значение = "НеСписывать"; Если (Источник.ВидОбъектаУчета = 0) Тогда Отказ = 1; ИначеЕсли Источник.ПорядокНачисленияАмортизации <> 1 Тогда Значение = "Равномерно"; КонецЕсли; <Значения/> <Правило> <Код>ПередачаНМА <Наименование>Документ: Передача НМА <Порядок>2400 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ПередачаНМА <Приемник>ДокументСсылка.ПередачаНМА <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>Договор --> ДоговорКонтрагента <Порядок>400 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>11 <Наименование> --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>10 <Наименование> --> КратностьВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>12 <Наименование>НМА --> НематериальныйАктив <Порядок>600 <Источник Имя="НМА" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <Свойство Отключить="true"> <Код>15 <Наименование> --> Склад <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство> <Код>19 <Наименование> --> СуммаВключаетНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>16 <Наименование> --> СпособЗачетаАвансов <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>18 <Наименование>Цена --> Сумма <Порядок>800 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>Стоимость --> СуммаДокумента <Порядок>850 <Источник Имя="Стоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование> --> СтавкаНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>СтавкаНДС = глСтавкаНалога(Источник, "НДС",); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>21 <Наименование>НДС --> СуммаНДС <Порядок>950 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> СчетДоходов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.1"); <Свойство> <Код>17 <Наименование>СтатьяПрочихДоходовИРасходов --> Субконто <Порядок>1050 <Источник Имя="СтатьяПрочихДоходовИРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы <Свойство> <Код>23 <Наименование> --> СчетРасходов <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.2") <Свойство> <Код>24 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.2"); <Свойство> <Код>25 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетАвансовПолученных"); <Свойство> <Код>26 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Свойство> <Код>27 <Наименование> --> УчитыватьНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ПрекращениеСрокаДействияНМА <Наименование>Документ: Прекращение срока действия НМА и использования НИОКР <Порядок>2450 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ПрекращениеСрокаДействияНМА <Приемник>ДокументСсылка.СписаниеНМА <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>6 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>7 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>НМА --> НематериальныйАктив <Порядок>350 <Источник Имя="НМА" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <Свойство> <Код>9 <Наименование> --> СчетСписания <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписания" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.2"); <Свойство> <Код>8 <Наименование>СтатьяПрочихДоходовИРасходов --> Субконто <Порядок>450 <Источник Имя="СтатьяПрочихДоходовИРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы <Значения/> <Правило> <Код>СчетФактура_ДокументОснование <Наименование>Документ: Выполнение этапа работ <Порядок>2500 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СчетФактура <Приемник>ДокументСсылка.ОтражениеНачисленияНДС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>20 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>150 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Отключить="true"> <Код>21 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>13 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>450 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>15 <Наименование> --> ИспользоватьДокументРасчетовКакСчетФактуру <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьДокументРасчетовКакСчетФактуру" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>17 <Наименование> --> КратностьВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>18 <Наименование> --> КурсВзаиморасчетов <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>22 <Наименование> --> ПрямаяЗаписьВКнигу <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПрямаяЗаписьВКнигу" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>23 <Наименование> --> РасчетныйДокумент <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетныйДокумент" Вид="Реквизит"/> <КодПравилаКонвертации>ОперацияБух <ПередВыгрузкой>Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Значение = Источник; Операция = Источник.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл //нам не нужны забалансовые счета, за исключением ГТД Если ПустоеЗначение(Операция.Дебет.Счет)=0 Тогда Если (Операция.Дебет.Счет.Забалансовый = 1) и (Операция.Дебет.Счет<>СчетПоКоду("ГТД")) Тогда Продолжить; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Операция.Кредит.Счет)=0 Тогда Если (Операция.Кредит.Счет.Забалансовый = 1) и (Операция.Кредит.Счет<>СчетПоКоду("ГТД")) Тогда Продолжить; КонецЕсли; КонецЕсли; Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.СуммаПРДт = Операция.Сумма; Проводки.СуммаПРКт = Операция.Сумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЦикла; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Проводки.КоличествоСтрок()>0 Тогда ИсходящиеДанные.Установить("Хозрасчетный", Проводки); ИсходящиеДанные.Установить("Содержание", "Дополнительные проводки к документу "+строка(источник)); ИсходящиеДанные.Установить("Дата", ПолучитьДатуV8(Источник.ДатаДок,Источник.ПолучитьВремя())); КонецЕсли; <Свойство> <Код>24 <Наименование> --> СуммаВключаетНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.СуммаНДСопределяетсяРасчетнымМетодом = 1 Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>25 <Наименование> --> СуммаДокумента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>26 <Наименование> --> ФормироватьПроводки <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ФормироватьПроводки" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство Отключить="true"> <Код>27 <Наименование> --> ФормироватьСторнирующиеЗаписиДопЛистовВручную <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ФормироватьСторнирующиеЗаписиДопЛистовВручную" Вид="Реквизит" Тип="Булево"/> <Группа> <Код>28 <Наименование>ТабличнаяЧасть --> ТоварыИУслуги <Порядок>1000 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ТоварыИУслуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>29 <Наименование> --> ВидЦенности <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦенности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЦенностей"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс тогда Значение = "АвансыПолученные"; ИначеЕсли Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница тогда Значение = "СуммыСвязанныеСРасчетамиПоОплате"; Иначе Если ОбъектКоллекции.Товар.Выбран()=1 Тогда Если ОбъектКоллекции.Товар.Вид() = "Материалы" Тогда Значение = "Материалы"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "ОсновныеСредства" Тогда Значение = "ОС"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "НематериальныеАктивы" Тогда Значение = "НМА"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда Если (ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар) или (ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция) или (ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат) Тогда Значение = "Товары"; ИначеЕсли (ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) Тогда Значение = "ПосредническиеУслуги"; Иначе Значение = "ПрочиеРаботыИУслуги"; КонецЕсли; Иначе Значение = "ПрочиеРаботыИУслуги"; КонецЕсли; Иначе Значение = "ПрочиеРаботыИУслуги"; КонецЕсли; КонецЕсли; <Свойство> <Код>33 <Наименование> --> Событие <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Событие" Вид="Реквизит" Тип="ПеречислениеСсылка.СобытияПоНДСПродажи"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс тогда Значение = "ПолученАванс"; ИначеЕсли Источник.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница тогда Значение = "НДСНачисленКУплате"; Иначе Значение = "Реализация"; КонецЕсли; <Свойство> <Код>31 <Наименование>Товар --> Номенклатура <Порядок>150 <Источник Имя="Товар" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит"/> <Свойство> <Код>30 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>СтавкаНДС = ОбъектКоллекции.СтавкаНДС; Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>39 <Наименование>НДС --> СуммаНДС <Порядок>400 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>40 <Наименование> --> СчетДоходовБУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходовБУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ОбъектКоллекции.Счет.ПринадлежитГруппе(СчетПоКоду("90"))=1 Тогда Значение = СчетПоКоду("90.3"); Иначе Значение = СчетПоКоду("91.2"); КонецЕсли; <Свойство> <Код>37 <Наименование>Субконто1 --> СубконтоБУ <Порядок>500 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="СубконтоБУ" Вид="Реквизит"/> <КодПравилаКонвертации>НоменклатурныеГруппы <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>41 <Наименование> --> СчетУчетаБУ <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаБУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ОбъектКоллекции.Товар.Выбран()=1 Тогда Если ОбъектКоллекции.Товар.Вид() = "Материалы" Тогда Значение = ОбъектКоллекции.Товар.СубСчет10; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "ОсновныеСредства" Тогда Значение = СчетПоКоду("01.1"); ИначеЕсли ОбъектКоллекции.Товар.Вид() = "НематериальныеАктивы" Тогда Значение = СчетПоКоду("04.1"); ИначеЕсли ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда Если ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда Значение = СчетПоКоду("004"); ИначеЕсли ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда Значение = СчетПоКоду("41.3"); ИначеЕсли ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.ПокупныеИзделия Тогда Значение = СчетПоКоду("41.4"); Иначе Значение = СчетПоКоду("41.1"); КонецЕсли; ИначеЕсли ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Значение = СчетПоКоду("43"); ИначеЕсли ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда Значение = СчетПоКоду("21"); Иначе Значение = СчетПоКоду("41.1"); КонецЕсли; Иначе Значение = СчетПоКоду("41.1"); КонецЕсли; Иначе Значение = СчетПоКоду("41.1"); КонецЕсли; <Свойство> <Код>42 <Наименование>Счет --> СчетУчетаНДСПоРеализации <Порядок>600 <Источник Имя="Счет" Вид="Реквизит" Тип="ПланСчетовСсылка.Основной"/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>32 <Наименование>ГТД --> НомерГТД <Порядок>650 <Источник Имя="ГТД" Вид="Реквизит" Тип="СправочникСсылка.ГТД"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>36 <Наименование> --> СтранаПроисхождения <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ГТД)=0 Тогда Значение = ОбъектКоллекции.ГТД.СтранаПроисхождения; КонецЕсли; <Свойство Отключить="true"> <Код>35 <Наименование> --> СторнирующаяЗаписьДопЛиста <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СторнирующаяЗаписьДопЛиста" Вид="Реквизит" Тип="Булево"/> <Значения/> <Правило> <Код>СчетФактураПолученный_ДокументОснование <Наименование>Документ: СчетФактураПолученный <Порядок>2550 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СчетФактураПолученный <Приемник>ДокументСсылка.ОтражениеНДСКВычету <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>18 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>11 <Наименование>Договор --> ДоговорКонтрагента <Порядок>300 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование> --> ВалютаДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора, Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>13 <Наименование> --> КратностьВзаиморасчетов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>14 <Наименование> --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство Отключить="true"> <Код>8 <Наименование> --> ДатаВходящегоДокумента <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>9 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>10 <Наименование> --> ДатаОплаты <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>12 <Наименование> --> ИспользоватьДокументРасчетовКакСчетФактуру <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьДокументРасчетовКакСчетФактуру" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>15 <Наименование> --> НДСВключенВСтоимость <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>16 <Наименование> --> НомерВходящегоДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> ОтразитьВСоставеПартийИКосвенныхРасходов <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ОтразитьВСоставеПартийИКосвенныхРасходов" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование> --> ПредъявленСчетФактура <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>21 <Наименование> --> РасчетныйДокумент <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетныйДокумент" Вид="Реквизит"/> <Свойство> <Код>22 <Наименование> --> Склад <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство> <Код>23 <Наименование> --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>24 <Наименование> --> СуммаДокумента <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>26 <Наименование> --> ТипЦен <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Группа> <Код>27 <Наименование> --> ТоварыИУслуги <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ТоварыИУслуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>28 <Наименование> --> ВидЦенности <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦенности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЦенностей"/> <Свойство> <Код>29 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> Номенклатура <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит"/> <Свойство> <Код>31 <Наименование> --> НомерГТД <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>32 <Наименование> --> ПодразделениеЗатрат <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>33 <Наименование> --> Событие <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Событие" Вид="Реквизит" Тип="ПеречислениеСсылка.СобытияПоНДСПокупки"/> <Свойство> <Код>34 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>35 <Наименование> --> СтранаПроисхождения <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <Свойство> <Код>36 <Наименование> --> Субконто1 <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <Свойство> <Код>37 <Наименование> --> Субконто2 <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <Свойство> <Код>38 <Наименование> --> Субконто3 <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <Свойство> <Код>39 <Наименование> --> Сумма <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>40 <Наименование> --> СуммаНДС <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>41 <Наименование> --> СчетЗатрат <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>42 <Наименование> --> СчетУчетаНДС <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>43 <Наименование> --> Цена <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>НачислениеЗП_13 <Наименование>Документ: Начисление зарплаты <Порядок>2600 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); НДФЛ_13 = глПолучитьНалог("НДФЛ"); Ставка13 = НДФЛ_13.Ставка.Получить(КонМесяца(Источник.ДатаДок)); СтавкаНДФЛ = глСтавкаНДФЛ(Источник.ВидНачисления, , КонМесяца(Источник.ДатаДок)); Если СтавкаНДФЛ <> Ставка13 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки> Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.Начисления); <Источник>ДокументСсылка.НачислениеЗП <Приемник>ДокументСсылка.НачислениеЗарплатыРаботникамОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>9 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> КорректировкаРасчета <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="КорректировкаРасчета" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>6 <Наименование> --> КраткийСоставДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="КраткийСоставДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> ПериодРегистрации <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = НачМесяца(Источник.ДатаДок); <Группа> <Код>10 <Наименование> --> Начисления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Начисления" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("ВидРасчета"); КоллекцияОбъектов.НоваяКолонка("Начислено"); КоллекцияОбъектов.НоваяКолонка("РайонныйКоэффициент"); КоллекцияОбъектов.НоваяКолонка("СевернаяНадбавка"); КоллекцияОбъектов.НоваяКолонка("Результат"); КоллекцияОбъектов.НоваяКолонка("ОписаниеОшибок"); КоллекцияОбъектов.НоваяКолонка("КодДоходаНДФЛ"); КоллекцияОбъектов.НоваяКолонка("КодВычета"); КоллекцияОбъектов.НоваяКолонка("СуммаВычета"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ПодразделениеОрганизации = Источник.Сотрудник.Подразделение.Получить(КонМесяца(Источник.ДатаДок)); КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.ВидРасчета = Источник.ВидНачисления; КоллекцияОбъектов.Начислено = Источник.Оклад; КоллекцияОбъектов.РайонныйКоэффициент = Источник.НачисленоРК; КоллекцияОбъектов.СевернаяНадбавка = Источник.НачисленоСН; КоллекцияОбъектов.Результат = Источник.Оклад + Источник.НачисленоРК + Источник.НачисленоСН; КоллекцияОбъектов.КодДоходаНДФЛ = ?(Источник.ВидНачисления.Выбран()=1,Источник.ВидНачисления.ВидДохода,""); //КоллекцияОбъектов.КодВычета = Источник.КВыплате; //КоллекцияОбъектов.СуммаВычета = Источник.КВыплате; КонецЦикла; <Свойство> <Код>16 <Наименование> --> ПодразделениеОрганизации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>20 <Наименование> --> Сотрудник <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>22 <Наименование> --> Физлицо <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>11 <Наименование> --> ВидРасчета <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасчета" Вид="Реквизит" Тип="ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций"/> <КодПравилаКонвертации>ВидыНачислений <ПередВыгрузкой>Значение = Источник.ВидНачисления; Если Источник.ИспользоватьСчетДокумента=1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("СчетЗатрат",Источник.СчетЗатрат); ИсходящиеДанные.Установить("Субконто1",Источник.Субконто1); ИсходящиеДанные.Установить("Субконто2",Источник.Субконто2); ИсходящиеДанные.Установить("Субконто3",Источник.Субконто3); Иначе ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("СчетЗатрат",ОбъектКоллекции.Сотрудник.СчетЗатрат.Получить(КонМесяца(Источник.ДатаДок))); ИсходящиеДанные.Установить("Субконто1",ОбъектКоллекции.Сотрудник.Субконто1.Получить(КонМесяца(Источник.ДатаДок))); ИсходящиеДанные.Установить("Субконто2",ОбъектКоллекции.Сотрудник.Субконто2.Получить(КонМесяца(Источник.ДатаДок))); ИсходящиеДанные.Установить("Субконто3",ОбъектКоллекции.Сотрудник.Субконто3.Получить(КонМесяца(Источник.ДатаДок))); КонецЕсли; <Свойство> <Код>14 <Наименование> --> Начислено <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Начислено" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> РайонныйКоэффициент <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="РайонныйКоэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование> --> СевернаяНадбавка <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СевернаяНадбавка" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование> --> Результат <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Результат" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> ОписаниеОшибок <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ОписаниеОшибок" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> КодДоходаНДФЛ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КодДоходаНДФЛ" Вид="Реквизит" Тип="СправочникСсылка.ДоходыНДФЛ"/> <КодПравилаКонвертации>ВидыДоходов <Свойство> <Код>12 <Наименование> --> КодВычета <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КодВычета" Вид="Реквизит" Тип="СправочникСсылка.ВычетыНДФЛ"/> <Свойство> <Код>21 <Наименование> --> СуммаВычета <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВычета" Вид="Реквизит" Тип="Число"/> <Группа Отключить="true"> <Код>23 <Наименование> --> НДФЛ <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НДФЛ" Вид="ТабличнаяЧасть"/> <Свойство> <Код>24 <Наименование> --> МесяцНалоговогоПериода <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>25 <Наименование> --> Налог <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Налог" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> ПодразделениеОрганизации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>27 <Наименование> --> ПримененныйВычетИмущественныйПроцентыПоКредитам <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетИмущественныйПроцентыПоКредитам" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование> --> ПримененныйВычетИмущественныйПроцентыПриПерекредитовании <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетИмущественныйПроцентыПриПерекредитовании" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> ПримененныйВычетИмущественныйРасход <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетИмущественныйРасход" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> ПримененныйВычетЛичный <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетЛичный" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> ПримененныйВычетНаДетей <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетНаДетей" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> ПримененныйВычетНаДетейДвойной <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетНаДетейДвойной" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> ПримененныйВычетНаДетейДвойнойВторой <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетНаДетейДвойнойВторой" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> ПримененныйВычетНаДетейИнвалидов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетНаДетейИнвалидов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование> --> ПримененныйВычетНаДетейИнвалидовДвойной <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетНаДетейИнвалидовДвойной" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> ПримененныйВычетНаДетейИнвалидовДвойнойВторой <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычетНаДетейИнвалидовДвойнойВторой" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> ФизЛицо <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <Значения/> <Правило> <Код>НачислениеЗП_Прочее <Наименование>Документ: Начисление зарплаты <Порядок>2650 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); НДФЛ_13 = глПолучитьНалог("НДФЛ"); Ставка13 = НДФЛ_13.Ставка.Получить(КонМесяца(Источник.ДатаДок)); СтавкаНДФЛ = глСтавкаНДФЛ(Источник.ВидНачисления, , КонМесяца(Источник.ДатаДок)); Если СтавкаНДФЛ = Ставка13 Тогда Отказ = 1; КонецЕсли; //перенесем движения документа через операцию Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Операция = Источник.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.СуммаПРДт = Операция.Сумма; Проводки.СуммаПРКт = Операция.Сумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЦикла; Если Проводки.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Содержание", "Дополнительные проводки к документу "+строка(источник)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Источник.ДатаДок,Источник.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.НДФЛСведенияОДоходах, Объект.ЕСНСведенияОДоходах, "Физлицо"); <Источник>ДокументСсылка.НачислениеЗП <Приемник>ДокументСсылка.НДФЛиЕСНДоходыИНалоги <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство> <Код>7 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> НалоговыйПериод <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НалоговыйПериод" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ДатаГод(Источник.ДатаДок); <Группа> <Код>8 <Наименование> --> НДФЛСведенияОДоходах <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НДФЛСведенияОДоходах" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ПериодРегистрации"); КоллекцияОбъектов.НоваяКолонка("ФизЛицо"); КоллекцияОбъектов.НоваяКолонка("ДатаДохода"); КоллекцияОбъектов.НоваяКолонка("МесяцНалоговогоПериода"); КоллекцияОбъектов.НоваяКолонка("КодДохода"); КоллекцияОбъектов.НоваяКолонка("СуммаДохода"); КоллекцияОбъектов.НоваяКолонка("КодВычета"); КоллекцияОбъектов.НоваяКолонка("СуммаВычета"); КоллекцияОбъектов.НоваяКолонка("КоличествоДетей"); КоллекцияОбъектов.НоваяКолонка("СуммаНалогаИсчисленная"); КоллекцияОбъектов.НоваяКолонка("КодПоОКАТО"); КоллекцияОбъектов.НоваяКолонка("КПП"); НДФЛ_13 = глПолучитьНалог("НДФЛ"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); СуммаОплаты = Источник.Оклад + Источник.НачисленоРК + Источник.НачисленоСН; КоллекцияОбъектов.ПериодРегистрации = Источник.ДатаДок; КоллекцияОбъектов.ФизЛицо = Источник.Сотрудник; КоллекцияОбъектов.ДатаДохода = Источник.ДатаДок; КоллекцияОбъектов.МесяцНалоговогоПериода = НачМесяца(Источник.ДатаДок); КоллекцияОбъектов.КодДохода = Источник.ВидНачисления.ВидДохода; КоллекцияОбъектов.СуммаДохода = СуммаОплаты; СтавкаНДФЛ = глСтавкаНДФЛ(Источник.ВидНачисления, Источник.Сотрудник, КонМесяца(Источник.ДатаДок)); КоллекцияОбъектов.СуммаНалогаИсчисленная = Окр((СуммаОплаты/100*СтавкаНДФЛ),0,1); КоллекцияОбъектов.КодПоОКАТО = НДФЛ_13.КодОКАТО; КоллекцияОбъектов.КПП = Сред(Константа.ИННОрганизации, 12, 9);; КонецЦикла; <Свойство> <Код>16 <Наименование> --> ПериодРегистрации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>20 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <Свойство> <Код>9 <Наименование> --> ДатаДохода <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаДохода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование> --> МесяцНалоговогоПериода <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование> --> КодДохода <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КодДохода" Вид="Реквизит" Тип="СправочникСсылка.ДоходыНДФЛ"/> <Свойство> <Код>18 <Наименование> --> СуммаДохода <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДохода" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> КодВычета <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="КодВычета" Вид="Реквизит" Тип="СправочникСсылка.ВычетыНДФЛ"/> <Свойство> <Код>17 <Наименование> --> СуммаВычета <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВычета" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> КоличествоДетей <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоДетей" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование> --> СуммаНалогаИсчисленная <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНалогаИсчисленная" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> КодПоОКАТО <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КодПоОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> КПП <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <Группа Отключить="true"> <Код>21 <Наименование> --> НДФЛУдержанный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НДФЛУдержанный" Вид="ТабличнаяЧасть"/> <Свойство> <Код>22 <Наименование> --> КодДохода <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="КодДохода" Вид="Реквизит" Тип="СправочникСсылка.ДоходыНДФЛ"/> <Свойство> <Код>23 <Наименование> --> КодПоОКАТО <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КодПоОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>24 <Наименование> --> КПП <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>25 <Наименование> --> МесяцНалоговогоПериода <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>26 <Наименование> --> Налог <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Налог" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> ПериодРегистрации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>28 <Наименование> --> СтавкаНалогообложения <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНалогообложения" Вид="Реквизит" Тип="ПеречислениеСсылка.НДФЛСтавкиНалогообложенияРезидента"/> <Свойство> <Код>29 <Наименование> --> ФизЛицо <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <Значения/> <Правило> <Код>ВыплатаЗПКасса <Наименование> --> ДокументСсылка.ЗарплатаКВыплатеОрганизаций <Порядок>2700 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; <ПриВыгрузке>Если Источник.ПорядокВыплаты = 0 Тогда Параметры.ТаблицаВедомостейПоКассе.НоваяСтрока(); Параметры.ТаблицаВедомостейПоКассе.Ведомость = Источник; Параметры.ТаблицаВедомостейПоКассе.Сумма = Источник.Итог("КВыдаче"); Параметры.ТаблицаВедомостейПоКассе.Дата = Источник.ДатаДок; КонецЕсли; <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.Зарплата,, "Физлицо"); <Источник>ДокументСсылка.ВыплатаЗПКасса <Приемник>ДокументСсылка.ЗарплатаКВыплатеОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>11 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>4 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>10 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование> --> ПериодРегистрации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Если ДатаЧисло(Источник.ДатаДок)>15 Тогда Значение = НачМесяца(Источник.ДатаДок); Иначе Значение = НачМесяца(НачМесяца(Источник.ДатаДок)-1); КонецЕсли; <Свойство> <Код>7 <Наименование> --> СпособВыплаты <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СпособВыплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыВыплатыЗарплаты"/> <ПередВыгрузкой>Если Источник.ПорядокВыплаты = 0 Тогда Значение = "ЧерезКассу"; Иначе Значение = "ЧерезБанк"; КонецЕсли; <Свойство Отключить="true"> <Код>13 <Наименование> --> ДнейНеВыплаты <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ДнейНеВыплаты" Вид="Реквизит" Тип="Число"/> <Группа> <Код>5 <Наименование>ТабличнаяЧасть --> Зарплата <Порядок>500 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Зарплата" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование>Сотрудник --> Физлицо <Порядок>50 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>8 <Наименование>КВыдаче --> Сумма <Порядок>100 <Источник Имя="КВыдаче" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> ВыплаченностьЗарплаты <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВыплаченностьЗарплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ВыплаченностьЗарплаты"/> <ПередВыгрузкой>Если Источник.ПорядокВыплаты = 0 Тогда Значение = "Выплачено"; Иначе Значение = "НеВыплачено"; КонецЕсли; <Свойство> <Код>14 <Наименование> --> КомпенсацияЗаЗадержкуЗарплаты <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КомпенсацияЗаЗадержкуЗарплаты" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ЗарплатаКВыплатеОрганизаций <Наименование>: <Порядок>2750 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Приемник>ДокументСсылка.ЗарплатаКВыплатеОрганизаций <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>7 <Наименование> --> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Источник.Вид()="РасходныйОрдер" Тогда Параметры.ПараметрыАлгоритмов.Установить("Префикс","Р"); Иначе Параметры.ПараметрыАлгоритмов.Установить("Префикс","В"); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); Параметры.ПараметрыАлгоритмов.Установить("Префикс",""); <Свойство Поиск="true"> <Код>6 <Наименование> --> Дата <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = ПолучитьДатуV8(Источник.ДатаДок,Источник.ПолучитьВремя()); <Свойство Отключить="true"> <Код>4 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>1 <Наименование> --> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование> --> ПериодРегистрации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = НачМесяца(Источник.ДатаДок); <Свойство> <Код>5 <Наименование> --> СпособВыплаты <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СпособВыплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыВыплатыЗарплаты"/> <ПередВыгрузкой>Если Источник.Вид()="РасходныйОрдер" Тогда Значение = "ЧерезКассу"; Иначе Значение = "ЧерезБанк"; КонецЕсли; <Свойство> <Код>8 <Наименование> --> ПометкаУдаления <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = Источник.ПометкаУдаления(); <Группа> <Код>9 <Наименование> --> Зарплата <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Зарплата" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ВыплаченностьЗарплаты"); КоллекцияОбъектов.НоваяКолонка("Сумма"); Если Источник.Вид()="РасходныйОрдер" Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Физлицо = Источник.Субконто1; КоллекцияОбъектов.ВыплаченностьЗарплаты = "Выплачено"; КоллекцияОбъектов.Сумма = Источник.Сумма; ИначеЕсли Источник.Вид()="Выписка" Тогда Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если Источник.КоррСчет = СчетПоКоду("70") Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Физлицо = Источник.Субконто1; КоллекцияОбъектов.ВыплаченностьЗарплаты = "НеВыплачено"; КоллекцияОбъектов.Сумма = Источник.Расход; КонецЕсли; КонецЦикла; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование> --> Физлицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>10 <Наименование> --> ВыплаченностьЗарплаты <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВыплаченностьЗарплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ВыплаченностьЗарплаты"/> <Свойство> <Код>12 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>11 <Наименование> --> КомпенсацияЗаЗадержкуЗарплаты <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КомпенсацияЗаЗадержкуЗарплаты" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПриказОПриемеНаРаботу <Наименование>Документ: Приказ о приеме на работу <Порядок>2800 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки> Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.РаботникиОрганизации,, "Физлицо"); <Источник>ДокументСсылка.ПриказОПриемеНаРаботу <Приемник>ДокументСсылка.ПриемНаРаботуВОрганизацию <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ПриказНаГруппуСотрудников <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПриказНаГруппуСотрудников" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>12 <Наименование> --> РаботникиОрганизации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("ДатаПриема"); КоллекцияОбъектов.НоваяКолонка("Должность"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ПодразделениеОрганизации = Источник.Подразделение; КоллекцияОбъектов.ДатаПриема = Источник.ДатаДок; КоллекцияОбъектов.Должность = Источник.Должность; <Свойство> <Код>16 <Наименование> --> Сотрудник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>17 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>15 <Наименование> --> ПодразделениеОрганизации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>13 <Наименование> --> ДатаПриема <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПриема" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование> --> Должность <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Должность" Вид="Реквизит" Тип="СправочникСсылка.ДолжностиОрганизаций"/> <КодПравилаКонвертации>ДолжностиОрганизаций <Группа> <Код>7 <Наименование> --> ОсновныеНачисления <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновныеНачисления" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ВидРасчета"); КоллекцияОбъектов.НоваяКолонка("Размер"); КоллекцияОбъектов.НоваяКолонка("ВидРасчетаОтражениеЗП"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ВидРасчета = Источник.Сотрудник; КоллекцияОбъектов.Размер = Источник.Оклад; КоллекцияОбъектов.ВидРасчетаОтражениеЗП = СоздатьОбъект("СписокЗначений"); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("СчетЗатрат",Источник.СчетЗатрат); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто1",Источник.Субконто1); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто2",Источник.Субконто2); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто3",Источник.Субконто3); <Свойство> <Код>10 <Наименование> --> Сотрудник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>11 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>8 <Наименование> --> ВидРасчета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасчета" Вид="Реквизит" Тип="ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций"/> <КодПравилаКонвертации>ВидыНачисленийОклад <ПередВыгрузкой>ИсходящиеДанные = ОбъектКоллекции.ВидРасчетаОтражениеЗП; <Свойство> <Код>9 <Наименование> --> Размер <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Размер" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПриказОбИзмененииОкладов <Наименование>Документ: Приказ об изменении окладов <Порядок>2850 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.РаботникиОрганизации,, "Физлицо"); <Источник>ДокументСсылка.ПриказОбИзмененииОкладов <Приемник>ДокументСсылка.КадровоеПеремещениеОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> ОбособленноеПодразделениеКуда <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ОбособленноеПодразделениеКуда" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>6 <Наименование> --> ОбособленноеПодразделениеОткуда <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ОбособленноеПодразделениеОткуда" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>8 <Наименование> --> ПриказНаГруппуСотрудников <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПриказНаГруппуСотрудников" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(Источник.КоличествоСтрок()=1,0,1); <Группа> <Код>15 <Наименование> --> РаботникиОрганизации <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("ДатаНачала"); КоллекцияОбъектов.НоваяКолонка("Должность"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ПодразделениеОрганизации = Источник.Сотрудник.Подразделение.Получить(Источник.ДатаДок); КоллекцияОбъектов.ДатаНачала = Источник.ДатаДок; КоллекцияОбъектов.Должность = Источник.Сотрудник.Должность; КонецЦикла; <Свойство> <Код>19 <Наименование> --> Сотрудник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>20 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>18 <Наименование> --> ПодразделениеОрганизации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>17 <Наименование> --> Должность <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Должность" Вид="Реквизит" Тип="СправочникСсылка.ДолжностиОрганизаций"/> <КодПравилаКонвертации>ДолжностиОрганизаций <Свойство> <Код>16 <Наименование> --> ДатаНачала <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачала" Вид="Реквизит" Тип="Дата"/> <Группа> <Код>9 <Наименование> --> ОсновныеНачисления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновныеНачисления" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ВидРасчета"); КоллекцияОбъектов.НоваяКолонка("Действие"); КоллекцияОбъектов.НоваяКолонка("Размер"); КоллекцияОбъектов.НоваяКолонка("ВидРасчетаОтражениеЗП"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ВидРасчета = Источник.Сотрудник; КоллекцияОбъектов.Действие = "Изменить"; КоллекцияОбъектов.Размер = Источник.Оклад; КоллекцияОбъектов.ВидРасчетаОтражениеЗП = СоздатьОбъект("СписокЗначений"); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("СчетЗатрат",Источник.Сотрудник.СчетЗатрат.Получить(Источник.ДатаДок)); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто1",Источник.Сотрудник.Субконто1.Получить(Источник.ДатаДок)); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто2",Источник.Сотрудник.Субконто2.Получить(Источник.ДатаДок)); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто3",Источник.Сотрудник.Субконто3.Получить(Источник.ДатаДок)); КонецЦикла; <Свойство> <Код>13 <Наименование> --> Сотрудник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>14 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>10 <Наименование> --> ВидРасчета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасчета" Вид="Реквизит" Тип="ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций"/> <КодПравилаКонвертации>ВидыНачисленийОклад <ПередВыгрузкой>ИсходящиеДанные = ОбъектКоллекции.ВидРасчетаОтражениеЗП; <Свойство> <Код>11 <Наименование> --> Действие <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Действие" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДействияСНачислением"/> <Свойство> <Код>12 <Наименование> --> Размер <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Размер" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПриказОКадровыхИзменениях <Наименование>Документ: Приказ о кадровых изменениях <Порядок>2900 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.РаботникиОрганизации,, "Физлицо"); <Источник>ДокументСсылка.ПриказОКадровыхИзменениях <Приемник>ДокументСсылка.КадровоеПеремещениеОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ПриказНаГруппуСотрудников <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПриказНаГруппуСотрудников" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>13 <Наименование> --> РаботникиОрганизации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("ДатаНачала"); КоллекцияОбъектов.НоваяКолонка("Должность"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ПодразделениеОрганизации = Источник.Подразделение; КоллекцияОбъектов.ДатаНачала = Источник.ДатаДок; КоллекцияОбъектов.Должность = Источник.Сотрудник.Должность; <Свойство> <Код>17 <Наименование> --> Сотрудник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>18 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>16 <Наименование> --> ПодразделениеОрганизации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>14 <Наименование> --> ДатаНачала <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачала" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование> --> Должность <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Должность" Вид="Реквизит" Тип="СправочникСсылка.ДолжностиОрганизаций"/> <КодПравилаКонвертации>ДолжностиОрганизаций <Группа> <Код>7 <Наименование> --> ОсновныеНачисления <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновныеНачисления" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ВидРасчета"); КоллекцияОбъектов.НоваяКолонка("Действие"); КоллекцияОбъектов.НоваяКолонка("Размер"); КоллекцияОбъектов.НоваяКолонка("ВидРасчетаОтражениеЗП"); СчетЗатрат = Источник.Сотрудник.СчетЗатрат.Получить(Источник.ДатаДок-1); Субконто1 = Источник.Сотрудник.Субконто1.Получить(Источник.ДатаДок-1); Субконто2 = Источник.Сотрудник.Субконто2.Получить(Источник.ДатаДок-1); Субконто3 = Источник.Сотрудник.Субконто3.Получить(Источник.ДатаДок-1); //проверим, изменилась ли аналитика по сотруднику. Если изменилась - то нужно прекратить предыдущее начисление и начать новое Если (Источник.СчетЗатрат <> СчетЗатрат) или (Источник.Субконто1 <> Субконто1) или (Источник.Субконто2 <> Субконто2) или (Источник.Субконто3 <> Субконто3) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ВидРасчета = Источник.Сотрудник; КоллекцияОбъектов.Действие = "Прекратить"; КоллекцияОбъектов.Размер = Источник.Сотрудник.Оклад.Получить(Источник.ДатаДок-1); КоллекцияОбъектов.ВидРасчетаОтражениеЗП = СоздатьОбъект("СписокЗначений"); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("СчетЗатрат",СчетЗатрат); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто1",Субконто1); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто2",Субконто2); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто3",Субконто3); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ВидРасчета = Источник.Сотрудник; КоллекцияОбъектов.Действие = "Начать"; КоллекцияОбъектов.Размер = Источник.Оклад; КоллекцияОбъектов.ВидРасчетаОтражениеЗП = СоздатьОбъект("СписокЗначений"); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("СчетЗатрат",Источник.СчетЗатрат); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто1",Источник.Субконто1); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто2",Источник.Субконто2); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто3",Источник.Субконто3); Иначе КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ВидРасчета = Источник.Сотрудник; КоллекцияОбъектов.Действие = ?(Источник.Оклад <> Источник.Сотрудник.Оклад.Получить(Источник.ДатаДок-1),"Изменить","НеИзменять"); КоллекцияОбъектов.Размер = Источник.Оклад; КоллекцияОбъектов.ВидРасчетаОтражениеЗП = СоздатьОбъект("СписокЗначений"); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("СчетЗатрат",СчетЗатрат); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто1",Субконто1); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто2",Субконто2); КоллекцияОбъектов.ВидРасчетаОтражениеЗП.Установить("Субконто3",Субконто3); КонецЕсли; <Свойство> <Код>11 <Наименование> --> Сотрудник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>12 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>8 <Наименование> --> ВидРасчета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасчета" Вид="Реквизит" Тип="ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций"/> <КодПравилаКонвертации>ВидыНачисленийОклад <ПередВыгрузкой>ИсходящиеДанные = ОбъектКоллекции.ВидРасчетаОтражениеЗП; <Свойство> <Код>9 <Наименование> --> Действие <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Действие" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДействияСНачислением"/> <Свойство> <Код>10 <Наименование> --> Размер <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Размер" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование> --> ОбособленноеПодразделениеКуда <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ОбособленноеПодразделениеКуда" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>20 <Наименование> --> ОбособленноеПодразделениеОткуда <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ОбособленноеПодразделениеОткуда" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>ПриказОбУвольнении <Наименование>Документ: Приказ об увольнении <Порядок>2950 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.РаботникиОрганизации,, "Физлицо"); <Источник>ДокументСсылка.ПриказОбУвольнении <Приемник>ДокументСсылка.УвольнениеИзОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ПриказНаГруппуСотрудников <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПриказНаГруппуСотрудников" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>7 <Наименование> --> РаботникиОрганизации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Сотрудник"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ДатаУвольнения"); КоллекцияОбъектов.НоваяКолонка("ОснованиеУвольнения"); КоллекцияОбъектов.НоваяКолонка("ПрекращатьСтандартныеВычеты"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Сотрудник = Источник.Сотрудник; КоллекцияОбъектов.Физлицо = Источник.Сотрудник; КоллекцияОбъектов.ДатаУвольнения = Источник.ДатаДок; КоллекцияОбъектов.ПрекращатьСтандартныеВычеты = 1; <Свойство> <Код>11 <Наименование> --> Сотрудник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>12 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>8 <Наименование> --> ДатаУвольнения <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаУвольнения" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>9 <Наименование> --> ОснованиеУвольнения <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ОснованиеУвольнения" Вид="Реквизит" Тип="СправочникСсылка.ОснованияУвольненийИзОрганизаций"/> <Свойство> <Код>10 <Наименование> --> ПрекращатьСтандартныеВычеты <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПрекращатьСтандартныеВычеты" Вид="Реквизит" Тип="Булево"/> <Значения/> <Правило> <Код>ЗаявкаНаОткрытиеСчетов <Наименование>Документ: Заявка на открытие счетов <Порядок>3000 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.РаботникиОрганизации,, "Физлицо"); <Источник>ДокументСсылка.ЗаявкаНаОткрытиеСчетов <Приемник>ДокументСсылка.ЗаявкаНаОткрытиеСчетов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Число"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>14 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>2 <Наименование> --> ВидВклада <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидВклада" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>СпВидВклада = СоздатьОбъект("СписокЗначений"); СпВидВклада.ДобавитьЗначение("Visa Classic (вал)"); СпВидВклада.ДобавитьЗначение("Visa Classic (руб)"); СпВидВклада.ДобавитьЗначение("Visa Gold (вал)"); СпВидВклада.ДобавитьЗначение("Visa Gold (руб)"); СпВидВклада.ДобавитьЗначение("Сбербанк-Visa Electron (руб)"); СпВидВклада.ДобавитьЗначение("Сбербанк-Visa Electron (вал)"); СпВидВклада.ДобавитьЗначение("Visa-Аэрофлот (вал)"); СпВидВклада.ДобавитьЗначение("Visa-Аэрофлот (руб)"); СпВидВклада.ДобавитьЗначение("EC/MC Gold (Москва)"); СпВидВклада.ДобавитьЗначение("EC/MC Mass (вал)"); СпВидВклада.ДобавитьЗначение("EC/MC Mass (руб)"); СпВидВклада.ДобавитьЗначение("EC/MC Gold (вал)"); СпВидВклада.ДобавитьЗначение("EC/MC Gold (руб)"); СпВидВклада.ДобавитьЗначение("Visa Electron (руб)"); СпВидВклада.ДобавитьЗначение("Visa Electron (вал)"); СпВидВклада.ДобавитьЗначение("Cirrus/Maestro (Москва)"); СпВидВклада.ДобавитьЗначение("Сбербанк-Cirrus/Maestro (руб)"); СпВидВклада.ДобавитьЗначение("Сбербанк-Cirrus/Maestro (вал)"); СпВидВклада.ДобавитьЗначение("Сбербанк-Maestro Пенсионная"); СпВидВклада.ДобавитьЗначение("Сбербанк-Maestro Студенчеcкая"); СпВидВклада.ДобавитьЗначение("Счет карточки STB (руб)"); СпВидВклада.ДобавитьЗначение("Счет карточки STB (вал)"); СпВидВклада.ДобавитьЗначение("Счет дебетной карточки"); Значение = СпВидВклада.ПолучитьЗначение(Источник.ВидВклада); Если Источник.ВидВклада <= 8 тогда КодВидаВклада = 50; КодПодвидаВклада = Источник.ВидВклада; ИначеЕсли Источник.ВидВклада <= 13 тогда КодВидаВклада = 51; КодПодвидаВклада = Источник.ВидВклада - 8; ИначеЕсли Источник.ВидВклада <= 15 тогда КодВидаВклада = 53; КодПодвидаВклада = Источник.ВидВклада - 13; ИначеЕсли Источник.ВидВклада <= 20 тогда КодВидаВклада = 54; КодПодвидаВклада = Источник.ВидВклада - 15; ИначеЕсли Источник.ВидВклада <= 22 тогда КодВидаВклада = 55; КодПодвидаВклада = Источник.ВидВклада - 20; ИначеЕсли Источник.ВидВклада = 23 тогда КодВидаВклада = 56; КодПодвидаВклада = Источник.ВидВклада - 22; КонецЕсли; Значение = Значение + РазделительСтрок + КодВидаВклада + РазделительСтрок + КодПодвидаВклада + РазделительСтрок + Источник.Валюта.Код; <Свойство> <Код>5 <Наименование>НомерДоговора --> НомерДоговора <Порядок>400 <Источник Имя="НомерДоговора" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерДоговора" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ОтделениеБанка --> ОтделениеБанка <Порядок>450 <Источник Имя="ОтделениеБанка" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ОтделениеБанка" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ФилиалОтделенияБанка --> ФилиалОтделенияБанка <Порядок>500 <Источник Имя="ФилиалОтделенияБанка" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ФилиалОтделенияБанка" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>11 <Наименование> --> Банк <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство Отключить="true"> <Код>12 <Наименование> --> БанковскийСчет <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Свойство> <Код>13 <Наименование> --> ВводНачальныхСведений <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ВводНачальныхСведений" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>15 <Наименование> --> ТекстПодтверждения <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ТекстПодтверждения" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>16 <Наименование>ТабличнаяЧасть --> РаботникиОрганизации <Порядок>800 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <Свойство> <Код>19 <Наименование>Сотрудник --> ФизЛицо <Порядок>50 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство Отключить="true"> <Код>17 <Наименование> --> КонтрольнаяИнформация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КонтрольнаяИнформация" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> НомерЛицевогоСчета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="НомерЛицевогоСчета" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование>ЭмбоссированныйТекст1 --> ЭмбоссированныйТекст1 <Порядок>200 <Источник Имя="ЭмбоссированныйТекст1" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ЭмбоссированныйТекст1" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>ЭмбоссированныйТекст2 --> ЭмбоссированныйТекст2 <Порядок>250 <Источник Имя="ЭмбоссированныйТекст2" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ЭмбоссированныйТекст2" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование>ЭмбоссированныйТекст3 --> ЭмбоссированныйТекст3 <Порядок>300 <Источник Имя="ЭмбоссированныйТекст3" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ЭмбоссированныйТекст3" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ПередачаЗаявленийДСВ1 <Наименование>Документ: Передача заявлений ДСВ-1 в ПФР <Порядок>3050 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.РаботникиОрганизации,, "Физлицо"); <Источник>ДокументСсылка.ПередачаЗаявленийДСВ1 <Приемник>ДокументСсылка.ПередачаДСВвПФР <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Число"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>16 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование>НаименованиеПФР --> НаименованиеПФР <Порядок>250 <Источник Имя="НаименованиеПФР" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПФР" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>НомерДок --> НомерПачки <Порядок>350 <Источник Имя="НомерДок" Вид="Свойство" Тип="Число"/> <Приемник Имя="НомерПачки" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> ФорматФайла <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ФорматФайла" Вид="Реквизит" Тип="ПеречислениеСсылка.ФорматФайлаПФР"/> <ПередВыгрузкой>Значение = "Версия07"; <Группа> <Код>8 <Наименование>ТабличнаяЧасть --> РаботникиОрганизации <Порядок>450 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>Сотрудник --> ФизЛицо <Порядок>50 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>14 <Наименование>Фамилия --> Фамилия <Порядок>100 <Источник Имя="Фамилия" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Фамилия" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>Имя --> Имя <Порядок>150 <Источник Имя="Имя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Имя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Отчество --> Отчество <Порядок>200 <Источник Имя="Отчество" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Отчество" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>СтраховойНомерПФР --> СтраховойНомерПФР <Порядок>250 <Источник Имя="СтраховойНомерПФР" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="СтраховойНомерПФР" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>АдресДляИнформирования --> АдресДляИнформирования <Порядок>300 <Источник Имя="АдресДляИнформирования" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="АдресДляИнформирования" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ДатаЗаполнения --> ДатаЗаполнения <Порядок>350 <Источник Имя="ДатаЗаполнения" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаЗаполнения" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>РасчетыПоСтраховымВзносам <Наименование>Документ: Расчеты по страховым взносам <Порядок>3100 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; ИначеЕсли ПустоеЗначение(ВходящиеДанные.Получить("ВидОперации"))=1 Тогда Отказ = 1; Иначе КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ВидОперации")); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.РасчетыПоСтраховымВзносам <Приемник>ДокументСсылка.РасчетыПоСтраховымВзносам <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true" Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Префикс",""); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); Параметры.ПараметрыАлгоритмов.Установить("Префикс",""); <Свойство Поиск="true"> <Код>15 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Поиск="true"> <Код>11 <Наименование> --> ВидОперации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРасчетыПоСтраховымВзносам"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ВидОперации"); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПФРНакопительная --> ПФРНакопительная <Порядок>350 <Источник Имя="ПФРНакопительная" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПФРНакопительная" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации<>"УплатаПФР" Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>7 <Наименование>ПФРСтраховая --> ПФРСтраховая <Порядок>400 <Источник Имя="ПФРСтраховая" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПФРСтраховая" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации<>"УплатаПФР" Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>8 <Наименование>ТФОМС --> ТФОМС <Порядок>450 <Источник Имя="ТФОМС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ТФОМС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации<>"УплатаФОМС" Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>10 <Наименование>ФФОМС --> ФФОМС <Порядок>500 <Источник Имя="ФФОМС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ФФОМС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации<>"УплатаФОМС" Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>9 <Наименование>ФСС --> ФСС <Порядок>550 <Источник Имя="ФСС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ФСС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>ВидОперации = ВходящиеДанные.Получить("ВидОперации"); Если ВидОперации<>"УплатаФСС" Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование> --> ВидПлатежа <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПлатежейВГосБюджет"/> <ПередВыгрузкой>Значение = "Налог"; <Свойство> <Код>13 <Наименование>ДатаДок --> ДатаПлатежа <Порядок>650 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование>МесяцОтчетногоПериода --> МесяцРасчетногоПериода <Порядок>700 <Источник Имя="МесяцОтчетногоПериода" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="МесяцРасчетногоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>16 <Наименование> --> ПлатежноеПоручениеФСС_НС_ПЗДата <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПлатежноеПоручениеФСС_НС_ПЗДата" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>17 <Наименование> --> ПлатежноеПоручениеФСС_НС_ПЗНомер <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ПлатежноеПоручениеФСС_НС_ПЗНомер" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> ПлатежноеПоручениеФССДата <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ПлатежноеПоручениеФССДата" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> ПлатежноеПоручениеФССНомер <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ПлатежноеПоручениеФССНомер" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> ПФРНаДоплатуКПенсииШахтерам <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРНаДоплатуКПенсииШахтерам" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> ПФРПоДополнительномуТарифу <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРПоДополнительномуТарифу" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>22 <Наименование> --> ФССЕНВД <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ФССЕНВД" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>23 <Наименование> --> ФССНесчастныеСлучаи <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ФССНесчастныеСлучаи" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПеречислениеНДФЛвБюджет <Наименование>Документ: Перечисление НДФЛ в бюджет РФ <Порядок>3150 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.СотрудникиОрганизации,, "Физлицо"); <Источник>ДокументСсылка.ПеречислениеНДФЛвБюджет <Приемник>ДокументСсылка.ПеречислениеНДФЛвБюджет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>12 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>МесяцНалоговогоПериода --> МесяцНалоговогоПериода <Порядок>300 <Источник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>2 <Наименование>ДатаПлатежа --> ДатаПлатежа <Порядок>350 <Источник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>6 <Наименование>ОКАТО_КПП --> ОКАТО_КПП <Порядок>400 <Источник Имя="ОКАТО_КПП" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ОКАТО_КПП" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПлатежноеПоручениеДата --> ПлатежноеПоручениеДата <Порядок>450 <Источник Имя="ПлатежноеПоручениеДата" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ПлатежноеПоручениеДата" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>8 <Наименование>ПлатежноеПоручениеНомер --> ПлатежноеПоручениеНомер <Порядок>500 <Источник Имя="ПлатежноеПоручениеНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПлатежноеПоручениеНомер" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>Ставка --> Ставка <Порядок>550 <Источник Имя="Ставка" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Ставка" Вид="Реквизит" Тип="ПеречислениеСсылка.НДФЛСтавки"/> <ПередВыгрузкой>Значение = "Ставка"+Формат(Источник.Ставка,"Ч(0)2.0"); <Свойство> <Код>13 <Наименование>СуммаПеречислено --> Сумма <Порядок>600 <Источник Имя="СуммаПеречислено" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Группа> <Код>14 <Наименование>ТабличнаяЧасть --> СотрудникиОрганизации <Порядок>650 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="СотрудникиОрганизации" Вид="ТабличнаяЧасть"/> <Свойство> <Код>16 <Наименование>Сотрудник --> ФизЛицо <Порядок>50 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>15 <Наименование>Сумма --> Сумма <Порядок>100 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПередачаОборудованияВМонтаж <Наименование>Документ: Передача оборудования в монтаж <Порядок>3200 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ПередачаОборудованияВМонтаж <Приемник>ДокументСсылка.ПередачаОборудованияВМонтаж <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>6 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>7 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ОбъектВнеоборотныхАктивов --> ОбъектСтроительства <Порядок>350 <Источник Имя="ОбъектВнеоборотныхАктивов" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <Приемник Имя="ОбъектСтроительства" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <КодПравилаКонвертации>ОбъектыСтроительства_08_3 <Свойство> <Код>8 <Наименование>МестоХранения --> Склад <Порядок>400 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>9 <Наименование>СтатьяЗатратНаСтроительство --> СтатьяЗатрат <Порядок>450 <Источник Имя="СтатьяЗатратНаСтроительство" Вид="Реквизит" Тип="СправочникСсылка.СтатьиЗатратНаСтроительство"/> <Приемник Имя="СтатьяЗатрат" Вид="Реквизит" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатратНаСтроительство <Свойство> <Код>10 <Наименование> --> СчетУчетаОбъектаСтроительства <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаОбъектаСтроительства" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("08.3"); <Группа> <Код>11 <Наименование>ТабличнаяЧасть --> Оборудование <Порядок>550 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Оборудование" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование>Оборудование --> Номенклатура <Порядок>50 <Источник Имя="Оборудование" Вид="Реквизит" Тип="СправочникСсылка.Оборудование"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Оборудование <Свойство> <Код>12 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> СчетУчета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("07"); <Значения/> <Правило> <Код>ВводВЭксплуатациюОС <Наименование>Документ: Ввод в эксплуатацию ОС <Порядок>3250 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <ПослеЗагрузки>Объект.ОперацияСОбъектамиОС = УправлениеВнеоборотнымиАктивами.ПолучитьСобытиеПоОСИзСправочника(Перечисления.ВидыСобытийОС.ПринятиеКУчетуСВводомВЭксплуатацию); Объект.СтоимостьВР = Объект.СтоимостьБУ - Объект.СтоимостьНУ - Объект.СтоимостьПР; <Источник>ДокументСсылка.ВводВЭксплуатациюОС <Приемник>ДокументСсылка.ПринятиеКУчетуОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>17 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>20 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПринятияКУчетуОсновныхСредств"/> <ПередВыгрузкой>Если Источник.ВидВложений = 4 Тогда Значение = "Оборудование"; Иначе Значение = "ОбъектыСтроительства"; КонецЕсли; <Свойство> <Код>55 <Наименование>Подразделение --> МестонахождениеОС <Порядок>400 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="МестонахождениеОС" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство Отключить="true"> <Код>8 <Наименование> --> ДатаПриобретения <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПриобретения" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>//это УСН <Свойство> <Код>11 <Наименование>МОЛ --> МОЛБУ <Порядок>500 <Источник Имя="МОЛ" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="МОЛБУ" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>14 <Наименование>ОбъектВнеоборотныхАктивов --> Номенклатура <Порядок>550 <Источник Имя="ОбъектВнеоборотныхАктивов" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>ОбъектыСтроительства_08_4 <ПередВыгрузкой>Если Источник.ВидВложений <> 4 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>15 <Наименование>ОбъектВнеоборотныхАктивов --> ОбъектСтроительства <Порядок>600 <Источник Имя="ОбъектВнеоборотныхАктивов" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <Приемник Имя="ОбъектСтроительства" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <КодПравилаКонвертации>ОбъектыСтроительства_08_3 <ПередВыгрузкой>Если Источник.ВидВложений = 4 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>27 <Наименование> --> Склад <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Константа.ОсновнойСклад; <Свойство> <Код>34 <Наименование> --> СпособПоступления <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПоступления" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПоступленияАктивов"/> <КодПравилаКонвертации>СпособыПоступленияОС <ПередВыгрузкой>Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Если ПустоеЗначение(Источник.ОсновноеСредство)=0 Тогда Если ПустоеЗначение(Источник.ОсновноеСредство.СпособПоступления)=0 Тогда Значение = Источник.ОсновноеСредство.СпособПоступления; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; <Свойство> <Код>23 <Наименование> --> ПорядокПогашенияСтоимостиБУ <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокПогашенияСтоимостиБУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокПогашенияСтоимостиОС"/> <ПередВыгрузкой>Если Источник.ПодлежитАмортизации = 1 Тогда Значение = "НачислениеАмортизации"; Иначе Значение = "СтоимостьНеПогашается"; КонецЕсли; <Свойство> <Код>12 <Наименование>НачислятьАмортизацию --> НачислятьАмортизациюБУ <Порядок>800 <Источник Имя="НачислятьАмортизацию" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НачислятьАмортизациюБУ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>6 <Наименование>КоэффициентАмортизации --> ГодоваяНормаАмортизацииБУ <Порядок>850 <Источник Имя="КоэффициентАмортизации" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ГодоваяНормаАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование>КоэффициентУскорения --> КоэффициентУскоренияБУ <Порядок>900 <Источник Имя="КоэффициентУскорения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоэффициентУскоренияБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование> --> ПараметрВыработкиБУ <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПараметрВыработкиБУ" Вид="Реквизит" Тип="СправочникСсылка.ПараметрыВыработкиОС"/> <КодПравилаКонвертации>ПараметрыВыработкиОС <ПередВыгрузкой>Если Источник.СпособНачисленияАмортизации <> Перечисление.СпособыНачисленияАмортизацииОС.ПропорциональноОбъемуПродукцииРабот Тогда Отказ = 1; Иначе Значение = "1"; КонецЕсли; <Свойство> <Код>24 <Наименование>ОбщийОбъемПродукцииРабот --> ПредполагаемыйОбъемПродукцииБУ <Порядок>1000 <Источник Имя="ОбщийОбъемПродукцииРабот" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПредполагаемыйОбъемПродукцииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>СпособНачисленияАмортизации --> СпособНачисленияАмортизацииБУ <Порядок>1050 <Источник Имя="СпособНачисленияАмортизации" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыНачисленияАмортизацииОС"/> <Приемник Имя="СпособНачисленияАмортизацииБУ" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыНачисленияАмортизацииОС"/> <КодПравилаКонвертации>СпособыНачисленияАмортизацииОС <Свойство> <Код>35 <Наименование> --> СпособыОтраженияРасходовПоАмортизации <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СпособыОтраженияРасходовПоАмортизации" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>Значение = Источник; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ВидРасходовНУ = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, "НеУчитываемыеВЦеляхНалогообложения","Амортизация"); НаименованиеРасхода = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые,"Амортизация ОС, не принимаемая в НУ", "Амортизация ОС"); ПринятиеКналоговомуУчету = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, 0,1); ВидПрочихДоходовИРасходов = "ПрочиеВнереализационныеДоходыРасходы"; СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); СтатьяЗатрат.Установить("ВидРасходовНУ",ВидРасходовНУ); СтатьяЗатрат.Установить("ПринятиеКНалоговомуУчету",ПринятиеКНалоговомуУчету); СтатьяЗатрат.Установить("Наименование",НаименованиеРасхода); СтатьяЗатрат.Установить("ВидПрочихДоходовИРасходов",ВидПрочихДоходовИРасходов); ИсходящиеДанные.Установить("СтатьяЗатрат",СтатьяЗатрат); <Свойство> <Код>36 <Наименование>СрокПолезногоИспользования --> СрокПолезногоИспользованияБУ <Порядок>1150 <Источник Имя="СрокПолезногоИспользования" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СрокПолезногоИспользованияБУ" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>7 <Наименование> --> ГрафикАмортизацииПоГодуБУ <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ГрафикАмортизацииПоГодуБУ" Вид="Реквизит" Тип="СправочникСсылка.ГодовыеГрафикиАмортизацииОС"/> <Свойство Отключить="true"> <Код>9 <Наименование> --> КоэффициентАмортизацииНУ <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентАмортизацииНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>ПервоначальнаяСтоимостьН --> ПервоначальнаяСтоимостьНУ <Порядок>1300 <Источник Имя="ПервоначальнаяСтоимостьН" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПервоначальнаяСтоимостьНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> НачислятьАмортизациюНУ <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизациюНУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если (Источник.НачислятьАмортизацию = 1) и (Источник.ПринятьК_НалоговомуУчету = 1) Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>37 <Наименование>СрокПолезногоИспользованияН --> СрокПолезногоИспользованияНУ <Порядок>1400 <Источник Имя="СрокПолезногоИспользованияН" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СрокПолезногоИспользованияНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>МетодНачисленияАмортизации --> СпособНачисленияАмортизацииНУ <Порядок>1450 <Источник Имя="МетодНачисленияАмортизации" Вид="Реквизит" Тип="ПеречислениеСсылка.МетодыНачисленияАмортизации"/> <Приемник Имя="СпособНачисленияАмортизацииНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.МетодыНачисленияАмортизации"/> <КодПравилаКонвертации>МетодыНачисленияАмортизации <Свойство> <Код>22 <Наименование> --> ПорядокВключенияСтоимостиВСоставРасходовНУ <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокВключенияСтоимостиВСоставРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокВключенияСтоимостиОСВСоставРасходовНУ"/> <ПередВыгрузкой>Если Источник.ПринятьК_НалоговомуУчету = 1 Тогда Значение = "НачислениеАмортизации"; ИначеЕсли Источник.ПринятьК_НалоговомуУчету = 2 Тогда Значение = "ВключениеВРасходыПриПринятииКУчету"; ИначеЕсли Источник.ПринятьК_НалоговомуУчету = 3 Тогда Значение = "СтоимостьНеВключаетсяВРасходы"; КонецЕсли; <Свойство> <Код>30 <Наименование>СпециальныйКоэффициент --> СпециальныйКоэффициентНУ <Порядок>1550 <Источник Имя="СпециальныйКоэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СпециальныйКоэффициентНУ" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>16 <Наименование> --> ОперацияСОбъектамиОС <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="ОперацияСОбъектамиОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <Свойство> <Код>25 <Наименование> --> ПроцентКапитальныхВложенийВключаемыхВРасходыНУ <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентКапитальныхВложенийВключаемыхВРасходыНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.ПервоначальнаяСтоимостьН=0,0, Источник.КапитальныеВложенияВключенныеВРасходы/Источник.ПервоначальнаяСтоимостьН*100); <Свойство> <Код>50 <Наименование> --> СчетУчетаЗатратПоАмортизационнойПремии <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаЗатратПоАмортизационнойПремии" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.КапитальныеВложенияВключенныеВРасходы > 0 Тогда Значение = Источник.СчетЗатрат; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование> --> ПодразделениеОрганизацииПоАмортизационнойПремии <Порядок>1750 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизацииПоАмортизационнойПремии" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Значение = ""; Для НомерСубконто = 1 по Источник.СчетЗатрат.КоличествоСубконто() Цикл ВидСубконто = Источник.СчетЗатрат.ВидСубконто(НомерСубконто); Если (ВидСубконто = ВидыСубконто.Подразделения) ИЛИ (ВидСубконто = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", Источник.ПолучитьАтрибут("Субконто"+НомерСубконто)); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>44 <Наименование> --> СубконтоПоАмортизационнойПремии1 <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоПоАмортизационнойПремии1" Вид="Реквизит"/> <ПередВыгрузкой>НомерСубконто = 1; Если Источник.КапитальныеВложенияВключенныеВРасходы > 0 Тогда ВидСубконто = Источник.СчетЗатрат.ВидСубконто(НомерСубконто); //если передана статья затрат во входящих данные - используем ее Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); Если (Источник.СчетЗатрат = СчетПоКоду("26")) или (Источник.СчетЗатрат = СчетПоКоду("44.1.3")) Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ВидДеятельностиОпределяетсяПоДоходам"); ИначеЕсли Источник.СчетЗатрат = СчетПоКоду("44.1.2") Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); Иначе Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КонецЕсли; ИмяПКО = "СтатьиЗатрат_Предопределенные"; ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); ИмяПКО = "СтатьиЗатрат_Предопределенные"; Иначе Значение = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.ПолучитьАтрибут("Субконто"+НомерСубконто)); ПриВыгрузкеСубконто(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>45 <Наименование> --> СубконтоПоАмортизационнойПремии2 <Порядок>1850 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоПоАмортизационнойПремии2" Вид="Реквизит"/> <ПередВыгрузкой>НомерСубконто = 2; Если Источник.КапитальныеВложенияВключенныеВРасходы > 0 Тогда ВидСубконто = Источник.СчетЗатрат.ВидСубконто(НомерСубконто); //если передана статья затрат во входящих данные - используем ее Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); Если (Источник.СчетЗатрат = СчетПоКоду("26")) или (Источник.СчетЗатрат = СчетПоКоду("44.1.3")) Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ВидДеятельностиОпределяетсяПоДоходам"); ИначеЕсли Источник.СчетЗатрат = СчетПоКоду("44.1.2") Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); Иначе Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КонецЕсли; ИмяПКО = "СтатьиЗатрат_Предопределенные"; ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); ИмяПКО = "СтатьиЗатрат_Предопределенные"; Иначе Значение = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.ПолучитьАтрибут("Субконто"+НомерСубконто)); ПриВыгрузкеСубконто(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>46 <Наименование> --> СубконтоПоАмортизационнойПремии3 <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоПоАмортизационнойПремии3" Вид="Реквизит"/> <ПередВыгрузкой>НомерСубконто = 3; Если Источник.КапитальныеВложенияВключенныеВРасходы > 0 Тогда ВидСубконто = Источник.СчетЗатрат.ВидСубконто(НомерСубконто); //если передана статья затрат во входящих данные - используем ее Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); Если (Источник.СчетЗатрат = СчетПоКоду("26")) или (Источник.СчетЗатрат = СчетПоКоду("44.1.3")) Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ВидДеятельностиОпределяетсяПоДоходам"); ИначеЕсли Источник.СчетЗатрат = СчетПоКоду("44.1.2") Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); Иначе Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КонецЕсли; ИмяПКО = "СтатьиЗатрат_Предопределенные"; ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); ИмяПКО = "СтатьиЗатрат_Предопределенные"; Иначе Значение = Источник.ПолучитьАтрибут("Субконто"+НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.ПолучитьАтрибут("Субконто"+НомерСубконто)); ПриВыгрузкеСубконто(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>26 <Наименование> --> РеквизитыДокументаОплаты <Порядок>1950 <Источник Имя="" Вид=""/> <Приемник Имя="РеквизитыДокументаОплаты" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>28 <Наименование> --> СоставОсновногоСредства <Порядок>2000 <Источник Имя="" Вид=""/> <Приемник Имя="СоставОсновногоСредства" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <Свойство> <Код>29 <Наименование> --> СостояниеВводаВЭксплуатацию <Порядок>2050 <Источник Имя="" Вид=""/> <Приемник Имя="СостояниеВводаВЭксплуатацию" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСВводИПринятиеКУчету <ПередВыгрузкой>Значение = 1; <Свойство> <Код>33 <Наименование> --> СпособОтраженияРасходовПриВключенииВСтоимость <Порядок>2100 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходовПриВключенииВСтоимость" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>Значение = Источник; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ВидРасходовНУ = "МатериальныеРасходы"; НаименованиеРасхода = "Включение ОС в состав расходов"; ПринятиеКналоговомуУчету = 1; ВидПрочихДоходовИРасходов = "ПрочиеВнереализационныеДоходыРасходы"; СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); СтатьяЗатрат.Установить("ВидРасходовНУ",ВидРасходовНУ); СтатьяЗатрат.Установить("ПринятиеКНалоговомуУчету",ПринятиеКНалоговомуУчету); СтатьяЗатрат.Установить("Наименование",НаименованиеРасхода); СтатьяЗатрат.Установить("ВидПрочихДоходовИРасходов",ВидПрочихДоходовИРасходов); ИсходящиеДанные.Установить("СтатьяЗатрат",СтатьяЗатрат); ИсходящиеДанные.Установить("КлючДанных","СпособОтраженияДляВключенияВСоставРасходов"); <Свойство Отключить="true"> <Код>38 <Наименование> --> СтатьяДоходов <Порядок>2150 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Свойство Отключить="true"> <Код>39 <Наименование> --> СтатьяПрочихРасходов <Порядок>2200 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяПрочихРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Свойство> <Код>40 <Наименование>БалансоваяСтоимость --> СтоимостьБУ <Порядок>2250 <Источник Имя="БалансоваяСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование>ПервоначальнаяСтоимостьН --> СтоимостьНУ <Порядок>2300 <Источник Имя="ПервоначальнаяСтоимостьН" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> СтоимостьПР <Порядок>2350 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл //стоимость ПР и амортизацию ПР получим по счету НПР.01 Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("ОС",Источник.ОсновноеСредство); ПолучитьПараметрыПР(); Значение = Значение + Параметры.ПараметрыАлгоритмов.Получить("ПриходПР"); КонецЦикла; <Свойство Отключить="true"> <Код>41 <Наименование> --> СтоимостьВР <Порядок>2400 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьВР" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>48 <Наименование> --> СчетУчета <Порядок>2450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("01.1"); <Свойство> <Код>47 <Наименование> --> СчетНачисленияАмортизации <Порядок>2500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНачисленияАмортизации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("02.1"); <Свойство> <Код>49 <Наименование> --> СчетУчетаВнеоборотногоАктива <Порядок>2550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаВнеоборотногоАктива" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("08." + Строка(Источник.ВидВложений)); <Свойство Отключить="true"> <Код>51 <Наименование> --> УказатьПервоначальнуюСтоимость <Порядок>2600 <Источник Имя="" Вид=""/> <Приемник Имя="УказатьПервоначальнуюСтоимость" Вид="Реквизит" Тип="Булево"/> <Группа> <Код>52 <Наименование>ТабличнаяЧасть --> ОсновныеСредства <Порядок>2650 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОсновныеСредства" Вид="ТабличнаяЧасть"/> <Свойство> <Код>54 <Наименование>ОсновноеСредство --> ОсновноеСредство <Порядок>50 <Источник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>53 <Наименование> --> ИнвентарныйНомер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентарныйНомер" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.Код; <Значения/> <Правило> <Код>МодернизацияОС <Наименование>Документ: Модернизация ОС <Порядок>3300 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.МодернизацияОС <Приемник>ДокументСсылка.МодернизацияОС <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>8 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>43 <Наименование> --> МестонахождениеОС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="МестонахождениеОС" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = Источник.ОсновноеСредство.Подразделение.Получить(Источник.ДатаДок); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>6 <Наименование>ОбъектВнеоборотныхАктивов --> ОбъектСтроительства <Порядок>400 <Источник Имя="ОбъектВнеоборотныхАктивов" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <Приемник Имя="ОбъектСтроительства" Вид="Реквизит" Тип="СправочникСсылка.ОбъектыСтроительства"/> <КодПравилаКонвертации>ОбъектыСтроительства_08_3 <Свойство Отключить="true"> <Код>10 <Наименование> --> РеквизитыДокументаОплаты <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="РеквизитыДокументаОплаты" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> СобытиеОС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСМодернизация <ПередВыгрузкой>Значение = 1; <Свойство> <Код>12 <Наименование>СуммаРасходов --> СтоимостьБУ <Порядок>550 <Источник Имя="СуммаРасходов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>СуммаРасходовН --> СтоимостьНУ <Порядок>600 <Источник Имя="СуммаРасходовН" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СтоимостьНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> СтоимостьВР <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьВР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаРасходов - Источник.СуммаРасходовН; <Свойство> <Код>15 <Наименование> --> СтоимостьПР <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>1 <Наименование>ВключатьАПВСоставРасходовПриОтраженииМодернизации --> ВключатьАПВСоставРасходовПриОтраженииМодерниза <Порядок>750 <Источник Имя="ВключатьАПВСоставРасходовПриОтраженииМодернизации" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВключатьАПВСоставРасходовПриОтраженииМодернизации" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование> --> СчетУчетаЗатратПоАмортизационнойПремии <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаЗатратПоАмортизационнойПремии" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.КапитальныеВложенияВключенныеВРасходы > 0 Тогда Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = Источник.ОсновноеСредство.СчетЗатрат.Получить(Источник.ДатаДок); Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>9 <Наименование> --> ПодразделениеОрганизацииПоАмортизационнойПремии <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизацииПоАмортизационнойПремии" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Если Источник.ВключатьАПВСоставРасходовПриОтраженииМодернизации > 0 Тогда Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда ОС = Источник.ОсновноеСредство; ОС.ИспользоватьДату(Источник.ДатаДок); Значение = ""; СчетЗатрат = ОС.СчетЗатрат; Для НомерСубконто = 1 по СчетЗатрат.КоличествоСубконто() Цикл ВидСубконто = СчетЗатрат.ВидСубконто(НомерСубконто); Если (ВидСубконто = ВидыСубконто.Подразделения) ИЛИ (ВидСубконто = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ОС.ПолучитьАтрибут("Субконто"+НомерСубконто)); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>16 <Наименование> --> СубконтоПоАмортизационнойПремии1 <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоПоАмортизационнойПремии1" Вид="Реквизит"/> <ПередВыгрузкой>Если Источник.ВключатьАПВСоставРасходовПриОтраженииМодернизации > 0 Тогда Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда НомерСубконто = 1; ОС = Источник.ОсновноеСредство; ОС.ИспользоватьДату(Источник.ДатаДок); СчетЗатрат = ОС.СчетЗатрат; ВидСубконто = СчетЗатрат.ВидСубконто(НомерСубконто); //если передана статья затрат во входящих данные - используем ее Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); Если (СчетЗатрат = СчетПоКоду("26")) или (СчетЗатрат = СчетПоКоду("44.1.3")) Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ВидДеятельностиОпределяетсяПоДоходам"); ИначеЕсли СчетЗатрат = СчетПоКоду("44.1.2") Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); Иначе Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КонецЕсли; ИмяПКО = "СтатьиЗатрат_Предопределенные"; ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); ИмяПКО = "СтатьиЗатрат_Предопределенные"; Иначе Значение = ОС.ПолучитьАтрибут("Субконто"+НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОС.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОС.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОС.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОС.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОС.ПолучитьАтрибут("Субконто"+НомерСубконто)); ПриВыгрузкеСубконто(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>17 <Наименование> --> СубконтоПоАмортизационнойПремии2 <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоПоАмортизационнойПремии2" Вид="Реквизит"/> <ПередВыгрузкой>Если Источник.ВключатьАПВСоставРасходовПриОтраженииМодернизации > 0 Тогда Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда НомерСубконто = 2; ОС = Источник.ОсновноеСредство; ОС.ИспользоватьДату(Источник.ДатаДок); СчетЗатрат = ОС.СчетЗатрат; ВидСубконто = СчетЗатрат.ВидСубконто(НомерСубконто); //если передана статья затрат во входящих данные - используем ее Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); Если (СчетЗатрат = СчетПоКоду("26")) или (СчетЗатрат = СчетПоКоду("44.1.3")) Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ВидДеятельностиОпределяетсяПоДоходам"); ИначеЕсли СчетЗатрат = СчетПоКоду("44.1.2") Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); Иначе Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КонецЕсли; ИмяПКО = "СтатьиЗатрат_Предопределенные"; ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); ИмяПКО = "СтатьиЗатрат_Предопределенные"; Иначе Значение = ОС.ПолучитьАтрибут("Субконто"+НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОС.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОС.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОС.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОС.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОС.ПолучитьАтрибут("Субконто"+НомерСубконто)); ПриВыгрузкеСубконто(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование> --> СубконтоПоАмортизационнойПремии3 <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоПоАмортизационнойПремии3" Вид="Реквизит"/> <ПередВыгрузкой>Если Источник.ВключатьАПВСоставРасходовПриОтраженииМодернизации > 0 Тогда Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда НомерСубконто = 3; ОС = Источник.ОсновноеСредство; ОС.ИспользоватьДату(Источник.ДатаДок); СчетЗатрат = ОС.СчетЗатрат; ВидСубконто = СчетЗатрат.ВидСубконто(НомерСубконто); //если передана статья затрат во входящих данные - используем ее Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); Если (СчетЗатрат = СчетПоКоду("26")) или (СчетЗатрат = СчетПоКоду("44.1.3")) Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ВидДеятельностиОпределяетсяПоДоходам"); ИначеЕсли СчетЗатрат = СчетПоКоду("44.1.2") Тогда Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); Иначе Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КонецЕсли; ИмяПКО = "СтатьиЗатрат_Предопределенные"; ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) Тогда Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","АмортизационнаяПремия"); Значение.Установить("Наименование","Амортизационная премия"); ИмяПКО = "СтатьиЗатрат_Предопределенные"; Иначе Значение = ОС.ПолучитьАтрибут("Субконто"+НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОС.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОС.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОС.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОС.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОС.ПолучитьАтрибут("Субконто"+НомерСубконто)); ПриВыгрузкеСубконто(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>19 <Наименование> --> СчетУчетаВнеоборотногоАктива <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаВнеоборотногоАктива" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("08.3"); <Группа> <Код>21 <Наименование> --> ОС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ОсновноеСредство"); КоллекцияОбъектов.НоваяКолонка("АмортизацияБУ"); КоллекцияОбъектов.НоваяКолонка("АмортизацияЗаМесяцБУ"); КоллекцияОбъектов.НоваяКолонка("АмортизацияПР"); КоллекцияОбъектов.НоваяКолонка("КоэффициентАмортизацииБУ"); КоллекцияОбъектов.НоваяКолонка("КоэффициентАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("КоэффициентУскоренияБУ"); КоллекцияОбъектов.НоваяКолонка("СрокПолезногоИспользованияБУ"); КоллекцияОбъектов.НоваяКолонка("СрокПолезногоИспользованияНУ"); КоллекцияОбъектов.НоваяКолонка("СтоимостьБУ"); КоллекцияОбъектов.НоваяКолонка("СтоимостьНУ"); КоллекцияОбъектов.НоваяКолонка("СтоимостьПР"); КоллекцияОбъектов.НоваяКолонка("СуммаКапитальныхВложенийВключаемыхВРасходыНУ"); КоллекцияОбъектов.НоваяКолонка("СуммаМодернизацииБУ"); КоллекцияОбъектов.НоваяКолонка("СуммаМодернизацииНУ"); КоллекцияОбъектов.НоваяКолонка("СуммаМодернизацииПР"); КоллекцияОбъектов.НоваяКолонка("СуммаМодернизацииВР"); КоллекцияОбъектов.НоваяКолонка("ОбъемПродукцииРаботБУ"); КоллекцияОбъектов.НоваяКолонка("ФактОбъемПродукцииРаботБУ"); КоллекцияОбъектов.НоваяКолонка("ФактСрокИспользованияБУ"); Если Источник.КоличествоСтрок()>0 тогда СуммаРасходовНаОбъект = Окр(Источник.СуммаРасходов/Источник.КоличествоСтрок(), 2); СуммаРасходовНаПоследнийОбъект = Источник.СуммаРасходов - СуммаРасходовНаОбъект*(Источник.КоличествоСтрок() - 1); СуммаРасходовНаОбъектНУ = Окр(Источник.СуммаРасходовН/Источник.КоличествоСтрок(), 2); СуммаРасходовНаПоследнийОбъектНУ = Источник.СуммаРасходовН - СуммаРасходовНаОбъектНУ*(Источник.КоличествоСтрок() - 1); КапитальныеВложенияВключенныеВРасходыНаОбъект = Окр(Источник.КапитальныеВложенияВключенныеВРасходы/Источник.КоличествоСтрок(), 2); КапитальныеВложенияВключенныеВРасходыНаПоследнийОбъект = Источник.КапитальныеВложенияВключенныеВРасходы - КапитальныеВложенияВключенныеВРасходыНаОбъект*(Источник.КоличествоСтрок() - 1); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл ОС = Источник.ОсновноеСредство; ФактическийОбъемПродукции = 0; Если ОС.СпособНачисленияАмортизации = Перечисление.СпособыНачисленияАмортизацииОС.ПропорциональноОбъемуПродукцииРабот Тогда //определяем общую сумму фактического объема продукции Если ПустоеЗначение(ОС.ДатаВводаВЭксплуатацию) = 0 Тогда ДатаНачисленияАмортизации = КонМесяца(ДобавитьМесяц(ОС.ДатаВводаВЭксплуатацию, 1)); // дата окончания первого месяца, в котором начисляется амортизация Пока ДатаНачисленияАмортизации <= КонМесяца(Источник.ДатаДок) Цикл ФактическийОбъемПродукции = ФактическийОбъемПродукции + ОС.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(ДатаНачисленияАмортизации + 1); ДатаНачисленияАмортизации = КонМесяца(ДатаНачисленияАмортизации + 1); КонецЦикла; КонецЕсли; КонецЕсли; //рассчитываем сумму амортизации за этот месяц СведенияОбОС = глРасчетАмортизацииОС(ОС, Источник.ДатаДок, 1); СтоимостьПР = 0; АмортизацияПР = 0; МодернизацияПР = 0; //стоимость ПР и амортизацию ПР получим по счету НПР.01 Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("ОС",Источник.ОсновноеСредство); ПолучитьПараметрыПР(); СтоимостьПР = Параметры.ПараметрыАлгоритмов.Получить("НачОстатокПР"); АмортизацияПР = Параметры.ПараметрыАлгоритмов.Получить("НачАмортизацияПР"); МодернизацияПР = Параметры.ПараметрыАлгоритмов.Получить("ПриходПР"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ОсновноеСредство = ОС; КоллекцияОбъектов.АмортизацияБУ = СведенияОбОС.Получить("НачисленнаяАмортизацияНач"); КоллекцияОбъектов.АмортизацияЗаМесяцБУ = СведенияОбОС.Получить("РассчитаннаяАмортизацияБух"); КоллекцияОбъектов.АмортизацияПР = АмортизацияПР; КоллекцияОбъектов.КоэффициентАмортизацииБУ = ОС.КоэффициентАмортизации.Получить(Источник.ДатаДок); КоллекцияОбъектов.КоэффициентАмортизацииНУ = 0; КоллекцияОбъектов.КоэффициентУскоренияБУ = ?(ОС.СпособНачисленияАмортизации = Перечисление.СпособыНачисленияАмортизацииОС.УменьшаемогоОстатка, ОС.КоэффициентУскорения,0); КоллекцияОбъектов.СрокПолезногоИспользованияБУ = Источник.СрокПолезногоИспользования; КоличествоЛет = ДатаГод(Источник.ДатаДок) - ДатаГод(ОС.ДатаВводаВЭксплуатацию); КоличествоМесяцев = ДатаМесяц(Источник.ДатаДок) - ДатаМесяц(ОС.ДатаВводаВЭксплуатацию); КоллекцияОбъектов.ФактСрокИспользованияБУ = КоличествоЛет * 12 + КоличествоМесяцев; КоллекцияОбъектов.СрокПолезногоИспользованияНУ = Источник.СрокПолезногоИспользованияН; КоллекцияОбъектов.СтоимостьБУ = СведенияОбОС.Получить("БалансоваяСтоимостьНач"); КоллекцияОбъектов.СтоимостьНУ = СведенияОбОС.Получить("БалансоваяСтоимостьНалог"); КоллекцияОбъектов.СтоимостьПР = СтоимостьПР; КоллекцияОбъектов.СуммаКапитальныхВложенийВключаемыхВРасходыНУ = ?(Источник.НомерСтроки <> Источник.КоличествоСтрок(), КапитальныеВложенияВключенныеВРасходыНаОбъект, КапитальныеВложенияВключенныеВРасходыНаПоследнийОбъект); КоллекцияОбъектов.СуммаМодернизацииБУ = ?(Источник.НомерСтроки <> Источник.КоличествоСтрок(), СуммаРасходовНаОбъект, СуммаРасходовНаПоследнийОбъект); КоллекцияОбъектов.СуммаМодернизацииНУ = ?(Источник.НомерСтроки <> Источник.КоличествоСтрок(), СуммаРасходовНаОбъектНУ, СуммаРасходовНаПоследнийОбъектНУ); КоллекцияОбъектов.СуммаМодернизацииПР = МодернизацияПР; КоллекцияОбъектов.СуммаМодернизацииВР = КоллекцияОбъектов.СуммаМодернизацииБУ - КоллекцияОбъектов.СуммаМодернизацииНУ - МодернизацияПР; КоллекцияОбъектов.ОбъемПродукцииРаботБУ = Источник.ОбщийОбъемПродукцииРабот; КоллекцияОбъектов.ФактОбъемПродукцииРаботБУ = ФактическийОбъемПродукции; КонецЦикла; КонецЕсли; <Свойство> <Код>29 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>22 <Наименование> --> АмортизацияБУ <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="АмортизацияБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование> --> АмортизацияЗаМесяцБУ <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="АмортизацияЗаМесяцБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> АмортизацияПР <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="АмортизацияПР" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> КоэффициентАмортизацииБУ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> КоэффициентАмортизацииНУ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентАмортизацииНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> КоэффициентУскоренияБУ <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентУскоренияБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> СрокПолезногоИспользованияБУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> СрокПолезногоИспользованияНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> СтоимостьБУ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> СтоимостьНУ <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> СтоимостьПР <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьПР" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование> --> СуммаКапитальныхВложенийВключаемыхВРасходыНУ <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКапитальныхВложенийВключаемыхВРасходыНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> СуммаМодернизацииБУ <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаМодернизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> СуммаМодернизацииНУ <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаМодернизацииНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> СуммаМодернизацииПР <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаМодернизацииПР" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СуммаМодернизацииВР <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаМодернизацииВР" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование> --> ОбъемПродукцииРаботБУ <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъемПродукцииРаботБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>41 <Наименование> --> ФактОбъемПродукцииРаботБУ <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ФактОбъемПродукцииРаботБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> ФактСрокИспользованияБУ <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ФактСрокИспользованияБУ" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПодготовкаКПередачеОС <Наименование>Документ: Подготовка к передаче ОС <Порядок>3350 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ПодготовкаКПередачеОС <Приемник>ДокументСсылка.ПодготовкаКПередачеОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>6 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = Источник.ОсновноеСредство.Подразделение.Получить(Источник.ДатаДок); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование> --> СобытиеОС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСПодготовкаКПередаче <ПередВыгрузкой>Значение = 1; <Группа> <Код>8 <Наименование>ТабличнаяЧасть --> ОС <Порядок>400 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>9 <Наименование>ОсновноеСредство --> ОсновноеСредство <Порядок>50 <Источник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Значения/> <Правило> <Код>ПередачаОС_Продажа <Наименование>Документ: Передача ОС <Порядок>3400 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ПричинаВыбытия <> Перечисление.ПричиныВыбытияОС.Продажа Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>// Посчитать суммы документа и записать ее в соответствующий реквизит шапки для показа в журналах Объект.СуммаДокумента = УчетНДС.ПолучитьСуммуДокументаСНДС(Объект, "ОС"); <Источник>ДокументСсылка.ПередачаОС <Приемник>ДокументСсылка.ПередачаОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = Источник.ОсновноеСредство.Подразделение.Получить(Источник.ДатаДок); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>Договор --> ДоговорКонтрагента <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ВалютаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>10 <Наименование> --> КратностьВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; Если Источник.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0 Тогда Валюта = Источник.Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Источник.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если Источник.Договор.ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Источник.Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; Значение = Кратность; КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование> --> КурсВзаиморасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(Источник.Курс=0,1,Источник.Курс); <Свойство> <Код>9 <Наименование>ДокументПодготовкаКПередаче --> ДокПодготовкаКПередачеОС <Порядок>600 <Источник Имя="ДокументПодготовкаКПередаче" Вид="Реквизит" Тип="ДокументСсылка.ПодготовкаКПередачеОС"/> <Приемник Имя="ДокПодготовкаКПередачеОС" Вид="Реквизит" Тип="ДокументСсылка.ПодготовкаКПередачеОС"/> <КодПравилаКонвертации>ПодготовкаКПередачеОС <Свойство> <Код>7 <Наименование> --> ВосстановитьАмортизационнуюПремию <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВосстановитьАмортизационнуюПремию" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>17 <Наименование> --> СтатьяДляВосстановленияАмортизационнойПремии <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДляВосстановленияАмортизационнойПремии" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Свойство> <Код>12 <Наименование> --> НДСВключенВСтоимость <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>15 <Наименование> --> СобытиеОС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСПередача <ПередВыгрузкой>Значение = 1; <Свойство> <Код>16 <Наименование> --> СпособЗачетаАвансов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Если Источник.ЗачитыватьАванс = 1 Тогда Значение = "НеЗачитывать"; Иначе Значение = "Автоматически"; КонецЕсли; <Свойство> <Код>18 <Наименование> --> СуммаВключаетНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ВариантРасчетаНалогов)=0 тогда Значение = Источник.ВариантРасчетаНалогов.СуммаВключаетНДС; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>20 <Наименование> --> СчетУчетаРасчетовПоАвансам <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетАвансовПолученных"); <Свойство> <Код>21 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("Документ", Источник); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); <Свойство> <Код>22 <Наименование> --> УчитыватьНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>23 <Наименование>ТабличнаяЧасть --> ОС <Порядок>1150 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>24 <Наименование>ОсновноеСредство --> ОсновноеСредство <Порядок>50 <Источник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>27 <Наименование> --> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Цена; <Свойство> <Код>28 <Наименование> --> СуммаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.НДС; <Свойство> <Код>25 <Наименование> --> СтавкаНДС <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>СтавкаНДС = глСтавкаНалога(Источник, "НДС"); Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>29 <Наименование> --> СчетДоходов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДоходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.1"); <Свойство> <Код>26 <Наименование> --> Субконто <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы <ПередВыгрузкой>Значение = Источник.СтатьяПрочихДоходовИРасходов; <Свойство> <Код>30 <Наименование> --> СчетРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетРасходов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.2"); <Свойство> <Код>31 <Наименование> --> СчетУчетаНДСПоРеализации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДСПоРеализации" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("91.2"); <Значения/> <Правило> <Код>ПередачаОС_Списание <Наименование>Документ: Передача ОС <Порядок>3450 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если (Источник.ПричинаВыбытия <> Перечисление.ПричиныВыбытияОС.БезвозмезднаяПередача) и (Источник.ПричинаВыбытия <> Перечисление.ПричиныВыбытияОС.ВкладВУставныйКапитал) и (Источник.ПричинаВыбытия <> Перечисление.ПричиныВыбытияОС.ПередачаПоДоговоруПростогоТоварищества) и (Источник.ПричинаВыбытия <> Перечисление.ПричиныВыбытияОС.ПередачаВДоверительноеУправление) Тогда Отказ = 1; КонецЕсли; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); //если причина выбытия - вклад в уставный капитал, и остаточная стоимость отличается от оценочной //- нужно сделать дополнительную проводку по начислению этой разницы: это проводка 58.1.1 - 91 Если Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ВкладВУставныйКапитал Тогда Операция = Источник.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если ((Операция.Дебет.Счет = СчетПоКоду("58.1.1")) и (Операция.Кредит.Счет = СчетПоКоду("91.1"))) или ((Операция.Дебет.Счет = СчетПоКоду("91.2")) и (Операция.Кредит.Счет = СчетПоКоду("58.1.1"))) Тогда Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.СуммаВРДт = Операция.Сумма; Проводки.СуммаВРКт = Операция.Сумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЕсли; КонецЦикла; ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаПоДоговоруПростогоТоварищества) или (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаВДоверительноеУправление) Тогда Операция = Источник.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если (Операция.Дебет.Счет = СчетПоКоду("79.3")) или (Операция.Дебет.Счет = СчетПоКоду("58.4")) или (Операция.Кредит.Счет = СчетПоКоду("79.3")) или (Операция.Кредит.Счет = СчетПоКоду("58.4")) Тогда //сначала сторнируем Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = ?(Проводки.СубконтоДт.Ключ = ВидыСубконто.Договоры,ПолучитьПустоеЗначение("Справочник.Договоры"), Операция.Дебет.Субконто(НомерСубконто)); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = ?(Проводки.СубконтоКт.Ключ = ВидыСубконто.Договоры,ПолучитьПустоеЗначение("Справочник.Договоры"), Операция.Кредит.Субконто(НомерСубконто)); КонецЦикла; Проводки.Сумма = -Операция.Сумма; Проводки.СуммаНУДт = -Операция.Сумма; Проводки.СуммаНУКт = -Операция.Сумма; Проводки.Содержание = "СТОРНО "+Операция.СодержаниеПроводки; //а теперь вводим корректирующую проводку Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.СуммаНУДт = Операция.Сумма; Проводки.СуммаНУКт = Операция.Сумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЕсли; КонецЦикла; КонецЕсли; Если Проводки.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Содержание", "Дополнительные проводки к документу "+строка(источник)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Источник.ДатаДок,Источник.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; <Источник>ДокументСсылка.ПередачаОС <Приемник>ДокументСсылка.СписаниеОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>6 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = Источник.ОсновноеСредство.Подразделение.Получить(Источник.ДатаДок); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование> --> ПричинаСписания <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПричинаСписания" Вид="Реквизит" Тип="СправочникСсылка.ПричиныСписанияОС"/> <КодПравилаКонвертации>ПричиныСписанияОС <ПередВыгрузкой>Если (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.БезвозмезднаяПередача) Тогда Значение = "Безвозмездная передача"; ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ВкладВУставныйКапитал) Тогда Значение = "Вклад в уставный капитал"; ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаПоДоговоруПростогоТоварищества) Тогда Значение = "Передача по договору простого товарищества"; ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаВДоверительноеУправление) Тогда Значение = "Передача в доверительное управление"; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>8 <Наименование> --> СобытиеОС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСПередача <ПередВыгрузкой>Значение = 1; <Свойство> <Код>10 <Наименование> --> СчетСписания <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписания" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.БезвозмезднаяПередача) Тогда Значение = СчетПоКоду("91.2"); ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ВкладВУставныйКапитал) Тогда Значение = СчетПоКоду("58.1.1"); ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаПоДоговоруПростогоТоварищества) Тогда Значение = СчетПоКоду("58.4"); ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаВДоверительноеУправление) Тогда Значение = СчетПоКоду("79.3"); Иначе Значение = СчетПоКоду("91.2"); КонецЕсли; <Свойство> <Код>9 <Наименование> --> Субконто <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <ПередВыгрузкой>Если (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.БезвозмезднаяПередача) Тогда Значение = Источник.СтатьяПрочихДоходовИРасходов; ИмяПКО = "ПрочиеДоходыИРасходы"; ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ВкладВУставныйКапитал) Тогда Значение = Источник.Контрагент; ИмяПКО = "Контрагенты"; ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаПоДоговоруПростогоТоварищества) Тогда Значение = Источник.Контрагент; ИмяПКО = "Контрагенты"; ИначеЕсли (Источник.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.ПередачаВДоверительноеУправление) Тогда Значение = Источник.Контрагент; ИмяПКО = "Контрагенты"; Иначе Значение = Источник.СтатьяПрочихДоходовИРасходов; ИмяПКО = "ПрочиеДоходыИРасходы"; КонецЕсли; <Группа> <Код>11 <Наименование>ТабличнаяЧасть --> ОС <Порядок>550 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>ОсновноеСредство --> ОсновноеСредство <Порядок>50 <Источник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Значения/> <Правило> <Код>СписаниеОС <Наименование>Документ: Списание ОС <Порядок>3500 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.СписаниеОС <Приемник>ДокументСсылка.СписаниеОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>6 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>7 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = Источник.ОсновноеСредство.Подразделение.Получить(Источник.ДатаДок); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование> --> ПричинаСписания <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПричинаСписания" Вид="Реквизит" Тип="СправочникСсылка.ПричиныСписанияОС"/> <КодПравилаКонвертации>ПричиныСписанияОС <ПередВыгрузкой>Если Источник.ТипСписания = 1 Тогда Значение = "Списание в связи с чрезвычайными обстоятельствами"; Иначе Значение = "Списание ОС по прочим причинам"; КонецЕсли; <Свойство> <Код>9 <Наименование> --> СобытиеОС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСВыбытие <ПередВыгрузкой>Значение = 1; <Свойство> <Код>11 <Наименование> --> СчетСписания <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписания" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.ТипСписания = 1 Тогда Значение = СчетПоКоду("99.1"); Иначе Значение = СчетПоКоду("91.2"); КонецЕсли; <Свойство> <Код>10 <Наименование> --> Субконто <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто" Вид="Реквизит"/> <ПередВыгрузкой>Если Источник.ТипСписания = 1 Тогда Значение = "ЧрезвычайныеДоходыРасходы"; ТипПриемника = "ПеречислениеСсылка.ПрибылиИУбытки"; Иначе Значение = Источник.СтатьяПрочихДоходовИРасходов; ТипПриемника = "СправочникСсылка.ПрочиеДоходыИРасходы"; ИмяПКО = "ПрочиеДоходыИРасходы"; КонецЕсли; <Группа> <Код>12 <Наименование>ТабличнаяЧасть --> ОС <Порядок>550 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование>ОсновноеСредство --> ОсновноеСредство <Порядок>50 <Источник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Значения/> <Правило> <Код>ПеремещениеОС <Наименование>Документ: Перемещение ОС <Порядок>3550 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ПеремещениеОС <Приемник>ДокументСсылка.ПеремещениеОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>8 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование> --> СобытиеОС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСПеремещение <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование> --> МОЛОрганизации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="МОЛОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл Значение = Источник.ОсновноеСредство.МОЛ.Получить(Источник.ДатаДок-1); Если ПустоеЗначение(Значение)=0 Тогда Прервать; КонецЕсли; КонецЦикла; <Свойство> <Код>6 <Наименование>МОЛ --> МОЛПолучатель <Порядок>400 <Источник Имя="МОЛ" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="МОЛПолучатель" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>9 <Наименование> --> ПодразделениеОрганизации <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку()=1 Тогда Значение = Источник.ОсновноеСредство.Подразделение.Получить(Источник.ДатаДок-1); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>10 <Наименование>Подразделение --> ПодразделениеПолучатель <Порядок>500 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="ПодразделениеПолучатель" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>7 <Наименование>НачислятьАмортизацию --> НачислениеАмортизации <Порядок>550 <Источник Имя="НачислятьАмортизацию" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НачислениеАмортизации" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.НачислятьАмортизацию = 1 Тогда Значение = 1; Иначе Значение = 2; КонецЕсли; <Свойство> <Код>12 <Наименование> --> СпособОтраженияРасходовПоАмортизации <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходовПоАмортизации" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>Значение = Источник; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ВидРасходовНУ = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, "НеУчитываемыеВЦеляхНалогообложения","Амортизация"); НаименованиеРасхода = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые,"Амортизация ОС, не принимаемая в НУ", "Амортизация ОС"); ПринятиеКналоговомуУчету = ?(Источник.ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, 0,1); ВидПрочихДоходовИРасходов = "ПрочиеВнереализационныеДоходыРасходы"; СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); СтатьяЗатрат.Установить("ВидРасходовНУ",ВидРасходовНУ); СтатьяЗатрат.Установить("ПринятиеКНалоговомуУчету",ПринятиеКНалоговомуУчету); СтатьяЗатрат.Установить("Наименование",НаименованиеРасхода); СтатьяЗатрат.Установить("ВидПрочихДоходовИРасходов",ВидПрочихДоходовИРасходов); ИсходящиеДанные.Установить("СтатьяЗатрат",СтатьяЗатрат); <Группа> <Код>13 <Наименование>ТабличнаяЧасть --> ОС <Порядок>650 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>14 <Наименование>ОсновноеСредство --> ОсновноеСредство <Порядок>50 <Источник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Значения/> <Правило> <Код>ГотоваяПродукция <Наименование>Документ: Передача готовой продукции на склад <Порядок>3600 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.ГотоваяПродукция <Приемник>ДокументСсылка.ОтчетПроизводстваЗаСмену <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>12 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>14 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>350 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>18 <Наименование> --> СчетЗатрат <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("20"); <Свойство> <Код>8 <Наименование> --> ДляСписанияНДСиспользоватьСчетИАналитикуУчетаЗатрат <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ДляСписанияНДСиспользоватьСчетИАналитикуУчетаЗатрат" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>9 <Наименование>Автосписание --> ИспользоватьМатериалы <Порядок>500 <Источник Имя="Автосписание" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ИспользоватьМатериалы" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>10 <Наименование> --> НДСвСтоимостиТоваров <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НДСвСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров"/> <ПередВыгрузкой>Значение = "НеИзменять"; <Свойство> <Код>13 <Наименование>Подразделение --> ПодразделениеЗатрат <Порядок>600 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство Отключить="true"> <Код>11 <Наименование> --> НоменклатурнаяГруппа <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="НоменклатурнаяГруппа" Вид="Реквизит" Тип="СправочникСсылка.НоменклатурныеГруппы"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> СчетСписанияНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписанияНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>15 <Наименование> --> СубконтоСписанияНДС1 <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС1" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>16 <Наименование> --> СубконтоСписанияНДС2 <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС2" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>17 <Наименование> --> СубконтоСписанияНДС3 <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС3" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>7 <Наименование> --> ВариантВыраженияВнутреннихУслуг <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантВыраженияВнутреннихУслуг" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантВыраженияВнутреннихУслуг"/> <Группа> <Код>20 <Наименование> --> Материалы <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Материалы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("НоменклатурнаяГруппа"); КоллекцияОбъектов.НоваяКолонка("Себестоимость"); КоллекцияОбъектов.НоваяКолонка("Счет"); КоллекцияОбъектов.НоваяКолонка("СтатьяЗатрат"); Нормы = СоздатьОбъект("Справочник.НормыРасходов"); Нормы.ИспользоватьДату(Источник.ДатаДок); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку() = 1 Цикл Нормы.ИспользоватьВладельца(Источник.Товар); Нормы.ВыбратьЭлементы(); Пока Нормы.ПолучитьЭлемент() = 1 Цикл Если Нормы.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Если (Нормы.КолПрод = 0) или (Нормы.ПометкаУдаления() = 1) Тогда Иначе КоличествоМПЗ = Источник.Количество * (Нормы.Норма / Нормы.КолПрод); Если КоличествоМПЗ > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Нормы.Элемент; КоллекцияОбъектов.Количество = КоличествоМПЗ; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.НоменклатурнаяГруппа = Источник.Товар.ВидНоменклатуры; КоллекцияОбъектов.Себестоимость = 0; Если Нормы.ВидЭлемента = 2 Тогда КоллекцияОбъектов.Счет = СчетПоКоду("21"); ИначеЕсли Нормы.ВидЭлемента = 3 Тогда КоллекцияОбъектов.Счет = СчетПоКоду("43"); Иначе КоллекцияОбъектов.Счет = Нормы.Элемент.СубСчет10; КонецЕсли; КоллекцияОбъектов.СтатьяЗатрат = Источник.СтатьяРасходов; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Коэффициент, НоменклатурнаяГруппа, Себестоимость, Счет, СтатьяЗатрат", "Количество"); <Свойство Отключить="true"> <Код>21 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>22 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>24 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>28 <Наименование> --> ОтражениеВУСН <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>26 <Наименование> --> Номенклатура <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>23 <Наименование> --> Количество <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> Коэффициент <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> НоменклатурнаяГруппа <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НоменклатурнаяГруппа" Вид="Реквизит" Тип="СправочникСсылка.НоменклатурныеГруппы"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>29 <Наименование> --> Себестоимость <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> Счет <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Счет" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>30 <Наименование> --> СтатьяЗатрат <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяЗатрат" Вид="Реквизит" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатратНаПроизводство <Группа> <Код>32 <Наименование>ТабличнаяЧасть --> Продукция <Порядок>1000 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Продукция" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>33 <Наименование> --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>35 <Наименование> --> КоличествоМест <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование>Товар --> Номенклатура <Порядок>150 <Источник Имя="Товар" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>34 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> Коэффициент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>39 <Наименование>Стоимость --> ПлановаяСтоимость <Порядок>300 <Источник Имя="Стоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПлановаяСтоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>41 <Наименование>Сумма --> СуммаПлановая <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПлановая" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>40 <Наименование>Товар --> Спецификация <Порядок>400 <Источник Имя="Товар" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Спецификация" Вид="Реквизит" Тип="СправочникСсылка.СпецификацииНоменклатуры"/> <КодПравилаКонвертации>СпецификацииНоменклатуры <Свойство> <Код>42 <Наименование> --> Счет <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Счет" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = ?(ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция, СчетПоКоду("43"), СчетПоКоду("21")); <Свойство Отключить="true"> <Код>43 <Наименование> --> СчетЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>38 <Наименование> --> НоменклатурнаяГруппа <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НоменклатурнаяГруппа" Вид="Реквизит" Тип="СправочникСсылка.НоменклатурныеГруппы"/> <КодПравилаКонвертации>НоменклатурныеГруппы <ПередВыгрузкой>Значение = ОбъектКоллекции.Товар.ВидНоменклатуры; <Значения/> <Правило> <Код>НезавершенноеПроизводство <Наименование>Документ: Незавершенное производство <Порядок>3650 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(ВходящиеДанные)=0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(Источник)+ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ПодразделениеОрганизации")); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.НезавершенноеПроизводство <Приемник>ДокументСсылка.ИнвентаризацияНЗП <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>СтрокаПодразделение = ""; Если ПустоеЗначение(ВходящиеДанные)=0 Тогда СтрокаПодразделение = ": "+Строка(ВходящиеДанные.Получить("ПодразделениеОрганизации")); КонецЕсли; Значение = "#Перенсен из 1С:Бухгалтерия 7.7 по документу "+строка(Источник)+СтрокаПодразделение+" #"; <Свойство> <Код>6 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование> --> СчетЗатрат <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("20"); <Группа> <Код>8 <Наименование> --> Состав <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Состав" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("НоменклатурнаяГруппа"); КоллекцияОбъектов.НоваяКолонка("Подразделение"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНУ"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.НоменклатурнаяГруппа = Источник.ВидНоменклатуры; КоллекцияОбъектов.Сумма = Источник.Остаток; КоллекцияОбъектов.Подразделение = Источник.Подразделение; КонецЦикла; КоллекцияОбъектов.Свернуть("НоменклатурнаяГруппа,Подразделение","Сумма,СуммаНУ"); КоллекцияОбъектов.Сортировать("НоменклатурнаяГруппа"); ЗатратыНУ = СоздатьОбъект("ТаблицаЗначений"); ЗатратыНУ.НоваяКолонка("НоменклатурнаяГруппа"); ЗатратыНУ.НоваяКолонка("Сумма"); //найдем документы по НУ Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,,Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.ПометкаУдаления() = 0) и (Док.Вид() = "ПрямыеРасходыНезавершенногоПроизводства") Тогда Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку()=1 Цикл Если Док.ДокументБУ <> Источник Тогда Продолжить; КонецЕсли; ВидНоменклатуры = Док.ВидНоменклатуры; Если (ПустоеЗначение(ВидНоменклатуры)=1) и (ПустоеЗначение(Док.Номенклатура)=1) Тогда ВидНоменклатуры = Док.Номенклатуры.ВидНоменклатуры; КонецЕсли; Если (ПустоеЗначение(ВидНоменклатуры)=0) Тогда ЗатратыНУ.НоваяСтрока(); ЗатратыНУ.НоменклатурнаяГруппа = ВидНоменклатуры; ЗатратыНУ.Сумма = Док.Сумма; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; ЗатратыНУ.Свернуть("НоменклатурнаяГруппа","Сумма"); ЗатратыНУ.Сортировать("НоменклатурнаяГруппа"); ЗатратыБУ = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.Выгрузить(ЗатратыБУ); ЗатратыБУ.Свернуть("НоменклатурнаяГруппа","Сумма"); //распределим суммы НУ по подразделениям ТекущаяНоменклатурнаяГруппа = ""; СуммаВсегоБУ = 0; СуммаОсталосьНУ = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку()=1 Цикл Если ТекущаяНоменклатурнаяГруппа <> КоллекцияОбъектов.НоменклатурнаяГруппа Тогда НС = 0; Если ЗатратыБУ.НайтиЗначение(КоллекцияОбъектов.НоменклатурнаяГруппа,НС,"НоменклатурнаяГруппа")>0 Тогда СуммаВсегоБУ = ЗатратыБУ.ПолучитьЗначение(НС,"Сумма"); Иначе СуммаВсегоБУ = 0; КонецЕсли; НС = 0; Если ЗатратыНУ.НайтиЗначение(КоллекцияОбъектов.НоменклатурнаяГруппа,НС,"НоменклатурнаяГруппа")>0 Тогда СуммаОсталосьНУ = ЗатратыНУ.ПолучитьЗначение(НС,"Сумма"); Иначе СуммаОсталосьНУ = 0; КонецЕсли; КонецЕсли; Если (СуммаОсталосьНУ<>0) и (СуммаВсегоБУ<>0) Тогда КоллекцияОбъектов.СуммаНУ = Окр(КоллекцияОбъектов.Сумма/СуммаВсегоБУ*СуммаОсталосьНУ,2); СуммаВсегоБУ = СуммаВсегоБУ - КоллекцияОбъектов.Сумма; СуммаОсталосьНУ = СуммаОсталосьНУ - КоллекцияОбъектов.СуммаНУ; КонецЕсли; КонецЦикла; <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ПодразделениеОрганизации"))=0 Тогда Если ВходящиеДанные.Получить("ПодразделениеОрганизации")<>ОбъектКоллекции.Подразделение Тогда Отказ = 1; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>9 <Наименование> --> НоменклатурнаяГруппа <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НоменклатурнаяГруппа" Вид="Реквизит" Тип="СправочникСсылка.НоменклатурныеГруппы"/> <КодПравилаКонвертации>НоменклатурныеГруппы <Свойство> <Код>11 <Наименование> --> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> СуммаНУ <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>10 <Наименование> --> ОтражениеВУСН <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Значения/> <Правило> <Код>ПередачаМатериаловСпецназначенияВПроизводство <Наименование>Документ: Передача материалов в эксплуатацию <Порядок>3700 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); //Если Источник.ВидМатериалов = 2 Тогда // ВыгрузитьПоПравилу(Источник,,,,"ПередачаМатериаловСпецНазн_Перемещение"); //КонецЕсли; <Источник>ДокументСсылка.ПередачаМатериаловСпецназначенияВПроизводство <Приемник>ДокументСсылка.ПередачаМатериаловВЭксплуатацию <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>6 <Наименование>Подразделение --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>31 <Наименование>Подразделение --> Местонахождение <Порядок>250 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="Местонахождение" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Если Источник.ВидМатериалов = 3 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>МестоХранения --> Склад <Порядок>400 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Спецодежда <Порядок>450 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Спецодежда" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.ВидМатериалов <> 1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование>Материал --> Номенклатура <Порядок>50 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Сотрудник --> ФизЛицо <Порядок>150 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <Свойство> <Код>17 <Наименование>НазначениеИспользования --> НазначениеИспользования <Порядок>200 <Источник Имя="НазначениеИспользования" Вид="Реквизит" Тип="СправочникСсылка.НазначенияИспользования"/> <Приемник Имя="НазначениеИспользования" Вид="Реквизит" Тип="СправочникСсылка.НазначенияИспользования"/> <КодПравилаКонвертации>НазначенияИспользования <Свойство> <Код>21 <Наименование> --> СчетУчета <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.10"); <Свойство> <Код>20 <Наименование> --> СчетПередачи <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетПередачи" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.11.1"); <Группа> <Код>23 <Наименование>ТабличнаяЧасть --> Спецоснастка <Порядок>500 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Спецоснастка" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.ВидМатериалов <> 2 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>26 <Наименование>Материал --> Номенклатура <Порядок>50 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>24 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>НазначениеИспользования --> НазначениеИспользования <Порядок>150 <Источник Имя="НазначениеИспользования" Вид="Реквизит" Тип="СправочникСсылка.НазначенияИспользования"/> <Приемник Имя="НазначениеИспользования" Вид="Реквизит" Тип="СправочникСсылка.НазначенияИспользования"/> <КодПравилаКонвертации>НазначенияИспользования <Свойство Отключить="true"> <Код>27 <Наименование> --> ОтражениеВУСН <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>29 <Наименование> --> СчетУчета <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.10"); <Свойство> <Код>28 <Наименование> --> СчетПередачи <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетПередачи" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.11.2"); <Группа> <Код>8 <Наименование>ТабличнаяЧасть --> ИнвентарьИХозяйственныеПринадлежности <Порядок>550 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ИнвентарьИХозяйственныеПринадлежности" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.ВидМатериалов <> 3 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>10 <Наименование>Материал --> Номенклатура <Порядок>50 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>9 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>11 <Наименование> --> ОтражениеВУСН <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство> <Код>12 <Наименование>НазначениеИспользования --> СпособОтраженияРасходов <Порядок>200 <Источник Имя="НазначениеИспользования" Вид="Реквизит" Тип="СправочникСсылка.НазначенияИспользования"/> <Приемник Имя="СпособОтраженияРасходов" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоСпецодежде <Свойство> <Код>14 <Наименование>Сотрудник --> ФизЛицо <Порядок>250 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>13 <Наименование> --> СчетУчета <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.9"); <Значения/> <Правило> <Код>ПередачаМатериаловСпецНазн_Перемещение <Наименование>Документ: Передача материалов в эксплуатацию <Порядок>3750 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидМатериалов <> 2 Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ПередачаМатериаловСпецназначенияВПроизводство <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Префикс","П"); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); Параметры.ПараметрыАлгоритмов.Установить("Префикс",""); <Свойство Поиск="true"> <Код>8 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>9 <Наименование> --> ПодразделениеОтправитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОтправитель" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>10 <Наименование>Подразделение --> ПодразделениеПолучатель <Порядок>250 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="ПодразделениеПолучатель" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПеремещениеТоваров"/> <ПередВыгрузкой>Значение = "ТоварыПродукция"; <Свойство> <Код>11 <Наименование>МестоХранения --> СкладОтправитель <Порядок>450 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>12 <Наименование>МестоХранения --> СкладПолучатель <Порядок>500 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>31 <Наименование> --> НДСвСтоимостиТоваров <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НДСвСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров"/> <ПередВыгрузкой>Значение = "НеИзменять"; <Группа> <Код>17 <Наименование>ТабличнаяЧасть --> Товары <Порядок>600 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>Материал --> Номенклатура <Порядок>200 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>20 <Наименование>Количество --> Количество <Порядок>250 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> Коэффициент <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>23 <Наименование> --> НовыйСчетУчета <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НовыйСчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.10"); <Свойство> <Код>28 <Наименование> --> СчетУчета <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.10"); <Свойство Отключить="true"> <Код>25 <Наименование> --> Себестоимость <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>26 <Наименование> --> СтавкаНДСВРознице <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство Отключить="true"> <Код>27 <Наименование> --> СуммаВРознице <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>29 <Наименование> --> Цена <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> ЦенаВРознице <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>СписаниеМатериаловИзЭксплуатации <Наименование>Документ: Списание материалов в эксплуатации <Порядок>3800 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); <Источник>ДокументСсылка.СписаниеСпецодеждыСпецоснастки <Приемник>ДокументСсылка.СписаниеМатериаловИзЭксплуатации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>5 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Подразделение --> ПодразделениеОрганизации <Порядок>300 <Источник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.Подразделения"/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Если Источник.ВидМатериалов = 3 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>7 <Наименование> --> СпособСписанияРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СпособСписанияРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыСписанияРасходов"/> <ПередВыгрузкой>Если Источник.ВидСписания = 1 Тогда Значение = "ПоНазначениюИспользования"; Иначе Значение = "ВДебетСчетаУказанногоВДокументе"; КонецЕсли; <Свойство> <Код>11 <Наименование> --> СчетДт <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если Источник.ВидСписания = 1 Тогда Отказ = 1; ИначеЕсли Источник.ВидСписания = 2 Тогда Значение = СчетПоКоду("91.2"); Иначе Значение = СчетПоКоду("99.1"); КонецЕсли; <Свойство> <Код>8 <Наименование> --> СубконтоДт1 <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт1" Вид="Реквизит"/> <ПередВыгрузкой>Если Источник.ВидСписания = 1 Тогда Отказ = 1; ИначеЕсли Источник.ВидСписания = 2 Тогда Значение = Источник.СтатьяРасходов; ИмяПКО = "ПрочиеДоходыИРасходы"; Иначе Значение = "ЧрезвычайныеДоходыРасходы"; ТипПриемника = "ПеречислениеСсылка.ПрибылиИУбытки"; КонецЕсли; <Свойство Отключить="true"> <Код>9 <Наименование> --> СубконтоДт2 <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт2" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>10 <Наименование> --> СубконтоДт3 <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт3" Вид="Реквизит"/> <Группа> <Код>17 <Наименование>ТабличнаяЧасть --> Спецодежда <Порядок>600 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Спецодежда" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.ВидМатериалов <> 1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>19 <Наименование>Материал --> Номенклатура <Порядок>50 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>18 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование> --> ПартияМатериаловВЭксплуатации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПартияМатериаловВЭксплуатации" Вид="Реквизит"/> <КодПравилаКонвертации>ПередачаМатериаловСпецназначенияВПроизводство <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.НазначениеИспользования.ДокументПередачаВПроизводство)=0 Тогда Если ОбъектКоллекции.НазначениеИспользования.ДокументПередачаВПроизводство.ДатаДок < Параметры.ДатаВводаОстатков Тогда Значение = ОбъектКоллекции.НазначениеИспользования; ИмяПКО = "ПартияМатериаловВЭксплуатации"; Иначе Значение = ОбъектКоллекции.НазначениеИспользования.ДокументПередачаВПроизводство; ИмяПКО = "ПередачаМатериаловСпецназначенияВПроизводство"; КонецЕсли; КонецЕсли; <Свойство> <Код>21 <Наименование> --> СчетПередачи <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетПередачи" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.11.1"); <Свойство> <Код>22 <Наименование>Сотрудник --> ФизЛицо <Порядок>250 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Группа> <Код>23 <Наименование>ТабличнаяЧасть --> Спецоснастка <Порядок>650 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Спецоснастка" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.ВидМатериалов <> 2 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>25 <Наименование>Материал --> Номенклатура <Порядок>50 <Источник Имя="Материал" Вид="Реквизит" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>24 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> ПартияМатериаловВЭксплуатации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПартияМатериаловВЭксплуатации" Вид="Реквизит"/> <КодПравилаКонвертации>ПередачаМатериаловСпецназначенияВПроизводство <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.НазначениеИспользования.ДокументПередачаВПроизводство)=0 Тогда Если ОбъектКоллекции.НазначениеИспользования.ДокументПередачаВПроизводство.ДатаДок < Параметры.ДатаВводаОстатков Тогда Значение = ОбъектКоллекции.НазначениеИспользования; ИмяПКО = "ПартияМатериаловВЭксплуатации"; Иначе Значение = ОбъектКоллекции.НазначениеИспользования.ДокументПередачаВПроизводство; ИмяПКО = "ПередачаМатериаловСпецназначенияВПроизводство"; КонецЕсли; КонецЕсли; <Свойство> <Код>27 <Наименование> --> СчетПередачи <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетПередачи" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("10.11.2"); <Группа> <Код>12 <Наименование>ТабличнаяЧасть --> ИнвентарьИХозяйственныеПринадлежности <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ИнвентарьИХозяйственныеПринадлежности" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.ВидМатериалов <> 3 Тогда Отказ = 1; Иначе //заполним табличную часть КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("ПартияМатериаловВЭксплуатации"); КоллекцияОбъектов.НоваяКолонка("ФизЛицо"); Соответствия = Параметры.СоответствияПартийМатериалов; Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку()=1 Цикл КоличествоРаспределить = Источник.Количество; Соответствия.ВыбратьСтроки(); Пока (Соответствия.ПолучитьСтроку()=1) И (КоличествоРаспределить>0) Цикл Если (Соответствия.Материал = Источник.Материал) Тогда Если (Соответствия.Сотрудник = Источник.Сотрудник) Тогда Если (Соответствия.Документ = Источник.ТекущийДокумент()) Тогда Если Соответствия.Количество>0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Соответствия.Материал; КоллекцияОбъектов.ФизЛицо = Соответствия.Сотрудник; КоллекцияОбъектов.ПартияМатериаловВЭксплуатации = Соответствия.Партия; КоллекцияОбъектов.Количество = Мин(Соответствия.Количество,КоличествоРаспределить); Соответствия.Количество = Соответствия.Количество - КоллекцияОбъектов.Количество; КоличествоРаспределить = КоличествоРаспределить - КоллекцияОбъектов.Количество; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если КоличествоРаспределить>0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Материал; КоллекцияОбъектов.ФизЛицо = Источник.Сотрудник; КоллекцияОбъектов.Количество = КоличествоРаспределить; КонецЕсли; КонецЦикла; КонецЕсли; <Свойство> <Код>14 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство> <Код>13 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> ПартияМатериаловВЭксплуатации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПартияМатериаловВЭксплуатации" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ПартияМатериаловВЭксплуатации)=1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>16 <Наименование> --> ФизЛицо <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Значения/> <Правило> <Код>ТребованиеНакладная_Производство <Наименование>Документ: Перемещение материалов <Порядок>3850 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидПеремещения <> 0 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатрат"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","Субконто"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <Источник>ДокументСсылка.ТребованиеНакладная <Приемник>ДокументСсылка.ТребованиеНакладная <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>13 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>15 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>16 <Наименование>МестоХранения --> Склад <Порядок>350 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>9 <Наименование>СчетЗатрат --> СчетЗатрат <Порядок>400 <Источник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Основной"/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>14 <Наименование> --> ПодразделениеЗатрат <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Счет = Источник.СчетЗатрат; Для к = 1 По Счет.КоличествоСубконто() Цикл Если (Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.Подразделения) ИЛИ (Источник.СчетЗатрат.ВидСубконто(к) = ВидыСубконто.РасходыБудущихПериодов) Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", Источник.ПолучитьАтрибут("Субконто"+к)); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЦикла; Если ПустоеЗначение(Значение) = 1 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>6 <Наименование>Субконто1 --> Субконто1 <Порядок>500 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>7 <Наименование>Субконто2 --> Субконто2 <Порядок>550 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); ПриВыгрузкеСубконто(); <Свойство> <Код>8 <Наименование>Субконто3 --> Субконто3 <Порядок>600 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); ПриВыгрузкеСубконто(); <Свойство Отключить="true"> <Код>11 <Наименование> --> Контрагент <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство Отключить="true"> <Код>12 <Наименование> --> НДСвСтоимостиТоваров <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НДСвСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров"/> <Свойство Отключить="true"> <Код>10 <Наименование> --> ДляСписанияНДСиспользоватьСчетИАналитикуУчетаЗатрат <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ДляСписанияНДСиспользоватьСчетИАналитикуУчетаЗатрат" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> СчетСписанияНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписанияНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>17 <Наименование> --> СубконтоСписанияНДС1 <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС1" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> СубконтоСписанияНДС2 <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС2" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> СубконтоСписанияНДС3 <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС3" Вид="Реквизит"/> <Свойство> <Код>20 <Наименование> --> СчетаУчетаЗатратВТаблице <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетаУчетаЗатратВТаблице" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>22 <Наименование>ТабличнаяЧасть --> Материалы <Порядок>1050 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Материалы" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>23 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>24 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>26 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>29 <Наименование> --> НоменклатурнаяГруппа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НоменклатурнаяГруппа" Вид="Реквизит" Тип="СправочникСсылка.НоменклатурныеГруппы"/> <Свойство> <Код>28 <Наименование>Материал --> Номенклатура <Порядок>250 <Источник Имя="Материал" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>25 <Наименование>КоличествоОтпущено --> Количество <Порядок>300 <Источник Имя="КоличествоОтпущено" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> Коэффициент <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>36 <Наименование> --> Счет <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Счет" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ОбъектКоллекции.Материал.Вид() = "Материалы" Тогда Значение = ОбъектКоллекции.Материал.СубСчет10; ИначеЕсли ОбъектКоллекции.Материал.Вид() = "Номенклатура" Тогда Если ОбъектКоллекции.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Значение = СчетПоКоду("43"); ИначеЕсли ОбъектКоллекции.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда Значение = СчетПоКоду("21"); Иначе Отказ = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>33 <Наименование>Сумма --> Себестоимость <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>37 <Наименование> --> СчетЗатрат <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>32 <Наименование> --> ПодразделениеЗатрат <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство Отключить="true"> <Код>34 <Наименование> --> СтатьяЗатрат <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяЗатрат" Вид="Реквизит" Тип="СправочникСсылка.СтатьиЗатрат"/> <Свойство Отключить="true"> <Код>31 <Наименование> --> ОтражениеВУСН <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> НомерГТД <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство Отключить="true"> <Код>35 <Наименование> --> СтранаПроисхождения <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <Значения/> <Правило> <Код>ТребованиеНакладная_Перемещение <Наименование>Документ: Перемещение материалов <Порядок>3900 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если Источник.ВидПеремещения <> 1 Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ТребованиеНакладная <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>8 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>9 <Наименование> --> ПодразделениеОтправитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОтправитель" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство Отключить="true"> <Код>10 <Наименование> --> ПодразделениеПолучатель <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеПолучатель" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПеремещениеТоваров"/> <ПередВыгрузкой>Значение = "ТоварыПродукция"; <Свойство> <Код>11 <Наименование>МестоХранения --> СкладОтправитель <Порядок>450 <Источник Имя="МестоХранения" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>12 <Наименование>МестоХраненияПриемник --> СкладПолучатель <Порядок>500 <Источник Имя="МестоХраненияПриемник" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование> --> НДСвСтоимостиТоваров <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НДСвСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров"/> <ПередВыгрузкой>Значение = "НеИзменять"; <Свойство Отключить="true"> <Код>16 <Наименование> --> СчетСписанияНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписанияНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>13 <Наименование> --> СубконтоСписанияНДС1 <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС1" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> СубконтоСписанияНДС2 <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС2" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>15 <Наименование> --> СубконтоСписанияНДС3 <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС3" Вид="Реквизит"/> <Группа> <Код>17 <Наименование>ТабличнаяЧасть --> Товары <Порядок>800 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>Материал --> Номенклатура <Порядок>200 <Источник Имя="Материал" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Материал)=0 Тогда Если ОбъектКоллекции.Материал.Вид()="Материалы" Тогда ИмяПКО = "Материалы"; КонецЕсли; КонецЕсли; <Свойство> <Код>22 <Наименование> --> Коэффициент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>20 <Наименование>КоличествоОтпущено --> Количество <Порядок>300 <Источник Имя="КоличествоОтпущено" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>29 <Наименование> --> Цена <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Сумма --> Себестоимость <Порядок>400 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование> --> СчетУчета <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ОбъектКоллекции.Материал.Вид() = "Материалы" Тогда Значение = ОбъектКоллекции.Материал.СубСчет10; ИначеЕсли ОбъектКоллекции.Материал.Вид() = "Номенклатура" Тогда Если ОбъектКоллекции.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Значение = СчетПоКоду("43"); ИначеЕсли ОбъектКоллекции.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда Значение = СчетПоКоду("21"); Иначе Отказ = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>23 <Наименование> --> НовыйСчетУчета <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НовыйСчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ОбъектКоллекции.Материал.Вид() = "Материалы" Тогда Значение = ОбъектКоллекции.Материал.СубСчет10; ИначеЕсли ОбъектКоллекции.Материал.Вид() = "Номенклатура" Тогда Если ОбъектКоллекции.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Значение = СчетПоКоду("43"); ИначеЕсли ОбъектКоллекции.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда Значение = СчетПоКоду("21"); Иначе Отказ = 1; КонецЕсли; КонецЕсли; <Свойство Отключить="true"> <Код>26 <Наименование> --> СтавкаНДСВРознице <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство Отключить="true"> <Код>27 <Наименование> --> СуммаВРознице <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>30 <Наименование> --> ЦенаВРознице <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПеремещениеТоваров <Наименование>Документ: ПоступлениеТоваров <Порядок>3950 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Источник.ВидПеремещения > 8 Тогда Если (Источник.Выбран() = 0) или (Источник.СкладПолучатель.Выбран() =0) Тогда КодВидаПеремещения = 0; Иначе Если (Источник.Склад.ТипСклада.Выбран() = 0) или (Источник.СкладПолучатель.ТипСклада.Выбран() =0) Тогда КодВидаПеремещения = 0; Иначе Если Источник.Склад.ТипСклада = Перечисление.ТипыСкладов.Оптовый Тогда Если Источник.СкладПолучатель.ТипСклада = Перечисление.ТипыСкладов.Розничный Тогда КодВидаПеремещения = 1; Иначе КодВидаПеремещения = 0; КонецЕсли; Иначе Если Источник.СкладПолучатель.ТипСклада = Перечисление.ТипыСкладов.Розничный Тогда КодВидаПеремещения = 2; Иначе КодВидаПеремещения = 3; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Иначе КодВидаПеремещения = Источник.ВидПеремещения; КонецЕсли; ВходящиеДанные.Установить("КодВидаПеремещения",КодВидаПеремещения); <Источник>ДокументСсылка.ПеремещениеТоваров <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> ВидОперации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПеремещениеТоваров"/> <ПередВыгрузкой>Значение = "ТоварыПродукция"; <Свойство Отключить="true"> <Код>8 <Наименование> --> ПодразделениеОтправитель <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОтправитель" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство Отключить="true"> <Код>9 <Наименование> --> ПодразделениеПолучатель <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеПолучатель" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>10 <Наименование>Склад --> СкладОтправитель <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>11 <Наименование>СкладПолучатель --> СкладПолучатель <Порядок>500 <Источник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.МестаХранения"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство> <Код>6 <Наименование> --> НДСвСтоимостиТоваров <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НДСвСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров"/> <ПередВыгрузкой>КодВидаПеремещения = ВходящиеДанные.Получить("КодВидаПеремещения"); Если (КодВидаПеремещения = 1) Тогда //оптовый -> розничный Значение = "ВключитьВСтоимость"; ИначеЕсли (КодВидаПеремещения = 3) Тогда //розничный -> оптовый Значение = "ИсключитьИзСтоимости"; Иначе Значение = "НеИзменять"; КонецЕсли; <Свойство> <Код>15 <Наименование> --> СчетСписанияНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписанияНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("44.1.1"); <Свойство> <Код>12 <Наименование> --> СубконтоСписанияНДС1 <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС1" Вид="Реквизит"/> <ПередВыгрузкой>Значение = "СписаниеНДСНаРасходы"; ТипПриемника = "СправочникСсылка.СтатьиЗатрат"; <Свойство Отключить="true"> <Код>13 <Наименование> --> СубконтоСписанияНДС2 <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС2" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>14 <Наименование> --> СубконтоСписанияНДС3 <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоСписанияНДС3" Вид="Реквизит"/> <Группа> <Код>16 <Наименование>ТабличнаяЧасть --> Товары <Порядок>800 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Если ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>17 <Наименование> --> ДокументОприходования <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОприходования" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> КоличествоМест <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>Товар --> Номенклатура <Порядок>200 <Источник Имя="Товар" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>19 <Наименование>Количество --> Количество <Порядок>250 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование> --> Коэффициент <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>24 <Наименование>Всего --> Себестоимость <Порядок>350 <Источник Имя="Всего" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> СчетУчета <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>КодВидаПеремещения = ВходящиеДанные.Получить("КодВидаПеремещения"); Если ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда Значение = СчетПоКоду("41.3"); ИначеЕсли ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.ПокупныеИзделия Тогда Значение = СчетПоКоду("41.4"); ИначеЕсли ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда Если КодВидаПеремещения = 0 Тогда Отказ = 1; ИначеЕсли КодВидаПеремещения = 1 Тогда Значение = СчетПоКоду("004"); ИначеЕсли КодВидаПеремещения = 2 Тогда Значение = СчетПоКоду("004"); ИначеЕсли КодВидаПеремещения = 3 Тогда Значение = СчетПоКоду("004"); КонецЕсли; Иначе // покупной товар Если КодВидаПеремещения = 0 Тогда Значение = СчетПоКоду("41.1"); ИначеЕсли КодВидаПеремещения = 1 Тогда Значение = СчетПоКоду("41.1"); ИначеЕсли КодВидаПеремещения = 2 Тогда Значение = СчетПоКоду("41.2"); ИначеЕсли КодВидаПеремещения = 3 Тогда Значение = СчетПоКоду("41.2"); КонецЕсли; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>22 <Наименование> --> НовыйСчетУчета <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="НовыйСчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>КодВидаПеремещения = ВходящиеДанные.Получить("КодВидаПеремещения"); Если ОбъектКоллекции.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда Значение = СчетПоКоду("41.3"); ИначеЕсли ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.ПокупныеИзделия Тогда Значение = СчетПоКоду("41.4"); ИначеЕсли ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда Если КодВидаПеремещения = 0 Тогда Отказ = 1; ИначеЕсли КодВидаПеремещения = 1 Тогда Значение = СчетПоКоду("004"); ИначеЕсли КодВидаПеремещения = 2 Тогда Значение = СчетПоКоду("004"); ИначеЕсли КодВидаПеремещения = 3 Тогда Значение = СчетПоКоду("004"); КонецЕсли; Иначе // покупной товар Если КодВидаПеремещения = 0 Тогда Значение = СчетПоКоду("41.1"); ИначеЕсли КодВидаПеремещения = 1 Тогда Значение = СчетПоКоду("41.2"); ИначеЕсли КодВидаПеремещения = 2 Тогда Значение = СчетПоКоду("41.2"); ИначеЕсли КодВидаПеремещения = 3 Тогда Значение = СчетПоКоду("41.1"); КонецЕсли; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>28 <Наименование> --> Цена <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>29 <Наименование> --> ЦенаВРознице <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>26 <Наименование> --> СуммаВРознице <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>25 <Наименование> --> СтавкаНДСВРознице <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Группа> <Код>30 <Наименование>ТабличнаяЧасть --> ТоварыНаКомиссии <Порядок>850 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="ТоварыНаКомиссии" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Если ОбъектКоллекции.Товар.ТипТовара <> Перечисление.ТипыТоваров.НаКомиссии Тогда Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>31 <Наименование> --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>33 <Наименование> --> КоличествоМест <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование>Товар --> Номенклатура <Порядок>150 <Источник Имя="Товар" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>34 <Наименование> --> Коэффициент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>32 <Наименование>Количество --> Количество <Порядок>250 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СчетУчета <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("004"); <Свойство> <Код>35 <Наименование> --> НовыйСчетУчета <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НовыйСчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("004"); <Свойство Отключить="true"> <Код>38 <Наименование> --> Цена <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Группа> <Код>ДокументыПараметровОС <Наименование>ДокументыПараметровОС <Порядок>4000 <Правило> <Код>ВыработкаОС <Наименование>: <Порядок>4000 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("Дата")); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВыработкаОС <Свойства> <Свойство Поиск="true"> <Код>8 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>2 <Наименование> --> Дата <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование> --> ПометкаУдаления <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>4 <Наименование> --> ОС <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>5 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование> --> ПараметрВыработки <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПараметрВыработки" Вид="Реквизит" Тип="СправочникСсылка.ПараметрыВыработкиОС"/> <КодПравилаКонвертации>ПараметрыВыработкиОС <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>ИзменениеСостоянияОС <Наименование>: <Порядок>4050 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ИзменениеСостоянияОС <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>11 <Наименование> --> Комментарий <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>7 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>1 <Наименование> --> ВлияетНаНачислениеАмортизации <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВлияетНаНачислениеАмортизации" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>2 <Наименование> --> НачислятьАмортизацию <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизацию" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>4 <Наименование> --> ОтражатьВБухгалтерскомУчете <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВБухгалтерскомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВНалоговомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> СобытиеОС <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>СобытияОС <Свойство> <Код>8 <Наименование> --> ПометкаУдаления <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>9 <Наименование> --> ОС <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>10 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Значения/> <Правило> <Код>ИзменениеПараметровНачисленияАмортизацииОС <Наименование>: <Порядок>4100 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ИзменениеПараметровНачисленияАмортизацииОС <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>6 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование> --> ОтражатьВБухгалтерскомУчете <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВБухгалтерскомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>4 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВНалоговомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование> --> СобытиеОС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <Свойство> <Код>7 <Наименование> --> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>8 <Наименование> --> ОС <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>10 <Наименование> --> КоэффициентУскоренияБУ <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентУскоренияБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> КоэффициентАмортизацииБУ <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ОбъемПродукцииРаботБУ <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъемПродукцииРаботБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> ОбъемПродукцииРаботДляВычисленияАмортизацииБУ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъемПродукцииРаботДляВычисленияАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> СрокИспользованияДляВычисленияАмортизацииБУ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СрокИспользованияДляВычисленияАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование> --> СрокПолезногоИспользованияБУ <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование> --> СтоимостьДляВычисленияАмортизацииБУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьДляВычисленияАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> ПРДляВычисленияАмортизации <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПРДляВычисленияАмортизации" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> СрокПолезногоИспользованияНУ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияНУ" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ИзменениеСпособовОтраженияРасходовПоАмортизацииОС <Наименование>: <Порядок>4150 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ИзменениеСпособовОтраженияРасходовПоАмортизацииОС <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование> --> СпособОтраженияРасходовПоАмортизации <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходовПоАмортизации" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Дата",ВходящиеДанные.Получить("ДатаСведений")); <Свойство> <Код>5 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>6 <Наименование> --> ОС <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>7 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Значения/> <Правило> <Код>ИзменениеСпециальногоКоэффициентаОС <Наименование>: <Порядок>4200 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ИзменениеСпециальногоКоэффициентаОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>3 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>5 <Наименование> --> ОС <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>7 <Наименование> --> СпециальныйКоэффициент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СпециальныйКоэффициент" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВыработкаНМА <Наименование>: <Порядок>4250 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВыработкаНМА <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>5 <Наименование> --> НМА <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НМА" Вид="ТабличнаяЧасть"/> <Свойство> <Код>7 <Наименование> --> НематериальныйАктив <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <Свойство> <Код>6 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ИзменениеСпособовОтраженияРасходовПоАмортизацииНМА <Наименование>: <Порядок>4300 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ИзменениеСпособовОтраженияРасходовПоАмортизацииНМА <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>4 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование> --> СпособОтраженияРасходовПоАмортизации <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходовПоАмортизации" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Дата",ВходящиеДанные.Получить("ДатаСведений")); <Свойство> <Код>5 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>6 <Наименование> --> НМА <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НМА" Вид="ТабличнаяЧасть"/> <Свойство> <Код>7 <Наименование> --> НематериальныйАктив <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <Значения/> <Правило> <Код>ИзменениеСпециальногоКоэффициентаНМА <Наименование>: <Порядок>4350 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ИзменениеСпециальногоКоэффициентаНМА <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>3 <Наименование> --> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>5 <Наименование> --> НМА <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НМА" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование> --> НематериальныйАктив <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <Свойство> <Код>7 <Наименование> --> СпециальныйКоэффициент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СпециальныйКоэффициент" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводПроцентаДеятельностиЕНВД <Наименование>: <Порядок>4050 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводПроцентаДеятельностиЕНВД <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>5 <Наименование> --> Дата <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Период <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = НачМесяца(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>6 <Наименование> --> ПометкаУдаления <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>7 <Наименование> --> РаботникиОрганизации <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование> --> Физлицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>9 <Наименование> --> Сотрудник <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <Свойство> <Код>8 <Наименование> --> ПодпадаетПодЕНВД <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодпадаетПодЕНВД" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> СтатьяЗатратЕНВД <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяЗатратЕНВД" Вид="Реквизит" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатрат_Предопределенные <ПередВыгрузкой>Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","ОплатаТруда"); Значение.Установить("Наименование","Оплата труда работников розничных точек"); Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); <Свойство> <Код>11 <Наименование> --> СтатьяЗатратНеЕНВД <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяЗатратНеЕНВД" Вид="Реквизит" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатрат_Предопределенные <ПередВыгрузкой>Значение = СоздатьОбъект("СписокЗначений"); Значение.Установить("ВидРасходовНУ","ОплатаТруда"); Значение.Установить("Наименование","Оплата труда"); Значение.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); <Значения/> <Правило> <Код>УстановкаПорядкаЗакрытияПодразделений <Наименование>: <Порядок>4100 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; КонецЕсли; <Приемник>ДокументСсылка.УстановкаПорядкаЗакрытияПодразделений <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>3 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>5 <Наименование> --> ПорядокЗакрытия <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокЗакрытия" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование> --> Подразделение <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Значения/> <Правило> <Код>КорректировочныйСчетФактура <Наименование>Документ: Корректировочный счет-фактура выданный <Порядок>4150 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(Источник.ДокументОснование) = 1 Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОснование); ПолучитьИсправляемыйСчетФактуру(); ВходящиеДанные.Установить("ДокументОснованиеДляКорректировки",Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент")); <ПослеВыгрузкиВФайл>ВыгрузитьПоПравилу(Источник,,,, "КорректировочныйСчетФактура_СчетФактура"); <Источник>ДокументСсылка.КорректировочныйСчетФактура <Приемник>ДокументСсылка.КорректировкаРеализации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>4 <Наименование> --> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>14 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>2 <Наименование> --> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Отключить="true"> <Код>16 <Наименование> --> ПодразделениеОрганизации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство Отключить="true"> <Код>6 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>450 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>9 <Наименование> --> ВидОперации <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийИсправленияПоступленияРеализации"/> <ПередВыгрузкой>Значение = "СогласованноеИзменение"; <Свойство> <Код>10 <Наименование>Договор --> ДоговорКонтрагента <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>11 <Наименование> --> ДокументРеализации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументРеализации" Вид="Реквизит"/> <ПередВыгрузкой>ДокументОснованиеДляКорректировки = ВходящиеДанные.Получить("ДокументОснованиеДляКорректировки"); Если ПустоеЗначение(ДокументОснованиеДляКорректировки) = 0 Тогда Если ДокументОснованиеДляКорректировки.Вид() = "СчетФактура" Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", ДокументОснованиеДляКорректировки); УстановитьПараметрыДокументаОснованияСчетаФактуры(); Иначе Значение = ДокументОснованиеДляКорректировки; КонецЕсли; Если ПустоеЗначение(ИмяПКО) = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование> --> ИсправляемыйДокументРеализации <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ИсправляемыйДокументРеализации" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументОснование) = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник.ДокументОснование); УстановитьПараметрыДокументаОснованияСчетаФактуры(); Если ПустоеЗначение(ИмяПКО) = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование> --> КорректироватьБУиНУ <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="КорректироватьБУиНУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>15 <Наименование> --> ОтчетностьПодписана <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ОтчетностьПодписана" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>17 <Наименование> --> Склад <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство Отключить="true"> <Код>18 <Наименование> --> СтатьяПрочихДоходовИРасходов <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяПрочихДоходовИРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> СчетУчетаРасчетовСКонтрагентом <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>19 <Наименование> --> СуммаВключаетНДС <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>20 <Наименование> --> СуммаДокумента <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>22 <Наименование> --> УчитыватьНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>23 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1150 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Товар) = 0 Тогда Если ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда Если (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.Услуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.УслугаЕНВД)Тогда Отказ = 1; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>39 <Наименование>Товар --> Номенклатура <Порядок>50 <Источник Имя="Товар" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Товар) = 0 Тогда Если ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда ИмяПКО = "Номенклатура"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "Материалы" Тогда ИмяПКО = "Материалы"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "ОсновныеСредства" Тогда ИмяПКО = "ОсновныеСредства"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "НематериальныеАктивы" Тогда ИмяПКО = "НематериальныеАктивы"; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>КоличествоДоИзменения --> КоличествоДоИзменения <Порядок>150 <Источник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>Цена --> Цена <Порядок>200 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>ЦенаДоИзменения --> ЦенаДоИзменения <Порядок>250 <Источник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>СуммаДоИзменения --> СуммаДоИзменения <Порядок>350 <Источник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> СтавкаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>40 <Наименование> --> СтавкаНДСДоИзменения <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСДоИзменения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>41 <Наименование>НДС --> СуммаНДС <Порядок>500 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование>НДСДоИзменения --> СуммаНДСДоИзменения <Порядок>550 <Источник Имя="НДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Группа> <Код>31 <Наименование>ТабличнаяЧасть --> Услуги <Порядок>1200 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Отказ = 1; Если ПустоеЗначение(ОбъектКоллекции.Товар) = 0 Тогда Если ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда Если (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.Услуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.УслугаЕНВД)Тогда Отказ = 0; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>43 <Наименование>Товар --> Номенклатура <Порядок>50 <Источник Имя="Товар" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>32 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>КоличествоДоИзменения --> КоличествоДоИзменения <Порядок>150 <Источник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование>Цена --> Цена <Порядок>200 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование>ЦенаДоИзменения --> ЦенаДоИзменения <Порядок>250 <Источник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование>СуммаДоИзменения --> СуммаДоИзменения <Порядок>350 <Источник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>400 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="СправочникСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>46 <Наименование>СтавкаНДС --> СтавкаНДСДоИзменения <Порядок>450 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="СправочникСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДСДоИзменения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>47 <Наименование>НДС --> СуммаНДС <Порядок>500 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>48 <Наименование>НДСДоИзменения --> СуммаНДСДоИзменения <Порядок>550 <Источник Имя="НДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>44 <Наименование> --> Содержание <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>45 <Наименование> --> СодержаниеДоИзменения <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СодержаниеДоИзменения" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>КорректировочныйСчетФактураПолученный <Наименование>Документ: Корректировочный счет-фактура полученный <Порядок>4200 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(Источник.ДокументОприходования) = 1 Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОприходования); ПолучитьИсправляемыйСчетФактуру(); ВходящиеДанные.Установить("ДокументОснованиеДляКорректировки",Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент")); Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоДокумента", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоДокумента", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоДокумента",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоДокумента",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоДокумента",""); ВходящиеДанные.Установить("ДатаВходящегоДокумента",""); КонецЕсли; <ПослеВыгрузкиВФайл>ВыгрузитьПоПравилу(Источник,,,, "КорректировочныйСчетФактураПолученный_СчетФактура") <ПослеЗагрузки> Объект.СуммаДокумента = УчетНДС.ПолучитьСуммуДокументаСНДС(Объект); <Источник>ДокументСсылка.КорректировочныйСчетФактураПолученный <Приемник>ДокументСсылка.КорректировкаПоступления <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование> --> Комментарий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Поиск="true"> <Код>19 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>5 <Наименование> --> Номер <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Отключить="true"> <Код>7 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> ПодразделениеОрганизации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>1 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийИсправленияПоступленияРеализации"/> <ПередВыгрузкой>Значение = "СогласованноеИзменение"; <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>12 <Наименование>Договор --> ДоговорКонтрагента <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>9 <Наименование> --> ВосстановитьНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВосстановитьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ВидОперации = 1 Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство Отключить="true"> <Код>17 <Наименование> --> НомерВходящегоДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>10 <Наименование> --> ДатаВходящегоДокумента <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>21 <Наименование> --> ПредъявленСчетФактура <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>18 <Наименование> --> НомерВходящегоСчетаФактуры <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> ДатаВходящегоСчетаФактуры <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование> --> ДокументПоступления <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументПоступления" Вид="Реквизит"/> <ПередВыгрузкой>ДокументОснованиеДляКорректировки = ВходящиеДанные.Получить("ДокументОснованиеДляКорректировки"); Если ПустоеЗначение(ДокументОснованиеДляКорректировки) = 0 Тогда Если ДокументОснованиеДляКорректировки.Вид()="СчетФактураПолученный" Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", ДокументОснованиеДляКорректировки); УстановитьПараметрыДокОснСчетаФактурыПолученного(); Иначе Значение = ДокументОснованиеДляКорректировки; КонецЕсли; Если ПустоеЗначение(ИмяПКО)=1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>14 <Наименование>ДокументОприходования --> ИсправляемыйДокументПоступления <Порядок>950 <Источник Имя="ДокументОприходования" Вид="Реквизит"/> <Приемник Имя="ИсправляемыйДокументПоступления" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументОприходования) = 0 Тогда Если Источник.ДокументОприходования.Вид()="СчетФактураПолученный" Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник.ДокументОприходования); УстановитьПараметрыДокОснСчетаФактурыПолученного(); Иначе Значение = Источник.ДокументОприходования; КонецЕсли; Если ПустоеЗначение(ИмяПКО)=1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>15 <Наименование> --> КорректироватьБУиНУ <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КорректироватьБУиНУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>16 <Наименование> --> НДСВключенВСтоимость <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>22 <Наименование> --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>23 <Наименование>Всего --> СуммаДокумента <Порядок>1150 <Источник Имя="Всего" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> УчитыватьНДС <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>25 <Наименование> --> Услуги <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("КоличествоДоИзменения"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("ЦенаДоИзменения"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаДоИзменения"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДСДоИзменения"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДСДоИзменения"); Если Источник.СуммаБезНДС20 <> 0 Тогда Если Источник.ВидОперации = 1 Тогда Множитель1 = -1; Иначе Множитель1 = 1; КонецЕсли; Если Источник.СуммаБезНДС20 > 0 Тогда Множитель2 = 1; Иначе Множитель2 = -1; КонецЕсли; Множитель = Множитель1 * Множитель2; КоллекцияОбъектов.НоваяСтрока(); Если Множитель > 0 Тогда КоллекцияОбъектов.Цена = Источник.СуммаБезНДС20; КоллекцияОбъектов.Сумма = Источник.СуммаБезНДС20; КоллекцияОбъектов.СтавкаНДС = "НДС18"; КоллекцияОбъектов.СтавкаНДСДоИзменения = КоллекцияОбъектов.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = Источник.НДС20; Иначе КоллекцияОбъектов.ЦенаДоИзменения = Источник.СуммаБезНДС20; КоллекцияОбъектов.СуммаДоИзменения = Источник.СуммаБезНДС20; КоллекцияОбъектов.СтавкаНДС = "НДС18"; КоллекцияОбъектов.СтавкаНДСДоИзменения = КоллекцияОбъектов.СтавкаНДС; КоллекцияОбъектов.СуммаНДСДоИзменения = Источник.НДС20; КонецЕсли; КонецЕсли; Если Источник.СуммаБезНДС10 <> 0 Тогда Если Источник.ВидОперации = 1 Тогда Множитель1 = -1; Иначе Множитель1 = 1; КонецЕсли; Если Источник.СуммаБезНДС10 > 0 Тогда Множитель2 = 1; Иначе Множитель2 = -1; КонецЕсли; Множитель = Множитель1 * Множитель2; КоллекцияОбъектов.НоваяСтрока(); Если Множитель > 0 Тогда КоллекцияОбъектов.Цена = Источник.СуммаБезНДС10; КоллекцияОбъектов.Сумма = Источник.СуммаБезНДС10; КоллекцияОбъектов.СтавкаНДС = "НДС10"; КоллекцияОбъектов.СтавкаНДСДоИзменения = КоллекцияОбъектов.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = Источник.НДС10; Иначе КоллекцияОбъектов.ЦенаДоИзменения = Источник.СуммаБезНДС10; КоллекцияОбъектов.СуммаДоИзменения = Источник.СуммаБезНДС10; КоллекцияОбъектов.СтавкаНДС = "НДС10"; КоллекцияОбъектов.СтавкаНДСДоИзменения = КоллекцияОбъектов.СтавкаНДС; КоллекцияОбъектов.СуммаНДСДоИзменения = Источник.НДС10; КонецЕсли; КонецЕсли; Если Источник.СуммаСовсемБезНДС <> 0 Тогда Если Источник.ВидОперации = 1 Тогда Множитель1 = -1; Иначе Множитель1 = 1; КонецЕсли; Если Источник.СуммаСовсемБезНДС > 0 Тогда Множитель2 = 1; Иначе Множитель2 = -1; КонецЕсли; Множитель = Множитель1 * Множитель2; КоллекцияОбъектов.НоваяСтрока(); Если Множитель > 0 Тогда КоллекцияОбъектов.Цена = Источник.СуммаСовсемБезНДС; КоллекцияОбъектов.Сумма = Источник.СуммаСовсемБезНДС; КоллекцияОбъектов.СтавкаНДС = "БезНДС"; КоллекцияОбъектов.СтавкаНДСДоИзменения = КоллекцияОбъектов.СтавкаНДС; Иначе КоллекцияОбъектов.ЦенаДоИзменения = Источник.СуммаСовсемБезНДС; КоллекцияОбъектов.СуммаДоИзменения = Источник.СуммаСовсемБезНДС; КоллекцияОбъектов.СтавкаНДС = "БезНДС"; КоллекцияОбъектов.СтавкаНДСДоИзменения = КоллекцияОбъектов.СтавкаНДС; КонецЕсли; КонецЕсли; <Свойство> <Код>27 <Наименование> --> Количество <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование> --> КоличествоДоИзменения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>52 <Наименование> --> Цена <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>53 <Наименование> --> ЦенаДоИзменения <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>44 <Наименование> --> СуммаДоИзменения <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>36 <Наименование> --> СтавкаНДСДоИзменения <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСДоИзменения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>46 <Наименование> --> СуммаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>47 <Наименование> --> СуммаНДСДоИзменения <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ИсправлениеСчетаФактуры <Наименование>Документ: Исправление счета-фактура выданного <Порядок>4250 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(Источник.ДокументОснование) = 1 Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОснование); ПолучитьИсправляемыйСчетФактуру(); ВходящиеДанные.Установить("ДокументОснованиеДляКорректировки",Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент")); <ПослеВыгрузкиВФайл>ВыгрузитьПоПравилу(Источник,,,, "ИсправлениеСчетаФактуры_СчетФактура"); <Источник>ДокументСсылка.ИсправлениеСчетаФактуры <Приемник>ДокументСсылка.КорректировкаРеализации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование> --> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство> <Код>14 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>15 <Наименование> --> ПодразделениеОрганизации <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство Отключить="true"> <Код>6 <Наименование>Проведен --> Проведен <Порядок>350 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийИсправленияПоступленияРеализации"/> <ПередВыгрузкой>Значение = "ИсправлениеОшибки"; <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>10 <Наименование>Договор --> ДоговорКонтрагента <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); Параметры.ПараметрыАлгоритмов.Установить("Договор",Источник.Договор); ОпределитьВидДоговора(); <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>550 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>11 <Наименование> --> ДокументРеализации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументРеализации" Вид="Реквизит"/> <ПередВыгрузкой>ДокументОснованиеДляКорректировки = ВходящиеДанные.Получить("ДокументОснованиеДляКорректировки"); Если ПустоеЗначение(ДокументОснованиеДляКорректировки) = 0 Тогда Если ДокументОснованиеДляКорректировки.Вид() = "СчетФактура" Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", ДокументОснованиеДляКорректировки); УстановитьПараметрыДокументаОснованияСчетаФактуры(); Иначе Значение = ДокументОснованиеДляКорректировки; КонецЕсли; Если ПустоеЗначение(ИмяПКО) = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование> --> ИсправляемыйДокументРеализации <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ИсправляемыйДокументРеализации" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументОснование) = 0 Тогда Если Источник.ДокументОснование.Вид()="СчетФактура" Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник.ДокументОснование); УстановитьПараметрыДокументаОснованияСчетаФактуры(); Иначе Значение = Источник.ДокументОснование; КонецЕсли; Если ПустоеЗначение(ИмяПКО) = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование> --> КорректироватьБУиНУ <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="КорректироватьБУиНУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>16 <Наименование> --> СуммаВключаетНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>17 <Наименование> --> СуммаДокумента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Всего"); <Свойство> <Код>18 <Наименование> --> УчитыватьНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>19 <Наименование>ТабличнаяЧасть --> Товары <Порядок>950 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Товар) = 0 Тогда Если ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда Если (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.Услуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.УслугаЕНВД)Тогда Отказ = 1; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>24 <Наименование>Товар --> Номенклатура <Порядок>100 <Источник Имя="Товар" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Товар) = 0 Тогда Если ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда ИмяПКО = "Номенклатура"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "Материалы" Тогда ИмяПКО = "Материалы"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "ОсновныеСредства" Тогда ИмяПКО = "ОсновныеСредства"; ИначеЕсли ОбъектКоллекции.Товар.Вид() = "НематериальныеАктивы" Тогда ИмяПКО = "НематериальныеАктивы"; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>КоличествоДоИзменения --> КоличествоДоИзменения <Порядок>200 <Источник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>КоличествоДоИзменения --> КоличествоДоКорректировки <Порядок>250 <Источник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДоКорректировки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование>ЦенаДоИзменения --> ЦенаДоИзменения <Порядок>350 <Источник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>44 <Наименование>ЦенаДоИзменения --> ЦенаДоКорректировки <Порядок>400 <Источник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаДоКорректировки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>Сумма --> Сумма <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>СуммаДоИзменения --> СуммаДоИзменения <Порядок>500 <Источник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование>СуммаДоИзменения --> СуммаДоКорректировки <Порядок>550 <Источник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДоКорректировки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>НДС --> СуммаНДС <Порядок>600 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование>НДСДоИзменения --> СуммаНДСДоИзменения <Порядок>650 <Источник Имя="НДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование>НДСДоИзменения --> СуммаНДСДоКорректировки <Порядок>700 <Источник Имя="НДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДСДоКорректировки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> СтавкаНДС <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>28 <Наименование> --> СтавкаНДСДоИзменения <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСДоИзменения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>25 <Наименование>ГТД --> НомерГТД <Порядок>850 <Источник Имя="ГТД" Вид="Реквизит" Тип="СправочникСсылка.ГТД"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>29 <Наименование> --> СтранаПроисхождения <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ГТД)=0 Тогда Значение = ОбъектКоллекции.ГТД.СтранаПроисхождения; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>26 <Наименование>ГТД --> НомерГТДДоИзменения <Порядок>950 <Источник Имя="ГТД" Вид="Реквизит" Тип="СправочникСсылка.ГТД"/> <Приемник Имя="НомерГТДДоИзменения" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>30 <Наименование> --> СтранаПроисхожденияДоИзменения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхожденияДоИзменения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ГТД)=0 Тогда Значение = ОбъектКоллекции.ГТД.СтранаПроисхождения; Иначе Отказ = 1; КонецЕсли <Группа> <Код>45 <Наименование>ТабличнаяЧасть --> Услуги <Порядок>1000 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Отказ = 1; Если ПустоеЗначение(ОбъектКоллекции.Товар) = 0 Тогда Если ОбъектКоллекции.Товар.Вид() = "Номенклатура" Тогда Если (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.Услуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга) ИЛИ (ОбъектКоллекции.Товар.ТипТовара = Перечисление.ТипыНоменклатуры.УслугаЕНВД)Тогда Отказ = 0; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>50 <Наименование>Товар --> Номенклатура <Порядок>100 <Источник Имя="Товар" Вид="Реквизит"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>47 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>48 <Наименование>КоличествоДоИзменения --> КоличествоДоИзменения <Порядок>200 <Источник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>49 <Наименование>КоличествоДоИзменения --> КоличествоДоКорректировки <Порядок>250 <Источник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДоКорректировки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>65 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>66 <Наименование>ЦенаДоИзменения --> ЦенаДоИзменения <Порядок>350 <Источник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>67 <Наименование>ЦенаДоИзменения --> ЦенаДоКорректировки <Порядок>400 <Источник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаДоКорректировки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>56 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>57 <Наименование>СуммаДоИзменения --> СуммаДоИзменения <Порядок>650 <Источник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>58 <Наименование>СуммаДоИзменения --> СуммаДоКорректировки <Порядок>700 <Источник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДоКорректировки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>53 <Наименование> --> СтавкаНДС <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>54 <Наименование> --> СтавкаНДСДоИзменения <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСДоИзменения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДС",ОбъектКоллекции.СтавкаНДС); ПолучитьСтавкуНДС(); Значение = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДССтрока"); <Свойство> <Код>59 <Наименование>НДС --> СуммаНДС <Порядок>850 <Источник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>60 <Наименование>НДСДоИзменения --> СуммаНДСДоИзменения <Порядок>900 <Источник Имя="НДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>61 <Наименование>НДСДоИзменения --> СуммаНДСДоКорректировки <Порядок>950 <Источник Имя="НДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДСДоКорректировки" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ИсправлениеСчетаФактурыПолученного <Наименование>Документ: Исправление счета-фактуры полученного <Порядок>4300 <ПередВыгрузкой>ПроверитьНаВозможностьВыгрузки(); Если ПустоеЗначение(Источник.ДокументОприходования) = 1 Тогда Отказ = 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОприходования); ПолучитьИсправляемыйСчетФактуру(); ИсправляемыйДокумент = Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент"); ВходящиеДанные.Установить("ДокументОснованиеДляКорректировки", ИсправляемыйДокумент); Услуги = СоздатьОбъект("ТаблицаЗначений"); Услуги.НоваяКолонка("Количество"); Услуги.НоваяКолонка("КоличествоДоИзменения"); Услуги.НоваяКолонка("Цена"); Услуги.НоваяКолонка("ЦенаДоИзменения"); Услуги.НоваяКолонка("Сумма"); Услуги.НоваяКолонка("СуммаДоИзменения"); Услуги.НоваяКолонка("СтавкаНДС"); Услуги.НоваяКолонка("СтавкаНДСДоИзменения"); Услуги.НоваяКолонка("СуммаНДС"); Услуги.НоваяКолонка("СуммаНДСДоИзменения"); Если Источник.ВидИсправляемогоСчетаФактуры = 1 Тогда Если (Источник.ВидОперации = 1) Тогда Множитель1 = -1; Иначе Множитель1 = 1; КонецЕсли; Если Источник.СуммаБезНДС20 <> 0 Тогда Если Источник.СуммаБезНДС20 > 0 Тогда Множитель2 = 1; Иначе Множитель2 = -1; КонецЕсли; Множитель = Множитель1 * Множитель2; Услуги.НоваяСтрока(); Если Множитель > 0 Тогда Услуги.Цена = Источник.СуммаБезНДС20; Услуги.Сумма = Источник.СуммаБезНДС20; Услуги.СтавкаНДС = "НДС18"; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; Услуги.СуммаНДС = Источник.НДС20; Иначе Услуги.ЦенаДоИзменения = Источник.СуммаБезНДС20; Услуги.СуммаДоИзменения = Источник.СуммаБезНДС20; Услуги.СтавкаНДС = "НДС18"; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; Услуги.СуммаНДСДоИзменения = Источник.НДС20; КонецЕсли; КонецЕсли; Если Источник.СуммаБезНДС10 <> 0 Тогда Если Источник.СуммаБезНДС10 > 0 Тогда Множитель2 = 1; Иначе Множитель2 = -1; КонецЕсли; Множитель = Множитель1 * Множитель2; Услуги.НоваяСтрока(); Если Множитель > 0 Тогда Услуги.Цена = Источник.СуммаБезНДС10; Услуги.Сумма = Источник.СуммаБезНДС10; Услуги.СтавкаНДС = "НДС10"; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; Услуги.СуммаНДС = Источник.НДС10; Иначе Услуги.ЦенаДоИзменения = Источник.СуммаБезНДС10; Услуги.СуммаДоИзменения = Источник.СуммаБезНДС10; Услуги.СтавкаНДС = "НДС10"; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; Услуги.СуммаНДСДоИзменения = Источник.НДС10; КонецЕсли; КонецЕсли; Если Источник.СуммаСовсемБезНДС <> 0 Тогда Если Источник.СуммаСовсемБезНДС > 0 Тогда Множитель2 = 1; Иначе Множитель2 = -1; КонецЕсли; Множитель = Множитель1 * Множитель2; Услуги.НоваяСтрока(); Если Множитель > 0 Тогда Услуги.Цена = Источник.СуммаСовсемБезНДС; Услуги.Сумма = Источник.СуммаСовсемБезНДС; Услуги.СтавкаНДС = "БезНДС"; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; Иначе Услуги.ЦенаДоИзменения = Источник.СуммаСовсемБезНДС; Услуги.СуммаДоИзменения = Источник.СуммаСовсемБезНДС; Услуги.СтавкаНДС = "БезНДС"; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; КонецЕсли; КонецЕсли; Иначе // Для исправления обычного счета-фактуры нам нужно для ДокументОснованиеДляКорректировки определить // все записи книги покупок с флагом Сторно и добавить эти суммы в поля ДоИзменения. Сумма20 = 0; СуммаНДС20 = 0; Сумма10 = 0; СуммаНДС10 = 0; СуммаБезНДС = 0; ДокЗКП = СоздатьОбъект("Документ"); ДокЗКП.ВыбратьПодчиненныеДокументы( , ,ИсправляемыйДокумент); Пока ДокЗКП.ПолучитьДокумент() = 1 Цикл Если (ДокЗКП.Проведен()=1) И (ДокЗКП.Вид()="ЗаписьКнигиПокупок") Тогда Если ДокЗКП.СторнирующаяЗапись = 1 Тогда Сумма20 = Сумма20 - ДокЗКП.СуммаБезНДС20; СуммаНДС20 = СуммаНДС20 - ДокЗКП.НДС20; Сумма10 = Сумма10 - ДокЗКП.СуммаБезНДС10; СуммаНДС10 = СуммаНДС10 - ДокЗКП.НДС10; СуммаБезНДС = СуммаБезНДС - ДокЗКП.СуммаСовсемБезНДС; КонецЕсли; КонецЕсли; КонецЦикла; Если (Источник.СуммаБезНДС20 <> 0) ИЛИ (Сумма20 <> 0)Тогда Услуги.НоваяСтрока(); Услуги.Цена = Источник.СуммаБезНДС20; Услуги.Сумма = Источник.СуммаБезНДС20; Услуги.СтавкаНДС = "НДС18"; Услуги.СуммаНДС = Источник.НДС20; Услуги.ЦенаДоИзменения = Сумма20; Услуги.СуммаДоИзменения = Сумма20; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; Услуги.СуммаНДСДоИзменения = СуммаНДС20; КонецЕсли; Если (Источник.СуммаБезНДС10 <> 0) ИЛИ (Сумма10 <> 0)Тогда Услуги.НоваяСтрока(); Услуги.Цена = Источник.СуммаБезНДС10; Услуги.Сумма = Источник.СуммаБезНДС10; Услуги.СтавкаНДС = "НДС10"; Услуги.СуммаНДС = Источник.НДС10; Услуги.ЦенаДоИзменения = Источник.СуммаБезНДС10; Услуги.СуммаДоИзменения = Источник.СуммаБезНДС10; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; Услуги.СуммаНДСДоИзменения = Источник.НДС10; КонецЕсли; Если (Источник.СуммаСовсемБезНДС <> 0) ИЛИ (СуммаБезНДС <> 0) Тогда Услуги.НоваяСтрока(); Услуги.Цена = Источник.СуммаСовсемБезНДС; Услуги.Сумма = Источник.СуммаСовсемБезНДС; Услуги.СтавкаНДС = "БезНДС"; Услуги.ЦенаДоИзменения = СуммаБезНДС; Услуги.СуммаДоИзменения = СуммаБезНДС; Услуги.СтавкаНДСДоИзменения = Услуги.СтавкаНДС; КонецЕсли; КонецЕсли; ВходящиеДанные.Установить("Услуги", Услуги); <ПослеВыгрузкиВФайл>ВыгрузитьПоПравилу(Источник,,,, "ИсправлениеСчетаФактурыПолученного_СчетФактура") <ПослеЗагрузки>Объект.СуммаДокумента = УчетНДС.ПолучитьСуммуДокументаСНДС(Объект); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ИсправлениеСчетаФактурыПолученного <Приемник>ДокументСсылка.КорректировкаПоступления <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>100 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Поиск="true"> <Код>17 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>7 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>300 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование> --> ВидОперации <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийИсправленияПоступленияРеализации"/> <ПередВыгрузкой>Значение = "ИсправлениеОшибки"; <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>11 <Наименование>Договор --> ДоговорКонтрагента <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>8 <Наименование> --> ВалютаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>9 <Наименование> --> ВосстановитьНДС <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ВосстановитьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ВидОперации = 1 Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство Отключить="true"> <Код>16 <Наименование>НомерИсходногоДокумента --> НомерВходящегоСчетаФактуры <Порядок>600 <Источник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>10 <Наименование>ДатаИсходногоДокумента --> ДатаВходящегоСчетаФактуры <Порядок>650 <Источник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>12 <Наименование> --> ДокументПоступления <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументПоступления" Вид="Реквизит"/> <ПередВыгрузкой>ДокументОснованиеДляКорректировки = ВходящиеДанные.Получить("ДокументОснованиеДляКорректировки"); Если ПустоеЗначение(ДокументОснованиеДляКорректировки) = 0 Тогда Если ДокументОснованиеДляКорректировки.Вид()="СчетФактураПолученный" Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", ДокументОснованиеДляКорректировки); УстановитьПараметрыДокОснСчетаФактурыПолученного(); Иначе Значение = ДокументОснованиеДляКорректировки; КонецЕсли; Если ПустоеЗначение(ИмяПКО)=1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование> --> ИсправляемыйДокументПоступления <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ИсправляемыйДокументПоступления" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокументОприходования) = 0 Тогда Если Источник.ДокументОприходования.Вид()="СчетФактураПолученный" Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетФактура", Источник.ДокументОприходования); УстановитьПараметрыДокОснСчетаФактурыПолученного(); Иначе Значение = Источник.ДокументОприходования; КонецЕсли; Если ПустоеЗначение(ИмяПКО)=1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ", Значение); ОпределитьПКОДляДокумента(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>14 <Наименование> --> КорректироватьБУиНУ <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="КорректироватьБУиНУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>15 <Наименование> --> НДСВключенВСтоимость <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="НДСВключенВСтоимость" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>18 <Наименование> --> ПредъявленСчетФактура <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>19 <Наименование> --> СуммаВключаетНДС <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>20 <Наименование>Всего --> СуммаДокумента <Порядок>1000 <Источник Имя="Всего" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> ТипЦен <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>22 <Наименование> --> УчитыватьНДС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>23 <Наименование> --> Услуги <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>24 <Наименование> --> Количество <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> КоличествоДоИзменения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> СтавкаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>27 <Наименование> --> СтавкаНДСДоИзменения <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСДоИзменения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>28 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> СуммаДоИзменения <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> СуммаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> СуммаНДСДоИзменения <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> Цена <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> ЦенаДоИзменения <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>КорректировочныйСчетФактура_СчетФактура <Наименование>Документ: Корректировочный счет-фактура выданный <Порядок>4350 <ПослеЗагрузки>Если Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаРеализацию ИЛИ Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.Корректировочный Тогда Объект.ОпределениеПараметровСчетаФактуры(); КонецЕсли; <Источник>ДокументСсылка.КорректировочныйСчетФактура <Приемник>ДокументСсылка.СчетФактураВыданный <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование> --> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>29 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>14 <Наименование>Проведен --> Проведен <Порядок>200 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> ВидСчетаФактуры <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыВыставленного"/> <ПередВыгрузкой>Значение = "Корректировочный"; <Свойство> <Код>6 <Наименование> --> ДокументОснование <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>КорректировочныйСчетФактура <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>24 <Наименование> --> ИсправляемыйСчетФактура <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ИсправляемыйСчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураВыданный"/> <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОснование); ПолучитьИсправляемыйСчетФактуру(); Значение = Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент"); Параметры.ПараметрыАлгоритмов.Установить("Документ",Значение); ОпределитьПКОДляДокумента(); <Свойство> <Код>9 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>22 <Наименование>Договор --> ДоговорКонтрагента <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>18 <Наименование> --> ВалютаДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>1 <Наименование>Выставлен --> Выставлен <Порядок>650 <Источник Имя="Выставлен" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Выставлен" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>2 <Наименование>ДатаВыставления --> ДатаВыставления <Порядок>700 <Источник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>12 <Наименование>НомерИсходногоДокумента --> НомерИсходногоДокумента <Порядок>750 <Источник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ДатаИсходногоДокумента --> ДатаИсходногоДокумента <Порядок>800 <Источник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование>НомерИсправленияИсходногоДокумента --> НомерИсправленияИсходногоДокумента <Порядок>850 <Источник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>ДатаИсправленияИсходногоДокумента --> ДатаИсправленияИсходногоДокумента <Порядок>900 <Источник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>950 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>16 <Наименование>СчетФактураНеВыставляется --> СчетФактураНеВыставляется <Порядок>1000 <Источник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>17 <Наименование>УчитыватьИсправлениеИсходногоДокумента --> УчитыватьИсправлениеИсходногоДокумента <Порядок>1050 <Источник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>7 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>1100 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>25 <Наименование>СпособВыставления --> КодСпособаВыставления <Порядок>1150 <Источник Имя="СпособВыставления" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаВыставления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование> --> Исправление <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="Исправление" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Отключить="true"> <Код>26 <Наименование> --> НомерИсправления <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>27 <Наименование> --> НомерИсправляемогоКорректировочногоДокумента <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> ДатаИсправляемогоКорректировочногоДокумента <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>28 <Наименование> --> НомерПлатежноРасчетногоДокумента <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> ДатаПлатежноРасчетногоДокумента <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Группа> <Код>38 <Наименование> --> ДатаНомерДокументовОплаты <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНомерДокументовОплаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); КоллекцияОбъектов.НоваяКолонка("НомерПлатежноРасчетногоДокумента"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>39 <Наименование> --> ДатаПлатежноРасчетногоДокумента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>40 <Наименование> --> НомерПлатежноРасчетногоДокумента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>41 <Наименование> --> ДокументыОснования <Порядок>1950 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДокументОснование"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДокументОснование = Источник; <Свойство> <Код>42 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>КорректировочныйСчетФактура <Значения/> <Правило> <Код>ИсправлениеСчетаФактуры_СчетФактура <Наименование>Документ: Исправление счета-фактура выданного <Порядок>4400 <ПослеЗагрузки>Если Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаРеализацию ИЛИ Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.Корректировочный Тогда Объект.ОпределениеПараметровСчетаФактуры(); КонецЕсли; <Источник>ДокументСсылка.ИсправлениеСчетаФактуры <Приемник>ДокументСсылка.СчетФактураВыданный <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>11 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Документ",Источник); ПолучитьНомерДокумента(); Значение = Параметры.ПараметрыАлгоритмов.Получить("НомерДокумента"); <Свойство Поиск="true"> <Код>29 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>16 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>17 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>21 <Наименование> --> ВалютаДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>10 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>24 <Наименование>Договор --> ДоговорКонтрагента <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>1 <Наименование>Выставлен --> Выставлен <Порядок>500 <Источник Имя="Выставлен" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Выставлен" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>2 <Наименование>ДатаВыставления --> ДатаВыставления <Порядок>550 <Источник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>ДокументОснование --> ДокументОснование <Порядок>600 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>ИсправлениеСчетаФактуры <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>8 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>650 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>27 <Наименование>СпособВыставления --> КодСпособаВыставления <Порядок>700 <Источник Имя="СпособВыставления" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаВыставления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> Исправление <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="Исправление" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>12 <Наименование>НомерИсправления --> НомерИсправления <Порядок>800 <Источник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>НомерИсправленияИсходногоДокумента --> НомерИсправленияИсходногоДокумента <Порядок>850 <Источник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>ДатаИсправленияИсходногоДокумента --> ДатаИсправленияИсходногоДокумента <Порядок>900 <Источник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование>НомерИсправляемогоКорректировочногоДокумента --> НомерИсправляемогоКорректировочногоДокумента <Порядок>950 <Источник Имя="НомерИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ДатаИсправляемогоКорректировочногоДокумента --> ДатаИсправляемогоКорректировочногоДокумента <Порядок>1000 <Источник Имя="ДатаИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>6 <Наименование>ДатаИсходногоДокумента --> ДатаИсходногоДокумента <Порядок>1050 <Источник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование>НомерИсходногоДокумента --> НомерИсходногоДокумента <Порядок>1100 <Источник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>1150 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>19 <Наименование>СчетФактураНеВыставляется --> СчетФактураНеВыставляется <Порядок>1200 <Источник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование>УчитыватьИсправлениеИсходногоДокумента --> УчитыватьИсправлениеИсходногоДокумента <Порядок>1250 <Источник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>22 <Наименование> --> ВидСчетаФактуры <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыВыставленного"/> <ПередВыгрузкой>Значение = "НаРеализацию"; Если ПустоеЗначение(Источник.ДокументОснование)=0 Тогда Если Источник.ДокументОснование.Вид()="КорректировочныйСчетФактура" Тогда Значение = "Корректировочный"; КонецЕсли; КонецЕсли; <Свойство Отключить="true"> <Код>23 <Наименование> --> ДатаПлатежноРасчетногоДокумента <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>28 <Наименование> --> НомерПлатежноРасчетногоДокумента <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>26 <Наименование> --> ИсправляемыйСчетФактура <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ИсправляемыйСчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураВыданный"/> <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОснование); ПолучитьИсправляемыйСчетФактуру(); Значение = Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент"); Параметры.ПараметрыАлгоритмов.Установить("Документ",Значение); Если ПустоеЗначение(Значение) = 0 Тогда Если Значение.Вид()="СчетФактура" Тогда ИмяПКО = "СчетФактура"; ИначеЕсли Значение.Вид() = "КорректировочныйСчетФактура" Тогда ИмяПКО = "КорректировочныйСчетФактура_СчетФактура"; КонецЕсли; КонецЕсли; <Группа> <Код>36 <Наименование> --> ДатаНомерДокументовОплаты <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНомерДокументовОплаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); КоллекцияОбъектов.НоваяКолонка("НомерПлатежноРасчетногоДокумента"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>37 <Наименование> --> ДатаПлатежноРасчетногоДокумента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>38 <Наименование> --> НомерПлатежноРасчетногоДокумента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>39 <Наименование> --> ДокументыОснования <Порядок>1850 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДокументОснование"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДокументОснование = Источник; <Свойство> <Код>40 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>ИсправлениеСчетаФактуры <Значения/> <Правило> <Код>КорректировочныйСчетФактураПолученный_СчетФактура <Наименование>Документ: Корректировочный счет-фактура полученный <Порядок>4450 <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.НачалоПримененияПостановления1137 <= Источник.ДатаДок Тогда ВходящиеДанные.Установить("НомерВходящегоДокумента", Источник.НомерСчетаФактуры); ВходящиеДанные.Установить("ДатаВходящегоДокумента", Источник.ДатаСчетаФактуры); ИначеЕсли СокрЛП(Источник.ДатаНомерСчетаФактуры)<>"" Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(Источник.ДатаНомерСчетаФактуры)); ПолучитьДатуИНомерСФ(); ВходящиеДанные.Установить("НомерВходящегоДокумента",Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры")); ВходящиеДанные.Установить("ДатаВходящегоДокумента",Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры")); Иначе ВходящиеДанные.Установить("НомерВходящегоДокумента",""); ВходящиеДанные.Установить("ДатаВходящегоДокумента",""); КонецЕсли; <ПослеЗагрузки>Если Не Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыПолученного.НаАванс И Не Объект.СформированПриВводеНачальныхОстатковНДС Тогда Объект.ОпределениеПараметровСчетаФактуры(); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.КорректировочныйСчетФактураПолученный <Приемник>ДокументСсылка.СчетФактураПолученный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>5 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Поиск="true"> <Код>23 <Наименование> --> Организация <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>11 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>14 <Наименование> --> ВалютаДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>17 <Наименование>Договор --> ДоговорКонтрагента <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>2 <Наименование>ДатаИсправленияИсходногоДокумента --> ДатаИсправленияИсходногоДокумента <Порядок>500 <Источник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ДатаИсходногоДокумента --> ДатаИсходногоДокумента <Порядок>550 <Источник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>4 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>600 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>650 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>НомерИсправленияИсходногоДокумента --> НомерИсправленияИсходногоДокумента <Порядок>700 <Источник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>НомерИсходногоДокумента --> НомерИсходногоДокумента <Порядок>750 <Источник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>800 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>13 <Наименование>УчитыватьИсправлениеИсходногоДокумента --> УчитыватьИсправлениеИсходногоДокумента <Порядок>850 <Источник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>15 <Наименование> --> ВидСчетаФактуры <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыПолученного"/> <ПередВыгрузкой>Значение = "Корректировочный"; <Свойство> <Код>18 <Наименование> --> ДокументОснование <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>КорректировочныйСчетФактураПолученный <ПередВыгрузкой>Значение = Источник; <Свойство Отключить="true"> <Код>16 <Наименование> --> ДатаИсправления <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаИсправления" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> Исправление <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Исправление" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>22 <Наименование> --> НомерИсправления <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> НомерВходящегоДокумента <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>32 <Наименование> --> ДатаВходящегоДокумента <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> ИсправляемыйСчетФактура <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="ИсправляемыйСчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураПолученный"/> <ПередВыгрузкой> Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОприходования); ПолучитьИсправляемыйСчетФактуру(); Значение = Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент"); Если ПустоеЗначение(Значение) = 0 Тогда Если Значение.Вид()="СчетФактураПолученный" Тогда ИмяПКО = "СчетФактураПолученный"; ИначеЕсли Значение.Вид() = "КорректировочныйСчетФактураПолученный" Тогда ИмяПКО = "КорректировочныйСчетФактураПолученный_СчетФактура"; ИначеЕсли Значение.Вид() = "ИсправлениеСчетаФактуры" Тогда ИмяПКО = "ИсправлениеСчетаФактурыПолученного_СчетФактура"; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Группа> <Код>30 <Наименование> --> ДокументыОснования <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДокументОснование"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДокументОснование = Источник; <Свойство> <Код>31 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>КорректировочныйСчетФактураПолученный <Значения/> <Правило> <Код>ИсправлениеСчетаФактурыПолученного_СчетФактура <Наименование>Документ: Исправление счета-фактуры полученного <Порядок>4500 <ПослеЗагрузки>Если Не Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыПолученного.НаАванс И Не Объект.СформированПриВводеНачальныхОстатковНДС Тогда Объект.ОпределениеПараметровСчетаФактуры(); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ИсправлениеСчетаФактурыПолученного <Приемник>ДокументСсылка.СчетФактураПолученный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true"> <Код>8 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>6 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Поиск="true"> <Код>26 <Наименование> --> Организация <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>13 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>16 <Наименование> --> ВалютаДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Договор)=0 тогда Значение = ?(ПустоеЗначение(Источник.Договор.ВалютаДоговора) = 0,Источник.Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>19 <Наименование>Договор --> ДоговорКонтрагента <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>21 <Наименование> --> Исправление <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Исправление" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>9 <Наименование>НомерИсправления --> НомерИсправления <Порядок>550 <Источник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>2 <Наименование>ДатаИсправления --> ДатаИсправления <Порядок>600 <Источник Имя="ДатаИсправления" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>10 <Наименование>НомерИсправленияИсходногоДокумента --> НомерИсправленияИсходногоДокумента <Порядок>650 <Источник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>3 <Наименование>ДатаИсправленияИсходногоДокумента --> ДатаИсправленияИсходногоДокумента <Порядок>700 <Источник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование>НомерИсходногоДокумента --> НомерИсходногоДокумента <Порядок>750 <Источник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ДатаИсходногоДокумента --> ДатаИсходногоДокумента <Порядок>800 <Источник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>850 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>5 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>900 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>950 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>УчитыватьИсправлениеИсходногоДокумента --> УчитыватьИсправлениеИсходногоДокумента <Порядок>1000 <Источник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>17 <Наименование> --> ВидСчетаФактуры <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыПолученного"/> <ПередВыгрузкой>Если Источник.ВидИсправляемогоСчетаФактуры = 0 Тогда Значение = "НаПоступление"; Иначе Значение = "Корректировочный"; КонецЕсли; <Свойство> <Код>25 <Наименование>НомерИсходногоДокумента --> НомерВходящегоДокумента <Порядок>1100 <Источник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>ДатаИсходногоДокумента --> ДатаВходящегоДокумента <Порядок>1150 <Источник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>22 <Наименование> --> ИсправляемыйСчетФактура <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ИсправляемыйСчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураПолученный"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокумент", Источник); Параметры.ПараметрыАлгоритмов.Установить("КорректировкаДокументОснование", Источник.ДокументОприходования); ПолучитьИсправляемыйСчетФактуру(); Значение = Параметры.ПараметрыАлгоритмов.Получить("ИсправляемыйДокумент"); Если ПустоеЗначение(Значение) = 0 Тогда Если Значение.Вид()="СчетФактураПолученный" Тогда ИмяПКО = "СчетФактураПолученный"; ИначеЕсли Значение.Вид() = "КорректировочныйСчетФактураПолученный" Тогда ИмяПКО = "КорректировочныйСчетФактураПолученный_СчетФактура"; ИначеЕсли Значение.Вид() = "ИсправлениеСчетаФактуры" Тогда ИмяПКО = "ИсправлениеСчетаФактурыПолученного_СчетФактура"; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>20 <Наименование> --> ДокументОснование <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>ИсправлениеСчетаФактурыПолученного <ПередВыгрузкой>Значение = Источник; <Свойство Отключить="true"> <Код>24 <Наименование> --> НДСПредъявленКВычету <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <Группа> <Код>33 <Наименование> --> ДокументыОснования <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДокументОснование"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДокументОснование = Источник; <Свойство> <Код>34 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>ИсправлениеСчетаФактурыПолученного <Значения/> <Группа> <Код>ДополнительныеСведения <Наименование>Дополнительные сведения <Порядок>100 <Правило> <Код>СтатьиЗатрат_Предопределенные <Наименование> --> СправочникСсылка.СтатьиЗатрат <Порядок>50 <ПередВыгрузкой>Если ПустоеЗначение(Источник)=1 Тогда Отказ = 1; Иначе КлючВыгружаемыхДанных = Источник.Получить("Наименование")+Источник.Получить("ВидРасходовНУ")+Источник.Получить("ВидДеятельностиДляНалоговогоУчетаЗатрат"); КонецЕсли; <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник.Получить("Наименование"); <Свойство Отключить="true"> <Код>4 <Наименование> --> Родитель <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование> --> ЭтоГруппа <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>2 <Наименование> --> ВидРасходовНУ <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыРасходовНУ"/> <ПередВыгрузкой>Значение = Источник.Получить("ВидРасходовНУ"); <Свойство Поиск="true"> <Код>1 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Значение = Источник.Получить("ВидДеятельностиДляНалоговогоУчетаЗатрат"); Если ПустоеЗначение(Значение)=1 Тогда Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; КонецЕсли; <Значения/> <Правило> <Код>ПрочиеДоходыИРасходы_Предопределенные <Наименование>Строка: Строка <Порядок>100 <ПередВыгрузкой>Если ПустоеЗначение(Источник)=1 Тогда Отказ = 1; ИначеЕсли ТипЗначенияСтр(Источник)="СписокЗначений" Тогда КлючВыгружаемыхДанных = Источник.Получить("Наименование")+Источник.Получить("ПринятиеКНалоговомуУчету")+Источник.Получить("ВидПрочихДоходовИРасходов"); КонецЕсли; <ПриВыгрузке>Если ТипЗначенияСтр(Источник)="Строка" Тогда СтандартнаяОбработка = 0; КонецЕсли; <НеЗамещать>true <НеВыгружатьОбъектыСвойствПоСсылкам>true <Источник>Строка <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>2 <Наименование> --> ЭтоГруппа <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>6 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если ТипЗначенияСтр(Источник) = "СписокЗначений" Тогда Значение = Источник.Получить("Наименование"); Иначе Отказ = 1; КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование> --> ВидПрочихДоходовИРасходов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПрочихДоходовИРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПрочихДоходовИРасходов"/> <ПередВыгрузкой>Если ТипЗначенияСтр(Источник) = "СписокЗначений" Тогда Значение = Источник.Получить("ВидПрочихДоходовИРасходов"); Иначе Отказ = 1; КонецЕсли; <Свойство Поиск="true"> <Код>5 <Наименование> --> ПринятиеКналоговомуУчету <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПринятиеКналоговомуУчету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ТипЗначенияСтр(Источник) = "СписокЗначений" Тогда Значение = Источник.Получить("ПринятиеКналоговомуУчету"); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>3 <Наименование> --> ВидДеятельностиДляНалоговогоУчетаЗатрат <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиДляНалоговогоУчетаЗатрат" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат"/> <ПередВыгрузкой>Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; <Свойство> <Код>7 <Наименование> --> ПометкаУдаления <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>8 <Наименование> --> Родитель <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы <ПередВыгрузкой>Значение = ПолучитьПустоеЗначение(); <Значения> <Значение> <Код>1 <Наименование>РазницыСтоимостиВозвратаИФактическойСтоимостиТовар <Порядок>50 <Источник>РазницыСтоимостиВозвратаИФактическойСтоимостиТоваров <Приемник>РазницыСтоимостиВозвратаИФактическойСтоимостиТоваров <Правило> <Код>ГруппаСтатейЗатрат <Наименование> --> СправочникСсылка.СтатьиЗатрат <Порядок>150 <Источник>Строка <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрЛП(Источник); <Свойство Поиск="true"> <Код>2 <Наименование> --> Родитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <ПередВыгрузкой>Значение = ПолучитьПустоеЗначение(); <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование> --> ЭтоГруппа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>СпецификацииНоменклатуры <Наименование>СправочникСсылка.Номенклатура --> СправочникСсылка.СпецификацииНоменклатуры <Порядок>200 <ПередВыгрузкой>Спецификация = СоздатьОбъект("ТаблицаЗначений"); Спецификация.НоваяКолонка("Номенклатура"); Спецификация.НоваяКолонка("Количество"); Нормы = СоздатьОбъект("Справочник.НормыРасходов"); Нормы.ИспользоватьВладельца(Источник); Нормы.ВыбратьЭлементы(); Пока Нормы.ПолучитьЭлемент() = 1 Цикл Если Нормы.ЭтоГруппа() = 1 Тогда Продолжить; ИначеЕсли Нормы.ПометкаУдаления() = 1 Тогда Продолжить; КонецЕсли; Спецификация.НоваяСтрока(); Спецификация.Номенклатура = Нормы.Элемент; Спецификация.Количество = ?(Нормы.КолПрод.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = 0, 0, Нормы.Норма.Получить(Параметры.ДатаКонцаПериодаВыгрузки) / Нормы.КолПрод.Получить(Параметры.ДатаКонцаПериодаВыгрузки)); КонецЦикла; Если Спецификация.КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ИсходныеКомплектующие", Спецификация); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.СпецификацииНоменклатуры <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>8 <Наименование> --> Владелец <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Значение = Источник; <Свойство Отключить="true"> <Код>10 <Наименование>Код --> Код <Порядок>300 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>400 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Количество <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); Значение = 1; <Группа> <Код>5 <Наименование> --> ИсходныеКомплектующие <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИсходныеКомплектующие" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>6 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>7 <Наименование> --> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Банки <Наименование>СправочникСсылка.Банки --> СправочникСсылка.Банки <Порядок>250 <Источник>СправочникСсылка.Банки <Приемник>СправочникСсылка.Банки <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Группа> <Код>9 <Наименование> --> <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Отказ = Источник.ЭтоГруппа(); <Свойство> <Код>5 <Наименование>КоррСчет --> КоррСчет <Порядок>500 <Источник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Местонахождение --> Город <Порядок>600 <Источник Имя="Местонахождение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Адрес --> Адрес <Порядок>700 <Источник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Телефоны --> Телефоны <Порядок>800 <Источник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1000 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ТерриториальныеУсловия <Наименование>ПеречислениеСсылка.ТерриториальныеУсловия --> СправочникСсылка.ТерриториальныеУсловия <Порядок>300 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ТерриториальныеУсловия <Приемник>СправочникСсылка.ТерриториальныеУсловия <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>ЮрФизЛицо <Наименование>ПеречислениеСсылка.ВидыКонтрагентов --> ПеречислениеСсылка.ЮрФизЛицо <Порядок>350 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВидыКонтрагентов <Приемник>ПеречислениеСсылка.ЮрФизЛицо <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ЧастноеЛицо --> ФизЛицо <Порядок>100 <Источник>ЧастноеЛицо <Приемник>ФизЛицо <Значение> <Код>2 <Наименование>ДочернееОбщество --> ЮрЛицо <Порядок>200 <Источник>ДочернееОбщество <Приемник>ЮрЛицо <Значение> <Код>3 <Наименование>ЗависимоеОбщество --> ЮрЛицо <Порядок>300 <Источник>ЗависимоеОбщество <Приемник>ЮрЛицо <Значение> <Код>4 <Наименование>Организация --> ЮрЛицо <Порядок>400 <Источник>Организация <Приемник>ЮрЛицо <Правило> <Код>ТипЦеныНоменклатуры <Наименование>ТипЦеныНоменклатуры <Порядок>400 <Приемник>СправочникСсылка.ТипыЦенНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Наименование <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Лев(Значение, 25); <Свойство Поиск="true"> <Код>3 <Наименование> --> ВалютаЦены <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаЦены" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>5 <Наименование> --> ПорядокОкругления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОкругления" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядкиОкругления"/> <ПередВыгрузкой>Значение = "Окр0_01"; <Свойство Поиск="true"> <Код>6 <Наименование> --> ЦенаВключаетНДС <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Значения/> <Правило> <Код>Валюты <Наименование>СправочникСсылка.Валюты --> СправочникСсылка.Валюты <Порядок>450 <ПослеВыгрузки>ВыгрузитьПоПравилу(Источник,,,, "КурсыВалют"); <Источник>СправочникСсылка.Валюты <Приемник>СправочникСсылка.Валюты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если Источник.Код = "810" Тогда Значение = "643"; КонецЕсли; <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>300 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ВидыСкладов <Наименование>ПеречислениеСсылка.ТипыСкладов --> ПеречислениеСсылка.ВидыСкладов <Порядок>500 <ПередВыгрузкой>Если ТипЗначения(Источник) = 10 Тогда Источник = Источник.Идентификатор(); КонецЕсли; <Источник>ПеречислениеСсылка.ТипыСкладов <Приемник>ПеречислениеСсылка.ВидыСкладов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Розничный --> НеавтоматизированнаяТорговаяТочка <Порядок>100 <Источник>Розничный <Приемник>НеавтоматизированнаяТорговаяТочка <Значение> <Код>2 <Наименование>Оптовый --> Оптовый <Порядок>200 <Источник>Оптовый <Приемник>Оптовый <Правило> <Код>ВидыНМА <Наименование>ПеречислениеСсылка.ГруппыНМА --> ПеречислениеСсылка.ВидыНМА <Порядок>550 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ГруппыНМА <Приемник>ПеречислениеСсылка.ВидыНМА <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ОрганизационныеРасходы --> ОрганизационныеРасходы <Порядок>100 <Источник>ОрганизационныеРасходы <Приемник>ОрганизационныеРасходы <Значение> <Код>2 <Наименование>ПраваНаПрограммыЭВМ --> ИсключительноеПравоНаПрогр <Порядок>200 <Источник>ПраваНаПрограммыЭВМ <Приемник>ИсключительноеПравоНаПрограммыДляЭВМ <Значение> <Код>3 <Наименование>ПраваНаТопологииМикросхем --> ИмущественноеПравоНа <Порядок>300 <Источник>ПраваНаТопологииМикросхем <Приемник>ИмущественноеПравоНаТопологииИМС <Значение> <Код>4 <Наименование>ПраваНаТоварныйЗнак --> ИсключительноеПравоНаТовар <Порядок>400 <Источник>ПраваНаТоварныйЗнак <Приемник>ИсключительноеПравоНаТоварныйЗнак <Значение> <Код>5 <Наименование>ПраваНаСелекционныеДостижения --> ИсключительноеПр <Порядок>500 <Источник>ПраваНаСелекционныеДостижения <Приемник>ИсключительноеПравоНаСелекционныеДостижения <Значение> <Код>6 <Наименование>Прочие --> ПрочиеНематериальныеАктивы <Порядок>600 <Источник>Прочие <Приемник>ПрочиеНематериальныеАктивы <Значение> <Код>7 <Наименование>ДеловаяРепутация --> ДеловаяРепутацияОрганизации <Порядок>700 <Источник>ДеловаяРепутация <Приемник>ДеловаяРепутацияОрганизации <Значение> <Код>8 <Наименование>ПраваПоАвторскимДоговорам --> ПрочиеНематериальные <Порядок>800 <Источник>ПраваПоАвторскимДоговорам <Приемник>ПрочиеНематериальныеАктивы <Значение> <Код>9 <Наименование>ПраваПоПатентам --> ИсключительноеПравоНаИзобретен <Порядок>900 <Источник>ПраваПоПатентам <Приемник>ИсключительноеПравоНаИзобретение <Значение> <Код>10 <Наименование>ПраваНоуХау --> ИсключительноеПравоНаИзобретение <Порядок>1000 <Источник>ПраваНоуХау <Приемник>ИсключительноеПравоНаИзобретение <Значение> <Код>11 <Наименование>ПраваНаОбъектыПриродопользования --> ПрочиеНематер <Порядок>1100 <Источник>ПраваНаОбъектыПриродопользования <Приемник>ПрочиеНематериальныеАктивы <Правило> <Код>АмортизационныеГруппы <Наименование>ПеречислениеСсылка.АмортизационныеГруппы --> ПеречислениеСсылка.АмортизационныеГруппы <Порядок>600 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.АмортизационныеГруппы <Приемник>ПеречислениеСсылка.АмортизационныеГруппы <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ПерваяГруппа --> ПерваяГруппа <Порядок>100 <Источник>ПерваяГруппа <Приемник>ПерваяГруппа <Значение> <Код>2 <Наименование>ВтораяГруппа --> ВтораяГруппа <Порядок>200 <Источник>ВтораяГруппа <Приемник>ВтораяГруппа <Значение> <Код>3 <Наименование>ТретьяГруппа --> ТретьяГруппа <Порядок>300 <Источник>ТретьяГруппа <Приемник>ТретьяГруппа <Значение> <Код>4 <Наименование>ЧетвертаяГруппа --> ЧетвертаяГруппа <Порядок>400 <Источник>ЧетвертаяГруппа <Приемник>ЧетвертаяГруппа <Значение> <Код>5 <Наименование>ПятаяГруппа --> ПятаяГруппа <Порядок>500 <Источник>ПятаяГруппа <Приемник>ПятаяГруппа <Значение> <Код>6 <Наименование>ШестаяГруппа --> ШестаяГруппа <Порядок>600 <Источник>ШестаяГруппа <Приемник>ШестаяГруппа <Значение> <Код>7 <Наименование>СедьмаяГруппа --> СедьмаяГруппа <Порядок>700 <Источник>СедьмаяГруппа <Приемник>СедьмаяГруппа <Значение> <Код>8 <Наименование>ВосьмаяГруппа --> ВосьмаяГруппа <Порядок>800 <Источник>ВосьмаяГруппа <Приемник>ВосьмаяГруппа <Значение> <Код>9 <Наименование>ДевятаяГруппа --> ДевятаяГруппа <Порядок>900 <Источник>ДевятаяГруппа <Приемник>ДевятаяГруппа <Значение> <Код>10 <Наименование>ДесятаяГруппа --> ДесятаяГруппа <Порядок>1000 <Источник>ДесятаяГруппа <Приемник>ДесятаяГруппа <Значение> <Код>11 <Наименование>ОтдельнаяГруппа --> ОтдельнаяГруппа <Порядок>1100 <Источник>ОтдельнаяГруппа <Приемник>ОтдельнаяГруппа <Правило> <Код>СпособыПризнанияРасходов <Наименование>ПеречислениеСсылка.СпособыПризнанияРасходов --> ПеречислениеСсылка.СпособыПризнанияРасходов <Порядок>650 <Источник>ПеречислениеСсылка.СпособыПризнанияРасходов <Приемник>ПеречислениеСсылка.СпособыПризнанияРасходов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ВОсобомПорядке --> ВОсобомПорядке <Порядок>100 <Источник>ВОсобомПорядке <Приемник>ВОсобомПорядке <Значение> <Код>2 <Наименование>ПоКалендарнымДням --> ПоКалендарнымДням <Порядок>200 <Источник>ПоКалендарнымДням <Приемник>ПоКалендарнымДням <Значение> <Код>3 <Наименование>ПоМесяцам --> ПоМесяцам <Порядок>300 <Источник>ПоМесяцам <Приемник>ПоМесяцам <Правило> <Код>РасчетныеСчета <Наименование>СправочникСсылка.РасчетныеСчета --> СправочникСсылка.БанковскиеСчета <Порядок>700 <Источник>СправочникСсылка.РасчетныеСчета <Приемник>СправочникСсылка.БанковскиеСчета <Свойства> <Свойство> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Владелец --> Владелец <Порядок>300 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Владелец" Вид="Свойство"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true"> <Код>4 <Наименование>Номер --> НомерСчета <Порядок>400 <Источник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник.Номер, 20); <Свойство Поиск="true"> <Код>5 <Наименование>БанкОрганизации --> Банк <Порядок>500 <Источник Имя="БанкОрганизации" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Свойство> <Код>6 <Наименование>БанкДляРасчетов --> БанкДляРасчетов <Порядок>600 <Источник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Свойство> <Код>7 <Наименование>Корреспондент --> ТекстКорреспондента <Порядок>700 <Источник Имя="Корреспондент" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстКорреспондента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Назначение --> ТекстНазначения <Порядок>800 <Источник Имя="Назначение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстНазначения" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> ВидСчета <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСчета" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Расчетный"; <Свойство> <Код>10 <Наименование> --> ВалютаДенежныхСредств <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ГруппыОС <Наименование>ПеречислениеСсылка.ГруппыОС --> ПеречислениеСсылка.ГруппыОС <Порядок>750 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ГруппыОС <Приемник>ПеречислениеСсылка.ГруппыОС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Здания --> Здания <Порядок>100 <Источник>Здания <Приемник>Здания <Значение> <Код>2 <Наименование>Сооружения --> Сооружения <Порядок>200 <Источник>Сооружения <Приемник>Сооружения <Значение> <Код>3 <Наименование>ПередаточныеУстройства --> ПроизводственныйИХозяйс <Порядок>300 <Источник>ПередаточныеУстройства <Приемник>ПроизводственныйИХозяйственныйИнвентарь <Значение> <Код>4 <Наименование>МашиныИОборудование --> МашиныИОборудование <Порядок>400 <Источник>МашиныИОборудование <Приемник>МашиныИОборудование <Значение> <Код>5 <Наименование>ТранспортныеСредства --> ТранспортныеСредства <Порядок>500 <Источник>ТранспортныеСредства <Приемник>ТранспортныеСредства <Значение> <Код>6 <Наименование>Инструмент --> ПроизводственныйИХозяйственныйИнвен <Порядок>600 <Источник>Инструмент <Приемник>ПроизводственныйИХозяйственныйИнвентарь <Значение> <Код>7 <Наименование>Инвентарь --> ПроизводственныйИХозяйственныйИнвент <Порядок>700 <Источник>Инвентарь <Приемник>ПроизводственныйИХозяйственныйИнвентарь <Значение> <Код>8 <Наименование>РабочийСкот --> РабочийСкот <Порядок>800 <Источник>РабочийСкот <Приемник>РабочийСкот <Значение> <Код>9 <Наименование>ПродуктивныйСкот --> ПродуктивныйСкот <Порядок>900 <Источник>ПродуктивныйСкот <Приемник>ПродуктивныйСкот <Значение> <Код>10 <Наименование>МноголетниеНасаждения --> МноголетниеНасаждения <Порядок>1000 <Источник>МноголетниеНасаждения <Приемник>МноголетниеНасаждения <Значение> <Код>11 <Наименование>КапитальныеЗатратыПоУлучшениюЗемель --> ДругиеВиды <Порядок>1100 <Источник>КапитальныеЗатратыПоУлучшениюЗемель <Приемник>ДругиеВидыОсновныхСредств <Значение> <Код>12 <Наименование>ЗемельныеУчастки --> ЗемельныеУчастки <Порядок>1200 <Источник>ЗемельныеУчастки <Приемник>ЗемельныеУчастки <Значение> <Код>13 <Наименование>ОбъектыПриродопользования --> ОбъектыПриродопользо <Порядок>1300 <Источник>ОбъектыПриродопользования <Приемник>ОбъектыПриродопользования <Значение> <Код>14 <Наименование>Прочие --> ДругиеВидыОсновныхСредств <Порядок>1400 <Источник>Прочие <Приемник>ДругиеВидыОсновныхСредств <Правило> <Код>ЕдиныеНормыАмортизационныхОтчисленийОсновныхФондов <Наименование>СправочникСсылка.КлассификаторЕН --> СправочникСсылка.ЕдиныеНормыАмортизационныхОтчисленийОсновныхФо <Порядок>800 <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Источник>СправочникСсылка.КлассификаторЕН <Приемник>СправочникСсылка.ЕдиныеНормыАмортизационныхОтчисленийОсновныхФондов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Число"/> <Приемник Имя="Код" Вид="Свойство" Тип="Число"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>НормаАморт --> НормаАмортизационныхОтчислений <Порядок>300 <Источник Имя="НормаАморт" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НормаАмортизационныхОтчислений" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>НормаАвто --> ПроцентОтСтоимостиМашины <Порядок>400 <Источник Имя="НормаАвто" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПроцентОтСтоимостиМашины" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>КлассификаторЕдиницИзмерения <Наименование>СправочникСсылка.ЕдиницыИзмерений --> СправочникСсылка.КлассификаторЕдиницИзмерения <Порядок>850 <Источник>СправочникСсылка.ЕдиницыИзмерений <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>300 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ТипыЦенНоменклатуры <Наименование>СправочникСсылка.ТипыЦен --> СправочникСсылка.ТипыЦенНоменклатуры <Порядок>900 <ПередВыгрузкой>Если Константа.ИспользоватьТипыЦен = Нет Тогда Отказ = 1; КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ТипыЦен <Приемник>СправочникСсылка.ТипыЦенНоменклатуры <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник.Наименование, 25); <Свойство Поиск="true"> <Код>3 <Наименование>Валюта --> ВалютаЦены <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаЦены" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.Валюта) = 1 Тогда Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>5 <Наименование>ЦенаВклНДС --> ЦенаВключаетНДС <Порядок>500 <Источник Имя="ЦенаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ПорядокОкругления <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОкругления" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядкиОкругления"/> <ПередВыгрузкой>Значение = "Окр0_01"; <Свойство> <Код>7 <Наименование> --> ОкруглятьВБольшуюСторону <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ОкруглятьВБольшуюСторону" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>800 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ВидыРезервов <Наименование>ПеречислениеСсылка.ВидыРезервов --> ПеречислениеСсылка.ВидыРезервов <Порядок>950 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВидыРезервов <Приемник>ПеречислениеСсылка.ВидыРезервов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ОплатаОтпусков --> НаПокрытиеИныхЗатрат <Порядок>100 <Источник>ОплатаОтпусков <Приемник>НаПокрытиеИныхЗатрат <Значение> <Код>2 <Наименование>ВыслугаЛет --> НаПокрытиеИныхЗатрат <Порядок>200 <Источник>ВыслугаЛет <Приемник>НаПокрытиеИныхЗатрат <Значение> <Код>3 <Наименование>РемонтОС --> НаПокрытиеИныхЗатрат <Порядок>300 <Источник>РемонтОС <Приемник>НаПокрытиеИныхЗатрат <Значение> <Код>4 <Наименование>СезонныеЗатраты --> НаПокрытиеИныхЗатрат <Порядок>400 <Источник>СезонныеЗатраты <Приемник>НаПокрытиеИныхЗатрат <Значение> <Код>5 <Наименование>ПриродоохранныеМероприятия --> НаПокрытиеИныхЗатра <Порядок>500 <Источник>ПриродоохранныеМероприятия <Приемник>НаПокрытиеИныхЗатрат <Значение> <Код>6 <Наименование>РемонтПредметовПроката --> НаПокрытиеИныхЗатрат <Порядок>600 <Источник>РемонтПредметовПроката <Приемник>НаПокрытиеИныхЗатрат <Значение> <Код>7 <Наименование>ГарантийныйРемонт --> НаПокрытиеИныхЗатрат <Порядок>700 <Источник>ГарантийныйРемонт <Приемник>НаПокрытиеИныхЗатрат <Значение> <Код>8 <Наименование>ПрочиеРезервы --> НаПокрытиеИныхЗатрат <Порядок>800 <Источник>ПрочиеРезервы <Приемник>НаПокрытиеИныхЗатрат <Правило> <Код>ПолФизическихЛиц <Наименование>ПеречислениеСсылка.Пол --> ПеречислениеСсылка.ПолФизическихЛиц <Порядок>1000 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.Пол <Приемник>ПеречислениеСсылка.ПолФизическихЛиц <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Мужской --> Мужской <Порядок>100 <Источник>Мужской <Приемник>Мужской <Значение> <Код>2 <Наименование>Женский --> Женский <Порядок>200 <Источник>Женский <Приемник>Женский <Правило> <Код>ДолжностиОрганизаций <Наименование> --> СправочникСсылка.ДолжностиОрганизаций <Порядок>1050 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>Строка <Приемник>СправочникСсылка.ДолжностиОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Источник, 100); <Значения/> <Правило> <Код>СпособыОтраженияЗарплатыВРеглУчете_Структура <Наименование>СправочникСсылка.Сотрудники --> СправочникСсылка.СпособыОтраженияЗарплатыВРеглУчете <Порядок>1100 <ПередВыгрузкой>КлючВыгружаемыхДанных = СокрП(Источник.Получить("СчетЗатрат")) + " / " + СокрП(Источник.Получить("Субконто1")) + " / " + СокрП(Источник.Получить("Субконто2")) + " / " + СокрП(Источник.Получить("Субконто3")); <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетДт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоДт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СпособыОтраженияЗарплатыВРеглУчете <Свойства> <Свойство Поиск="true"> <Код>10 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(СокрП(Источник.Получить("СчетЗатрат")) + " / " + СокрП(Источник.Получить("Субконто1")) + " / " + СокрП(Источник.Получить("Субконто2")) + " / " + СокрП(Источник.Получить("Субконто3")), 50); <Свойство> <Код>7 <Наименование> --> СчетДт <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = Источник.Получить("СчетЗатрат"); <Свойство> <Код>1 <Наименование> --> СубконтоДт1 <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт1" Вид="Реквизит"/> <ПередВыгрузкой>Значение = Источник.Получить("Субконто1"); Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.Получить("СчетЗатрат")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Получить("Субконто1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Получить("Субконто2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Получить("Субконто3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Получить("Субконто1")); ПриВыгрузкеСубконто(); <Свойство> <Код>2 <Наименование> --> СубконтоДт2 <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт2" Вид="Реквизит"/> <ПередВыгрузкой>Значение = Источник.Получить("Субконто2"); Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.Получить("СчетЗатрат")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Получить("Субконто1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Получить("Субконто2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Получить("Субконто3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Получить("Субконто2")); ПриВыгрузкеСубконто(); <Свойство> <Код>3 <Наименование> --> СубконтоДт3 <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт3" Вид="Реквизит"/> <ПередВыгрузкой>Значение = Источник.Получить("Субконто3"); Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.Получить("СчетЗатрат")); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Получить("Субконто1")); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Получить("Субконто2")); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Получить("Субконто3")); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Получить("Субконто3")); ПриВыгрузкеСубконто(); <Свойство> <Код>9 <Наименование> --> СчетКт <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Значение = СчетПоКоду("70"); <Свойство> <Код>4 <Наименование> --> СубконтоКт1 <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <ПередВыгрузкой>ТипПриемника = "СправочникСсылка.ФизическиеЛица"; Пусто = 1; <Свойство> <Код>5 <Наименование> --> СубконтоКт2 <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <ПередВыгрузкой>ТипПриемника = "ПеречислениеСсылка.ВидыНачисленийОплатыТрудаПоСт255НК"; Значение = "пп1ст255"; <Значения/> <Правило> <Код>СпособыОтраженияЗарплатыВРеглУчете <Наименование>СправочникСсылка.Сотрудники --> СправочникСсылка.СпособыОтраженияЗарплатыВРеглУчете <Порядок>1150 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", ""); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетДт"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","СубконтоДт"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Сотрудники <Приемник>СправочникСсылка.СпособыОтраженияЗарплатыВРеглУчете <Свойства> <Свойство> <Код>5 <Наименование> --> СчетДт <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетДт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Счет = Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков); ВходящиеДанные.Установить("СчетДт", Счет); ИмяПКО = "Хозрасчетный"; <Свойство> <Код>2 <Наименование> --> СубконтоДт1 <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); ПриВыгрузкеСубконто(); ВходящиеДанные.Установить("СубконтоДт1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); <Свойство> <Код>3 <Наименование> --> СубконтоДт2 <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); ПриВыгрузкеСубконто(); ВходящиеДанные.Установить("СубконтоДт2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); <Свойство> <Код>4 <Наименование> --> СубконтоДт3 <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); ПриВыгрузкеСубконто(); ВходящиеДанные.Установить("СубконтоДт3", Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)); <Свойство Поиск="true"> <НеЗамещать>true <Код>6 <Наименование> --> Наименование <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(СокрП(Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто1.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто2.Получить(Параметры.ДатаВводаОстатков)) + " / " + СокрП(Источник.Субконто3.Получить(Параметры.ДатаВводаОстатков)), 50); <Свойство> <Код>7 <Наименование> --> СчетКт <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = "70"; <Свойство> <Код>8 <Наименование> --> СубконтоКт1 <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <ПередВыгрузкой>ТипПриемника = "СправочникСсылка.ФизическиеЛица"; Пусто = 1; <Свойство> <Код>11 <Наименование> --> СубконтоКт2 <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <ПередВыгрузкой>ТипПриемника = "ПеречислениеСсылка.ВидыНачисленийОплатыТрудаПоСт255НК"; Значение = "пп1ст255"; <Значения/> <Правило> <Код>ДокументыУдостоверяющиеЛичность <Наименование>СправочникСсылка.ДокументыУдостоверяющиеЛичность --> СправочникСсылка.ДокументыУдостоверяющиеЛичност <Порядок>1200 <Источник>СправочникСсылка.ДокументыУдостоверяющиеЛичность <Приемник>СправочникСсылка.ДокументыУдостоверяющиеЛичность <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>КодНДФЛ --> КодИМНС <Порядок>200 <Источник Имя="КодНДФЛ" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодИМНС" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>3 <Наименование>КодСЗВ --> КодПФР <Порядок>300 <Источник Имя="КодСЗВ" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПФР" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>БазыРаспределенияКосвенныхРасходовПоВидамДеятельно <Наименование> --> ПеречислениеСсылка.БазыРаспределенияКосвенныхРасходовПоВидамДеятельности <Порядок>1250 <Источник>ПеречислениеСсылка.БазыРаспределенияКосвенныхРасходовПоВидамДеятельности <Приемник>ПеречислениеСсылка.БазыРаспределенияКосвенныхРасходовПоВидамДеятельности <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ДоходыОтРеализации --> ДоходыОтРеализации <Порядок>100 <Источник>ДоходыОтРеализации <Приемник>ДоходыОтРеализации <Значение> <Код>2 <Наименование>ДоходыОтРеализацииИВнереализационные --> ДоходыОтР <Порядок>200 <Источник>ДоходыОтРеализацииИВнереализационные <Приемник>ДоходыОтРеализацииИВнереализационные <Правило> <Код>ОКСМ <Наименование>СправочникСсылка.ОКСМ --> СправочникСсылка.КлассификаторСтранМира <Порядок>1300 <Источник>СправочникСсылка.ОКСМ <Приемник>СправочникСсылка.КлассификаторСтранМира <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> НаименованиеПолное <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ВычетыНаРебенкаИнвалида <Наименование>Число --> СправочникСсылка.ВычетыНДФЛ <Порядок>1350 <ПередВыгрузкой>Если (Источник <> 1200) и (Источник <> 2400) и (Источник <> 2000) и (Источник <> 4000)Тогда Отказ = 1; КонецЕсли; <Источник>Число <Приемник>СправочникСсылка.ВычетыНДФЛ <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> КодДляОтчетности2008 <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="КодДляОтчетности2008" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ?((Источник = 1200) или (Источник = 2000), "106", "107"); <Значения/> <Правило> <Код>ВычетыНаРебенка <Наименование>Число --> СправочникСсылка.ВычетыНДФЛ <Порядок>1400 <Источник>СправочникСсылка.ВидыВычетов <Приемник>СправочникСсылка.ВычетыНДФЛ <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>КодДляОтчетности2009 --> КодДляОтчетности2009 <Порядок>100 <Источник Имя="КодДляОтчетности2009" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодДляОтчетности2009" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ВычетыНДФЛЛичный <Наименование>Число --> СправочникСсылка.ВычетыНДФЛ <Порядок>1450 <Источник>СправочникСсылка.ВидыВычетов <Приемник>СправочникСсылка.ВычетыНДФЛ <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>КодДляОтчетности2009 --> КодДляОтчетности2009 <Порядок>50 <Источник Имя="КодДляОтчетности2009" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодДляОтчетности2009" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ВычетыНДФЛ <Наименование>ПеречислениеСсылка.ТипыВычетов --> СправочникСсылка.ВычетыНДФЛ <Порядок>1500 <ПередВыгрузкой>Если Источник = Перечисление.ТипыВычетов.БезВычетов Тогда Отказ = 1; КонецЕсли; Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ТипыВычетов <Приемник>СправочникСсылка.ВычетыНДФЛ <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Значения> <Значение> <Код>1 <Наименование>Обычный --> 103 <Порядок>100 <Источник>Обычный <Приемник>Код103 <Значение> <Код>2 <Наименование>Льготный1 --> 104 <Порядок>200 <Источник>Льготный1 <Приемник>Код104 <Значение> <Код>3 <Наименование>Льготный2 --> 105 <Порядок>300 <Источник>Льготный2 <Приемник>Код105 <Правило> <Код>ПеречислениеВнереализационныеДоходы <Наименование>ПеречислениеСсылка.ВнереализационныеДоходы --> ПеречислениеСсылка.ВидыПрочихДоходовИРасходов <Порядок>1550 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВнереализационныеДоходы <Приемник>ПеречислениеСсылка.ВидыПрочихДоходовИРасходов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>СдачаИмуществаВАренду --> ДоходыРасходыСвязанныеСо <Порядок>100 <Источник>СдачаИмуществаВАренду <Приемник>ДоходыРасходыСвязанныеСоСдачейИмуществаВАренду <Значение> <Код>2 <Наименование>ПредоставлениеПравНаРезультатыИнтеллектуальнойДеят <Порядок>200 <Источник>ПредоставлениеПравНаРезультатыИнтеллектуальнойДеятельности <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>3 <Наименование>ДолевоеУчастиеВРоссийскихОрганизациях --> ДоходыРа <Порядок>300 <Источник>ДолевоеУчастиеВРоссийскихОрганизациях <Приемник>ДоходыРасходыСвязанныеСУчастиемВДругихОрганизациях <Значение> <Код>4 <Наименование>ДолевоеУчастиеВИностранныхОрганизациях --> ДоходыР <Порядок>400 <Источник>ДолевоеУчастиеВИностранныхОрганизациях <Приемник>ДоходыРасходыСвязанныеСУчастиемВДругихОрганизациях <Значение> <Код>5 <Наименование>ПроцентыПоДоговорамЗайма --> ПроцентыКПолучениюУпл <Порядок>500 <Источник>ПроцентыПоДоговорамЗайма <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>6 <Наименование>Штрафы --> ШтрафыПениНеустойкиКПолучениюУплате <Порядок>600 <Источник>Штрафы <Приемник>ШтрафыПениНеустойкиКПолучениюУплате <Значение> <Код>7 <Наименование>БезвозмездноПолученноеИмущество --> ДоходыРасходыС <Порядок>700 <Источник>БезвозмездноПолученноеИмущество <Приемник>ДоходыРасходыСвязанныеСБезвозмезднымПолучениемИмущества <Значение> <Код>8 <Наименование>ДоходыПрошлыхЛет --> ПрибыльУбытокПрошлыхЛет <Порядок>800 <Источник>ДоходыПрошлыхЛет <Приемник>ПрибыльУбытокПрошлыхЛет <Значение> <Код>9 <Наименование>КурсовыеРазницы --> КурсовыеРазницы <Порядок>900 <Источник>КурсовыеРазницы <Приемник>КурсовыеРазницы <Значение> <Код>10 <Наименование>СуммовыеРазницы --> КурсовыеРазницы <Порядок>1000 <Источник>СуммовыеРазницы <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>11 <Наименование>КупляПродажаИностраннойВалюты --> ПрочиеВнереализа <Порядок>1100 <Источник>КупляПродажаИностраннойВалюты <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>12 <Наименование>ВосстановлениеРезервов --> ОтчисленияВОценочныеРез <Порядок>1200 <Источник>ВосстановлениеРезервов <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>13 <Наименование>ОперацииСФинансовымиИнструментами --> ДоходыРасход <Порядок>1300 <Источник>ОперацииСФинансовымиИнструментами <Приемник>ДоходыРасходыПоОперациямСФинансовымиИнструментамиСрочныхСделокОР <Значение> <Код>14 <Наименование>ОперацииСФинансовымиИнструментамиНеОбращающимися - <Порядок>1400 <Источник>ОперацииСФинансовымиИнструментамиНеОбращающимися <Приемник>ДоходыРасходыПоОперациямСФинансовымиИнструментамиСрочныхСделок <Значение> <Код>15 <Наименование>ПроцентыПоГосударственнымЦеннымБумагам --> Процент <Порядок>1500 <Источник>ПроцентыПоГосударственнымЦеннымБумагам <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>16 <Наименование>ПроцентыПоГосударственнымЦеннымБумагамПоСтавке0 -- <Порядок>1600 <Источник>ПроцентыПоГосударственнымЦеннымБумагамПоСтавке0 <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>17 <Наименование>ПрочиеВнереализационныеДоходы --> ПрочиеВнереализа <Порядок>1700 <Источник>ПрочиеВнереализационныеДоходы <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>18 <Наименование>НеПринимаемые --> ДоходыРасходыНеУчитываемыеВЦелях <Порядок>1800 <Источник>НеПринимаемые <Приемник>ПрочиеВнереализационныеДоходыРасходы <Правило> <Код>ГруппаНоменклатуры <Наименование>Группа номенклатуры <Порядок>1600 <ПередВыгрузкой>КлючВыгружаемыхДанных = "АвтоматическиСозданнаяГруппа_" + ВходящиеДанные.Получить("Наименование"); <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование> --> Родитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Значение = ПолучитьПустоеЗначение(); <Свойство Поиск="true" Обязательное="true"> <Код>2 <Наименование> --> ЭтоГруппа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ПеречислениеВнереализационныеРасходы <Наименование>ПеречислениеСсылка.ВнереализационныеРасходы --> СправочникСсылка.ПрочиеДоходыИРасходы <Порядок>1650 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВнереализационныеРасходы <Приемник>ПеречислениеСсылка.ВидыПрочихДоходовИРасходов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>СодержаниеИмуществаПереданногоВАренду --> ДоходыРа <Порядок>100 <Источник>СодержаниеИмуществаПереданногоВАренду <Приемник>ДоходыРасходыСвязанныеСоСдачейИмуществаВАренду <Значение> <Код>2 <Наименование>ПроцентыПоДолговымОбязательствам --> ПроцентыКПолу <Порядок>200 <Источник>ПроцентыПоДолговымОбязательствам <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>3 <Наименование>УслугиБанков --> РасходыНаУслугиБанков <Порядок>300 <Источник>УслугиБанков <Приемник>РасходыНаУслугиБанков <Значение> <Код>4 <Наименование>Штрафы --> ШтрафыПениНеустойкиКПолучениюУплате <Порядок>400 <Источник>Штрафы <Приемник>ШтрафыПениНеустойкиКПолучениюУплате <Значение> <Код>5 <Наименование>УбыткиПрошлыхЛет --> ПрибыльУбытокПрошлыхЛет <Порядок>500 <Источник>УбыткиПрошлыхЛет <Приемник>ПрибыльУбытокПрошлыхЛет <Значение> <Код>6 <Наименование>ДолгиНереальныеКВзысканию --> ПрочиеВнереализацион <Порядок>600 <Источник>ДолгиНереальныеКВзысканию <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>7 <Наименование>КурсовыеРазницы --> КурсовыеРазницы <Порядок>700 <Источник>КурсовыеРазницы <Приемник>КурсовыеРазницы <Значение> <Код>8 <Наименование>СуммовыеРазницы --> ПрочиеВнереализационныеДоходыР <Порядок>800 <Источник>СуммовыеРазницы <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>9 <Наименование>КупляПродажаИностраннойВалюты --> ПрочиеВнереализа <Порядок>900 <Источник>КупляПродажаИностраннойВалюты <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>10 <Наименование>ПереоценкаИмущества --> РасходыОтСниженияСтоимости <Порядок>1000 <Источник>ПереоценкаИмущества <Приемник>РасходыОтСниженияСтоимостиАктивов <Значение> <Код>11 <Наименование>ФормированиеРезервовПоСомнительнымДолгам --> Отчис <Порядок>1100 <Источник>ФормированиеРезервовПоСомнительнымДолгам <Приемник>ОтчисленияВОценочныеРезервы <Значение> <Код>12 <Наименование>УбытокОтУступкиПраваТребования --> ДоходыРасходыСв <Порядок>1200 <Источник>УбытокОтУступкиПраваТребования <Приемник>ДоходыРасходыСвязанныеСРеализациейПраваТребованияДоНаступленияСрокаПлатежа <Значение> <Код>13 <Наименование>НДС_ПоСписаннойКредиторскойЗадолженности --> НДСПо <Порядок>1300 <Источник>НДС_ПоСписаннойКредиторскойЗадолженности <Приемник>НДСПоСписаннойКредиторскойЗадолженности <Значение> <Код>14 <Наименование>ОперацииСФинансовымиИнструментами --> ДоходыРасход <Порядок>1400 <Источник>ОперацииСФинансовымиИнструментами <Приемник>ДоходыРасходыПоОперациямСФинансовымиИнструментамиСрочныхСделокОР <Значение> <Код>15 <Наименование>ОперацииСФинансовымиИнструментамиНеОбращающимися - <Порядок>1500 <Источник>ОперацииСФинансовымиИнструментамиНеОбращающимися <Приемник>ДоходыРасходыПоОперациямСФинансовымиИнструментамиСрочныхСделок <Значение> <Код>16 <Наименование>ОтрицательнаяРазницаОтПереоценкиИмущества --> Расх <Порядок>1600 <Источник>ОтрицательнаяРазницаОтПереоценкиИмущества <Приемник>РасходыОтСниженияСтоимостиАктивов <Значение> <Код>17 <Наименование>ПрочиеВнереализационныеРасходы --> ПрочиеВнереализ <Порядок>1700 <Источник>ПрочиеВнереализационныеРасходы <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>18 <Наименование>НеПринимаемые --> ДоходыРасходыНеУчитываемыеВЦелях <Порядок>1800 <Источник>НеПринимаемые <Приемник>ПрочиеВнереализационныеДоходыРасходы <Правило> <Код>ВидыПрочихДоходовИРасходов <Наименование>ПеречислениеСсылка.ВидыПрочихДоходовИРасходов --> ПеречислениеСсылка.ВидыПрочихДоходовИРасходов <Порядок>1700 <ПередВыгрузкой>Источник = Источник.Идентификатор(); <Источник>ПеречислениеСсылка.ВидыПрочихДоходовИРасходов <Приемник>ПеречислениеСсылка.ВидыПрочихДоходовИРасходов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>АктивыПереданныеВПользование --> ПрочиеВнереализац <Порядок>100 <Источник>АктивыПереданныеВПользование <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>2 <Наименование>ПредоставленныеПраваПоНМА --> ПрочиеВнереализацион <Порядок>200 <Источник>ПредоставленныеПраваПоНМА <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>3 <Наименование>УчастиеВУставныхКапиталах --> ДоходыРасходыСвязанн <Порядок>300 <Источник>УчастиеВУставныхКапиталах <Приемник>ДоходыРасходыСвязанныеСУчастиемВДругихОрганизациях <Значение> <Код>4 <Наименование>УчастиеВУставныхКапиталахИностранныхОрганизаций -- <Порядок>400 <Источник>УчастиеВУставныхКапиталахИностранныхОрганизаций <Приемник>ДоходыРасходыСвязанныеСУчастиемВДругихОрганизациях <Значение> <Код>5 <Наименование>ПрибыльПоСовместнойДеятельности --> ДоходыРасходыС <Порядок>500 <Источник>ПрибыльПоСовместнойДеятельности <Приемник>ДоходыРасходыСвязанныеСУчастиемВДругихОрганизациях <Значение> <Код>6 <Наименование>ВыбытиеОС --> ДоходыРасходыСвязанныеСРеализациейОс <Порядок>600 <Источник>ВыбытиеОС <Приемник>ДоходыРасходыСвязанныеСРеализациейОсновныхСредств <Значение> <Код>7 <Наименование>ВыбытиеНМА --> ДоходыРасходыСвязанныеСРеализациейН <Порядок>700 <Источник>ВыбытиеНМА <Приемник>ДоходыРасходыСвязанныеСРеализациейНематериальныхАктивов <Значение> <Код>8 <Наименование>ВыбытиеАктивов --> ДоходыРасходыСвязанныеСРеализац <Порядок>800 <Источник>ВыбытиеАктивов <Приемник>ДоходыРасходыСвязанныеСРеализациейПрочегоИмущества <Значение> <Код>9 <Наименование>ПроцентыКПолучению --> ПроцентыКПолучениюУплате <Порядок>900 <Источник>ПроцентыКПолучению <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>10 <Наименование>ПроцентыКУплате --> ПроцентыКПолучениюУплате <Порядок>1000 <Источник>ПроцентыКУплате <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>11 <Наименование>УслугиБанков --> РасходыНаУслугиБанков <Порядок>1100 <Источник>УслугиБанков <Приемник>РасходыНаУслугиБанков <Значение> <Код>12 <Наименование>КупляПродажаИностраннойВалюты --> ПрочиеВнереализа <Порядок>1200 <Источник>КупляПродажаИностраннойВалюты <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>13 <Наименование>ОсуществлениеФинансовыхУслуг --> ДоходыРасходыСвяз <Порядок>1300 <Источник>ОсуществлениеФинансовыхУслуг <Приемник>ДоходыРасходыСвязанныеСРеализациейПраваТребованияКакОказанияФинансовыхУслуг <Значение> <Код>14 <Наименование>УступкиПраваТребования --> ДоходыРасходыСвязанныеС <Порядок>1400 <Источник>УступкиПраваТребования <Приемник>ДоходыРасходыСвязанныеСРеализациейПраваТребованияДоНаступленияСрокаПлатежа <Значение> <Код>15 <Наименование>ВосстановлениеРезервов --> ПрочиеВнереализационные <Порядок>1500 <Источник>ВосстановлениеРезервов <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>16 <Наименование>РезервыСомнительныхДолгов --> ПрочиеВнереализацион <Порядок>1600 <Источник>РезервыСомнительныхДолгов <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>17 <Наименование>ОперацииСФинансовымиИнструментами --> ДоходыРасход <Порядок>1700 <Источник>ОперацииСФинансовымиИнструментами <Приемник>ДоходыРасходыПоОперациямСФинансовымиИнструментамиСрочныхСделокОР <Значение> <Код>18 <Наименование>ПроцентыПоГосударственнымЦеннымБумагам --> Процент <Порядок>1800 <Источник>ПроцентыПоГосударственнымЦеннымБумагам <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>19 <Наименование>ПроцентыПоГосударственнымЦеннымБумагамПоСтавке0 -- <Порядок>1900 <Источник>ПроцентыПоГосударственнымЦеннымБумагамПоСтавке0 <Приемник>ПроцентыКПолучениюУплате <Значение> <Код>20 <Наименование>ПрочиеОперационныеДоходыРасходы --> ПрочиеОперацио <Порядок>2000 <Источник>ПрочиеОперационныеДоходыРасходы <Приемник>ПрочиеОперационныеДоходыРасходы <Значение> <Код>21 <Наименование>КурсовыеРазницы --> КурсовыеРазницы <Порядок>2100 <Источник>КурсовыеРазницы <Приемник>КурсовыеРазницы <Значение> <Код>22 <Наименование>ПрочиеВнереализационныеДоходыРасходы --> ПрочиеВне <Порядок>2200 <Источник>ПрочиеВнереализационныеДоходыРасходы <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>23 <Наименование>ШтрафыПоДоговорам --> ШтрафыПениНеустойкиКПолучени <Порядок>2300 <Источник>ШтрафыПоДоговорам <Приемник>ШтрафыПениНеустойкиКПолучениюУплате <Значение> <Код>24 <Наименование>АктивыПолученныеБезвозмездно --> ДоходыРасходыСвяз <Порядок>2400 <Источник>АктивыПолученныеБезвозмездно <Приемник>ДоходыРасходыСвязанныеСБезвозмезднымПолучениемИмущества <Значение> <Код>25 <Наименование>ВозмещениеУбытковКПолучению --> ВозмещениеУбытковК <Порядок>2500 <Источник>ВозмещениеУбытковКПолучению <Приемник>ВозмещениеУбытковКПолучениюУплате <Значение> <Код>26 <Наименование>ВозмещениеУбытковКУплате --> ВозмещениеУбытковКПол <Порядок>2600 <Источник>ВозмещениеУбытковКУплате <Приемник>ВозмещениеУбытковКПолучениюУплате <Значение> <Код>27 <Наименование>ПрибыльУбыткиПрошлыхЛет --> ПрибыльУбытокПрошлыхЛе <Порядок>2700 <Источник>ПрибыльУбыткиПрошлыхЛет <Приемник>ПрибыльУбытокПрошлыхЛет <Значение> <Код>28 <Наименование>СписаннаяКредиторскаяЗадолженность --> СписаниеДеб <Порядок>2800 <Источник>СписаннаяКредиторскаяЗадолженность <Приемник>СписаниеДебиторскойКредиторскойЗадолженности <Значение> <Код>29 <Наименование>СписаннаяДебиторскаяЗадолженность --> СписаниеДеби <Порядок>2900 <Источник>СписаннаяДебиторскаяЗадолженность <Приемник>СписаниеДебиторскойКредиторскойЗадолженности <Значение> <Код>30 <Наименование>ОтрицательнаяРазницаОтПереоценкиИмущества --> Расх <Порядок>3000 <Источник>ОтрицательнаяРазницаОтПереоценкиИмущества <Приемник>РасходыОтСниженияСтоимостиАктивов <Значение> <Код>31 <Наименование>НеПринимаемыеДляЦелейНалогообложения --> ДоходыРас <Порядок>3100 <Источник>НеПринимаемыеДляЦелейНалогообложения <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>32 <Наименование>ДооценкаУценкаАктивов --> ПрочиеВнереализационныеД <Порядок>3200 <Источник>ДооценкаУценкаАктивов <Приемник>ПрочиеВнереализационныеДоходыРасходы <Значение> <Код>33 <Наименование>ПрочиеКосвенныеРасходы --> ПрочиеКосвенныеРасходы <Порядок>3300 <Источник>ПрочиеКосвенныеРасходы <Приемник>ПрочиеКосвенныеРасходы <Правило> <Код>СпособыПоступленияОС <Наименование>ПеречислениеСсылка.СпособыПоступленияОС --> ПеречислениеСсылка.СпособыПоступленияАктивов <Порядок>1750 <Источник>ПеречислениеСсылка.СпособыПоступленияОС <Приемник>ПеречислениеСсылка.СпособыПоступленияАктивов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ПриобретениеЗаПлату --> ПриобретениеЗаПлату <Порядок>100 <Источник>ПриобретениеЗаПлату <Приемник>ПриобретениеЗаПлату <Значение> <Код>2 <Наименование>ВкладВУставныйКапитал --> ВкладВУставныйКапитал <Порядок>200 <Источник>ВкладВУставныйКапитал <Приемник>ВкладВУставныйКапитал <Значение> <Код>3 <Наименование>ПоДоговоруМены --> ВОбменНаДругоеИмущество <Порядок>300 <Источник>ПоДоговоруМены <Приемник>ВОбменНаДругоеИмущество <Значение> <Код>4 <Наименование>БезвозмездноеПоступление --> БезвозмездноеПоступле <Порядок>400 <Источник>БезвозмездноеПоступление <Приемник>БезвозмездноеПоступление <Значение> <Код>5 <Наименование>ПоДоговоруЛизинга --> ПоДоговоруАренды <Порядок>500 <Источник>ПоДоговоруЛизинга <Приемник>ПоДоговоруАренды <Значение> <Код>6 <Наименование>Иной --> Иное <Порядок>600 <Источник>Иной <Приемник>Иное <Значение> <Код>7 <Наименование>Строительство --> Строительство <Порядок>700 <Источник>Строительство <Приемник>Строительство <Правило> <Код>СпособыПоступленияНМА <Наименование>ПеречислениеСсылка.СпособыПоступленияНМА --> ПеречислениеСсылка.СпособыПоступленияАктивов <Порядок>1800 <Источник>ПеречислениеСсылка.СпособыПоступленияНМА <Приемник>ПеречислениеСсылка.СпособыПоступленияАктивов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ПриобретениеЗаПлату --> ПриобретениеЗаПлату <Порядок>100 <Источник>ПриобретениеЗаПлату <Приемник>ПриобретениеЗаПлату <Значение> <Код>2 <Наименование>ВкладВУставныйКапитал --> ВкладВУставныйКапитал <Порядок>200 <Источник>ВкладВУставныйКапитал <Приемник>ВкладВУставныйКапитал <Значение> <Код>3 <Наименование>ПоДоговоруМены --> ВОбменНаДругоеИмущество <Порядок>300 <Источник>ПоДоговоруМены <Приемник>ВОбменНаДругоеИмущество <Значение> <Код>4 <Наименование>БезвозмездноеПоступление --> БезвозмездноеПоступле <Порядок>400 <Источник>БезвозмездноеПоступление <Приемник>БезвозмездноеПоступление <Значение> <Код>5 <Наименование>Иной --> Иное <Порядок>500 <Источник>Иной <Приемник>Иное <Правило> <Код>ПараметрыВыработкиОС <Наименование> --> СправочникСсылка.ПараметрыВыработкиОС <Порядок>1850 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.ПараметрыВыработкиОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Значения/> <Правило> <Код>СобытияОС <Наименование>: <Порядок>1900 <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод() КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ПеречислениеСсылка.СостоянияОС <Приемник>СправочникСсылка.СобытияОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> ВидСобытияОС <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСобытияОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСобытийОС"/> <КодПравилаКонвертации>ВидыСобытийОС <ПередВыгрузкой>Значение = Источник; <Свойство Поиск="true"> <Код>2 <Наименование> --> Комментарий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "# Перенесено из 1С Бухгалтерия 7.7#"; <Свойство Поиск="true"> <Код>3 <Наименование> --> Наименование <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ОСПеремещение <Наименование> --> СправочникСсылка.СобытияОС <Порядок>1950 <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод() КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СобытияОС <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Перемещение ОС"; <Свойство Поиск="true"> <Код>1 <Наименование> --> ВидСобытияОС <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСобытияОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСобытийОС"/> <ПередВыгрузкой>Значение = "ВнутреннееПеремещение"; <Значения/> <Правило> <Код>ОСМодернизация <Наименование> --> СправочникСсылка.СобытияОС <Порядок>2000 <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод() КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СобытияОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Модернизировано"; <Свойство Поиск="true"> <Код>2 <Наименование> --> ВидОперацииОС <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСобытияОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСобытийОС"/> <ПередВыгрузкой>Значение = "Модернизация"; <Значения/> <Правило> <Код>ОСВводИПринятиеКУчету <Наименование> --> СправочникСсылка.СобытияОС <Порядок>2050 <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод() КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СобытияОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Принятие к учету и ввод в эксплуатацию"; <Свойство Поиск="true"> <Код>2 <Наименование> --> ВидОперацииОС <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСобытияОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСобытийОС"/> <ПередВыгрузкой>Значение = "ПринятиеКУчетуСВводомВЭксплуатацию"; <Значения/> <Правило> <Код>ОСВыбытие <Наименование>: <Порядок>2100 <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод() КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СобытияОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Выбыло"; <Свойство Поиск="true"> <Код>2 <Наименование> --> ВидСобытияОС <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСобытияОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСобытийОС"/> <ПередВыгрузкой>Значение = "Списание"; <Значения/> <Правило> <Код>ОСПодготовкаКПередаче <Наименование>: <Порядок>2150 <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод() КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СобытияОС <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Подготовка к передаче ОС"; <Свойство Поиск="true"> <Код>1 <Наименование> --> ВидСобытияОС <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСобытияОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСобытийОС"/> <ПередВыгрузкой>Значение = "ПодготовкаКПередаче"; <Значения/> <Правило> <Код>ОСПередача <Наименование>: <Порядок>2200 <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод() КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СобытияОС <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Передача ОС"; <Свойство Поиск="true"> <Код>1 <Наименование> --> ВидСобытияОС <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСобытияОС" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСобытийОС"/> <ПередВыгрузкой>Значение = "Передача"; <Значения/> <Правило> <Код>СпособыОтраженияРасходовПоАмортизации <Наименование>СправочникСсылка.ОсновныеСредства --> СправочникСсылка.СпособыОтраженияРасходовПоАмортизации <Порядок>2250 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные) = 1 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ДатаЗначения = ?(ПустоеЗначение(ВходящиеДанные.Получить("Дата"))=0,ВходящиеДанные.Получить("Дата"),Параметры.ДатаВводаОстатков); Если ТипЗначенияСтр(Источник) = "Справочник" Тогда Счет = Источник.СчетЗатрат.Получить(ДатаЗначения); ВидРасхода = Источник.ВидРасхода.Получить(ДатаЗначения); Если Источник.Вид() = "ОсновныеСредства" Тогда ВидАктива = " ОС"; ИначеЕсли Источник.Вид() = "НематериальныеАктивы" Тогда ВидАктива = " НМА"; Иначе ВидАктива = ""; КонецЕсли; Если ПустоеЗначение(ВходящиеДанные.Получить("СтатьяЗатрат"))=1 Тогда ВидРасходовНУ = ?(ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, "НеУчитываемыеВЦеляхНалогообложения","Амортизация"); НаименованиеРасхода = ?(ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые,"Амортизация"+ВидАктива+", не принимаемая в НУ", "Амортизация"+ВидАктива); ПринятиеКналоговомуУчету = ?(ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые, 0,1); ВидПрочихДоходовИРасходов = "ПрочиеВнереализационныеДоходыРасходы"; СтатьяЗатрат = СоздатьОбъект("СписокЗначений"); СтатьяЗатрат.Установить("ВидРасходовНУ",ВидРасходовНУ); СтатьяЗатрат.Установить("ПринятиеКНалоговомуУчету",ПринятиеКНалоговомуУчету); СтатьяЗатрат.Установить("Наименование",НаименованиеРасхода); СтатьяЗатрат.Установить("ВидПрочихДоходовИРасходов",ВидПрочихДоходовИРасходов); Если (Счет = СчетПоКоду("26")) или (Счет = СчетПоКоду("44.1.3")) Тогда СтатьяЗатрат.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ВидДеятельностиОпределяетсяПоДоходам"); ИначеЕсли Счет = СчетПоКоду("44.1.2") Тогда СтатьяЗатрат.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьОблагаемаяЕНВД"); Иначе СтатьяЗатрат.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"); КонецЕсли; ВходящиеДанные.Установить("СтатьяЗатрат",СтатьяЗатрат); КонецЕсли; ВходящиеДанные.Установить("СчетЗатрат",Счет); ВходящиеДанные.Установить("Субконто1",Источник.Субконто1.Получить(ДатаЗначения)); ВходящиеДанные.Установить("Субконто2",Источник.Субконто2.Получить(ДатаЗначения)); ВходящиеДанные.Установить("Субконто3",Источник.Субконто3.Получить(ДатаЗначения)); КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(Источник)+ДатаЗначения; Если (ПустоеЗначение(Счет) = 1) Тогда Отказ = 1; КонецЕсли; ИначеЕсли ТипЗначенияСтр(Источник) = "Документ" Тогда Если (Метаданные.Документ(Источник.Вид()).РеквизитШапки("СчетЗатрат").Выбран() = 0) или (Метаданные.Документ(Источник.Вид()).РеквизитШапки("Субконто1").Выбран() = 0) или (Метаданные.Документ(Источник.Вид()).РеквизитШапки("Субконто2").Выбран() = 0) или (Метаданные.Документ(Источник.Вид()).РеквизитШапки("Субконто3").Выбран() = 0) Тогда Отказ = 1; Иначе Счет = Источник.СчетЗатрат; КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(Источник)+ВходящиеДанные.Получить("КлючДанных"); ВходящиеДанные.Установить("СчетЗатрат",Счет); ВходящиеДанные.Установить("Субконто1",Источник.Субконто1); ВходящиеДанные.Установить("Субконто2",Источник.Субконто2); ВходящиеДанные.Установить("Субконто3",Источник.Субконто3); КонецЕсли; Иначе Отказ = 1; КонецЕсли; Если Отказ <> 1 Тогда Наименование = СокрП(Счет); Для НомерСубконто = 1 по 3 Цикл ВидСубконто = Счет.ВидСубконто(НомерСубконто); Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) И (ПустоеЗначение(ВходящиеДанные.Получить("СтатьяЗатрат"))=0) Тогда Наименование = Наименование + " / " + СокрП(ВходящиеДанные.Получить("СтатьяЗатрат").Получить("Наименование")); ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) И (ПустоеЗначение(ВходящиеДанные.Получить("СтатьяЗатрат"))=0) Тогда Наименование = Наименование + " / " + СокрП(ВходящиеДанные.Получить("СтатьяЗатрат").Получить("Наименование")); Иначе Наименование = Наименование + " / " + СокрП(ВходящиеДанные.Получить("Субконто"+НомерСубконто)); КонецЕсли; КонецЦикла; ВходящиеДанные.Установить("Наименование",Наименование); КонецЕсли; <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", "Способы"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатрат"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","Субконто"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СпособыОтраженияРасходовПоАмортизации <Свойства> <Свойство Поиск="true"> <Код>14 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>16 <Наименование> --> Комментарий <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "БУ: "+ВходящиеДанные.Получить("Наименование"); <Свойство> <Код>17 <Наименование> --> Наименование <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Группа> <Код>3 <Наименование> --> Способы <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Способы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("СчетЗатрат","Счет.Основной"); КоллекцияОбъектов.НоваяКолонка("Субконто1"); КоллекцияОбъектов.НоваяКолонка("Субконто2"); КоллекцияОбъектов.НоваяКолонка("Субконто3"); КоллекцияОбъектов.НоваяКолонка("ИмяПКО1"); КоллекцияОбъектов.НоваяКолонка("ИмяПКО2"); КоллекцияОбъектов.НоваяКолонка("ИмяПКО3"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.СчетЗатрат = ВходящиеДанные.Получить("СчетЗатрат"); Для НомерСубконто = 1 по КоллекцияОбъектов.СчетЗатрат.КоличествоСубконто() Цикл ВидСубконто = КоллекцияОбъектов.СчетЗатрат.ВидСубконто(НомерСубконто); //если передана статья затрат во входящих данные - используем ее Если ((ВидСубконто = ВидыСубконто.СтатьиЗатратНаПроизводство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратНаСтроительство) или (ВидСубконто = ВидыСубконто.СтатьиЗатратОбслуживающихПроизводств) или (ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения) или (ВидСубконто = ВидыСубконто.СтатьиКоммерческихРасходов) или (ВидСубконто = ВидыСубконто.СтатьиОбщепроизводственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиОбщехозяйственныхЗатрат) или (ВидСубконто = ВидыСубконто.СтатьиРасходовНаПродажу) ) И (ПустоеЗначение(ВходящиеДанные.Получить("СтатьяЗатрат"))=0) Тогда КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.НомерСтроки,"Субконто"+НомерСубконто, ВходящиеДанные.Получить("СтатьяЗатрат")); КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.НомерСтроки,"ИмяПКО"+НомерСубконто, "СтатьиЗатрат_Предопределенные"); ИначеЕсли (ВидСубконто = ВидыСубконто.ПрочиеДоходыИРасходы) И (ПустоеЗначение(ВходящиеДанные.Получить("СтатьяЗатрат"))=0) Тогда КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.НомерСтроки,"Субконто"+НомерСубконто, ВходящиеДанные.Получить("СтатьяЗатрат")); КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.НомерСтроки,"ИмяПКО"+НомерСубконто, "ПрочиеДоходыИРасходы_Предопределенные"); Иначе КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.НомерСтроки,"Субконто"+НомерСубконто, ВходящиеДанные.Получить("Субконто"+НомерСубконто)); КонецЕсли; КонецЦикла; <Свойство> <Код>10 <Наименование> --> СчетЗатрат <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Счет = ОбъектКоллекции.СчетЗатрат; Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); ИмяПКО = "Хозрасчетный"; <Свойство> <Код>4 <Наименование> --> Субконто1 <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ИмяПКО1)=0 Тогда ИмяПКО = ОбъектКоллекции.ИмяПКО1; Иначе Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто1); ПриВыгрузкеСубконто(); КонецЕсли; <Свойство> <Код>6 <Наименование> --> Субконто2 <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ИмяПКО2)=0 Тогда ИмяПКО = ОбъектКоллекции.ИмяПКО2; Иначе Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто2); ПриВыгрузкеСубконто(); КонецЕсли; <Свойство> <Код>8 <Наименование> --> Субконто3 <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ИмяПКО3)=0 Тогда ИмяПКО = ОбъектКоллекции.ИмяПКО3; Иначе Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.Субконто3); ПриВыгрузкеСубконто(); КонецЕсли; <Свойство> <Код>18 <Наименование> --> Коэффициент <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>19 <Наименование> --> ПодразделениеОрганизации <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>ЗначСубконто = СоздатьОбъект("СписокЗначений"); ЗначСубконто.ДобавитьЗначение(ОбъектКоллекции.Субконто1); ЗначСубконто.ДобавитьЗначение(ОбъектКоллекции.Субконто2); ЗначСубконто.ДобавитьЗначение(ОбъектКоллекции.Субконто3); Для НомерСтроки = 1 По ЗначСубконто.РазмерСписка() Цикл ТекЗнач = ЗначСубконто.ПолучитьЗначение(НомерСтроки); Если ТипЗначенияСтр(ТекЗнач) = "Справочник" Тогда Если ТекЗнач.Вид() = "Подразделения" Тогда Значение = ТекЗнач; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; Отказ = ПустоеЗначение(Значение); <Значения/> <Правило> <Код>СпособыОтраженияРасходовПоСпецодежде <Наименование> --> СправочникСсылка.СпособыОтраженияРасходовПоАмортизации <Порядок>2300 <ПередВыгрузкой>Если ТипЗначенияСтр(Источник) = "Справочник" Тогда Счет = Источник.СчетЗатрат; Если ПустоеЗначение(Счет) = 1 Тогда Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <ПослеЗагрузки>//обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", "Способы"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетЗатрат"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","Субконто"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.СпособыОтраженияРасходовПоАмортизации <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>1 <Наименование> --> <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "БУ: " + СокрП(Источник.СчетЗатрат) + " / " + СокрП(Источник.Субконто1) + " / " + СокрП(Источник.Субконто2) + " / " + СокрП(Источник.Субконто3); <Свойство> <Код>2 <Наименование> --> Наименование <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрП(Источник.СчетЗатрат) + " / " + СокрП(Источник.Субконто1) + " / " + СокрП(Источник.Субконто2) + " / " + СокрП(Источник.Субконто3); <Группа> <Код>4 <Наименование> --> Способы <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Способы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("СчетЗатрат"); КоллекцияОбъектов.НоваяКолонка("Субконто1"); КоллекцияОбъектов.НоваяКолонка("Субконто2"); КоллекцияОбъектов.НоваяКолонка("Субконто3"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.СчетЗатрат = Источник.СчетЗатрат; КоллекцияОбъектов.Субконто1 = Источник.Субконто1; КоллекцияОбъектов.Субконто2 = Источник.Субконто2; КоллекцияОбъектов.Субконто3 = Источник.Субконто3; <Свойство> <Код>9 <Наименование> --> СчетЗатрат <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Счет = Источник.СчетЗатрат; Параметры.ПараметрыАлгоритмов.Установить("Счет", Счет); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); ИмяПКО = "Хозрасчетный"; <Свойство> <Код>6 <Наименование> --> Субконто1 <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто1); ПриВыгрузкеСубконто(); <Свойство> <Код>7 <Наименование> --> Субконто2 <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто2); ПриВыгрузкеСубконто(); <Свойство> <Код>8 <Наименование> --> Субконто3 <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("Счет", Источник.СчетЗатрат); Параметры.ПараметрыАлгоритмов.Установить("Субконто1", Источник.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("Субконто2", Источник.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("Субконто3", Источник.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("Субконто", Источник.Субконто3); ПриВыгрузкеСубконто(); <Свойство> <Код>5 <Наименование> --> Коэффициент <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>10 <Наименование> --> ПодразделениеОрганизации <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <ПередВыгрузкой>ЗначСубконто = СоздатьОбъект("СписокЗначений"); ЗначСубконто.ДобавитьЗначение(ОбъектКоллекции.Субконто1); ЗначСубконто.ДобавитьЗначение(ОбъектКоллекции.Субконто2); ЗначСубконто.ДобавитьЗначение(ОбъектКоллекции.Субконто3); Для НомерСтроки = 1 По ЗначСубконто.РазмерСписка() Цикл ТекЗнач = ЗначСубконто.ПолучитьЗначение(НомерСтроки); Если ТипЗначенияСтр(ТекЗнач) = "Справочник" Тогда Если ТекЗнач.Вид() = "Подразделения" Тогда Значение = ТекЗнач; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; Отказ = ПустоеЗначение(Значение); <Значения/> <Правило> <Код>МетодыНачисленияАмортизации <Наименование>ПеречислениеСсылка.МетодыНачисленияАмортизации --> ПеречислениеСсылка.МетодыНачисленияАмортизации <Порядок>2350 <Источник>ПеречислениеСсылка.МетодыНачисленияАмортизации <Приемник>ПеречислениеСсылка.МетодыНачисленияАмортизации <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Линейный --> Линейный <Порядок>100 <Источник>Линейный <Приемник>Линейный <Значение> <Код>2 <Наименование>Нелинейный --> Нелинейный <Порядок>200 <Источник>Нелинейный <Приемник>Нелинейный <Правило> <Код>СпособыНачисленияАмортизацииНМА <Наименование>ПеречислениеСсылка.СпособыНачисленияАмортизацииНМА --> ПеречислениеСсылка.СпособыНачисленияАмортизац <Порядок>2400 <Источник>ПеречислениеСсылка.СпособыНачисленияАмортизацииНМА <Приемник>ПеречислениеСсылка.СпособыНачисленияАмортизацииНМА <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Линейный --> Линейный <Порядок>100 <Источник>Линейный <Приемник>Линейный <Значение> <Код>2 <Наименование>УменьшаемогоОстатка --> УменьшаемогоОстатка <Порядок>200 <Источник>УменьшаемогоОстатка <Приемник>УменьшаемогоОстатка <Значение> <Код>3 <Наименование>ПропорциональноОбъемуПродукцииРабот --> Пропорцион <Порядок>300 <Источник>ПропорциональноОбъемуПродукцииРабот <Приемник>ПропорциональноОбъемуПродукции <Правило> <Код>ОбщероссийскийКлассификаторОсновныхФондов <Наименование>СправочникСсылка.ОбщероссийскийКлассификаторОсновныхФондов --> СправочникСсылка.ОбщероссийскийКласси <Порядок>2450 <Источник>СправочникСсылка.ОбщероссийскийКлассификаторОсновныхФондов <Приемник>СправочникСсылка.ОбщероссийскийКлассификаторОсновныхФондов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>АмортизационнаяГруппа --> АмортизационнаяГруппа <Порядок>50 <Источник Имя="АмортизационнаяГруппа" Вид="Реквизит" Тип="ПеречислениеСсылка.АмортизационныеГруппы"/> <Приемник Имя="АмортизационнаяГруппа" Вид="Реквизит" Тип="ПеречислениеСсылка.АмортизационныеГруппы"/> <КодПравилаКонвертации>АмортизационныеГруппы <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = СтрЗаменить(Источник, "_", " "); <Свойство> <Код>3 <Наименование>КонтрольноеЧисло --> КонтрольноеЧисло <Порядок>150 <Источник Имя="КонтрольноеЧисло" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КонтрольноеЧисло" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеГруппировки" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ОбщероссийскийКлассификаторОсновныхФондов"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ОбщероссийскийКлассификаторОсновныхФондов"/> <КодПравилаКонвертации>ОбщероссийскийКлассификаторОсновныхФондов <Свойство Поиск="true" Обязательное="true"> <Код>7 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>350 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СпособыНачисленияАмортизацииОС <Наименование>ПеречислениеСсылка.СпособыНачисленияАмортизацииОС --> ПеречислениеСсылка.СпособыНачисленияАмортизаци <Порядок>2500 <Источник>ПеречислениеСсылка.СпособыНачисленияАмортизацииОС <Приемник>ПеречислениеСсылка.СпособыНачисленияАмортизацииОС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Линейный --> Линейный <Порядок>100 <Источник>Линейный <Приемник>Линейный <Значение> <Код>2 <Наименование>УменьшаемогоОстатка --> УменьшаемогоОстатка <Порядок>200 <Источник>УменьшаемогоОстатка <Приемник>УменьшаемогоОстатка <Значение> <Код>3 <Наименование>ПоСуммеЧиселЛет --> ПоСуммеЧиселЛетИспользования <Порядок>300 <Источник>ПоСуммеЧиселЛет <Приемник>ПоСуммеЧиселЛетИспользования <Значение> <Код>4 <Наименование>ПропорциональноОбъемуПродукцииРабот --> Пропорцион <Порядок>400 <Источник>ПропорциональноОбъемуПродукцииРабот <Приемник>ПропорциональноОбъемуПродукции <Значение> <Код>5 <Наименование>ПоЕдинымНормам --> ПоЕНАОФ <Порядок>500 <Источник>ПоЕдинымНормам <Приемник>ПоЕНАОФ <Правило> <Код>ВидыНачисленийОклад <Наименование> --> ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций <Порядок>2550 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(Источник)+ЗначениеВСтрокуВнутр(ВходящиеДанные); КонецЕсли; <ПослеЗагрузки>Объект.КодДоходаЕСН = Справочники.ДоходыЕСН.ОблагаетсяЦеликом; Объект.КодДоходаНДФЛ = Справочники.ДоходыНДФЛ.КодДоходаПоУмолчанию; Объект.КодДоходаФСС_НС = Перечисления.ДоходыФСС_НС.Облагается; Объект.ЧастичноПодпадаетПодЕНВД = Ложь; Объект.КодДоходаСтраховыеВзносы = Справочники.ДоходыПоСтраховымВзносам.ОблагаетсяЦеликом; <Источник>СправочникСсылка.Сотрудники <Приемник>ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Значение = "Оклад по дням (счет затрат "+ВходящиеДанные.Получить("СчетЗатрат")+")"; Иначе Значение = "Оклад по дням (счет затрат "+Источник.СчетЗатрат.Получить(Параметры.ДатаВводаОстатков)+")"; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование> --> СпособОтраженияВБухучете <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияВБухучете" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияЗарплатыВРеглУчете"/> <КодПравилаКонвертации>СпособыОтраженияЗарплатыВРеглУчете <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Значение = ВходящиеДанные; ИмяПКО = "СпособыОтраженияЗарплатыВРеглУчете_Структура"; Иначе Значение = Источник; КонецЕсли; <Свойство> <Код>3 <Наименование> --> ВидНачисленияПоСт255НК <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидНачисленияПоСт255НК" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыНачисленийОплатыТрудаПоСт255НК"/> <ПередВыгрузкой>Значение = "пп1ст255"; <Свойство> <Код>4 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ПривестиНомерКДлине(Источник.Код, 5); <Значения/> <Правило> <Код>ВидыНачислений <Наименование>Справочник: Виды начислений (выплат) <Порядок>2600 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(Источник) + ЗначениеВСтрокуВнутр(ВходящиеДанные); КонецЕсли; <ПослеЗагрузки>Объект.КодДоходаЕСН = Справочники.ДоходыЕСН.ОблагаетсяЦеликом; <Источник>СправочникСсылка.ВидыНачислений <Приемник>ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Значение = Источник.Наименование+" (счет затрат "+ВходящиеДанные.Получить("СчетЗатрат")+")"; Иначе Значение = Источник.Наименование; КонецЕсли; <Свойство Поиск="true"> <Код>9 <Наименование> --> СпособОтраженияВБухучете <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияВБухучете" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияЗарплатыВРеглУчете"/> <КодПравилаКонвертации>СпособыОтраженияЗарплатыВРеглУчете_Структура <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("СчетЗатрат"))=0 Тогда Значение = ВходящиеДанные; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ВидДохода --> КодДоходаНДФЛ <Порядок>300 <Источник Имя="ВидДохода" Вид="Реквизит" Тип="СправочникСсылка.ВидыДоходов"/> <Приемник Имя="КодДоходаНДФЛ" Вид="Реквизит" Тип="СправочникСсылка.ДоходыНДФЛ"/> <КодПравилаКонвертации>ВидыДоходов <Свойство> <Код>7 <Наименование> --> КодДоходаСтраховыеВзносы <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="КодДоходаСтраховыеВзносы" Вид="Реквизит" Тип="СправочникСсылка.ДоходыПоСтраховымВзносам"/> <ПередВыгрузкой>Если Источник.СтраховыеВзносы = 0 Тогда Значение = "НеОблагаетсяЦеликом"; Иначе Значение = "ОблагаетсяЦеликом"; Если ПустоеЗначение(Источник.ВидДохода)=0 Тогда КодДохода = СокрЛП(Источник.ВидДохода.Код); Если Найти(",2720,2730,2740,2750,",","+КодДохода+",")>0 Тогда Значение = "НеОблагаетсяЦеликом"; ИначеЕсли Найти(",1010,2710,2761,2001,3010,2800,2900,2400,2640,2610,3020,1200,1220,1530,1531,1532,1533,1536,1535,1540,",","+КодДохода+",")>0 Тогда Значение = "НеЯвляетсяОбъектом"; ИначеЕсли Найти(",2300,",","+КодДохода+",")>0 Тогда Значение = "ПособияЗаСчетФСС"; ИначеЕсли Найти(",2010,",","+КодДохода+",")>0 Тогда Значение = "ДоговорыГПХ"; ИначеЕсли Найти(",2760,",","+КодДохода+",")>0 Тогда Значение = "Матпомощь"; ИначеЕсли Найти(",2201,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеЛитературныеПроизведения"; ИначеЕсли Найти(",2202,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеГрафическиеПроизведения"; ИначеЕсли Найти(",2203,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеСкульптуры"; ИначеЕсли Найти(",2204,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеАудиовизуальныеПроизведения"; ИначеЕсли Найти(",2205,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеМузыкальноСценическиеПроизведение"; ИначеЕсли Найти(",2205,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеДругиеМузыкальныеПроизведения"; ИначеЕсли Найти(",2205,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеИсполнениеПроизведений"; ИначеЕсли Найти(",2208,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеНаучныеТруды"; ИначеЕсли Найти(",2209,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеОткрытия"; ИначеЕсли Найти(",2762,",","+КодДохода+",")>0 Тогда Значение = "МатпомощьПриРожденииРебенка"; ИначеЕсли Найти(",1300,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеЛитературныеПроизведения"; ИначеЕсли Найти(",1300,",","+КодДохода+",")>0 Тогда Значение = "АвторскиеЛитературныеПроизведения"; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>8 <Наименование> --> КодДоходаФСС_НС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="КодДоходаФСС_НС" Вид="Реквизит" Тип="ПеречислениеСсылка.ДоходыФСС_НС"/> <ПередВыгрузкой>Значение = ?(Источник.ФСС_НС = 1, "Облагается", "НеОблагается"); <Свойство> <Код>10 <Наименование> --> ЧастичноПодпадаетПодЕНВД <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ЧастичноПодпадаетПодЕНВД" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>11 <Наименование>Код --> Код <Порядок>500 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ПривестиНомерКДлине(Источник.Код, 5); <Значения/> <Правило> <Код>ГруппаНМА <Наименование>Группа НМА <Порядок>2650 <ПередВыгрузкой>КлючВыгружаемыхДанных = "АвтоматическиСозданнаяГруппа_" + ВходящиеДанные.Получить("Наименование"); <Приемник>СправочникСсылка.НематериальныеАктивы <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Родитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.НематериальныеАктивы"/> <ПередВыгрузкой>Значение = ПолучитьПустоеЗначение(); <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование> --> ЭтоГруппа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>МоментыОпределенияНалоговойБазыНДС <Наименование>ПеречислениеСсылка.МетодыОпределенияВыручки --> ПеречислениеСсылка.МоментыОпределенияНалоговойБазыНД <Порядок>2700 <Источник>ПеречислениеСсылка.МетодыОпределенияВыручки <Приемник>ПеречислениеСсылка.МоментыОпределенияНалоговойБазыНДС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ПоОплате --> ПоОплате <Порядок>100 <Источник>ПоОплате <Приемник>ПоОплате <Значение> <Код>2 <Наименование>ПоОтгрузке --> ПоОтгрузке <Порядок>200 <Источник>ПоОтгрузке <Приемник>ПоОтгрузке <Правило> <Код>НазначенияИспользования <Наименование>СправочникСсылка.НазначенияИспользования --> СправочникСсылка.НазначенияИспользования <Порядок>2750 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.НазначенияИспользования <Приемник>СправочникСсылка.НазначенияИспользования <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.ВыгружатьКоды = Да Тогда Значение = ПривестиНомерКДлине(Источник.Код, Параметры.ДлинаКода); Иначе Отказ = 1 ; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>Владелец --> Владелец <Порядок>400 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Материалы"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Материалы <Свойство Поиск="true"> <Код>5 <Наименование>СпособПогашенияСтоимости --> СпособПогашенияСтоимости <Порядок>500 <Источник Имя="СпособПогашенияСтоимости" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособПогашенияСтоимости"/> <Приемник Имя="СпособПогашенияСтоимости" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияСтоимости"/> <КодПравилаКонвертации>СпособыПогашенияСтоимости <Свойство> <Код>6 <Наименование>СрокПолезногоИспользования --> СрокПолезногоИспользования <Порядок>600 <Источник Имя="СрокПолезногоИспользования" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СрокПолезногоИспользования" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование> --> ОбщийОбъемПродукцииРабот <Порядок>700 <Источник Имя="СрокПолезногоИспользования" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ОбщийОбъемПродукцииРабот" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование> --> Количество <Порядок>800 <Источник Имя="ФактическийОбъемПродукцииРаботЗаМесяц" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>9 <Наименование> --> СпособОтраженияРасходов <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходов" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоСпецодежде <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1000 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СпособыПогашенияСтоимости <Наименование>ПеречислениеСсылка.СпособПогашенияСтоимости --> ПеречислениеСсылка.СпособыПогашенияСтоимости <Порядок>2800 <Источник>ПеречислениеСсылка.СпособПогашенияСтоимости <Приемник>ПеречислениеСсылка.СпособыПогашенияСтоимости <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Линейный --> Линейный <Порядок>100 <Источник>Линейный <Приемник>Линейный <Значение> <Код>2 <Наименование>ПогашатьСтоимостьВМоментПередачиВПроизводство --> <Порядок>200 <Источник>ПогашатьСтоимостьВМоментПередачиВПроизводство <Приемник>ПогашатьСтоимостьПриПередачеВЭксплуатацию <Значение> <Код>3 <Наименование>ПропорциональноОбъемуПродукцииРабот --> Пропорцион <Порядок>300 <Источник>ПропорциональноОбъемуПродукцииРабот <Приемник>ПропорциональноОбъемуПродукцииРабот <Правило> <Код>ГруппаПрочихРасходов <Наименование> --> СправочникСсылка.СтатьиЗатрат <Порядок>2850 <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование> --> Родитель <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <ПередВыгрузкой>Значение = ПолучитьПустоеЗначение(); <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование> --> ЭтоГруппа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ОсобенностиИсчисленияНДФЛ <Наименование>ПеречислениеСсылка.ОсобенностиИсчисленияНДФЛ --> ПеречислениеСсылка.ОсобенностиИсчисленияНДФЛ <Порядок>2900 <Источник>ПеречислениеСсылка.ОсобенностиИсчисленияНДФЛ <Приемник>ПеречислениеСсылка.ОсобенностиИсчисленияНДФЛ <Свойства/> <Значения> <Значение> <Код>1 <Наименование>СтандартныеВычетыВПределахМесячногоДохода --> Стан <Порядок>100 <Источник>СтандартныеВычетыВПределахМесячногоДохода <Приемник>СтандартныеВычетыВПределахМесячногоДохода <Значение> <Код>2 <Наименование>СтандартныеВычетыНарастающимИтогом --> Стандартные <Порядок>200 <Источник>СтандартныеВычетыНарастающимИтогом <Приемник>СтандартныеВычетыНарастающимИтогом <Правило> <Код>МетодыРаспределенияКосвенныхРасходовПоВидамДеятель <Наименование>ПеречислениеСсылка.МетодыРаспределенияКосвенныхРасходовПоВидамДеятельности --> ПеречислениеСсылка.Ме <Порядок>2950 <Источник>ПеречислениеСсылка.МетодыРаспределенияКосвенныхРасходовПоВидамДеятельности <Приемник>ПеречислениеСсылка.МетодыРаспределенияКосвенныхРасходовПоВидамДеятельности <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ЗаМесяц --> ЗаМесяц <Порядок>100 <Источник>ЗаМесяц <Приемник>ЗаМесяц <Значение> <Код>2 <Наименование>НарастающимИтогомСНачалаГода --> НарастающимИтогом <Порядок>200 <Источник>НарастающимИтогомСНачалаГода <Приемник>НарастающимИтогомСНачалаГода <Правило> <Код>Периодичность <Наименование>ПеречислениеСсылка.НалоговыеПериодыПоНДС --> ПеречислениеСсылка.Периодичность <Порядок>3000 <Источник>ПеречислениеСсылка.НалоговыеПериодыПоНДС <Приемник>ПеречислениеСсылка.Периодичность <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Квартал --> Квартал <Порядок>100 <Источник>Квартал <Приемник>Квартал <Значение> <Код>2 <Наименование>Месяц --> Месяц <Порядок>200 <Источник>Месяц <Приемник>Месяц <Правило> <Код>НазначениеЦелевыхСредств <Наименование>ПеречислениеСсылка.НазначенияЦелевыхСредств --> СправочникСсылка.НазначениеЦелевыхСредств <Порядок>3050 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ПеречислениеСсылка.НазначенияЦелевыхСредств <Приемник>СправочникСсылка.НазначениеЦелевыхСредств <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Строка(Источник),25); <Значения/> <Правило> <Код>ТарифыСтраховыхВзносов <Наименование>Перечисление: Тарифы страховых взносов <Порядок>3100 <Источник>ПеречислениеСсылка.ТарифыСтраховыхВзносов <Приемник>ПеречислениеСсылка.ТарифыСтраховыхВзносов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ЕНВД --> ЕНВД <Порядок>50 <Источник>ЕНВД <Приемник>ЕНВД <Значение> <Код>2 <Наименование>ОбщийНалоговыйРежим --> ОбщийНалоговыйРежим <Порядок>100 <Источник>ОбщийНалоговыйРежим <Приемник>ОбщийНалоговыйРежим <Значение> <Код>3 <Наименование>ОрганизацияИнвалидов --> ОрганизацияИнвалидов <Порядок>150 <Источник>ОрганизацияИнвалидов <Приемник>ОрганизацияИнвалидов <Значение> <Код>4 <Наименование>РезидентТехникоВнедренческойЗоны --> РезидентТехни <Порядок>200 <Источник>РезидентТехникоВнедренческойЗоны <Приемник>РезидентТехникоВнедренческойЗоны <Значение> <Код>5 <Наименование>ITОрганизации --> ITОрганизации <Порядок>250 <Источник>ITОрганизации <Приемник>ITОрганизации <Значение> <Код>6 <Наименование>СМИ --> СМИ <Порядок>300 <Источник>СМИ <Приемник>СМИ <Значение> <Код>7 <Наименование>ХозОбществаБюджетныхВУЗов --> ХозОбществаБюджетных <Порядок>350 <Источник>ХозОбществаБюджетныхВУЗов <Приемник>ХозОбществаБюджетныхВУЗов <Правило> <Код>ВидыВзаиморасчетов <Наименование>Справочник: Договоры <Порядок>3150 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ВидыДоговоров <Приемник>СправочникСсылка.ВидыВзаиморасчетов <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>КлассификаторЕдиницИзмерения_Строка <Наименование>Строка: Строка <Порядок>3200 <Источник>Строка <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> НаименованиеПолное <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>ПричиныСписанияОС <Наименование>: <Порядок>3300 <Приемник>СправочникСсылка.ПричиныСписанияОС <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>КонтрагентБанк <Наименование>Справочник: Банки <Порядок>3350 <ПослеЗагрузки>Если Объект.ЭтоНовый() Тогда Если Объект.ПолучитьСсылкуНового().Пустая() Тогда Объект.УстановитьСсылкуНового(Справочники.Контрагенты.ПолучитьСсылку()); КонецЕсли; Объект.ГоловнойКонтрагент = Объект.ПолучитьСсылкуНового(); Иначе Если Объект.ГоловнойКонтрагент <> Объект.Ссылка Тогда Объект.ГоловнойКонтрагент = Объект.Ссылка; КонецЕсли; КонецЕсли; <Источник>СправочникСсылка.Банки <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>6 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>3 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "# Автоматически созданный контрагент для продажи валюты #"; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Наименование --> НаименованиеПолное <Порядок>250 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> ЮрФизЛицо <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПередВыгрузкой>Значение = "ЮрЛицо"; <Значения/> <Правило> <Код>ДоговорПродажиВалюты <Наименование>: <Порядок>3400 <ПередВыгрузкой>Если ПустоеЗначение(Источник.Получить("Банк"))=1 Тогда Отказ = 1; КонецЕсли; <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Свойства> <Свойство> <Код>1 <Наименование> --> ВалютаВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Получить("Валюта"); Если ПустоеЗначение(Значение)=1 Тогда Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>2 <Наименование> --> ВидДоговора <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДоговоровКонтрагентов"/> <ПередВыгрузкой>Значение = "Прочее"; <Свойство> <Код>5 <Наименование> --> РасчетыВУсловныхЕдиницах <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыВУсловныхЕдиницах" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>3 <Наименование> --> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "# Автоматически созданный договор для продажи валюты #"; <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>6 <Наименование> --> Владелец <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>КонтрагентБанк <ПередВыгрузкой>Значение = Источник.Получить("Банк"); <Свойство Поиск="true"> <Код>7 <Наименование> --> Наименование <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Договор продажи валюты "+строка(Источник.Получить("Валюта")); <Свойство Поиск="true" Обязательное="true"> <Код>8 <Наименование> --> ЭтоГруппа <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Группа> <Код>РегистрыСведений <Наименование>Регистры сведений <Порядок>150 <Правило> <Код>КурсыВалют <Наименование>СправочникСсылка.Валюты --> РегистрСведенийЗапись.КурсыВалют <Порядок>50 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ДатаСведений")); КонецЕсли; Иначе ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; <ПослеВыгрузкиВФайл>Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1 Тогда ТаблицаДат = СоздатьОбъект("ТаблицаЗначений"); ТаблицаДат.НоваяКолонка("ДатаСведений"); Периодический = СоздатьОбъект("Периодический"); Периодический.ИспользоватьОбъект("Курс",Источник); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаДат.НоваяСтрока(); ТаблицаДат.ДатаСведений = Периодический.ДатаЗнач; КонецЦикла; Периодический = СоздатьОбъект("Периодический"); Периодический.ИспользоватьОбъект("Кратность",Источник); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаДат.НоваяСтрока(); ТаблицаДат.ДатаСведений = Периодический.ДатаЗнач; КонецЦикла; ТаблицаДат.Свернуть("ДатаСведений",""); ТаблицаДат.ВыбратьСтроки(); Пока ТаблицаДат.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("ДатаСведений",ТаблицаДат.ДатаСведений); ВыгрузитьПоПравилу(Источник,,ВД,,"КурсыВалют"); КонецЦикла; КонецЕсли; <Источник>СправочникСсылка.Валюты <Приемник>РегистрСведенийЗапись.КурсыВалют <Свойства> <Свойство> <Код>1 <Наименование> --> Курс <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Курс" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = Источник.Курс.Получить(ДатаСведений); <Свойство> <Код>2 <Наименование> --> Кратность <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Кратность" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = Источник.Кратность.Получить(ДатаСведений); <Свойство> <Код>3 <Наименование> --> Период <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = ДатаСведений; <Свойство> <Код>4 <Наименование> --> Валюта <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Измерение" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>ТелефоныОрганизации <Наименование> --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>100 <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Телефон"; <Свойство> <Код>3 <Наименование> --> Вид <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00006"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Свойство> <Код>4 <Наименование> --> Представление <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.ТелефоныОрганизации; <Свойство> <Код>5 <Наименование> --> Поле3 <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.ТелефоныОрганизации; <Значения/> <Правило> <Код>ТелефоныКонтрагента <Наименование>СправочникСсылка.Контрагенты --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>150 <Источник>СправочникСсылка.Контрагенты <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Телефон"; <Свойство> <Код>3 <Наименование> --> Представление <Порядок>300 <Источник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Поле3 <Порядок>400 <Источник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Вид <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00005"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Значения/> <Правило> <Код>ЮридическийАдресОрганизации <Наименование> --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>200 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Константа.АдресОрганизации); ПолучитьСтруктуруАдреса(); <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Адрес"; <Свойство> <Код>3 <Наименование> --> Вид <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00011"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Свойство> <Код>4 <Наименование> --> Представление <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Поле1 <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле1" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> Поле2 <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле2" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Поле3 <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> Поле4 <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле4" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Поле5 <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле5" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Поле6 <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле6" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> Поле7 <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле7" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Поле8 <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле8" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Поле9 <Порядок>1300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле9" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> Поле10 <Порядок>1400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле10" Вид="Ресурс" Тип="Строка"/> <Значения/> <Правило> <Код>ФактическийАдресОрганизации <Наименование> --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>250 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Константа.ПочтовыйАдресОрганизации); ПолучитьСтруктуруАдреса(); <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Адрес"; <Свойство> <Код>3 <Наименование> --> Вид <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00009"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Свойство> <Код>4 <Наименование> --> Представление <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Поле1 <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле1" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> Поле2 <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле2" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Поле3 <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> Поле4 <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле4" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Поле5 <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле5" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Поле6 <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле6" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> Поле7 <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле7" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Поле8 <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле8" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Поле9 <Порядок>1300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле9" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> Поле10 <Порядок>1400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле10" Вид="Ресурс" Тип="Строка"/> <Значения/> <Правило> <Код>ЮридическийАдресКонтрагента <Наименование>СправочникСсылка.Контрагенты --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>300 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Источник.ЮридическийАдрес); ПолучитьСтруктуруАдреса(); <Источник>СправочникСсылка.Контрагенты <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Адрес"; <Свойство> <Код>4 <Наименование> --> Представление <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Поле1 <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле1" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> Поле2 <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле2" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Поле3 <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> Поле4 <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле4" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Поле5 <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле5" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Поле6 <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле6" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> Поле7 <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле7" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Поле8 <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле8" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Поле9 <Порядок>1300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле9" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> Вид <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00010"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Значения/> <Правило> <Код>ФактическийАдресКонтрагента <Наименование>СправочникСсылка.Контрагенты --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>350 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Источник.ПочтовыйАдрес); ПолучитьСтруктуруАдреса(); <Источник>СправочникСсылка.Контрагенты <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Адрес"; <Свойство> <Код>3 <Наименование> --> Представление <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Поле1 <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле1" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Поле2 <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле2" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> Поле3 <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Поле4 <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле4" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> Поле5 <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле5" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Поле6 <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле6" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Поле7 <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле7" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> Поле8 <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле8" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Поле9 <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле9" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Вид <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00008"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Значения/> <Правило> <Код>ФИОФизЛиц <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.ФИОФизЛиц <Порядок>400 <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.ФИОФизЛиц <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата(1980,1,1); <Свойство> <Код>2 <Наименование> --> ФизЛицо <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Измерение"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование> --> Фамилия <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Фамилия" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Имя <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Имя" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Отчество <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Отчество" Вид="Ресурс" Тип="Строка"/> <Значения/> <Правило> <Код>СведенияОбИнвалидностиФизлиц <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.СведенияОбИнвалидностиФизлиц <Порядок>450 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ДатаСведений")); КонецЕсли; Иначе ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; <ПослеВыгрузкиВФайл>Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1 Тогда Периодический = СоздатьОбъект("Периодический"); Периодический.ИспользоватьОбъект("Инвалид",Источник); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("ДатаСведений",Периодический.ДатаЗнач); ВыгрузитьПоПравилу(Источник,,ВД,,"СведенияОбИнвалидностиФизлиц"); КонецЦикла; КонецЕсли; <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.СведенияОбИнвалидностиФизлиц <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = ДатаСведений; <Свойство> <Код>2 <Наименование> --> Физлицо <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование> --> Инвалидность <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Инвалидность" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = Источник.Инвалид.Получить(ДатаСведений); <Свойство> <Код>4 <Наименование> --> ДатаВыдачи <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВыдачи" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = ДатаСведений; <Значения/> <Правило> <Код>ПаспортныеДанныеФизЛиц <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.ПаспортныеДанныеФизЛиц <Порядок>500 <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.ПаспортныеДанныеФизЛиц <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаВводаОстатков-1; <Свойство> <Код>2 <Наименование> --> ФизЛицо <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование>ВидДокумента --> ДокументВид <Порядок>300 <Источник Имя="ВидДокумента" Вид="Реквизит" Тип="СправочникСсылка.ДокументыУдостоверяющиеЛичность"/> <Приемник Имя="ДокументВид" Вид="Ресурс" Тип="СправочникСсылка.ДокументыУдостоверяющиеЛичность"/> <КодПравилаКонвертации>ДокументыУдостоверяющиеЛичность <Свойство> <Код>4 <Наименование> --> ДокументСерия <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументСерия" Вид="Ресурс" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрЛП(Источник.ДокументСерия); <Свойство> <Код>5 <Наименование> --> ДокументНомер <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументНомер" Вид="Ресурс" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрЛП(Источник.ДокументНомер); <Свойство> <Код>6 <Наименование>ДокументДатаВыдачи --> ДокументДатаВыдачи <Порядок>600 <Источник Имя="ДокументДатаВыдачи" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДокументДатаВыдачи" Вид="Ресурс" Тип="Дата"/> <Свойство> <Код>7 <Наименование> --> ДокументКемВыдан <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументКемВыдан" Вид="Ресурс" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрЛП(Источник.ДокументКемВыдан); <Значения/> <Правило> <Код>СтатусФизЛицКакНалогоплательщиковНДФЛ <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.ГражданствоФизЛиц <Порядок>550 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ДатаСведений")); КонецЕсли; <ПослеВыгрузкиВФайл>Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1 Тогда Периодический = СоздатьОбъект("Периодический"); Периодический.ИспользоватьОбъект("Статус",Источник); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("ДатаСведений",Периодический.ДатаЗнач); ВыгрузитьПоПравилу(Источник,,ВД,,"СтатусФизЛицКакНалогоплательщиковНДФЛ"); КонецЦикла; КонецЕсли; <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.СтатусФизЛицКакНалогоплательщиковНДФЛ <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = ДатаСведений; <Свойство> <Код>2 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование> --> Статус <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Ресурс" Тип="ПеречислениеСсылка.СтатусыНалогоплательщиковПоНДФЛ"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = ?(Источник.Статус.Получить(ДатаСведений) = 0, "НеРезидент", "Резидент"); <Значения/> <Правило> <Код>ГражданствоФизЛиц <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.ГражданствоФизЛиц <Порядок>600 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ДатаСведений")); КонецЕсли; Иначе ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; <ПослеВыгрузкиВФайл>Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1 Тогда ТаблицаДат = СоздатьОбъект("ТаблицаЗначений"); ТаблицаДат.НоваяКолонка("Дата"); Периодический = СоздатьОбъект("Периодический"); Периодический.ИспользоватьОбъект("НеВзиматьВзносыПФРиФСС",Источник); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаДат.НоваяСтрока(); ТаблицаДат.Дата = Периодический.ДатаЗнач; КонецЦикла; Периодический.ИспользоватьОбъект("ВидЗастрахованногоЛица", Источник); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаДат.НоваяСтрока(); ТаблицаДат.Дата = Периодический.ДатаЗнач; КонецЦикла; ТаблицаДат.Свернуть("Дата", ""); ТаблицаДат.Сортировать("Дата"); ТаблицаДат.ВыбратьСтроки(); Пока ТаблицаДат.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("ДатаСведений",ТаблицаДат.Дата); ВыгрузитьПоПравилу(Источник,,ВД,,"ГражданствоФизЛиц"); КонецЦикла; КонецЕсли; <ПослеЗагрузки>Если Объект.Страна = Справочники.КлассификаторСтранМира.Россия Тогда Объект.ВидЗастрахованногоЛица = Перечисления.ВидыЗастрахованныхЛицОбязательногоСтрахования.ПустаяСсылка(); КонецЕсли; <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.ГражданствоФизЛиц <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = ДатаСведений; <Свойство> <Код>2 <Наименование> --> ФизЛицо <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование>Страна --> Страна <Порядок>300 <Источник Имя="Страна" Вид="Реквизит" Тип="СправочникСсылка.ОКСМ"/> <Приемник Имя="Страна" Вид="Ресурс" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>ОКСМ <Свойство> <Код>4 <Наименование> --> НеИмеетПравоНаПенсию <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НеИмеетПравоНаПенсию" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = Источник.НеВзиматьВзносыПФРиФСС.Получить(ДатаСведений); <Свойство> <Код>5 <Наименование> --> ВидЗастрахованногоЛица <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЗастрахованногоЛица" Вид="Ресурс" Тип="ПеречислениеСсылка.ВидыЗастрахованныхЛицОбязательногоСтрахования"/> <КодПравилаКонвертации>ВидыЗастрахованныхЛицОбязательногоСтрахования <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = Источник.ВидЗастрахованногоЛица.Получить(ДатаСведений); <Значения/> <Правило> <Код>ПроцентСевернойНадбавкиФизЛиц <Наименование>: <Порядок>650 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("ДатаСведений")); КонецЕсли; Иначе ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; <ПослеВыгрузкиВФайл>Если ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1 Тогда Периодический = СоздатьОбъект("Периодический"); Периодический.ИспользоватьОбъект("ПроцентСевернойНадбавки",Источник); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("ДатаСведений",Периодический.ДатаЗнач); ВыгрузитьПоПравилу(Источник,,ВД,,"ПроцентСевернойНадбавкиФизЛиц"); КонецЦикла; КонецЕсли; <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.ПроцентСевернойНадбавкиФизЛиц <Свойства> <Свойство> <Код>3 <Наименование> --> Активность <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>4 <Наименование> --> Период <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = ДатаСведений; <Свойство> <Код>1 <Наименование> --> ФизЛицо <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> СевернаяНадбавка <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СевернаяНадбавка" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>ДатаСведений = ?(ПустоеЗначение(ВходящиеДанные.Получить("ДатаСведений"))=1,Параметры.ДатаВводаОстатков-1,ВходящиеДанные.Получить("ДатаСведений")); Значение = Источник.ПроцентСевернойНадбавки.Получить(ДатаСведений); <Значения/> <Правило> <Код>ТелефоныФизЛица <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>700 <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Телефон"; <Свойство> <Код>3 <Наименование> --> Представление <Порядок>300 <Источник Имя="Телефон" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Поле3 <Порядок>400 <Источник Имя="Телефон" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Вид <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00007"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Значения/> <Правило> <Код>СчетаУчетаОбъектовСтроительства <Наименование> --> РегистрСведенийЗапись.ОбъектыСтроительстваОрганизаций <Порядок>750 <Приемник>РегистрСведенийЗапись.ОбъектыСтроительстваОрганизаций <Свойства> <Свойство> <Код>1 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> ОбъектСтроительства <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОбъектСтроительства" Вид="Измерение" Тип="СправочникСсылка.ОбъектыСтроительства"/> <КодПравилаКонвертации>ОбъектыСтроительства_08_3 <Свойство> <Код>3 <Наименование> --> СчетБухгалтерскогоУчета <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетБухгалтерскогоУчета" Вид="Ресурс" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>4 <Наименование> --> СчетБухгалтерскогоУчетаНДС <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СчетБухгалтерскогоУчетаНДС" Вид="Ресурс" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Значения/> <Правило> <Код>АдресПоПропискеФизЛица <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>800 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Источник.АдресПрописка); ПолучитьСтруктуруАдреса(); <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Адрес"; <Свойство> <Код>3 <Наименование> --> Представление <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Поле1 <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле1" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Поле2 <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле2" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> Поле3 <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Поле4 <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле4" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> Поле5 <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле5" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Поле6 <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле6" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Поле7 <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле7" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> Поле8 <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле8" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Поле9 <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле9" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Вид <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00002"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Значения/> <Правило> <Код>ФактическийАдресФизЛица <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>850 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Адрес", Источник.АдресФакт); ПолучитьСтруктуруАдреса(); <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование> --> Объект <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование> --> Тип <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <ПередВыгрузкой>Значение = "Адрес"; <Свойство> <Код>3 <Наименование> --> Представление <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование> --> Поле1 <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле1" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> Поле2 <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле2" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> Поле3 <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Поле4 <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле4" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> Поле5 <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле5" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Поле6 <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле6" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> Поле7 <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле7" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> Поле8 <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле8" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Поле9 <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле9" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Вид <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>Значение = "00003"; ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Значения/> <Правило> <Код>НДФЛДоходыПредыдущегоМестаРаботы <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.НДФЛДоходыПредыдущегоМестаРаботы <Порядок>900 <ПередВыгрузкой>Если Источник.ВаловойДоход_СНачалаГода = 0 Тогда Отказ = 1; КонецЕсли; <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.НДФЛДоходыПредыдущегоМестаРаботы <Свойства> <Свойство> <Код>1 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> МесяцНалоговогоПериода <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Измерение" Тип="Дата"/> <ПередВыгрузкой>Значение = НачМесяца(ДобавитьМесяц(Источник.ДатаПриема, -1)); <Свойство> <Код>3 <Наименование> --> ФизЛицо <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>4 <Наименование> --> Размер <Порядок>400 <Источник Имя="ВаловойДоход_СНачалаГода" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Размер" Вид="Ресурс" Тип="Число"/> <Значения/> <Правило> <Код>НДФЛПрименениеВычетов <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.НДФЛПрименениеВычетов <Порядок>950 <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.НДФЛПрименениеВычетов <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование> --> Физлицо <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование> --> Организация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Ресурс" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>НДФЛСтандартныеВычетыФизлиц <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.НДФЛСтандартныеВычетыФизлиц <Порядок>1000 <Источник>СправочникСсылка.ВычетыСотрудниковПоНДФЛ <Приемник>РегистрСведенийЗапись.НДФЛСтандартныеВычетыФизлиц <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование> --> Физлицо <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>3 <Наименование> --> КодВычетаЛичный <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КодВычетаЛичный" Вид="Ресурс" Тип="СправочникСсылка.ВычетыНДФЛ"/> <Значения/> <Правило> <Код>НДФЛСтандартныеВычетыНаДетей <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.НДФЛСтандартныеВычетыФизлиц <Порядок>1050 <Источник>СправочникСсылка.ВычетыСотрудниковПоНДФЛ <Приемник>РегистрСведенийЗапись.НДФЛСтандартныеВычетыНаДетей <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>5 <Наименование> --> ПериодЗавершения <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПериодЗавершения" Вид="Ресурс" Тип="Дата"/> <Свойство> <Код>2 <Наименование> --> Физлицо <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>3 <Наименование> --> КодВычета <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КодВычета" Вид="Измерение" Тип="СправочникСсылка.ВычетыНДФЛ"/> <КодПравилаКонвертации>ВычетыНаРебенка <Свойство> <Код>4 <Наименование> --> КоличествоДетей <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоДетей" Вид="Ресурс" Тип="Число"/> <Значения/> <Правило> <Код>НДФЛСтандартныеВычетыНаДетейИнвалидов <Наименование>СправочникСсылка.Сотрудники --> РегистрСведенийЗапись.НДФЛСтандартныеВычетыФизлиц <Порядок>1100 <Источник>СправочникСсылка.Сотрудники <Приемник>РегистрСведенийЗапись.НДФЛСтандартныеВычетыНаДетей <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование> --> КодВычета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КодВычета" Вид="Измерение" Тип="СправочникСсылка.ВычетыНДФЛ"/> <КодПравилаКонвертации>ВычетыНаРебенкаИнвалида <ПередВыгрузкой>Значение = Источник.РазмерВычетаНаРебенкаИнвалида.Получить(ВходящиеДанные.Получить("Период")); <Свойство> <Код>4 <Наименование> --> КоличествоДетей <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоДетей" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.ДетиИнвалиды.Получить(ВходящиеДанные.Получить("Период")); <Значения/> <Правило> <Код>УчетнаяПолитикаБухгалтерскийУчет <Наименование> --> РегистрСведенийЗапись.УчетнаяПолитикаБухгалтерскийУчет <Порядок>1150 <Приемник>РегистрСведенийЗапись.УчетнаяПолитикаОрганизаций <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование> --> Организация <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>3 <Наименование> --> СпособОценкиМПЗ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОценкиМПЗ" Вид="Ресурс" Тип="ПеречислениеСсылка.СпособыОценки"/> <ПередВыгрузкой>Значение = "ПоСредней"; <Свойство> <Код>4 <Наименование> --> ДиректКостинг <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДиректКостинг" Вид="Ресурс" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> СпособОценкиТоваровВРознице <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СпособОценкиТоваровВРознице" Вид="Ресурс" Тип="ПеречислениеСсылка.СпособыОценкиТоваровВРознице"/> <Свойство> <Код>6 <Наименование> --> СпособУчетаВыпускаГотовойПродукции <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СпособУчетаВыпускаГотовойПродукции" Вид="Ресурс" Тип="ПеречислениеСсылка.СпособыУчетаВыпускаГотовойПродукции"/> <ПередВыгрузкой>//Значение = "БезИспользованияСчета40"; Значение = "СИспользованиемСчета40"; <Свойство> <Код>7 <Наименование> --> ПоддержкаПБУ18 <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПоддержкаПБУ18" Вид="Ресурс" Тип="Булево"/> <Свойство> <Код>8 <Наименование> --> СпособРасчетаСебестоимостиПроизводства <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаСебестоимостиПроизводства" Вид="Ресурс" Тип="ПеречислениеСсылка.СпособыРасчетаСебестоимостиПродукции"/> <ПередВыгрузкой>Значение = "ПоПодразделениям"; <Свойство> <Код>9 <Наименование> --> БазаРаспределенияКосвенныхРасходовПоВидамДеятельности <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="БазаРаспределенияКосвенныхРасходовПоВидамДеятельности" Вид="Ресурс" Тип="ПеречислениеСсылка.БазыРаспределенияКосвенныхРасходовПоВидамДеятельности"/> <Свойство> <Код>10 <Наименование> --> ВариантУчетаРасходовПоАмортизационнойПремии <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантУчетаРасходовПоАмортизационнойПремии" Вид="Ресурс" Тип="ПеречислениеСсылка.ВариантыУчетаРасходовПоАмортизационнойПремии"/> <ПередВыгрузкой>Значение = "НаСчетахРасходовПоАмортизации"; <Свойство> <Код>11 <Наименование> --> ВариантУчетаРасходовПоНалогамСФОТВНалоговомУчете <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантУчетаРасходовПоНалогамСФОТВНалоговомУчете" Вид="Ресурс" Тип="ПеречислениеСсылка.ВариантыУчетаРасходовПоНалогамСФОТВНалоговомУчете"/> <ПередВыгрузкой>Значение = "НаСчетахРасходовНаОплатуТруда"; <Свойство> <Код>14 <Наименование> --> МоментОпределенияНалоговойБазыНДС <Порядок>1400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="МоментОпределенияНалоговойБазыНДС" Вид="Ресурс" Тип="ПеречислениеСсылка.МоментыОпределенияНалоговойБазыНДС"/> <Свойство> <Код>15 <Наименование> --> НачислятьНДСПоОтгрузке <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьНДСПоОтгрузке" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>18 <Наименование> --> НДСПриНеподтвержденииСверху <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПриНеподтвержденииСверху" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>20 <Наименование> --> ОрганизацияЯвляетсяПлательщикомЕНВД <Порядок>2000 <Источник Имя="" Вид=""/> <Приемник Имя="ОрганизацияЯвляетсяПлательщикомЕНВД" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(Константа.ОрганизацияЯвляетсяПлательщикомЕНВД = Да, 1, 0); <Свойство> <Код>21 <Наименование> --> ОсобенностиИсчисленияНДФЛ <Порядок>2100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОсобенностиИсчисленияНДФЛ" Вид="Ресурс" Тип="ПеречислениеСсылка.ОсобенностиИсчисленияНДФЛ"/> <Свойство> <Код>22 <Наименование> --> ПорядокРаспределенияРасходовНаОказаниеВнутреннихУслуг <Порядок>2200 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокРаспределенияРасходовНаОказаниеВнутреннихУслуг" Вид="Ресурс" Тип="ПеречислениеСсылка.ПорядокРаспределенияРасходовНаОказаниеВнутреннихУслуг"/> <ПередВыгрузкой>Значение = "ПоПлановымЦенам"; <Свойство> <Код>23 <Наименование> --> ПорядокРаспределенияРасходовНаОказаниеУслуг <Порядок>2300 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокРаспределенияРасходовНаОказаниеУслуг" Вид="Ресурс" Тип="ПеречислениеСсылка.ПорядокРаспределенияРасходовНаОказаниеУслуг"/> <ПередВыгрузкой>Значение = "ПоПлановымЦенам"; <Свойство> <Код>24 <Наименование> --> РозничнаяТорговляОблагаетсяЕНВД <Порядок>2400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РозничнаяТорговляОблагаетсяЕНВД" Вид="Ресурс" Тип="Булево"/> <Свойство> <Код>25 <Наименование> --> СистемаНалогообложения <Порядок>2500 <Источник Имя="" Вид=""/> <Приемник Имя="СистемаНалогообложения" Вид="Ресурс" Тип="ПеречислениеСсылка.СистемыНалогообложения"/> <ПередВыгрузкой>Значение = "Общая"; <Свойство> <Код>26 <Наименование> --> СложныйУчетНДС <Порядок>2600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СложныйУчетНДС" Вид="Ресурс" Тип="Булево"/> <Свойство> <Код>27 <Наименование> --> СпособОтраженияВБухгалтерскомУчетеВключенияНДСВСтоимость <Порядок>2700 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияВБухгалтерскомУчетеВключенияНДСВСтоимость" Вид="Ресурс" Тип="ПеречислениеСсылка.НДССпособОтраженияВБухгалтерскомУчетеПриВключенииВСтоимость"/> <ПередВыгрузкой>Значение = "ВСоответствииСоСт170НКРФ"; <Свойство> <Код>28 <Наименование> --> СпособОценкиМПЗНУ <Порядок>2800 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОценкиМПЗНУ" Вид="Ресурс" Тип="ПеречислениеСсылка.СпособыОценки"/> <ПередВыгрузкой>Значение = "ПоСредней"; <Свойство> <Код>31 <Наименование> --> УчитыватьПоложительныеСуммовыеРазницыПриНачисленииНДС <Порядок>3100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьПоложительныеСуммовыеРазницыПриНачисленииНДС" Вид="Ресурс" Тип="Булево"/> <Свойство> <Код>33 <Наименование> --> ФормироватьСчетФактуруПоУЕвРублях <Порядок>3300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФормироватьСчетФактуруПоУЕвРублях" Вид="Ресурс" Тип="Булево"/> <Свойство> <Код>34 <Наименование> --> УпрощенныйУчетНДС <Порядок>3350 <Источник Имя="" Вид=""/> <Приемник Имя="УпрощенныйУчетНДС" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = "0"; <Свойство> <Код>35 <Наименование> --> МетодНачисленияАмортизацииНУ <Порядок>3400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="МетодНачисленияАмортизацииНУ" Вид="Ресурс" Тип="ПеречислениеСсылка.МетодыНачисленияАмортизации"/> <Свойство> <Код>36 <Наименование> --> ВидТарифаСтраховыхВзносов <Порядок>3450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидТарифаСтраховыхВзносов" Вид="Ресурс" Тип="ПеречислениеСсылка.ТарифыСтраховыхВзносов"/> <КодПравилаКонвертации>ТарифыСтраховыхВзносов <Свойство> <Код>37 <Наименование> --> УчитыватьРасходыНУАналогичноБУ <Порядок>3500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьРасходыНУАналогичноБУ" Вид="Ресурс" Тип="Булево"/> <Свойство> <Код>38 <Наименование> --> ОрганизацияВедетПроизводственнуюДеятельность <Порядок>3550 <Источник Имя="" Вид=""/> <Приемник Имя="ОрганизацияВедетПроизводственнуюДеятельность" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>39 <Наименование> --> ОрганизацияВедетРозничнуюТорговлю <Порядок>3600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОрганизацияВедетРозничнуюТорговлю" Вид="Ресурс" Тип="Булево"/> <Значения/> <Правило> <Код>УчетнаяПолитикаПоПерсоналу <Наименование> --> РегистрСведенийЗапись.УчетнаяПолитикаПоПерсоналу <Порядок>1200 <Приемник>РегистрСведенийЗапись.УчетнаяПолитикаПоПерсоналу <Свойства> <Свойство> <Код>1 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> УпрощенныйУчетНДФЛ <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="УпрощенныйУчетНДФЛ" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ОтветственныеЛицаОрганизаций <Наименование>: <Порядок>1250 <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.ОтветственныеЛицаОрганизаций <Свойства> <Свойство> <Код>1 <Наименование> --> Период <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = НачГода(Параметры.ДатаКонцаПериодаВыгрузки)-1; <Свойство> <Код>2 <Наименование> --> Должность <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Должность" Вид="Ресурс" Тип="СправочникСсылка.ДолжностиОрганизаций"/> <КодПравилаКонвертации>ДолжностиОрганизаций <Свойство> <Код>3 <Наименование> --> ОтветственноеЛицо <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтветственноеЛицо" Вид="Измерение" Тип="ПеречислениеСсылка.ОтветственныеЛицаОрганизаций"/> <Свойство> <Код>4 <Наименование> --> ФизическоеЛицо <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФизическоеЛицо" Вид="Ресурс" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>5 <Наименование> --> СтруктурнаяЕдиница <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтруктурнаяЕдиница" Вид="Измерение"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>СтавкиНалогаНаПрибыльДляВсехОрганизаций <Наименование>: <Порядок>1300 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("Период")); Иначе Отказ = 1; КонецЕсли; <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.СтавкиНалогаНаПрибыльДляВсехОрганизаций <Свойства> <Свойство> <Код>4 <Наименование> --> Период <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование> --> СтавкаФБ <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаФБ" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>1 <Наименование> --> СтавкаСубъектРФ <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаСубъектРФ" Вид="Ресурс" Тип="Число"/> <Значения/> <Правило> <Код>СтавкиНалогаНаПрибыльВБюджетСубъектовРФ <Наименование>: <Порядок>1350 <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.СтавкиНалогаНаПрибыльВБюджетСубъектовРФ <Свойства> <Свойство> <Код>1 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Отключить="true"> <Код>2 <Наименование> --> РегистрацияВИФНС <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="РегистрацияВИФНС" Вид="Измерение" Тип="СправочникСсылка.РегистрацияВИФНС"/> <Свойство> <Код>4 <Наименование> --> Период <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование> --> СтавкаСубъектРФ <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаСубъектРФ" Вид="Ресурс" Тип="Число"/> <Значения/> <Правило> <Код>СтавкаВзносаНаСтрахованиеОтНесчастныхСлучаев <Наименование>: <Порядок>1400 <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.СтавкаВзносаНаСтрахованиеОтНесчастныхСлучаев <Свойства> <Свойство> <Код>3 <Наименование> --> Активность <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>4 <Наименование> --> Период <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>1 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>2 <Наименование> --> Ставка <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Ставка" Вид="Ресурс" Тип="Число"/> <Значения/> <Группа> <Код>Операции <Наименование>Операции <Порядок>200 <Правило> <Код>ОперацияБух <Наименование> --> ДокументСсылка.ОперацияБух <Порядок>100 <ПередВыгрузкой>Если (ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1) и (ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 1) Тогда Отказ = 1; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1) и (ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 0) Тогда Если ВходящиеДанные.Получить("Налоговый").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 0) и (ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 1) Тогда Если ВходящиеДанные.Получить("Хозрасчетный").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; Иначе Если (ВходящиеДанные.Получить("Хозрасчетный").КоличествоСтрок() = 0) и (ВходящиеДанные.Получить("Налоговый").КоличествоСтрок() = 0) Тогда Отказ = 1; КонецЕсли; КонецЕсли; <ПослеЗагрузки>Для каждого Корреспонденция из Объект.Движения.Хозрасчетный Цикл Для каждого Субконто из Корреспонденция.СубконтоДт Цикл Ок = Ложь; Для каждого ВидыСубконто из Корреспонденция.СчетДт.ВидыСубконто Цикл Если ВидыСубконто.ВидСубконто = Субконто.Ключ Тогда Ок = Истина; Прервать; КонецЕсли; КонецЦикла; Если не Ок Тогда Корреспонденция.СубконтоДт.Удалить(Субконто.Ключ); КонецЕсли; КонецЦикла; Для каждого Субконто из Корреспонденция.СубконтоКт Цикл Ок = Ложь; Для каждого ВидыСубконто из Корреспонденция.СчетКт.ВидыСубконто Цикл Если ВидыСубконто.ВидСубконто = Субконто.Ключ Тогда Ок = Истина; Прервать; КонецЕсли; КонецЦикла; Если не Ок Тогда Корреспонденция.СубконтоКт.Удалить(Субконто.Ключ); КонецЕсли; КонецЦикла; Если (Корреспонденция.СчетДт = ПланыСчетов.Хозрасчетный.ПустаяСсылка()) или (НЕ Корреспонденция.СчетДт.НалоговыйУчет) Тогда Корреспонденция.СуммаНУДт = 0; Корреспонденция.СуммаПРДт = 0; Корреспонденция.СуммаВРДт = 0; КонецЕсли; Если (Корреспонденция.СчетКт = ПланыСчетов.Хозрасчетный.ПустаяСсылка()) или (НЕ Корреспонденция.СчетКт.НалоговыйУчет) Тогда Корреспонденция.СуммаНУКт = 0; Корреспонденция.СуммаПРКт = 0; Корреспонденция.СуммаВРКт = 0; КонецЕсли; Если (Корреспонденция.СчетДт = ПланыСчетов.Хозрасчетный.ПустаяСсылка()) или (НЕ Корреспонденция.СчетДт.Валютный) Тогда Корреспонденция.ВалютаДт = Справочники.Валюты.ПустаяСсылка(); Корреспонденция.ВалютнаяСуммаДт = 0; КонецЕсли; Если (Корреспонденция.СчетКт = ПланыСчетов.Хозрасчетный.ПустаяСсылка()) или (НЕ Корреспонденция.СчетКт.Валютный) Тогда Корреспонденция.ВалютаКт = Справочники.Валюты.ПустаяСсылка(); Корреспонденция.ВалютнаяСуммаКт = 0; КонецЕсли; Если (Корреспонденция.СчетДт = ПланыСчетов.Хозрасчетный.ПустаяСсылка()) или (НЕ Корреспонденция.СчетДт.Количественный) Тогда Корреспонденция.КоличествоДт = 0; КонецЕсли; Если (Корреспонденция.СчетКт = ПланыСчетов.Хозрасчетный.ПустаяСсылка()) или (НЕ Корреспонденция.СчетКт.Количественный) Тогда Корреспонденция.КоличествоКт = 0; КонецЕсли; КонецЦикла; <Приемник>ДокументСсылка.ОперацияБух <Свойства> <Свойство Поиск="true"> <Код>19 <Наименование> --> Дата <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>20 <Наименование> --> Организация <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>21 <Наименование> --> Комментарий <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные.Получить("Комментарий"))=0 Тогда Значение = ВходящиеДанные.Получить("Комментарий"); Иначе ПолучитьКомментарийДокумента(); КонецЕсли; <Свойство Поиск="true"> <Код>22 <Наименование> --> Содержание <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные.Получить("Содержание"))=0 Тогда Значение = ВходящиеДанные.Получить("Содержание"); Иначе Если ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1 Тогда РегистрБух = " (налоговый учет)"; Иначе РегистрБух = " (бухгалтерский учет)"; КонецЕсли; Счет = ВходящиеДанные.Получить("Счет"); Значение = "Итоги по счету " + Счет + РегистрБух; Счет = ?(ТипЗначения(Счет) = 2, Счет, Счет.Код); КонецЕсли; <Группа> <Код>1 <Наименование> --> Хозрасчетный <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Хозрасчетный" Вид="НаборДвиженийРегистраБухгалтерии"/> <ПередОбработкойВыгрузки>Если (ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 1) И (ПустоеЗначение(ВходящиеДанные.Получить("Налоговый")) = 1) Тогда Отказ = 1; Иначе Если ПустоеЗначение(ВходящиеДанные.Получить("Хозрасчетный")) = 0 Тогда КоллекцияОбъектов = ВходящиеДанные.Получить("Хозрасчетный"); КоллекцияОбъектов.НоваяКолонка("СуммаНУДт", "Число"); КоллекцияОбъектов.НоваяКолонка("СуммаПРДт", "Число"); КоллекцияОбъектов.НоваяКолонка("СуммаВРДт", "Число"); КоллекцияОбъектов.НоваяКолонка("СуммаНУКт", "Число"); КоллекцияОбъектов.НоваяКолонка("СуммаПРКт", "Число"); КоллекцияОбъектов.НоваяКолонка("СуммаВРКт", "Число"); КоллекцияОбъектов.НоваяКолонка("Содержание", "Строка"); Иначе КоллекцияОбъектов = ВходящиеДанные.Получить("Налоговый"); КоллекцияОбъектов.НоваяКолонка("Содержание", "Строка"); КонецЕсли; КонецЕсли; КоллекцияОбъектов.НоваяКолонка("Активность", "Число"); Если ПустоеЗначение(ВходящиеДанные.Получить("Активность"))=0 Тогда Если ВходящиеДанные.Получить("Активность")=1 Тогда КоллекцияОбъектов.Заполнить(1,,,"Активность"); Иначе КоллекцияОбъектов.Заполнить(0,,,"Активность"); КонецЕсли; Иначе КоллекцияОбъектов.Заполнить(1,,,"Активность"); КонецЕсли; <ПередВыгрузкой>//*************************************** //в зависимости от типа счета устанавливаем значения Сумма, СуммаНУ,СуммаПР, СуммаВР СуммаПроводки = ОбъектКоллекции.Сумма; СписокСчетовНУ = Параметры.СписокСчетовНалоговогоУчетаНУ; СписокСчетовПР = Параметры.СписокСчетовНалоговогоУчетаПР; СписокСчетовУчетаРасчетов = Параметры.СписокСчетовУчетаРасчетов; ТипСчетаДт = ?(ПустоеЗначение(ОбъектКоллекции.СчетДт)=0,?(СписокСчетовНУ.НайтиЗначение(ОбъектКоллекции.СчетДт)>0,"НУ",?(СписокСчетовПР.НайтиЗначение(ОбъектКоллекции.СчетДт)>0,"ПР","БУ")),""); ТипСчетаКт = ?(ПустоеЗначение(ОбъектКоллекции.СчетКт)=0,?(СписокСчетовНУ.НайтиЗначение(ОбъектКоллекции.СчетКт)>0,"НУ",?(СписокСчетовПР.НайтиЗначение(ОбъектКоллекции.СчетКт)>0,"ПР","БУ")),""); СчетДтРасчетный = ?(ПустоеЗначение(ОбъектКоллекции.СчетДт)=0, ?(СписокСчетовУчетаРасчетов.НайтиЗначение(ОбъектКоллекции.СчетДт)>0, 1, 0), 0); СчетКтРасчетный = ?(ПустоеЗначение(ОбъектКоллекции.СчетКт)=0, ?(СписокСчетовУчетаРасчетов.НайтиЗначение(ОбъектКоллекции.СчетКт)>0, 1, 0), 0); Если (ТипСчетаДт<>"БУ")и(ТипСчетаКт<>"БУ") Тогда ОбъектКоллекции.Сумма = 0; КонецЕсли; Если (ТипСчетаДт = "НУ") ИЛИ (СчетДтРасчетный = 1) Тогда ОбъектКоллекции.СуммаНУДт = СуммаПроводки; ОбъектКоллекции.СуммаПРДт = 0; ОбъектКоллекции.КоличествоДт = 0; ИначеЕсли ТипСчетаДт = "ПР" Тогда ОбъектКоллекции.СуммаНУДт = 0; ОбъектКоллекции.СуммаПРДт = СуммаПроводки; ОбъектКоллекции.КоличествоДт = 0; КонецЕсли; ОбъектКоллекции.СуммаВРДт = ОбъектКоллекции.Сумма - ОбъектКоллекции.СуммаНУДт - ОбъектКоллекции.СуммаПРДт; Если (ТипСчетаКт = "НУ") ИЛИ (СчетКтРасчетный = 1) Тогда ОбъектКоллекции.СуммаНУКт = СуммаПроводки; ОбъектКоллекции.СуммаПРКт = 0; ОбъектКоллекции.КоличествоКт = 0; ИначеЕсли ТипСчетаКт = "ПР" Тогда ОбъектКоллекции.СуммаНУКт = 0; ОбъектКоллекции.СуммаПРКт = СуммаПроводки; ОбъектКоллекции.КоличествоКт = 0; КонецЕсли; ОбъектКоллекции.СуммаВРКт = ОбъектКоллекции.Сумма - ОбъектКоллекции.СуммаНУКт - ОбъектКоллекции.СуммаПРКт; Если ПустоеЗначение(ОбъектКоллекции.КодСчетаДт) = 1 Тогда //для некоторых счетов один счет в исходной базе может соответствовать нескольким счетам Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетДт); Параметры.ПараметрыАлгоритмов.Установить("СписокСубконто",ОбъектКоллекции.СубконтоДт); ПолучитьКодСчетаДополнительный( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,,,,,,,, ОбъектКоллекции,,,,,,,,,,,,,,,,, УзелКоллекцииОбъектов,,,,, Отказ); ОбъектКоллекции.КодСчетаДт = Параметры.ПараметрыАлгоритмов.Получить("КодСчета"); КонецЕсли; Если ПустоеЗначение(ОбъектКоллекции.КодСчетаКт) = 1 Тогда //для некоторых счетов один счет в исходной базе может соответствовать нескольким счетам Параметры.ПараметрыАлгоритмов.Установить("Счет",ОбъектКоллекции.СчетКт); Параметры.ПараметрыАлгоритмов.Установить("СписокСубконто",ОбъектКоллекции.СубконтоКт); ПолучитьКодСчетаДополнительный( ИсходящиеДанные, ВходящиеДанные, Источник, Приемник,,,,,,,, ОбъектКоллекции,,,,,,,,,,,,,,,,, УзелКоллекцииОбъектов,,,,, Отказ); ОбъектКоллекции.КодСчетаКт = Параметры.ПараметрыАлгоритмов.Получить("КодСчета"); КонецЕсли; //*************************************** СчетДт = ?(ПустоеЗначение(ОбъектКоллекции.КодСчетаДт) = 1, ОбъектКоллекции.СчетДт, ОбъектКоллекции.КодСчетаДт); СчетКт = ?(ПустоеЗначение(ОбъектКоллекции.КодСчетаКт) = 1, ОбъектКоллекции.СчетКт, ОбъектКоллекции.КодСчетаКт); СчетДтЗабалансовый = 0; СчетКтЗабалансовый = 0; Если (ПустоеЗначение(СчетДт) = 1) и (ПустоеЗначение(СчетКт) = 1) Тогда Сообщить("Попытка выгрузки проводки без указания счетов дебета и кредита. Проводка не выгружена."); Отказ = 1; Иначе Если ТипЗначенияСтр(СчетДт) = "Счет" Тогда СчетДтЗабалансовый = ?(ТипСчетаДт = "БУ", ОбъектКоллекции.СчетДт.Забалансовый,0); //СчетДт = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(СчетДт, "Хозрасчетный"), "Значения").Получить(Строка(СчетДт)); Иначе СчетДтЗабалансовый = 0; КонецЕсли; Если ТипЗначенияСтр(СчетКт) = "Счет" Тогда СчетКтЗабалансовый = ?(ТипСчетаКт = "БУ", ОбъектКоллекции.СчетКт.Забалансовый,0); //СчетКт = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(СчетКт, "Хозрасчетный"), "Значения").Получить(Строка(СчетКт)); Иначе СчетКтЗабалансовый = 0; КонецЕсли; //если СчетДт пустой - то если СчетКт налоговый или постоянные разницы, то установим "00" в СчетДт //так как счета НУ и ПР преобразуются в балансовые счета и им нужна корреспонденция Если (ПустоеЗначение(СчетДт)=1) и (СчетКтЗабалансовый = 0) Тогда ОбъектКоллекции.СчетДт = СчетПоКоду("00"); КонецЕсли; //если СчетКт пустой - то если СчетДт налоговый или постоянные разницы, то установим "00" в СчетДт //так как счета НУ и ПР преобразуются в балансовые счета и им нужна корреспонденция Если (ПустоеЗначение(СчетКт)=1) и (СчетДтЗабалансовый = 0) Тогда ОбъектКоллекции.СчетКт = СчетПоКоду("00"); КонецЕсли; КонецЕсли; //Для отдельных счетов всегда отражаем в НУ Если Отказ <> 1 Тогда Если (СчетДтЗабалансовый = 1) Тогда Если (ОбъектКоллекции.СчетДт = СчетПоКоду("ВАЛ.60")) ИЛИ (ОбъектКоллекции.СчетДт = СчетПоКоду("ВАЛ.62")) ИЛИ (ОбъектКоллекции.СчетДт = СчетПоКоду("УЕ.60")) ИЛИ (ОбъектКоллекции.СчетДт = СчетПоКоду("УЕ.62")) Тогда ОбъектКоллекции.СуммаНУДт = ОбъектКоллекции.Сумма; ОбъектКоллекции.Сумма = 0; ОбъектКоллекции.ВалютнаяСуммаДт = 0; ОбъектКоллекции.СчетКт = СчетПоКоду("00"); КонецЕсли; КонецЕсли; Если (СчетКтЗабалансовый = 1) Тогда Если (ОбъектКоллекции.СчетКт = СчетПоКоду("ВАЛ.60")) ИЛИ (ОбъектКоллекции.СчетКт = СчетПоКоду("ВАЛ.62")) ИЛИ (ОбъектКоллекции.СчетКт = СчетПоКоду("УЕ.60")) ИЛИ (ОбъектКоллекции.СчетКт = СчетПоКоду("УЕ.62")) Тогда ОбъектКоллекции.СуммаНУКт = ОбъектКоллекции.Сумма; ОбъектКоллекции.Сумма = 0; ОбъектКоллекции.ВалютнаяСуммаКт = 0; ОбъектКоллекции.СчетДт = СчетПоКоду("00"); КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>4 <Наименование> --> Период <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("Дата"); <Свойство> <Код>5 <Наименование> --> СчетДт <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДт" Вид="Свойство" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("КодСчета", ОбъектКоллекции.КодСчетаДт); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетДт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; <ПриВыгрузке>Если ПустоеЗначение(ОбъектКоллекции.КодСчетаДт) = 0 Тогда ИмяПКО = ""; Значение = ОбъектКоллекции.КодСчетаДт; Иначе Счет = ОбъектКоллекции.СчетДт; ВходящиеДанные.Установить("СчетДт", Счет); ИмяПКО = "Хозрасчетный"; КонецЕсли; <Свойство> <Код>7 <Наименование> --> СубконтоДт <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт" Вид="ВидыСубконтоСчета"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Если ПустоеЗначение(ОбъектКоллекции.СчетДт) = 0 Тогда Счет = ОбъектКоллекции.СчетДт; Если (Счет.ПринадлежитГруппе(СчетПоКоду("60")) = 1) или (Счет.ПринадлежитГруппе(СчетПоКоду("62")) = 1) или (Счет = СчетПоКоду("76.5")) или (Счет = СчетПоКоду("76.6")) или (Счет = СчетПоКоду("76.55")) Тогда Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() = 2 Тогда ОбъектКоллекции.СубконтоДт.НоваяСтрока(); ОбъектКоллекции.СубконтоДт.Ключ = ПолучитьПустоеЗначение(); ОбъектКоллекции.СубконтоДт.Значение = ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(2, "Значение"); КонецЕсли; КонецЕсли; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <ПриВыгрузке>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетДт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоДт.КоличествоСтрок() > 3 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; НомерСубконто = ОбъектКоллекции.СубконтоДт.НомерСтроки; Для Сч = 1 по 3 Цикл Если ОбъектКоллекции.СчетДт.ВидСубконто(Сч) = ОбъектКоллекции.СубконтоДт.Ключ Тогда НомерСубконто = Сч; Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоДт.Значение); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ПриВыгрузкеСубконто(); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", ""); <Свойство> <Код>6 <Наименование> --> СчетКт <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКт" Вид="Свойство" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("КодСчета", ОбъектКоллекции.КодСчетаКт); Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетКт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; <ПриВыгрузке>Если ПустоеЗначение(ОбъектКоллекции.КодСчетаКт) = 0 Тогда ИмяПКО = ""; Значение = ОбъектКоллекции.КодСчетаКт; Иначе ИмяПКО = "Хозрасчетный"; КонецЕсли; <Свойство> <Код>8 <Наименование> --> СубконтоКт <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт" Вид="ВидыСубконтоСчета"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Если ПустоеЗначение(ОбъектКоллекции.СчетКт) = 0 Тогда Счет = ОбъектКоллекции.СчетКт; Если (Счет.ПринадлежитГруппе(СчетПоКоду("60")) = 1) или (Счет.ПринадлежитГруппе(СчетПоКоду("62")) = 1) или (Счет = СчетПоКоду("76.5")) или (Счет = СчетПоКоду("76.6")) или (Счет = СчетПоКоду("76.55")) Тогда Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() = 2 Тогда ОбъектКоллекции.СубконтоКт.НоваяСтрока(); ОбъектКоллекции.СубконтоКт.Ключ = ПолучитьПустоеЗначение(); ОбъектКоллекции.СубконтоКт.Значение = ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(2, "Значение"); КонецЕсли; КонецЕсли; //************** //Если (Счет.ПринадлежитГруппе(СчетПоКоду("10.11")) = 1) // ИЛИ (Счет.ПринадлежитГруппе(СчетПоКоду("МЦ")) = 1) Тогда // Для НомерСтроки = 1 По ОбъектКоллекции.СубконтоКт.КоличествоСтрок() Цикл // ТекЗнач = ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(НомерСтроки, "Значение"); // Если ТипЗначенияСтр(ТекЗнач) = "Справочник" Тогда // Если ТекЗнач.Вид() = "НазначенияИспользования" Тогда // Отказ = 1; // Прервать; // КонецЕсли; // КонецЕсли; // КонецЦикла; //КонецЕсли; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <ПриВыгрузке>Параметры.ПараметрыАлгоритмов.Установить("Счет", ОбъектКоллекции.СчетКт); Если ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто1", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(1, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 2 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто2", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(2, "Значение")); КонецЕсли; Если ОбъектКоллекции.СубконтоКт.КоличествоСтрок() > 3 Тогда Параметры.ПараметрыАлгоритмов.Установить("Субконто3", ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(3, "Значение")); КонецЕсли; КонецЕсли; НомерСубконто = ОбъектКоллекции.СубконтоКт.НомерСтроки; Для Сч = 1 по 3 Цикл Если ОбъектКоллекции.СчетКт.ВидСубконто(Сч) = ОбъектКоллекции.СубконтоКт.Ключ Тогда НомерСубконто = Сч; Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", НомерСубконто); Параметры.ПараметрыАлгоритмов.Установить("Субконто", ОбъектКоллекции.СубконтоКт.Значение); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 2); ПриВыгрузкеСубконто(); Параметры.ПараметрыАлгоритмов.Установить("НомерСубконто", ""); <Свойство> <Код>9 <Наименование> --> Организация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>10 <Наименование> --> ВалютаДт <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДт" Вид="Измерение" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Отказ = ПустоеЗначение(ОбъектКоллекции.СчетДт); <Свойство> <Код>11 <Наименование> --> ВалютаКт <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаКт" Вид="Измерение" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Отказ = ПустоеЗначение(ОбъектКоллекции.СчетКт); <Свойство> <Код>12 <Наименование> --> Сумма <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> ВалютнаяСуммаДт <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютнаяСуммаДт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> ВалютнаяСуммаКт <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютнаяСуммаКт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> КоличествоДт <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоДт" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>Отказ = ПустоеЗначение(ОбъектКоллекции.СчетДт); <Свойство> <Код>16 <Наименование> --> КоличествоКт <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоКт" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>Отказ = ПустоеЗначение(ОбъектКоллекции.СчетКт); <Свойство> <Код>17 <Наименование> --> Содержание <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ПолучитьЗначение(ОбъектКоллекции.НомерСтроки,"Содержание"); //Если ОбъектКоллекции.ПолучитьПараметрыКолонки("Содержание")=0 Тогда // Значение = "Перенесено из ""1С:Бухгалтерии 7.7"""; //ИначеЕсли ПустоеЗначение(ОбъектКоллекции.Содержание)=0 Тогда // Значение = ОбъектКоллекции.Содержание; //Иначе // Значение = "Перенесено из ""1С:Бухгалтерии 7.7"""; //КонецЕсли; <Свойство> <Код>38 <Наименование> --> СуммаНУДт <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУДт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> СуммаПРДт <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПРДт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СуммаВРДт <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРДт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>40 <Наименование> --> СуммаНУКт <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУКт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>41 <Наименование> --> СуммаПРКт <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПРКт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>42 <Наименование> --> СуммаВРКт <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВРКт" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> ПодразделениеДт <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеДт" Вид="Измерение" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Если ТипЗначенияСтр(ОбъектКоллекции.СубконтоДт) = "ТаблицаЗначений" Тогда Если (ПустоеЗначение(ОбъектКоллекции.СчетДт) = 0) Тогда Если (Лев(ОбъектКоллекции.СчетДт.Код,2) <> "79") Тогда Для НомерСтроки = 1 По ОбъектКоллекции.СубконтоДт.КоличествоСтрок() Цикл ТекЗнач = ОбъектКоллекции.СубконтоДт.ПолучитьЗначение(НомерСтроки, "Значение"); Если ТипЗначенияСтр(ТекЗнач) = "Справочник" Тогда Если (ТекЗнач.Вид() = "Подразделения") ИЛИ (ТекЗнач.Вид() = "РасходыБудущихПериодов") Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ТекЗнач); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; Отказ = ПустоеЗначение(Значение); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>44 <Наименование> --> ПодразделениеКт <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеКт" Вид="Измерение" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Если ТипЗначенияСтр(ОбъектКоллекции.СубконтоКт) = "ТаблицаЗначений" Тогда Если (ПустоеЗначение(ОбъектКоллекции.СчетКт) = 0) Тогда Если (Лев(ОбъектКоллекции.СчетКт.Код,2) <> "79") Тогда Для НомерСтроки = 1 По ОбъектКоллекции.СубконтоКт.КоличествоСтрок() Цикл ТекЗнач = ОбъектКоллекции.СубконтоКт.ПолучитьЗначение(НомерСтроки, "Значение"); Если ТипЗначенияСтр(ТекЗнач) = "Справочник" Тогда Если (ТекЗнач.Вид() = "Подразделения") ИЛИ (ТекЗнач.Вид() = "РасходыБудущихПериодов") Тогда Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ТекЗнач); Значение = ПолучитьПодразделениеИзСубконто(); Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; Отказ = ПустоеЗначение(Значение); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>46 <Наименование> --> Активность <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>45 <Наименование> --> СпособЗаполнения <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗаполнения" Вид="Реквизит"/> <ПередВыгрузкой>Значение = "Вручную"; <Свойство> <Код>47 <Наименование> --> СуммаОперации <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаОперации" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Хозрасчетный = ВходящиеДанные.Получить("Хозрасчетный"); Если ПустоеЗначение(Хозрасчетный) = 0 Тогда Значение = Хозрасчетный.Итог("Сумма"); КонецЕсли; <Значения/> <Группа> <Код>ВводОстатков <Наименование>ВводОстатков <Порядок>250 <Правило> <Код>ВводНачальныхОстатковНМАИНИОКР <Наименование> --> ДокументСсылка.ПринятиеКУчетуНМА <Порядок>150 <ПередВыгрузкой>Если ВходящиеДанные.Получить("НМА").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>ПровестиЗаписьНеЗаписанныхОбъектов(); <Приемник>ДокументСсылка.ВводНачальныхОстатков <Свойства> <Группа> <Код>24 <Наименование> --> НМА <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НМА" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = ВходящиеДанные.Получить("НМА"); КоллекцияОбъектов.НоваяКолонка("СпособПоступления"); КоллекцияОбъектов.НоваяКолонка("СпособОтраженияРасходов"); КоллекцияОбъектов.НоваяКолонка("МетодНачисленияАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("СпособНачисленияАмортизацииБУ"); КоллекцияОбъектов.НоваяКолонка("НачислятьАмортизациюБУ"); КоллекцияОбъектов.НоваяКолонка("НачислятьАмортизациюНУ"); КоллекцияОбъектов.НоваяКолонка("ВидОбъектаУчета"); КоллекцияОбъектов.НоваяКолонка("АмортизацияДо2009"); КоллекцияОбъектов.НоваяКолонка("ФактическийСрокИспользованияДо2009"); КоллекцияОбъектов.НоваяКолонка("ПорядокСписанияНИОКРНаРасходыНУ"); Параметры.БУ_ДатаКонца = СоздатьОбъект("БухгалтерскиеИтоги"); Параметры.БУ_ДатаКонца.ПериодМ(Параметры.ДатаКонцаПериодаВыгрузки); <ПередВыгрузкой>ОбъектКоллекции.СпособПоступления = ОбъектКоллекции.НМА.СпособПоступления; ОбъектКоллекции.СпособОтраженияРасходов = ОбъектКоллекции.НМА; ОбъектКоллекции.МетодНачисленияАмортизацииНУ = ОбъектКоллекции.НМА.МетодНачисленияАмортизации; ОбъектКоллекции.СпособНачисленияАмортизацииБУ = ОбъектКоллекции.НМА.СпособНачисленияАмортизации; НМА = ОбъектКоллекции.НМА; ОбъектКоллекции.ВидОбъектаУчета = ?(НМА.ВидОбъектаУчета = 0, "НематериальныйАктив", "РасходыНаНИОКР"); Если (ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив") Тогда Если (НМА.ПорядокНачисленияАмортизации <> 0) и (НМА.ПервоначальнаяСтоимостьН <> 0) Тогда ОбъектКоллекции.НачислятьАмортизациюНУ = 1; Иначе ОбъектКоллекции.НачислятьАмортизациюНУ = 0; КонецЕсли; Иначе Если НМА.ПорядокНачисленияАмортизации = 1 Тогда ОбъектКоллекции.ПорядокСписанияНИОКРНаРасходыНУ = "НеСписывать"; Иначе ОбъектКоллекции.ПорядокСписанияНИОКРНаРасходыНУ = "Равномерно"; КонецЕсли; КонецЕсли; Если (НМА.ПорядокНачисленияАмортизации <> 1) и (НМА.ПервоначальнаяСтоимость <> 0) Тогда ОбъектКоллекции.НачислятьАмортизациюБУ = 1; Иначе ОбъектКоллекции.НачислятьАмортизациюБУ = 0; КонецЕсли; //сведения о НМА до 2009 г. Если (Константа.МетодНачисленияАмортизацииНУ.Получить(Параметры.ДатаВводаОстатков - 1) = Перечисление.МетодыНачисленияАмортизации.Линейный) ИЛИ (((НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ВосьмаяГруппа) ИЛИ (НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДевятаяГруппа) ИЛИ (НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДесятаяГруппа))) ИЛИ ((НМА.МетодНачисленияАмортизации = Перечисление.МетодыНачисленияАмортизации.Линейный) И (НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ОтдельнаяГруппа)) Тогда ДатаПереходаНаЛинейныйМетод ='01.01.2009'; Если НМА.СрокПолезногоИспользованияН > 0 Тогда Если (ПустоеЗначение(НМА.Состояние.Получить(ДатаПереходаНаЛинейныйМетод)) = 1) ИЛИ ((НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ВосьмаяГруппа) ИЛИ (НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДевятаяГруппа) ИЛИ (НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДесятаяГруппа) ИЛИ (НМА.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ОтдельнаяГруппа)) ИЛИ ((ПустоеЗначение(НМА.Состояние.Получить('31.12.2008')) = 0) И (НМА.МетодНачисленияАмортизации = Перечисление.МетодыНачисленияАмортизации.Линейный)) Тогда //Условие выполняется для объектов принятых в период применения линейного метода, для объектов // отдельной группы, по которым применялся линейный метод, для объектов по которым до 2009 г. // применялся нелинейный метод, отдельным объектам 8-9 групп для которых всегда применяется линейный метод Иначе БухИтЛ = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтЛ .Актуальность(1); БухИтЛ.ПериодМ(ДатаПереходаНаЛинейныйМетод); ЛинейныйНачисленнаяАмортизацияНалог = БухИтЛ.СНК("Н05.04",,, НМА); Если ПустоеЗначение (НМА.ДатаПринятияКУчету) = 1 Тогда ОставшийсяСрокПолезногоИспользования = 0; Иначе СрокЭксплуатацииЛет = Макс(0, (ДатаГод(ДатаПереходаНаЛинейныйМетод) - ДатаГод(НМА.ДатаПринятияКУчету))*12 - 1); СрокЭксплуатации = СрокЭксплуатацииЛет + (ДатаМесяц(ДатаПереходаНаЛинейныйМетод) - ДатаМесяц(НМА.ДатаПринятияКУчету)); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; ОбъектКоллекции.ФактическийСрокИспользованияДо2009= СрокЭксплуатации; ОбъектКоллекции.АмортизацияДо2009 = ЛинейныйНачисленнаяАмортизацияНалог; <Свойство> <Код>3 <Наименование> --> ВидОбъектаУчета <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОбъектаУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОбъектовУчетаНМА"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ВидОбъектаУчета; <Свойство> <Код>4 <Наименование> --> СпособОтраженияРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходов" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>Значение = ОбъектКоллекции.НМА; <Свойство> <Код>5 <Наименование> --> НачислятьАмортизациюБУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизациюБУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НачислятьАмортизациюБУ; <Свойство> <Код>13 <Наименование> --> МетодНачисленияАмортизацииНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="МетодНачисленияАмортизацииНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.МетодыНачисленияАмортизации"/> <КодПравилаКонвертации>МетодыНачисленияАмортизации <ПередВыгрузкой>ВыбСпособ = ОбъектКоллекции.МетодНачисленияАмортизацииНУ; Если ПустоеЗначение(ВыбСпособ) = 1 Тогда ВыбСпособ = ""; Иначе ВыбСпособ = ВыбСпособ.Идентификатор(); КонецЕсли; Значение = ВыбСпособ; <Свойство> <Код>6 <Наименование> --> НачислятьАмортизациюНУ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизациюНУ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда Значение = ОбъектКоллекции.НачислятьАмортизациюНУ; Иначе Значение = ОбъектКоллекции.СписыватьРасходыНУ; КонецЕсли; <Свойство> <Код>17 <Наименование> --> СтоимостьБУ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ПервоначальнаяСтоимостьБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НМА.ПервоначальнаяСтоимость; <Свойство> <Код>18 <Наименование> --> СтоимостьНУ <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПервоначальнаяСтоимостьНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда Значение = ОбъектКоллекции.НМА.ПервоначальнаяСтоимостьН; Иначе Значение = ОбъектКоллекции.ПервоначальнаяСтоимостьНУ; КонецЕсли; <Свойство Поиск="true"> <Код>7 <Наименование> --> НематериальныйАктив <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="НематериальныйАктив" Вид="Реквизит" Тип="СправочникСсылка.НематериальныеАктивы"/> <КодПравилаКонвертации>НематериальныеАктивы <ПередВыгрузкой>Значение = ОбъектКоллекции.НМА; <Свойство> <Код>8 <Наименование> --> ОбъемПродукцииРаботДляВычисленияАмортизации <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъемПродукцииРаботДляВычисленияАмортизации" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НМА.ОбщийОбъемПродукцииРабот; <Свойство> <Код>11 <Наименование> --> СпециальныйКоэффициентНУ <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СпециальныйКоэффициентНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НМА.СпециальныйКоэффициент.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>12 <Наименование> --> СпособНачисленияАмортизацииБУ <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СпособНачисленияАмортизацииБУ" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыНачисленияАмортизацииНМА"/> <КодПравилаКонвертации>СпособыНачисленияАмортизацииНМА <ПередВыгрузкой>ВыбСпособ = ОбъектКоллекции.СпособНачисленияАмортизацииБУ; Если ПустоеЗначение(ВыбСпособ) = 1 Тогда ВыбСпособ = ""; Иначе ВыбСпособ = ВыбСпособ.Идентификатор(); КонецЕсли; Значение = ВыбСпособ; <Свойство> <Код>14 <Наименование> --> СпособПоступления <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПоступления" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПоступленияАктивов"/> <КодПравилаКонвертации>СпособыПоступленияНМА <ПередВыгрузкой>ВыбСпособ = ОбъектКоллекции.СпособПоступления; Если ПустоеЗначение(ВыбСпособ) = 1 Тогда ВыбСпособ = "ПриобретениеЗаПлату"; Иначе ВыбСпособ = ВыбСпособ.Идентификатор(); КонецЕсли; Значение = ВыбСпособ; <Свойство> <Код>15 <Наименование> --> СрокПолезногоИспользованияБУ <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НМА.СрокПолезногоИспользования; <Свойство> <Код>16 <Наименование> --> СрокПолезногоИспользованияНУ <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда Значение = ОбъектКоллекции.НМА.СрокПолезногоИспользованияН; Иначе Значение = ОбъектКоллекции.СрокИспользованияНУ; КонецЕсли; <Свойство> <Код>19 <Наименование> --> СчетНачисленияАмортизацииБУ <Порядок>2000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНачисленияАмортизацииБУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ?(ОбъектКоллекции.НМА.ПорядокНачисленияАмортизации = 2, "05", "04.01"); <Свойство> <Код>21 <Наименование> --> СчетУчетаБУ <Порядок>2200 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаБУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ?(ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив", "04.01", "04.02"); <Свойство> <Код>30 <Наименование> --> ДатаПринятияКУчетуРегл <Порядок>2350 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПринятияКУчетуРегл" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НМА.ДатаПринятияКУчету; <Свойство> <Код>31 <Наименование> --> ТекущаяСтоимостьБУ <Порядок>2400 <Источник Имя="" Вид=""/> <Приемник Имя="ТекущаяСтоимостьБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СтоимостьБУ; <Свойство> <Код>32 <Наименование> --> ТекущаяСтоимостьНУ <Порядок>2450 <Источник Имя="" Вид=""/> <Приемник Имя="ТекущаяСтоимостьНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СтоимостьНУ; <Свойство> <Код>33 <Наименование> --> ТекущаяСтоимостьПР <Порядок>2500 <Источник Имя="" Вид=""/> <Приемник Имя="ТекущаяСтоимостьПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СтоимостьПР; <Свойство> <Код>34 <Наименование> --> ТекущаяСтоимостьВР <Порядок>2550 <Источник Имя="" Вид=""/> <Приемник Имя="ТекущаяСтоимостьВР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>ЗначениеБУ = ОбъектКоллекции.СтоимостьБУ; ЗначениеНУ = ОбъектКоллекции.СтоимостьНУ; ЗначениеПР = ОбъектКоллекции.СтоимостьПР; Значение = ЗначениеБУ - ЗначениеНУ - ЗначениеПР; <Свойство> <Код>35 <Наименование> --> НакопленнаяАмортизацияБУ <Порядок>2600 <Источник Имя="" Вид=""/> <Приемник Имя="НакопленнаяАмортизацияБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда Значение = ОбъектКоллекции.АмортизацияБУ; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>36 <Наименование> --> НакопленнаяАмортизацияНУ <Порядок>2650 <Источник Имя="" Вид=""/> <Приемник Имя="НакопленнаяАмортизацияНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда Значение = ОбъектКоллекции.АмортизацияНУ; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>37 <Наименование> --> НакопленнаяАмортизацияПР <Порядок>2700 <Источник Имя="" Вид=""/> <Приемник Имя="НакопленнаяАмортизацияПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда Значение = ОбъектКоллекции.АмортизацияПР; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>38 <Наименование> --> НакопленнаяАмортизацияВР <Порядок>2750 <Источник Имя="" Вид=""/> <Приемник Имя="НакопленнаяАмортизацияВР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда ЗначениеБУ = ОбъектКоллекции.АмортизацияБУ; Иначе ЗначениеБУ = 0; КонецЕсли; Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда ЗначениеНУ = ОбъектКоллекции.АмортизацияНУ; Иначе ЗначениеНУ = 0; КонецЕсли; Если ОбъектКоллекции.ВидОбъектаУчета = "НематериальныйАктив" Тогда ЗначениеПР = ОбъектКоллекции.АмортизацияПР; Иначе ЗначениеПР = 0; КонецЕсли; Значение = ЗначениеБУ - ЗначениеНУ - ЗначениеПР; <Свойство> <Код>41 <Наименование> --> АмортизацияДо2009 <Порядок>2800 <Источник Имя="" Вид=""/> <Приемник Имя="АмортизацияДо2009" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.АмортизацияДо2009; <Свойство> <Код>42 <Наименование> --> ФактическийСрокИспользованияДо2009 <Порядок>2850 <Источник Имя="" Вид=""/> <Приемник Имя="ФактическийСрокИспользованияДо2009" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ФактическийСрокИспользованияДо2009; <Свойство> <Код>43 <Наименование> --> ПорядокСписанияНИОКРНаРасходыНУ <Порядок>2900 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокСписанияНИОКРНаРасходыНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокСписанияНИОКРНУ"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ПорядокСписанияНИОКРНаРасходыНУ; <Свойство Поиск="true"> <Код>1 <Наименование> --> Дата <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>27 <Наименование> --> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>28 <Наименование> --> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "# Перенесено из 1С:Бухгалтерии 7.7 # " + ВходящиеДанные.Получить("ВидОбъектаУчета") + " " + ВходящиеДанные.Получить("ОтражатьВНУ"); <Свойство Поиск="true"> <Код>9 <Наименование> --> Организация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>10 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВБухгалтерскомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>26 <Наименование> --> ФормироватьПроводки <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВНалоговомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>40 <Наименование> --> ФормироватьПроводки <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьПоСпециальнымРегистрам" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>29 <Наименование> --> РазделУчета <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РазделУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.РазделыУчетаДляВводаОстатков"/> <Значения/> <Правило> <Код>ВводНачальныхОстатков <Наименование> --> ДокументСсылка.ВводНачальныхОстатков <Порядок>150 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные.Получить("РазделУчета")) = 1 Тогда Отказ = 1; КонецЕсли; Если (ВходящиеДанные.Получить("РазделУчета") = "НДСПоПриобретеннымЦенностям") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "НДСПоАвансамПолученным") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "НДСНачисленный") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "ОсновныеСредства") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "НематериальныеАктивыИНИОКР") Тогда Отказ = 1; КонецЕсли; Если ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>ПровестиЗаписьНеЗаписанныхОбъектов(); ТаблицаРасчетыПоЗаработнойПлате = Объект.РасчетыПоЗаработнойПлате; Если ТаблицаРасчетыПоЗаработнойПлате.Количество() <> 0 Тогда Для Каждого СтрокаТаблицы ИЗ ТаблицаРасчетыПоЗаработнойПлате Цикл Если СтрокаТаблицы.СчетУчета = ПланыСчетов.Хозрасчетный.РасчетыПоДепонированнымСуммам Тогда ДокументДепонирования = СтрокаТаблицы.Ведомость.ПолучитьОбъект(); ДокументДепонирования.Зарплата.Очистить(); ДокументДепонирования.Записать(); КонецЕсли; КонецЦикла; Для Каждого СтрокаТаблицы ИЗ ТаблицаРасчетыПоЗаработнойПлате Цикл Если СтрокаТаблицы.СчетУчета = ПланыСчетов.Хозрасчетный.РасчетыПоДепонированнымСуммам Тогда ДокументДепонирования = СтрокаТаблицы.Ведомость.ПолучитьОбъект(); НоваяСтрокаДокумента = ДокументДепонирования.Зарплата.Добавить(); НоваяСтрокаДокумента.ФизЛицо = СтрокаТаблицы.РаботникОрганизации; НоваяСтрокаДокумента.Сумма = СтрокаТаблицы.Сумма; НоваяСтрокаДокумента.ВыплаченностьЗарплаты = Перечисления.ВыплаченностьЗарплаты.Задепонировано; ДокументДепонирования.Записать(); КонецЕсли; КонецЦикла; КонецЕсли; //************************************************************** Если (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.НезавершенноеПроизводство) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.РасчетыСУчредителями) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.Капитал) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.ОтложенныеНалоговыеАктивыОбязательства) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.ПрочиеСчетаБухгалтерскогоУчета) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.ДенежныеСредства) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.РасходыБудущихПериодов) Тогда КоллекцияОбъектов = Объект.БухСправка; //обрабатываем субконто БУ Параметры.ПараметрыАлгоритмов.Очистить(); Параметры.ПараметрыАлгоритмов.Вставить("ИмяТабличнойЧасти", "БухСправка"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСчета","СчетУчета"); Параметры.ПараметрыАлгоритмов.Вставить("ИмяСубконто","Субконто"); Выполнить(Алгоритмы.ОбработкаСубконтоПослеЗагрузки); Для Каждого СтрокаКоллекции ИЗ КоллекцияОбъектов Цикл Если СтрокаКоллекции.СчетУчета.НалоговыйУчет Тогда Если СтрокаКоллекции.СуммаНУ = 0 И СтрокаКоллекции.СуммаПР = 0 И СтрокаКоллекции.СуммаВР = 0 Тогда СуммаДляНУ = ?(СтрокаКоллекции.Сумма <> 0, СтрокаКоллекции.Сумма, СтрокаКоллекции.СуммаКт); Если СуммаДляНУ <> 0 Тогда СтрокаКоллекции.СуммаНУ = 0; СтрокаКоллекции.СуммаПР = 0; СтрокаКоллекции.СуммаВР = СуммаДляНУ; КонецЕсли; КонецЕсли; Иначе СтрокаКоллекции.СуммаНУ = 0; СтрокаКоллекции.СуммаПР = 0; СтрокаКоллекции.СуммаВР = 0; КонецЕсли; КонецЦикла; ИначеЕсли (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.КапитальныеВложения) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.Материалы) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.Товары) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.ГотоваяПродукцияИПолуфабрикаты) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.ТоварыОтгруженные) Тогда Если Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.ТоварыОтгруженные Тогда КоллекцияОбъектов = Объект.МПЗОтгруженные; Иначе КоллекцияОбъектов = Объект.МПЗПриобретенные; КонецЕсли; Для Каждого СтрокаКоллекции ИЗ КоллекцияОбъектов Цикл Если СтрокаКоллекции.СчетУчета.НалоговыйУчет Тогда Если СтрокаКоллекции.СуммаНУ = 0 И СтрокаКоллекции.СуммаПР = 0 И СтрокаКоллекции.СуммаВР = 0 Тогда СуммаДляНУ = СтрокаКоллекции.Сумма; Если СуммаДляНУ <> 0 Тогда СтрокаКоллекции.СуммаНУ = 0; СтрокаКоллекции.СуммаПР = 0; СтрокаКоллекции.СуммаВР = СуммаДляНУ; КонецЕсли; КонецЕсли; Иначе СтрокаКоллекции.СуммаНУ = 0; СтрокаКоллекции.СуммаПР = 0; СтрокаКоллекции.СуммаВР = 0; КонецЕсли; КонецЦикла; ИначеЕсли (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.РасчетыСПоставщикамиИПодрядчиками) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.РасчетыСПокупателямиИЗаказчиками) ИЛИ (Объект.РазделУчета = Перечисления.РазделыУчетаДляВводаОстатков.РасчетыСПрочимиДебиторамиИКредиторами) Тогда КоллекцияОбъектов = Объект.РасчетыСКонтрагентами; Для Каждого СтрокаКоллекции ИЗ КоллекцияОбъектов Цикл Счет = СтрокаКоллекции.СчетУчета; ПоДокументамРасчетов = НЕ (Счет.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ДокументыРасчетовСКонтрагентами, "ВидСубконто") = Неопределено); Если НЕ ПоДокументамРасчетов Тогда СтрокаКоллекции.Документ = ""; КонецЕсли; Если СтрокаКоллекции.СчетУчета.НалоговыйУчет Тогда Если СтрокаКоллекции.СуммаНУ = 0 Тогда СуммаДляНУ = ?(СтрокаКоллекции.Сумма <> 0, СтрокаКоллекции.Сумма, СтрокаКоллекции.СуммаКт); Если СуммаДляНУ <> 0 Тогда СтрокаКоллекции.СуммаНУ = СуммаДляНУ; КонецЕсли; КонецЕсли; Иначе СтрокаКоллекции.СуммаНУ = 0; КонецЕсли; КонецЦикла; КонецЕсли; <Приемник>ДокументСсылка.ВводНачальныхОстатков <Свойства> <Группа> <Код>9 <Наименование> --> БухСправка <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="БухСправка" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если (ВходящиеДанные.Получить("РазделУчета") <> "НезавершенноеПроизводство") И (ВходящиеДанные.Получить("РазделУчета") <> "РасчетыСУчредителями") И (ВходящиеДанные.Получить("РазделУчета") <> "Капитал") И (ВходящиеДанные.Получить("РазделУчета") <> "ОтложенныеНалоговыеАктивыОбязательства") И (ВходящиеДанные.Получить("РазделУчета") <> "ПрочиеСчетаБухгалтерскогоУчета") И (ВходящиеДанные.Получить("РазделУчета") <> "ДенежныеСредства") Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); ЗаполнитьРеквизитыДокументаВНО(); ПолучитьВходящиеДанныеНУ_МПЗ(); ПолучитьВходящиеДанныеНУ_Прочие(); ТекущийСчет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); Если (ТекущийСчет = СчетПоКоду("002.1")) ИЛИ (ТекущийСчет = СчетПоКоду("002.2")) ИЛИ (ТекущийСчет = СчетПоКоду("003")) ИЛИ (ТекущийСчет = СчетПоКоду("006")) Тогда РаспределитьПоМестамХранения(); КонецЕсли; КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); КонецЕсли; <Свойство> <Код>26 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетУчета; <Свойство> <Код>27 <Наименование> --> Субконто1 <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто1; Если ОбъектКоллекции.СчетУчета = "ТоварыНаСкладе" Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом"; ИначеЕсли ОбъектКоллекции.СчетУчета = "ТоварыПереданныеНаКомиссию" Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом"; ИначеЕсли (ОбъектКоллекции.СчетУчета = "РасчетыПоВыделенномуИмуществу") ИЛИ (ОбъектКоллекции.СчетУчета = "РасчетыПоТекущимОперациям") Тогда ИмяПКО = "ОбособленныеПодразделения"; КонецЕсли; <Свойство> <Код>28 <Наименование> --> Субконто2 <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто2; <Свойство> <Код>29 <Наименование> --> Субконто3 <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто3; <Свойство> <Код>30 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; Если ВходящиеДанные.Получить("РазделУчета") = "ДенежныеСредства" Тогда Если (ОбъектКоллекции.Сумма = 0) И (ОбъектКоллекции.СуммаКт <> 0) Тогда Значение = ОбъектКоллекции.СуммаКт; КонецЕсли; ИначеЕсли ВходящиеДанные.Получить("РазделУчета") = "РасчетыСУчредителями" Тогда Если (ОбъектКоллекции.Сумма = 0) И (ОбъектКоллекции.СуммаКт <> 0) И (ОбъектКоллекции.СчетУчета = "РасчетыПоВкладамВУставныйКапитал") Тогда Значение = -ОбъектКоллекции.СуммаКт; КонецЕсли КонецЕсли; <Свойство> <Код>31 <Наименование> --> СуммаКт <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКт" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаКт; Если ВходящиеДанные.Получить("РазделУчета") = "РасчетыСУчредителями" Тогда Если (ОбъектКоллекции.Сумма = 0) И (ОбъектКоллекции.СуммаКт <> 0) И (ОбъектКоллекции.СчетУчета = "РасчетыПоВкладамВУставныйКапитал") Тогда Значение = 0; КонецЕсли КонецЕсли; <Свойство> <Код>32 <Наименование> --> СуммаНУ <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаНУ; <Свойство> <Код>33 <Наименование> --> СуммаПР <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаПР; <Свойство> <Код>34 <Наименование> --> СуммаВР <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаВР; <Свойство> <Код>35 <Наименование> --> Количество <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество; <Свойство> <Код>36 <Наименование> --> Валюта <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Валюта) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.Валюта; КонецЕсли; <Свойство> <Код>37 <Наименование> --> ВалютнаяСумма <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютнаяСумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ВалютнаяСумма; <Группа> <Код>11 <Наименование> --> МПЗПриобретенные <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="МПЗПриобретенные" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если (ВходящиеДанные.Получить("РазделУчета") <> "КапитальныеВложения") И (ВходящиеДанные.Получить("РазделУчета") <> "Материалы") И (ВходящиеДанные.Получить("РазделУчета") <> "Товары") И (ВходящиеДанные.Получить("РазделУчета") <> "ГотоваяПродукцияИПолуфабрикаты") Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе ЗаполнитьРеквизитыДокументаВНО(); ПолучитьВходящиеДанныеНУ_МПЗ(); РаспределитьПоМестамХранения(); КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); //****************** //Для спецматериалов необходимо синхронизировать получение первоначальной стоимости Если (Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет") = СчетПоКоду("10.11.1")) ИЛИ (Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет") = СчетПоКоду("10.11.2")) Тогда Параметры.ТаблицаОстатковМЦ.ВыбратьСтроки(); Пока Параметры.ТаблицаОстатковМЦ.ПолучитьСтроку() = 1 Цикл Параметры.ТаблицаОстатковМЦ.Субконто1 = Параметры.ТаблицаОстатковМЦ.СубконтоДт.ПолучитьЗначение(1, "Значение"); Параметры.ТаблицаОстатковМЦ.Субконто2 = Параметры.ТаблицаОстатковМЦ.СубконтоДт.ПолучитьЗначение(2, "Значение"); Параметры.ТаблицаОстатковМЦ.Субконто3 = Параметры.ТаблицаОстатковМЦ.СубконтоДт.ПолучитьЗначение(3, "Значение"); КонецЦикла; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл Параметры.ТаблицаОстатковМЦ.ВыбратьСтроки(); Пока Параметры.ТаблицаОстатковМЦ.ПолучитьСтроку() = 1 Цикл Если (КоллекцияОбъектов.Субконто1 = Параметры.ТаблицаОстатковМЦ.Субконто1) И (КоллекцияОбъектов.Субконто2 = Параметры.ТаблицаОстатковМЦ.Субконто2) И (КоллекцияОбъектов.Субконто3 = Параметры.ТаблицаОстатковМЦ.Субконто3) Тогда КоллекцияОбъектов.СуммаМЦ = Параметры.ТаблицаОстатковМЦ.Сумма; Параметры.ТаблицаОстатковМЦ.УдалитьСтроку(); Прервать; КонецЕсли; КонецЦикла; КонецЦикла; КонецЕсли; //исключительные случаи Если (Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет") <> СчетПоКоду("08.6")) И (Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет") <> СчетПоКоду("08.7")) Тогда КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.получитьСтроку() = 1 Цикл Если (КоллекцияОбъектов.СуммаНУ + Параметры.ТаблицаОстатковНУ.СуммаПР + Параметры.ТаблицаОстатковНУ.СуммаВР) = 0 Тогда КоллекцияОбъектов.СуммаВР = КоллекцияОбъектов.Сумма; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; <ПослеОбработкиВыгрузки> КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); //************************************************* //Разбросаем сумму по количеству ТаблицаПоКоличеству = СоздатьОбъект("ТаблицаЗначений"); ТаблицаПоКоличеству.НоваяКолонка("СчетУчета"); ТаблицаПоКоличеству.НоваяКолонка("Субконто1"); ТаблицаПоКоличеству.НоваяКолонка("Субконто2"); ТаблицаПоКоличеству.НоваяКолонка("Субконто3"); ТаблицаПоКоличеству.НоваяКолонка("Количество"); ТаблицаПоКоличеству.НоваяКолонка("Сумма"); ТаблицаПоСумме = СоздатьОбъект("ТаблицаЗначений"); ТаблицаПоСумме.НоваяКолонка("СчетУчета"); ТаблицаПоСумме.НоваяКолонка("Субконто1"); ТаблицаПоСумме.НоваяКолонка("Субконто2"); ТаблицаПоСумме.НоваяКолонка("Субконто3"); ТаблицаПоСумме.НоваяКолонка("Количество"); ТаблицаПоСумме.НоваяКолонка("Сумма"); <Свойство> <Код>58 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетУчета; <Свойство> <Код>75 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит"/> <ПередВыгрузкой>Если ОбъектКоллекции.СчетУчета = "ТорговаяНаценкаНТТ" Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.Субконто1; Если ПустоеЗначение(Значение) = 0 Тогда Если (ОбъектКоллекции.СчетУчета = "СтроительствоОбъектовОсновныхСредств") ИЛИ (ОбъектКоллекции.СчетУчета = "ПриобретениеЗемельныхУчастков") ИЛИ (ОбъектКоллекции.СчетУчета = "ПриобретениеОбъектовПриродопользования") Тогда ИмяПКО = "ОбъектыСтроительства_08_3"; ИначеЕсли (ОбъектКоллекции.СчетУчета = "ПриобретениеНематериальныхАктивов") ИЛИ (ОбъектКоллекции.СчетУчета = "ВыполнениеНИОКР") Тогда ИмяПКО = "ОбъектыСтроительства_08_5_08_8"; Если ОбъектКоллекции.СчетУчета = "ВыполнениеНИОКР" Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Счет", СчетПоКоду("08.8")); КонецЕсли; ИначеЕсли ОбъектКоллекции.СчетУчета = "ОборудованиеКУстановке" Тогда ИмяПКО = "Оборудование"; ИначеЕсли Значение.Вид() = "ОбъектыСтроительства" Тогда ИмяПКО = "ОбъектыСтроительства_08_4"; ИначеЕсли Значение.Вид() = "Материалы" Тогда ИмяПКО = "Материалы"; Иначе ИмяПКО = "Номенклатура"; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>60 <Наименование> --> Склад <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = ""; Если ОбъектКоллекции.СчетУчета = "ТорговаяНаценкаНТТ" Тогда СкладЗнач = ОбъектКоллекции.Субконто1; Иначе СкладЗнач = ОбъектКоллекции.Субконто2; КонецЕсли; Если ПустоеЗначение(СкладЗнач) = 0 Тогда Если ТипЗначенияСтр(СкладЗнач) = "Справочник" Тогда Если СкладЗнач.Вид() = "МестаХранения" Тогда Значение = СкладЗнач; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; ИначеЕсли ОбъектКоллекции.СчетУчета = "ПриобретениеОбъектовОсновныхСредств" Тогда Значение = Константа.ОсновнойСклад; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>61 <Наименование> --> Контрагент <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = ""; Если ПустоеЗначение(ОбъектКоллекции.Субконто2) = 0 Тогда Если ТипЗначенияСтр(ОбъектКоллекции.Субконто2) = "Справочник" Тогда Если ОбъектКоллекции.Субконто2.Вид() = "Контрагенты" Тогда Значение = ОбъектКоллекции.Субконто2; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>62 <Наименование> --> Количество <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество; <Свойство> <Код>63 <Наименование> --> Сумма <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Свойство> <Код>67 <Наименование> --> СпособСтроительства <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СпособСтроительства" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыСтроительства"/> <ПередВыгрузкой>Если ОбъектКоллекции.СчетУчета = "СтроительствоОбъектовОсновныхСредств" Тогда Значение = "Хозспособ"; Иначе Значение = ""; КонецЕсли; <Свойство> <Код>68 <Наименование> --> НомерСтрокиТЧ <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="НомерСтрокиТЧ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Свойство> <Код>64 <Наименование> --> СуммаНУ <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаНУ; <Свойство> <Код>65 <Наименование> --> СуммаПР <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаПР; <Свойство> <Код>66 <Наименование> --> СуммаВР <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаВР; <Свойство> <Код>104 <Наименование> --> СпецМатериалНазначениеИспользования <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СпецМатериалНазначениеИспользования" Вид="Реквизит" Тип="СправочникСсылка.НазначенияИспользования"/> <КодПравилаКонвертации>НазначенияИспользования <ПередВыгрузкой>Значение = ""; Если ПустоеЗначение(ОбъектКоллекции.Субконто2) = 0 Тогда Если ТипЗначенияСтр(ОбъектКоллекции.Субконто2) = "Справочник" Тогда Если ОбъектКоллекции.Субконто2.Вид() = "НазначенияИспользования" Тогда Значение = ОбъектКоллекции.Субконто2; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>105 <Наименование> --> СпецМатериалПодразделениеФизЛицо <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СпецМатериалПодразделениеФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <ПередВыгрузкой>Значение = ""; Если ПустоеЗначение(ОбъектКоллекции.Субконто3) = 0 Тогда Если ТипЗначенияСтр(ОбъектКоллекции.Субконто3) = "Справочник" Тогда Если ОбъектКоллекции.Субконто3.Вид() = "Сотрудники" Тогда Значение = ОбъектКоллекции.Субконто3; ИмяПКО = "ФизическиеЛица"; ИначеЕсли ОбъектКоллекции.Субконто3.Вид() = "Подразделения" Тогда Значение = ОбъектКоллекции.Субконто3; ИмяПКО = "ПодразделенияОрганизаций"; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>106 <Наименование> --> СпецМатериалПартияМатериалаВЭксплуатации <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СпецМатериалПартияМатериалаВЭксплуатации" Вид="Реквизит"/> <КодПравилаКонвертации>ПартияМатериаловВЭксплуатации <ПередВыгрузкой>Значение = ""; Если ПустоеЗначение(ОбъектКоллекции.Субконто2) = 0 Тогда Если ТипЗначенияСтр(ОбъектКоллекции.Субконто2) = "Справочник" Тогда Если ОбъектКоллекции.Субконто2.Вид() = "НазначенияИспользования" Тогда Значение = ОбъектКоллекции.Субконто2; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>107 <Наименование> --> СпецМатериалПервоначальнаяСтоимость <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СпецМатериалПервоначальнаяСтоимость" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаМЦ; <Свойство> <Код>110 <Наименование> --> Ключ <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="Ключ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Свойство> <Код>113 <Наименование> --> Партия <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="Партия" Вид="Реквизит"/> <КодПравилаКонвертации>ДокументРасчетовСКонтрагентомДляВНО <ПередВыгрузкой>Значение = "1"; <Группа> <Код>12 <Наименование> --> МПЗОтгруженные <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="МПЗОтгруженные" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ВходящиеДанные.Получить("РазделУчета") <> "ТоварыОтгруженные" Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе ЗаполнитьРеквизитыДокументаВНО(); ПолучитьВходящиеДанныеНУ_ОТ(); КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); КонецЕсли; <Свойство> <Код>76 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетУчета; <Свойство> <Код>77 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто3; <Свойство> <Код>78 <Наименование> --> Покупатель <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Покупатель" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто1; <Свойство> <Код>79 <Наименование> --> ДоговорПокупателя <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорПокупателя" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто2; <Свойство> <Код>80 <Наименование> --> ДокументОтгрузки <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОтгрузки" Вид="Реквизит"/> <КодПравилаКонвертации>ДокументРасчетовСКонтрагентом <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто2; <Свойство> <Код>81 <Наименование> --> Количество <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество; <Свойство> <Код>82 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Свойство> <Код>83 <Наименование> --> СуммаНУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаНУ; <Свойство> <Код>84 <Наименование> --> СуммаПР <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаПР; <Свойство> <Код>85 <Наименование> --> СуммаВР <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаВР; <Свойство> <Код>111 <Наименование> --> Ключ <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Ключ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Группа> <Код>15 <Наименование> --> РасходыБудущихПериодов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="РасходыБудущихПериодов" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ВходящиеДанные.Получить("РазделУчета") <> "РасходыБудущихПериодов" Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе ЗаполнитьРеквизитыДокументаВНО(); ПолучитьВходящиеДанныеНУ_Прочие(); КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); КонецЕсли; <Свойство> <Код>38 <Наименование> --> Субконто1 <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетУчета; <Свойство> <Код>39 <Наименование> --> Субконто1 <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто1; Если (ОбъектКоллекции.СчетУчета = "РасчетыПоИмущественномуИЛичномуСтрахованию") ИЛИ (ОбъектКоллекции.СчетУчета = "РасчетыПоИмущественномуИЛичномуСтрахованиюВал") Тогда ИмяПКО = "Контрагенты"; Иначе ИмяПКО = "РасходыБудущихПериодов"; КонецЕсли; <Свойство> <Код>40 <Наименование> --> Субконто2 <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто2; <Свойство> <Код>41 <Наименование> --> Субконто3 <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто3; <Свойство> <Код>42 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Свойство> <Код>47 <Наименование> --> СуммаНУ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаНУ; <Свойство> <Код>48 <Наименование> --> СуммаПР <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаПР; <Свойство> <Код>49 <Наименование> --> СуммаВР <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма - ОбъектКоллекции.СуммаНУ - ОбъектКоллекции.СуммаПР; <Группа> <Код>16 <Наименование> --> РасчетыПоНалогамИСборам <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыПоНалогамИСборам" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ВходящиеДанные.Получить("РазделУчета") <> "РасчетыПоНалогамИСборам" Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); ЗаполнитьРеквизитыДокументаВНО(); КонецЕсли; <Свойство> <Код>50 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетУчета; <Свойство> <Код>51 <Наименование> --> ВидПлатежаВБюджет <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежаВБюджет" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПлатежейВГосБюджет"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто1; <Свойство> <Код>52 <Наименование> --> УровеньБюджета <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="УровеньБюджета" Вид="Реквизит" Тип="ПеречислениеСсылка.УровниБюджетов"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто2; <Свойство> <Код>53 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Свойство> <Код>57 <Наименование> --> СуммаКт <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКт" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаКт; <Группа> <Код>17 <Наименование> --> РасчетыСКонтрагентами <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСКонтрагентами" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если (ВходящиеДанные.Получить("РазделУчета") <> "РасчетыСПоставщикамиИПодрядчиками") И (ВходящиеДанные.Получить("РазделУчета") <> "РасчетыСПокупателямиИЗаказчиками") И (ВходящиеДанные.Получить("РазделУчета") <> "РасчетыСПрочимиДебиторамиИКредиторами") Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); ЗаполнитьРеквизитыДокументаВНО(); ДобавитьСуммыНУПоСчетамРасчетовУЕ(); ДобавитьСуммыНУПоСчетамРасчетовВАЛ(); КонецЕсли; <ПослеВыгрузки>Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); <Свойство> <Код>86 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетУчета; <Свойство> <Код>87 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто1; <Свойство> <Код>88 <Наименование> --> ДоговорКонтрагента <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если ВходящиеДанные.Получить("РазделУчета") = "РасчетыСПоставщикамиИПодрядчиками" Тогда Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СПоставщиком"); ИначеЕсли ВходящиеДанные.Получить("РазделУчета") = "РасчетыСПокупателямиИЗаказчиками" Тогда Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СПокупателем"); Иначе Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); КонецЕсли; Значение = ОбъектКоллекции.Субконто2; <Свойство> <Код>93 <Наименование> --> Документ <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Документ" Вид="Реквизит"/> <КодПравилаКонвертации>ДокументРасчетовСКонтрагентом <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто2; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("СделатьСсылкуНаДокВводаОстатков", 1); <Свойство> <Код>89 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; Если ВходящиеДанные.Получить("РазделУчета") <> "РасчетыСПрочимиДебиторамиИКредиторами" Тогда Если ОбъектКоллекции.СуммаКт <> 0 Тогда Значение = ОбъектКоллекции.СуммаКт КонецЕсли; КонецЕсли; <Свойство> <Код>90 <Наименование> --> СуммаКт <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКт" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаКт; <Свойство> <Код>91 <Наименование> --> Валюта <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = ОбъектКоллекции.Валюта; Если ПустоеЗначение(Значение) = 1 Тогда Значение = Параметры.Рубли; КонецЕсли; <Свойство> <Код>92 <Наименование> --> ВалютнаяСумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютнаяСумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ВалютнаяСумма; Если ПустоеЗначение(Значение) = 1 Тогда Если ОбъектКоллекции.Сумма <> 0 Тогда Значение = ОбъектКоллекции.Сумма; Иначе Значение = ОбъектКоллекции.СуммаКт КонецЕсли; КонецЕсли; <Свойство> <Код>94 <Наименование> --> КратностьВзаиморасчетов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>95 <Наименование> --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ?(ОбъектКоллекции.ВалютнаяСумма = 0, 1, ?(ОбъектКоллекции.Сумма = 0, ОбъектКоллекции.СуммаКт, ОбъектКоллекции.Сумма) / ОбъектКоллекции.ВалютнаяСумма); <Свойство> <Код>96 <Наименование> --> СуммаНУ <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаНУ; <Свойство> <Код>98 <Наименование> --> Аванс <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Аванс" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; Если ВходящиеДанные.Получить("РазделУчета") = "РасчетыСПоставщикамиИПодрядчиками" Тогда Если ОбъектКоллекции.Сумма <> 0 Тогда Значение = 1; КонецЕсли; ИначеЕсли ВходящиеДанные.Получить("РазделУчета") = "РасчетыСПокупателямиИЗаказчиками" Тогда Если ОбъектКоллекции.СуммаКт <> 0 Тогда Значение = 1; КонецЕсли; КонецЕсли; <Группа> <Код>18 <Наименование> --> РасчетыСПодотчетнымиЛицами <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПодотчетнымиЛицами" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ВходящиеДанные.Получить("РазделУчета") <> "РасчетыСПодотчетнымиЛицами" Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); ЗаполнитьРеквизитыДокументаВНО(); КонецЕсли; <Свойство> <Код>20 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значени = ОбъектКоллекции.СчетУчета; <Свойство> <Код>21 <Наименование> --> РаботникОрганизации <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="РаботникОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.СубконтоДт) = 0 Тогда Значение = ОбъектКоллекции.СубконтоДт.Значение; ИначеЕсли ПустоеЗначение(ОбъектКоллекции.СубконтоКт) = 0 Тогда Значение = ОбъектКоллекции.СубконтоКт.Значение; Иначе Отказ =1; КонецЕсли; <Свойство> <НеЗамещать>true <Код>22 <Наименование> --> Валюта <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Валюта) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.Валюта; КонецЕсли; <Свойство> <Код>23 <Наименование> --> ВалютнаяСумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютнаяСумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ВалютнаяСумма; <Свойство> <Код>24 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Свойство> <Код>25 <Наименование> --> СуммаКт <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаКт" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаКт; <Группа> <Код>19 <Наименование> --> РасчетыПоЗаработнойПлате <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыПоЗаработнойПлате" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ВходящиеДанные.Получить("РазделУчета") <> "РасчетыСПерсоналомПоОплатеТрудаИДепонентам" Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ВходящиеОстатки").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); ЗаполнитьРеквизитыДокументаВНО(); КонецЕсли; <Свойство> <Код>99 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетУчета; <Свойство> <Код>100 <Наименование> --> РаботникОрганизации <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="РаботникОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = ОбъектКоллекции.Субконто1; <Свойство> <Код>101 <Наименование> --> Ведомость <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Ведомость" Вид="Реквизит" Тип="ДокументСсылка.ЗарплатаКВыплатеОрганизаций"/> <КодПравилаКонвертации>ЗарплатаКВыплатеОрганизаций_ВНО <ПередВыгрузкой>Если ОбъектКоллекции.СчетУчета = "РасчетыСПерсоналомПоОплатеТруда" Тогда Значение = ""; Иначе Значение = ОбъектКоллекции.Субконто1; ТЗ = СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("ФизЛицо"); ТЗ.НоваяКолонка("Сумма"); ТЗ.НоваяКолонка("ВыплаченностьЗарплаты"); ТЗ.НоваяСтрока(); ТЗ.ФизЛицо = ОбъектКоллекции.Субконто1; ТЗ.Сумма = ОбъектКоллекции.СуммаКт; ТЗ.ВыплаченностьЗарплаты = "Задепонировано"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("СделатьСсылкуНаДокВводаОстатков", 1); ИсходящиеДанные.Установить("Зарплата", ТЗ); КонецЕсли; <Свойство> <Код>102 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СуммаКт; <Свойство> <Код>103 <Наименование> --> ПериодРегистрации <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Если ОбъектКоллекции.СчетУчета = "РасчетыСПерсоналомПоОплатеТруда" Тогда ПериодРегистрации = ВходящиеДанные.Получить("Дата"); ПериодРегистрации = НачМесяца(ПериодРегистрации); Значение = ПериодРегистрации; Иначе Значение = ""; КонецЕсли; <Свойство Поиск="true"> <Код>1 <Наименование> --> Дата <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>//Значение = Параметры.ДатаВводаОстатков - 1; <Свойство> <Код>2 <Наименование> --> Проведен <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>3 <Наименование> --> Комментарий <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "# Перенесено из 1С:Бухгалтерии 7.7 # Остатки по счету """ + Строка(ВходящиеДанные.Получить("Счет")) + """"; <Свойство Поиск="true"> <Код>4 <Наименование> --> Организация <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>6 <Наименование> --> ФормироватьПроводки <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВБухгалтерскомУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>//Значение = 1; <Свойство Поиск="true"> <Код>5 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВНалоговомУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>//Значение = 1; <Свойство Поиск="true"> <Код>109 <Наименование> --> ФормироватьПроводки <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьПоСпециальнымРегистрам" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>//Значение = 1; <Свойство Поиск="true"> <Код>7 <Наименование> --> РазделУчета <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РазделУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.РазделыУчетаДляВводаОстатков"/> <Свойство Поиск="true"> <Код>112 <Наименование> --> ПодразделениеОрганизации <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПодразделениеОрганизации"); <Значения/> <Правило> <Код>ВводНачальныхОстатковОС <Наименование> --> ДокументСсылка.ВводНачальныхОстатковОС <Порядок>200 <ПередВыгрузкой>Если ВходящиеДанные.Получить("ОС").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>ПровестиЗаписьНеЗаписанныхОбъектов(); <Приемник>ДокументСсылка.ВводНачальныхОстатков <Свойства> <Группа> <Код>1 <Наименование> --> ОС <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = ВходящиеДанные.Получить("ОС"); КоллекцияОбъектов.НоваяКолонка("СпособПоступленияРегл"); КоллекцияОбъектов.НоваяКолонка("МОЛРегл"); КоллекцияОбъектов.НоваяКолонка("СпособОтраженияРасходовПоАмортизации"); КоллекцияОбъектов.НоваяКолонка("СпособОтраженияРасходовПоАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("МетодНачисленияАмортизацииНУ"); КоллекцияОбъектов.НоваяКолонка("СпособНачисленияАмортизацииБУ"); КоллекцияОбъектов.НоваяКолонка("НазваниеДокументаПринятияКУчетуРегл"); КоллекцияОбъектов.НоваяКолонка("НомерДокументаПринятияКУчетуРегл"); КоллекцияОбъектов.НоваяКолонка("ДатаПоследнейМодернизацииРегл"); КоллекцияОбъектов.НоваяКолонка("СтоимостьДляВычисленияАмортизацииБУ"); КоллекцияОбъектов.НоваяКолонка("СуммаПоследнейМодернизацииБУ"); КоллекцияОбъектов.НоваяКолонка("СуммаПоследнейМодернизацииНУ"); КоллекцияОбъектов.НоваяКолонка("НомерДокументаМодернизацииРегл"); КоллекцияОбъектов.НоваяКолонка("НазваниеДокументаМодернизацииРегл"); КоллекцияОбъектов.НоваяКолонка("НачислятьАмортизациюБУ"); КоллекцияОбъектов.НоваяКолонка("ПорядокПогашенияСтоимостиБУ"); КоллекцияОбъектов.НоваяКолонка("НачислятьАмортизациюНУ"); КоллекцияОбъектов.НоваяКолонка("ПорядокВключенияСтоимостиВСоставРасходовНУ"); КоллекцияОбъектов.НоваяКолонка("АмортизацияДо2009"); КоллекцияОбъектов.НоваяКолонка("ФактическийСрокИспользованияДо2009"); Параметры.БУ_ДатаКонца = СоздатьОбъект("БухгалтерскиеИтоги"); Параметры.БУ_ДатаКонца.ПериодМ(Параметры.ДатаКонцаПериодаВыгрузки); <ПередВыгрузкой>ОбъектКоллекции.СпособПоступленияРегл = ОбъектКоллекции.ОсновноеСредство.СпособПоступления; ОбъектКоллекции.МОЛРегл = ОбъектКоллекции.ОсновноеСредство.МОЛ.Получить(ВходящиеДанные.Получить("Дата")); ОбъектКоллекции.СпособОтраженияРасходовПоАмортизации = ОбъектКоллекции.ОсновноеСредство; ОбъектКоллекции.СпособОтраженияРасходовПоАмортизацииНУ = ОбъектКоллекции.ОсновноеСредство; ОбъектКоллекции.МетодНачисленияАмортизацииНУ = ОбъектКоллекции.ОсновноеСредство.МетодНачисленияАмортизации; ОбъектКоллекции.СпособНачисленияАмортизацииБУ = ОбъектКоллекции.ОсновноеСредство.СпособНачисленияАмортизации; ОС = ОбъектКоллекции.ОсновноеСредство; // Получение документов ввода в эксплуатацию и модернизации ОбъектКоллекции.НазваниеДокументаПринятияКУчетуРегл = ""; ОбъектКоллекции.НомерДокументаПринятияКУчетуРегл = ""; Экспл = СоздатьОбъект("Периодический"); Экспл.ИспользоватьОбъект("Состояние", ОС.ТекущийЭлемент()); Экспл.ВыбратьЗначения(ОС.ДатаВводаВЭксплуатацию, Параметры.ДатаВводаОстатков); Пока Экспл.ПолучитьЗначение() = 1 Цикл ИстДок = Экспл.ТекущийДокумент(); Если ИстДок.Выбран() = 1 Тогда Если ИстДок.Вид() = "ВводВЭксплуатациюОС" Тогда ОбъектКоллекции.НазваниеДокументаПринятияКУчетуРегл = "Акт ОС-1"; ОбъектКоллекции.НомерДокументаПринятияКУчетуРегл = ИстДок.НомерДок; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; // Реквизиты модернизированного объекта ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(Параметры.ДатаВводаОстатков); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", Параметры.ДатаВводаОстатков); ОбъектКоллекции.ДатаПоследнейМодернизацииРегл = ДатаМодернизации; БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ПериодМ(ДатаМодернизации); СуммаАмортизации = БУ.СКК("02",,, ОС); ОбъектКоллекции.СтоимостьДляВычисленияАмортизацииБУ = ОбъектКоллекции.ТекущаяСтоимостьБУ - СуммаАмортизации; СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимость.Получить(ДатаМодернизации); ОбъектКоллекции.СуммаПоследнейМодернизацииБУ = СтоимостьПослеМодернизации - СтоимостьДоМодернизации; СтоимостьДоМодернизации = ОС.ПервоначальнаяСтоимостьН.Получить(ДатаМодернизации - 1); СтоимостьПослеМодернизации = ОС.ПервоначальнаяСтоимостьН.Получить(ДатаМодернизации); ОбъектКоллекции.СуммаПоследнейМодернизацииНУ = СтоимостьПослеМодернизации - СтоимостьДоМодернизации; Экспл = СоздатьОбъект("Периодический"); Экспл.ИспользоватьОбъект("ПервоначальнаяСтоимость", ОС.ТекущийЭлемент()); Экспл.ВыбратьЗначения(ОС.ДатаВводаВЭксплуатацию, Параметры.ДатаВводаОстатков); Пока Экспл.ПолучитьЗначение() = 1 Цикл ИстДок = Экспл.ТекущийДокумент(); Если ИстДок.Выбран() = 1 Тогда Если ИстДок.Вид() = "МодернизацияОС" Тогда ОбъектКоллекции.НазваниеДокументаМодернизацииРегл = "Акт ОС-3"; ОбъектКоллекции.НомерДокументаМодернизацииРегл = ИстДок.НомерДок; КонецЕсли; КонецЕсли; КонецЦикла; Иначе ОбъектКоллекции.ДатаПоследнейМодернизацииРегл = ПолучитьПустоеЗначение("Дата"); ОбъектКоллекции.СтоимостьДляВычисленияАмортизацииБУ = 0; ОбъектКоллекции.СуммаПоследнейМодернизацииБУ = 0; ОбъектКоллекции.СуммаПоследнейМодернизацииНУ = 0; ОбъектКоллекции.НомерДокументаМодернизацииРегл = ""; ОбъектКоллекции.НазваниеДокументаМодернизацииРегл = ""; КонецЕсли; Если ПустоеЗначение(ОС.МатериалДляОтраженияВСоставеМПЗ)=0 Тогда ОбъектКоллекции.ПорядокПогашенияСтоимостиБУ = "СписаниеПриПринятииКУчету"; ОбъектКоллекции.НачислятьАмортизациюБУ = 0; Иначе БУ_ДатаКонца = Параметры.БУ_ДатаКонца; Если БУ_ДатаКонца.СКД("МЦ.01",,, ОС) > 0 Тогда ОбъектКоллекции.ПорядокПогашенияСтоимостиБУ = "СписаниеПриПринятииКУчету"; ОбъектКоллекции.НачислятьАмортизациюБУ = 0; ИначеЕсли ОС.ПодлежитАмортизации = 1 Тогда ОбъектКоллекции.НачислятьАмортизациюБУ = ОС.НачислятьАмортизацию.Получить(ВходящиеДанные.Получить("Дата")); ОбъектКоллекции.ПорядокПогашенияСтоимостиБУ = "НачислениеАмортизации"; Иначе ОбъектКоллекции.НачислятьАмортизациюБУ = ОС.НачислятьАмортизацию.Получить(ВходящиеДанные.Получить("Дата")); ОбъектКоллекции.ПорядокПогашенияСтоимостиБУ = "НачислениеИзносаПоЕНАОФ"; КонецЕсли; КонецЕсли; Если (ОС.ПодлежитАмортизации = 1) и (ОС.ПервоначальнаяСтоимостьН.Получить(ВходящиеДанные.Получить("Дата")) <> 0) Тогда ОбъектКоллекции.НачислятьАмортизациюНУ = ОС.НачислятьАмортизацию.Получить(ВходящиеДанные.Получить("Дата")); ОбъектКоллекции.ПорядокВключенияСтоимостиВСоставРасходовНУ = "НачислениеАмортизации"; Иначе ОбъектКоллекции.НачислятьАмортизациюНУ = 0; ОбъектКоллекции.ПорядокВключенияСтоимостиВСоставРасходовНУ = "СтоимостьНеВключаетсяВРасходы"; КонецЕсли; // Сведение об ОС до 2009 года ЛинейныйНачисленнаяАмортизацияНалог = 0; СрокЭксплуатации = 0; СрокПолезногоИспользования = ОС.СрокПолезногоИспользованияН.Получить(Параметры.ДатаВводаОстатков - 1); Если (Константа.МетодНачисленияАмортизацииНУ.Получить(Параметры.ДатаВводаОстатков - 1) = Перечисление.МетодыНачисленияАмортизации.Линейный) ИЛИ (((ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ВосьмаяГруппа) ИЛИ (ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДевятаяГруппа) ИЛИ (ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДесятаяГруппа)) И ((ОС.Группа = Перечисление.ГруппыОС.Здания) ИЛИ (ОС.Группа = Перечисление.ГруппыОС.Сооружения) ИЛИ (ОС.Группа = Перечисление.ГруппыОС.ПередаточныеУстройства))) ИЛИ ((ОС.МетодНачисленияАмортизации = Перечисление.МетодыНачисленияАмортизации.Линейный) И (ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ОтдельнаяГруппа)) Тогда ДатаПереходаНаЛинейныйМетод ='01.01.2009'; Если СрокПолезногоИспользования > 0 Тогда Если (ПустоеЗначение(ОС.Состояние.Получить(ДатаПереходаНаЛинейныйМетод)) = 1) ИЛИ (((ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ВосьмаяГруппа) ИЛИ (ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДевятаяГруппа) ИЛИ (ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ДесятаяГруппа)) И ((ОС.Группа = Перечисление.ГруппыОС.Здания) ИЛИ (ОС.Группа = Перечисление.ГруппыОС.Сооружения) ИЛИ (ОС.Группа = Перечисление.ГруппыОС.ПередаточныеУстройства))) ИЛИ (ОС.АмортизационнаяГруппа = Перечисление.АмортизационныеГруппы.ОтдельнаяГруппа) ИЛИ ((ПустоеЗначение(ОС.Состояние.Получить('31.12.2008')) = 0) И (ОС.МетодНачисленияАмортизации = Перечисление.МетодыНачисленияАмортизации.Линейный)) Тогда //Условие выполняется для объектов принятых в период применения линейного метода, для объектов // отдельной группы, по которым применялся линейный метод, для объектов по которым до 2009 г. // применялся нелинейный метод, отдельным объектам 8-9 групп для которых всегда применяется линейный метод Иначе // переход к линейному методу от нелинейного БухИтЛ = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтЛ .Актуальность(1); БухИтЛ.ПериодМ(ДатаПереходаНаЛинейныйМетод); ЛинейныйНачисленнаяАмортизацияНалог = БухИтЛ.СНК("Н05.02",,, ОС); Если ПустоеЗначение (ОС.ДатаВводаВЭксплуатацию) = 1 Тогда ОставшийсяСрокПолезногоИспользования = 0; Иначе СрокЭксплуатацииЛет = Макс(0, (ДатаГод(ДатаПереходаНаЛинейныйМетод) - ДатаГод(ОС.ДатаВводаВЭксплуатацию))*12 - 1); СрокЭксплуатации = СрокЭксплуатацииЛет + (ДатаМесяц(ДатаПереходаНаЛинейныйМетод) - ДатаМесяц(ОС.ДатаВводаВЭксплуатацию)); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; ОбъектКоллекции.ФактическийСрокИспользованияДо2009= СрокЭксплуатации; ОбъектКоллекции.АмортизацияДо2009 = ЛинейныйНачисленнаяАмортизацияНалог; <Свойство Поиск="true"> <Код>2 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>3 <Наименование> --> ИнвентарныйНомер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ИнвентарныйНомерРегл" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.Код; <Свойство> <Код>15 <Наименование> --> ДатаПринятияКУчетуБУ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПринятияКУчетуРегл" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ДатаВводаВЭксплуатацию; <Свойство> <Код>16 <Наименование> --> СостояниеПринятияКУчетуБУ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СостояниеПринятияКУчетуРегл" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСВводИПринятиеКУчету <ПередВыгрузкой>Значение = "2"; <Свойство> <Код>17 <Наименование> --> СпособПоступления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПоступленияРегл" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПоступленияАктивов"/> <КодПравилаКонвертации>СпособыПоступленияОС <Свойство> <Код>4 <Наименование> --> ПервоначальнаяСтоимостьБУ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПервоначальнаяСтоимостьБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ПорядокПогашенияСтоимостиБУ = "ОтражениеВСоставеМПЗ" Тогда Значение = 0; Иначе Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимость.Получить(ВходящиеДанные.Получить("Дата")); КонецЕсли; <Свойство> <Код>56 <Наименование> --> ТекущаяСтоимостьБУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ТекущаяСтоимостьБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.ТекущаяСтоимостьБУ) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.ТекущаяСтоимостьБУ; КонецЕсли; <Свойство> <Код>33 <Наименование> --> НакопленнаяАмортизацияБУ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НакопленнаяАмортизацияБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.НакопленнаяАмортизацияБУ) = 1 Тогда Отказ = 1; Иначе Значение = ОбъектКоллекции.НакопленнаяАмортизацияБУ; КонецЕсли; <Свойство> <Код>5 <Наименование> --> ПервоначальнаяСтоимостьНУ <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПервоначальнаяСтоимостьНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.ПервоначальнаяСтоимостьН.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>57 <Наименование> --> ТекущаяСтоимостьНУ <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ТекущаяСтоимостьНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> НакопленнаяАмортизацияНУ <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="НакопленнаяАмортизацияНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> СчетУчетаБУ <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаБУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.СчетУчетаБУ) = 1 Тогда Значение = СчетПоКоду("01.1"); Иначе Значение = ОбъектКоллекции.СчетУчетаБУ; КонецЕсли; <Свойство> <Код>11 <Наименование> --> СчетАмортизацииБУ <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СчетАмортизацииБУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.СчетАмортизацииБУ) = 1 Тогда Значение = СчетПоКоду("02.1"); Иначе Значение = ОбъектКоллекции.СчетАмортизацииБУ; Если (ПустоеЗначение(ОбъектКоллекции.НакопленнаяАмортизацияБУ) = 1) И (ПустоеЗначение(ОбъектКоллекции.СчетУчетаБУ) = 0) Тогда Если Лев(ОбъектКоллекции.СчетУчетаБУ,2) = "03" Тогда Значение = СчетПоКоду("02.2"); КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>29 <Наименование> --> МОЛБУ <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="МОЛРегл" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>71 <Наименование> --> ПорядокПогашенияСтоимостиБУ <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокПогашенияСтоимостиБУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокПогашенияСтоимостиОС"/> <Свойство> <Код>35 <Наименование> --> НачислятьАмортизациюБУ <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизациюБУ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>21 <Наименование> --> СпособНачисленияАмортизацииБУ <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СпособНачисленияАмортизацииБУ" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыНачисленияАмортизацииОС"/> <КодПравилаКонвертации>СпособыНачисленияАмортизацииОС <Свойство> <Код>47 <Наименование> --> СпособОтраженияРасходовПоАмортизации <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СпособОтраженияРасходовПоАмортизации" Вид="Реквизит" Тип="СправочникСсылка.СпособыОтраженияРасходовПоАмортизации"/> <КодПравилаКонвертации>СпособыОтраженияРасходовПоАмортизации <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); <Свойство> <Код>50 <Наименование> --> СрокПолезногоИспользованияБУ <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользования.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>68 <Наименование> --> КоэффициентАмортизацииБУ <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентАмортизации.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>69 <Наименование> --> КоэффициентУскоренияБУ <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентУскоренияБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.КоэффициентУскорения; <Свойство> <Код>41 <Наименование> --> ОбъемПродукцииРаботБУ <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъемПродукцииРаботБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>43 <Наименование> --> ПараметрВыработкиБУ <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="ПараметрВыработкиБУ" Вид="Реквизит" Тип="СправочникСсылка.ПараметрыВыработкиОС"/> <КодПравилаКонвертации>ПараметрыВыработкиОС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>42 <Наименование> --> ОбъемПродукцииРаботДляВычисленияАмортизацииБУ <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъемПродукцииРаботДляВычисленияАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>23 <Наименование> --> ВыработкаКоличествоБУ <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ВыработкаКоличествоБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>53 <Наименование> --> СтоимостьДляВычисленияАмортизацииБУ <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьДляВычисленияАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>49 <Наименование> --> СрокИспользованияДляВычисленияАмортизацииБУ <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="СрокИспользованияДляВычисленияАмортизацииБУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>ОС = ОбъектКоллекции.ОсновноеСредство; ОбъектМодернизирован = ОС.ОбъектМодернизирован.Получить(ВходящиеДанные.Получить("Дата")); ДатаМодернизации = ПолучитьПустоеЗначение("Дата"); Если ОбъектМодернизирован = 1 Тогда // была модернизация ДатаМодернизации = глДатаНаКоторуюУстановленоЗначение(ОС, "ОбъектМодернизирован", ВходящиеДанные.Получить("Дата")); КонецЕсли; СрокПолезногоИспользования = ОС.СрокПолезногоИспользования.Получить(Параметры.ДатаКонцаПериодаВыгрузки); Если ОбъектМодернизирован = 1 Тогда // была модернизация ОставшийсяСрокПолезногИспользованияПослеМодернизации = 0; ОстаточнаяСтоимостьПослеМодернизации = ОС.ОстаточнаяСтоимостьПослеМодернизации.Получить(ВходящиеДанные.Получить("Дата")); Если (ПустоеЗначение(ДатаМодернизации) = 0) и (ПустоеЗначение(ОС.ДатаВводаВЭксплуатацию) = 0) Тогда ОставшийсяСрокПолезногИспользованияПослеМодернизации = СрокПолезногоИспользования - (ДатаГод(КонМесяца(ДатаМодернизации)) - ДатаГод(КонМесяца(ОС.ДатаВводаВЭксплуатацию))) * 12 - (ДатаМесяц(КонМесяца(ДатаМодернизации)) - ДатаМесяц(КонМесяца(ОС.ДатаВводаВЭксплуатацию))); КонецЕсли; СрокПолезногоИспользования = ОставшийсяСрокПолезногИспользованияПослеМодернизации; КонецЕсли; Если ОбъектМодернизирован = 1 Тогда // была модернизация Значение = СрокПолезногоИспользования; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>51 <Наименование> --> СрокПолезногоИспользованияНУ <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="СрокПолезногоИспользованияНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.СрокПолезногоИспользованияН.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>72 <Наименование> --> ПорядокВключенияСтоимостиВСоставРасходов <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокВключенияСтоимостиВСоставРасходовНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокВключенияСтоимостиОСВСоставРасходовНУ"/> <Свойство> <Код>36 <Наименование> --> НачислятьАмортизациюНУ <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизациюНУ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>22 <Наименование> --> МетодНачисленияАмортизацииНУ <Порядок>1750 <Источник Имя="" Вид=""/> <Приемник Имя="МетодНачисленияАмортизацииНУ" Вид="Реквизит" Тип="ПеречислениеСсылка.МетодыНачисленияАмортизации"/> <КодПравилаКонвертации>МетодыНачисленияАмортизации <Свойство> <Код>45 <Наименование> --> СпециальныйКоэффициентНУ <Порядок>1850 <Источник Имя="" Вид=""/> <Приемник Имя="СпециальныйКоэффициентНУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.СпециальныйКоэффициент.Получить(ВходящиеДанные.Получить("Дата")); <Свойство> <Код>74 <Наименование> --> ТекущаяСтоимостьПР <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="ТекущаяСтоимостьПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Константа.ПрименяетсяПБУ18.Получить(ВходящиеДанные.Получить("Дата")) <> Да Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>78 <Наименование> --> НакопленнаяАмортизацияПР <Порядок>1950 <Источник Имя="" Вид=""/> <Приемник Имя="НакопленнаяАмортизацияПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Константа.ПрименяетсяПБУ18.Получить(ВходящиеДанные.Получить("Дата")) <> Да Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование> --> СтоимостьДо2002НУ <Порядок>2000 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьДо2002НУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> АмортизацияДо2002НУ <Порядок>2050 <Источник Имя="" Вид=""/> <Приемник Имя="АмортизацияДо2002НУ" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ОсновноеСредство.АмортизацияНачисленнаяДо2002; <Свойство> <Код>70 <Наименование> --> ДатаПоследнейМодернизацииРегл <Порядок>2300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПоследнейМодернизацииРегл" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>76 <Наименование> --> СуммаПоследнейМодернизацииБУ <Порядок>2350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПоследнейМодернизацииБУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>77 <Наименование> --> СуммаПоследнейМодернизацииНУ <Порядок>2400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПоследнейМодернизацииНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>44 <Наименование> --> СостояниеМодернизацииРегл <Порядок>2450 <Источник Имя="" Вид=""/> <Приемник Имя="СостояниеМодернизацииРегл" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСМодернизация <ПередВыгрузкой>Значение = "1"; Отказ = ПустоеЗначение(ОбъектКоллекции.ОсновноеСредство.ОбъектМодернизирован.Получить(ВходящиеДанные.Получить("Дата"))); <Свойство> <Код>83 <Наименование> --> НомерДокументаПринятияКУчетуРегл <Порядок>2500 <Источник Имя="" Вид=""/> <Приемник Имя="НомерДокументаПринятияКУчетуРегл" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>81 <Наименование> --> НазваниеДокументаПринятияКУчетуРегл <Порядок>2550 <Источник Имя="" Вид=""/> <Приемник Имя="НазваниеДокументаПринятияКУчетуРегл" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>85 <Наименование> --> НазваниеДокументаМодернизацииРегл <Порядок>2600 <Источник Имя="" Вид=""/> <Приемник Имя="НомерДокументаМодернизацииРегл" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>84 <Наименование> --> НазваниеДокументаМодернизацииРегл <Порядок>2650 <Источник Имя="" Вид=""/> <Приемник Имя="НазваниеДокументаМодернизацииРегл" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>90 <Наименование> --> АмортизацияДо2009 <Порядок>2700 <Источник Имя="" Вид=""/> <Приемник Имя="АмортизацияДо2009" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>91 <Наименование> --> ФактическийСрокИспользованияДо2009 <Порядок>2750 <Источник Имя="" Вид=""/> <Приемник Имя="ФактическийСрокИспользованияДо2009" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>92 <Наименование> --> СтоимостьДляВычисленияАмортизацииПР <Порядок>2800 <Источник Имя="" Вид=""/> <Приемник Имя="СтоимостьДляВычисленияАмортизацииПР" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ТекущаяСтоимостьПР - ОбъектКоллекции.НакопленнаяАмортизацияПР; <Свойство Поиск="true"> <Код>59 <Наименование> --> Дата <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>60 <Наименование> --> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>63 <Наименование> --> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "# Перенесено из 1С:Бухгалтерии 7.7 # Остатки по разделу ""Основные средства"" Подразделение: """ + Строка(ВходящиеДанные.Получить("Подразделение")) + """" + "#" + Строка(ВходящиеДанные.Получить("ГруппировкаДокументов")) + "#"; <Свойство Поиск="true"> <Код>64 <Наименование> --> Организация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>79 <Наименование> --> ФормироватьПроводки <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВБухгалтерскомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>66 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВНалоговомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>88 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьПоСпециальнымРегистрам" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>86 <Наименование> --> РазделУчета <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РазделУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.РазделыУчетаДляВводаОстатков"/> <Свойство> <Код>89 <Наименование> --> ПодразделениеОрганизации <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Значения/> <Правило> <Код>ВводОстатковНДС <Наименование> --> ДокументСсылка.ВводНачальныхОстатковНДС <Порядок>250 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные.Получить("РазделУчета")) = 1 Тогда Отказ = 1; Иначе Если (ВходящиеДанные.Получить("РазделУчета") <> "НДСПоПриобретеннымЦенностям") И (ВходящиеДанные.Получить("РазделУчета") <> "НДСПоАвансамПолученным") И (ВходящиеДанные.Получить("РазделУчета") <> "НДСНачисленный") Тогда Отказ = 1; Иначе Если ПустоеЗначение(ВходящиеДанные.Получить("ДанныеПоСФНДС")) = 1 Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ДанныеПоСФНДС").КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; КонецЕсли; КонецЕсли; <ПослеЗагрузки>ПровестиЗаписьНеЗаписанныхОбъектов(); Объект.ОбменДанными.Загрузка = Ложь; Объект.Записать(); Объект.ОбменДанными.Загрузка = Истина; <Приемник>ДокументСсылка.ВводНачальныхОстатков <Свойства> <Группа> <Код>1 <Наименование> --> ДанныеПоСФНДС <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДанныеПоСФНДС" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ПустоеЗначение(ВходящиеДанные.Получить("ДанныеПоСФНДС")) = 1 Тогда Отказ = 1; ИначеЕсли ВходящиеДанные.Получить("ДанныеПоСФНДС").КоличествоСтрок() = 0 Тогда Отказ = 1; Иначе Значение = ВходящиеДанные.Получить("ДанныеПоСФНДС"); Значение.НоваяКолонка("СуммаБезНДСОплата", "Число"); Значение.НоваяКолонка("НДСОплата", "Число"); КонецЕсли; <Свойство> <Код>22 <Наименование> --> СчетУчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Свойство> <Код>28 <Наименование> --> СтавкаНДС <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>27 <Наименование> --> ВидЦенности <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦенности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыЦенностей"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидЦенности = "ТаможенныеПлатежи" Тогда Значение = "ПрочиеРаботыИУслуги"; КонецЕсли; <Свойство> <Код>2 <Наименование> --> Контрагент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>3 <Наименование> --> ДоговорКонтрагента <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>45 <Наименование> --> СчетФактура <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СчетФактура" Вид="Реквизит"/> <КодПравилаКонвертации>ДокументРасчетовСКонтрагентомДляВНО <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Контрагент", ОбъектКоллекции.Контрагент); ИсходящиеДанные.Установить("Договор", ОбъектКоллекции.ДоговорКонтрагента); //Если ПустоеЗначение(ОбъектКоллекции.СчетФактура) = 1 Тогда // Отказ = 1; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "ПоступлениеМатериалов" Тогда // ИмяПКО = "ПоступлениеМатериалов"; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "ПоступлениеНМА" Тогда // ИмяПКО = "ПоступлениеНМА"; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "ПоступлениеОборудования" Тогда // ИмяПКО = "ПоступлениеОборудования"; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "ПоступлениеОС" Тогда // ИмяПКО = "ПоступлениеОС"; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "ПоступлениеТоваров" Тогда // ИмяПКО = "ПоступлениеТоваров"; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "СчетФактураПолученный" Тогда // ИмяПКО = "СчетФактураПолученный"; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "УслугиСтороннихОрганизаций" Тогда // ИмяПКО = "УслугиСтороннихОрганизаций"; // //ИначеЕсли ОбъектКоллекции.СчетФактура.Вид() = "СчетФактура" Тогда // Если ВходящиеДанные.Получить("ВидОперации") = "НДСпоАвансамПолученным" Тогда // ИмяПКО = "СчетФактураНаАванс"; // // Иначе // ИмяПКО = "СчетФактура"; // КонецЕсли; //КонецЕсли; <Свойство> <Код>8 <Наименование> --> ПредъявленСФ <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСФ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>4 <Наименование> --> ДатаСФ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСФ" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>5 <Наименование> --> НомерСФ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="НомерСФ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> СуммаБезНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаБезНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> НДС <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование> --> ДатаПлатежноРасчетногоДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>47 <Наименование> --> НомерПлатежноРасчетногоДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>41 <Наименование> --> ВалютаВзаиморасчетов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>42 <Наименование> --> КратностьВзаиморасчетов <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>43 <Наименование> --> ВалютаАванса <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаАванса" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>44 <Наименование> --> КурсВзаиморасчетов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>49 <Наименование> --> ВалютнаяСуммаСНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютнаяСуммаСНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>57 <Наименование> --> НДСОплата <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="НДСОплата" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидЦенности = "АвансыВыданные" Тогда Значение = ОбъектКоллекции.НДС; КонецЕсли; <Свойство> <Код>56 <Наименование> --> СуммаБезНДСОплата <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаБезНДСОплата" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.ВидЦенности = "АвансыВыданные" Тогда Значение = ОбъектКоллекции.СуммаБезНДС; КонецЕсли; <Свойство> <Код>61 <Наименование> --> Исправление <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Исправление" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>62 <Наименование> --> НомерИсправления <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>58 <Наименование> --> ДатаИсправления <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаИсправления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>66 <Наименование> --> КорректировочныйСчетФактура <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="КорректировочныйСчетФактура" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>64 <Наименование> --> НомерИсходногоДокумента <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>60 <Наименование> --> ДатаИсходногоДокумента <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>65 <Наименование> --> УчитыватьИсправлениеИсходногоДокумента <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="УчитыватьИсправлениеИсходногоДокумента" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>63 <Наименование> --> НомерИсправленияИсходногоДокумента <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>59 <Наименование> --> ДатаИсправленияИсходногоДокумента <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Поиск="true"> <Код>11 <Наименование> --> Дата <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>//Если Параметры.ДатаКонцаПериодаВыгрузки > Параметры.ДатаВводаОстатков Тогда // Значение = Параметры.ДатаКонцаПериодаВыгрузки; // //Иначе // Значение = Параметры.ДатаВводаОстатков - 1; //КонецЕсли; <Свойство> <Код>12 <Наименование> --> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>13 <Наименование> --> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); Значение = Значение + " Остатки по счету """ + Строка(ВходящиеДанные.Получить("СчетУчетаНДС")) + """"; <Свойство Поиск="true"> <Код>14 <Наименование> --> Организация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>53 <Наименование> --> ФормироватьПроводки <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВБухгалтерскомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>55 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьПоСпециальнымРегистрам" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>52 <Наименование> --> ОтражатьВНалоговомУчете <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВНалоговомУчете" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>15 <Наименование> --> ВидОперации <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РазделУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.РазделыУчетаДляВводаОстатков"/> <Значения/> <Правило> <Код>ДокументРасчетовСКонтрагентомДляВНО <Наименование>: <Порядок>300 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ДокументРасчетовСКонтрагентом <Свойства> <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>9 <Наименование> --> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаВводаОстатков - 1; <Свойство Отключить="true" Поиск="true"> <Код>4 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>5 <Наименование> --> Контрагент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Если (ПустоеЗначение(ВходящиеДанные)=0) Тогда Значение = ВходящиеДанные.Получить("Контрагент"); Иначе Отказ = 1; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование> --> ДоговорКонтрагента <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>Если (ПустоеЗначение(ВходящиеДанные)=0) Тогда Значение = ВходящиеДанные.Получить("Договор"); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>1 <Наименование> --> ВалютаДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Договор = ""; Если (ПустоеЗначение(ВходящиеДанные)=0) Тогда Договор = ВходящиеДанные.Получить("Договор"); КонецЕсли; Если ПустоеЗначение(Договор)=0 Тогда Значение = ?(ПустоеЗначение(Договор.ВалютаДоговора) = 0,Договор.ВалютаДоговора,Параметры.Рубли); Иначе Значение = Параметры.Рубли; КонецЕсли; <Свойство Отключить="true"> <Код>2 <Наименование> --> ДатаВходящегоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>6 <Наименование> --> НомерВходящегоДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>8 <Наименование> --> СуммаДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> ПометкаУдаления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ЗарплатаКВыплатеОрганизаций_ВНО <Наименование>: <Порядок>350 <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда СделатьСсылкуНаДокВводаОстатков = ВходящиеДанные.Получить("СделатьСсылкуНаДокВводаОстатков"); Если ПустоеЗначение(СделатьСсылкуНаДокВводаОстатков) = 0 Тогда КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных) + СделатьСсылкуНаДокВводаОстатков; КонецЕсли; КонецЕсли; <Приемник>ДокументСсылка.ЗарплатаКВыплатеОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>5 <Наименование> --> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаВводаОстатков - 1; <Свойство Поиск="true"> <Код>2 <Наименование> --> ПериодРегистрации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ПериодРегистрации = Параметры.ДатаВводаОстатков - 1; ПериодРегистрации = НачМесяца(ПериодРегистрации); Значение = ПериодРегистрации; <Свойство Отключить="true"> <Код>3 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>4 <Наименование> --> СпособВыплаты <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособВыплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыВыплатыЗарплаты"/> <ПередВыгрузкой>Значение = "ЧерезКассу"; <Группа> <Код>6 <Наименование> --> Зарплата <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Зарплата" Вид="ТабличнаяЧасть"/> <Свойство> <Код>10 <Наименование> --> Физлицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>9 <Наименование> --> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование> --> ВыплаченностьЗарплаты <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВыплаченностьЗарплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ВыплаченностьЗарплаты"/> <Свойство Отключить="true"> <Код>8 <Наименование> --> КомпенсацияЗаЗадержкуЗарплаты <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КомпенсацияЗаЗадержкуЗарплаты" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ЗаявкаНаОткрытиеСчетов_ВНО <Наименование>: <Порядок>400 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные)=1 Тогда Отказ = 1; Иначе КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("Банк"))+ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("БанковскийСчет"))+ЗначениеВСтрокуВнутр(ВходящиеДанные.Получить("Дата")); КонецЕсли; <ПослеЗагрузки>Объект.КраткийСоставДокумента = ПроцедурыУправленияПерсоналом.ЗаполнитьКраткийСоставДокумента(Объект.РаботникиОрганизации, , "Физлицо"); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ЗаявкаНаОткрытиеСчетов <Свойства> <Свойство Поиск="true"> <Код>13 <Наименование> --> Дата <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>6 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Поиск="true"> <Код>1 <Наименование> --> Банк <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true"> <Код>2 <Наименование> --> БанковскийСчет <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>РасчетныеСчета <Свойство> <Код>3 <Наименование> --> Валюта <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Параметры.Рубли; <Свойство> <Код>4 <Наименование> --> ВводНачальныхСведений <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВводНачальныхСведений" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство Отключить="true"> <Код>5 <Наименование> --> ВидВклада <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидВклада" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>8 <Наименование> --> НомерДоговора <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="НомерДоговора" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>10 <Наименование> --> ОтделениеБанка <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ОтделениеБанка" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>11 <Наименование> --> ТекстПодтверждения <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ТекстПодтверждения" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>12 <Наименование> --> ФилиалОтделенияБанка <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ФилиалОтделенияБанка" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> ПометкаУдаления <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>15 <Наименование> --> РаботникиОрганизации <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <Свойство> <Код>18 <Наименование> --> ФизЛицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>17 <Наименование> --> НомерЛицевогоСчета <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерЛицевогоСчета" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>16 <Наименование> --> КонтрольнаяИнформация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КонтрольнаяИнформация" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>19 <Наименование> --> ЭмбоссированныйТекст1 <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЭмбоссированныйТекст1" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>20 <Наименование> --> ЭмбоссированныйТекст2 <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ЭмбоссированныйТекст2" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>21 <Наименование> --> ЭмбоссированныйТекст3 <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭмбоссированныйТекст3" Вид="Реквизит" Тип="Строка"/> <Значения/> <Группа> <Код>ПланСчетов <Наименование>План счетов <Порядок>300 <Правило> <Код>Хозрасчетный <Наименование>ПланСчетовСсылка.Основной --> ПланСчетовСсылка.Хозрасчетный <Порядок>300 <ПриВыгрузке>Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда КодСчета = ВходящиеДанные.Получить("КодСчета"); Если ПустоеЗначение(КодСчета) = 0 Тогда Источник = КодСчета; КонецЕсли; КонецЕсли; УзелАтрибутовСчета = СоздатьУзел("АтрибутыСчета"); Если ТипЗначенияСтр(Источник)="Счет" Тогда Счет = Источник; ДобавленныйСчет = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(Счет, "Хозрасчетный"), "Значения").Получить(Строка(Счет)); Если ПустоеЗначение(ДобавленныйСчет) = 1 Тогда //записываем данные о счете - валютный, количественный, забалансовый УстановитьАтрибут(УзелАтрибутовСчета, "УстанавливатьАтрибуты", 1); УстановитьАтрибут(УзелАтрибутовСчета, "Валютный", Счет.Валютный); УстановитьАтрибут(УзелАтрибутовСчета, "Количественный", Счет.Количественный); УстановитьАтрибут(УзелАтрибутовСчета, "Забалансовый", Счет.Забалансовый); Иначе УстановитьАтрибут(УзелАтрибутовСчета, "УстанавливатьАтрибуты", 0); КонецЕсли; Иначе УстановитьАтрибут(УзелАтрибутовСчета, "УстанавливатьАтрибуты", 0); КонецЕсли; ДобавитьПодчиненный(Приемник, УзелАтрибутовСчета); <ПриЗагрузке>Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "АтрибутыСчета" И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда УстанавливатьАтрибуты = одАтрибут(ФайлОбмена, одТипБулево, "УстанавливатьАтрибуты"); Если УстанавливатьАтрибуты Тогда Объект.Количественный = одАтрибут(ФайлОбмена, одТипБулево, "Количественный"); Объект.Валютный = одАтрибут(ФайлОбмена, одТипБулево, "Валютный"); Объект.Забалансовый = одАтрибут(ФайлОбмена, одТипБулево, "Забалансовый"); КонецЕсли; ИначеЕсли (ИмяУзла = "АтрибутыСчета") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Прервать; КонецЕсли; КонецЦикла; <Источник>ПланСчетовСсылка.Основной <Приемник>ПланСчетовСсылка.Хозрасчетный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Счет = Источник; ДобавленныйСчет = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(Счет, "Хозрасчетный"), "Значения").Получить(Строка(Счет)); Если ПустоеЗначение(ДобавленныйСчет) = 0 Тогда Отказ = 1; ИначеЕсли ТипЗначенияСтр(Источник)="Счет" Тогда Значение = Источник.Код; Иначе Значение = Источник; КонецЕсли <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Счет = Источник; Если (ТипЗначенияСтр(Счет)="Счет") и (ПустоеЗначение(Счет)=0) Тогда ДобавленныйСчет = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(Счет, "Хозрасчетный"), "Значения").Получить(Строка(Счет)); Если ПустоеЗначение(ДобавленныйСчет) = 0 Тогда Отказ = 1; Иначе Значение = Источник.Наименование; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Счет = Источник; Если (ТипЗначенияСтр(Счет)="Счет") и (ПустоеЗначение(Счет)=0) Тогда ДобавленныйСчет = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(Счет, "Хозрасчетный"), "Значения").Получить(Строка(Счет)); Если ПустоеЗначение(ДобавленныйСчет) = 0 Тогда Отказ = 1; Иначе Значение = Источник.ПометкаУдаления(); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Значения> <Значение> <Код>2 <Наименование>001 --> 001 <Порядок>100 <Источник>001 <Приемник>АрендованныеОсновныеСредства <Значение> <Код>3 <Наименование>002.1 --> 002 <Порядок>200 <Источник>002.1 <Приемник>ТМЦпринятыеНаОтветственноеХранение <Значение> <Код>4 <Наименование>002.2 --> 002 <Порядок>300 <Источник>002.2 <Приемник>ТМЦпринятыеНаОтветственноеХранение <Значение> <Код>5 <Наименование>003 --> 003.01 <Порядок>400 <Источник>003 <Приемник>МатериалыПринятыеВПереработку <Значение> <Код>6 <Наименование>004 --> 004.01 <Порядок>500 <Источник>004 <Приемник>ТоварыНаСкладе <Значение> <Код>7 <Наименование>005 --> 005 <Порядок>600 <Источник>005 <Приемник>ОборудованиеПринятоеДляМонтажа <Значение> <Код>8 <Наименование>006 --> 006 <Порядок>700 <Источник>006 <Приемник>БланкиСтрогойОтчетности <Значение> <Код>9 <Наименование>007 --> 007 <Порядок>800 <Источник>007 <Приемник>СписаннаяВУбытокЗадолженностьДебиторов <Значение> <Код>10 <Наименование>008 --> 008 <Порядок>900 <Источник>008 <Приемник>ОбеспеченияОбязательствПолученные <Значение> <Код>11 <Наименование>009 --> 009 <Порядок>1000 <Источник>009 <Приемник>ОбеспеченияОбязательствВыданные <Значение> <Код>12 <Наименование>01.1 --> 01.01 <Порядок>1100 <Источник>01.1 <Приемник>ОСвОрганизации <Значение> <Код>13 <Наименование>01.2 --> 01.09 <Порядок>1200 <Источник>01.2 <Приемник>ВыбытиеОС <Значение> <Код>14 <Наименование>010 --> 010 <Порядок>1300 <Источник>010 <Приемник>ИзносОсновныхСредств <Значение> <Код>15 <Наименование>011 --> 011 <Порядок>1400 <Источник>011 <Приемник>ОсновныеСредстваСданныеВАренду <Значение> <Код>16 <Наименование>02.1 --> 02.01 <Порядок>1500 <Источник>02.1 <Приемник>АмортизацияОС_01 <Значение> <Код>17 <Наименование>02.2 --> 02.02 <Порядок>1600 <Источник>02.2 <Приемник>АмортизацияОС_03 <Значение> <Код>18 <Наименование>03.1 --> 03.01 <Порядок>1700 <Источник>03.1 <Приемник>МЦвОрганизации <Значение> <Код>19 <Наименование>03.2 --> 03.02 <Порядок>1800 <Источник>03.2 <Приемник>МЦ_ПредоставленныеВоВременноеВладение <Значение> <Код>20 <Наименование>03.3 --> 03.03 <Порядок>1900 <Источник>03.3 <Приемник>МЦ_ПредоставленныеВоВременноеПользование <Значение> <Код>21 <Наименование>03.4 --> 03.04 <Порядок>2000 <Источник>03.4 <Приемник>ПрочиеДоходныеВложения <Значение> <Код>22 <Наименование>03.5 --> 03.09 <Порядок>2100 <Источник>03.5 <Приемник>ВыбытиеМЦ <Значение> <Код>23 <Наименование>04.1 --> 04.01 <Порядок>2200 <Источник>04.1 <Приемник>НематериальныеАктивыОрганизации <Значение> <Код>24 <Наименование>04.2 --> 04.02 <Порядок>2300 <Источник>04.2 <Приемник>РасходыНаНИОКР <Значение> <Код>25 <Наименование>05 --> 05 <Порядок>2400 <Источник>05 <Приемник>АмортизацияНематериальныхАктивов <Значение> <Код>26 <Наименование>07 --> 07 <Порядок>2500 <Источник>07 <Приемник>ОборудованиеКУстановке <Значение> <Код>27 <Наименование>08.1 --> 08.01 <Порядок>2600 <Источник>08.1 <Приемник>ПриобретениеЗемельныхУчастков <Значение> <Код>28 <Наименование>08.2 --> 08.02 <Порядок>2700 <Источник>08.2 <Приемник>ПриобретениеОбъектовПриродопользования <Значение> <Код>29 <Наименование>08.3 --> 08.03 <Порядок>2800 <Источник>08.3 <Приемник>СтроительствоОбъектовОсновныхСредств <Значение> <Код>30 <Наименование>08.4 --> 08.04 <Порядок>2900 <Источник>08.4 <Приемник>ПриобретениеОбъектовОсновныхСредств <Значение> <Код>31 <Наименование>08.5 --> 08.05 <Порядок>3000 <Источник>08.5 <Приемник>ПриобретениеНематериальныхАктивов <Значение> <Код>32 <Наименование>08.6 --> 08.06 <Порядок>3100 <Источник>08.6 <Приемник>ПереводМолоднякаЖивотныхВОсновноеСтадо <Значение> <Код>33 <Наименование>08.7 --> 08.07 <Порядок>3200 <Источник>08.7 <Приемник>ПриобретениеВзрослыхЖивотных <Значение> <Код>34 <Наименование>08.8 --> 08.08 <Порядок>3300 <Источник>08.8 <Приемник>ВыполнениеНИОКР <Значение> <Код>35 <Наименование>09 --> 09 <Порядок>3400 <Источник>09 <Приемник>ОтложенныеНалоговыеАктивы <Значение> <Код>36 <Наименование>10.1 --> 10.01 <Порядок>3500 <Источник>10.1 <Приемник>СырьеИМатериалы <Значение> <Код>37 <Наименование>10.2 --> 10.02 <Порядок>3600 <Источник>10.2 <Приемник>ПокупныеПолуфабрикатыИКомплектующие <Значение> <Код>38 <Наименование>10.3 --> 10.03 <Порядок>3700 <Источник>10.3 <Приемник>Топливо <Значение> <Код>39 <Наименование>10.4 --> 10.04 <Порядок>3800 <Источник>10.4 <Приемник>Тара <Значение> <Код>40 <Наименование>10.5 --> 10.05 <Порядок>3900 <Источник>10.5 <Приемник>ЗапасныеЧасти <Значение> <Код>41 <Наименование>10.6 --> 10.06 <Порядок>4000 <Источник>10.6 <Приемник>ПрочиеМатериалы <Значение> <Код>42 <Наименование>10.7 --> 10.07 <Порядок>4100 <Источник>10.7 <Приемник>МатериалыПереданныеВПереработку <Значение> <Код>43 <Наименование>10.8 --> 10.08 <Порядок>4200 <Источник>10.8 <Приемник>СтроительныеМатериалы <Значение> <Код>44 <Наименование>10.9 --> 10.09 <Порядок>4300 <Источник>10.9 <Приемник>ИнвентарьИХозяйственныеПринадлежности <Значение> <Код>45 <Наименование>11 --> 11 <Порядок>4400 <Источник>11 <Приемник>ЖивотныеНаВыращиванииИОткорме <Значение> <Код>46 <Наименование>14.1 --> 14.01 <Порядок>4500 <Источник>14.1 <Приемник>РезервыПодСнижениеСтоимостиМатериалов <Значение> <Код>47 <Наименование>14.2 --> 14.02 <Порядок>4600 <Источник>14.2 <Приемник>РезервыПодСнижениеСтоимостиТоваров <Значение> <Код>48 <Наименование>14.3 --> 14.03 <Порядок>4700 <Источник>14.3 <Приемник>РезервыПодСнижениеСтоимостиГотовойПродукции <Значение> <Код>49 <Наименование>14.4 --> 14.04 <Порядок>4800 <Источник>14.4 <Приемник>РезервыПодСнижениеСтоимостиНезавершенногоПроизводства <Значение> <Код>50 <Наименование>15.1 --> 15.01 <Порядок>4900 <Источник>15.1 <Приемник>ЗаготовлениеИПриобретениеМатериалов <Значение> <Код>51 <Наименование>15.2 --> 15.02 <Порядок>5000 <Источник>15.2 <Приемник>ПриобретениеТоваров <Значение> <Код>52 <Наименование>16.1 --> 16.01 <Порядок>5100 <Источник>16.1 <Приемник>ОтклонениеВСтоимостиМатериалов <Значение> <Код>53 <Наименование>16.2 --> 16.02 <Порядок>5200 <Источник>16.2 <Приемник>ОтклонениеВСтоимостиТоваров <Значение> <Код>54 <Наименование>16.3 --> 16.02 <Порядок>5300 <Источник>16.3 <Приемник>ОтклонениеВСтоимостиТоваров <Значение> <Код>55 <Наименование>19.1 --> 19.01 <Порядок>5400 <Источник>19.1 <Приемник>НДСприПриобретенииОсновныхСредств <Значение> <Код>56 <Наименование>19.2 --> 19.02 <Порядок>5500 <Источник>19.2 <Приемник>НДСпоПриобретеннымНематериальнымАктивам <Значение> <Код>57 <Наименование>19.3 --> 19.03 <Порядок>5600 <Источник>19.3 <Приемник>НДСпоПриобретеннымМПЗ <Значение> <Код>58 <Наименование>19.4 --> 19.04 <Порядок>5700 <Источник>19.4 <Приемник>НДСуплачиваемыйТаможеннымОрганам <Значение> <Код>59 <Наименование>19.5 --> 19.05 <Порядок>5800 <Источник>19.5 <Приемник>АкцизыПоОплаченнымМатериальнымЦенностям <Значение> <Код>60 <Наименование>20 --> 20.01 <Порядок>5900 <Источник>20 <Приемник>ОсновноеПроизводство <Значение> <Код>61 <Наименование>21 --> 21 <Порядок>6000 <Источник>21 <Приемник>Полуфабрикаты <Значение> <Код>62 <Наименование>23 --> 23 <Порядок>6100 <Источник>23 <Приемник>ВспомогательныеПроизводства <Значение> <Код>63 <Наименование>25 --> 25 <Порядок>6200 <Источник>25 <Приемник>ОбщепроизводственныеРасходы <Значение> <Код>64 <Наименование>26 --> 26 <Порядок>6300 <Источник>26 <Приемник>ОбщехозяйственныеРасходы <Значение> <Код>65 <Наименование>28 --> 28 <Порядок>6400 <Источник>28 <Приемник>БракВПроизводстве <Значение> <Код>66 <Наименование>29 --> 29 <Порядок>6500 <Источник>29 <Приемник>ОбслуживающиеПроизводства <Значение> <Код>67 <Наименование>40 --> 40 <Порядок>6600 <Источник>40 <Приемник>ВыпускПродукции <Значение> <Код>68 <Наименование>41.1 --> 41.01 <Порядок>6700 <Источник>41.1 <Приемник>ТоварыНаСкладах <Значение> <Код>69 <Наименование>41.2 --> 41.02 <Порядок>6800 <Источник>41.2 <Приемник>ТоварыВРозничнойТорговле <Значение> <Код>70 <Наименование>41.3 --> 41.03 <Порядок>6900 <Источник>41.3 <Приемник>ТараПодТоваромИПорожняя <Значение> <Код>71 <Наименование>41.4 --> 41.04 <Порядок>7000 <Источник>41.4 <Приемник>ПокупныеИзделия <Значение> <Код>72 <Наименование>41.5 --> 41.01 <Порядок>7100 <Источник>41.5 <Приемник>МатериалыПереданныеВПереработку <Значение> <Код>73 <Наименование>42 --> 42 <Порядок>7200 <Источник>42 <Приемник>ТорговаяНаценкаНТТ <Значение> <Код>74 <Наименование>43 --> 43 <Порядок>7300 <Источник>43 <Приемник>ГотоваяПродукция <Значение> <Код>75 <Наименование>44.1.1 --> 44.01 <Порядок>7400 <Источник>44.1.1 <Приемник>ИздержкиОбращения <Значение> <Код>76 <Наименование>44.1.2 --> 44.01 <Порядок>7500 <Источник>44.1.2 <Приемник>ИздержкиОбращения <Значение> <Код>77 <Наименование>44.1.3 --> 44.01 <Порядок>7600 <Источник>44.1.3 <Приемник>ИздержкиОбращения <Значение> <Код>78 <Наименование>44.2 --> 44.02 <Порядок>7700 <Источник>44.2 <Приемник>КоммерческиеРасходы <Значение> <Код>79 <Наименование>44.3 --> 44.02 <Порядок>7800 <Источник>44.3 <Приемник>КоммерческиеРасходы <Значение> <Код>80 <Наименование>45 --> 45.01 <Порядок>7900 <Источник>45 <Приемник>ПокупныеТоварыОтгруженные <Значение> <Код>81 <Наименование>46 --> 46 <Порядок>8000 <Источник>46 <Приемник>ВыполненныеЭтапыПоНезавершеннымРаботам <Значение> <Код>82 <Наименование>50.1 --> 50.01 <Порядок>8100 <Источник>50.1 <Приемник>КассаОрганизации <Значение> <Код>83 <Наименование>50.11 --> 50.21 <Порядок>8200 <Источник>50.11 <Приемник>КассаОрганизацииВал <Значение> <Код>84 <Наименование>50.2 --> 50.02 <Порядок>8300 <Источник>50.2 <Приемник>ОперационнаяКасса <Значение> <Код>85 <Наименование>50.3 --> 50.03 <Порядок>8400 <Источник>50.3 <Приемник>ДенежныеДокументы <Значение> <Код>86 <Наименование>50.33 --> 50.23 <Порядок>8500 <Источник>50.33 <Приемник>ДенежныеДокументыВал <Значение> <Код>87 <Наименование>51 --> 51 <Порядок>8600 <Источник>51 <Приемник>РасчетныеСчета <Значение> <Код>88 <Наименование>52 --> 52 <Порядок>8700 <Источник>52 <Приемник>ВалютныеСчета <Значение> <Код>89 <Наименование>55.1 --> 55.01 <Порядок>8800 <Источник>55.1 <Приемник>Аккредитивы <Значение> <Код>90 <Наименование>55.11 --> 55.21 <Порядок>8900 <Источник>55.11 <Приемник>АккредитивыВал <Значение> <Код>91 <Наименование>55.2 --> 55.02 <Порядок>9000 <Источник>55.2 <Приемник>ЧековыеКнижки <Значение> <Код>92 <Наименование>55.3 --> 55.03 <Порядок>9100 <Источник>55.3 <Приемник>ДепозитныеСчета <Значение> <Код>93 <Наименование>55.33 --> 55.23 <Порядок>9200 <Источник>55.33 <Приемник>ДепозитныеСчетаВал <Значение> <Код>94 <Наименование>55.4 --> 55.04 <Порядок>9300 <Источник>55.4 <Приемник>ПрочиеСпециальныеСчета <Значение> <Код>95 <Наименование>55.44 --> 55.24 <Порядок>9400 <Источник>55.44 <Приемник>ПрочиеСпециальныеСчетаВал <Значение> <Код>96 <Наименование>57.1 --> 57.01 <Порядок>9500 <Источник>57.1 <Приемник>ПереводыВПути <Значение> <Код>97 <Наименование>57.11 --> 57.02 <Порядок>9600 <Источник>57.11 <Приемник>ПереводыВПутиВал <Значение> <Код>98 <Наименование>58.1.1 --> 58.01.1 <Порядок>9700 <Источник>58.1.1 <Приемник>Паи <Значение> <Код>99 <Наименование>58.1.2 --> 58.01.2 <Порядок>9800 <Источник>58.1.2 <Приемник>Акции <Значение> <Код>100 <Наименование>58.2 --> 58.02 <Порядок>9900 <Источник>58.2 <Приемник>ДолговыеЦенныеБумаги <Значение> <Код>101 <Наименование>58.3 --> 58.03 <Порядок>10000 <Источник>58.3 <Приемник>ПредоставленныеЗаймы <Значение> <Код>102 <Наименование>58.4 --> 58.04 <Порядок>10100 <Источник>58.4 <Приемник>ВкладыПоДоговоруПростогоТоварищества <Значение> <Код>103 <Наименование>58.5 --> 58.05 <Порядок>10200 <Источник>58.5 <Приемник>ПриобретенныеПрава <Значение> <Код>104 <Наименование>59 --> 59 <Порядок>10300 <Источник>59 <Приемник>РезервыПодОбесценениеФинансовыхВложений <Значение> <Код>105 <Наименование>60.1 --> 60.01 <Порядок>10400 <Источник>60.1 <Приемник>РасчетыСПоставщиками <Значение> <Код>106 <Наименование>60.11 --> 60.21 <Порядок>10500 <Источник>60.11 <Приемник>РасчетыСПоставщикамиВал <Значение> <Код>107 <Наименование>60.2 --> 60.02 <Порядок>10600 <Источник>60.2 <Приемник>РасчетыПоАвансамВыданным <Значение> <Код>108 <Наименование>60.22 --> 60.22 <Порядок>10700 <Источник>60.22 <Приемник>РасчетыПоАвансамВыданнымВал <Значение> <Код>109 <Наименование>60.3 --> 60.03 <Порядок>10800 <Источник>60.3 <Приемник>ВекселяВыданные <Значение> <Код>110 <Наименование>60.6 --> 60.31 <Порядок>10900 <Источник>60.6 <Приемник>РасчетыСПоставщикамиУЕ <Значение> <Код>111 <Наименование>60.7 --> 60.32 <Порядок>11000 <Источник>60.7 <Приемник>РасчетыПоАвансамВыданнымУЕ <Значение> <Код>112 <Наименование>62.1 --> 62.01 <Порядок>11100 <Источник>62.1 <Приемник>РасчетыСПокупателями <Значение> <Код>113 <Наименование>62.11 --> 62.21 <Порядок>11200 <Источник>62.11 <Приемник>РасчетыСПокупателямиВал <Значение> <Код>114 <Наименование>62.2 --> 60.02 <Порядок>11300 <Источник>62.2 <Приемник>РасчетыПоАвансамПолученным <Значение> <Код>115 <Наименование>62.22 --> 60.22 <Порядок>11400 <Источник>62.22 <Приемник>РасчетыПоАвансамПолученнымВал <Значение> <Код>116 <Наименование>62.3 --> 62.03 <Порядок>11500 <Источник>62.3 <Приемник>ВекселяПолученные <Значение> <Код>117 <Наименование>62.4 --> 62.01 <Порядок>11600 <Источник>62.4 <Приемник>РасчетыСПокупателями <Значение> <Код>118 <Наименование>62.44 --> 62.21 <Порядок>11700 <Источник>62.44 <Приемник>РасчетыСПокупателямиВал <Значение> <Код>119 <Наименование>62.6 --> 62.31 <Порядок>11800 <Источник>62.6 <Приемник>РасчетыСПокупателямиУЕ <Значение> <Код>120 <Наименование>62.7 --> 62.32 <Порядок>11900 <Источник>62.7 <Приемник>РасчетыПоАвансамПолученнымУЕ <Значение> <Код>121 <Наименование>62.8 --> 62.31 <Порядок>12000 <Источник>62.8 <Приемник>РасчетыСПокупателямиУЕ <Значение> <Код>122 <Наименование>63 --> 63 <Порядок>12100 <Источник>63 <Приемник>РезервыПоСомнительнымДолгам <Значение> <Код>123 <Наименование>66.1 --> 66.01 <Порядок>12200 <Источник>66.1 <Приемник>КраткосрочныеКредиты <Значение> <Код>124 <Наименование>66.11 --> 66.21 <Порядок>12300 <Источник>66.11 <Приемник>КраткосрочныеКредитыВал <Значение> <Код>125 <Наименование>66.2 --> 66.02 <Порядок>12400 <Источник>66.2 <Приемник>ПроцентыПоКраткосрочнымКредитам <Значение> <Код>126 <Наименование>66.22 --> 66.22 <Порядок>12500 <Источник>66.22 <Приемник>ПроцентыПоКраткосрочнымКредитамВал <Значение> <Код>127 <Наименование>66.3 --> 66.03 <Порядок>12600 <Источник>66.3 <Приемник>КраткосрочныеЗаймы <Значение> <Код>128 <Наименование>66.33 --> 66.23 <Порядок>12700 <Источник>66.33 <Приемник>КраткосрочныеЗаймыВал <Значение> <Код>129 <Наименование>66.4 --> 66.04 <Порядок>12800 <Источник>66.4 <Приемник>ПроцентыПоКраткосрочнымЗаймам <Значение> <Код>130 <Наименование>66.44 --> 66.24 <Порядок>12900 <Источник>66.44 <Приемник>ПроцентыПоКраткосрочнымЗаймамВал <Значение> <Код>131 <Наименование>66.5 --> 66.03 <Порядок>13000 <Источник>66.5 <Приемник>КраткосрочныеЗаймы <Значение> <Код>132 <Наименование>66.6 --> 66.04 <Порядок>13100 <Источник>66.6 <Приемник>ПроцентыПоКраткосрочнымЗаймам <Значение> <Код>133 <Наименование>67.1 --> 67.01 <Порядок>13200 <Источник>67.1 <Приемник>ДолгосрочныеКредиты <Значение> <Код>134 <Наименование>67.11 --> 67.21 <Порядок>13300 <Источник>67.11 <Приемник>ДолгосрочныеКредитыВал <Значение> <Код>135 <Наименование>67.2 --> 67.02 <Порядок>13400 <Источник>67.2 <Приемник>ПроцентыПоДолгосрочнымКредитам <Значение> <Код>136 <Наименование>67.22 --> 67.22 <Порядок>13500 <Источник>67.22 <Приемник>ПроцентыПоДолгосрочнымКредитамВал <Значение> <Код>137 <Наименование>67.3 --> 67.03 <Порядок>13600 <Источник>67.3 <Приемник>ДолгосрочныеЗаймы <Значение> <Код>138 <Наименование>67.33 --> 67.23 <Порядок>13700 <Источник>67.33 <Приемник>ДолгосрочныеЗаймыВал <Значение> <Код>139 <Наименование>67.4 --> 67.04 <Порядок>13800 <Источник>67.4 <Приемник>ПроцентыПоДолгосрочнымЗаймам <Значение> <Код>140 <Наименование>67.44 --> 67.24 <Порядок>13900 <Источник>67.44 <Приемник>ПроцентыПоДолгосрочнымЗаймамВал <Значение> <Код>141 <Наименование>67.5 --> 67.03 <Порядок>14000 <Источник>67.5 <Приемник>ДолгосрочныеЗаймы <Значение> <Код>142 <Наименование>67.6 --> 67.04 <Порядок>14100 <Источник>67.6 <Приемник>ПроцентыПоДолгосрочнымЗаймам <Значение> <Код>143 <Наименование>68.1 --> 68.01 <Порядок>14200 <Источник>68.1 <Приемник>НДФЛ <Значение> <Код>144 <Наименование>68.10 --> 68.10 <Порядок>14300 <Источник>68.10 <Приемник>ПрочиеНалогиИСборы <Значение> <Код>145 <Наименование>68.2 --> 68.02 <Порядок>14400 <Источник>68.2 <Приемник>НДС <Значение> <Код>146 <Наименование>68.3 --> 68.03 <Порядок>14500 <Источник>68.3 <Приемник>Акцизы <Значение> <Код>147 <Наименование>68.4.1 --> 68.04.1 <Порядок>14600 <Источник>68.4.1 <Приемник>РасчетыСБюджетом <Значение> <Код>148 <Наименование>68.4.2 --> 68.04.2 <Порядок>14700 <Источник>68.4.2 <Приемник>РасчетНалогаНаПрибыль <Значение> <Код>149 <Наименование>68.5 --> 68.10 <Порядок>14800 <Источник>68.5 <Приемник>ПрочиеНалогиИСборы <Значение> <Код>150 <Наименование>68.7 --> 68.07 <Порядок>14900 <Источник>68.7 <Приемник>ТранспортныйНалог <Значение> <Код>151 <Наименование>68.8 --> 68.08 <Порядок>15000 <Источник>68.8 <Приемник>НалогНаИмущество <Значение> <Код>152 <Наименование>69.1 --> 69.01 <Порядок>15100 <Источник>69.1 <Приемник>ФСС <Значение> <Код>312 <Наименование>69.1 --> 69.01 <Порядок>15100 <Источник>69.21.5 <Приемник>ФСС <Значение> <Код>153 <Наименование>69.11 --> 69.11 <Порядок>15200 <Источник>69.11 <Приемник>ФСС_НСиПЗ <Значение> <Код>154 <Наименование>69.2.1 --> 69.04 <Порядок>15300 <Источник>69.2.1 <Приемник>ЕСН_ФБ <Значение> <Код>313 <Наименование>69.2.2 --> 69.02.1 <Порядок>15400 <Источник>69.21.1 <Приемник>ПФР_страх <Значение> <Код>155 <Наименование>69.2.2 --> 69.02.1 <Порядок>15400 <Источник>69.2.2 <Приемник>ПФР_страх <Значение> <Код>156 <Наименование>69.2.3 --> 69.02.2 <Порядок>15500 <Источник>69.2.3 <Приемник>ПФР_нак <Значение> <Код>314 <Наименование>69.2.3 --> 69.02.2 <Порядок>15500 <Источник>69.21.2 <Приемник>ПФР_нак <Значение> <Код>315 <Наименование>69.3.1 --> 69.03.1 <Порядок>15600 <Источник>69.21.3 <Приемник>ФФОМС <Значение> <Код>157 <Наименование>69.3.1 --> 69.03.1 <Порядок>15600 <Источник>69.3.1 <Приемник>ФФОМС <Значение> <Код>158 <Наименование>69.3.2 --> 69.03.2 <Порядок>15700 <Источник>69.3.2 <Приемник>ТФОМС <Значение> <Код>316 <Наименование>69.3.2 --> 69.03.2 <Порядок>15700 <Источник>69.21.4 <Приемник>ТФОМС <Значение> <Код>159 <Наименование>70 --> 70 <Порядок>15800 <Источник>70 <Приемник>РасчетыСПерсоналомПоОплатеТруда <Значение> <Код>160 <Наименование>71.1 --> 71.01 <Порядок>15900 <Источник>71.1 <Приемник>РасчетыСПодотчетнымиЛицами <Значение> <Код>161 <Наименование>71.11 --> 71.21 <Порядок>16000 <Источник>71.11 <Приемник>РасчетыСПодотчетнымиЛицамиВал <Значение> <Код>162 <Наименование>73.1 --> 73.01 <Порядок>16100 <Источник>73.1 <Приемник>РасчетыПоПредоставленнымЗаймам <Значение> <Код>163 <Наименование>73.2 --> 73.02 <Порядок>16200 <Источник>73.2 <Приемник>РасчетыПоВозмещениюМатериальногоУщерба <Значение> <Код>164 <Наименование>73.3 --> 73.03 <Порядок>16300 <Источник>73.3 <Приемник>РасчетыПоПрочимОперациям <Значение> <Код>165 <Наименование>75.1 --> 75.01 <Порядок>16400 <Источник>75.1 <Приемник>РасчетыПоВкладамВУставныйКапитал <Значение> <Код>166 <Наименование>75.2 --> 75.02 <Порядок>16500 <Источник>75.2 <Приемник>РасчетыПоВыплатеДоходов <Значение> <Код>167 <Наименование>75.3 --> 75.01 <Порядок>16600 <Источник>75.3 <Приемник>РасчетыПоВкладамВУставныйКапитал <Значение> <Код>168 <Наименование>76.1.1 --> 76.01 <Порядок>16700 <Источник>76.1.1 <Приемник>РасчетыПоИмущественномуИЛичномуСтрахованию <Значение> <Код>169 <Наименование>76.1.2 --> 76.01 <Порядок>16800 <Источник>76.1.2 <Приемник>ПлатежиПоДобровольномуСтрахованиюРаботников <Значение> <Код>170 <Наименование>76.1.3 --> 76.01 <Порядок>16900 <Источник>76.1.3 <Приемник>ПлатежиПоДобровольномуСтрахованиюРаботников <Значение> <Код>171 <Наименование>76.1.4 --> 76.01 <Порядок>17000 <Источник>76.1.4 <Приемник>ПлатежиПоДобровольномуСтрахованиюРаботников <Значение> <Код>172 <Наименование>76.11 --> 76.21 <Порядок>17100 <Источник>76.11 <Приемник>РасчетыПоИмущественномуИЛичномуСтрахованиюВал <Значение> <Код>173 <Наименование>76.2 --> 76.02 <Порядок>17200 <Источник>76.2 <Приемник>РасчетыПоПретензиям <Значение> <Код>174 <Наименование>76.22 --> 76.22 <Порядок>17300 <Источник>76.22 <Приемник>РасчетыПоПретензиямВал <Значение> <Код>175 <Наименование>76.3 --> 76.03 <Порядок>17400 <Источник>76.3 <Приемник>РасчетыПоПричитающимсяДивидендам <Значение> <Код>176 <Наименование>76.4 --> 76.04 <Порядок>17500 <Источник>76.4 <Приемник>РасчетыПоДепонированнымСуммам <Значение> <Код>177 <Наименование>76.5 --> 76.09 <Порядок>17600 <Источник>76.5 <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторами <Значение> <Код>178 <Наименование>76.55 --> 76.25 <Порядок>17700 <Источник>76.55 <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторамиВал <Значение> <Код>179 <Наименование>76.6 --> 76.06 <Порядок>17800 <Источник>76.6 <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторамиУЕ <Значение> <Код>180 <Наименование>76.АВ --> 76.АВ <Порядок>17900 <Источник>76.АВ <Приемник>НДСпоАвансамИПредоплатам <Значение> <Код>317 <Наименование>76.АВ --> 76.АВ <Порядок>17900 <Источник>76.ВА <Приемник>НДСпоАвансамИПредоплатамВыданным <Значение> <Код>181 <Наименование>76.ЗП --> 76.09 <Порядок>18000 <Источник>76.ЗП <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторами <Значение> <Код>182 <Наименование>76.Н.1 --> 76.Н <Порядок>18100 <Источник>76.Н.1 <Приемник>РасчетыПоНДСотложенномуДляУплатыВБюджет <Значение> <Код>183 <Наименование>77 --> 77 <Порядок>18200 <Источник>77 <Приемник>ОтложенныеНалоговыеОбязательства <Значение> <Код>184 <Наименование>76.Н.2 --> 76.Н <Порядок>18300 <Источник>76.Н.2 <Приемник>РасчетыПоНДСотложенномуДляУплатыВБюджет <Значение> <Код>185 <Наименование>76.Н.4 --> 76.Н <Порядок>18400 <Источник>76.Н.4 <Приемник>РасчетыПоНДСотложенномуДляУплатыВБюджет <Значение> <Код>186 <Наименование>79.1 --> 79.01 <Порядок>18500 <Источник>79.1 <Приемник>РасчетыПоВыделенномуИмуществу <Значение> <Код>187 <Наименование>79.2 --> 79.02 <Порядок>18600 <Источник>79.2 <Приемник>РасчетыПоТекущимОперациям <Значение> <Код>188 <Наименование>79.3 --> 79.03 <Порядок>18700 <Источник>79.3 <Приемник>РасчетыПоДоговоруДоверительногоУправленияИмуществом <Значение> <Код>189 <Наименование>80 --> 80.01 <Порядок>18800 <Источник>80 <Приемник>УставныйКапитал_ОбыкновенныеАкции <Значение> <Код>190 <Наименование>81 --> 81.01 <Порядок>18900 <Источник>81 <Приемник>СобственныеАкции_ОбыкновенныеАкции <Значение> <Код>191 <Наименование>82.1 --> 82.01 <Порядок>19000 <Источник>82.1 <Приемник>РезервыОбразованныеВСоответствииСЗаконодательством <Значение> <Код>192 <Наименование>82.2 --> 82.02 <Порядок>19100 <Источник>82.2 <Приемник>РезервыОбразованныеВСоответствииСУчредительнымиДокументами <Значение> <Код>193 <Наименование>83.1 --> 83.01 <Порядок>19200 <Источник>83.1 <Приемник>ПриростСтоимостиИмуществаПоПереоценке <Значение> <Код>194 <Наименование>83.2 --> 83.02 <Порядок>19300 <Источник>83.2 <Приемник>ЭмиссионныйДоходОтВыпускаОбыкновенныхАкций <Значение> <Код>195 <Наименование>83.3 --> 83.09 <Порядок>19400 <Источник>83.3 <Приемник>ДругиеИсточники <Значение> <Код>196 <Наименование>84.1 --> 84.01 <Порядок>19500 <Источник>84.1 <Приемник>ПрибыльПодлежащаяРаспределению <Значение> <Код>197 <Наименование>84.2 --> 84.02 <Порядок>19600 <Источник>84.2 <Приемник>УбытокПодлежащийПокрытию <Значение> <Код>198 <Наименование>84.3 --> 84.03 <Порядок>19700 <Источник>84.3 <Приемник>НераспределеннаяПрибыльВОбращении <Значение> <Код>199 <Наименование>84.4 --> 84.04 <Порядок>19800 <Источник>84.4 <Приемник>НераспределеннаяПрибыльИспользованная <Значение> <Код>200 <Наименование>86 --> 86.01 <Порядок>19900 <Источник>86 <Приемник>ЦелевоеФинансированиеИзБюджета <Значение> <Код>201 <Наименование>90.1.1 --> 90.01.1 <Порядок>20000 <Источник>90.1.1 <Приемник>ВыручкаНеЕНВД <Значение> <Код>202 <Наименование>90.1.2 --> 90.01.2 <Порядок>20100 <Источник>90.1.2 <Приемник>ВыручкаЕНВД <Значение> <Код>203 <Наименование>90.2.1 --> 90.02.1 <Порядок>20200 <Источник>90.2.1 <Приемник>СебестоимостьПродажНеЕНВД <Значение> <Код>204 <Наименование>90.3 --> 90.03 <Порядок>20300 <Источник>90.3 <Приемник>Продажи_НДС <Значение> <Код>205 <Наименование>90.4 --> 90.04 <Порядок>20400 <Источник>90.4 <Приемник>Продажи_Акцизы <Значение> <Код>206 <Наименование>90.5 --> 90.05 <Порядок>20500 <Источник>90.5 <Приемник>Продажи_ЭкспортныеПошлины <Значение> <Код>207 <Наименование>90.7.1 --> 90.07.1 <Порядок>20600 <Источник>90.7.1 <Приемник>Продажи_РасходыНаПродажуНеЕНВД <Значение> <Код>208 <Наименование>90.7.2 --> 90.07.2 <Порядок>20700 <Источник>90.7.2 <Приемник>Продажи_РасходыНаПродажуЕНВД <Значение> <Код>209 <Наименование>90.8.1 --> 90.08.1 <Порядок>20800 <Источник>90.8.1 <Приемник>Продажи_УправленческиеРасходыНеЕНВД <Значение> <Код>210 <Наименование>90.8.2 --> 90.08.2 <Порядок>20900 <Источник>90.8.2 <Приемник>Продажи_УправленческиеРасходыЕНВД <Значение> <Код>211 <Наименование>90.9 --> 90.09 <Порядок>21000 <Источник>90.9 <Приемник>ПрибыльУбытокОтПродаж <Значение> <Код>212 <Наименование>91.1 --> 91.01 <Порядок>21100 <Источник>91.1 <Приемник>ПрочиеДоходы <Значение> <Код>213 <Наименование>91.2 --> 91.02 <Порядок>21200 <Источник>91.2 <Приемник>ПрочиеРасходы <Значение> <Код>214 <Наименование>91.9 --> 91.09 <Порядок>21300 <Источник>91.9 <Приемник>СальдоПрочихДоходовИРасходов <Значение> <Код>215 <Наименование>94 --> 94 <Порядок>21400 <Источник>94 <Приемник>НедостачиИПотериОтПорчиЦенностей <Значение> <Код>216 <Наименование>96 --> 96 <Порядок>21500 <Источник>96 <Приемник>РезервыПредстоящихРасходов <Значение> <Код>217 <Наименование>97 --> 97.21 <Порядок>21600 <Источник>97 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>218 <Наименование>98.1 --> 98.01 <Порядок>21700 <Источник>98.1 <Приемник>ДоходыПолученныеВСчетБудущихПериодов <Значение> <Код>219 <Наименование>98.2.1 --> 98.02 <Порядок>21800 <Источник>98.2.1 <Приемник>БезвозмездныеПоступления <Значение> <Код>220 <Наименование>98.2.2 --> 98.02 <Порядок>21900 <Источник>98.2.2 <Приемник>БезвозмездныеПоступления <Значение> <Код>221 <Наименование>98.3 --> 98.03 <Порядок>22000 <Источник>98.3 <Приемник>ПредстоящиеПоступленияПоНедостачамВыявленнымЗаПрошлыеГоды <Значение> <Код>222 <Наименование>98.4 --> 98.04 <Порядок>22100 <Источник>98.4 <Приемник>РазницаМеждуСуммойПодлежащейВзысканиюСВиновныхЛицИБалансовойСтоимостьюПоНедостачамЦенностей <Значение> <Код>223 <Наименование>90.2.2 --> 90.02.2 <Порядок>22200 <Источник>90.2.2 <Приемник>СебестоимостьПродажЕНВД <Значение> <Код>224 <Наименование>99.1 --> 99.01.1 <Порядок>22300 <Источник>99.1 <Приемник>ПрибылиИУбыткиНеЕНВД <Значение> <Код>225 <Наименование>99.2.1 --> 99.02.1 <Порядок>22400 <Источник>99.2.1 <Приемник>УсловныйРасходПоНалогуНаПрибыль <Значение> <Код>226 <Наименование>99.2.2 --> 99.02.2 <Порядок>22500 <Источник>99.2.2 <Приемник>УсловныйДоходПоНалогуНаПрибыль <Значение> <Код>227 <Наименование>99.2.3 --> 99.02.3 <Порядок>22600 <Источник>99.2.3 <Приемник>ПостоянноеНалоговоеОбязательство <Значение> <Код>228 <Наименование>РВ.1 --> РВ.1 <Порядок>22700 <Источник>РВ.1 <Приемник>НераспределеннаяРозничнаяВыручка <Значение> <Код>229 <Наименование>РВ.2 --> РВ.2 <Порядок>22800 <Источник>РВ.2 <Приемник>НДСВРозничнойВыручке <Значение> <Код>230 <Наименование>00 --> 000 <Порядок>22900 <Источник>00 <Приемник>Вспомогательный <Значение> <Код>231 <Наименование>10.10 --> 10.10 <Порядок>23000 <Источник>10.10 <Приемник>СпецоснасткаИСпецодеждаНаСкладе <Значение> <Код>232 <Наименование>10.11.1 --> 10.11 <Порядок>23100 <Источник>10.11.1 <Приемник>СпецодеждаВЭксплуатации <Значение> <Код>233 <Наименование>10.11.1 --> 10.11 <Порядок>23200 <Источник>10.11.2 <Приемник>СпецоснасткаВЭксплуатации <Значение> <Код>234 <Наименование>ГТД --> ГТД <Порядок>23300 <Источник>ГТД <Приемник>ГТД <Значение> <Код>235 <Наименование>МЦ.02 --> МЦ.02 <Порядок>23400 <Источник>МЦ.02 <Приемник>СпецодеждаВЭксплуатацииВспомогательный <Значение> <Код>236 <Наименование>МЦ.02 --> МЦ.02 <Порядок>23500 <Источник>МЦ.03 <Приемник>СпецоснасткаВЭксплуатацииВспомогательный <Значение> <Код>238 <Наименование>МЦ.04 --> МЦ.04 <Порядок>23600 <Источник>МЦ.04 <Приемник>ИнвентарьИХозяйственныеПринадлежностиВЭксплуатации <Значение> <Код>237 <Наименование>69.12 --> 69.12 <Порядок>23700 <Источник>69.12 <Приемник>ФСС_ДобровольныеВзносы <Значение> <Код>239 <Наименование>Н12 --> ЦелевоеФинансирование <Порядок>23750 <Источник>Н12 <Приемник>ЦелевоеФинансирование <Значение> <Код>240 <Наименование>Н16 --> НедостачиИПотериОтПорчиЦенностей <Порядок>23800 <Источник>Н16 <Приемник>НедостачиИПотериОтПорчиЦенностей <Значение> <Код>241 <Наименование>Н02.06 --> ПриобретенныеПрава <Порядок>23850 <Источник>Н02.06 <Приемник>ПриобретенныеПрава <Значение> <Код>242 <Наименование>Н14 --> РасчетыСПерсоналомПоОплатеТруда <Порядок>23900 <Источник>Н14 <Приемник>РасчетыСПерсоналомПоОплатеТруда <Значение> <Код>243 <Наименование>Н05.04 --> АмортизацияНематериальныхАктивов <Порядок>23950 <Источник>Н05.04 <Приемник>АмортизацияНематериальныхАктивов <Значение> <Код>244 <Наименование>Н04.03 --> РасходыНаНИОКР <Порядок>24000 <Источник>Н04.03 <Приемник>РасходыНаНИОКР <Значение> <Код>245 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.05 <Приемник>РасходыБудущихПериодовНаДобровольноеСтрахованиеРаботников <Значение> <Код>246 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.06 <Приемник>РасходыБудущихПериодовНаДобровольноеСтрахованиеРаботников <Значение> <Код>247 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.07 <Приемник>РасходыБудущихПериодовНаДобровольноеСтрахованиеРаботников <Значение> <Код>248 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.02 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>249 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.04 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>250 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.08 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>251 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.09 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>252 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.10 <Приемник>РасходыНаОплатуТрудаБудущихПериодов <Значение> <Код>253 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н04.11 <Приемник>РасходыНаОплатуТрудаБудущихПериодов <Значение> <Код>254 <Наименование>Н04.05 --> РасходыБудущихПериодов <Порядок>24050 <Источник>Н01.01 <Приемник>ПриобретениеОбъектовОсновныхСредств <Значение> <Код>255 <Наименование>Н01.02 --> ОборудованиеКУстановке <Порядок>24100 <Источник>Н01.02 <Приемник>ОборудованиеКУстановке <Значение> <Код>256 <Наименование>Н01.03 --> ВыполнениеНИОКР <Порядок>24150 <Источник>Н01.03 <Приемник>ВыполнениеНИОКР <Значение> <Код>257 <Наименование>Н01.08 --> ПриобретениеНематериальныхАктивов <Порядок>24200 <Источник>Н01.08 <Приемник>ПриобретениеНематериальныхАктивов <Значение> <Код>258 <Наименование>Н01.09 --> СтроительствоОбъектовОсновныхСредств <Порядок>24250 <Источник>Н01.09 <Приемник>СтроительствоОбъектовОсновныхСредств <Значение> <Код>259 <Наименование>Н05.01 --> ОСвОрганизации <Порядок>24300 <Источник>Н05.01 <Приемник>ОСвОрганизации <Значение> <Код>260 <Наименование>Н05.03 --> НематериальныеАктивыОрганизации <Порядок>24350 <Источник>Н05.03 <Приемник>НематериальныеАктивыОрганизации <Значение> <Код>261 <Наименование>Н01.05 --> ОсновноеПроизводство <Порядок>24400 <Источник>Н01.05 <Приемник>ОсновноеПроизводство <Значение> <Код>262 <Наименование>Н02.07 --> Полуфабрикаты <Порядок>24450 <Источник>Н02.07 <Приемник>Полуфабрикаты <Значение> <Код>263 <Наименование>Н01.07 --> ИздержкиОбращения <Порядок>24500 <Источник>Н01.07 <Приемник>ИздержкиОбращения <Значение> <Код>264 <Наименование>Н02.02.1 --> ТоварыНаСкладах <Порядок>24550 <Источник>Н02.02.1 <Приемник>ТоварыНаСкладах <Значение> <Код>265 <Наименование>Н02.02.2 --> ТоварыВРозничнойТорговле <Порядок>24600 <Источник>Н02.02.2 <Приемник>ТоварыВРозничнойТорговле <Значение> <Код>266 <Наименование>Н02.03 --> ГотоваяПродукция <Порядок>24650 <Источник>Н02.03 <Приемник>ГотоваяПродукция <Значение> <Код>267 <Наименование>Н02.04.1 --> ПокупныеТоварыОтгруженные <Порядок>24700 <Источник>Н02.04.1 <Приемник>ПокупныеТоварыОтгруженные <Значение> <Код>268 <Наименование>Н02.04.2 --> ГотоваяПродукцияОтгруженная <Порядок>24750 <Источник>Н02.04.2 <Приемник>ГотоваяПродукцияОтгруженная <Значение> <Код>269 <Наименование>Н02.04.3 --> ПрочиеТоварыОтгруженные <Порядок>24800 <Источник>Н02.04.3 <Приемник>ПрочиеТоварыОтгруженные <Значение> <Код>270 <Наименование>Н02.05 --> ДолговыеЦенныеБумаги <Порядок>24850 <Источник>Н02.05 <Приемник>ДолговыеЦенныеБумаги <Значение> <Код>271 <Наименование>Н02.08 --> Паи <Порядок>24900 <Источник>Н02.08 <Приемник>Паи <Значение> <Код>272 <Наименование>Н02.01 --> СырьеИМатериалы <Порядок>24950 <Источник>Н02.01 <Приемник>СырьеИМатериалы <Значение> <Код>273 <Наименование>Н05.02 --> АмортизацияОС_01 <Порядок>25000 <Источник>Н05.02 <Приемник>АмортизацияОС_01 <Значение> <Код>274 <Наименование>Н05.КВ --> РасходыНаКапитальныеВложения <Порядок>25050 <Источник>Н05.КВ <Приемник>РасходыНаКапитальныеВложения <Значение> <Код>275 <Наименование>Н02.09 --> МатериалыПереданныеВПереработку <Порядок>25100 <Источник>Н02.09 <Приемник>МатериалыПереданныеВПереработку <Значение> <Код>276 <Наименование>Н06.01 --> ВыручкаНеЕНВД <Порядок>25150 <Источник>Н06.01 <Приемник>ВыручкаНеЕНВД <Значение> <Код>277 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.02 <Приемник>ПрочиеДоходы <Значение> <Код>278 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.03 <Приемник>ПрочиеДоходы <Значение> <Код>279 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.04 <Приемник>ВыручкаНеЕНВД <Значение> <Код>280 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.05 <Приемник>ПрочиеДоходы <Значение> <Код>281 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.06 <Приемник>ПрочиеДоходы <Значение> <Код>282 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.07 <Приемник>ПрочиеДоходы <Значение> <Код>283 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.08 <Приемник>ПрочиеДоходы <Значение> <Код>284 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.09 <Приемник>ПрочиеДоходы <Значение> <Код>285 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.10 <Приемник>ПрочиеДоходы <Значение> <Код>286 <Наименование>Н06.02 --> ВыручкаНеЕНВД <Порядок>25200 <Источник>Н06.11 <Приемник>ПрочиеДоходы <Значение> <Код>291 <Наименование>Н07.01 --> СебестоимостьПродажНеЕНВД <Порядок>25250 <Источник>Н07.05 <Приемник>СебестоимостьПродажНеЕНВД <Значение> <Код>288 <Наименование>Н07.01 --> СебестоимостьПродажНеЕНВД <Порядок>25250 <Источник>Н07.02 <Приемник>СебестоимостьПродажНеЕНВД <Значение> <Код>287 <Наименование>Н07.01 --> СебестоимостьПродажНеЕНВД <Порядок>25250 <Источник>Н07.01 <Приемник>СебестоимостьПродажНеЕНВД <Значение> <Код>289 <Наименование>Н07.03 --> Продажи_РасходыНаПродажуНеЕНВД <Порядок>25300 <Источник>Н07.03 <Приемник>Продажи_РасходыНаПродажуНеЕНВД <Значение> <Код>290 <Наименование>Н07.04.1 --> Продажи_УправленческиеРасходыНеЕНВД <Порядок>25350 <Источник>Н07.04.1 <Приемник>Продажи_УправленческиеРасходыНеЕНВД <Значение> <Код>302 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н09 <Приемник>ПрочиеРасходы <Значение> <Код>300 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.14 <Приемник>ПрочиеРасходы <Значение> <Код>299 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.13 <Приемник>ПрочиеРасходы <Значение> <Код>298 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.12 <Приемник>ПрочиеРасходы <Значение> <Код>297 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.11 <Приемник>ПрочиеРасходы <Значение> <Код>296 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.10 <Приемник>ПрочиеРасходы <Значение> <Код>295 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.09 <Приемник>ПрочиеРасходы <Значение> <Код>294 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.08 <Приемник>ПрочиеРасходы <Значение> <Код>293 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.07 <Приемник>ПрочиеРасходы <Значение> <Код>292 <Наименование>Н07.06 --> ПрочиеРасходы <Порядок>25400 <Источник>Н07.06 <Приемник>ПрочиеРасходы <Значение> <Код>301 <Наименование>Н08 --> ПрочиеДоходы <Порядок>25450 <Источник>Н08 <Приемник>ПрочиеДоходы <Значение> <Код>303 <Наименование>Н10 --> ПрочиеРасходыБудущихПериодов <Порядок>25500 <Источник>Н10 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>304 <Наименование>Н10 --> ПрочиеРасходыБудущихПериодов <Порядок>25500 <Источник>Н11 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>305 <Наименование>Н10 --> ПрочиеРасходыБудущихПериодов <Порядок>25500 <Источник>Н14.01 <Приемник>РасчетыСПерсоналомПоОплатеТруда <Значение> <Код>306 <Наименование>Н10 --> ПрочиеРасходыБудущихПериодов <Порядок>25500 <Источник>Н14.02 <Приемник>РасчетыСПерсоналомПоОплатеТруда <Значение> <Код>307 <Наименование>Н02.МЦ --> ИнвентарьИХозяйственныеПринадлежности <Порядок>25550 <Источник>Н02.МЦ <Приемник>ИнвентарьИХозяйственныеПринадлежности <Значение> <Код>308 <Наименование>УЕ.60 --> РасчетыСПоставщикамиУЕ <Порядок>25600 <Источник>УЕ.60 <Приемник>РасчетыСПоставщикамиУЕ <Значение> <Код>309 <Наименование>УЕ.62 --> РасчетыСПокупателямиУЕ <Порядок>25650 <Источник>УЕ.62 <Приемник>РасчетыСПокупателямиУЕ <Значение> <Код>310 <Наименование>ВАЛ.60 --> РасчетыПоАвансамВыданнымУЕ <Порядок>25700 <Источник>ВАЛ.60 <Приемник>РасчетыПоАвансамВыданнымВал <Значение> <Код>311 <Наименование>ВАЛ.62 --> РасчетыПоАвансамПолученнымВал <Порядок>25750 <Источник>ВАЛ.62 <Приемник>РасчетыПоАвансамПолученнымВал <Значение> <Код>318 <Наименование>КМС --> ТоварыПереданныеНаКомиссию <Порядок>25800 <Источник>КМС <Приемник>ТоварыПереданныеНаКомиссию <Значение> <Код>319 <Наименование>КТР --> ТоварыНаСкладе <Порядок>25850 <Источник>КТР <Приемник>ТоварыНаСкладе <Значение> <Код>320 <Наименование>НПР.01 --> ОСвОрганизации <Порядок>25900 <Источник>НПР.01 <Приемник>ОСвОрганизации <Значение> <Код>321 <Наименование>НПР.10.2 --> СпецодеждаВЭксплуатации <Порядок>25950 <Источник>НПР.10.2 <Приемник>СпецодеждаВЭксплуатации <Значение> <Код>322 <Наименование>НПР.20 --> ОсновноеПроизводство <Порядок>26000 <Источник>НПР.20 <Приемник>ОсновноеПроизводство <Значение> <Код>323 <Наименование>НПР.43 --> ГотоваяПродукция <Порядок>26050 <Источник>НПР.43 <Приемник>ГотоваяПродукция <Значение> <Код>324 <Наименование>НПР.58.1 --> Паи <Порядок>26100 <Источник>НПР.58.1 <Приемник>Паи <Значение> <Код>325 <Наименование>Н01.06 --> ОсновноеПроизводство <Порядок>26150 <Источник>Н01.06 <Приемник>ОсновноеПроизводство <Значение> <Код>326 <Наименование>Н11.00 --> ПрочиеРасходыБудущихПериодов <Порядок>26200 <Источник>Н11.00 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>327 <Наименование>Н11.01 --> ПрочиеРасходыБудущихПериодов <Порядок>26250 <Источник>Н11.01 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>328 <Наименование>Н11.02 --> ПрочиеРасходыБудущихПериодов <Порядок>26300 <Источник>Н11.02 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>329 <Наименование>Н11.03 --> ПрочиеРасходыБудущихПериодов <Порядок>26350 <Источник>Н11.03 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>330 <Наименование>Н11.04 --> ПрочиеРасходыБудущихПериодов <Порядок>26400 <Источник>Н11.04 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>331 <Наименование>Н11.05 --> ПрочиеРасходыБудущихПериодов <Порядок>26450 <Источник>Н11.05 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>332 <Наименование>Н11.06 --> ПрочиеРасходыБудущихПериодов <Порядок>26500 <Источник>Н11.06 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>333 <Наименование>Н11.07 --> ПрочиеРасходыБудущихПериодов <Порядок>26550 <Источник>Н11.07 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>334 <Наименование>Н11.08 --> ПрочиеРасходыБудущихПериодов <Порядок>26600 <Источник>Н11.08 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>335 <Наименование>Н11.09 --> ПрочиеРасходыБудущихПериодов <Порядок>26650 <Источник>Н11.09 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>336 <Наименование>Н11.10 --> ПрочиеРасходыБудущихПериодов <Порядок>26700 <Источник>Н11.10 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>337 <Наименование>Н11.97 --> ПрочиеРасходыБудущихПериодов <Порядок>26750 <Источник>Н11.97 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>338 <Наименование>Н11.98 --> ПрочиеРасходыБудущихПериодов <Порядок>26800 <Источник>Н11.98 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>339 <Наименование>Н11.99 --> ПрочиеРасходыБудущихПериодов <Порядок>26850 <Источник>Н11.99 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>340 <Наименование>НПР.04 --> НематериальныеАктивыОрганизации <Порядок>26900 <Источник>НПР.04 <Приемник>НематериальныеАктивыОрганизации <Значение> <Код>341 <Наименование>НПР.07 --> ОборудованиеКУстановке <Порядок>26950 <Источник>НПР.07 <Приемник>ОборудованиеКУстановке <Значение> <Код>342 <Наименование>НПР.08 --> ПриобретениеОбъектовОсновныхСредств <Порядок>27000 <Источник>НПР.08 <Приемник>ПриобретениеОбъектовОсновныхСредств <Значение> <Код>343 <Наименование>НПР.10.1 --> СырьеИМатериалы <Порядок>27050 <Источник>НПР.10.1 <Приемник>СырьеИМатериалы <Значение> <Код>344 <Наименование>НПР.21 --> Полуфабрикаты <Порядок>27100 <Источник>НПР.21 <Приемник>Полуфабрикаты <Значение> <Код>345 <Наименование>НПР.23 --> ВспомогательныеПроизводства <Порядок>27150 <Источник>НПР.23 <Приемник>ВспомогательныеПроизводства <Значение> <Код>346 <Наименование>НПР.25 --> ОбщепроизводственныеРасходы <Порядок>27200 <Источник>НПР.25 <Приемник>ОбщепроизводственныеРасходы <Значение> <Код>347 <Наименование>НПР.26 --> ОбщехозяйственныеРасходы <Порядок>27250 <Источник>НПР.26 <Приемник>ОбщехозяйственныеРасходы <Значение> <Код>348 <Наименование>НПР.29 --> ОбслуживающиеПроизводства <Порядок>27300 <Источник>НПР.29 <Приемник>ОбслуживающиеПроизводства <Значение> <Код>349 <Наименование>НПР.41 --> ТоварыНаСкладах <Порядок>27350 <Источник>НПР.41 <Приемник>ТоварыНаСкладах <Значение> <Код>350 <Наименование>НПР.44.1 --> ИздержкиОбращения <Порядок>27400 <Источник>НПР.44.1 <Приемник>ИздержкиОбращения <Значение> <Код>351 <Наименование>НПР.44.2 --> КоммерческиеРасходы <Порядок>27450 <Источник>НПР.44.2 <Приемник>КоммерческиеРасходы <Значение> <Код>352 <Наименование>НПР.44.3 --> КоммерческиеРасходы <Порядок>27500 <Источник>НПР.44.3 <Приемник>КоммерческиеРасходы <Значение> <Код>353 <Наименование>НПР.45 --> ПокупныеТоварыОтгруженные <Порядок>27550 <Источник>НПР.45 <Приемник>ПокупныеТоварыОтгруженные <Значение> <Код>354 <Наименование>НПР.58.2 --> ДолговыеЦенныеБумаги <Порядок>27600 <Источник>НПР.58.2 <Приемник>ДолговыеЦенныеБумаги <Значение> <Код>355 <Наименование>НПР.58.5 --> ПриобретенныеПрава <Порядок>27650 <Источник>НПР.58.5 <Приемник>ПриобретенныеПрава <Значение> <Код>356 <Наименование>НПР.63 --> РезервыПоСомнительнымДолгам <Порядок>27700 <Источник>НПР.63 <Приемник>РезервыПоСомнительнымДолгам <Значение> <Код>357 <Наименование>НПР.94 --> НедостачиИПотериОтПорчиЦенностей <Порядок>27750 <Источник>НПР.94 <Приемник>НедостачиИПотериОтПорчиЦенностей <Значение> <Код>358 <Наименование>НПР.97 --> ПрочиеРасходыБудущихПериодов <Порядок>27800 <Источник>НПР.97 <Приемник>ПрочиеРасходыБудущихПериодов <Значение> <Код>359 <Наименование>НПР.98 --> БезвозмездныеПоступления <Порядок>27850 <Источник>НПР.98 <Приемник>БезвозмездныеПоступления <Значение> <Код>360 <Наименование>НПР.99 --> ПрибылиИУбыткиНеЕНВД <Порядок>27900 <Источник>НПР.99 <Приемник>ПрибылиИУбыткиНеЕНВД <Значение> <Код>361 <Наименование>Н01.04 --> ОсновноеПроизводство <Порядок>27950 <Источник>Н01.04 <Приемник>ОсновноеПроизводство <Значение> <Код>362 <Наименование>Н03.03 --> КоммерческиеРасходы <Порядок>28000 <Источник>Н03.03 <Приемник>КоммерческиеРасходы <Значение> <Код>363 <Наименование>Н03.04 --> КоммерческиеРасходы <Порядок>28050 <Источник>Н03.04 <Приемник>КоммерческиеРасходы <Значение> <Код>364 <Наименование>Н07.04.2 --> Продажи_УправленческиеРасходыНеЕНВД <Порядок>28100 <Источник>Н07.04.2 <Приемник>Продажи_УправленческиеРасходыНеЕНВД <Значение> <Код>365 <Наименование>Н13 --> ПрочиеРасчетыСРазнымиДебиторамиИКредиторам <Порядок>28150 <Источник>Н13 <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторами <Значение> <Код>366 <Наименование>Н13.01 --> ПрочиеРасчетыСРазнымиДебиторамиИКредито <Порядок>28200 <Источник>Н13.01 <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторами <Значение> <Код>367 <Наименование>Н13.02 --> ПрочиеРасчетыСРазнымиДебиторамиИКредито <Порядок>28250 <Источник>Н13.02 <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторами <Значение> <Код>368 <Наименование>Н13.03 --> ПрочиеРасчетыСРазнымиДебиторамиИКредито <Порядок>28300 <Источник>Н13.03 <Приемник>ПрочиеРасчетыСРазнымиДебиторамиИКредиторами <Значение> <Код>369 <Наименование>Н15 --> ПрочиеНалогиИСборы <Порядок>28350 <Источник>Н15 <Приемник>ПрочиеНалогиИСборы <Значение> <Код>370 <Наименование>Н03.01 --> ОбщехозяйственныеРасходы <Порядок>28400 <Источник>Н03.01 <Приемник>ОбщехозяйственныеРасходы <Значение> <Код>371 <Наименование>Н03.05 --> ПлатежиПоДобровольномуСтрахованиюРаботн <Порядок>28450 <Источник>Н03.05 <Приемник>ПлатежиПоДобровольномуСтрахованиюРаботников <Значение> <Код>372 <Наименование>Н03.06 --> ПлатежиПоДобровольномуСтрахованиюРаботн <Порядок>28500 <Источник>Н03.06 <Приемник>ПлатежиПоДобровольномуСтрахованиюРаботников <Значение> <Код>373 <Наименование>Н03.07 --> ПлатежиПоДобровольномуСтрахованиюРаботн <Порядок>28550 <Источник>Н03.07 <Приемник>ПлатежиПоДобровольномуСтрахованиюРаботников <Значение> <Код>374 <Наименование>Н03.08 --> РезервыПоСомнительнымДолгам <Порядок>28600 <Источник>Н03.08 <Приемник>РезервыПоСомнительнымДолгам <Значение> <Код>375 <Наименование>Н05.МЦ --> ИнвентарьИХозяйственныеПринадлежности <Порядок>28650 <Источник>Н05.МЦ <Приемник>ИнвентарьИХозяйственныеПринадлежности <Правило> <Код>ВидыСубконтоХозрасчетные <Наименование>ВидСубконто --> ПланВидовХарактеристикСсылка.ВидыСубконтоХозрасчетные <Порядок>500 <ПередВыгрузкой>Если ТипЗначенияСтр(Источник) <> "Строка" Тогда Источник = Источник.Идентификатор(); КонецЕсли; <ПриВыгрузке>Если ТипЗначения(УзелСсылки) = 1 Тогда НПП = УзелСсылки; УзелСсылки = СоздатьУзел("Ссылка"); УстановитьАтрибут(УзелСсылки, "Нпп", Строка(НПП)); УзелСвойства = СоздатьУзел("Свойство"); УстановитьАтрибут(УзелСвойства, "Имя", "{ИмяПредопределенногоЭлемента}"); УстановитьАтрибут(УзелСвойства, "Тип", "Строка"); ЗаписатьЭлемент(УзелСвойства, "Значение", Источник); ДобавитьПодчиненный(УзелСсылки, УзелСвойства); ДобавитьПодчиненный(Приемник, УзелСсылки); СтандартнаяОбработка = 0; КонецЕсли; <Источник>ВидСубконто <Приемник>ПланВидовХарактеристикСсылка.ВидыСубконтоХозрасчетные <Свойства> <Свойство Отключить="true" Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Значения> <Значение> <Код>1 <Наименование>БанковскиеСчета --> 00008 <Порядок>100 <Источник>БанковскиеСчета <Приемник>БанковскиеСчета <Значение> <Код>2 <Наименование>Бюджеты --> 00025 <Порядок>200 <Источник>Бюджеты <Приемник>УровниБюджетов <Значение> <Код>3 <Наименование>ВидыАктивовИобязательств --> 00023 <Порядок>300 <Источник>ВидыАктивовИобязательств <Приемник>ВидыАктивовИОбязательств <Значение> <Код>4 <Наименование>ВидыНачисленийПоОплатеТруда --> 00031 <Порядок>400 <Источник>ВидыНачисленийПоОплатеТруда <Приемник>ВидНачисленийОплатыТрудаПоСтатье255НК <Значение> <Код>5 <Наименование>ВидыНоменклатуры --> 00012 <Порядок>500 <Источник>ВидыНоменклатуры <Приемник>НоменклатурныеГруппы <Значение> <Код>6 <Наименование>ВидыПлатежейВБюджет --> 00022 <Порядок>600 <Источник>ВидыПлатежейВБюджет <Приемник>ВидыПлатежейВГосБюджет <Значение> <Код>7 <Наименование>ВидыПлатежейВФонды --> 00022 <Порядок>700 <Источник>ВидыПлатежейВФонды <Приемник>ВидыПлатежейВГосБюджет <Значение> <Код>8 <Наименование>ВнереализационныеДоходы --> 00013 <Порядок>800 <Источник>ВнереализационныеДоходы <Приемник>ПрочиеДоходыИРасходы <Значение> <Код>9 <Наименование>ВнереализационныеРасходы --> 00013 <Порядок>900 <Источник>ВнереализационныеРасходы <Приемник>ПрочиеДоходыИРасходы <Значение> <Код>10 <Наименование>ДвиженияДенежныхСредств --> 00021 <Порядок>1000 <Источник>ДвиженияДенежныхСредств <Приемник>СтатьиДвиженияДенежныхСредств <Значение> <Код>11 <Наименование>Договоры --> 00016 <Порядок>1100 <Источник>Договоры <Приемник>Договоры <Значение> <Код>12 <Наименование>ДоговорыС_Комиссионерами --> 00038 <Порядок>1200 <Источник>ДоговорыС_Комиссионерами <Приемник>Партии <Значение> <Код>13 <Наименование>ДоговорыС_Комитентами --> 00038 <Порядок>1300 <Источник>ДоговорыС_Комитентами <Приемник>Партии <Значение> <Код>14 <Наименование>ДоходыБудущихПериодов --> 00018 <Порядок>1400 <Источник>ДоходыБудущихПериодов <Приемник>ДоходыБудущихПериодов <Значение> <Код>15 <Наименование>Контрагенты --> 00005 <Порядок>1500 <Источник>Контрагенты <Приемник>Контрагенты <Значение> <Код>16 <Наименование>Материалы --> 00001 <Порядок>1600 <Источник>Материалы <Приемник>Номенклатура <Значение> <Код>17 <Наименование>МестаХранения --> 00027 <Порядок>1700 <Источник>МестаХранения <Приемник>Склады <Значение> <Код>18 <Наименование>НематериальныеАктивы --> 00006 <Порядок>1800 <Источник>НематериальныеАктивы <Приемник>НематериальныеАктивы <Значение> <Код>19 <Наименование>Номенклатура --> 00001 <Порядок>1900 <Источник>Номенклатура <Приемник>Номенклатура <Значение> <Код>20 <Наименование>Оборудование --> 00001 <Порядок>2000 <Источник>Оборудование <Приемник>Номенклатура <Значение> <Код>21 <Наименование>ОбъектыСтроительства --> 00011 <Порядок>2100 <Источник>ОбъектыСтроительства <Приемник>ОбъектыСтроительства <Значение> <Код>22 <Наименование>ОсновныеСредства --> 00004 <Порядок>2200 <Источник>ОсновныеСредства <Приемник>ОсновныеСредства <Значение> <Код>24 <Наименование>ПрибылиИУбытки --> 00014 <Порядок>2400 <Источник>ПрибылиИУбытки <Приемник>ПрибылиИУбытки <Значение> <Код>25 <Наименование>ПрочиеДоходыИРасходы --> 00013 <Порядок>2500 <Источник>ПрочиеДоходыИРасходы <Приемник>ПрочиеДоходыИРасходы <Значение> <Код>26 <Наименование>РасходыБудущихПериодов --> 00017 <Порядок>2600 <Источник>РасходыБудущихПериодов <Приемник>РасходыБудущихПериодов <Значение> <Код>27 <Наименование>РезервыПредстоящихРасходов --> 00033 <Порядок>2700 <Источник>РезервыПредстоящихРасходов <Приемник>Резервы <Значение> <Код>28 <Наименование>Сотрудники --> 00003 <Порядок>2800 <Источник>Сотрудники <Приемник>РаботникиОрганизаций <Значение> <Код>29 <Наименование>СтавкиНДС --> 00026 <Порядок>2900 <Источник>СтавкиНДС <Приемник>СтавкиНДС <Значение> <Код>30 <Наименование>СтатьиЗатратНаПроизводство --> 00007 <Порядок>3000 <Источник>СтатьиЗатратНаПроизводство <Приемник>СтатьиЗатрат <Значение> <Код>31 <Наименование>СтатьиЗатратНаСтроительство --> 00007 <Порядок>3100 <Источник>СтатьиЗатратНаСтроительство <Приемник>СтатьиЗатрат <Значение> <Код>32 <Наименование>СтатьиЗатратОбслуживающихПроизводств --> 00007 <Порядок>3200 <Источник>СтатьиЗатратОбслуживающихПроизводств <Приемник>СтатьиЗатрат <Значение> <Код>33 <Наименование>СчетаФактурыПолученные --> 00042 <Порядок>3300 <Источник>СчетаФактурыПолученные <Приемник>СФПолученные <Значение> <Код>34 <Наименование>УсловияПоступленияИВыбытия --> 00020 <Порядок>3400 <Источник>УсловияПоступленияИВыбытия <Приемник>УсловияПоступленияИВыбытия <Значение> <Код>35 <Наименование>ЦенныеБумаги --> 00019 <Порядок>3500 <Источник>ЦенныеБумаги <Приемник>ЦенныеБумаги <Значение> <Код>36 <Наименование>ВидыНачислений --> 00031 <Порядок>3600 <Источник>ВидыНачислений <Приемник>ВидНачисленийОплатыТрудаПоСтатье255НК <Значение> <Код>37 <Наименование>ПрочиеОбъектыУчета --> 00013 <Порядок>3700 <Источник>ПрочиеОбъектыУчета <Приемник>ПрочиеДоходыИРасходы <Значение> <Код>38 <Наименование>СтатьиИздержекОбращения --> 00007 <Порядок>3800 <Источник>СтатьиИздержекОбращения <Приемник>СтатьиЗатрат <Значение> <Код>39 <Наименование>СтатьиКоммерческихРасходов --> 00007 <Порядок>3900 <Источник>СтатьиКоммерческихРасходов <Приемник>СтатьиЗатрат <Значение> <Код>40 <Наименование>СтатьиОбщепроизводственныхЗатрат --> 00007 <Порядок>4000 <Источник>СтатьиОбщепроизводственныхЗатрат <Приемник>СтатьиЗатрат <Значение> <Код>41 <Наименование>СтатьиОбщехозяйственныхЗатрат --> 00007 <Порядок>4100 <Источник>СтатьиОбщехозяйственныхЗатрат <Приемник>СтатьиЗатрат <Значение> <Код>42 <Наименование>СтатьиРасходовНаПродажу --> 00007 <Порядок>4200 <Источник>СтатьиРасходовНаПродажу <Приемник>СтатьиЗатрат <Значение> <Код>43 <Наименование>ГТД --> 00050 <Порядок>4300 <Источник>ГТД <Приемник>НомераГТД <Значение> <Код>44 <Наименование>НазначенияИспользования --> 00048 <Порядок>4400 <Источник>НазначенияИспользования <Приемник>ПартииМатериаловВЭксплуатации <Значение> <Код>45 <Наименование>ГруппыВидыРасходов --> 00007 <Порядок>4500 <Источник>ГруппыВидыРасходов <Приемник>СтатьиЗатрат <Значение> <Код>46 <Наименование>СчетаФактурыВыданные --> 00052 <Порядок>4600 <Источник>СчетаФактурыВыданные <Приемник>СФВыданные <Значение> <Код>51 <Наименование>БланкиСтрогойОтчетности --> БланкиСтрогойОтчетност <Порядок>5050 <Источник>БланкиСтрогойОтчетности <Приемник>БланкиСтрогойОтчетности <Значение> <Код>52 <Наименование>НазначениеЦелевыхСредств --> НазначениеЦелевыхСред <Порядок>5100 <Источник>НазначениеЦелевыхСредств <Приемник>НазначениеЦелевыхСредств <Значение> <Код>56 <Наименование>Партии --> Партии <Порядок>5150 <Источник>Партии <Приемник>Партии <Значение> <Код>57 <Наименование>СтраныПроисхождения --> СтраныПроисхождения <Порядок>5200 <Источник>СтраныПроисхождения <Приемник>СтраныПроисхождения <Значение> <Код>58 <Наименование>СтатьиЗатрат --> СтатьиЗатрат <Порядок>5250 <Источник>СтатьиЗатрат <Приемник>СтатьиЗатрат <Значение> <Код>59 <Наименование>ДокументыРасчетовСКонтрагентами --> ДокументыРасче <Порядок>5300 <Источник>ДокументыРасчетовСКонтрагентами <Приемник>ДокументыРасчетовСКонтрагентами <Значение> <Код>60 <Наименование>ОбособленныеПодразделения --> ОбособленныеПодразде <Порядок>5350 <Источник>ОбособленныеПодразделения <Приемник>ОбособленныеПодразделения <Значение> <Код>61 <Наименование>РеализуемыеАктивыОС --> РеализуемыеАктивы <Порядок>5400 <Источник>РеализуемыеАктивыОС <Приемник>РеализуемыеАктивы <Значение> <Код>62 <Наименование>РеализуемыеАктивыОС --> РеализуемыеАктивы <Порядок>5400 <Источник>РеализуемыеАктивыНМА <Приемник>РеализуемыеАктивы <Значение> <Код>63 <Наименование>РеализуемыеАктивыОС --> РеализуемыеАктивы <Порядок>5400 <Источник>РеализуемыеАктивыНоменклатура <Приемник>РеализуемыеАктивы <Значение> <Код>64 <Наименование>РеализуемыеАктивыОС --> РеализуемыеАктивы <Порядок>5400 <Источник>РеализуемыеАктивыВидНоменклатуры <Приемник>РеализуемыеАктивы <Значение> <Код>65 <Наименование>РеализуемыеАктивыОС --> РеализуемыеАктивы <Порядок>5400 <Источник>РеализуемыеАктивыКонтрагенты <Приемник>РеализуемыеАктивы <Значение> <Код>66 <Наименование>РеализуемыеАктивыОС --> РеализуемыеАктивы <Порядок>5400 <Источник>РеализуемыеАктивыДоговоры <Приемник>РеализуемыеАктивы <Значение> <Код>67 <Наименование>РеализуемыеАктивыОС --> РеализуемыеАктивы <Порядок>5400 <Источник>РеализуемыеАктивыЦенныеБумаги <Приемник>РеализуемыеАктивы <Значение> <Код>68 <Наименование> --> РасходыНаНИОКР <Порядок>5450 <Источник>РасходыНаНИОКР <Приемник>РасходыНаНИОКР <Значение> <Код>69 <Наименование>Основание --> <Порядок>5500 <Источник>Основание <Приемник>Договоры <Группа> <Код>Организация <Наименование>Организация <Порядок>350 <Правило> <Код>Организации <Наименование> --> СправочникСсылка.Организации <Порядок>100 <ПослеВыгрузки>ВыгрузитьПоПравилу(Источник,,,, "ТелефоныОрганизации"); ВыгрузитьПоПравилу(Источник,,,, "ЮридическийАдресОрганизации"); ВыгрузитьПоПравилу(Источник,,,, "ФактическийАдресОрганизации"); СправочникНалоги = СоздатьОбъект("Справочник.НалогиИОтчисления"); Если СправочникНалоги.НайтиПоКоду("ФСС_НС")=1 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(СправочникНалоги.Ставка.Получить(Параметры.ДатаВводаОстатков-1),"Ставка"); ВходящиеДанные.ДобавитьЗначение(Параметры.ДатаВводаОстатков-1,"Период"); ВыгрузитьПоПравилу(Источник,,ВходящиеДанные,,"СтавкаВзносаНаСтрахованиеОтНесчастныхСлучаев"); Периодический = СоздатьОбъект("Периодический"); Периодический.ИспользоватьОбъект("Ставка",СправочникНалоги.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(Периодический.Значение,"Ставка"); ВходящиеДанные.ДобавитьЗначение(Периодический.ДатаЗнач,"Период"); ВыгрузитьПоПравилу(Источник,,ВходящиеДанные,,"СтавкаВзносаНаСтрахованиеОтНесчастныхСлучаев"); КонецЦикла; КонецЕсли; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Руководитель = Константа.Руководитель.Получить(Параметры.ДатаКонцаПериодаВыгрузки); ГлБухгалтер = Константа.ГлБухгалтер.Получить(Параметры.ДатаКонцаПериодаВыгрузки); Кассир = Константа.Кассир.Получить(Параметры.ДатаКонцаПериодаВыгрузки); Если ПустоеЗначение(Руководитель) = 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Должность", Руководитель.Должность); ВходящиеДанные.Установить("ОтветственноеЛицо", "Руководитель"); ВходящиеДанные.Установить("ФизическоеЛицо", Руководитель); ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "ОтветственныеЛицаОрганизаций"); КонецЕсли; Если ПустоеЗначение(ГлБухгалтер) = 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Должность", ГлБухгалтер.Должность); ВходящиеДанные.Установить("ОтветственноеЛицо", "ГлавныйБухгалтер"); ВходящиеДанные.Установить("ФизическоеЛицо", ГлБухгалтер); ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "ОтветственныеЛицаОрганизаций"); КонецЕсли; Если ПустоеЗначение(Кассир) = 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("Должность", Кассир.Должность); ВходящиеДанные.Установить("ОтветственноеЛицо", "Кассир"); ВходящиеДанные.Установить("ФизическоеЛицо", Кассир); ВыгрузитьПоПравилу(Источник,, ВходящиеДанные,, "ОтветственныеЛицаОрганизаций"); КонецЕсли; <ПослеЗагрузки>Если Не ОбъектНайден Тогда Объект.ОбменДанными.Загрузка = Истина; Объект.Записать(); КонецЕсли; Параметры.Вставить("Организация", Объект.Ссылка); МенеджерЗаписиРегистра = РегистрыСведений.ДатыВводаНачальныхОстатков.СоздатьМенеджерЗаписи(); МенеджерЗаписиРегистра.Организация = Объект.Ссылка; МенеджерЗаписиРегистра.Прочитать(); Если НЕ МенеджерЗаписиРегистра.Выбран() Тогда МенеджерЗаписиРегистра.Организация = Объект.Ссылка; КонецЕсли; МенеджерЗаписиРегистра.ДатаВводаНачальныхОстатков = ДатаНачала - 24*60*60; МенеджерЗаписиРегистра.Записать(); <Приемник>СправочникСсылка.Организации <Свойства> <Свойство> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.НазваниеОрганизации; <Свойство> <Код>18 <Наименование> --> НаименованиеПлательщикаПриПеречисленииВБюджет <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПлательщикаПриПеречисленииВБюджет" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.НаименованиеПлательщикаПриПеречисленииНалогов; <Свойство Поиск="true"> <Код>2 <Наименование> --> ИНН <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Константа.ИННОрганизации, 10); <Свойство Поиск="true"> <Код>3 <Наименование> --> КПП <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Сред(Константа.ИННОрганизации, 12, 9); <Свойство> <Код>4 <Наименование> --> РегистрационныйНомерПФР <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="РегистрационныйНомерПФР" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = глПолучитьНалог("ПФР_страх").РегНомер; <Свойство> <Код>5 <Наименование> --> НаименованиеПолное <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.ОфициальноеНазваниеОрганизации; <Свойство> <Код>6 <Наименование> --> КодПоОКПО <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.КодОКПО; <Свойство> <Код>8 <Наименование> --> КодИМНС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="КодИМНС" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.КодИМНС; <Свойство> <Код>9 <Наименование> --> ТерриториальныеУсловияПФР <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ТерриториальныеУсловияПФР" Вид="Реквизит" Тип="СправочникСсылка.ТерриториальныеУсловия"/> <КодПравилаКонвертации>ТерриториальныеУсловия <ПередВыгрузкой>Значение = Константа.ТерриториальныеУсловия; <Свойство> <Код>10 <Наименование> --> ОсновнойБанковскийСчет <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновнойБанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <ПередВыгрузкой>Значение = Константа.ОсновнойБанковскийСчет; <Свойство> <Код>11 <Наименование> --> ВидСтавокЕСНиПФР <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСтавокЕСНиПФР" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСтавокЕСНиПФР"/> <ПередВыгрузкой>Значение = "ДляНеСельскохозяйственныхПроизводителей" <Свойство> <Код>12 <Наименование> --> ОГРН <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.ОГРН; <Свойство> <Код>13 <Наименование> --> ЮрФизЛицо <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПередВыгрузкой>Значение = "ЮрЛицо"; <Свойство> <Код>14 <Наименование> --> КодИФНСПолучателя <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="КодИФНСПолучателя" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.КодИФНСПолучателя; <Свойство> <Код>15 <Наименование> --> ВариантНаименованияДляПечатныхФорм <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантНаименованияДляПечатныхФорм" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыНаименованияДляПечатныхФорм"/> <ПередВыгрузкой>Значение = "СокращенноеНаименование"; <Свойство> <Код>16 <Наименование> --> НаименованиеСокращенное <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеСокращенное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.НазваниеОрганизации; <Свойство> <Код>17 <Наименование> --> ВидОбменаСКонтролирующимиОрганами <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОбменаСКонтролирующимиОрганами" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОбменаСКонтролирующимиОрганами"/> <ПередВыгрузкой>Значение = "ОбменОтключен"; <Свойство> <Код>19 <Наименование> --> Префикс <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="Префикс" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрЛП(Параметры.ПрефиксОрганизации); <Свойство> <Код>20 <Наименование> --> КодОКВЭД <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="КодОКВЭД" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.КодОКВЭД; <Свойство> <Код>21 <Наименование> --> КодОКОПФ <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="КодОКОПФ" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.КодКОПФ; <Свойство> <Код>22 <Наименование> --> КодОКФС <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="КодОКФС" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.КодКФС; <Свойство> <Код>23 <Наименование> --> НаименованиеОКОПФ <Порядок>1750 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеОКОПФ" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.ОргПравФорма; <Свойство> <Код>24 <Наименование> --> НаименованиеТерриториальногоОрганаПФР <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеТерриториальногоОрганаПФР" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Константа.НаименованиеТерриториальногоОрганаПФР; <Свойство Отключить="true"> <Код>25 <Наименование> --> РегистрационныйНомерФСС <Порядок>1850 <Источник Имя="" Вид=""/> <Приемник Имя="РегистрационныйНомерФСС" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ОбособленныеПодразделения <Наименование>СправочникСсылка.Подразделения --> СправочникСсылка.Организации <Порядок>150 <Источник>СправочникСсылка.Подразделения <Приемник>СправочникСсылка.Организации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование> --> ЮрФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПередВыгрузкой>Значение = "ЮрЛицо"; <Свойство Поиск="true"> <Код>3 <Наименование> --> ГоловнаяОрганизация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ГоловнаяОрганизация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>4 <Наименование>Наименование --> НаименованиеСокращенное <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеСокращенное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование> --> ВариантНаименованияДляПечатныхФорм <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантНаименованияДляПечатныхФорм" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыНаименованияДляПечатныхФорм"/> <ПередВыгрузкой>Значение = "СокращенноеНаименование"; <Свойство> <Код>6 <Наименование> --> ПометкаУдаления <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = "1"; <Значения/> <Группа> <Код>ДокументыДляДвиженияРегистров <Наименование>Документы <Порядок>400 <Правило> <Код>Работники <Наименование> --> ДокументСсылка.ПриемНаРаботуВОрганизацию <Порядок>50 <ПередВыгрузкой>//КоллекцияОбъектов = Параметры.СписокРаботников; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Физлицо"); КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("Должность"); КоллекцияОбъектов.НоваяКолонка("ВидРасчета"); КоллекцияОбъектов.НоваяКолонка("Размер"); //выбираем сотрудников, которые работают в данный момент Сотрудники = СоздатьОбъект("Справочник.Сотрудники"); Сотрудники.ВыбратьЭлементы(); Пока Сотрудники.ПолучитьЭлемент()=1 Цикл Если Сотрудники.ХарактерРаботы.Получить(Параметры.ДатаВводаОстатков-1) = Перечисление.ХарактерРаботы.ТрудовойДоговор Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Физлицо = Сотрудники.ТекущийЭлемент(); КоллекцияОбъектов.ПодразделениеОрганизации = Сотрудники.Подразделение.Получить(Параметры.ДатаВводаОстатков-1); КоллекцияОбъектов.Должность = Сотрудники.Должность; КоллекцияОбъектов.Размер = Сотрудники.Оклад.Получить(Параметры.ДатаВводаОстатков-1); КоллекцияОбъектов.ВидРасчета = Сотрудники.ТекущийЭлемент(); КонецЕсли; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("РаботникиОрганизации",КоллекцияОбъектов); ВходящиеДанные.Установить("ОсновныеНачисления",КоллекцияОбъектов); Если КоллекцияОбъектов.КоличествоСтрок()=0 Тогда Отказ = 1; КонецЕсли; <Приемник>ДокументСсылка.ПриемНаРаботуВОрганизацию <Свойства> <Группа> <Код>1 <Наименование> --> РаботникиОрганизации <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = Параметры.СписокРаботников; КоллекцияОбъектов.НоваяКолонка("ПодразделениеОрганизации"); КоллекцияОбъектов.НоваяКолонка("Должность"); <ПередВыгрузкой>ДатаПриема = глДатаПриема(ОбъектКоллекции.ФизЛицо); Если (ДатаПриема = Дата(0)) ИЛИ (ДатаПриема > Параметры.ДатаВводаОстатков-1) Тогда Отказ = 1; Иначе ОбъектКоллекции.ПодразделениеОрганизации = ОбъектКоллекции.ФизЛицо.Подразделение.Получить(Параметры.ДатаВводаОстатков-1); ОбъектКоллекции.Должность = ОбъектКоллекции.ФизЛицо.Должность; КонецЕсли; <Свойство> <Код>2 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <ПередВыгрузкой>Значение = ОбъектКоллекции.ФизЛицо; <Свойство> <Код>3 <Наименование> --> ПодразделениеОрганизации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеОрганизации" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <Свойство> <Код>4 <Наименование> --> Должность <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Должность" Вид="Реквизит" Тип="СправочникСсылка.ДолжностиОрганизаций"/> <КодПравилаКонвертации>ДолжностиОрганизаций <Свойство> <Код>5 <Наименование> --> ДатаПриема <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПриема" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = глДатаПриема(ОбъектКоллекции.ФизЛицо); <Группа> <Код>16 <Наименование> --> ОсновныеНачисления <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОсновныеНачисления" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = Параметры.СписокРаботников; КоллекцияОбъектов.НоваяКолонка("ВидРасчета"); КоллекцияОбъектов.НоваяКолонка("Размер"); <ПередВыгрузкой>ДатаПриема = глДатаПриема(ОбъектКоллекции.ФизЛицо); Если (ДатаПриема = Дата(0)) ИЛИ (ДатаПриема > Параметры.ДатаКонцаПериодаВыгрузки) Тогда Отказ = 1; Иначе ОбъектКоллекции.ВидРасчета = ОбъектКоллекции.ФизЛицо; ОбъектКоллекции.Размер = ОбъектКоллекции.ФизЛицо.Оклад.Получить(Параметры.ДатаКонцаПериодаВыгрузки); КонецЕсли; <Свойство> <Код>17 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <ПередВыгрузкой>Значение = ОбъектКоллекции.ФизЛицо; <Свойство> <Код>18 <Наименование> --> ВидРасчета <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидРасчета" Вид="Реквизит" Тип="ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций"/> <КодПравилаКонвертации>ВидыНачисленийОклад <Свойство> <Код>19 <Наименование> --> Размер <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Размер" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>9 <Наименование> --> Дата <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаВводаОстатков - 1; <Свойство> <Код>10 <Наименование> --> Проведен <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>12 <Наименование> --> Организация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>15 <Наименование> --> Комментарий <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>20 <Наименование> --> ПриказНаГруппуСотрудников <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПриказНаГруппуСотрудников" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>УволенныеРаботники <Наименование> --> ДокументСсылка.УвольненияИзОрганизаций <Порядок>100 <ПередВыгрузкой>Если Параметры.СписокРаботников.КоличествоСтрок() = 0 Тогда Отказ = 1; КонецЕсли; <Приемник>ДокументСсылка.УвольнениеИзОрганизаций <Свойства> <Группа> <Код>5 <Наименование> --> РаботникиОрганизации <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="РаботникиОрганизации" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = Параметры.СписокУволенныхРаботников; <ПередВыгрузкой>Если ОбъектКоллекции.ФизЛицо.Выбран() = 0 Тогда Отказ = 1; Иначе Параметры.ПараметрыАлгоритмов.Установить("ФизЛицо", ОбъектКоллекции.ФизЛицо); ДатаУвольнения = ОпределитьДатуУвольнения(); Если ДатаУвольнения = Дата(0) Тогда Отказ = 1; ИначеЕсли ДатаУвольнения > Параметры.ДатаКонцаПериодаВыгрузки Тогда Отказ = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>7 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.СотрудникиОрганизаций"/> <КодПравилаКонвертации>СотрудникиОрганизаций <ПередВыгрузкой>Значение = ОбъектКоллекции.ФизЛицо; <Свойство> <Код>6 <Наименование> --> ДатаУвольнения <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаУвольнения" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Параметры.ПараметрыАлгоритмов.Установить("ФизЛицо", ОбъектКоллекции.ФизЛицо); Значение = ОпределитьДатуУвольнения(); <Свойство Поиск="true"> <Код>1 <Наименование> --> Дата <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаКонцаПериодаВыгрузки; <Свойство> <Код>4 <Наименование> --> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>3 <Наименование> --> Организация <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>2 <Наименование> --> Комментарий <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>8 <Наименование> --> ПриказНаГруппуСотрудников <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПриказНаГруппуСотрудников" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>НДФЛиЕСНДоходыИНалоги <Наименование> --> ДокументСсылка.НДФЛиЕСНДоходыИНалоги <Порядок>300 <ПередВыгрузкой>Если (ВходящиеДанные.Получить("НДФЛСведенияОДоходах").КоличествоСтрок() = 0) и (ВходящиеДанные.Получить("НДФЛИсчисленный13").КоличествоСтрок() = 0) и (ВходящиеДанные.Получить("НДФЛУдержанный").КоличествоСтрок() = 0) Тогда Отказ = 1; КонецЕсли; Если ДатаГод(Параметры.ДатаВводаОстатков) < 2010 Тогда Если (ВходящиеДанные.Получить("ЕСНСведенияОДоходах").КоличествоСтрок() = 0) и (ВходящиеДанные.Получить("ЕСННалоги").КоличествоСтрок() = 0) Тогда Отказ = 1; КонецЕсли; Иначе Если (ВходящиеДанные.Получить("СтраховыеВзносыСведенияОДоходах").КоличествоСтрок() = 0) и (ВходящиеДанные.Получить("СтраховыеВзносы").КоличествоСтрок() = 0) Тогда Отказ = 1; КонецЕсли; КонецЕсли; <Приемник>ДокументСсылка.НДФЛиЕСНДоходыИНалоги <Свойства> <Группа> <Код>1 <Наименование> --> НДФЛСведенияОДоходах <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НДФЛСведенияОДоходах" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>13 <Наименование> --> ПериодРегистрации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>3 <Наименование> --> ДатаДохода <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаДохода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>4 <Наименование> --> МесяцНалоговогоПериода <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>5 <Наименование> --> ПериодРегистрации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>6 <Наименование> --> КодДохода <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КодДохода" Вид="Реквизит" Тип="СправочникСсылка.ДоходыНДФЛ"/> <Свойство> <Код>7 <Наименование> --> СуммаДохода <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДохода" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование> --> КодВычета <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КодВычета" Вид="Реквизит" Тип="СправочникСсылка.ВычетыНДФЛ"/> <Свойство> <Код>9 <Наименование> --> СуммаВычета <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВычета" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> СуммаНалогаИсчисленная <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНалогаИсчисленная" Вид="Реквизит" Тип="Число"/> <Группа> <Код>11 <Наименование> --> НДФЛИсчисленный13 <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НДФЛИсчисленный13" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Если (ПустоеЗначение(ОбъектКоллекции.Налог) = 1) Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>14 <Наименование> --> МесяцНалоговогоПериода <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование> --> Налог <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Налог" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>49 <Наименование> --> ПериодРегистрации <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Группа> <Код>50 <Наименование> --> НДФЛПредоставленныеВычеты <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НДФЛПредоставленныеВычеты" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Если (ПустоеЗначение(ОбъектКоллекции.КодВычета) = 1) Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>51 <Наименование> --> ФизЛицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>52 <Наименование> --> МесяцНалоговогоПериода <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>53 <Наименование> --> ПримененныйВычет <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененныйВычет" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>54 <Наименование> --> ПериодРегистрации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>55 <Наименование> --> КодВычета <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КодВычета" Вид="Реквизит" Тип="СправочникСсылка.ВычетыНДФЛ"/> <ПередВыгрузкой>Если (ОбъектКоллекции.КодВычета.КодДляОтчетности2009 <> "103") И (ОбъектКоллекции.КодВычета.КодДляОтчетности2009 <> "104") И (ОбъектКоллекции.КодВычета.КодДляОтчетности2009 <> "105") Тогда ИмяПКО = "ВычетыНаРебенка"; Иначе ИмяПКО = "ВычетыНДФЛЛичный"; КонецЕсли; <Группа> <Код>18 <Наименование> --> ЕСНСведенияОДоходах <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЕСНСведенияОДоходах" Вид="ТабличнаяЧасть"/> <Свойство> <Код>19 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>20 <Наименование> --> МесяцНалоговогоПериода <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>21 <Наименование> --> КодДоходаЕСН <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КодДоходаЕСН" Вид="Реквизит" Тип="СправочникСсылка.ДоходыЕСН"/> <Свойство> <Код>22 <Наименование> --> СуммаДохода <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДохода" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> ОблагаетсяЕНВД <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ОблагаетсяЕНВД" Вид="Реквизит" Тип="Булево"/> <Группа> <Код>25 <Наименование> --> ЕСННалоги <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЕСННалоги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>26 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>27 <Наименование> --> МесяцНалоговогоПериода <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>28 <Наименование> --> ФедеральныйБюджет <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ФедеральныйБюджет" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> ФСС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ФСС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование> --> ФФОМС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ФФОМС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование> --> ТФОМС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ТФОМС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> ПФРНакопительная <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРНакопительная" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование> --> ПФРСтраховая <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРСтраховая" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование> --> ПримененнаяЛьготаФБ <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененнаяЛьготаФБ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование> --> ПримененнаяЛьготаФСС <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененнаяЛьготаФСС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование> --> ПримененнаяЛьготаФОМС <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ПримененнаяЛьготаФОМС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> ПФРНакопительнаяЕНВД <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРНакопительнаяЕНВД" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> ПФРСтраховаяЕНВД <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРСтраховаяЕНВД" Вид="Реквизит" Тип="Число"/> <Группа> <Код>39 <Наименование> --> НДФЛУдержанный <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НДФЛУдержанный" Вид="ТабличнаяЧасть"/> <Свойство> <Код>40 <Наименование> --> ФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>41 <Наименование> --> ПериодРегистрации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>42 <Наименование> --> МесяцНалоговогоПериода <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцНалоговогоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>43 <Наименование> --> СтавкаНалогообложения <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНалогообложения" Вид="Реквизит" Тип="ПеречислениеСсылка.НДФЛСтавкиНалогообложенияРезидента"/> <ПередВыгрузкой>Если (ОбъектКоллекции.СтавкаНалогообложения <> "Ставка09") И (ОбъектКоллекции.СтавкаНалогообложения <> "Ставка13") И (ОбъектКоллекции.СтавкаНалогообложения <> "Ставка35") Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>44 <Наименование> --> Налог <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Налог" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>45 <Наименование> --> Дата <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Параметры.ДатаКонцаПериодаВыгрузки; <Свойство> <Код>46 <Наименование> --> Проведен <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>47 <Наименование> --> Организация <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>48 <Наименование> --> Комментарий <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Группа> <Код>56 <Наименование> --> СтраховыеВзносыСведенияОДоходах <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтраховыеВзносыСведенияОДоходах" Вид="ТабличнаяЧасть"/> <Свойство> <Код>58 <Наименование> --> ФизЛицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>59 <Наименование> --> МесяцРасчетногоПериода <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцРасчетногоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>60 <Наименование> --> ВидДохода <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДохода" Вид="Реквизит" Тип="СправочникСсылка.ДоходыПоСтраховымВзносам"/> <Свойство> <Код>61 <Наименование> --> Результат <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Результат" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>62 <Наименование> --> ОблагаетсяЕНВД <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОблагаетсяЕНВД" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>74 <Наименование> --> Скидка <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Скидка" Вид="Реквизит" Тип="Число"/> <Группа> <Код>57 <Наименование> --> СтраховыеВзносы <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтраховыеВзносы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>63 <Наименование> --> ФизЛицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>64 <Наименование> --> МесяцРасчетногоПериода <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="МесяцРасчетногоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>65 <Наименование> --> ПФРНакопительная <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРНакопительная" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>66 <Наименование> --> ПФРНакопительнаяЕНВД <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРНакопительнаяЕНВД" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>67 <Наименование> --> ПФРСтраховая <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРСтраховая" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>68 <Наименование> --> ПФРСтраховаяЕНВД <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПФРСтраховаяЕНВД" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>69 <Наименование> --> ТФОМС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ТФОМС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>70 <Наименование> --> ФФОМС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ФФОМС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>71 <Наименование> --> ФСС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ФСС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>72 <Наименование> --> ФССНесчастныеСлучаи <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ФССНесчастныеСлучаи" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>73 <Наименование> --> НалоговыйПериод <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалоговыйПериод" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>УстановкаЦенНоменклатуры <Наименование> --> ДокументСсылка.УстановкаЦенНоменклатуры <Порядок>350 <ПередВыгрузкой>КлючВыгружаемыхДанных = СокрЛП(ВходящиеДанные.Получить("ТипЦен"))+СокрЛП(ВходящиеДанные.Получить("ВалютаЦены"))+СокрЛП(ВходящиеДанные.Получить("ЦенаВключаетНДС"))+ВходящиеДанные.Получить("Дата"); <Приемник>ДокументСсылка.УстановкаЦенНоменклатуры <Свойства> <Группа> <Код>1 <Наименование> --> Товары <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование> --> Валюта <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>5 <Наименование> --> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные.Получить("Дата"))=1 Тогда Значение = Параметры.ДатаВводаОстатков; КонецЕсли; <Свойство Поиск="true"> <Код>6 <Наименование> --> Комментарий <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство Поиск="true"> <Код>8 <Наименование> --> ТипЦен <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипЦеныНоменклатуры <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", ВходящиеДанные.Получить("Наименование")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", ВходящиеДанные.Получить("ЦенаВключаетНДС")); ИсходящиеДанные.Установить("ВалютаЦены", ВходящиеДанные.Получить("ВалютаЦены")); <Свойство> <Код>9 <Наименование> --> Информация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Информация" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(ВходящиеДанные.Получить("Наименование")); <Значения/> <Правило> <Код>СписаниеОС_ДляРегистра <Наименование>: <Порядок>400 <ПередВыгрузкой>Если (ВходящиеДанные.Получить("ОС").КоличествоСтрок() = 0) Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>ПровестиЗаписьНеЗаписанныхОбъектов(); СобытияОСОрганизаций = Объект.Движения.СобытияОСОрганизаций; Для Каждого СтрокаТаблицы ИЗ СобытияОСОрганизаций Цикл СтрокаТаблицы.НазваниеДокумента = Строка(Объект.Метаданные()); СтрокаТаблицы.НомерДокумента = Объект.Номер; КонецЦикла; ПровестиЗаписьНеЗаписанныхОбъектов(); <Приемник>ДокументСсылка.СписаниеОС <Свойства> <Группа> <Код>1 <Наименование> --> ОС <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОС" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Реквизит" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Группа> <Код>2 <Наименование> --> НачислениеАмортизацииОСБухгалтерскийУчет <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НачислениеАмортизацииОСБухгалтерскийУчет" Вид="НаборДвиженийРегистраСведений"/> <Свойство> <Код>14 <Наименование> --> НачислятьАмортизацию <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизацию" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>15 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>16 <Наименование> --> ОсновноеСредство <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Измерение" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>17 <Наименование> --> Период <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Группа> <Код>3 <Наименование> --> НачислениеАмортизацииОСНалоговыйУчет <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НачислениеАмортизацииОСНалоговыйУчет" Вид="НаборДвиженийРегистраСведений"/> <Свойство> <Код>18 <Наименование> --> НачислятьАмортизацию <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НачислятьАмортизацию" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>19 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>20 <Наименование> --> ОсновноеСредство <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Измерение" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>21 <Наименование> --> Период <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Группа> <Код>4 <Наименование> --> СостоянияОСОрганизаций <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СостоянияОСОрганизаций" Вид="НаборДвиженийРегистраСведений"/> <Свойство> <Код>22 <Наименование> --> ДатаСостояния <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСостояния" Вид="Ресурс" Тип="Дата"/> <Свойство> <Код>23 <Наименование> --> ОсновноеСредство <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Измерение" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>24 <Наименование> --> Организация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>25 <Наименование> --> Состояние <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Состояние" Вид="Ресурс" Тип="ПеречислениеСсылка.СостоянияОС"/> <ПередВыгрузкой>Значение = "СнятоСУчета"; <Свойство> <Код>30 <Наименование> --> Период <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Группа> <Код>5 <Наименование> --> СобытияОСОрганизаций <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СобытияОСОрганизаций" Вид="НаборДвиженийРегистраСведений"/> <Свойство> <Код>26 <Наименование> --> ОсновноеСредство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ОсновноеСредство" Вид="Измерение" Тип="СправочникСсылка.ОсновныеСредства"/> <КодПравилаКонвертации>ОсновныеСредства <Свойство> <Код>27 <Наименование> --> Организация <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>28 <Наименование> --> Событие <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Событие" Вид="Ресурс" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСВыбытие <ПередВыгрузкой>Значение = "ВыбытиеОС"; <Свойство> <Код>29 <Наименование> --> Период <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование> --> Дата <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование> --> Организация <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>8 <Наименование> --> Комментарий <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ПолучитьКомментарийДокумента(); <Свойство> <Код>9 <Наименование> --> Проведен <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>10 <Наименование> --> СобытиеОС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СобытиеОС" Вид="Реквизит" Тип="СправочникСсылка.СобытияОС"/> <КодПравилаКонвертации>ОСВыбытие <ПередВыгрузкой>Значение = "ВыбытиеОС"; <Свойство> <Код>11 <Наименование> --> СчетСписания <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетСписания" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = "ПрочиеРасходы"; <Свойство Поиск="true"> <Код>12 <Наименование> --> РучнаяКорректировка <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="РучнаяКорректировка" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>РасчетыПоСтраховымВзносам_ДляРегистра <Наименование>: <Порядок>450 <Приемник>ДокументСсылка.РасчетыПоСтраховымВзносам <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = "1"; <Свойство Поиск="true"> <Код>2 <Наименование> --> Комментарий <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование> --> Дата <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование> --> ДатаПлатежа <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование> --> МесяцРасчетногоПериода <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="МесяцРасчетногоПериода" Вид="Реквизит" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование> --> ВидОперации <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРасчетыПоСтраховымВзносам"/> <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные.Получить("ВидОперации"))=1 Тогда Значение = "УплатаПФР"; КонецЕсли; <Свойство Поиск="true"> <Код>7 <Наименование> --> ВидПлатежа <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПлатежейВГосБюджет"/> <ПередВыгрузкой>ИмяПКО = ВходящиеДанные.Получить("ИмяПКО"); <Свойство> <Код>8 <Наименование> --> ПФРНакопительная <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПФРНакопительная" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> ПФРСтраховая <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПФРСтраховая" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> ТФОМС <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ТФОМС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> ФСС <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФСС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> ФССНесчастныеСлучаи <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФССНесчастныеСлучаи" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ФФОМС <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФФОМС" Вид="Реквизит" Тип="Число"/> <Значения/> <Группа> <Код>Проверки <Наименование>Проверки <Порядок>450 <Правило> <Код>КонвертацииИзИнформационныхБаз1СПредприятия77 <Наименование> --> СправочникСсылка.КонвертацииИзИнформационныхБаз1СПредприятия77 <Порядок>50 <Приемник>СправочникСсылка.КонвертацииИзИнформационныхБазПредыдущихВерсий <Свойства> <Свойство Поиск="true"> <НеЗамещать>true <Код>1 <Наименование> --> ИдентификаторКонфигурации <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИдентификаторКонфигурации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование> --> КонтрольныеЗначения <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КонтрольныеЗначения" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Проверки(); <Значения/> <ПравилаВыгрузкиДанных> <Группа Отключить="false"> <Код>Справочники <Наименование>Справочники <Порядок>50 <Правило Отключить="false"> <Код>Банки <Наименование>Банки <Порядок>100 <КодПравилаКонвертации>Банки <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Банки <Правило Отключить="false"> <Код>БанковскиеСчета <Наименование>Банковские счета <Порядок>200 <КодПравилаКонвертации>БанковскиеСчета <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.БанковскиеСчета <Правило Отключить="false"> <Код>ВидыНоменклатуры <Наименование>Виды номенклатуры <Порядок>300 <КодПравилаКонвертации>НоменклатурныеГруппы <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ВидыНоменклатуры <Правило Отключить="false"> <Код>Договоры <Наименование>Договоры <Порядок>400 <КодПравилаКонвертации>ДоговорыКонтрагентов <СпособОтбораДанных>ПроизвольныйАлгоритм <ОбъектВыборки>СправочникСсылка.Договоры <ПередОбработкойПравила>ОбъектВыборки = СтрЗаменить(Правило.ОбъектВыборки, "Ссылка", ""); Выборка = СоздатьОбъект(ОбъектВыборки); ВыборкаВладельцев = СоздатьОбъект("Справочник." + Метаданные.Справочник(Выборка.Вид()).Владелец.Идентификатор); ВыборкаВладельцев.ВыбратьЭлементы(); Пока ВыборкаВладельцев.ПолучитьЭлемент() > 0 Цикл Выборка.ИспользоватьВладельца(ВыборкаВладельцев.ТекущийЭлемент()); Выборка.ВыбратьЭлементы(); Пока Выборка.ПолучитьЭлемент() > 0 Цикл НомерПКО = НайтиПравило(, Правило.КодПравилаКонвертации); ВыгрузитьПоПравилу(Выборка.ТекущийЭлемент(),,,,,,, НомерПКО); КонецЦикла; КонецЦикла; Отказ = 1; <Правило Отключить="false"> <Код>ДокументыУдостоверяющиеЛичность <Наименование>Документы удостоверяющие личность <Порядок>500 <КодПравилаКонвертации>ДокументыУдостоверяющиеЛичность <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ДокументыУдостоверяющиеЛичность <Правило Отключить="false"> <Код>ДоходыБудущихПериодов <Наименование>Доходы будущих периодов <Порядок>600 <КодПравилаКонвертации>ДоходыБудущихПериодов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ДоходыБудущихПериодов <Правило Отключить="false"> <Код>ЕдиницыИзмерений <Наименование>Единицы измерений <Порядок>700 <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ЕдиницыИзмерений <Правило Отключить="true"> <Код>КлассификаторЕН <Наименование>ЕНАОФ <Порядок>800 <КодПравилаКонвертации>ЕдиныеНормыАмортизационныхОтчисленийОсновныхФондов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.КлассификаторЕН <Правило Отключить="false"> <Код>Контрагенты <Наименование>Контрагенты <Порядок>900 <КодПравилаКонвертации>Контрагенты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Контрагенты <Правило Отключить="false"> <Код>Материалы <Наименование>Материалы <Порядок>1000 <КодПравилаКонвертации>Материалы <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Материалы <Правило Отключить="false"> <Код>МестаХранения <Наименование>Места хранения <Порядок>1100 <КодПравилаКонвертации>Склады <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.МестаХранения <Правило Отключить="false"> <Код>НематериальныеАктивы <Наименование>Нематериальные активы <Порядок>1200 <КодПравилаКонвертации>НематериальныеАктивы <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.НематериальныеАктивы <Правило Отключить="false"> <Код>Номенклатура <Наименование>Номенклатура <Порядок>1300 <КодПравилаКонвертации>Номенклатура <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Номенклатура <ПередВыгрузкойОбъекта>Если Объект.ЭтоГруппа()=1 Тогда //группы выгружаем через родителя, так как нам нужно знать вид номенклатуры группы Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>НормыРасходов <Наименование>Нормы расходов <Порядок>1400 <КодПравилаКонвертации>СпецификацииНоменклатуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Номенклатура <Правило Отключить="false"> <Код>Оборудование <Наименование>Оборудование <Порядок>1500 <КодПравилаКонвертации>Оборудование <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Оборудование <Правило Отключить="false"> <Код>ОбъектыСтроительства <Наименование>Объекты внеоборотных активов <Порядок>1600 <КодПравилаКонвертации>ОбъектыСтроительства_08_4 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ОбъектыСтроительства <Правило Отключить="false"> <Код>ОсновныеСредства <Наименование>Основные средства <Порядок>1700 <КодПравилаКонвертации>ОсновныеСредства <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ОсновныеСредства <Правило Отключить="false"> <Код>Подразделения <Наименование>Подразделения <Порядок>1800 <КодПравилаКонвертации>ПодразделенияОрганизаций <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Подразделения <Правило Отключить="false"> <Код>ПрочиеДоходыИРасходы <Наименование>Прочие доходы и расходы <Порядок>1900 <КодПравилаКонвертации>ПрочиеДоходыИРасходы <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ПрочиеДоходыИРасходы <Правило Отключить="false"> <Код>РасходыБудущихПериодов <Наименование>Расходы будущих периодов <Порядок>2000 <КодПравилаКонвертации>РасходыБудущихПериодов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.РасходыБудущихПериодов <Правило Отключить="false"> <Код>РасчетныеСчета <Наименование>Расчетные счета <Порядок>2100 <КодПравилаКонвертации>РасчетныеСчета <СпособОтбораДанных>ПроизвольныйАлгоритм <ОбъектВыборки>СправочникСсылка.РасчетныеСчета <ПередОбработкойПравила>ОбъектВыборки = СтрЗаменить(Правило.ОбъектВыборки, "Ссылка", ""); Выборка = СоздатьОбъект(ОбъектВыборки); ВыборкаВладельцев = СоздатьОбъект("Справочник." + Метаданные.Справочник(Выборка.Вид()).Владелец.Идентификатор); ВыборкаВладельцев.ВыбратьЭлементы(); Пока ВыборкаВладельцев.ПолучитьЭлемент() > 0 Цикл Выборка.ИспользоватьВладельца(ВыборкаВладельцев.ТекущийЭлемент()); Выборка.ВыбратьЭлементы(); Пока Выборка.ПолучитьЭлемент() > 0 Цикл НомерПКО = НайтиПравило(, Правило.КодПравилаКонвертации); ВыгрузитьПоПравилу(Выборка.ТекущийЭлемент(),,,,,,, НомерПКО); КонецЦикла; КонецЦикла; Отказ = 1; <Правило Отключить="false"> <Код>Резервы <Наименование>Резервы <Порядок>2200 <КодПравилаКонвертации>Резервы <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Резервы <Правило Отключить="false"> <Код>Сотрудники <Наименование>Сотрудники <Порядок>2300 <КодПравилаКонвертации>ФизическиеЛица <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Сотрудники <Правило Отключить="false"> <Код>СтатьиЗатратНаПроизводство <Наименование>Статьи затрат на производство <Порядок>2400 <КодПравилаКонвертации>СтатьиЗатратНаПроизводство <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиЗатратНаПроизводство <Правило Отключить="false"> <Код>СтатьиЗатратНаСтроительство <Наименование>Статьи затрат на строительство <Порядок>2500 <КодПравилаКонвертации>СтатьиЗатратНаСтроительство <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиЗатратНаСтроительство <Правило Отключить="false"> <Код>СтатьиЗатратОбслуживающихПроизводств <Наименование>Статьи затрат обслуживающих производств <Порядок>2600 <КодПравилаКонвертации>СтатьиЗатратОбслуживающихПроизводств <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиЗатратОбслуживающихПроизводств <Правило Отключить="false"> <Код>СтатьиИздержекОбращения <Наименование>Статьи издержек обращения <Порядок>2700 <КодПравилаКонвертации>СтатьиИздержекОбращения <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиИздержекОбращения <Правило Отключить="false"> <Код>СтатьиКоммерческихРасходов <Наименование>Статьи коммерческих расходов <Порядок>2800 <КодПравилаКонвертации>СтатьиКоммерческихРасходов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиКоммерческихРасходов <Правило Отключить="false"> <Код>СтатьиОбщепроизводственныхЗатрат <Наименование>Статьи общепроизводственных затрат <Порядок>2900 <КодПравилаКонвертации>СтатьиОбщепроизводственныхЗатрат <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиОбщепроизводственныхЗатрат <Правило Отключить="false"> <Код>СтатьиОбщехозяйственныхЗатрат <Наименование>Статьи общехозяйственных затрат <Порядок>3000 <КодПравилаКонвертации>СтатьиОбщехозяйственныхЗатрат <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиОбщехозяйственныхЗатрат <Правило Отключить="false"> <Код>СтатьиРасходовНаПродажу <Наименование>Статьи расходов на продажу <Порядок>3100 <КодПравилаКонвертации>СтатьиРасходовНаПродажу <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиРасходовНаПродажу <Правило Отключить="false"> <Код>ТипыЦен <Наименование>Типы цен <Порядок>3200 <КодПравилаКонвертации>ТипыЦенНоменклатуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ТипыЦен <Правило Отключить="false"> <Код>ЦенныеБумаги <Наименование>Ценные бумаги <Порядок>3300 <КодПравилаКонвертации>ЦенныеБумаги <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ЦенныеБумаги <Правило Отключить="false"> <Код>ЦеныНоменклатуры <Наименование>Цены номенклатуры <Порядок>3400 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>ТипыЦен = СоздатьОбъект("ТаблицаЗначений"); ТипыЦен.НоваяКолонка("ТипЦен"); ТипыЦен.НоваяКолонка("ЦенаВключаетНДС"); ТипыЦен.НоваяКолонка("Товары"); ТипыЦен.НоваяКолонка("ВалютаЦены"); Выборка = СоздатьОбъект("Справочник.Цены"); ВыборкаВладельцев = СоздатьОбъект("Справочник.Номенклатура"); ВыборкаВладельцев.ВыбратьЭлементы(); Пока ВыборкаВладельцев.ПолучитьЭлемент() > 0 Цикл // Покупная стоимость Если ВыборкаВладельцев.Себестоимость <> 0 Тогда НомСтроки = 0; ТипЦен = "Учетная (покупная) цена"; Если ТипыЦен.НайтиЗначение(ТипЦен, НомСтроки, "ТипЦен") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.ТипЦен = ТипЦен; ТипыЦен.ВалютаЦены = Параметры.Рубли; ТипыЦен.ЦенаВключаетНДС = 0; ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = ВыборкаВладельцев.Себестоимость; Товары.Валюта = Параметры.Рубли; КонецЕсли; // Плановая себестоимость Если ВыборкаВладельцев.ПлановаяСебестоимость.Получить(Параметры.ДатаВводаОстатков) <> 0 Тогда НомСтроки = 0; ТипЦен = "Плановая себестоимость"; Если ТипыЦен.НайтиЗначение(ТипЦен, НомСтроки, "ТипЦен") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.ТипЦен = ТипЦен; ТипыЦен.ВалютаЦены = Параметры.Рубли; ТипыЦен.ЦенаВключаетНДС = 0; ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = ВыборкаВладельцев.ПлановаяСебестоимость.Получить(Параметры.ДатаВводаОстатков); Товары.Валюта = Параметры.Рубли; КонецЕсли; // Цены Если ВыборкаВладельцев.Цена <> 0 Тогда НомСтроки = 0; ТипЦен = ?(ВыборкаВладельцев.ПорядокХраненияОтпускнойЦены = 1, "Отпускная цена (без НДС)", "Отпускная цена (с учетом НДС)"); Если ТипыЦен.НайтиЗначение(ТипЦен, НомСтроки, "ТипЦен") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.ТипЦен = ТипЦен; ТипыЦен.ВалютаЦены = ?(ПустоеЗначение(ВыборкаВладельцев.Валюта) = 1, Параметры.Рубли, ВыборкаВладельцев.Валюта); ТипыЦен.ЦенаВключаетНДС = ?(ВыборкаВладельцев.ПорядокХраненияОтпускнойЦены = 1, 0, 1); ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = ВыборкаВладельцев.Цена; Товары.Валюта = ?(ПустоеЗначение(ВыборкаВладельцев.Валюта) = 1, Параметры.Рубли, ВыборкаВладельцев.Валюта); КонецЕсли; // Справочник "Цены" Выборка.ИспользоватьВладельца(ВыборкаВладельцев.ТекущийЭлемент()); Выборка.ВыбратьЭлементы(); Пока Выборка.ПолучитьЭлемент() > 0 Цикл Если Выборка.Цена.Получить(Параметры.ДатаВводаОстатков) <> 0 Тогда НомСтроки = 0; ТипЦен = СокрЛП(Выборка.ТипЦен.Наименование); Если ТипыЦен.НайтиЗначение(ТипЦен, НомСтроки, "ТипЦен") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.ТипЦен = ТипЦен; ТипыЦен.ВалютаЦены = ?(ПустоеЗначение(Выборка.Валюта) = 1, Параметры.Рубли, Выборка.Валюта); ТипыЦен.ЦенаВключаетНДС = Выборка.ТипЦен.ЦенаВклНДС; ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = Выборка.Цена.Получить(Параметры.ДатаВводаОстатков); Товары.Валюта = ?(ПустоеЗначение(Выборка.Валюта) = 1, Параметры.Рубли, Выборка.Валюта); КонецЕсли; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ТипыЦен.ВыбратьСтроки(); Пока ТипыЦен.ПолучитьСтроку() = 1 Цикл Если ТипыЦен.Товары.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ТипЦен", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("ВалютаЦены", ТипыЦен.ВалютаЦены); ВходящиеДанные.Установить("Наименование", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("ЦенаВключаетНДС", ТипыЦен.ЦенаВключаетНДС); ВходящиеДанные.Установить("Товары", ТипыЦен.Товары); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "УстановкаЦенНоменклатуры"); КонецЕсли; КонецЦикла; Отказ = 1; <Группа Отключить="false"> <Код>_ОстаткиИОборотыПоРазделамУчета <Наименование>Остатки по разделам учета <Порядок>100 <Правило Отключить="false"> <Код>тОсновныеСредства <Наименование>Основные средства <Порядок>50 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета ОС //************************************************************************************************* СчН05_01 = СчетПоКоду("Н05.01"); СчН05_02 = СчетПоКоду("Н05.02"); СчН05_КВ = СчетПоКоду("Н05.КВ"); СчН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"); Сч03_5 = СчетПоКоду("03.5"); Сч010 = СчетПоКоду("010"); СписокОС = СоздатьОбъект("ТаблицаЗначений"); СписокОС.НоваяКолонка("ОсновноеСредство"); СписокОС.НоваяКолонка("Подразделение"); СписокОС.НоваяКолонка("БУ", "Число"); СписокОС.НоваяКолонка("НУ", "Число"); СписокОС.НоваяКолонка("ГруппировкаДокументов"); СписокОС.НоваяКолонка("Контрагент"); СписокОС.НоваяКолонка("ТекущаяСтоимостьБУ", "Число"); СписокОС.НоваяКолонка("ТекущаяСтоимостьНУ", "Число"); СписокОС.НоваяКолонка("НакопленнаяАмортизацияБУ", "Число");; СписокОС.НоваяКолонка("НакопленнаяАмортизацияНУ", "Число"); СписокОС.НоваяКолонка("СчетУчетаБУ"); СписокОС.НоваяКолонка("СчетУчетаНУ"); СписокОС.НоваяКолонка("СчетАмортизацииБУ"); СписокОС.НоваяКолонка("СчетАмортизацииНУ"); СписокОС.НоваяКолонка("СтоимостьДо2002НУ", "Число"); СписокОС.НоваяКолонка("АмортизацияДо2002НУ", "Число"); СписокОС.НоваяКолонка("ТекущаяСтоимостьПР", "Число"); СписокОС.НоваяКолонка("НакопленнаяАмортизацияПР", "Число"); СписокОС.НоваяКолонка("ДатаВводаВЭксплуатацию", "Дата"); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.Опции(1); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "01.1,01.2,02.1,02.2,03.1,03.2,03.3,03.4,03.5,010"); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БУ); БУ.ВыбратьСубконто(1); Пока БУ.ПолучитьСубконто(1) = 1 Цикл Если БУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; ДтКт = 1; // 1 - дебет, 2 - кредит Контрагент = ""; СчетУчета = Сч01_1; СчетАмортизации = Сч02_1; СтоимостьБУНач = 0; АмортизацияБУНач = 0; СтоимостьБУКон = 0; АмортизацияБУКон = 0; Передача = 0; БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если (БУ.Счет = Сч01_1) или (БУ.Счет = Сч01_2) или (БУ.Счет = Сч03_1) или (БУ.Счет = Сч03_2) или (БУ.Счет = Сч03_3) или (БУ.Счет = Сч03_4) или (БУ.Счет = Сч03_5) Тогда ДтКт = 1; СчетУчета = БУ.Счет; СтоимостьБУнач = БУ.СНД(1); Если (БУ.Счет = Сч03_2) или (БУ.Счет = Сч03_3) или (БУ.Счет = Сч03_4) Тогда БУ.ВыбратьСубконто(2); Пока БУ.ПолучитьСубконто(2) = 1 Цикл Если БУ.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; Контрагент = БУ.Субконто(2); КонецЦикла; КонецЕсли; ИначеЕсли (БУ.Счет = Сч02_1) или (БУ.Счет = Сч02_2) Тогда ДтКт = 2; СчетАмортизации = БУ.Счет; АмортизацияБУнач = БУ.СНК(1); ИначеЕсли БУ.Счет = Сч010 Тогда ДтКт = 1; СчетАмортизации = БУ.Счет; АмортизацияБУнач = БУ.СНД(1); КонецЕсли; КонецЦикла; СписокОС.НоваяСтрока(); СписокОС.Подразделение = БУ.Субконто(1).Подразделение.Получить(Параметры.ДатаВводаОстатков); СписокОС.БУ = 1; СписокОС.ОсновноеСредство = БУ.Субконто(1); НомСтроки = СписокОС.КоличествоСтрок(); СписокОС.СчетУчетаБУ = СчетУчета; СписокОС.ДатаВводаВЭксплуатацию = БУ.Субконто(1).ДатаВводаВЭксплуатацию; СписокОС.СчетАмортизацииБУ = СчетАмортизации; СписокОС.Контрагент = Контрагент; СписокОС.ТекущаяСтоимостьБУ = СтоимостьБУНач; СписокОС.НакопленнаяАмортизацияБУ = АмортизацияБУНач; КонецЦикла; НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "Н05.01,Н05.02,Н05.МЦ,Н05.КВ"); НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьНУ = 0; АмортизацияНУ = 0; КапВложения = 0; Контрагент = ""; СтоимостьБУ = 0; АмортизацияБУ = 0; Счет1 = Сч01_1; Счет2 = Сч02_1; СчетМЦ = 0; Если НУ.ПолучитьСчет(, СчН05_01) = 1 Тогда СтоимостьНУ = НУ.СНД(1); ИначеЕсли НУ.ПолучитьСчет(, СчН05_МЦ) = 1 Тогда СчетМЦ = 1; СтоимостьНУ = НУ.СНД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчН05_КВ) = 1 Тогда КапВложения = НУ.СНД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчН05_02) = 1 Тогда АмортизацияНУ = НУ.СНК(1); КонецЕсли; // Выгрузка начальных остатков. НомСтроки = 0; Если СписокОС.НайтиЗначение(НУ.Субконто(1), НомСтроки, "ОсновноеСредство") = 0 Тогда СписокОС.НоваяСтрока(); СписокОС.ОсновноеСредство = НУ.Субконто(1); СписокОС.Подразделение = НУ.Субконто(1).Подразделение.Получить(Параметры.ДатаВводаОстатков); СписокОС.НУ = 1; НомСтроки = СписокОС.КоличествоСтрок(); КонецЕсли; СписокОС.УстановитьЗначение(НомСтроки, "ДатаВводаВЭксплуатацию", НУ.Субконто(1).ДатаВводаВЭксплуатацию); Если (НУ.Субконто(1).ПервоначальнаяСтоимостьН.Получить(НУ.НачДата) = 0) И (НУ.Субконто(1).СпециальныйКоэффициент.Получить(НУ.НачДата) = 0) Тогда СписокОС.УстановитьЗначение(НомСтроки, "НУ", 0); СписокОС.УстановитьЗначение(НомСтроки, "ТекущаяСтоимостьНУ", 0); СписокОС.УстановитьЗначение(НомСтроки, "НакопленнаяАмортизацияНУ", 0); Иначе СписокОС.УстановитьЗначение(НомСтроки, "НУ", 1); СписокОС.УстановитьЗначение(НомСтроки, "ТекущаяСтоимостьНУ", СтоимостьНУ); СписокОС.УстановитьЗначение(НомСтроки, "НакопленнаяАмортизацияНУ", АмортизацияНУ); КонецЕсли; КонецЦикла; ПР = СоздатьОбъект("БухгалтерскиеИтоги"); ПР.ИспользоватьСубконто(); ПР.ВыполнитьЗапрос('01.01.1990',Параметры.ДатаВводаОстатков-1, "НПР.01"); ПР.ВыбратьСубконто(1); Пока ПР.ПолучитьСубконто(1) = 1 Цикл Если ПР.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьПР = 0; АмортизацияПР = 0; Если ПР.ПолучитьСчет(, СчНПР_01) = 1 Тогда СтоимостьПР = ПР.ДО(1); АмортизацияПР = ПР.КО(1); КонецЕсли; НомСтроки = 0; Если СписокОС.НайтиЗначение(ПР.Субконто(1), НомСтроки, "ОсновноеСредство") = 0 Тогда СписокОС.НоваяСтрока(); СписокОС.ОсновноеСредство = ПР.Субконто(1); СписокОС.Подразделение = ПР.Субконто(1).Подразделение.Получить(Параметры.ДатаВводаОстатков); НомСтроки = СписокОС.КоличествоСтрок(); КонецЕсли; СписокОС.УстановитьЗначение(НомСтроки, "НУ", 1); СписокОС.УстановитьЗначение(НомСтроки, "ТекущаяСтоимостьПР", СтоимостьПР); СписокОС.УстановитьЗначение(НомСтроки, "НакопленнаяАмортизацияПР", АмортизацияПР); КонецЦикла; НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(, '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).Подразделение.Получить(Параметры.ДатаВводаОстатков); НомСтроки = СписокОС.КоличествоСтрок(); КонецЕсли; СписокОС.УстановитьЗначение(НомСтроки, "НУ", 1); СписокОС.УстановитьЗначение(НомСтроки, "СтоимостьДо2002НУ", СтоимостьНУ); СписокОС.УстановитьЗначение(НомСтроки, "АмортизацияДо2002НУ", АмортизацияНУ); КонецЦикла; СписокОС.НоваяКолонка("ФормироватьПроводки", "Число"); СписокОС.ВыбратьСтроки(); Пока СписокОС.ПолучитьСтроку() = 1 Цикл СписокОС.ФормироватьПроводки = 1; СписокОС.ГруппировкаДокументов = ?(ПустоеЗначение(СписокОС.СчетУчетаБУ) = 1, "0", СписокОС.СчетУчетаБУ.Код) + СписокОС.Подразделение.Код + СписокОС.БУ + СписокОС.НУ + СписокОС.ФормироватьПроводки + ПустоеЗначение(СписокОС.ОсновноеСредство.Состояние.Получить(Параметры.ДатаВводаОстатков)); КонецЦикла; СписокОС.Сортировать("ГруппировкаДокументов"); ВходящиеДанные = СоздатьОбъект("СписокЗначений"); СписокПодразделения = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по СписокОС.КоличествоКолонок() Цикл СписокПодразделения.НоваяКолонка(СписокОС.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; СписокОС.ВыбратьСтроки(); Пока СписокОС.ПолучитьСтроку() = 1 Цикл Если ПустоеЗначение(СписокОС.ДатаВводаВЭксплуатацию) = 1 Тогда Если (ПустоеЗначение(СписокОС.ОсновноеСредство.Состояние.Получить(Параметры.ДатаВводаОстатков)) = 0) ИЛИ (ПустоеЗначение(СписокОС.ОсновноеСредство.Состояние.Получить(Параметры.ДатаКонцаПериодаВыгрузки)) =0) Тогда СостояниеОС = СоздатьОбъект("Периодический"); СостояниеОС.ИспользоватьОбъект("Состояние", СписокОС.ОсновноеСредство); Если СостояниеОС.ОбратныйПорядок() = 1 Тогда Если СостояниеОС.ВыбратьЗначения(,) = 1 Тогда Пока СостояниеОС.ПолучитьЗначение() = 1 Цикл Если ПустоеЗначение(СостояниеОС.Значение) = 0 Тогда СписокОС.ДатаВводаВЭксплуатацию = СостояниеОС.ДатаЗнач; Продолжить; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; НомерГруппировки = 1; СписокОС.ВыбратьСтроки(); Пока СписокОС.ПолучитьСтроку() = 1 Цикл НомСтрокиОС = 0; Если ПустоеЗначение(СписокОС.ОсновноеСредство.Состояние.Получить(Параметры.ДатаВводаОстатков)) = 1 Тогда ТекущийДокумент = ""; Иначе НомСтрокиОС = СписокОС.НомерСтроки; СписокПодразделения.НоваяСтрока(); НомСтроки = СписокПодразделения.КоличествоСтрок(); Для НомКолонки = 1 по СписокОС.КоличествоКолонок() Цикл СписокПодразделения.УстановитьЗначение(НомСтроки, НомКолонки, СписокОС.ПолучитьЗначение(НомСтрокиОС, НомКолонки)); КонецЦикла; ТекущийДокумент = СписокОС.ГруппировкаДокументов; КонецЕсли; Если НомСтрокиОС < СписокОС.КоличествоСтрок() Тогда СледующийДокумент = СписокОС.ПолучитьЗначение(НомСтрокиОС + 1, "ГруппировкаДокументов"); Иначе СледующийДокумент = ""; КонецЕсли; Если ТекущийДокумент <> СледующийДокумент Тогда Если СписокПодразделения.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ФормироватьПроводки", СписокПодразделения.ПолучитьЗначение(1, "ФормироватьПроводки")); ВходящиеДанные.Установить("ПодразделениеОрганизации", СписокОС.Подразделение); ВходящиеДанные.Установить("ГруппировкаДокументов", ТекущийДокумент + "#*#" + НомерГруппировки + "#*#"); ВходящиеДанные.Установить("ОС", СписокПодразделения); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", СписокПодразделения.ПолучитьЗначение(1, "НУ")); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВходящиеДанные.Установить("РазделУчета", "ОсновныеСредства"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковОС"); СписокПодразделения.УдалитьСтроки(); НомерГруппировки = 1 + НомерГруппировки; КонецЕсли; КонецЕсли; КонецЦикла; Если Параметры.ДатаВводаОстатков <> Параметры.ДатаКонцаПериодаВыгрузки Тогда СписокПодразделения.УдалитьСтроки(); СписокОС.ВыбратьСтроки(); Пока СписокОС.ПолучитьСтроку() = 1 Цикл НомСтрокиОС = 0; Если ПустоеЗначение(СписокОС.ОсновноеСредство.Состояние.Получить(Параметры.ДатаВводаОстатков)) = 0 Тогда ТекущийДокумент = ""; Иначе Если ПустоеЗначение(СписокОС.ОсновноеСредство.Состояние.Получить(Параметры.ДатаКонцаПериодаВыгрузки)) = 1 Тогда ТекущийДокумент = ""; Иначе НомСтрокиОС = СписокОС.НомерСтроки; СписокПодразделения.НоваяСтрока(); НомСтроки = СписокПодразделения.КоличествоСтрок(); Для НомКолонки = 1 по СписокОС.КоличествоКолонок() Цикл СписокПодразделения.УстановитьЗначение(НомСтроки, НомКолонки, СписокОС.ПолучитьЗначение(НомСтрокиОС, НомКолонки)); КонецЦикла; ТекущийДокумент = СписокОС.ГруппировкаДокументов; КонецЕсли; КонецЕсли; Если НомСтрокиОС < СписокОС.КоличествоСтрок() Тогда СледующийДокумент = СписокОС.ПолучитьЗначение(НомСтрокиОС + 1, "ГруппировкаДокументов"); Иначе СледующийДокумент = ""; КонецЕсли; Если ТекущийДокумент <> СледующийДокумент Тогда Если СписокПодразделения.КоличествоСтрок() > 0 Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ФормироватьПроводки", СписокПодразделения.ПолучитьЗначение(1, "ФормироватьПроводки")); Если ПустоеЗначение(СписокОС.Подразделение) = 1 Тогда ЗначениеПодразделение = Константа.ОсновноеПодразделение; Иначе ЗначениеПодразделение = СписокОС.Подразделение; КонецЕсли; ВходящиеДанные.Установить("ПодразделениеОрганизации", ЗначениеПодразделение); ВходящиеДанные.Установить("ГруппировкаДокументов", ТекущийДокумент + "#*#" + НомерГруппировки + "#*#"); ВходящиеДанные.Установить("ОС", СписокПодразделения); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 0); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 0); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВходящиеДанные.Установить("РазделУчета", "ОсновныеСредства"); ВходящиеДанные.Установить("Дата", Параметры.ДатаКонцаПериодаВыгрузки); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковОС"); СписокПодразделения.УдалитьСтроки(); НомерГруппировки = 1 + НомерГруппировки; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; <Правило Отключить="false"> <Код>тНематериальныеАктивы <Наименование>Нематериальные активы <Порядок>100 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета НМА //************************************************************************************************* СчН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); НомСтроки = СписокНМА.КоличествоСтрок(); КонецЕсли; СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьБУ", СтоимостьБУ); СписокНМА.УстановитьЗначение(НомСтроки, "АмортизацияБУ", АмортизацияБУ); КонецЦикла; // Налоговый учет НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "Н05.03,Н05.04,НПР.04"); НУ.ВыбратьПериоды(); Пока НУ.ПолучитьПериод() = 1 Цикл НУ.ВыбратьСубконто(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; НомСтроки = СписокНМА.КоличествоСтрок(); КонецЕсли; // Выгрузка начальных остатков. СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьНУ", СтоимостьНУ); СписокНМА.УстановитьЗначение(НомСтроки, "АмортизацияНУ", АмортизацияНУ); Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда СписокНМА.УстановитьЗначение(НомСтроки, "НУ", 1); СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьПР", СтоимостьПР); СписокНМА.УстановитьЗначение(НомСтроки, "АмортизацияПР", АмортизацияПР); СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьВР", СтоимостьБУ - СтоимостьНУ - СтоимостьПР); СписокНМА.УстановитьЗначение(НомСтроки, "АмортизацияВР", АмортизацияБУ - АмортизацияНУ - АмортизацияПР); КонецЕсли; КонецЦикла; КонецЦикла; СписокНМАОтбор = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по СписокНМА.КоличествоКолонок() Цикл СписокНМАОтбор.НоваяКолонка(СписокНМА.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; СписокНМА.ВыбратьСтроки(); Пока СписокНМА.получитьСтроку() = 1 Цикл Если СписокНМА.НМА.ВидОбъектаУчета <> 0 Тогда Продолжить; КонецЕсли; Если СписокНМА.НУ = 0 Тогда Продолжить; КонецЕсли; Если ПустоеЗначение(СписокНМА.НМА.Состояние.Получить(Параметры.ДатаВводаОстатков)) = 0 Тогда Если СписокНМА.НМА.Состояние.Получить(Параметры.ДатаВводаОстатков) = Перечисление.СостоянияНМА.Поступил Тогда Продолжить; КонецЕсли; НомСтрокиНМА = СписокНМА.НомерСтроки; СписокНМАОтбор.НоваяСтрока(); НомСтроки = СписокНМАОтбор.КоличествоСтрок(); Для НомКолонки = 1 по СписокНМА.КоличествоКолонок() Цикл СписокНМАОтбор.УстановитьЗначение(НомСтроки, НомКолонки, СписокНМА.ПолучитьЗначение(НомСтрокиНМА, НомКолонки)); КонецЦикла; КонецЕсли; КонецЦикла; Если СписокНМАОтбор.КоличествоСтрок() <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ФормироватьПроводки", 1); ВходящиеДанные.Установить("НМА", СписокНМАОтбор); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВходящиеДанные.Установить("РазделУчета", "НематериальныеАктивыИНИОКР"); ВходящиеДанные.Установить("ВидОбъектаУчета", "НМА"); ВходящиеДанные.Установить("ОтражатьВНУ", "Отражаемые в налоговом учете"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНМАИНИОКР"); КонецЕсли; //******************* СписокНМАОтбор.УдалитьСтроки(); СписокНМА.ВыбратьСтроки(); СписокНМА.ВыбратьСтроки(); Пока СписокНМА.получитьСтроку() = 1 Цикл Если СписокНМА.НМА.ВидОбъектаУчета <> 0 Тогда Продолжить; КонецЕсли; Если СписокНМА.НУ = 1 Тогда Продолжить; КонецЕсли; Если ПустоеЗначение(СписокНМА.НМА.Состояние.Получить(Параметры.ДатаВводаОстатков)) = 0 Тогда Если СписокНМА.НМА.Состояние.Получить(Параметры.ДатаВводаОстатков) = Перечисление.СостоянияНМА.Поступил Тогда Продолжить; КонецЕсли; НомСтрокиНМА = СписокНМА.НомерСтроки; СписокНМАОтбор.НоваяСтрока(); НомСтроки = СписокНМАОтбор.КоличествоСтрок(); Для НомКолонки = 1 по СписокНМА.КоличествоКолонок() Цикл СписокНМАОтбор.УстановитьЗначение(НомСтроки, НомКолонки, СписокНМА.ПолучитьЗначение(НомСтрокиНМА, НомКолонки)); КонецЦикла; КонецЕсли; КонецЦикла; Если СписокНМАОтбор.КоличествоСтрок() <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ФормироватьПроводки", 1); ВходящиеДанные.Установить("НМА", СписокНМАОтбор); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 0); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВходящиеДанные.Установить("РазделУчета", "НематериальныеАктивыИНИОКР"); ВходящиеДанные.Установить("ВидОбъектаУчета", "НМА"); ВходящиеДанные.Установить("ОтражатьВНУ", "Не отражаемые в налоговом учете"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНМАИНИОКР"); КонецЕсли; <Правило Отключить="false"> <Код>тРасходыНаНИОКР <Наименование>Расходы на НИОКР <Порядок>150 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета расходов на НИОКР //************************************************************************************************* ДокументыНМА = СоздатьОбъект("ТаблицаЗначений"); ДокументыНМА.НоваяКолонка("РБП"); ДокументыНМА.НоваяКолонка("НМА"); Док = СоздатьОбъект("Документ.ПринятиеКУчетуНМА"); Док.ВыбратьДокументы(,); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.ВидОбъектаУчета = 1 Тогда ДокументыНМА.НоваяСтрока(); ДокументыНМА.НМА = Док.НМА; ДокументыНМА.РБП = Док.РБП; КонецЕсли; КонецЦикла; СчН04_03 = СчетПоКоду("Н04.03"); СчНПР_04 = СчетПоКоду("НПР.04"); Сч04_2 = СчетПоКоду("04.2"); Сч97 = СчетПоКоду("97"); СписокНМА = СоздатьОбъект("ТаблицаЗначений"); СписокНМА.НоваяКолонка("НМА"); СписокНМА.НоваяКолонка("СтоимостьБУ", "Число"); СписокНМА.НоваяКолонка("ПервоначальнаяСтоимостьНУ", "Число"); СписокНМА.НоваяКолонка("СрокИспользованияНУ", "Число"); СписокНМА.НоваяКолонка("СписыватьРасходыНУ", "Число"); СписокНМА.НоваяКолонка("СтоимостьНУ", "Число"); СписокНМА.НоваяКолонка("СтоимостьПР", "Число"); СписокНМА.НоваяКолонка("СтоимостьВР", "Число"); СписокНМА.НоваяКолонка("БУ", "Число"); СписокНМА.НоваяКолонка("НУ", "Число"); СписокНМА.НоваяКолонка("СтоимостьНУКон", "Число"); СписокНМА.НоваяКолонка("СтоимостьПРКон", "Число"); СписокНМА.НоваяКолонка("СтоимостьВРКон", "Число"); СписокНМА.НоваяКолонка("СтоимостьБУКон", "Число"); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "04.2,97"); БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если БУ.Счет = Сч04_2 Тогда БУ.ВыбратьСубконто(); Пока БУ.ПолучитьСубконто() = 1 Цикл Если БУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; НомСтроки = 0; Если СписокНМА.НайтиЗначение(БУ.Субконто(1), НомСтроки, "НМА") = 0 Тогда СписокНМА.НоваяСтрока(); СписокНМА.БУ = 1; СписокНМА.НМА = БУ.Субконто(1); НомСтроки = СписокНМА.КоличествоСтрок(); КонецЕсли; // Выгрузка начальных остатков СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьБУ", БУ.СНД(1)); КонецЦикла; КонецЕсли; КонецЦикла; // Налоговый учет НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "Н04.03,НПР.04"); НУ.ВыбратьСубконто(); Пока НУ.ПолучитьСубконто() = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; ИначеЕсли НУ.Субконто(1).Вид() = "НематериальныеАктивы" Тогда Если НУ.Субконто(1).ВидОбъектаУчета = 0 Тогда Продолжить; КонецЕсли; КонецЕсли; СтоимостьНУ = 0; СтоимостьПР = 0; ДтКт = 1; // 1 - дебет, 2 - кредит Если НУ.ПолучитьСчет(, СчН04_03) = 1 Тогда ДтКт = 1; СтоимостьНУ = НУ.СНД(1); КонецЕсли; Если НУ.ПолучитьСчет(, СчНПР_04) = 1 Тогда ДтКт = 1; СтоимостьПР = НУ.СНД(1); КонецЕсли; СтоимостьБУ = 0; СтатьяРБП = НУ.Субконто(1); ПервоначальнаяСтоимостьНУ = 0; СрокИспользованияНУ = 0; СписыватьРасходыНУ = 0; Если НУ.Счет = СчетПоКоду("Н04.03") Тогда ПервоначальнаяСтоимостьНУ = СтатьяРБП.Сумма; СрокИспользованияНУ = Цел(Окр((СтатьяРБП.ДатаОкончанияСписания - СтатьяРБП.ДатаНачалаСписания)/30.5)); СписыватьРасходыНУ = ?(СтатьяРБП.ДатаНачалаСписания <= Параметры.ДатаКонцаПериодаВыгрузки, 1, 0); КонецЕсли; Счет1 = Сч97; Если БУ.ПолучитьПериод(, НУ.НачДата) = 1 Тогда БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если БУ.Счет = Сч04_2 Тогда НомСтроки = 0; Если ДокументыНМА.НайтиЗначение(СтатьяРБП, НомСтроки, "РБП") = 1 Тогда Счет1 = Сч04_2; СтатьяРБП = ДокументыНМА.ПолучитьЗначение(НомСтроки, "НМА"); Если БУ.ПолучитьСубконто(1,, СтатьяРБП) = 1 Тогда СтоимостьБУ = БУ.СНД(); КонецЕсли; БУ.ПолучитьСубконто(1,, ""); КонецЕсли; КонецЕсли; Если БУ.Счет = Сч97 Тогда Если БУ.ПолучитьСубконто(1,, СтатьяРБП) = 1 Тогда СтоимостьБУ = БУ.СНД(); КонецЕсли; БУ.ПолучитьСубконто(1,, ""); КонецЕсли; КонецЦикла; КонецЕсли; БУ.ПолучитьПериод(, ""); Если Счет1 = Сч04_2 Тогда НомСтроки = 0; Если СписокНМА.НайтиЗначение(СтатьяРБП, НомСтроки, "НМА") = 0 Тогда СписокНМА.НоваяСтрока(); СписокНМА.НМА = СтатьяРБП; СписокНМА.НУ = 1; НомСтроки = СписокНМА.КоличествоСтрок(); КонецЕсли; СписокНМА.УстановитьЗначение(НомСтроки, "НУ", 1); СписокНМА.УстановитьЗначение(НомСтроки, "ПервоначальнаяСтоимостьНУ", ПервоначальнаяСтоимостьНУ); СписокНМА.УстановитьЗначение(НомСтроки, "СписыватьРасходыНУ", СписыватьРасходыНУ); СписокНМА.УстановитьЗначение(НомСтроки, "СрокИспользованияНУ", СрокИспользованияНУ); Если СтоимостьНУ <> 0 Тогда СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьНУ", СтоимостьНУ); КонецЕсли; Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда Если СтоимостьПР <> 0 Тогда СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьПР", СтоимостьПР); КонецЕсли; СтоимостьВР = СтоимостьБУ - СтоимостьНУ - СтоимостьПР; Если СтоимостьВР <> 0 Тогда СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьВР", СтоимостьВР); КонецЕсли; КонецЕсли; Иначе Счет1 = Сч04_2; НомСтроки = 0; Если СписокНМА.НайтиЗначение(СтатьяРБП, НомСтроки, "НМА") = 1 Тогда Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда Если СтоимостьПР <> 0 Тогда СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьПР", СтоимостьПР); КонецЕсли; СтоимостьВР = СписокНМА.ПолучитьЗначение(НомСтроки, "СтоимостьБУ") - СписокНМА.ПолучитьЗначение(НомСтроки, "СтоимостьНУ") - СписокНМА.ПолучитьЗначение(НомСтроки, "СтоимостьПР"); Если СтоимостьВР <> 0 Тогда СписокНМА.УстановитьЗначение(НомСтроки, "СтоимостьВР", СтоимостьВР); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; СписокНМАОтбор = СоздатьОбъект("ТаблицаЗначений"); Для НомКолонки = 1 по СписокНМА.КоличествоКолонок() Цикл СписокНМАОтбор.НоваяКолонка(СписокНМА.ПолучитьПараметрыКолонки(НомКолонки)); КонецЦикла; СписокНМА.ВыбратьСтроки(); Пока СписокНМА.получитьСтроку() = 1 Цикл Если СписокНМА.НМА.ВидОбъектаУчета = 0 Тогда Продолжить; КонецЕсли; Если СписокНМА.НМА.ДатаПринятияКУчету >= Параметры.ДатаВводаОстатков Тогда Продолжить; КонецЕсли; Если СписокНМА.НУ = 0 Тогда Продолжить; КонецЕсли; НомСтрокиНМА = СписокНМА.НомерСтроки; СписокНМАОтбор.НоваяСтрока(); НомСтроки = СписокНМАОтбор.КоличествоСтрок(); Для НомКолонки = 1 по СписокНМА.КоличествоКолонок() Цикл СписокНМАОтбор.УстановитьЗначение(НомСтроки, НомКолонки, СписокНМА.ПолучитьЗначение(НомСтрокиНМА, НомКолонки)); КонецЦикла; КонецЦикла; Если СписокНМАОтбор.КоличествоСтрок() <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ФормироватьПроводки", 1); ВходящиеДанные.Установить("НМА", СписокНМАОтбор); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВходящиеДанные.Установить("РазделУчета", "НематериальныеАктивыИНИОКР"); ВходящиеДанные.Установить("ВидОбъектаУчета", "НИОКР"); ВходящиеДанные.Установить("ОтражатьВНУ", "Отражаемые в налоговом учете"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНМАИНИОКР"); КонецЕсли; //******************* СписокНМАОтбор.УдалитьСтроки(); СписокНМА.ВыбратьСтроки(); Пока СписокНМА.получитьСтроку() = 1 Цикл Если СписокНМА.НМА.ВидОбъектаУчета = 0 Тогда Продолжить; КонецЕсли; Если СписокНМА.НМА.ДатаПринятияКУчету >= Параметры.ДатаВводаОстатков Тогда Продолжить; КонецЕсли; Если СписокНМА.НУ = 1 Тогда Продолжить; КонецЕсли; НомСтрокиНМА = СписокНМА.НомерСтроки; СписокНМАОтбор.НоваяСтрока(); НомСтроки = СписокНМАОтбор.КоличествоСтрок(); Для НомКолонки = 1 по СписокНМА.КоличествоКолонок() Цикл СписокНМАОтбор.УстановитьЗначение(НомСтроки, НомКолонки, СписокНМА.ПолучитьЗначение(НомСтрокиНМА, НомКолонки)); КонецЦикла; КонецЦикла; Если СписокНМАОтбор.КоличествоСтрок() <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ФормироватьПроводки", 1); ВходящиеДанные.Установить("НМА", СписокНМАОтбор); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 0); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВходящиеДанные.Установить("РазделУчета", "НематериальныеАктивыИНИОКР"); ВходящиеДанные.Установить("ВидОбъектаУчета", "НИОКР"); ВходящиеДанные.Установить("ОтражатьВНУ", "Не отражаемые в налоговом учете"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатковНМАИНИОКР"); КонецЕсли; <Правило Отключить="false"> <Код>тВнеоборотныеАктивы <Наименование>Внеоборотные активы <Порядок>200 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* //Счета учета оборудования (Счет 07) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.02"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.07"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "07"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Оборудование); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("07")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* //Счета учета внеоборотных активов (Счета 08) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.01"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.4"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 08.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.09"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.1,08.2,08.3"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 08.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 08.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 08.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.5"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 08.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н01.03"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "08.8"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ОбъектыСтроительства); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 08.8 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.8")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); //******************** Счет 08.6 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 08.7 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("08.7")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тМатериалы <Наименование>Материалы <Порядок>250 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета материалов (Счет 10) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.01,Н02.09"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.10.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "10.1,10.2,10.3,10.4,10.5,10.6,10.7,10.8,10.9,10.10"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Материалы); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 10.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.6 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.7 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.7")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.8 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.8")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.9 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.9")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.10 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.10")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 10.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВыгрузитьОстаткиПоСпецматериаламНУ(); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("МЦ.02")); ВыгрузитьОстаткиПоСпецматериаламМЦ(); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.11.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВыгрузитьОстаткиПоСчету(); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("МЦ.03")); ВыгрузитьОстаткиПоСпецматериаламМЦ(); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("10.11.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВыгрузитьОстаткиПоСчету(); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 1); ///******************** Соответствие счетов НУ Счет МЦ.02 и МЦ.03 ******************** //// Поддержка ПБУ 18 //Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда // // ПроводкиОбороты = Параметры.ТаблицаПроводокОбороты; // Проводки = Параметры.ТаблицаПроводок; // Проводки.УдалитьСтроки(); // // НУ = СоздатьОбъект("БухгалтерскиеИтоги"); // НУ.ИспользоватьСубконто(); // Если Параметры.ДатаВводаОстатков = Параметры.ДатаКонцаПериодаВыгрузки Тогда // НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "МЦ.02,МЦ.03"); // // Иначе // НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков, Параметры.ДатаКонцаПериодаВыгрузки, "МЦ.02,МЦ.03",,, 3, "Месяц",); // КонецЕсли; // // НУ.ВыбратьПериоды(); // Пока НУ.ПолучитьПериод() = 1 Цикл // // НУ.ВыбратьСчета(); // Пока НУ.ПолучитьСчет() = 1 Цикл // // ПроводкиОбороты.УдалитьСтроки(); // // НУ.ВыбратьСубконто(1); // Пока НУ.ПолучитьСубконто(1) = 1 Цикл // Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда // Продолжить; // КонецЕсли; // // СтоимостьВР = НУ.СНД(1); // СтоимостьВР_ОборотыДт = НУ.ДО(1); // СтоимостьВР_ОборотыКт = НУ.КО(1); // // // Выгрузка оборотов // Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", ПроводкиОбороты); // Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); // // Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); // Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); // Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); // Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", НУ.Субконто(1)); // Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ""); // Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ""); // // Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); // Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ); // Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); // Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", НУ.Субконто(1)); // Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ""); // Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ""); // // // Стоимость // Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); // Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); // Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР_ОборотыДт); // ДобавитьПроводкуНУ(); // // Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); // Параметры.ПараметрыАлгоритмов.Установить("СчетКт", НУ.Счет); // Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР_ОборотыКт); // ДобавитьПроводкуНУ(); // // КонецЦикла; // // ВходящиеДанные = СоздатьОбъект("СписокЗначений"); // ВходящиеДанные.Установить("Налоговый", ПроводкиОбороты); // ВходящиеДанные.Установить("Счет", НУ.Счет); // ВходящиеДанные.Установить("Дата", НУ.КонДата); // ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); // КонецЦикла; // КонецЦикла; //КонецЕсли; //******************** Счет 11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тОтклонениеСтоимостиМПЗ <Наименование>Отклонения стоимости ТМЦ <Порядок>300 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета отклонений стоимости (Счета 14, 15, 16) //************************************************************************************************* //******************** Счет 14.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 14.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 14.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 14.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("14.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 15.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("15.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 15.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("15.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 16.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("16.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 16.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("16.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 16.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("16.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тДанныеПоНДСпоПоставщикам <Наименование>НДС по приобретенным ценностям <Порядок>350 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СПоставщиком"); Параметры.ПараметрыАлгоритмов.Установить("НДСДатаВыгрузки", Параметры.ДатаВводаОстатков-1); ДанныеПоНДСпоПоставщикам(); //************************************************************************************************* // Счета учета НДС полученного //************************************************************************************************* //******************** Счет 19.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("19.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", "НДСПоПриобретеннымЦенностям"); ВыгрузитьОстаткиПоСчету(); //******************** Счет 19.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("19.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", "НДСПоПриобретеннымЦенностям"); ВыгрузитьОстаткиПоСчету(); //******************** Счет 19.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("19.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", "НДСПоПриобретеннымЦенностям"); ВыгрузитьОстаткиПоСчету(); //******************** Счет 19.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("19.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", "НДСПоПриобретеннымЦенностям"); ВыгрузитьОстаткиПоСчету(); //******************** Счет 19.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("19.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", ""); ВыгрузитьОстаткиПоСчету(); //********************************************************************* Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); <Правило Отключить="false"> <Код>тНЗП <Наименование>Незавершенное производство <Порядок>400 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета НЗМ (Счет 20) //************************************************************************************************* СписокСчетовНУ = "Н01.05"; СписокСчетовПР = "НПР.20"; СписокСчетовБУ = "20"; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры); НУ.ИспользоватьСубконто(ВидыСубконто.ГруппыВидыРасходов); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовНУ); ПР = СоздатьОбъект("БухгалтерскиеИтоги"); ПР.ИспользоватьСубконто(); ПР.ИспользоватьСубконто(); ПР.ИспользоватьСубконто(); ПР.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовПР); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовБУ); ИтогиПоСубконто = СоздатьОбъект("ТаблицаЗначений"); ИтогиПоСубконто.НоваяКолонка("Счет"); ИтогиПоСубконто.НоваяКолонка("КодСчета"); ИтогиПоСубконто.НоваяКолонка("Субконто1"); ИтогиПоСубконто.НоваяКолонка("Субконто2"); ИтогиПоСубконто.НоваяКолонка("Субконто3"); ИтогиПоСубконто.НоваяКолонка("СНД1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК1", "Число"); ИтогиПоСубконто.НоваяКолонка("КО1", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНД3", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК3", "Число"); ИтогиПоСубконто.НоваяКолонка("КО3", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО3", "Число"); НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; НУ.ВыбратьСубконто(2); Пока НУ.ПолучитьСубконто(2) = 1 Цикл СтоимостьНУ = НУ.СНД(1); ИтогиПоСубконто.УдалитьСтроки(); Если БУ.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда Если БУ.ПолучитьСубконто(1,, НУ.Субконто(1)) = 1 Тогда БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл БУ.ВыбратьСубконто(2); Пока БУ.ПолучитьСубконто(2) = 1 Цикл Если БУ.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; ИначеЕсли НУ.Субконто(2) <> БУ.Субконто(2).ВидРасходовДляНалоговогоУчета Тогда Продолжить; КонецЕсли; БУ.ВыбратьСубконто(3); Пока БУ.ПолучитьСубконто(3) = 1 Цикл ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = БУ.Счет; ИтогиПоСубконто.КодСчета = ""; ИтогиПоСубконто.Субконто1 = БУ.Субконто(1); ИтогиПоСубконто.Субконто2 = БУ.Субконто(2); ИтогиПоСубконто.Субконто3 = БУ.Субконто(3); ИтогиПоСубконто.СНД1 = БУ.СНД(1); ИтогиПоСубконто.СНК1 = БУ.СНК(1); Если ПР.ПолучитьПериод(1, БУ.НачДата) = 1 Тогда Если ПР.ПолучитьСубконто(1,, БУ.Субконто(1)) = 1 Тогда Если ПР.ПолучитьСубконто(2,, БУ.Субконто(2)) = 1 Тогда Если ПР.ПолучитьСубконто(3,, БУ.Субконто(3)) = 1 Тогда ИтогиПоСубконто.СНД3 = ПР.СНД(1); ИтогиПоСубконто.СНК3 = ПР.СНК(1); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЕсли; КонецЕсли; БУ.ПолучитьСубконто(1,, ""); БУ.ПолучитьПериод(, ""); Если ИтогиПоСубконто.КоличествоСтрок() = 0 Тогда ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = СчетПоКоду(СписокСчетовБУ); ИтогиПоСубконто.КодСчета = ""; ИтогиПоСубконто.Субконто1 = НУ.Субконто(1); ИтогиПоСубконто.Субконто2 = НУ.Субконто(2); ИтогиПоСубконто.Субконто3 = ""; КонецЕсли; СтоимостьБУ_Всего = ИтогиПоСубконто.Итог("СНД1"); СтоимостьБУ_ТекИтог = 0; РаспределеноНУ = 0; ИтогиПоСубконто.ВыбратьСтроки(); Пока ИтогиПоСубконто.ПолучитьСтроку() = 1 Цикл СтоимостьБУ = ИтогиПоСубконто.СНД1; ТекСтоимостьНУ = ?(СтоимостьБУ_Всего = 0, 0, Окр(СтоимостьНУ * СтоимостьБУ / СтоимостьБУ_Всего, 2, 1)); ТекСтоимостьПР = ИтогиПоСубконто.СНД3; РаспределеноНУ = РаспределеноНУ + ТекСтоимостьНУ; СтоимостьБУ_ТекИтог = СтоимостьБУ_ТекИтог + СтоимостьБУ; // Если текущий итог по колонке равен всей сумме колонки, // то это последняя проводка и ее сумму надо скорректировать. Если СтоимостьБУ_ТекИтог = СтоимостьБУ_Всего Тогда ТекСтоимостьНУ = ТекСтоимостьНУ + СтоимостьНУ - РаспределеноНУ; КонецЕсли; // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", ИтогиПоСубконто.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ИтогиПоСубконто.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ИтогиПоСубконто.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", ИтогиПоСубконто.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ИтогиПоСубконто.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ИтогиПоСубконто.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ИтогиПоСубконто.Счет); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ИтогиПоСубконто.КодСчета); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьНУ); ДобавитьПроводкуНУ(); // Поддержка ПБУ 18 Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда ТекСтоимостьВР = СтоимостьБУ - ТекСтоимостьНУ - ТекСтоимостьПР; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьПР); ДобавитьПроводкуНУ(); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьВР); ДобавитьПроводкуНУ(); КонецЕсли; КонецЦикла; КонецЦикла; // НУ.ВыбратьСубконто() КонецЦикла; // НУ.ВыбратьСубконто() Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ПодготовитьТаблицуОстатковНУ(); //ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); //******************** Счет 20 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("20")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); //******************** Счет 23 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("23")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 25 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("25")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 26 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("26")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 28 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("28")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 29 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("29")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 1); <Правило Отключить="false"> <Код>тТовары <Наименование>Товары <Порядок>450 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СПоставщиком"); //************************************************************************************************* // Счета учета товаров (Счета 41) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.02.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.41"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "41.1,41.3,41.4,41.5"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 41.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("41.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 41.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("41.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 41.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("41.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 41.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("41.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.02.2"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.41"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "41.2"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 41.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("41.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 42 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("42")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* // Счета учета товаров на комиссии (Счет 004) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СКомитентом"); //******************** Счет 004 ******************** Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьИтогиПоСчету004(); Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); <Правило Отключить="false"> <Код>тГотоваяПродукцияИПолуфабрикаты <Наименование>Готовая продукция и полуфабрикаты <Порядок>500 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета выпуска продукции (Счет 40) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("40")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* // Счета учета готовой продукции (Счет 43) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.03"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.43"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "43"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 43 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("43")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* // Счета учета полуфабрикатов (Счет 21) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.07"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.21"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "21"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 21 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("21")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тРасходыНаПродажу <Наименование>Расходы на продажу <Порядок>550 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета расзодов на продажу (Счет 44) //************************************************************************************************* СписокСчетовНУ = "Н01.07"; СписокСчетовПР = "НПР.44.1"; СписокСчетовБУ = "44.1.1"; ВидСубконтоНУ = ""; Количественный = 0; ДтКт = 1; СчН01_07 = СчетПоКоду("Н01.07"); СчНПР_44_1 = СчетПоКоду("НПР.44.1"); Сч44_1_1 = СчетПоКоду("44.1.1"); СубконтоНУ = "ТранспортныеРасходы"; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовНУ); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ВключатьСубсчета(, -1); БУ.ИспользоватьСубконто(); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовБУ+","+СписокСчетовПР); СтоимостьНУ = ?(ДтКт = 1, НУ.СНД(1), НУ.СНК(1)); СтоимостьБУ = 0; СтоимостьПР = 0; Если БУ.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда БУ.ВыбратьСубконто(1); Пока БУ.ПолучитьСубконто(1) = 1 Цикл Если БУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; ИначеЕсли БУ.Субконто(1).СписыватьИздержкиПропорциональноОстаткуТоваров.Получить(БУ.КонДата) <> 1 Тогда Продолжить; КонецЕсли; Если БУ.ПолучитьСчет(, Сч44_1_1) = 1 Тогда СтоимостьБУ = СтоимостьБУ + БУ.СНД(1); КонецЕсли; Если БУ.ПолучитьСчет(, СчНПР_44_1) = 1 Тогда СтоимостьПР = СтоимостьПР + БУ.СНД(1); КонецЕсли; КонецЦикла; КонецЕсли; БУ.ПолучитьПериод(, ""); // Выгрузка оборотов НУ Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ""); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ""); // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", СчН01_07); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", СубконтоНУ); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", ""); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьНУ); ДобавитьПроводкуНУ(); // Поддержка ПБУ 18 Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда СтоимостьВР = СтоимостьБУ - СтоимостьНУ - СтоимостьПР; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьПР); ДобавитьПроводкуНУ(); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР); ДобавитьПроводкуНУ(); КонецЕсли; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ПодготовитьТаблицуОстатковНУ(); //ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); //******************** Счет 44.1.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("44.1.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); //******************** Счет 44.1.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("44.1.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 44.1.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("44.1.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 44.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("44.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 44.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("44.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 44.1.2 ******************** <Правило Отключить="false"> <Код>тТоварыОтгруженные <Наименование>Товары отгруженные <Порядок>600 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************************************************************** Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СКомиссионером"); //************************************************************************************************* // Счета учета товаров (Счета 45) //************************************************************************************************* Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.04.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.45"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "45"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "3,1,2"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "45.01"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.04.2"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.45"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "45"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "3,1,2"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "45.02"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.04.3"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.45"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "45"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Номенклатура); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "3,1,2"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "45.03"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 45 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("45")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); ВыгрузитьОстаткиПоСчету(); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 1); //*** Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СПокупателем"); //******************** Счет 46 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("46")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************** Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); <Правило Отключить="false"> <Код>тКассаИБанк <Наименование>Денежные средства <Порядок>650 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета кассовых операций (Счет 50) //************************************************************************************************* //******************** Счет 50.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 50.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 50.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 50.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 50.33 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("50.33")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* // Счета учета банковских операций (Счета 51, 52, 55, 57) //************************************************************************************************* //******************** Счет 51 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("51")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 52******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("52")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 55.1 ***************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 55.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 55.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 55.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 55.33 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.33")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 55.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 55.44 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("55.44")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 57.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("57.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 57.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("57.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тФинансовыеВложения <Наименование>Финансовые вложения <Порядок>700 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета паев и акций (Счета 58) //************************************************************************************************* //Паи Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.58.1"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "58.1.1"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Контрагенты); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 58.1.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.1.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* //Акции Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.05"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.58.2"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "58.1.2,58.2"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.ЦенныеБумаги); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "2,1,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 2); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 58.1.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.1.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 2); ВыгрузитьОстаткиПоСчету(); //******************** Счет 58.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 2); ВыгрузитьОстаткиПоСчету(); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 1); //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н02.06"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.58.5"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "58.5"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Договоры); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "2,1,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 1); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); ВыгрузитьОстаткиПоСчетуНУ(); //******************** Счет 58.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*** Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); //******************** Счет 58.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 58.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("58.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 59 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("59")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тРасчетыСПоставщиками <Наименование>Расчеты с поставщиками и подрядчиками <Порядок>750 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//*************************************************************** Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СПоставщиком"); //************************************************************************************************* // Счет учета расчетов с поставщиками (Счет 60) //************************************************************************************************* //******************** Счет 60.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("60.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 60.11******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("60.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 60.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("60.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 60.22 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("60.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("ВАЛ.60")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 60.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("60.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 60.6 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("60.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 60.7 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("60.7")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*************************************************************** Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); <Правило Отключить="false"> <Код>тРасчетыСПокупателями <Наименование>Расчеты с покупателями и заказчиками <Порядок>800 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//*************************************************************** Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "СПокупателем"); //************************************************************************************************* // Счет учета расчетов с покупателями (Счет 62) //************************************************************************************************* //******************** Счет 62.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.2******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.22 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("ВАЛ.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.44 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.44")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.6 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.7 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.7")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 62.8 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("62.8")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //*************************************************************** Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора", "Прочее"); <Правило Отключить="false"> <Код>тРасчетыПрочие <Наименование>Прочие расчеты с контрагентами <Порядок>850 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета расчетов по кредитам и займам (Счет 63, 66, 67) //************************************************************************************************* //******************** Счет 63 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("63")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.22 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.33 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.33")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.44 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.44")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 66.55 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("66.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.22 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.33 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.33")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.44 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.44")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 67.6 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("67.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //************************************************************************************************* // Счета учета расчетов по внутрифирменным расчетам (Счет 79) //************************************************************************************************* //******************** Счет 79.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("79.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 79.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("79.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 79.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("79.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тРасчетыПоНалогамИСборам <Наименование>Налоги и сборы <Порядок>900 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета расчетов по налогам и сборам (Счета 68, 69) //************************************************************************************************* //******************** Счет 68.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 68.10 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.10")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 68.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 68.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 68.4.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.4.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 68.4.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.4.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 68.7 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.7")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 68.8 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("68.8")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.12 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.12")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.2.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.2.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.2.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.2.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.2.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.2.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.3.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.3.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.3.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.3.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.21.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.21.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.21.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.21.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.21.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.21.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.21.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.21.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 69.21.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("69.21.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //выгрузим остатки по начислениям в фонды БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ПериодМ(Параметры.ДатаВводаОстатков); ПФРСтраховая = БухИт.СНК("69.2.2",,,); ПФРНакопительная = БухИт.СНК("69.2.3",,,); ФФОМС = БухИт.СНК("69.3.1",,,); ТФОМС = БухИт.СНК("69.3.2",,,); ФСС = БухИт.СНК("69.1",,,); ФСС_НС = БухИт.СНК("69.11",,,); Если (ПФРСтраховая + ПФРНакопительная + ФФОМС + ТФОМС + ФСС + ФСС_НС) <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВходящиеДанные.Установить("ДатаПлатежа", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("МесяцРасчетногоПериода", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("ВидОперации", "Начисление"); ВходящиеДанные.Установить("ВидПлатежа", "Налог"); ВходящиеДанные.Установить("ИмяПКО", ""); ВходящиеДанные.Установить("ПФРНакопительная", ПФРНакопительная); ВходящиеДанные.Установить("ПФРСтраховая", ПФРСтраховая); ВходящиеДанные.Установить("ТФОМС", ТФОМС); ВходящиеДанные.Установить("ФСС", ФСС); ВходящиеДанные.Установить("ФССНесчастныеСлучаи", ФСС_НС); ВходящиеДанные.Установить("ФФОМС", ФФОМС); ВходящиеДанные.Установить("Комментарий", "# Перенесено из 1С:Бухгалтерии 7.7 # Начислено ПФР, ФОМС, ФСС # "); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "РасчетыПоСтраховымВзносам_ДляРегистра"); КонецЕсли; ПФРСтраховая = БухИт.СНД("69.2.2",,,); ПФРНакопительная = БухИт.СНД("69.2.3",,,); ФФОМС = БухИт.СНД("69.3.1",,,); ТФОМС = БухИт.СНД("69.3.2",,,); ФСС = БухИт.СНД("69.1",,,); ФСС_НС = БухИт.СНД("69.11",,,); Если (ПФРСтраховая + ПФРНакопительная) <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВходящиеДанные.Установить("ДатаПлатежа", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("МесяцРасчетногоПериода", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("ВидОперации", "УплатаПФР"); ВходящиеДанные.Установить("ВидПлатежа", "Налог"); ВходящиеДанные.Установить("ИмяПКО", ""); ВходящиеДанные.Установить("ПФРНакопительная", ПФРНакопительная); ВходящиеДанные.Установить("ПФРСтраховая", ПФРСтраховая); ВходящиеДанные.Установить("ТФОМС", 0); ВходящиеДанные.Установить("ФСС", 0); ВходящиеДанные.Установить("ФССНесчастныеСлучаи", 0); ВходящиеДанные.Установить("ФФОМС", 0); ВходящиеДанные.Установить("Комментарий", "# Перенесено из 1С:Бухгалтерии 7.7 # Уплачено ПФР # "); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "РасчетыПоСтраховымВзносам_ДляРегистра"); КонецЕсли; Если (ФФОМС + ТФОМС) <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВходящиеДанные.Установить("ДатаПлатежа", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("МесяцРасчетногоПериода", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("ВидОперации", "УплатаФОМС"); ВходящиеДанные.Установить("ВидПлатежа", "Налог"); ВходящиеДанные.Установить("ИмяПКО", ""); ВходящиеДанные.Установить("ПФРНакопительная", 0); ВходящиеДанные.Установить("ПФРСтраховая", 0); ВходящиеДанные.Установить("ТФОМС", ТФОМС); ВходящиеДанные.Установить("ФСС", 0); ВходящиеДанные.Установить("ФССНесчастныеСлучаи", 0); ВходящиеДанные.Установить("ФФОМС", ФФОМС); ВходящиеДанные.Установить("Комментарий", "# Перенесено из 1С:Бухгалтерии 7.7 # Уплачено ФОМС # "); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "РасчетыПоСтраховымВзносам_ДляРегистра"); КонецЕсли; Если (ФСС + ФСС_НС) <> 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков-1); ВходящиеДанные.Установить("ДатаПлатежа", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("МесяцРасчетногоПериода", НачМесяца(Параметры.ДатаВводаОстатков-1)); ВходящиеДанные.Установить("ВидОперации", "УплатаФСС"); ВходящиеДанные.Установить("ВидПлатежа", "Налог"); ВходящиеДанные.Установить("ИмяПКО", ""); ВходящиеДанные.Установить("ПФРНакопительная", 0); ВходящиеДанные.Установить("ПФРСтраховая", 0); ВходящиеДанные.Установить("ТФОМС", 0); ВходящиеДанные.Установить("ФСС", ФСС); ВходящиеДанные.Установить("ФССНесчастныеСлучаи", ФСС_НС); ВходящиеДанные.Установить("ФФОМС", 0); ВходящиеДанные.Установить("Комментарий", "# Перенесено из 1С:Бухгалтерии 7.7 # Уплачено ФСС # "); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "РасчетыПоСтраховымВзносам_ДляРегистра"); КонецЕсли; <Правило Отключить="false"> <Код>тРасчетыСПерсоналом <Наименование>Расчеты с персоналом <Порядок>950 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета заработной платы и расчетов с персоналом (Счета 70, 73) //************************************************************************************************* //******************** Счет 70 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("70")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 73.1 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("73.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 73.2 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("73.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 73.3 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("73.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); ////******************** Счет Н14.01 и Н14.02 ******************* //Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н14.01"); //Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.Сотрудники); //Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 2); //ВыгрузитьОборотыПоСчетуНУ(); //Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н14.02"); //ВыгрузитьОборотыПоСчетуНУ(); <Правило Отключить="false"> <Код>тРасчетыСПодотчетнымиЛицами <Наименование>Расчеты с подотчетными лицами <Порядок>1000 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета расчетов с подотчетными лицами (Счет 71) //************************************************************************************************* //******************** Счет 71.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("71.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 71.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("71.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тРасчетыСУчредителями <Наименование>Расчеты с учредителями <Порядок>1050 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета расчетов с учредителями (Счет 75) //************************************************************************************************* //******************** Счет 75.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("75.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 75.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("75.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 75.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("75.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тРасчетыСПрочимиДебиторамиИКредиторами <Наименование>Расчеты с прочими дебиторами и кредиторами <Порядок>1100 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета расчетов с прочими дебиторами и кредиторами (Счет 76) //************************************************************************************************* //******************** Счет 76.1.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.1.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.1.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.1.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.1.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.1.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.1.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.1.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.11 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.11")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.22 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.22")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.5 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.55 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.55")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 76.6 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.6")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); Сч76_6 = СчетПоКоду("76.6"); СчУЕ_60 = СчетПоКоду("УЕ.60"); СчУЕ_62 = СчетПоКоду("УЕ.62"); Если СчУЕ_62.Выбран() = 1 Тогда Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); ПроводкиНУ = СоздатьОбъект("ТаблицаЗначений"); Проводки.Выгрузить(ПроводкиНУ); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.Опции(1,0); БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты); БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры); БухИт.ВыполнитьЗапрос(, Параметры.ДатаКонцаПериодаВыгрузки, "76.6,УЕ.62"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл БухИт.ВыбратьВалюты(); Пока БухИт.ПолучитьВалюту() = 1 Цикл Если БухИт.ПолучитьСчет(, Сч76_6) = 1 Тогда СуммаВал = БухИт.СКД(2); СуммаРуб = БухИт.СКД(1); Если (БухИт.ПолучитьСчет(, СчУЕ_62) = 1) и (СуммаРуб <> 0) Тогда СуммаВалБезПереоценки = БухИт.СКД(2); Если СуммаВалБезПереоценки = СуммаВал Тогда СуммаРубБезПереоценки = БухИт.СКД(1); Иначе СуммаРубБезПереоценки = ?(СуммаВалБезПереоценки <> 0, СуммаВал * БухИт.СКД(1) / СуммаВалБезПереоценки, 0); КонецЕсли; // Бухгалтерский учет Проводки.НоваяСтрока(); Проводки.СчетДт = СчУЕ_62; Проводки.ВалютаДт = БухИт.Валюта; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = ВидыСубконто.Контрагенты; Проводки.СубконтоДт.Значение = БухИт.Субконто(1); Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = ВидыСубконто.Договоры; Проводки.СубконтоДт.Значение = БухИт.Субконто(2); Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = ПолучитьПустоеЗначение(); Проводки.СубконтоДт.Значение = БухИт.Субконто(2); Проводки.ВалютнаяСуммаДт = СуммаВал; Проводки.Сумма = СуммаРубБезПереоценки; // Налоговый учет Если (СуммаРуб - СуммаРубБезПереоценки) <> 0 Тогда ПроводкиНУ.НоваяСтрока(); ПроводкиНУ.СчетДт = СчУЕ_62; ПроводкиНУ.ВидУчетаДт = "ВР"; ПроводкиНУ.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиНУ.СубконтоДт.НоваяКолонка("Ключ"); ПроводкиНУ.СубконтоДт.НоваяКолонка("Значение"); ПроводкиНУ.СубконтоДт.НоваяСтрока(); ПроводкиНУ.СубконтоДт.Ключ = ВидыСубконто.Контрагенты; ПроводкиНУ.СубконтоДт.Значение = БухИт.Субконто(1); ПроводкиНУ.СубконтоДт.НоваяСтрока(); ПроводкиНУ.СубконтоДт.Ключ = ВидыСубконто.Договоры; ПроводкиНУ.СубконтоДт.Значение = БухИт.Субконто(2); ПроводкиНУ.СубконтоДт.НоваяСтрока(); ПроводкиНУ.СубконтоДт.Ключ = ПолучитьПустоеЗначение(); ПроводкиНУ.СубконтоДт.Значение = БухИт.Субконто(2); ПроводкиНУ.Сумма = СуммаРуб - СуммаРубБезПереоценки; КонецЕсли; КонецЕсли; СуммаВал = БухИт.СКК(2); СуммаРуб = БухИт.СКК(1); Если (БухИт.ПолучитьСчет(, СчУЕ_60) = 1) и (СуммаРуб <> 0) Тогда СуммаВалБезПереоценки = БухИт.СКК(2); Если СуммаВалБезПереоценки = СуммаВал Тогда СуммаРубБезПереоценки = БухИт.СКК(1); Иначе СуммаРубБезПереоценки = ?(СуммаВалБезПереоценки <> 0, СуммаВал * БухИт.СКК(1) / СуммаВалБезПереоценки, 0); КонецЕсли; // Бухгалтерский учет Проводки.НоваяСтрока(); Проводки.СчетКт = СчУЕ_60; Проводки.ВалютаКт = БухИт.Валюта; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = ВидыСубконто.Контрагенты; Проводки.СубконтоКт.Значение = БухИт.Субконто(1); Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = ВидыСубконто.Договоры; Проводки.СубконтоКт.Значение = БухИт.Субконто(2); Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = ПолучитьПустоеЗначение(); Проводки.СубконтоКт.Значение = БухИт.Субконто(2); Проводки.ВалютнаяСуммаКт = СуммаВал; Проводки.Сумма = СуммаРубБезПереоценки; // Налоговый учет Если (СуммаРуб - СуммаРубБезПереоценки) <> 0 Тогда ПроводкиНУ.НоваяСтрока(); ПроводкиНУ.СчетКт = СчУЕ_60; ПроводкиНУ.ВидУчетаКт = "ВР"; ПроводкиНУ.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиНУ.СубконтоКт.НоваяКолонка("Ключ"); ПроводкиНУ.СубконтоКт.НоваяКолонка("Значение"); ПроводкиНУ.СубконтоКт.НоваяСтрока(); ПроводкиНУ.СубконтоКт.Ключ = ВидыСубконто.Контрагенты; ПроводкиНУ.СубконтоКт.Значение = БухИт.Субконто(1); ПроводкиНУ.СубконтоКт.НоваяСтрока(); ПроводкиНУ.СубконтоКт.Ключ = ВидыСубконто.Договоры; ПроводкиНУ.СубконтоКт.Значение = БухИт.Субконто(2); ПроводкиНУ.СубконтоКт.НоваяСтрока(); ПроводкиНУ.СубконтоКт.Ключ = ПолучитьПустоеЗначение(); ПроводкиНУ.СубконтоКт.Значение = БухИт.Субконто(2); ПроводкиНУ.Сумма = СуммаРуб - СуммаРубБезПереоценки; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Счет", "УЕ (задолженность по приобретению и реализации в у.е.)"); ВходящиеДанные.Установить("Дата", Параметры.ДатаКонцаПериодаВыгрузки); //ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); ВходящиеДанные.Установить("Хозрасчетный", ""); ВходящиеДанные.Установить("Налоговый", ПроводкиНУ); //ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; //******************** Счет 76.ЗП ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.ЗП")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тДанныеПоНДСпоАвансам <Наименование>НДС по авансам <Порядок>1150 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//НДС по полученным авансам Параметры.ПараметрыАлгоритмов.Установить("НДСДатаВыгрузки", Параметры.ДатаВводаОстатков-1); ДанныеПоНДСпоАвансамПолученным(); //НДС по выданным авансам Параметры.ПараметрыАлгоритмов.Установить("НДСДатаВыгрузки", Параметры.ДатаВводаОстатков-1); ДанныеПоНДСпоАвансамВыданным(); <Правило Отключить="false"> <Код>тКапитал <Наименование>Капитал и резервы <Порядок>1200 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета капитала и резервов (Счета 80, 81, 82, 83, 84, 86) //************************************************************************************************* //******************** Счет 80 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("80")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 81******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("81")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 82.1****************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("82.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 82.2****************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("82.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 83.1 ***************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("83.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 83.2****************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("83.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 83.3****************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("83.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 84.1****************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("84.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 84.2****************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("84.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 84.3****************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("84.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 84.4***************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("84.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 86***************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("86")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тРБП <Наименование>Расходы будущих периодов <Порядок>1250 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета РБП (Счет 97) //************************************************************************************************* Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 1); Параметры.ТаблицаОстатковНУ.НоваяКолонка("СчетУчетаНУ"); ////******************** Счета НУ по РБП ******************** //Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.03"); //Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); //Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); //Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); //Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); //Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.21"); //Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); //Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); //Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); //Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); //ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.05"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.02"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.06"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.02"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.07"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.02"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.02"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.03"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.04"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.21"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.08"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.21"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовНУ", "Н04.09"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовПР", "НПР.97"); Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", "97"); Параметры.ПараметрыАлгоритмов.Установить("ВидСубконтоНУ", ВидыСубконто.РасходыБудущихПериодов); Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.21"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); ВыгрузитьОстаткиПоСчетуНУ(); //**************** Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.01"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", "97.01"); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); СписокСчетовНУ = "Н04.10"; ПроводкиОбороты = Параметры.ТаблицаПроводокОбороты; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(ВидыСубконто.РасходыБудущихПериодов); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовНУ); НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьНУ = НУ.СНД(1); СтоимостьНУ_ОборотыДт = НУ.ДО(1); СтоимостьНУ_ОборотыКт = НУ.КО(1); // Выгрузка оборотов НУ Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", ПроводкиОбороты); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", НУ.Субконто(1)); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", НУ.Субконто(1)); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ""); // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.01"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьНУ); ДобавитьПроводкуНУ(); КонецЦикла; // НУ.ВыбратьСубконто() ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ПодготовитьТаблицуОстатковНУ(); //********** Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.01"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", "97.01"); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Налоговый"); Параметры.ПараметрыАлгоритмов.Установить("Количественный", 0); Параметры.ПараметрыАлгоритмов.Установить("ДтКт", 1); СписокСчетовНУ = "Н04.11"; ПроводкиОбороты = Параметры.ТаблицаПроводокОбороты; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(ВидыСубконто.РасходыБудущихПериодов); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовНУ); ПроводкиОбороты.УдалитьСтроки(); НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; СтоимостьНУ = НУ.СНД(1); СтоимостьНУ_ОборотыДт = НУ.ДО(1); СтоимостьНУ_ОборотыКт = НУ.КО(1); // Выгрузка оборотов НУ Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", ПроводкиОбороты); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", НУ.Субконто(1)); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", НУ.Субконто(1)); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ""); // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", "97.01"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьНУ); ДобавитьПроводкуНУ(); КонецЦикла; // НУ.ВыбратьСубконто() ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ПодготовитьТаблицуОстатковНУ(); //ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); //******************** Счет 97 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("97")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 75.1 ******************** Параметры.ТаблицаОстатковНУ.УдалитьКолонку("СчетУчетаНУ"); <Правило Отключить="false"> <Код>тОНО_ОНА <Наименование>Отложенные налоговые активы и обязательства <Порядок>1300 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Счета учета отложенных налоговых активов/обязательств //************************************************************************************************* //******************** Счет 09 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("09")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 77 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("77")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тДанныеПоНДСпоПокупателям <Наименование>НДС неполученный от покупателей <Порядок>1350 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Параметры.ПараметрыАлгоритмов.Установить("НДСДатаВыгрузки", Параметры.ДатаВводаОстатков-1); ДанныеПоНДСпоПокупателям(); ////************************************************************************************************* //// Счета учета НДС ////************************************************************************************************* ////******************** Счет 76.Н ******************** //Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.Н.1")); //Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); //Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); //ВыгрузитьОстаткиПоСчету(); //Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("76.Н.2")); //Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); //Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); //ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тФинансовыйРезультат <Наименование>Финансовый результат <Порядок>1400 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************** Счет 94 ******************** СписокСчетовНУ = "Н16"; СписокСчетовПР = "НПР.94"; СписокСчетовБУ = "94"; Параметры.ПараметрыАлгоритмов.Установить("СписокСчетовБУ", СписокСчетовБУ); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 0); Количественный = 0; КодСчетаДт = ""; ДтКт = 1; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовНУ); ПР = СоздатьОбъект("БухгалтерскиеИтоги"); ПР.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовПР); БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СписокСчетовБУ); ИтогиПоСубконто = СоздатьОбъект("ТаблицаЗначений"); ИтогиПоСубконто.НоваяКолонка("Счет"); ИтогиПоСубконто.НоваяКолонка("КодСчета"); ИтогиПоСубконто.НоваяКолонка("Субконто1"); ИтогиПоСубконто.НоваяКолонка("Субконто2"); ИтогиПоСубконто.НоваяКолонка("Субконто3"); ИтогиПоСубконто.НоваяКолонка("СНД1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК1", "Число"); ИтогиПоСубконто.НоваяКолонка("КО1", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНД3", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК3", "Число"); ИтогиПоСубконто.НоваяКолонка("КО3", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО3", "Число"); ВедетсяУчетМПЗвПереработке = Константа.РаздельныйУчетМатериаловСкладПереработка.Получить(НУ.НачДата); СтоимостьНУ = ?(ДтКт = 1, НУ.СНД(1), НУ.СНК(1)); СтоимостьБУ = 0; СтоимостьПР = 0; Если ПР.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда СтоимостьПР = ?(ДтКт = 1, ПР.СНД(1), ПР.СНК(1)); КонецЕсли; Если БУ.ПолучитьПериод(1, НУ.НачДата) = 1 Тогда СтоимостьБУ = ?(ДтКт = 1, БУ.СНД(1), БУ.СНК(1)); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ПорядокСубконтоБУ", "1,2,3"); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ""); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); СтоимостьВР = СтоимостьБУ - СтоимостьНУ - СтоимостьПР; // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Если ДтКт = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Иначе Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", НУ.Счет); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьНУ); ДобавитьПроводкуНУ(); // Поддержка ПБУ 18 Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьПР); ДобавитьПроводкуНУ(); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР); ДобавитьПроводкуНУ(); КонецЕсли; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ПодготовитьТаблицуОстатковНУ(); //******************** Счет 94 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("94")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); //******************** Счет 96 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("96")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 98.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("98.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 98.2.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("98.2.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 98.2.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("98.2.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 98.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("98.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 98.4 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("98.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 99.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("99.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 99.2.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("99.2.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 99.2.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("99.2.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 99.2.3 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("99.2.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //**************************************** //Счета БУ по которым выгружаются только обороты - 90 и 91 //**************************************** //******************** Счет 90.1.1 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.1.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.1.2 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.1.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.2.1 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.2.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.2.2 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.2.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.3 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.3")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.4 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.4")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.5 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.5")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.7.1 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.7.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.7.2 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.7.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.8.1 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.8.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.8.2 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.8.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 90.9 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("90.9")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 91.1 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("91.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 91.2 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("91.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); //******************** Счет 91.9 ******************* Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("91.9")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 1); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>тЗабалансовыеСчета <Наименование>Забалансовые счета <Порядок>1450 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//************************************************************************************************* // Забалансовые счета //************************************************************************************************* //******************** Счет 001 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("001")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 002.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("002.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 002.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("002.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 003 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("003")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 005 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("005")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 006 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("006")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 007 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("007")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 008 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("008")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 009 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("009")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет 011 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("011")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет ГТД ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("ГТД")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //Эти счета выгружаются в Операцию //******************** Счет РВ.1 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("РВ.1")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет РВ.2 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("РВ.2")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); //******************** Счет МЦ.04 ******************** Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", СчетПоКоду("МЦ.04")); Параметры.ПараметрыАлгоритмов.Установить("Регистр", "Хозрасчетный"); Параметры.ПараметрыАлгоритмов.Установить("ТолькоОбороты", 0); ВыгрузитьОстаткиПоСчету(); <Правило Отключить="false"> <Код>КадровыеДанные <Наименование>Кадровые данные <Порядок>1550 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>ВыгрузитьПоПравилу(,,,, "Работники"); <Группа Отключить="false"> <Код>Документы <Наименование>Документы <Порядок>150 <Правило Отключить="false"> <Код>РасходнаяНакладная <Наименование>Отгрузка товаров, продукции <Порядок>50 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РасходнаяНакладная <ПередВыгрузкойОбъекта>Если (Объект.ВидОтгрузки = 1) или (Объект.ВидОтгрузки = 11) или (Объект.ВидОтгрузки = 2) или (Объект.ВидОтгрузки = 12)Тогда ИмяПКО = "РасходнаяНакладная_Продажа"; Иначе ИмяПКО = "РасходнаяНакладная_Возврат"; КонецЕсли; <Правило Отключить="false"> <Код>РеализацияОтгруженнойПродукции <Наименование>Реализация отгруженной продукции <Порядок>100 <КодПравилаКонвертации>РеализацияОтгруженнойПродукции <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияОтгруженнойПродукции <Правило Отключить="false"> <Код>ОказаниеУслуг <Наименование>Оказание услуг <Порядок>150 <КодПравилаКонвертации>ОказаниеУслуг_Продажа <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОказаниеУслуг <ПередВыгрузкойОбъекта>Если (Объект.ТипУслуги = 1) или (Объект.ТипУслуги = 3) Тогда ИмяПКО = "ОказаниеУслуг_Продажа"; Иначе ИмяПКО = "ОказаниеУслуг_Комитент"; КонецЕсли; <Правило Отключить="false"> <Код>Счет <Наименование>Счет <Порядок>200 <КодПравилаКонвертации>СчетНаОплатуПокупателю <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Счет <Правило Отключить="false"> <Код>УслугиСтороннихОрганизаций <Наименование>Услуги сторонних организаций (пост.услуг, доп.расходы) <Порядок>250 <КодПравилаКонвертации>УслугиСтороннихОрганизаций_ПТУ <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.УслугиСтороннихОрганизаций <ПередВыгрузкойОбъекта>Если Объект.ДокументПоступления.Выбран() = 0 Тогда ИмяПКО = "УслугиСтороннихОрганизаций_ПТУ"; ИначеЕсли Объект.ДокументПоступления.Вид()="ПоступлениеНМА" Тогда ИмяПКО = "УслугиСтороннихОрганизаций_ДопРасходы_НМА"; Иначе ИмяПКО = "УслугиСтороннихОрганизаций_ДопРасходы"; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеТоваров <Наименование>Поступление товаров <Порядок>300 <КодПравилаКонвертации>ПоступлениеТоваров_ПТУ <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТоваров <ПередВыгрузкойОбъекта>Если (Объект.ВидПоступления = 1) или (Объект.ВидПоступления = 2) или (Объект.ВидПоступления = 11) Тогда ИмяПКО = "ПоступлениеТоваров_ПТУ"; Иначе ИмяПКО = "ПоступлениеТоваров_Возврат"; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеМатериалов <Наименование>Поступление материалов (от поставщика, из переработки) <Порядок>350 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеМатериалов <ПередВыгрузкойОбъекта>Если Объект.ВидПоступления = 0 Тогда ИмяПКО = "ПоступлениеМатериалов_ПТУ"; Иначе ИмяПКО = "ПоступлениеМатериалов_ИзПереработки"; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеОборудования <Наименование>Поступление оборудования <Порядок>400 <КодПравилаКонвертации>ПоступлениеОборудования <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеОборудования <Правило Отключить="false"> <Код>ПоступлениеОС <Наименование>Поступление ОС <Порядок>450 <КодПравилаКонвертации>ПоступлениеОС <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеОС <Правило Отключить="false"> <Код>ПередачаОборудованияВМонтаж <Наименование>Передача оборудования в монтаж <Порядок>500 <КодПравилаКонвертации>ПередачаОборудованияВМонтаж <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПередачаОборудованияВМонтаж <Правило Отключить="false"> <Код>ВводВЭксплуатациюОС <Наименование>Ввод в эксплуатацию ОС <Порядок>550 <КодПравилаКонвертации>ВводВЭксплуатациюОС <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВводВЭксплуатациюОС <Правило Отключить="false"> <Код>МодернизацияОС <Наименование>Модернизация ОС <Порядок>600 <КодПравилаКонвертации>МодернизацияОС <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.МодернизацияОС <Правило Отключить="false"> <Код>ПодготовкаКПередачеОС <Наименование>Подготовка к передаче ОС <Порядок>650 <КодПравилаКонвертации>ПодготовкаКПередачеОС <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПодготовкаКПередачеОС <Правило Отключить="false"> <Код>ПередачаОС <Наименование>Передача ОС <Порядок>700 <КодПравилаКонвертации>ПередачаОС_Продажа <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПередачаОС <ПередВыгрузкойОбъекта>Если Объект.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.Продажа Тогда ИмяПКО = "ПередачаОС_Продажа"; Иначе ИмяПКО = "ПередачаОС_Списание"; КонецЕсли; <Правило Отключить="false"> <Код>СписаниеОС <Наименование>Списание ОС <Порядок>750 <КодПравилаКонвертации>СписаниеОС <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СписаниеОС <Правило Отключить="false"> <Код>ПеремещениеОС <Наименование>Перемещение ОС <Порядок>800 <КодПравилаКонвертации>ПеремещениеОС <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеремещениеОС <Правило Отключить="false"> <Код>Доверенность <Наименование>Доверенность <Порядок>850 <КодПравилаКонвертации>Доверенность <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Доверенность <Правило Отключить="false"> <Код>АвансовыйОтчет <Наименование>Авансовый отчет <Порядок>900 <КодПравилаКонвертации>АвансовыйОтчет <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.АвансовыйОтчет <Правило Отключить="false"> <Код>ОтпускМатериаловНаСторону <Наименование>Отгрузка материалов (продажа, передача в переработку, возврат) <Порядок>950 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтпускМатериаловНаСторону <ПередВыгрузкойОбъекта>Если Объект.ВидОтпуска = 0 Тогда ИмяПКО = "ОтпускМатериаловНаСторону_Продажа"; ИначеЕсли Объект.ВидОтпуска = 1 Тогда ИмяПКО = "ОтпускМатериаловНаСторону_ВПереработку"; Иначе ИмяПКО = "ОтпускМатериаловНаСторону_Возврат"; КонецЕсли; <Правило Отключить="false"> <Код>СчетФактураПолученный <Наименование>СчетФактураПолученный <Порядок>1000 <КодПравилаКонвертации>СчетФактураПолученный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураПолученный <Правило Отключить="false"> <Код>Взаимозачет <Наименование>Корректировка задолженности <Порядок>1050 <КодПравилаКонвертации>Взаимозачет <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Взаимозачет <Правило Отключить="false"> <Код>ЗачетАвансаПокупателя <Наименование>Зачет аванса от покупателя <Порядок>1100 <КодПравилаКонвертации>ЗачетАвансаПокупателя <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ЗачетАвансаПокупателя <Правило Отключить="false"> <Код>ЗачетАвансаПоставщику <Наименование>Зачет аванса поставщику <Порядок>1150 <КодПравилаКонвертации>ЗачетАвансаПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ЗачетАвансаПоставщику <Правило Отключить="false"> <Код>РасходныйОрдер <Наименование>Расходный кассовый ордер <Порядок>1200 <КодПравилаКонвертации>РасходныйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РасходныйОрдер <Правило Отключить="false"> <Код>ПриходныйОрдер <Наименование>Приходный кассовый ордер <Порядок>1250 <КодПравилаКонвертации>ПриходныйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриходныйОрдер <Правило Отключить="false"> <Код>ПлатежноеПоручение <Наименование>Платежное поручение <Порядок>1300 <КодПравилаКонвертации>ПлатежноеПоручение <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПлатежноеПоручение <Правило Отключить="false"> <Код>ПлатежноеТребование <Наименование>Платежное требование <Порядок>1350 <КодПравилаКонвертации>ПлатежноеТребование <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПлатежноеТребование <Правило Отключить="false"> <Код>Выписка <Наименование>Выписка <Порядок>1400 <КодПравилаКонвертации>Выписка_Списание <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Выписка <ПередВыгрузкойОбъекта>ВыгрузитьПоПравилу(Объект ,,,,"Выписка_Списание"); ВыгрузитьПоПравилу(Объект ,,,,"Выписка_Поступление"); Отказ = 1; <Правило Отключить="false"> <Код>ПродажаВРозницу <Наименование>Продажа в розницу <Порядок>1450 <КодПравилаКонвертации>ПродажаВРозницу <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПродажаВРозницу <Правило Отключить="false"> <Код>ИнвентаризацияТМЦ <Наименование>Инвентаризация ТМЦ (оптовый и розничный склад, ОС) <Порядок>1500 <КодПравилаКонвертации>ИнвентаризацияТМЦ_ТМЦ <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИнвентаризацияТМЦ <ПередВыгрузкойОбъекта>Если (Объект.ВидТМЦ=1) или (Объект.ВидТМЦ=3) Тогда ИмяПКО = "ИнвентаризацияТМЦ_ТМЦ"; Иначе ИмяПКО = "ИнвентаризацияТМЦ_ОС"; КонецЕсли; <Правило Отключить="false"> <Код>СчетФактура <Наименование>Счет-фактура (выданный) <Порядок>1550 <КодПравилаКонвертации>СчетФактура <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактура <Правило Отключить="false"> <Код>НачислениеЗП <Наименование>Начисление зарплаты <Порядок>1600 <КодПравилаКонвертации>НачислениеЗП_13 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.НачислениеЗП <ПередВыгрузкойОбъекта>НДФЛ_13 = глПолучитьНалог("НДФЛ"); Ставка13 = НДФЛ_13.Ставка.Получить(КонМесяца(Объект.ДатаДок)); СтавкаНДФЛ = глСтавкаНДФЛ(Объект.ВидНачисления, , КонМесяца(Объект.ДатаДок)); Если СтавкаНДФЛ = Ставка13 Тогда ИмяПКО = "НачислениеЗП_13"; Иначе ИмяПКО = "НачислениеЗП_Прочее"; КонецЕсли; <Правило Отключить="false"> <Код>ВыплатаЗПКасса <Наименование>Выплата зарплаты <Порядок>1650 <КодПравилаКонвертации>ВыплатаЗПКасса <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВыплатаЗПКасса <Правило Отключить="false"> <Код>ПриказОПриемеНаРаботу <Наименование>Приказ о приеме на работу <Порядок>1700 <КодПравилаКонвертации>ПриказОПриемеНаРаботу <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриказОПриемеНаРаботу <Правило Отключить="false"> <Код>ПриказОбИзмененииОкладов <Наименование>Приказ об изменении окладов <Порядок>1750 <КодПравилаКонвертации>ПриказОбИзмененииОкладов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриказОбИзмененииОкладов <Правило Отключить="false"> <Код>ПриказОКадровыхИзменениях <Наименование>Приказ о кадровых изменениях <Порядок>1800 <КодПравилаКонвертации>ПриказОКадровыхИзменениях <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриказОКадровыхИзменениях <Правило Отключить="false"> <Код>ПриказОбУвольнении <Наименование>Приказ об увольнении <Порядок>1850 <КодПравилаКонвертации>ПриказОбУвольнении <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриказОбУвольнении <Правило Отключить="false"> <Код>РасчетыПоСтраховымВзносам <Наименование>Расчеты по страховым взносам <Порядок>2000 <КодПравилаКонвертации>РасчетыПоСтраховымВзносам <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РасчетыПоСтраховымВзносам <ПередВыгрузкойОбъекта>Если (Объект.ПФРНакопительная+Объект.ПФРСтраховая)<>0 Тогда ВходящиеДанныеДокумента = СоздатьОбъект("СписокЗначений"); ВходящиеДанныеДокумента.Установить("ВидОперации","УплатаПФР"); ВыгрузитьПоПравилу(Объект.ТекущийДокумент(),,ВходящиеДанныеДокумента,,"РасчетыПоСтраховымВзносам"); КонецЕсли; Если (Объект.ТФОМС+Объект.ФФОМС)<>0 Тогда ВходящиеДанныеДокумента = СоздатьОбъект("СписокЗначений"); ВходящиеДанныеДокумента.Установить("ВидОперации","УплатаФОМС"); ВыгрузитьПоПравилу(Объект.ТекущийДокумент(),,ВходящиеДанныеДокумента,,"РасчетыПоСтраховымВзносам"); КонецЕсли; Если (Объект.ФСС)<>0 Тогда ВходящиеДанныеДокумента = СоздатьОбъект("СписокЗначений"); ВходящиеДанныеДокумента.Установить("ВидОперации","УплатаФСС"); ВыгрузитьПоПравилу(Объект.ТекущийДокумент(),,ВходящиеДанныеДокумента,,"РасчетыПоСтраховымВзносам"); КонецЕсли; Отказ = 1; <Правило Отключить="false"> <Код>ПеречислениеНДФЛвБюджет <Наименование>Перечисление НДФЛ в бюджет РФ <Порядок>2050 <КодПравилаКонвертации>ПеречислениеНДФЛвБюджет <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеречислениеНДФЛвБюджет <Правило Отключить="false"> <Код>ГотоваяПродукция <Наименование>Передача готовой продукции на склад <Порядок>2100 <КодПравилаКонвертации>ГотоваяПродукция <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ГотоваяПродукция <Правило Отключить="false"> <Код>НезавершенноеПроизводство <Наименование>Незавершенное производство <Порядок>2150 <КодПравилаКонвертации>НезавершенноеПроизводство <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.НезавершенноеПроизводство <ПередВыгрузкойОбъекта>Подразделения = СоздатьОбъект("ТаблицаЗначений"); Объект.ВыгрузитьТабличнуюЧасть(Подразделения,"Подразделение"); Подразделения.Свернуть("Подразделение",""); Подразделения.ВыбратьСтроки(); Пока Подразделения.ПолучитьСтроку()=1 Цикл ВходящиеДанныеДокумента = СоздатьОбъект("СписокЗначений"); ВходящиеДанныеДокумента.Установить("ПодразделениеОрганизации",Подразделения.Подразделение); ВыгрузитьПоПравилу(Объект.ТекущийДокумент(),,ВходящиеДанныеДокумента,,"НезавершенноеПроизводство"); КонецЦикла; Отказ = 1; <Правило Отключить="false"> <Код>ПередачаМатериаловСпецназначенияВПроизводство <Наименование>Передача материалов в эксплуатацию <Порядок>2200 <КодПравилаКонвертации>ПередачаМатериаловСпецназначенияВПроизводство <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПередачаМатериаловСпецназначенияВПроизводство <Правило Отключить="false"> <Код>СписаниеСпецодеждыСпецоснастки <Наименование>Списание материалов в эксплуатации <Порядок>2250 <КодПравилаКонвертации>СписаниеМатериаловИзЭксплуатации <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СписаниеСпецодеждыСпецоснастки <Правило Отключить="false"> <Код>ТребованиеНакладная <Наименование>Перемещение материалов, товаров <Порядок>2300 <КодПравилаКонвертации>ТребованиеНакладная_Производство <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ТребованиеНакладная <ПередВыгрузкойОбъекта>Если Объект.ВидПеремещения <> 1 Тогда ИмяПКО = "ТребованиеНакладная_Производство"; Иначе ИмяПКО = "ТребованиеНакладная_Перемещение"; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеНМА <Наименование>Поступление НМА <Порядок>2350 <КодПравилаКонвертации>ПоступлениеНМА <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеНМА <Правило Отключить="false"> <Код>ПринятиеКУчетуНМА <Наименование>Принятие к учету НМА и результатов НИОКР <Порядок>2400 <КодПравилаКонвертации>ПринятиеКУчетуНМА <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПринятиеКУчетуНМА <Правило Отключить="false"> <Код>ПередачаНМА <Наименование>Передача НМА <Порядок>2450 <КодПравилаКонвертации>ПередачаНМА <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПередачаНМА <Правило Отключить="false"> <Код>ПрекращениеСрокаДействияНМА <Наименование>Прекращение срока действия НМА и использования НИОКР <Порядок>2500 <КодПравилаКонвертации>ПрекращениеСрокаДействияНМА <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПрекращениеСрокаДействияНМА <Правило Отключить="false"> <Код>ПеремещениеТоваров <Наименование>Перемещение товаров <Порядок>2550 <КодПравилаКонвертации>ПеремещениеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеремещениеТоваров <Правило Отключить="false"> <Код>ВыполнениеЭтапаРабот <Наименование>Выполнение этапа работ <Порядок>2600 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВыполнениеЭтапаРабот <ПередВыгрузкойОбъекта>СчН06_01 = СчетПоКоду("Н06.01"); Сч46 = СчетПоКоду("46"); Сч90_1_1 = СчетПоКоду("90.1.1"); СчН08 = СчетПоКоду("Н08"); Параметры.ПараметрыАлгоритмов.Установить("Документ", Объект.ТекущийДокумент()); ПолучитьСчетаРасчетовСКонтрагентамиПродажа(); СчетРасчетовСПокупателем = Параметры.ПараметрыАлгоритмов.Получить("СчетаРасчетовСКонтрагентамиПродажа").Получить("СчетРасчетовСПокупателем"); БезДоговора = глДоговор(глИмяДоговораДляПлатежейБезДоговора, Объект.Контрагент); //выполненные неоплаченные работы Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Операция = Объект.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если Операция.Кредит.Счет = СчН06_01 Тогда //начисление прибыли в налоговом учете Проводки.НоваяСтрока(); Проводки.СчетДт = Сч46; Проводки.СчетКт = Сч90_1_1; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = ВидыСубконто.ВидыНоменклатуры; Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(1).ВидНоменклатуры; Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = ВидыСубконто.СтавкиНДС; Проводки.СубконтоКт.Значение = глСтавкаНалога(Объект.ТекущийДокумент(), "НДС", Операция.Кредит.Субконто(1)); Проводки.ВалютаДт = Операция.Валюта; Проводки.ВалютаКт = Операция.Валюта; Проводки.Сумма = 0; Проводки.СуммаВРДт = -Операция.Сумма; Проводки.СуммаВРКт = -Операция.Сумма; Проводки.СуммаНУДт = Операция.Сумма; Проводки.СуммаНУКт = Операция.Сумма; Проводки.Содержание = Операция.СодержаниеПроводки; Иначе Если ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Дебет.Счет)>0) или (ПустоеЗначение(Операция.Дебет.Счет)=1)) и ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Кредит.Счет)>0) или (ПустоеЗначение(Операция.Кредит.Счет)=1)) Тогда Продолжить; КонецЕсли; Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Если Проводки.СубконтоДт.Ключ=ВидыСубконто.Договоры Тогда Если Операция.Дебет.Субконто(НомерСубконто) = БезДоговора Тогда Проводки.СубконтоДт.Значение = Объект.Договор; Иначе Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЕсли; Иначе Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЕсли; КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.ВалютаДт = Операция.Валюта; Проводки.ВалютаКт = Операция.Валюта; Проводки.ВалютнаяСуммаДт = Операция.ВалСумма; Проводки.ВалютнаяСуммаКт = Операция.ВалСумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЕсли; КонецЦикла; Если Проводки.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Содержание", "Проводки документа "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Отказ = 1; <Правило Отключить="false"> <Код>ОплатаЭтапаРабот <Наименование>Оплата этапа работ <Порядок>2650 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОплатаЭтапаРабот <ПередВыгрузкойОбъекта>//выполненные неоплаченные работы Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Операция = Объект.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Дебет.Счет)>0) или (ПустоеЗначение(Операция.Дебет.Счет)=1)) и ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Кредит.Счет)>0) или (ПустоеЗначение(Операция.Кредит.Счет)=1)) Тогда Продолжить; КонецЕсли; Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.ВалютаДт = Операция.Валюта; Проводки.ВалютаКт = Операция.Валюта; Проводки.ВалютнаяСуммаДт = Операция.ВалСумма; Проводки.ВалютнаяСуммаКт = Операция.ВалСумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЦикла; Если Проводки.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Содержание", "Проводки документа "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Отказ = 1; <Правило Отключить="false"> <Код>ЗавершениеРабот <Наименование>Завершение работ <Порядок>2700 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ЗавершениеРабот <ПередВыгрузкойОбъекта>//выполненные неоплаченные работы БезДоговора = глДоговор(глИмяДоговораДляПлатежейБезДоговора, Объект.Контрагент); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Операция = Объект.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Дебет.Счет)>0) или (ПустоеЗначение(Операция.Дебет.Счет)=1)) и ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Кредит.Счет)>0) или (ПустоеЗначение(Операция.Кредит.Счет)=1)) Тогда Продолжить; КонецЕсли; Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Если Проводки.СубконтоДт.Ключ=ВидыСубконто.Договоры Тогда Если Операция.Дебет.Субконто(НомерСубконто) = БезДоговора Тогда Проводки.СубконтоДт.Значение = Операция.Кредит.Субконто(ВидыСубконто.Договоры); Иначе Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЕсли; Иначе Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЕсли; КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.ВалютаДт = Операция.Валюта; Проводки.ВалютаКт = Операция.Валюта; Проводки.ВалютнаяСуммаДт = Операция.ВалСумма; Проводки.ВалютнаяСуммаКт = Операция.ВалСумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЦикла; Если Проводки.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Содержание", "Проводки документа "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Отказ = 1; <Правило Отключить="false"> <Код>БухгалтерскаяСправка <Наименование>БухгалтерскаяСправка <Порядок>2750 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.БухгалтерскаяСправка <ПередВыгрузкойОбъекта> ПроводкиБУ = Параметры.ТаблицаПроводок; ПроводкиБУ.УдалитьСтроки(); ПроводкиНУ = СоздатьОбъект("ТаблицаЗначений"); ПроводкиБУ.Выгрузить(ПроводкиНУ); Операция = Объект.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Дебет.Счет)>0) или (ПустоеЗначение(Операция.Дебет.Счет)=1)) и ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Кредит.Счет)>0) или (ПустоеЗначение(Операция.Кредит.Счет)=1)) Тогда Продолжить; КонецЕсли; Если (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Дебет.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Дебет.Счет)>0) Тогда ПроводкиДт = ПроводкиНУ; Дт_НУ = 1; Иначе ПроводкиДт = ПроводкиБУ; Дт_НУ = 0; КонецЕсли; Если (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Кредит.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Кредит.Счет)>0) Тогда ПроводкиКт = ПроводкиНУ; Кт_НУ = 1; Иначе ПроводкиКт = ПроводкиБУ; Кт_НУ = 0; КонецЕсли; ПроводкиДт.НоваяСтрока(); ПроводкиДт.СчетДт = Операция.Дебет.Счет; ПроводкиДт.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиДт.СубконтоДт.НоваяКолонка("Ключ"); ПроводкиДт.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ПроводкиДт.СчетДт.КоличествоСубконто() Цикл ПроводкиДт.СубконтоДт.НоваяСтрока(); ПроводкиДт.СубконтоДт.Ключ = ПроводкиДт.СчетДт.ВидСубконто(НомерСубконто); ПроводкиДт.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Если Дт_НУ <> Кт_НУ Тогда ПроводкиКт.НоваяСтрока(); КонецЕсли; ПроводкиКт.СчетКт = Операция.Кредит.Счет; ПроводкиКт.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиКт.СубконтоКт.НоваяКолонка("Ключ"); ПроводкиКт.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ПроводкиКт.СчетКт.КоличествоСубконто() Цикл ПроводкиКт.СубконтоКт.НоваяСтрока(); ПроводкиКт.СубконтоКт.Ключ = ПроводкиКт.СчетКт.ВидСубконто(НомерСубконто); ПроводкиКт.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; ПроводкиДт.Сумма = Операция.Сумма; ПроводкиКт.Сумма = Операция.Сумма; ПроводкиДт.ВалютаДт = Операция.Валюта; ПроводкиКт.ВалютаКт = Операция.Валюта; ПроводкиДт.ВалютнаяСуммаДт = Операция.ВалСумма; ПроводкиКт.ВалютнаяСуммаКт = Операция.ВалСумма; ПроводкиДт.КоличествоДт = Операция.Количество; ПроводкиКт.КоличествоКт = Операция.Количество; ПроводкиДт.Содержание = Операция.СодержаниеПроводки; ПроводкиКт.Содержание = Операция.СодержаниеПроводки; КонецЦикла; Если ПроводкиБУ.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", ПроводкиБУ); ВходящиеДанные.Установить("Содержание", "Проводки документа (бухгалтерский учет) "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Если ПроводкиНУ.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", ПроводкиНУ); ВходящиеДанные.Установить("Содержание", "Проводки документа (налоговый учет) "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Отказ = 1; <Правило Отключить="false"> <Код>ОперацииБух <Наименование>Операции <Порядок>2800 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Операция = СоздатьОбъект("Операция"); Операция.ВыбратьОперации(Параметры.ДатаВводаОстатков, Параметры.ДатаКонцаПериодаВыгрузки); Пока Операция.ПолучитьОперацию()=1 Цикл Если Операция.Документ.Вид() <> "Операция" Тогда Продолжить; КонецЕсли; //выполненные неоплаченные работы ПроводкиБУ = Параметры.ТаблицаПроводок; ПроводкиБУ.УдалитьСтроки(); ПроводкиНУ = СоздатьОбъект("ТаблицаЗначений"); ПроводкиБУ.Выгрузить(ПроводкиНУ); Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Дебет.Счет)>0) или (ПустоеЗначение(Операция.Дебет.Счет)=1)) и ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Кредит.Счет)>0) или (ПустоеЗначение(Операция.Кредит.Счет)=1)) Тогда Продолжить; КонецЕсли; Если (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Дебет.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Дебет.Счет)>0) Тогда ПроводкиДт = ПроводкиНУ; Дт_НУ = 1; Иначе ПроводкиДт = ПроводкиБУ; Дт_НУ = 0; КонецЕсли; Если (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Кредит.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Кредит.Счет)>0) Тогда ПроводкиКт = ПроводкиНУ; Кт_НУ = 1; Иначе ПроводкиКт = ПроводкиБУ; Кт_НУ = 0; КонецЕсли; ПроводкиДт.НоваяСтрока(); ПроводкиДт.СчетДт = Операция.Дебет.Счет; ПроводкиДт.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиДт.СубконтоДт.НоваяКолонка("Ключ"); ПроводкиДт.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ПроводкиДт.СчетДт.КоличествоСубконто() Цикл ПроводкиДт.СубконтоДт.НоваяСтрока(); ПроводкиДт.СубконтоДт.Ключ = ПроводкиДт.СчетДт.ВидСубконто(НомерСубконто); ПроводкиДт.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Если Дт_НУ <> Кт_НУ Тогда ПроводкиКт.НоваяСтрока(); КонецЕсли; ПроводкиКт.СчетКт = Операция.Кредит.Счет; ПроводкиКт.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиКт.СубконтоКт.НоваяКолонка("Ключ"); ПроводкиКт.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ПроводкиКт.СчетКт.КоличествоСубконто() Цикл ПроводкиКт.СубконтоКт.НоваяСтрока(); ПроводкиКт.СубконтоКт.Ключ = ПроводкиКт.СчетКт.ВидСубконто(НомерСубконто); ПроводкиКт.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; ПроводкиДт.Сумма = Операция.Сумма; ПроводкиКт.Сумма = Операция.Сумма; ПроводкиДт.ВалютаДт = Операция.Валюта; ПроводкиКт.ВалютаКт = Операция.Валюта; ПроводкиДт.ВалютнаяСуммаДт = Операция.ВалСумма; ПроводкиКт.ВалютнаяСуммаКт = Операция.ВалСумма; ПроводкиДт.КоличествоДт = Операция.Количество; ПроводкиКт.КоличествоКт = Операция.Количество; ПроводкиДт.Содержание = Операция.СодержаниеПроводки; ПроводкиКт.Содержание = Операция.СодержаниеПроводки; КонецЦикла; Если ПроводкиБУ.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", ПроводкиБУ); ВходящиеДанные.Установить("Активность", ?(Операция.ПометкаУдаления()=1,-1,1)); ВходящиеДанные.Установить("Содержание", "Операция №"+Операция.Документ.НомерДок+" от "+Операция.ДатаОперации+" (бухгалтерский учет)"); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Операция.ДатаОперации,Операция.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Если ПроводкиНУ.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", ПроводкиНУ); ВходящиеДанные.Установить("Активность", ?(Операция.ПометкаУдаления()=1,-1,1)); ВходящиеДанные.Установить("Содержание", "Операция №"+Операция.Документ.НомерДок+" от "+Операция.ДатаОперации+" (налоговый учет)"); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Операция.ДатаОперации,Операция.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>НачислениеШтрафныхСанкций <Наименование>Начисление штрафных санкций <Порядок>2850 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.НачислениеШтрафныхСанкций <ПередВыгрузкойОбъекта>//выполненные неоплаченные работы Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Операция = Объект.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Дебет.Счет)>0) или (ПустоеЗначение(Операция.Дебет.Счет)=1)) и ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Кредит.Счет)>0) или (ПустоеЗначение(Операция.Кредит.Счет)=1)) Тогда Продолжить; КонецЕсли; Если (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Дебет.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Дебет.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Кредит.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Кредит.Счет)>0) Тогда //мы не будем здесь переносить проводки по налоговому учету, так как суммы в бухгалтерском //и налоговом учете в данном случае всегда совпдают. Поэтому добавим сумму по ну в проводку бух.учета Продолжить; КонецЕсли; Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.СуммаНУДт = Операция.Сумма; Проводки.СуммаНУКт = Операция.Сумма; Проводки.ВалютаДт = Операция.Валюта; Проводки.ВалютаКт = Операция.Валюта; Проводки.ВалютнаяСуммаДт = Операция.ВалСумма; Проводки.ВалютнаяСуммаКт = Операция.ВалСумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЦикла; Если Проводки.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Содержание", "Проводки документа "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Отказ = 1; <Правило Отключить="false"> <Код>Сторно <Наименование>Сторно <Порядок>2900 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Сторно <ПередВыгрузкойОбъекта> ПроводкиБУ = Параметры.ТаблицаПроводок; ПроводкиБУ.УдалитьСтроки(); ПроводкиНУ = СоздатьОбъект("ТаблицаЗначений"); ПроводкиБУ.Выгрузить(ПроводкиНУ); Операция = Объект.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Дебет.Счет)>0) или (ПустоеЗначение(Операция.Дебет.Счет)=1)) и ((Параметры.СписокНеПереносящихсяСчетов.НайтиЗначение(Операция.Кредит.Счет)>0) или (ПустоеЗначение(Операция.Кредит.Счет)=1)) Тогда Продолжить; КонецЕсли; Если (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Дебет.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Дебет.Счет)>0) Тогда ПроводкиДт = ПроводкиНУ; Дт_НУ = 1; Иначе ПроводкиДт = ПроводкиБУ; Дт_НУ = 0; КонецЕсли; Если (Параметры.СписокСчетовНалоговогоУчетаНУ.НайтиЗначение(Операция.Кредит.Счет)>0) или (Параметры.СписокСчетовНалоговогоУчетаПР.НайтиЗначение(Операция.Кредит.Счет)>0) Тогда ПроводкиКт = ПроводкиНУ; Кт_НУ = 1; Иначе ПроводкиКт = ПроводкиБУ; Кт_НУ = 0; КонецЕсли; ПроводкиДт.НоваяСтрока(); ПроводкиДт.СчетДт = Операция.Дебет.Счет; ПроводкиДт.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиДт.СубконтоДт.НоваяКолонка("Ключ"); ПроводкиДт.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ПроводкиДт.СчетДт.КоличествоСубконто() Цикл ПроводкиДт.СубконтоДт.НоваяСтрока(); ПроводкиДт.СубконтоДт.Ключ = ПроводкиДт.СчетДт.ВидСубконто(НомерСубконто); ПроводкиДт.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Если Дт_НУ <> Кт_НУ Тогда ПроводкиКт.НоваяСтрока(); КонецЕсли; ПроводкиКт.СчетКт = Операция.Кредит.Счет; ПроводкиКт.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); ПроводкиКт.СубконтоКт.НоваяКолонка("Ключ"); ПроводкиКт.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ПроводкиКт.СчетКт.КоличествоСубконто() Цикл ПроводкиКт.СубконтоКт.НоваяСтрока(); ПроводкиКт.СубконтоКт.Ключ = ПроводкиКт.СчетКт.ВидСубконто(НомерСубконто); ПроводкиКт.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; ПроводкиДт.Сумма = Операция.Сумма; ПроводкиКт.Сумма = Операция.Сумма; ПроводкиДт.ВалютаДт = Операция.Валюта; ПроводкиКт.ВалютаКт = Операция.Валюта; ПроводкиДт.ВалютнаяСуммаДт = Операция.ВалСумма; ПроводкиКт.ВалютнаяСуммаКт = Операция.ВалСумма; ПроводкиДт.КоличествоДт = Операция.Количество; ПроводкиКт.КоличествоКт = Операция.Количество; ПроводкиДт.Содержание = Операция.СодержаниеПроводки; ПроводкиКт.Содержание = Операция.СодержаниеПроводки; КонецЦикла; Если ПроводкиБУ.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", ПроводкиБУ); ВходящиеДанные.Установить("Содержание", "Проводки документа (бухгалтерский учет) "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Если ПроводкиНУ.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", ПроводкиНУ); ВходящиеДанные.Установить("Содержание", "Проводки документа (налоговый учет) "+строка(Объект)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Объект.ДатаДок,Объект.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; Отказ = 1; <Правило Отключить="false"> <Код>КорректировочныйСчетФактура <Наименование>Корректировочный счет-фактура <Порядок>2950 <КодПравилаКонвертации>КорректировочныйСчетФактура <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.КорректировочныйСчетФактура <Правило Отключить="false"> <Код>КорректировочныйСчетФактураПолученный <Наименование>Корректировочный счет-фактура (полученный) <Порядок>3000 <КодПравилаКонвертации>КорректировочныйСчетФактураПолученный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.КорректировочныйСчетФактураПолученный <Правило Отключить="false"> <Код>ИсправлениеСчетаФактуры <Наименование>Исправление счета-фактура выданного <Порядок>3050 <КодПравилаКонвертации>ИсправлениеСчетаФактуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИсправлениеСчетаФактуры <Правило Отключить="false"> <Код>ИсправлениеСчетаФактурыПолученного <Наименование>Исправление счета-фактуры полученного <Порядок>3100 <КодПравилаКонвертации>ИсправлениеСчетаФактурыПолученного <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИсправлениеСчетаФактурыПолученного <Группа Отключить="false"> <Код>ДополнительныеДанные <Наименование>Дополнительные данные <Порядок>200 <Правило Отключить="false"> <Код>ВыгрузкаИзмененийФактОбъемаПродукцииОС <Наименование>Фактический объем продукции ОС <Порядок>50 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>ТаблицаИзмененийДат = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзмененийДат.НоваяКолонка("ОсновноеСредство"); ТаблицаИзмененийДат.НоваяКолонка("Дата"); //******************************************************************** //фактический объем продукции, работ за месяц Периодический = СоздатьОбъект("Периодический"); ОС = СоздатьОбъект("Справочник.ОсновныеСредства"); ОС.ВыбратьЭлементы(); Пока ОС.ПолучитьЭлемент()=1 Цикл Если ОС.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Периодический.ИспользоватьОбъект("ФактическийОбъемПродукцииРаботЗаМесяц",ОС.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаИзмененийДат.НоваяСтрока(); ТаблицаИзмененийДат.ОсновноеСредство = ОС.ТекущийЭлемент(); ТаблицаИзмененийДат.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; ТаблицаИзмененийДат.Свернуть("ОсновноеСредство, Дата",""); ТекДата = ""; ТаблицаИзмененийДат.Сортировать("Дата,ОсновноеСредство"); ТаблицаИзмененийДат.ВыбратьСтроки(); ВД = СоздатьОбъект("СписокЗначений"); ТаблицаОС = СоздатьОбъект("ТаблицаЗначений"); ТаблицаОС.НоваяКолонка("ОсновноеСредство"); ТаблицаОС.НоваяКолонка("Количество"); ВД.Установить("ОС",ТаблицаОС); Пока ТаблицаИзмененийДат.ПолучитьСтроку()=1 Цикл Если ТаблицаИзмененийДат.Дата <> ТекДата Тогда Если ТекДата<>"" Тогда ВыгрузитьПоПравилу(,,ВД,,"ВыработкаОС"); КонецЕсли; ВД.Установить("Дата",ТаблицаИзмененийДат.Дата); ВД.Установить("Комментарий","# Перенесено из 1С Бухгалтерия 7.7 #"); ТаблицаОС.УдалитьСтроки(); ТекДата = ТаблицаИзмененийДат.Дата; КонецЕсли; ТаблицаОС.НоваяСтрока(); ТаблицаОС.ОсновноеСредство = ТаблицаИзмененийДат.ОсновноеСредство; ТаблицаОС.Количество = ТаблицаИзмененийДат.ОсновноеСредство.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(ТаблицаИзмененийДат.Дата); КонецЦикла; Если ТекДата<>"" Тогда ВыгрузитьПоПравилу(,,ВД,,"ВыработкаОС"); КонецЕсли; <Правило Отключить="false"> <Код>ИзменениеСостоянияОС <Наименование>Изменение состояния ОС <Порядок>100 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************************************************************** //Состояние ОС, начислять амортизацию ТаблицаИзменений = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзменений.НоваяКолонка("ОсновноеСредство"); ТаблицаИзменений.НоваяКолонка("Дата"); Периодический = СоздатьОбъект("Периодический"); ОС = СоздатьОбъект("Справочник.ОсновныеСредства"); ОС.ВыбратьЭлементы(); Пока ОС.ПолучитьЭлемент()=1 Цикл Если ОС.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; //Периодический.ИспользоватьОбъект("Состояние",ОС.ТекущийЭлемент()); //Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); //Пока Периодический.ПолучитьЗначение()=1 Цикл // Если ПустоеЗначение(Периодический.ТекущийДокумент())=0 Тогда // Если (Периодический.ТекущийДокумент().Вид()="ВводВЭксплуатациюОС") // и (Периодический.ТекущийДокумент().Вид()="ВводВЭксплуатациюОС") Тогда // Продолжить; // КонецЕсли; // КонецЕсли; // ТаблицаИзменений.НоваяСтрока(); // ТаблицаИзменений.ОсновноеСредство = ОС.ТекущийЭлемент(); // ТаблицаИзменений.Дата = КонМесяца(Периодический.ДатаЗнач); //КонецЦикла; Периодический.ИспользоватьОбъект("НачислятьАмортизацию",ОС.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл Если ПустоеЗначение(Периодический.ТекущийДокумент())=0 Тогда Если (Периодический.ТекущийДокумент().Вид()="ВводВЭксплуатациюОС") или (Периодический.ТекущийДокумент().Вид()="СписаниеОС") или (Периодический.ТекущийДокумент().Вид()="ПодготовкаКПередачеОС") или (Периодический.ТекущийДокумент().Вид()="ПередачаОС") Тогда Продолжить; КонецЕсли; КонецЕсли; ТаблицаИзменений.НоваяСтрока(); ТаблицаИзменений.ОсновноеСредство = ОС.ТекущийЭлемент(); ТаблицаИзменений.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; ТаблицаИзменений.Свернуть("ОсновноеСредство,Дата",""); ТаблицаИзменений.Сортировать("Дата,ОсновноеСредство"); ТаблицаИзменений.ВыбратьСтроки(); Пока ТаблицаИзменений.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",НачМесяца(ТаблицаИзменений.Дата)-1); ВД.Установить("Комментарий","# Перенесено из Бухгалтерия 7.7 # Основное средство "+ТаблицаИзменений.ОсновноеСредство); ВД.Установить("ВлияетНаНачислениеАмортизации",1); ВД.Установить("НачислятьАмортизацию",ТаблицаИзменений.ОсновноеСредство.НачислятьАмортизацию.Получить(ТаблицаИзменений.Дата)); ВД.Установить("ОтражатьВБухгалтерскомУчете",1); ВД.Установить("ОтражатьВНалоговомУчете",1); //ВД.Установить("СобытиеОС",ТаблицаИзменений.ОсновноеСредство.Состояние.Получить(ТаблицаИзменений.Дата)); ОС = СоздатьОбъект("ТаблицаЗначений"); ОС.НоваяКолонка("ОсновноеСредство"); ОС.НоваяСтрока(); ОС.ОсновноеСредство = ТаблицаИзменений.ОсновноеСредство; ВД.Установить("ОС",ОС); ВыгрузитьПоПравилу(,,ВД,,"ИзменениеСостоянияОС"); КонецЦикла; <Правило Отключить="false"> <Код>ИзменениеПараметровНачисленияАмортизацииОС <Наименование>Параметры начисления амортизации ОС <Порядок>150 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************************************************************** //СрокПолезногоИспользования, ПервоначальнаяСтоимость, ОбщийОбъемПродукцииРабот, СрокПолезногоИспользованияН ТаблицаИзменений = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзменений.НоваяКолонка("ОсновноеСредство"); ТаблицаИзменений.НоваяКолонка("Дата"); СписокРеквизитов = СоздатьОбъект("СписокЗначений"); СписокРеквизитов.ДобавитьЗначение("СрокПолезногоИспользования"); СписокРеквизитов.ДобавитьЗначение("ОбщийОбъемПродукцииРабот"); СписокРеквизитов.ДобавитьЗначение("СрокПолезногоИспользованияН"); СписокРеквизитов.ДобавитьЗначение("КоэффициентАмортизации"); Периодический = СоздатьОбъект("Периодический"); ОС = СоздатьОбъект("Справочник.ОсновныеСредства"); ОС.ВыбратьЭлементы(); Пока ОС.ПолучитьЭлемент()=1 Цикл Если ОС.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Для НомерРеквизита = 1 по СписокРеквизитов.РазмерСписка() Цикл Периодический.ИспользоватьОбъект(СписокРеквизитов.ПолучитьЗначение(НомерРеквизита),ОС.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл Если ПустоеЗначение(Периодический.ТекущийДокумент())=0 Тогда Если (Периодический.ТекущийДокумент().Вид()="ВводВЭксплуатациюОС") или (Периодический.ТекущийДокумент().Вид()="СписаниеОС") или (Периодический.ТекущийДокумент().Вид()="ПодготовкаКПередачеОС") или (Периодический.ТекущийДокумент().Вид()="ПередачаОС") Тогда Продолжить; КонецЕсли; КонецЕсли; ТаблицаИзменений.НоваяСтрока(); ТаблицаИзменений.ОсновноеСредство = ОС.ТекущийЭлемент(); ТаблицаИзменений.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; КонецЦикла; БИ = СоздатьОбъект("БухгалтерскиеИтоги"); ТаблицаИзменений.Свернуть("ОсновноеСредство,Дата",""); ТаблицаИзменений.Сортировать("Дата,ОсновноеСредство"); ТаблицаИзменений.ВыбратьСтроки(); Пока ТаблицаИзменений.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",НачМесяца(ТаблицаИзменений.Дата)-1); ВД.Установить("Комментарий","# Перенесено из Бухгалтерия 7.7 # Основное средство "+ТаблицаИзменений.ОсновноеСредство); ВД.Установить("ОтражатьВБухгалтерскомУчете",1); ВД.Установить("ОтражатьВНалоговомУчете",1); ОС = СоздатьОбъект("ТаблицаЗначений"); ОС.НоваяКолонка("ОсновноеСредство"); ОС.НоваяКолонка("КоэффициентУскоренияБУ"); ОС.НоваяКолонка("КоэффициентАмортизацииБУ"); ОС.НоваяКолонка("ОбъемПродукцииРаботБУ"); ОС.НоваяКолонка("ОбъемПродукцииРаботДляВычисленияАмортизацииБУ"); ОС.НоваяКолонка("СрокПолезногоИспользованияБУ"); ОС.НоваяКолонка("СрокИспользованияДляВычисленияАмортизацииБУ"); ОС.НоваяКолонка("ПРДляВычисленияАмортизации"); ОС.НоваяКолонка("СрокПолезногоИспользованияНУ"); ОС.НоваяКолонка("СтоимостьДляВычисленияАмортизацииБУ"); БИ.ПериодМ(ТаблицаИзменений.Дата); ОС.НоваяСтрока(); ОС.ОсновноеСредство = ТаблицаИзменений.ОсновноеСредство; ОС.КоэффициентУскоренияБУ = ТаблицаИзменений.ОсновноеСредство.КоэффициентУскорения; ОС.КоэффициентАмортизацииБУ = ТаблицаИзменений.ОсновноеСредство.КоэффициентАмортизации.Получить(ТаблицаИзменений.Дата); ОС.ОбъемПродукцииРаботБУ = ТаблицаИзменений.ОсновноеСредство.ОбщийОбъемПродукцииРабот.Получить(ТаблицаИзменений.Дата); ОС.ОбъемПродукцииРаботДляВычисленияАмортизацииБУ = ОС.ОбъемПродукцииРаботБУ; ОС.СрокПолезногоИспользованияБУ = ТаблицаИзменений.ОсновноеСредство.СрокПолезногоИспользования.Получить(ТаблицаИзменений.Дата); ОС.СрокИспользованияДляВычисленияАмортизацииБУ = ОС.СрокПолезногоИспользованияБУ; ОС.ПРДляВычисленияАмортизации = БИ.СКД("НПР.01",1,,ТаблицаИзменений.ОсновноеСредство); ОС.СрокПолезногоИспользованияНУ = ТаблицаИзменений.ОсновноеСредство.СрокПолезногоИспользованияН.Получить(ТаблицаИзменений.Дата); ОС.СтоимостьДляВычисленияАмортизацииБУ = БИ.СНД("01",1,,ТаблицаИзменений.ОсновноеСредство)+БИ.СНД("03",1,,ТаблицаИзменений.ОсновноеСредство); ВД.Установить("ОС",ОС); ВыгрузитьПоПравилу(,,ВД,,"ИзменениеПараметровНачисленияАмортизацииОС"); КонецЦикла; <Правило Отключить="false"> <Код>ИзменениеСпособаОтраженияРасходовАмортизацииОС <Наименование>Способы отраж.расходов по амортизации ОС <Порядок>200 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************************************************************** //СчетЗатрат, Субконто1, Субконто2, Субконто3, ВидРасхода ТаблицаИзменений = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзменений.НоваяКолонка("ОсновноеСредство"); ТаблицаИзменений.НоваяКолонка("Дата"); СписокРеквизитов = СоздатьОбъект("СписокЗначений"); СписокРеквизитов.ДобавитьЗначение("СчетЗатрат"); СписокРеквизитов.ДобавитьЗначение("Субконто1"); СписокРеквизитов.ДобавитьЗначение("Субконто2"); СписокРеквизитов.ДобавитьЗначение("Субконто3"); СписокРеквизитов.ДобавитьЗначение("ВидРасхода"); Периодический = СоздатьОбъект("Периодический"); ОС = СоздатьОбъект("Справочник.ОсновныеСредства"); ОС.ВыбратьЭлементы(); Пока ОС.ПолучитьЭлемент()=1 Цикл Если ОС.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Для НомерРеквизита = 1 по СписокРеквизитов.РазмерСписка() Цикл Периодический.ИспользоватьОбъект(СписокРеквизитов.ПолучитьЗначение(НомерРеквизита),ОС.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл Если ПустоеЗначение(Периодический.ТекущийДокумент())=0 Тогда Если (Периодический.ТекущийДокумент().Вид()="ВводВЭксплуатациюОС") или (Периодический.ТекущийДокумент().Вид()="СписаниеОС") или (Периодический.ТекущийДокумент().Вид()="ПодготовкаКПередачеОС") или (Периодический.ТекущийДокумент().Вид()="ПередачаОС") Тогда Продолжить; КонецЕсли; КонецЕсли; ТаблицаИзменений.НоваяСтрока(); ТаблицаИзменений.ОсновноеСредство = ОС.ТекущийЭлемент(); ТаблицаИзменений.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; КонецЦикла; ТаблицаИзменений.Свернуть("ОсновноеСредство,Дата",""); ТаблицаИзменений.Сортировать("Дата,ОсновноеСредство"); ТаблицаИзменений.ВыбратьСтроки(); Пока ТаблицаИзменений.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",НачМесяца(ТаблицаИзменений.Дата)-1); ВД.Установить("Комментарий","# Перенесено из Бухгалтерия 7.7 # Основное средство "+ТаблицаИзменений.ОсновноеСредство); ВД.Установить("СпособОтраженияРасходовПоАмортизации",ТаблицаИзменений.ОсновноеСредство); ВД.Установить("ДатаСведений",ТаблицаИзменений.Дата); ОС = СоздатьОбъект("ТаблицаЗначений"); ОС.НоваяКолонка("ОсновноеСредство"); ОС.НоваяСтрока(); ОС.ОсновноеСредство = ТаблицаИзменений.ОсновноеСредство; ВД.Установить("ОС",ОС); ВыгрузитьПоПравилу(,,ВД,,"ИзменениеСпособовОтраженияРасходовПоАмортизацииОС"); КонецЦикла; <Правило Отключить="false"> <Код>ИзменениеСпециальногоКоэффициентаОС <Наименование>Специальный коэффициент ОС <Порядок>250 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************************************************************** //СпециальныйКоэффициент ТаблицаИзменений = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзменений.НоваяКолонка("ОсновноеСредство"); ТаблицаИзменений.НоваяКолонка("Дата"); СписокРеквизитов = СоздатьОбъект("СписокЗначений"); СписокРеквизитов.ДобавитьЗначение("СпециальныйКоэффициент"); Периодический = СоздатьОбъект("Периодический"); ОС = СоздатьОбъект("Справочник.ОсновныеСредства"); ОС.ВыбратьЭлементы(); Пока ОС.ПолучитьЭлемент()=1 Цикл Если ОС.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Для НомерРеквизита = 1 по СписокРеквизитов.РазмерСписка() Цикл Периодический.ИспользоватьОбъект(СписокРеквизитов.ПолучитьЗначение(НомерРеквизита),ОС.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл Если ПустоеЗначение(Периодический.ТекущийДокумент())=0 Тогда Если (Периодический.ТекущийДокумент().Вид()="ВводВЭксплуатациюОС") или (Периодический.ТекущийДокумент().Вид()="СписаниеОС") или (Периодический.ТекущийДокумент().Вид()="ПодготовкаКПередачеОС") или (Периодический.ТекущийДокумент().Вид()="ПередачаОС") Тогда Продолжить; КонецЕсли; КонецЕсли; ТаблицаИзменений.НоваяСтрока(); ТаблицаИзменений.ОсновноеСредство = ОС.ТекущийЭлемент(); ТаблицаИзменений.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; КонецЦикла; БИ = СоздатьОбъект("БухгалтерскиеИтоги"); ТаблицаИзменений.Свернуть("ОсновноеСредство,Дата",""); ТаблицаИзменений.Сортировать("Дата,ОсновноеСредство"); ТаблицаИзменений.ВыбратьСтроки(); Пока ТаблицаИзменений.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",НачМесяца(ТаблицаИзменений.Дата)-1); ВД.Установить("Комментарий","# Перенесено из Бухгалтерия 7.7 # Основное средство "+ТаблицаИзменений.ОсновноеСредство); ОС = СоздатьОбъект("ТаблицаЗначений"); ОС.НоваяКолонка("ОсновноеСредство"); ОС.НоваяКолонка("СпециальныйКоэффициент"); ОС.НоваяСтрока(); ОС.ОсновноеСредство = ТаблицаИзменений.ОсновноеСредство; ОС.СпециальныйКоэффициент = ТаблицаИзменений.ОсновноеСредство.СпециальныйКоэффициент.Получить(ТаблицаИзменений.Дата); ВД.Установить("ОС",ОС); ВыгрузитьПоПравилу(,,ВД,,"ИзменениеСпециальногоКоэффициентаОС"); КонецЦикла; <Правило Отключить="false"> <Код>ВыгрузкаИзмененийФактОбъемаПродукцииНМА <Наименование>Фактический объем продукции НМА <Порядок>300 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>ТаблицаИзмененийДат = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзмененийДат.НоваяКолонка("НМА"); ТаблицаИзмененийДат.НоваяКолонка("Дата"); //******************************************************************** //фактический объем продукции, работ за месяц Периодический = СоздатьОбъект("Периодический"); НМА = СоздатьОбъект("Справочник.НематериальныеАктивы"); НМА.ВыбратьЭлементы(); Пока НМА.ПолучитьЭлемент()=1 Цикл Если НМА.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Периодический.ИспользоватьОбъект("ФактическийОбъемПродукцииРаботЗаМесяц",НМА.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл ТаблицаИзмененийДат.НоваяСтрока(); ТаблицаИзмененийДат.НМА = НМА.ТекущийЭлемент(); ТаблицаИзмененийДат.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; ТаблицаИзмененийДат.Свернуть("НМА, Дата",""); ТекДата = ""; ТаблицаИзмененийДат.Сортировать("Дата,НМА"); ТаблицаИзмененийДат.ВыбратьСтроки(); ВД = СоздатьОбъект("СписокЗначений"); ТаблицаНМА = СоздатьОбъект("ТаблицаЗначений"); ТаблицаНМА.НоваяКолонка("НематериальныйАктив"); ТаблицаНМА.НоваяКолонка("Количество"); ВД.Установить("НМА",ТаблицаНМА); Пока ТаблицаИзмененийДат.ПолучитьСтроку()=1 Цикл Если ТаблицаИзмененийДат.Дата <> ТекДата Тогда Если ТекДата<>"" Тогда ВыгрузитьПоПравилу(,,ВД,,"ВыработкаНМА"); КонецЕсли; ВД.Установить("Дата",ТаблицаИзмененийДат.Дата); ВД.Установить("Комментарий","# Перенесено из 1С Бухгалтерия 7.7 #"); ТаблицаНМА.УдалитьСтроки(); ТекДата = ТаблицаИзмененийДат.Дата; КонецЕсли; ТаблицаНМА.НоваяСтрока(); ТаблицаНМА.НематериальныйАктив = ТаблицаИзмененийДат.НМА; ТаблицаНМА.Количество = ТаблицаИзмененийДат.НМА.ФактическийОбъемПродукцииРаботЗаМесяц.Получить(ТаблицаИзмененийДат.Дата); КонецЦикла; Если ТекДата<>"" Тогда ВыгрузитьПоПравилу(,,ВД,,"ВыработкаНМА"); КонецЕсли; <Правило Отключить="false"> <Код>ИзменениеСпособаОтраженияРасходовАмортизацииНМА <Наименование>Способы отраж.расходов по амортизации НМА <Порядок>350 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************************************************************** //СчетЗатрат, Субконто1, Субконто2, Субконто3, ВидРасхода ТаблицаИзменений = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзменений.НоваяКолонка("НМА"); ТаблицаИзменений.НоваяКолонка("Дата"); СписокРеквизитов = СоздатьОбъект("СписокЗначений"); СписокРеквизитов.ДобавитьЗначение("СчетЗатрат"); СписокРеквизитов.ДобавитьЗначение("Субконто1"); СписокРеквизитов.ДобавитьЗначение("Субконто2"); СписокРеквизитов.ДобавитьЗначение("Субконто3"); СписокРеквизитов.ДобавитьЗначение("ВидРасхода"); Периодический = СоздатьОбъект("Периодический"); НМА = СоздатьОбъект("Справочник.НематериальныеАктивы"); НМА.ВыбратьЭлементы(); Пока НМА.ПолучитьЭлемент()=1 Цикл Если НМА.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Для НомерРеквизита = 1 по СписокРеквизитов.РазмерСписка() Цикл Периодический.ИспользоватьОбъект(СписокРеквизитов.ПолучитьЗначение(НомерРеквизита),НМА.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл Если ПустоеЗначение(Периодический.ТекущийДокумент())=0 Тогда Если (Периодический.ТекущийДокумент().Вид()="ПринятиеКУчетуНМА") или (Периодический.ТекущийДокумент().Вид()="ПередачаНМА") или (Периодический.ТекущийДокумент().Вид()="ПрекращениеСрокаДействияНМА") Тогда Продолжить; КонецЕсли; КонецЕсли; ТаблицаИзменений.НоваяСтрока(); ТаблицаИзменений.НМА = НМА.ТекущийЭлемент(); ТаблицаИзменений.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; КонецЦикла; ТаблицаИзменений.Свернуть("НМА,Дата",""); ТаблицаИзменений.Сортировать("Дата,НМА"); ТаблицаИзменений.ВыбратьСтроки(); Пока ТаблицаИзменений.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",НачМесяца(ТаблицаИзменений.Дата)-1); ВД.Установить("Комментарий","# Перенесено из Бухгалтерия 7.7 # НМА "+ТаблицаИзменений.НМА); ВД.Установить("СпособОтраженияРасходовПоАмортизации",ТаблицаИзменений.НМА); ВД.Установить("ДатаСведений",ТаблицаИзменений.Дата); НМА = СоздатьОбъект("ТаблицаЗначений"); НМА.НоваяКолонка("НематериальныйАктив"); НМА.НоваяСтрока(); НМА.НематериальныйАктив = ТаблицаИзменений.НМА; ВД.Установить("НМА",НМА); ВыгрузитьПоПравилу(,,ВД,,"ИзменениеСпособовОтраженияРасходовПоАмортизацииНМА"); КонецЦикла; <Правило Отключить="false"> <Код>ИзменениеСпециальногоКоэффициентаНМА <Наименование>Специальный коэффициент НМА <Порядок>400 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//******************************************************************** //СпециальныйКоэффициент ТаблицаИзменений = СоздатьОбъект("ТаблицаЗначений"); ТаблицаИзменений.НоваяКолонка("НМА"); ТаблицаИзменений.НоваяКолонка("Дата"); СписокРеквизитов = СоздатьОбъект("СписокЗначений"); СписокРеквизитов.ДобавитьЗначение("СпециальныйКоэффициент"); Периодический = СоздатьОбъект("Периодический"); НМА = СоздатьОбъект("Справочник.НематериальныеАктивы"); НМА.ВыбратьЭлементы(); Пока НМА.ПолучитьЭлемент()=1 Цикл Если НМА.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Для НомерРеквизита = 1 по СписокРеквизитов.РазмерСписка() Цикл Периодический.ИспользоватьОбъект(СписокРеквизитов.ПолучитьЗначение(НомерРеквизита),НМА.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл Если ПустоеЗначение(Периодический.ТекущийДокумент())=0 Тогда Если (Периодический.ТекущийДокумент().Вид()="ПринятиеКУчетуНМА") или (Периодический.ТекущийДокумент().Вид()="ПередачаНМА") или (Периодический.ТекущийДокумент().Вид()="ПрекращениеСрокаДействияНМА") Тогда Продолжить; КонецЕсли; КонецЕсли; ТаблицаИзменений.НоваяСтрока(); ТаблицаИзменений.НМА = НМА.ТекущийЭлемент(); ТаблицаИзменений.Дата = КонМесяца(Периодический.ДатаЗнач); КонецЦикла; КонецЦикла; КонецЦикла; ТаблицаИзменений.Свернуть("НМА,Дата",""); ТаблицаИзменений.Сортировать("Дата,НМА"); ТаблицаИзменений.ВыбратьСтроки(); Пока ТаблицаИзменений.ПолучитьСтроку()=1 Цикл ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",НачМесяца(ТаблицаИзменений.Дата)-1); ВД.Установить("Комментарий","# Перенесено из Бухгалтерия 7.7 # НМА "+ТаблицаИзменений.НМА); НМА = СоздатьОбъект("ТаблицаЗначений"); НМА.НоваяКолонка("НематериальныйАктив"); НМА.НоваяКолонка("СпециальныйКоэффициент"); НМА.НоваяСтрока(); НМА.НематериальныйАктив = ТаблицаИзменений.НМА; НМА.СпециальныйКоэффициент = ТаблицаИзменений.НМА.СпециальныйКоэффициент.Получить(ТаблицаИзменений.Дата); ВД.Установить("НМА",НМА); ВыгрузитьПоПравилу(,,ВД,,"ИзменениеСпециальногоКоэффициентаНМА"); КонецЦикла; <Правило Отключить="false"> <Код>ЗакрытиеТорговойНаценки <Наименование>Перенос закрытия торговой наценки <Порядок>450 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Документ = СоздатьОбъект("Документ.ЗакрытиеМесяца"); Документ.ВыбратьДокументы(Параметры.ДатаВводаОстатков, Параметры.ДатаКонцаПериодаВыгрузки); Пока Документ.ПолучитьДокумент()=1 Цикл //выполненные неоплаченные работы Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Операция = Документ.Операция; Операция.ВыбратьПроводки(); Пока Операция.ПолучитьПроводку()=1 Цикл Если (Операция.Кредит.Счет = СчетПоКоду("42")) и (Операция.Дебет.Счет.ПринадлежитГруппе(СчетПоКоду("90"))=1) Тогда Проводки.НоваяСтрока(); Проводки.СчетДт = Операция.Дебет.Счет; Проводки.СчетКт = Операция.Кредит.Счет; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетДт.КоличествоСубконто() Цикл Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = Проводки.СчетДт.ВидСубконто(НомерСубконто); Проводки.СубконтоДт.Значение = Операция.Дебет.Субконто(НомерСубконто); КонецЦикла; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по Проводки.СчетКт.КоличествоСубконто() Цикл Проводки.СубконтоКт.НоваяСтрока(); Проводки.СубконтоКт.Ключ = Проводки.СчетКт.ВидСубконто(НомерСубконто); Проводки.СубконтоКт.Значение = Операция.Кредит.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = Операция.Сумма; Проводки.Содержание = Операция.СодержаниеПроводки; КонецЕсли; КонецЦикла; Если Проводки.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Хозрасчетный", Проводки); ВходящиеДанные.Установить("Содержание", "Проводки по закрытию торговой наценки документа "+строка(Документ)); ВходящиеДанные.Установить("Дата", ПолучитьДатуV8(Документ.ДатаДок,Документ.ПолучитьВремя())); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>ОборотыЦеныНоменклатуры <Наименование>Цены номенклатуры <Порядок>500 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>ТипыЦен = СоздатьОбъект("ТаблицаЗначений"); ТипыЦен.НоваяКолонка("ТипЦен"); ТипыЦен.НоваяКолонка("ЦенаВключаетНДС"); ТипыЦен.НоваяКолонка("Товары"); ТипыЦен.НоваяКолонка("ВалютаЦены"); Выборка = СоздатьОбъект("Справочник.Цены"); ВыборкаВладельцев = СоздатьОбъект("Справочник.Номенклатура"); Периодический = СоздатьОбъект("Периодический"); ВыборкаВладельцев.ВыбратьЭлементы(); Пока ВыборкаВладельцев.ПолучитьЭлемент() > 0 Цикл Если ВыборкаВладельцев.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; // Плановая себестоимость Периодический.ИспользоватьОбъект("ПлановаяСебестоимость",ВыборкаВладельцев.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл НомСтроки = 0; ТипЦен = "Плановая себестоимость"; Если ТипыЦен.НайтиЗначение(ТипЦен, НомСтроки, "ТипЦен") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.ТипЦен = ТипЦен; ТипыЦен.ВалютаЦены = Параметры.Рубли; ТипыЦен.ЦенаВключаетНДС = 0; ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("ДатаЦены"); Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.ДатаЦены = Периодический.ДатаЗнач; Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = Периодический.Значение; Товары.Валюта = Параметры.Рубли; КонецЦикла; // Справочник "Цены" Выборка.ИспользоватьВладельца(ВыборкаВладельцев.ТекущийЭлемент()); Выборка.ВыбратьЭлементы(); Пока Выборка.ПолучитьЭлемент() > 0 Цикл Периодический.ИспользоватьОбъект("Цена",Выборка.ТекущийЭлемент()); Периодический.ВыбратьЗначения(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока Периодический.ПолучитьЗначение()=1 Цикл НомСтроки = 0; ТипЦен = СокрЛП(Выборка.ТипЦен.Наименование); Если ТипыЦен.НайтиЗначение(ТипЦен, НомСтроки, "ТипЦен") = 0 Тогда ТипыЦен.НоваяСтрока(); ТипыЦен.ТипЦен = ТипЦен; ТипыЦен.ВалютаЦены = ?(ПустоеЗначение(Выборка.Валюта) = 1, Параметры.Рубли, Выборка.Валюта); ТипыЦен.ЦенаВключаетНДС = Выборка.ТипЦен.ЦенаВклНДС; ТипыЦен.Товары = СоздатьОбъект("ТаблицаЗначений"); Товары = ТипыЦен.Товары; Товары.НоваяКолонка("ДатаЦены"); Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Валюта"); Иначе ТипыЦен.ПолучитьСтрокуПоНомеру(НомСтроки); Товары = ТипыЦен.Товары; КонецЕсли; Товары.НоваяСтрока(); Товары.ДатаЦены = Периодический.ДатаЗнач; Товары.Номенклатура = ВыборкаВладельцев.ТекущийЭлемент(); Товары.Цена = Периодический.Значение; Товары.Валюта = ?(ПустоеЗначение(Выборка.Валюта) = 1, Параметры.Рубли, Выборка.Валюта); КонецЦикла; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ТипыЦен.ВыбратьСтроки(); Пока ТипыЦен.ПолучитьСтроку() = 1 Цикл Если ТипыЦен.Товары.КоличествоСтрок() > 0 Тогда ТипыЦенПоДате = СоздатьОбъект("ТаблицаЗначений"); ТипыЦенПоДате.НоваяКолонка("Номенклатура"); ТипыЦенПоДате.НоваяКолонка("Цена"); ТипыЦенПоДате.НоваяКолонка("Валюта"); ДатаЦены = ""; ТипыЦен.Товары.Сортировать("ДатаЦены"); ТипыЦен.Товары.ВыбратьСтроки(); Пока ТипыЦен.Товары.ПолучитьСтроку()=1 Цикл Если ДатаЦены<>ТипыЦен.Товары.ДатаЦены Тогда Если ДатаЦены <> "" Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ТипЦен", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("Дата", ДатаЦены); ВходящиеДанные.Установить("ВалютаЦены", ТипыЦен.ВалютаЦены); ВходящиеДанные.Установить("Наименование", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("ЦенаВключаетНДС", ТипыЦен.ЦенаВключаетНДС); ВходящиеДанные.Установить("Товары", ТипыЦенПоДате); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "УстановкаЦенНоменклатуры"); КонецЕсли; ТипыЦенПоДате.УдалитьСтроки(); ДатаЦены = ТипыЦен.Товары.ДатаЦены; КонецЕсли; ТипыЦенПоДате.НоваяСтрока(); ТипыЦенПоДате.Номенклатура = ТипыЦен.Товары.Номенклатура; ТипыЦенПоДате.Цена = ТипыЦен.Товары.Цена; ТипыЦенПоДате.Валюта = ТипыЦен.Товары.Валюта; КонецЦикла; Если ДатаЦены <> "" Тогда ВходящиеДанные.УдалитьВсе(); ВходящиеДанные.Установить("ТипЦен", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("Дата", ДатаЦены); ВходящиеДанные.Установить("ВалютаЦены", ТипыЦен.ВалютаЦены); ВходящиеДанные.Установить("Наименование", ТипыЦен.ТипЦен); ВходящиеДанные.Установить("ЦенаВключаетНДС", ТипыЦен.ЦенаВключаетНДС); ВходящиеДанные.Установить("Товары", ТипыЦенПоДате); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "УстановкаЦенНоменклатуры"); КонецЕсли; КонецЕсли; КонецЦикла; Отказ = 1; <Правило Отключить="false"> <Код>ПроцентДеятельностиЕНВД <Наименование>Процент деятельности по ЕНВД <Порядок>550 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Сч90_1_1 = СчетПоКоду("90.1.1"); Сч90_1_2 = СчетПоКоду("90.1.2"); Сч90_3 = СчетПоКоду("90.3"); Сч90_4 = СчетПоКоду("90.4"); Сч90_5 = СчетПоКоду("90.5"); Сч90_6 = СчетПоКоду("90.6"); ДатаДокумента = НачМесяца(Параметры.ДатаВводаОстатков); Пока ДатаДокумента<Параметры.ДатаКонцаПериодаВыгрузки Цикл //определяем коэффициент ЕНВД БухИт90 = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт90.ПериодМ(ДатаДокумента); ВыручкаНеЕНВД = БухИт90.КО(Сч90_1_1); Налоги = БухИт90.ДО(Сч90_3) + БухИт90.ДО(Сч90_4) + БухИт90.ДО(Сч90_5) + БухИт90.ДО(Сч90_6); ВыручкаБезНалогов = ВыручкаНеЕНВД - Налоги; ВыручкаЕНВД = БухИт90.КО(Сч90_1_2); ПрибыльОбщая = ВыручкаБезНалогов + ВыручкаЕНВД; Если ПрибыльОбщая = 0 Тогда К = 1; Иначе К = ВыручкаБезНалогов/ПрибыльОбщая ; КонецЕсли; КоэффициентЕНВД = 100-?(К=0,1,К)*100; ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",ДатаДокумента); ВД.Установить("Комментарий","# Перенесено из 1С:Бухгалтерия 7.7 # Ввод процента деятельности ЕНВД за период "+строка(ДатаДокумента)); РаботникиОрганизации = СоздатьОбъект("ТаблицаЗначений"); РаботникиОрганизации.НоваяКолонка("Физлицо"); РаботникиОрганизации.НоваяКолонка("Сотрудник"); РаботникиОрганизации.НоваяКолонка("ПодпадаетПодЕНВД"); БИ = СоздатьОбъект("БухгалтерскиеИтоги"); БИ.ИспользоватьСубконто(ВидыСубконто.Сотрудники); БИ.ВыполнитьЗапрос(НачМесяца(ДатаДокумента),КонМесяца(ДатаДокумента),"70","26,44.1.3"); БИ.ВыбратьСубконто(1); Пока БИ.ПолучитьСубконто(1)=1 Цикл РаботникиОрганизации.НоваяСтрока(); РаботникиОрганизации.Сотрудник = БИ.Субконто(1); РаботникиОрганизации.ПодпадаетПодЕНВД = КоэффициентЕНВД; КонецЦикла; ВД.Установить("РаботникиОрганизации",РаботникиОрганизации); Если РаботникиОрганизации.КоличествоСтрок()>0 Тогда ВыгрузитьПоПравилу(ДатаДокумента,,ВД,,"ВводПроцентаДеятельностиЕНВД"); КонецЕсли; ДатаДокумента = КонМесяца(ДатаДокумента)+1; КонецЦикла; <Правило Отключить="false"> <Код>СведенияОРасчетныхСчетахСотрудников <Наименование>Сведения о расчетных счетах сотрудников <Порядок>600 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>РаботникиОрганизации = СоздатьОбъект("ТаблицаЗначений"); РаботникиОрганизации.НоваяКолонка("ФизЛицо"); РаботникиОрганизации.НоваяКолонка("НомерЛицевогоСчета"); РаботникиОрганизации.НоваяКолонка("Счет"); РаботникиОрганизации.НоваяКолонка("Контрагент"); РаботникиОрганизации.НоваяКолонка("ПризнакУникальности"); ВыплатаЗП = СоздатьОбъект("Документ.ВыплатаЗПКасса"); ВыплатаЗП.ВыбратьДокументы(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки); Пока ВыплатаЗП.ПолучитьДокумент()=1 Цикл Если ВыплатаЗП.ПорядокВыплаты <> 1 Тогда Продолжить; КонецЕсли; Контрагент = ВыплатаЗП.Контрагент; Если ПустоеЗначение(Контрагент)=0 Тогда Счета = СоздатьОбъект("Справочник.РасчетныеСчета"); Счета.ИспользоватьВладельца(Контрагент); Счета.ВыбратьЭлементы(); Пока Счета.ПолучитьЭлемент()=1 Цикл Счет = Счета.ТекущийЭлемент(); Прервать; КонецЦикла; Иначе Счет = ПолучитьПустоеЗначение(); КонецЕсли; ВыплатаЗП.ВыбратьСтроки(); Пока ВыплатаЗП.ПолучитьСтроку()=1 Цикл РаботникиОрганизации.НоваяСтрока(); РаботникиОрганизации.ФизЛицо = ВыплатаЗП.Сотрудник; РаботникиОрганизации.НомерЛицевогоСчета = ВыплатаЗП.Сотрудник.НомерЗарплатногоСчета; РаботникиОрганизации.Счет = Счет; РаботникиОрганизации.Контрагент = Контрагент; РаботникиОрганизации.ПризнакУникальности = "ПУ_"+ЗначениеВСтрокуВнутр(Контрагент)+ЗначениеВСтрокуВнутр(Счет); КонецЦикла; КонецЦикла; РаботникиОрганизации.Свернуть("ФизЛицо,НомерЛицевогоСчета,Счет,Контрагент,ПризнакУникальности",""); РаботникиОрганизации.Сортировать("ПризнакУникальности"); ТекущийПризнак = ""; ВД = СоздатьОбъект("СписокЗначений"); ВД.Установить("Дата",Параметры.ДатаВводаОстатков-1); РО = СоздатьОбъект("ТаблицаЗначений"); РО.НоваяКолонка("ФизЛицо"); РО.НоваяКолонка("НомерЛицевогоСчета"); РаботникиОрганизации.ВыбратьСтроки(); Пока РаботникиОрганизации.ПолучитьСтроку()=1 Цикл Если ТекущийПризнак <> РаботникиОрганизации.ПризнакУникальности Тогда Если ТекущийПризнак <> "" Тогда ВД.Установить("Банк",РаботникиОрганизации.Контрагент); ВД.Установить("БанковскийСчет",РаботникиОрганизации.Счет); ВД.Установить("РаботникиОрганизации",РО); ВыгрузитьПоПравилу(,,ВД,,"ЗаявкаНаОткрытиеСчетов_ВНО"); КонецЕсли; РО.УдалитьСтроки(); ТекущийПризнак = РаботникиОрганизации.ПризнакУникальности; КонецЕсли; РО.НоваяСтрока(); РО.Физлицо = РаботникиОрганизации.ФизЛицо; РО.НомерЛицевогоСчета = РаботникиОрганизации.НомерЛицевогоСчета; КонецЦикла; Если ТекущийПризнак <> "" Тогда ВД.Установить("Банк",РаботникиОрганизации.Контрагент); ВД.Установить("БанковскийСчет",РаботникиОрганизации.Счет); ВД.Установить("РаботникиОрганизации",РО); ВыгрузитьПоПравилу(,,ВД,,"ЗаявкаНаОткрытиеСчетов_ВНО"); КонецЕсли; <Правило Отключить="false"> <Код>ПорядокПодразделенийДляЗакрытияЗатрат <Наименование>Порядок подразделений для закрытия затрат <Порядок>650 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Счет40 = СчетПоКоду("40"); ЗакрытиеЗатрат = СоздатьОбъект("Документ.ЗакрытиеМесяца"); ЗакрытиеЗатрат.ВыбратьДокументы(Параметры.ДатаВводаОстатков, Параметры.ДатаКонцаПериодаВыгрузки); ТекущийМесяц = Дата(1980,1,31); СписокДокументов = СоздатьОбъект("ТаблицаЗначений"); СписокДокументов.НоваяКолонка("Дата"); СписокДокументов.НоваяКолонка("Комментарий"); СписокДокументов.НоваяКолонка("ПорядокЗакрытия"); Пока ЗакрытиеЗатрат.ПолучитьДокумент()=1 Цикл Если ЗакрытиеЗатрат.Проведен()= 0 Тогда Продолжить; КонецЕсли; Если ТекущийМесяц <> КонМесяца(ЗакрытиеЗатрат.ДатаДок) Тогда СписокДокументов.НоваяСтрока(); СписокДокументов.Дата = КонМесяца(ЗакрытиеЗатрат.ДатаДок); СписокДокументов.Комментарий = "# Перенесено из 1С:Бухгалтерии 7.7 # Установка порядка подразделений на "+Строка(СписокДокументов.Дата); СписокДокументов.ПорядокЗакрытия = СоздатьОбъект("ТаблицаЗначений"); СписокДокументов.ПорядокЗакрытия.НоваяКолонка("Подразделение"); КонецЕсли; //выбираем проводки документа и добавляем подразделения Опер = ЗакрытиеЗатрат.Операция; Опер.ВыбратьПроводки(); Пока Опер.ПолучитьПроводку()=1 Цикл Если Опер.Кредит.Счет = Счет40 Тогда Если ПустоеЗначение(Опер.Дебет.Подразделения)=0 Тогда НомерСтроки = 0; СписокДокументов.ПорядокЗакрытия.НайтиЗначение(Опер.Дебет.Подразделения, НомерСтроки, "Подразделение"); Если НомерСтроки=0 Тогда СписокДокументов.ПорядокЗакрытия.НоваяСтрока(); СписокДокументов.ПорядокЗакрытия.Подразделение = Опер.Дебет.Подразделения; КонецЕсли; КонецЕсли; ИначеЕсли Опер.Дебет.Счет = Счет40 Тогда Если ПустоеЗначение(Опер.Кредит.Подразделения)=0 Тогда НомерСтроки = 0; СписокДокументов.ПорядокЗакрытия.НайтиЗначение(Опер.Кредит.Подразделения, НомерСтроки, "Подразделение"); Если НомерСтроки=0 Тогда СписокДокументов.ПорядокЗакрытия.НоваяСтрока(); СписокДокументов.ПорядокЗакрытия.Подразделение = Опер.Кредит.Подразделения; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; СписокДокументов.ВыбратьСтроки(); Пока СписокДокументов.ПолучитьСтроку()=1 Цикл Если СписокДокументов.ПорядокЗакрытия.КоличествоСтрок()>0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(СписокДокументов.Дата,"Дата"); ВходящиеДанные.ДобавитьЗначение(СписокДокументов.Комментарий,"Комментарий"); ВходящиеДанные.ДобавитьЗначение(СписокДокументов.ПорядокЗакрытия,"ПорядокЗакрытия"); ВыгрузитьПоПравилу(ВходящиеДанные,,ВходящиеДанные,,"УстановкаПорядкаЗакрытияПодразделений"); КонецЕсли; КонецЦикла; <ПравилаОчисткиДанных/> <Алгоритмы> <Алгоритм Имя="ВыгрузитьИтогиПоСчету004" ИспользуетсяПриЗагрузке="false"> <Текст>РегистрБух = Параметры.ПараметрыАлгоритмов.Получить("Регистр"); Сч004 = СчетПоКоду("004"); СчКМС = СчетПоКоду("КМС"); Параметры.ПараметрыАлгоритмов.Установить("ТекущийСчет", Сч004); ПроводкиОбороты = Параметры.ТаблицаПроводокОбороты; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений"); ТаблицаОстатков.НоваяКолонка("Товар"); ТаблицаОстатков.НоваяКолонка("Договор"); ТаблицаОстатков.НоваяКолонка("Счет"); ТаблицаОстатков.НоваяКолонка("Количество"); ТаблицаОстатков.НоваяКолонка("Сумма"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура); БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры); БухИт.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки, Сч004); БухИтКМС = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтКМС.ИспользоватьСубконто(ВидыСубконто.Номенклатура); БухИтКМС.ИспользоватьСубконто(ВидыСубконто.ДоговорыС_Комитентами); БухИтКМС.ИспользоватьСубконто(ВидыСубконто.ДоговорыС_Комиссионерами); БухИтКМС.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "КМС"); БухИт.ВыбратьСубконто(1, 1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если БухИт.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; БухИт.ВыбратьСубконто(2, 1); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл // Выгрузка остатков Если (БухИт.СНД(1) <> 0) или (БухИт.СНД(3) <> 0) Тогда ТаблицаОстатков.НоваяСтрока(); ТаблицаОстатков.Товар = БухИт.Субконто(1); ТаблицаОстатков.Договор = БухИт.Субконто(2); ТаблицаОстатков.Счет = БухИт.Счет; ТаблицаОстатков.Количество = БухИт.СНД(3); ТаблицаОстатков.Сумма = БухИт.СНД(1); КоличествоВсего = ТаблицаОстатков.Количество; СтоимостьВсего = ТаблицаОстатков.Сумма; Если БухИтКМС.ПолучитьСубконто(ВидыСубконто.Номенклатура,, БухИт.Субконто(1)) = 1 Тогда Если БухИтКМС.ПолучитьСубконто(ВидыСубконто.ДоговорыС_Комитентами,, БухИт.Субконто(2)) = 1 Тогда БухИтКМС.ВыбратьСубконто(ВидыСубконто.ДоговорыС_Комиссионерами); Пока БухИтКМС.ПолучитьСубконто(ВидыСубконто.ДоговорыС_Комиссионерами) = 1 Цикл КоличествоПроводки = Мин(КоличествоВсего,БухИтКМС.СНД(3)); СуммаПроводки = ?(КоличествоВсего = 0, 0, Окр(БухИтКМС.СНД(3) / КоличествоВсего * СтоимостьВсего, 2, 1)); ТаблицаОстатков.НоваяСтрока(); ТаблицаОстатков.Товар = БухИт.Субконто(1); ТаблицаОстатков.Договор = БухИт.Субконто(2); ТаблицаОстатков.Счет = Сч004; ТаблицаОстатков.Количество = -КоличествоПроводки; ТаблицаОстатков.Сумма = -СуммаПроводки; КоличествоВсего = КоличествоВсего - КоличествоПроводки; СтоимостьВсего = СтоимостьВсего - СуммаПроводки; ТаблицаОстатков.НоваяСтрока(); ТаблицаОстатков.Товар = БухИтКМС.Субконто(1); ТаблицаОстатков.Договор = БухИтКМС.Субконто(3); ТаблицаОстатков.Счет = СчКМС; ТаблицаОстатков.Количество = БухИтКМС.СНД(3); ТаблицаОстатков.Сумма = БухИтКМС.СНД(1); КонецЦикла; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; ТаблицаОстатков.Свернуть("Товар,Договор,Счет","Количество,Сумма"); ТаблицаОстатковПоСкладам = СоздатьОбъект("ТаблицаЗначений"); ТаблицаОстатковПоСкладам.НоваяКолонка("Товар"); ТаблицаОстатковПоСкладам.НоваяКолонка("Договор"); ТаблицаОстатковПоСкладам.НоваяКолонка("Счет"); ТаблицаОстатковПоСкладам.НоваяКолонка("Склад"); ТаблицаОстатковПоСкладам.НоваяКолонка("Количество"); ТаблицаОстатковПоСкладам.НоваяКолонка("Сумма"); ТаблицаТоваров = СоздатьОбъект("ТаблицаЗначений"); ТаблицаТоваров.НоваяКолонка("Товар"); ТаблицаТоваров.НоваяКолонка("Договор"); ТаблицаТоваров.НоваяКолонка("Счет"); ТаблицаТоваров.НоваяКолонка("Склад"); ТаблицаТоваров.НоваяКолонка("Количество"); Опер = СоздатьОбъект("Операция"); Опер.ВыбратьОперацииСПроводками(Параметры.ДатаВводаОстатков,Параметры.ДатаКонцаПериодаВыгрузки,"004"); Пока Опер.ПолучитьПроводку()=1 Цикл Док = Опер.Документ; Склад = ""; Если Док.Вид()="ИнвентаризацияТМЦ" Тогда Склад = ?(Док.ВидТМЦ = 1, Док.МестоХранения, Док.РозничныйСклад); ИначеЕсли Метаданные.Документ(Док.Вид()).РеквизитШапки("МестоХранения").Выбран() = 1 Тогда Склад = Док.МестоХранения; КонецЕсли; Если Склад="" Тогда Продолжить; КонецЕсли; Если Опер.Дебет.Счет = Сч004 Тогда ТаблицаТоваров.НоваяСтрока(); ТаблицаТоваров.Товар = Опер.Дебет.Субконто(1); ТаблицаТоваров.Склад = Склад; ТаблицаТоваров.Договор = Опер.Дебет.Субконто(3); ТаблицаТоваров.Счет = Опер.Дебет.Счет; ТаблицаТоваров.Количество = -Опер.Количество; ИначеЕсли Опер.Кредит.Счет = Сч004 Тогда ТаблицаТоваров.НоваяСтрока(); ТаблицаТоваров.Товар = Опер.Кредит.Субконто(1); ТаблицаТоваров.Склад = Склад; ТаблицаТоваров.Договор = Опер.Кредит.Субконто(3); ТаблицаТоваров.Счет = Опер.Кредит.Счет; ТаблицаТоваров.Количество = Опер.Количество; КонецЕсли; КонецЦикла; ТаблицаТоваров.Свернуть("Товар,Договор,Склад,Счет","Количество"); //удаляем отрицательные суммы - они нам не нужны НомерСтроки = ТаблицаТоваров.КоличествоСтрок(); Пока НомерСтроки>0 Цикл Если ТаблицаТоваров.ПолучитьЗначение(НомерСтроки,"Количество")<0 Тогда ТаблицаТоваров.УдалитьСтроку(НомерСтроки); КонецЕсли; НомерСтроки = НомерСтроки - 1; КонецЦикла; //теперь распределим ТаблицаОстатков.ВыбратьСтроки(); Пока ТаблицаОстатков.ПолучитьСтроку()=1 Цикл ТаблицаТоваров.ВыбратьСтроки(); Если ТаблицаОстатков.Счет = Сч004 Тогда Пока (ТаблицаТоваров.ПолучитьСтроку()=1) и (ТаблицаОстатков.Количество > 0) Цикл Если (ТаблицаТоваров.Количество > 0) и (ТаблицаТоваров.Товар = ТаблицаОстатков.Товар) и (ТаблицаТоваров.Договор = ТаблицаОстатков.Договор) Тогда ТаблицаОстатковПоСкладам.НоваяСтрока(); ТаблицаОстатковПоСкладам.Товар = ТаблицаОстатков.Товар; ТаблицаОстатковПоСкладам.Договор = ТаблицаОстатков.Договор; ТаблицаОстатковПоСкладам.Счет = ТаблицаОстатков.Счет; ТаблицаОстатковПоСкладам.Склад = ТаблицаТоваров.Склад; ТаблицаОстатковПоСкладам.Количество = Мин(ТаблицаОстатков.Количество,ТаблицаТоваров.Количество); ТаблицаОстатковПоСкладам.Сумма = Окр(ТаблицаОстатковПоСкладам.Количество / ТаблицаОстатков.Количество * ТаблицаОстатков.Сумма,2); ТаблицаОстатков.Количество = ТаблицаОстатков.Количество - ТаблицаОстатковПоСкладам.Количество; ТаблицаОстатков.Сумма = ТаблицаОстатков.Сумма - ТаблицаОстатковПоСкладам.Сумма; ТаблицаТоваров.Количество = ТаблицаТоваров.Количество - ТаблицаОстатковПоСкладам.Количество; КонецЕсли; КонецЦикла; КонецЕсли; Если (ТаблицаОстатков.Количество <> 0) или (ТаблицаОстатков.Сумма <> 0) Тогда //что осталось - на обычный склад ТаблицаОстатковПоСкладам.НоваяСтрока(); ТаблицаОстатковПоСкладам.Товар = ТаблицаОстатков.Товар; ТаблицаОстатковПоСкладам.Договор = ТаблицаОстатков.Договор; ТаблицаОстатковПоСкладам.Счет = ТаблицаОстатков.Счет; ТаблицаОстатковПоСкладам.Склад = ""; ТаблицаОстатковПоСкладам.Количество = ТаблицаОстатков.Количество; ТаблицаОстатковПоСкладам.Сумма = ТаблицаОстатков.Сумма; КонецЕсли; КонецЦикла; ТаблицаОстатковПоСкладам.Сортировать("Товар,Договор,Склад,Счет"); ТаблицаОстатковПоСкладам.ВыбратьСтроки(); Пока ТаблицаОстатковПоСкладам.ПолучитьСтроку()=1 Цикл Проводки.НоваяСтрока(); Проводки.СчетДт = ТаблицаОстатковПоСкладам.Счет; Проводки.КодСчетаДт = ""; Проводки.ВидУчетаДт = "НУ"; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = ВидыСубконто.Договоры; Проводки.СубконтоДт.Значение = ТаблицаОстатковПоСкладам.Договор; Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = ВидыСубконто.Номенклатура; Проводки.СубконтоДт.Значение = ТаблицаОстатковПоСкладам.Товар; Если ТаблицаОстатковПоСкладам.Счет = Сч004 Тогда Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = ВидыСубконто.МестаХранения; Проводки.СубконтоДт.Значение = ?(ПустоеЗначение(ТаблицаОстатковПоСкладам.Склад)=1,Константа.ОсновнойСклад,ТаблицаОстатковПоСкладам.Склад); Иначе Проводки.СубконтоДт.НоваяСтрока(); Проводки.СубконтоДт.Ключ = ВидыСубконто.Контрагенты; Проводки.СубконтоДт.Значение = ?(ПустоеЗначение(ТаблицаОстатковПоСкладам.Договор)=1,"",ТаблицаОстатковПоСкладам.Договор.Владелец); КонецЕсли; Проводки.КоличествоДт = ТаблицаОстатковПоСкладам.Количество; Проводки.Сумма = ТаблицаОстатковПоСкладам.Количество; КонецЦикла; //БухИт.ВыбратьСубконто(1, 1); //Пока БухИт.ПолучитьСубконто(1) = 1 Цикл // Если БухИт.Субконто(1).ЭтоГруппа() = 1 Тогда // Продолжить; // КонецЕсли; // // БухИт.ВыбратьСубконто(2, 1); // Пока БухИт.ПолучитьСубконто(2) = 1 Цикл // // // Выгрузка остатков // Если (БухИт.СНД(1) <> 0) или (БухИт.СНД(3) <> 0) Тогда // Проводки.НоваяСтрока(); // Проводки.СчетДт = Сч004; // Проводки.КодСчетаДт = ""; // Проводки.ВидУчетаДт = "НУ"; // Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); // Проводки.СубконтоДт.НоваяКолонка("Ключ"); // Проводки.СубконтоДт.НоваяКолонка("Значение"); // Проводки.СубконтоДт.НоваяСтрока(); // Проводки.СубконтоДт.Ключ = ВидыСубконто.Договоры; // Проводки.СубконтоДт.Значение = БухИт.Субконто(2); // Проводки.СубконтоДт.НоваяСтрока(); // Проводки.СубконтоДт.Ключ = ВидыСубконто.Номенклатура; // Проводки.СубконтоДт.Значение = БухИт.Субконто(1); // Проводки.КоличествоДт = БухИт.СНД(3); // Проводки.Сумма = БухИт.СНД(1); // КонецЕсли; // //// Списание части конечного остатка с Дт 004.01 в Кт 004.02 //КоличествоВсего = БухИт.СНД(3); //СтоимостьВсего = БухИт.СНД(1); // //Если КоличествоВсего <> 0 Тогда // // Распределено = 0; // // Если БухИтКМС.ПолучитьСубконто(ВидыСубконто.Номенклатура,, БухИт.Субконто(1)) = 1 Тогда // Если БухИтКМС.ПолучитьСубконто(ВидыСубконто.ДоговорыС_Комитентами,, БухИт.Субконто(2)) = 1 Тогда // БухИтКМС.ВыбратьСубконто(ВидыСубконто.ДоговорыС_Комиссионерами); // Пока БухИтКМС.ПолучитьСубконто(ВидыСубконто.ДоговорыС_Комиссионерами) = 1 Цикл // // Если Параметры.ДатаВводаОстатков = Параметры.ДатаКонцаПериодаВыгрузки Тогда // КоличествоПроводки = БухИтКМС.СНД(3); // СуммаПроводки = Окр(СтоимостьВсего * БухИтКМС.СНД(3) / КоличествоВсего, 2, 1); // // Иначе // КоличествоПроводки = БухИтКМС.СКД(3); // СуммаПроводки = Окр(СтоимостьВсего * БухИтКМС.СКД(3) / КоличествоВсего, 2, 1); // КонецЕсли; // // ПроводкиОбороты.НоваяСтрока(); // ПроводкиОбороты.СчетДт = Сч004; // ПроводкиОбороты.КодСчетаДт = "004.02"; // ПроводкиОбороты.ВидУчетаДт = "НУ"; // ПроводкиОбороты.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); // ПроводкиОбороты.СубконтоДт.НоваяКолонка("Ключ"); // ПроводкиОбороты.СубконтоДт.НоваяКолонка("Значение"); // ПроводкиОбороты.СубконтоДт.НоваяСтрока(); // ПроводкиОбороты.СубконтоДт.Ключ = ВидыСубконто.Договоры; // ПроводкиОбороты.СубконтоДт.Значение = БухИт.Субконто(2); // ПроводкиОбороты.СубконтоДт.НоваяСтрока(); // ПроводкиОбороты.СубконтоДт.Ключ = ВидыСубконто.Номенклатура; // ПроводкиОбороты.СубконтоДт.Значение = БухИт.Субконто(1); // ПроводкиОбороты.СубконтоДт.НоваяСтрока(); // ПроводкиОбороты.СубконтоДт.Ключ = ВидыСубконто.Контрагенты; // ПроводкиОбороты.СубконтоДт.Значение = БухИтКМС.Субконто(3).Владелец; // // ПроводкиОбороты.КоличествоДт = КоличествоПроводки; // // ПроводкиОбороты.СчетКт = Сч004; // ПроводкиОбороты.КодСчетаКт = ""; // ПроводкиОбороты.ВидУчетаКт = "НУ"; // ПроводкиОбороты.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); // ПроводкиОбороты.СубконтоКт.НоваяКолонка("Ключ"); // ПроводкиОбороты.СубконтоКт.НоваяКолонка("Значение"); // ПроводкиОбороты.СубконтоКт.НоваяСтрока(); // ПроводкиОбороты.СубконтоКт.Ключ = ВидыСубконто.Договоры; // ПроводкиОбороты.СубконтоКт.Значение = БухИт.Субконто(2); // ПроводкиОбороты.СубконтоКт.НоваяСтрока(); // ПроводкиОбороты.СубконтоКт.Ключ = ВидыСубконто.Номенклатура; // ПроводкиОбороты.СубконтоКт.Значение = БухИт.Субконто(1); // // ПроводкиОбороты.КоличествоКт = КоличествоПроводки; // ПроводкиОбороты.Сумма = СуммаПроводки; // // Распределено = Распределено + СуммаПроводки; // // КонецЦикла; // // Если Параметры.ДатаВводаОстатков = Параметры.ДатаКонцаПериодаВыгрузки Тогда // КоличествоОтгруженное = БухИтКМС.СНД(3); // // Иначе // КоличествоОтгруженное = БухИтКМС.СКД(3); // КонецЕсли; // // Если (КоличествоВсего = КоличествоОтгруженное) и (Распределено <> СтоимостьВсего) Тогда // ПроводкиОбороты.Сумма = ПроводкиОбороты.Сумма + СтоимостьВсего - Распределено; // КонецЕсли; // КонецЕсли; // КонецЕсли; //КонецЕсли; // КонецЦикла; //КонецЦикла; //теперь попытаемся распределить ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить(РегистрБух, Проводки); ВходящиеДанные.Установить("Счет", Сч004); ВходящиеДанные.Установить("Дата", БухИт.НачДата-1); Если РегистрБух = "Налоговый" Тогда //ПодготовитьТаблицуОстатковНУ(); Иначе РазделУчета = "ПрочиеСчетаБухгалтерскогоУчета"; ВходящиеДанные.Установить("ВходящиеОстатки", Проводки); ВходящиеДанные.Установить("Счет", Сч004); ВходящиеДанные.Установить("Дата", БухИт.НачДата-1); ВходящиеДанные.Установить("РазделУчета", РазделУчета); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатков"); КонецЕсли; <Алгоритм Имя="ВыгрузитьОстаткиПоСпецматериаламМЦ" ИспользуетсяПриЗагрузке="false"> <Текст>// Выгружает остатки по любому счету. Счет записывается в таблицу // проводок, как объект типа "Основной.Счет" (потом он сконвертируется // в соответствии с настройкой конвертации значений счетов). // Остатки по субконто на которых ведется только количественный учет // выгружаются, как отдельные проводки. СчетВводаОстатков = Параметры.СчетВводаОстатков; Счет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); РегистрБух = Параметры.ПараметрыАлгоритмов.Получить("Регистр"); ПроводкиОбороты = Параметры.ТаблицаПроводокОбороты; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Валюты = СоздатьОбъект("СписокЗначений"); // Остатки БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(); БухИт.ИспользоватьСубконто(); БухИт.ИспользоватьСубконто(); БухИт.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, Счет); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БухИт); Параметры.ПараметрыАлгоритмов.Установить("Проводки", Проводки); БухИт.ВыбратьСчета(); Пока БухИт.ПолучитьСчет() = 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 Тогда БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(1)) = "Справочник" Тогда Если БухИт.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ((СуммовойУчет1 = 1) и (СуммовойУчет2 = 0)) или (КоличествоУровней = 1) Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 1); ПолучитьИтогиПоСчету(); ДобавитьПроводку(); КонецЕсли; Если КоличествоУровней > 1 Тогда БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(2)) = "Справочник" Тогда Если БухИт.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ((СуммовойУчет2 = 1) и (СуммовойУчет3 = 0)) или (КоличествоУровней = 2) Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 2); ПолучитьИтогиПоСчету(); ДобавитьПроводку(); КонецЕсли; Если КоличествоУровней > 2 Тогда БухИт.ВыбратьСубконто(3); Пока БухИт.ПолучитьСубконто(3) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(3)) = "Справочник" Тогда Если БухИт.Субконто(3).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 3); ПолучитьИтогиПоСчету(); ДобавитьПроводку(); КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 3); Проводки.Выгрузить(Параметры.ТаблицаОстатковМЦ); КонецЦикла; <Алгоритм Имя="ВыгрузитьОстаткиПоСпецматериаламНУ" ИспользуетсяПриЗагрузке="false"> <Текст>// Поддержка ПБУ 18 Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) <> Да Тогда Отказ = 1; Возврат 0; КонецЕсли; Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.ИспользоватьСубконто(); НУ.ИспользоватьСубконто(); НУ.ИспользоватьСубконто(); НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, "10.11.1,10.11.2"); НУ.ВыбратьСчета(); Пока НУ.ПолучитьСчет() = 1 Цикл НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; НУ.ВыбратьСубконто(2); Пока НУ.ПолучитьСубконто(2) = 1 Цикл НУ.ВыбратьСубконто(3); Пока НУ.ПолучитьСубконто(3) = 1 Цикл СтоимостьВР = НУ.СНД(1); // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ""); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", НУ.СНД(3)); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", 0); ДобавитьПроводкуНУ(); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР); ДобавитьПроводкуНУ(); КонецЦикла; КонецЦикла; КонецЦикла; Если НУ.НачДата = НачМесяца(Параметры.ДатаВводаОстатков) Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", НУ.Счет); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ПодготовитьТаблицуОстатковНУ(); //ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; КонецЦикла; <Алгоритм Имя="ВыгрузитьОстаткиПоСчету" ИспользуетсяПриЗагрузке="false"> <Текст>// Выгружает остатки по любому счету. Счет записывается в таблицу // проводок, как объект типа "Основной.Счет" (потом он сконвертируется // в соответствии с настройкой конвертации значений счетов). // Остатки по субконто на которых ведется только количественный учет // выгружаются, как отдельные проводки. СчетВводаОстатков = Параметры.СчетВводаОстатков; Счет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); РегистрБух = Параметры.ПараметрыАлгоритмов.Получить("Регистр"); Проводки = Параметры.ТаблицаПроводок; Проводки.УдалитьСтроки(); Валюты = СоздатьОбъект("СписокЗначений"); // Остатки БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(); БухИт.ИспользоватьСубконто(); БухИт.ИспользоватьСубконто(); БухИт.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, Счет); Параметры.ПараметрыАлгоритмов.Установить("БухИт", БухИт); Параметры.ПараметрыАлгоритмов.Установить("Проводки", Проводки); БухИт.ВыбратьСчета(); Пока БухИт.ПолучитьСчет() = 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 Тогда Если БухИт.ВыбратьСубконто(1) = 1 Тогда Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(1)) = "Справочник" Тогда Если БухИт.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ((СуммовойУчет1 = 1) и (СуммовойУчет2 = 0)) или (КоличествоУровней = 1) Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 1); ПолучитьИтогиПоСчету(); ДобавитьПроводку(); КонецЕсли; Если КоличествоУровней > 1 Тогда БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(2)) = "Справочник" Тогда Если БухИт.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ((СуммовойУчет2 = 1) и (СуммовойУчет3 = 0)) или (КоличествоУровней = 2) Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 2); ПолучитьИтогиПоСчету(); ДобавитьПроводку(); КонецЕсли; Если КоличествоУровней > 2 Тогда БухИт.ВыбратьСубконто(3); Пока БухИт.ПолучитьСубконто(3) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(3)) = "Справочник" Тогда Если БухИт.Субконто(3).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 3); ПолучитьИтогиПоСчету(); ДобавитьПроводку(); КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Иначе Если Счет.Код = "25" Тогда Если БухИт.ВыбратьСубконто(2) = 1 Тогда Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Если ТипЗначенияСтр(БухИт.Субконто(2)) = "Справочник" Тогда Если БухИт.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; Если ((СуммовойУчет1 = 1) и (СуммовойУчет2 = 0)) или (КоличествоУровней = 1) Тогда Параметры.ПараметрыАлгоритмов.Установить("ТекНомерСубконто", 2); ПолучитьИтогиПоСчету(); ДобавитьПроводку(); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; РазделУчета = ОпределитьРазделУчета(); Если ПустоеЗначение(РазделУчета) = 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ВходящиеОстатки", Проводки); ВходящиеДанные.Установить("Счет", Счет); ВходящиеДанные.Установить("Дата", БухИт.НачДата-1); ВходящиеДанные.Установить("РазделУчета", РазделУчета); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); Если (РазделУчета = "РасчетыСПерсоналомПоОплатеТрудаИДепонентам") И (Параметры.ДатаВводаОстатков <> Параметры.ДатаКонцаПериодаВыгрузки) Тогда ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 0); КонецЕсли; Если РазделУчета = "РасчетыПоНалогамИСборам" Тогда ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 0); КонецЕсли; Если (РазделУчета = "НезавершенноеПроизводство") ИЛИ (РазделУчета = "РасходыБудущихПериодов") Тогда // делим по подразделениям ПроводкиПоПодразделению = СоздатьОбъект("ТаблицаЗначений"); Проводки.Выгрузить(ПроводкиПоПодразделению); Проводки.НоваяКолонка("ПодразделениеОрганизации"); ПроводкиПоПодразделению.УдалитьСтроки(); Проводки.ВыбратьСтроки(); Пока Проводки.ПолучитьСтроку() = 1 Цикл Для НомерСтроки = 1 По Проводки.СубконтоДт.КоличествоСтрок() Цикл ТекЗнач = Проводки.СубконтоДт.ПолучитьЗначение(НомерСтроки, "Значение"); Если ТипЗначенияСтр(ТекЗнач) = "Справочник" Тогда Если ТекЗнач.Вид() = "Подразделения" Тогда Проводки.ПодразделениеОрганизации = ТекЗнач; Прервать; ИначеЕсли ТекЗнач.Вид() = "РасходыБудущихПериодов" Тогда Если ТипЗначенияСтр(ТекЗнач.Субконто1) = "Справочник" Тогда Если ТекЗнач.Субконто1.Вид() = "Подразделения" Тогда Проводки.ПодразделениеОрганизации = ТекЗнач.Субконто1; Прервать; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ТекЗнач.Субконто2) = "Справочник" Тогда Если ТекЗнач.Субконто2.Вид() = "Подразделения" Тогда Проводки.ПодразделениеОрганизации = ТекЗнач.Субконто2; Прервать; КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(ТекЗнач.Субконто3) = "Справочник" Тогда Если ТекЗнач.Субконто3.Вид() = "Подразделения" Тогда Проводки.ПодразделениеОрганизации = ТекЗнач.Субконто3; Прервать; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; Проводки.Сортировать("ПодразделениеОрганизации"); ТекПодразделение = ""; Проводки.ВыбратьСтроки(); Пока Проводки.ПолучитьСтроку() = 1 Цикл НомСтроки = 0; НомСтроки = Проводки.НомерСтроки; ПроводкиПоПодразделению.НоваяСтрока(); НомСтрокиПодразделения = ПроводкиПоПодразделению.КоличествоСтрок(); Для НомКолонки = 1 по ПроводкиПоПодразделению.КоличествоКолонок() Цикл ПроводкиПоПодразделению.УстановитьЗначение(НомСтрокиПодразделения, НомКолонки, Проводки.ПолучитьЗначение(НомСтроки, НомКолонки)); КонецЦикла; ТекПодразделение = Проводки.ПодразделениеОрганизации; Если НомСтроки < Проводки.КоличествоСтрок() Тогда СледПодразделение = Проводки.ПолучитьЗначение(НомСтроки + 1, "ПодразделениеОрганизации"); Иначе СледПодразделение = ""; КонецЕсли; Если ТекПодразделение <> СледПодразделение Тогда Если ПроводкиПоПодразделению.КоличествоСтрок() > 0 Тогда ВходящиеДанные.Установить("ВходящиеОстатки", ПроводкиПоПодразделению); ВходящиеДанные.Установить("ПодразделениеОрганизации", ТекПодразделение); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатков"); ПроводкиПоПодразделению.УдалитьСтроки(); КонецЕсли; КонецЕсли; КонецЦикла; Иначе ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводНачальныхОстатков"); КонецЕсли; Иначе ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить(РегистрБух, Проводки); ВходящиеДанные.Установить("Счет", Счет); ВходящиеДанные.Установить("Дата", БухИт.НачДата-1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ОперацияБух"); КонецЕсли; КонецЦикла; <Алгоритм Имя="ВыгрузитьОстаткиПоСчетуНУ" ИспользуетсяПриЗагрузке="false"> <Текст>// Выгрузка остатков с единственной группировкой по субконто. // Остаток по каждому субконто распределяется по указанным счетам бух учета // Перед распределением бухгалтерские итоги позиционируются на текущем // параметре выборки налоговых итогов. // Предполагается, что по счету есть только дебетовые остатки. СписокСчетовНУ = Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовНУ"); СписокСчетовПР = Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовПР"); СписокСчетовБУ = Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовБУ"); ВидСубконтоНУ = Параметры.ПараметрыАлгоритмов.Получить("ВидСубконтоНУ"); Количественный = Параметры.ПараметрыАлгоритмов.Получить("Количественный"); КодСчетаДт = Параметры.ПараметрыАлгоритмов.Получить("КодСчетаДт"); ДтКт = Параметры.ПараметрыАлгоритмов.Получить("ДтКт"); СчН02_01 = СчетПоКоду("Н02.01"); СчН02_09 = СчетПоКоду("Н02.09"); Сч08_3 = СчетПоКоду("08.3"); Сч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); НомерСубконто2 = ПорядокСубконто.ПолучитьЗначение(2); НомерСубконто3 = ПорядокСубконто.ПолучитьЗначение(3); ИтогиПоСубконто = СоздатьОбъект("ТаблицаЗначений"); ИтогиПоСубконто.НоваяКолонка("Счет"); ИтогиПоСубконто.НоваяКолонка("КодСчета"); ИтогиПоСубконто.НоваяКолонка("Субконто1"); ИтогиПоСубконто.НоваяКолонка("Субконто2"); ИтогиПоСубконто.НоваяКолонка("Субконто3"); ИтогиПоСубконто.НоваяКолонка("СНД1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК1", "Число"); ИтогиПоСубконто.НоваяКолонка("КО1", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО1", "Число"); ИтогиПоСубконто.НоваяКолонка("СНД3", "Число"); ИтогиПоСубконто.НоваяКолонка("СНК3", "Число"); ИтогиПоСубконто.НоваяКолонка("КО3", "Число"); ИтогиПоСубконто.НоваяКолонка("ДО3", "Число"); Табл10_7 = СоздатьОбъект("ТаблицаЗначений"); Табл10_7.Загрузить(ИтогиПоСубконто); Табл10_7.УдалитьСтроки(); ВедетсяУчетМПЗвПереработке = Константа.РаздельныйУчетМатериаловСкладПереработка.Получить(НУ.НачДата); НУ.ВыбратьСчета(); Пока НУ.ПолучитьСчет() = 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 Тогда ИтогиПоСубконто.УдалитьСтроки(); Табл10_7.УдалитьСтроки(); БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл Если (НУ.Счет = СчН02_09) и (БУ.Счет <> Сч10_7) Тогда Продолжить; ИначеЕсли БУ.Счет = Сч10_7 Тогда Если (ВедетсяУчетМПЗвПереработке = Да) и (НУ.Счет <> СчН02_09) Тогда БУ.ВыбратьСубконто(НомерСубконто2); Пока БУ.ПолучитьСубконто(НомерСубконто2) = 1 Цикл БУ.ВыбратьСубконто(НомерСубконто3); Пока БУ.ПолучитьСубконто(НомерСубконто3) = 1 Цикл Табл10_7.НоваяСтрока(); Табл10_7.Счет = БУ.Счет; Табл10_7.Субконто1 = БУ.Субконто(НомерСубконто1); Табл10_7.Субконто2 = БУ.Субконто(НомерСубконто2); Табл10_7.Субконто3 = БУ.Субконто(НомерСубконто3); Табл10_7.СНД1 = БУ.СНД(1); Табл10_7.СНК1 = БУ.СНК(1); Табл10_7.КО1 = БУ.КО(1); Табл10_7.ДО1 = БУ.ДО(1); Табл10_7.СНД3 = БУ.СНД(3); Табл10_7.СНК3 = БУ.СНК(3); Табл10_7.КО3 = БУ.КО(3); Табл10_7.ДО3 = БУ.ДО(3); КонецЦикла; КонецЦикла; Продолжить; КонецЕсли; Иначе КодСчета = КодСчетаДт; КонецЕсли; КоличествоУровней = БУ.Счет.КоличествоСубконто(); Если (КоличествоУровней > 1) и (БУ.Счет <> Сч10_11_1) и (БУ.Счет <> Сч10_11_2) и (БУ.Счет <> Сч08_3) Тогда БУ.ВыбратьСубконто(НомерСубконто2); Пока БУ.ПолучитьСубконто(НомерСубконто2) = 1 Цикл Если БУ.Субконто(НомерСубконто2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; Если КоличествоУровней > 2 Тогда БУ.ВыбратьСубконто(НомерСубконто3); Пока БУ.ПолучитьСубконто(НомерСубконто3) = 1 Цикл Если БУ.Субконто(НомерСубконто3).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = БУ.Счет; ИтогиПоСубконто.КодСчета = КодСчета; ИтогиПоСубконто.Субконто1 = БУ.Субконто(НомерСубконто1); ИтогиПоСубконто.Субконто2 = БУ.Субконто(НомерСубконто2); ИтогиПоСубконто.Субконто3 = БУ.Субконто(НомерСубконто3); ИтогиПоСубконто.СНД1 = БУ.СНД(1); ИтогиПоСубконто.СНК1 = БУ.СНК(1); ИтогиПоСубконто.КО1 = БУ.КО(1); ИтогиПоСубконто.ДО1 = БУ.ДО(1); Если БУ.Счет.Количественный = 1 Тогда ИтогиПоСубконто.СНД3 = БУ.СНД(3); ИтогиПоСубконто.СНК3 = БУ.СНК(3); ИтогиПоСубконто.КО3 = БУ.КО(3); ИтогиПоСубконто.ДО3 = БУ.ДО(3); КонецЕсли; КонецЦикла; Иначе ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = БУ.Счет; ИтогиПоСубконто.КодСчета = КодСчета; ИтогиПоСубконто.Субконто1 = БУ.Субконто(НомерСубконто1); ИтогиПоСубконто.Субконто2 = БУ.Субконто(НомерСубконто2); ИтогиПоСубконто.Субконто3 = ""; ИтогиПоСубконто.СНД1 = БУ.СНД(1); ИтогиПоСубконто.СНК1 = БУ.СНК(1); ИтогиПоСубконто.КО1 = БУ.КО(1); ИтогиПоСубконто.ДО1 = БУ.ДО(1); Если БУ.Счет.Количественный = 1 Тогда ИтогиПоСубконто.СНД3 = БУ.СНД(3); ИтогиПоСубконто.СНК3 = БУ.СНК(3); ИтогиПоСубконто.КО3 = БУ.КО(3); ИтогиПоСубконто.ДО3 = БУ.ДО(3); КонецЕсли; КонецЕсли; КонецЦикла; Иначе ИтогиПоСубконто.НоваяСтрока(); ИтогиПоСубконто.Счет = БУ.Счет; ИтогиПоСубконто.КодСчета = КодСчета; ИтогиПоСубконто.Субконто1 = БУ.Субконто(НомерСубконто1); ИтогиПоСубконто.Субконто2 = ""; ИтогиПоСубконто.Субконто3 = ""; ИтогиПоСубконто.СНД1 = БУ.СНД(1); ИтогиПоСубконто.СНК1 = БУ.СНК(1); ИтогиПоСубконто.КО1 = БУ.КО(1); ИтогиПоСубконто.ДО1 = БУ.ДО(1); Если БУ.Счет.Количественный = 1 Тогда ИтогиПоСубконто.СНД3 = БУ.СНД(3); ИтогиПоСубконто.СНК3 = БУ.СНК(3); ИтогиПоСубконто.КО3 = БУ.КО(3); ИтогиПоСубконто.ДО3 = БУ.ДО(3); КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Если (ВедетсяУчетМПЗвПереработке = Да) и (НУ.Счет <> СчН02_09) Тогда Иначе ИтогиПоСубконто.ВыбратьСтроки(); Пока ИтогиПоСубконто.ПолучитьСтроку() = 1 Цикл Если ИтогиПоСубконто.Счет.Код = "10.7" Тогда Табл10_7.НоваяСтрока(); Табл10_7.Счет = ИтогиПоСубконто.Счет; Табл10_7.КодСчета = ИтогиПоСубконто.КодСчета; Табл10_7.Субконто1 = ИтогиПоСубконто.Субконто1; Табл10_7.Субконто2 = ИтогиПоСубконто.Субконто2; Табл10_7.Субконто3 = ИтогиПоСубконто.Субконто3; Табл10_7.СНД1 = ИтогиПоСубконто.СНД1; Табл10_7.СНК1 = ИтогиПоСубконто.СНК1; Табл10_7.КО1 = ИтогиПоСубконто.КО1; Табл10_7.ДО1 = ИтогиПоСубконто.ДО1; Табл10_7.СНД3 = ИтогиПоСубконто.СНД3; Табл10_7.СНК3 = ИтогиПоСубконто.СНК3; Табл10_7.КО3 = ИтогиПоСубконто.КО3; Табл10_7.ДО3 = ИтогиПоСубконто.ДО3; КонецЕсли; КонецЦикла; КонецЕсли; Коэф = 1;//?(ВедетсяУчетМПЗвПереработке = Нет, 1, 0); СтоимостьБУ_Всего_10_7 = Коэф * ?(ДтКт = 1, Табл10_7.Итог("СНД1"), Табл10_7.Итог("СНК1")); КоличествоБУ_Всего_10_7 = Коэф * ?(ДтКт = 1, Табл10_7.Итог("СНД3"), Табл10_7.Итог("СНК3")); СтоимостьБУ_Всего = ?(ДтКт = 1, БУ.СНД(1), БУ.СНК(1)) - СтоимостьБУ_Всего_10_7; Если Количественный = 1 Тогда КоличествоБУ_Всего = ?(ДтКт = 1, БУ.СНД(3), БУ.СНК(3)) - КоличествоБУ_Всего_10_7; Иначе КоличествоБУ_Всего = 0; КонецЕсли; СтоимостьБУ_ТекИтог = 0; КоличествоБУ_ТекИтог = 0; РаспределеноНУ = 0; РаспределеноПР = 0; ИтогиПоСубконто.ВыбратьСтроки(); Пока ИтогиПоСубконто.ПолучитьСтроку() = 1 Цикл СтоимостьБУ = ?(ДтКт = 1, ИтогиПоСубконто.СНД1, ИтогиПоСубконто.СНК1); Если ИтогиПоСубконто.Счет.Количественный = 1 Тогда КоличествоБУ = ?(ДтКт = 1, ИтогиПоСубконто.СНД3, ИтогиПоСубконто.СНК3); КонецЕсли; Если (ИтогиПоСубконто.Счет.Количественный = 1) И ((КоличествоБУ) <> 0) Тогда ТекСтоимостьНУ = ?(КоличествоБУ_Всего + КоличествоБУ_Всего_10_7 = 0, 0, Окр(КоличествоБУ * СтоимостьНУ / (КоличествоБУ_Всего + КоличествоБУ_Всего_10_7), 2, 1)); ТекСтоимостьПР = ?(КоличествоБУ_Всего + КоличествоБУ_Всего_10_7 = 0, 0, Окр(КоличествоБУ * СтоимостьПР / (КоличествоБУ_Всего + КоличествоБУ_Всего_10_7), 2, 1)); Если ИтогиПоСубконто.Счет.Код = "10.7" Тогда ТекСтоимостьБУ = СтоимостьБУ; Иначе ТекСтоимостьБУ = ?(КоличествоБУ_Всего = 0, 0, Окр(КоличествоБУ * СтоимостьБУ_Всего / КоличествоБУ_Всего, 2, 1)); КонецЕсли; Иначе КоличествоБУ = 0; ТекСтоимостьНУ = ?(СтоимостьБУ_Всего = 0, 0, Окр(СтоимостьНУ * СтоимостьБУ / СтоимостьБУ_Всего, 2, 1)); ТекСтоимостьПР = ?(СтоимостьБУ_Всего = 0, 0, Окр(СтоимостьПР * СтоимостьБУ / СтоимостьБУ_Всего, 2, 1)); ТекСтоимостьБУ = СтоимостьБУ; КонецЕсли; РаспределеноНУ = РаспределеноНУ + ТекСтоимостьНУ; РаспределеноПР = РаспределеноПР + ТекСтоимостьПР; СтоимостьБУ_ТекИтог = СтоимостьБУ_ТекИтог + ТекСтоимостьБУ; КоличествоБУ_ТекИтог = КоличествоБУ_ТекИтог + КоличествоБУ; // Если текущий итог по колонке равен всей сумме колонки, // то это последняя проводка и ее сумму надо скорректировать. Если ИтогиПоСубконто.Счет.Количественный = 1 Тогда Если ((КоличествоБУ_ТекИтог = (КоличествоБУ_Всего + КоличествоБУ_Всего_10_7)) И (ВедетсяУчетМПЗвПереработке = Нет)) ИЛИ ((КоличествоБУ_ТекИтог = КоличествоБУ_Всего) И (ВедетсяУчетМПЗвПереработке = Да)) Тогда ТекСтоимостьНУ = ТекСтоимостьНУ + СтоимостьНУ - РаспределеноНУ; ТекСтоимостьПР = ТекСтоимостьПР + СтоимостьПР - РаспределеноПР; КонецЕсли; Иначе Если СтоимостьБУ_ТекИтог = СтоимостьБУ_Всего Тогда ТекСтоимостьНУ = ТекСтоимостьНУ + СтоимостьНУ - РаспределеноНУ; ТекСтоимостьПР = ТекСтоимостьПР + СтоимостьПР - РаспределеноПР; КонецЕсли; КонецЕсли; // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", ИтогиПоСубконто.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ИтогиПоСубконто.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ИтогиПоСубконто.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", ИтогиПоСубконто.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ИтогиПоСубконто.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ИтогиПоСубконто.Субконто3); Если ДтКт = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетДт", ИтогиПоСубконто.Счет); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ИтогиПоСубконто.КодСчета); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", СчетПоКоду("00")); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Иначе Параметры.ПараметрыАлгоритмов.Установить("СчетДт", СчетПоКоду("00")); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", ИтогиПоСубконто.Счет); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ИтогиПоСубконто.КодСчета); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", КоличествоБУ); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", КоличествоБУ); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьНУ); ДобавитьПроводкуНУ(); // Поддержка ПБУ 18 Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда ТекСтоимостьВР = ТекСтоимостьБУ - ТекСтоимостьНУ - ТекСтоимостьПР; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", 0); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", 0); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьПР); ДобавитьПроводкуНУ(); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", ТекСтоимостьВР); ДобавитьПроводкуНУ(); КонецЕсли; КонецЦикла; Иначе // нет остатков по бух. учету // Выгрузка начальных остатков. Параметры.ПараметрыАлгоритмов.Установить("ТаблицаПроводок", Проводки); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт1", ИтогиПоСубконто.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт2", ИтогиПоСубконто.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("СубконтоДт3", ИтогиПоСубконто.Субконто3); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт1", ИтогиПоСубконто.Субконто1); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт2", ИтогиПоСубконто.Субконто2); Параметры.ПараметрыАлгоритмов.Установить("СубконтоКт3", ИтогиПоСубконто.Субконто3); Если ДтКт = 1 Тогда Параметры.ПараметрыАлгоритмов.Установить("СчетДт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", СчетПоКоду("00")); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", КодСчетаДт); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", ""); Иначе Параметры.ПараметрыАлгоритмов.Установить("СчетДт", СчетПоКоду("00")); Параметры.ПараметрыАлгоритмов.Установить("СчетКт", НУ.Счет); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаДт", ""); Параметры.ПараметрыАлгоритмов.Установить("КодСчетаКт", КодСчетаДт); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "НУ"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоДт", КоличествоНУ); Параметры.ПараметрыАлгоритмов.Установить("КоличествоКт", КоличествоНУ); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьНУ); ДобавитьПроводкуНУ(); // Поддержка ПБУ 18 Если Константа.ПрименяетсяПБУ18.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = Да Тогда СтоимостьВР = - СтоимостьНУ - СтоимостьПР; Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ПР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьПР); ДобавитьПроводкуНУ(); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаДт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("ВидУчетаКт", "ВР"); Параметры.ПараметрыАлгоритмов.Установить("СуммаПроводки", СтоимостьВР); ДобавитьПроводкуНУ(); КонецЕсли; КонецЕсли; БУ.ПолучитьСубконто(1,, ""); БУ.ПолучитьПериод(, ""); КонецЦикла; // НУ.ВыбратьСубконто() КонецЦикла; // НУ.ВыбратьСчета() ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Налоговый", Проводки); ВходящиеДанные.Установить("Счет", СписокСчетовНУ); ВходящиеДанные.Установить("Дата", НУ.НачДата-1); ПодготовитьТаблицуОстатковНУ(); <Алгоритм Имя="ВыгрузитьСведенияОбИБ" ИспользуетсяПриЗагрузке="false"> <Текст>Идентификатор = "ИдентификаторКонфигурации"; Значение = глИдентификаторКонфигурации(); УстановитьАтрибут(rootNode, Идентификатор, Значение); //********************************************************** Идентификатор = "Конфигурация"; Значение = Метаданные.Идентификатор; УстановитьАтрибут(rootNode, Идентификатор, Значение); //********************************************************** Идентификатор = "НомерРелиза"; Значение = Константа.НомерРелиза; УстановитьАтрибут(rootNode, Идентификатор, Значение); //********************************************************** Идентификатор = "Организация"; Значение = ?(ПустоеЗначение(Константа.НазваниеОрганизации) = 0, Константа.НазваниеОрганизации, Константа.ОфициальноеНазваниеОрганизации); УстановитьАтрибут(rootNode, Идентификатор, Значение); //********************************************************** Идентификатор = "ИНН"; Значение = Лев(Константа.ИННОрганизации, 10); УстановитьАтрибут(rootNode, Идентификатор, Значение); //********************************************************** Идентификатор = "КПП"; Значение = Сред(Константа.ИННОрганизации, 12, 9); УстановитьАтрибут(rootNode, Идентификатор, Значение); //********************************************************** Идентификатор = "УчетЗарплатыВоВнешнейПрограмме"; Значение = ?(Константа.УчетЗарплатыВоВнешнейПрограмме = Перечисление.Булево.Нет, 0, 0); УстановитьАтрибут(rootNode, Идентификатор, Значение); //********************************************************** Идентификатор = "ИДПравил"; Значение = "ВыгрузкаДокументов"; УстановитьАтрибут(rootNode, Идентификатор, Значение); <Алгоритм Имя="ДанныеПоНДСпоАвансамВыданным" ИспользуетсяПриЗагрузке="false"> <Текст>ДанныеПоСФ = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.НоваяКолонка("Контрагент"); ДанныеПоСФ.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоСФ.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДанныеПоСФ.НоваяКолонка("ДатаСФ"); ДанныеПоСФ.НоваяКолонка("НомерСФ", "Строка"); ДанныеПоСФ.НоваяКолонка("ВидЦенности", "Строка"); ДанныеПоСФ.НоваяКолонка("Номенклатура"); ДанныеПоСФ.НоваяКолонка("СтавкаНДС", "Строка"); ДанныеПоСФ.НоваяКолонка("СуммаБезНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ЗадолженностьВал", "Число"); ДанныеПоСФ.НоваяКолонка("НДС", "Число"); ДанныеПоСФ.НоваяКолонка("КлючСтроки"); ДанныеПоСФ.НоваяКолонка("СчетФактура"); ДанныеПоСФ.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ВалютаАванса"); ДанныеПоСФ.НоваяКолонка("Исправление"); ДанныеПоСФ.НоваяКолонка("НомерИсправления"); ДанныеПоСФ.НоваяКолонка("ДатаИсправления"); ДанныеПоСФ.НоваяКолонка("КорректировочныйСчетФактура"); ДанныеПоСФ.НоваяКолонка("НомерИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); ДополнительныеСведения = СоздатьОбъект("ТаблицаЗначений"); ДополнительныеСведения.НоваяКолонка("КлючСтроки"); ДополнительныеСведения.НоваяКолонка("Событие"); ДополнительныеСведения.НоваяКолонка("СчетУчета"); ДополнительныеСведения.НоваяКолонка("СуммаБезНДС", "Число"); ДополнительныеСведения.НоваяКолонка("НДС", "Число"); ДополнительныеСведения.НоваяКолонка("ВидЦенности", "Строка"); ДополнительныеСведения.НоваяКолонка("Номенклатура"); ДополнительныеСведения.НоваяКолонка("СтавкаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ///****** ДополнительныеСведения.НоваяКолонка("Контрагент"); ДополнительныеСведения.НоваяКолонка("ДоговорКонтрагента"); ДополнительныеСведения.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДополнительныеСведения.НоваяКолонка("ДатаСФ"); ДополнительныеСведения.НоваяКолонка("НомерСФ", "Строка"); ДополнительныеСведения.НоваяКолонка("ПредъявленСФ", "Число"); ДополнительныеСведения.НоваяКолонка("СчетФактура"); ДополнительныеСведения.НоваяКолонка("ВалютаАванса"); ДополнительныеСведения.НоваяКолонка("Исправление"); ДополнительныеСведения.НоваяКолонка("НомерИсправления"); ДополнительныеСведения.НоваяКолонка("ДатаИсправления"); ДополнительныеСведения.НоваяКолонка("КорректировочныйСчетФактура"); ДополнительныеСведения.НоваяКолонка("НомерИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); Опер = СоздатьОбъект("Операция"); Сч76_ВА = СчетПоКоду("76.ВА"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты); БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные); БухИт.ВыполнитьЗапрос(, Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), "76.ВА"); ТаблицаСтавок = СоздатьОбъект("ТаблицаЗначений"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Док = БухИт.Субконто(2); Если ПустоеЗначение(Док) = 1 Тогда Продолжить; ИначеЕсли (Док.Вид()<>"СчетФактураПолученный") И (Док.Вид()<>"ИсправлениеСчетаФактурыПолученного") Тогда Продолжить; ИначеЕсли ПустоеЗначение(Док.Договор) = 1 Тогда Сообщить("Не выгружены данные по счету-фактуре """ + Док + """: не указан договор.", "!"); Продолжить; КонецЕсли; Если Метаданные.Документ(Док.Вид()).РеквизитШапки("ДатаНомерСчетаФактуры").Выбран() = 0 Тогда НомерСФ = Док.НомерДок; ДатаСФ = Док.ДатаДок; Иначе ДатаНомер = СокрЛП(Док.ДатаНомерСчетаФактуры); Если ПустоеЗначение(ДатаНомер) = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",СокрЛП(ДатаНомер)); ПолучитьДатуИНомерСФ(); НомерСФ = Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры"); ДатаСФ = Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры"); Иначе ДатаСФ = Док.ДатаДок; НомерСФ = Док.НомерДок; КонецЕсли; КонецЕсли; ВидЦенности = "АвансыВыданные"; Договор = Док.Договор; Курс = 1; Кратность = 1; Валюта = Параметры.Рубли; ДанныеПоСФ.НоваяСтрока(); ДанныеПоСФ.Контрагент = Док.Контрагент; ДанныеПоСФ.ДоговорКонтрагента = Договор; ДанныеПоСФ.ДатаСФ = ДатаСФ; ДанныеПоСФ.НомерСФ = НомерСФ; ДанныеПоСФ.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДанныеПоСФ.СчетФактура = Док; ДанныеПоСФ.ВалютаАванса = Параметры.Рубли; Если Док.Вид()="ИсправлениеСчетаФактурыПолученного" Тогда ДанныеПоСФ.Исправление = 1; ДанныеПоСФ.НомерИсправления = Док.НомерИсправления; ДанныеПоСФ.ДатаИсправления = Док.ДатаИсправления; КонецЕсли; ТаблицаСтавок.Очистить(); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.НоваяКолонка("НДС"); Если (Док.СуммаБезНДС20 + Док.НДС20) <> 0 Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ВидЦенности; ТаблицаСтавок.СуммаБезНДС = Док.СуммаБезНДС20; ТаблицаСтавок.НДС = Док.НДС20; ТаблицаСтавок.Ставка = "НДС18_118"; КонецЕсли; Если (Док.СуммаБезНДС10 + Док.НДС10) <> 0 Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ВидЦенности; ТаблицаСтавок.СуммаБезНДС = Док.СуммаБезНДС10; ТаблицаСтавок.НДС = Док.НДС10; ТаблицаСтавок.Ставка = "НДС10_110"; КонецЕсли; ТаблицаСтавок.Сортировать("Ставка"); ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ДополнительныеСведения.НоваяСтрока(); ДополнительныеСведения.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДополнительныеСведения.СуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ДополнительныеСведения.НДС = ТаблицаСтавок.НДС; ДополнительныеСведения.ВидЦенности = ВидЦенности; ДополнительныеСведения.СтавкаНДС = ТаблицаСтавок.Ставка; ДополнительныеСведения.Контрагент = ДанныеПоСФ.Контрагент; ДополнительныеСведения.ДоговорКонтрагента = ДанныеПоСФ.ДоговорКонтрагента; ДополнительныеСведения.ДатаСФ = ДанныеПоСФ.ДатаСФ; ДополнительныеСведения.НомерСФ = ДанныеПоСФ.НомерСФ; ДополнительныеСведения.ПредъявленСФ = 1; ДополнительныеСведения.СчетФактура = ДанныеПоСФ.СчетФактура; ДополнительныеСведения.ВалютаАванса = ДанныеПоСФ.ВалютаАванса; ДополнительныеСведения.СчетУчета = Сч76_ВА; ДополнительныеСведения.Исправление = ДанныеПоСФ.Исправление; ДополнительныеСведения.НомерИсправления = ДанныеПоСФ.НомерИсправления; ДополнительныеСведения.ДатаИсправления = ДанныеПоСФ.ДатаИсправления; КонецЦикла; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("СчетУчетаНДС", Сч76_ВА); ВходящиеДанные.Установить("ДанныеПоСФНДС", ДополнительныеСведения); ВходящиеДанные.Установить("РазделУчета", "НДСПоАвансамПолученным"); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводОстатковНДС"); <Алгоритм Имя="ДанныеПоНДСпоАвансамПолученным" ИспользуетсяПриЗагрузке="false"> <Текст>ДанныеПоСФ = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.НоваяКолонка("Контрагент"); ДанныеПоСФ.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоСФ.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДанныеПоСФ.НоваяКолонка("ДатаСФ"); ДанныеПоСФ.НоваяКолонка("НомерСФ", "Строка"); ДанныеПоСФ.НоваяКолонка("ВидЦенности", "Строка"); ДанныеПоСФ.НоваяКолонка("Номенклатура"); ДанныеПоСФ.НоваяКолонка("СтавкаНДС", "Строка"); ДанныеПоСФ.НоваяКолонка("СуммаБезНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ЗадолженностьВал", "Число"); ДанныеПоСФ.НоваяКолонка("НДС", "Число"); ДанныеПоСФ.НоваяКолонка("КлючСтроки"); ДанныеПоСФ.НоваяКолонка("СчетФактура"); ДанныеПоСФ.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ВалютаАванса"); ДанныеПоСФ.НоваяКолонка("Исправление"); ДанныеПоСФ.НоваяКолонка("НомерИсправления"); ДанныеПоСФ.НоваяКолонка("ДатаИсправления"); ДанныеПоСФ.НоваяКолонка("КорректировочныйСчетФактура"); ДанныеПоСФ.НоваяКолонка("НомерИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); ДополнительныеСведения = СоздатьОбъект("ТаблицаЗначений"); ДополнительныеСведения.НоваяКолонка("КлючСтроки"); ДополнительныеСведения.НоваяКолонка("Событие"); ДополнительныеСведения.НоваяКолонка("СчетУчета"); ДополнительныеСведения.НоваяКолонка("СуммаБезНДС", "Число"); ДополнительныеСведения.НоваяКолонка("НДС", "Число"); ДополнительныеСведения.НоваяКолонка("ВидЦенности", "Строка"); ДополнительныеСведения.НоваяКолонка("Номенклатура"); ДополнительныеСведения.НоваяКолонка("СтавкаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ///****** ДополнительныеСведения.НоваяКолонка("Контрагент"); ДополнительныеСведения.НоваяКолонка("ДоговорКонтрагента"); ДополнительныеСведения.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДополнительныеСведения.НоваяКолонка("ДатаСФ"); ДополнительныеСведения.НоваяКолонка("НомерСФ", "Строка"); ДополнительныеСведения.НоваяКолонка("ПредъявленСФ", "Число"); ДополнительныеСведения.НоваяКолонка("СчетФактура"); ДополнительныеСведения.НоваяКолонка("ВалютаАванса"); ДополнительныеСведения.НоваяКолонка("Исправление"); ДополнительныеСведения.НоваяКолонка("НомерИсправления"); ДополнительныеСведения.НоваяКолонка("ДатаИсправления"); ДополнительныеСведения.НоваяКолонка("КорректировочныйСчетФактура"); ДополнительныеСведения.НоваяКолонка("НомерИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); Опер = СоздатьОбъект("Операция"); Сч76_АВ = СчетПоКоду("76.АВ"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты); БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные); БухИт.ВыполнитьЗапрос(, Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), "76.АВ"); СчетаФактурыВВалюте = СоздатьОбъект("СписокЗначений"); БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Если ПустоеЗначение(БухИт.Субконто()) = 0 Тогда Если (БухИт.СКД() <> 0) и (ПустоеЗначение(БухИт.Субконто(2).Валюта) = 0) Тогда СчетаФактурыВВалюте.ДобавитьЗначение(БухИт.Субконто(2)); КонецЕсли; КонецЕсли; КонецЦикла; Если СчетаФактурыВВалюте.РазмерСписка() > 0 Тогда БухИтВал = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтВал.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные, СчетаФактурыВВалюте, 2); БухИтВал.ВыполнитьЗапрос('01.01.1980', Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), "76.АВ",,, 2); КонецЕсли; ТаблицаСтавок = СоздатьОбъект("ТаблицаЗначений"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Док = БухИт.Субконто(2); Если ПустоеЗначение(Док) = 1 Тогда Продолжить; ИначеЕсли (Док.Вид()<>"СчетФактура") И (Док.Вид()<>"ИсправлениеСчетаФактуры") Тогда Продолжить; ИначеЕсли ПустоеЗначение(Док.Договор) = 1 Тогда Сообщить("Не выгружены данные по счету-фактуре """ + Док + """: не указан договор.", "!"); Продолжить; КонецЕсли; ДатаСФ = Док.ДатаДок; НомерСФ = Док.НомерДок; ДатаРД = ?(ПустоеЗначение(Док.ДатаПлатРасчДок) = 1, Док.ДатаДок, Док.ДатаПлатРасчДок); НомерРД = Док.НомерПлатРасчДок; ВидЦенности = ?(Док.НДСпоСтавкеНольПроцентов = 1 ,"АвансыПолученные0", "АвансыПолученные"); Договор = Док.Договор; ЦеныВДоговоре = 1; // в рублях ОплатаДоговора = 1; ВестиУчетРасчетовУЕ = 0; Курс = 1; Кратность = 1; Валюта = Параметры.Рубли; Если Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Договор.ВалютаДоговора) = 0 Тогда ЦеныВДоговоре = 2; // в валюте КонецЕсли; ОплатаДоговора = Договор.ОплатаДоговора; // 1 - врублях, 2 - в валюте ВестиУчетРасчетовУЕ = Договор.ВестиУчетРасчетовУЕ; КонецЕсли; Если ЦеныВДоговоре = 2 Тогда Курс = Док.Курс; Валюта = Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Док.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КонецЕсли; ДанныеПоСФ.НоваяСтрока(); ДанныеПоСФ.Контрагент = Док.Контрагент; ДанныеПоСФ.ДоговорКонтрагента = Договор; ДанныеПоСФ.ДатаСФ = ДатаСФ; ДанныеПоСФ.НомерСФ = НомерСФ; ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента = ДатаРД; ДанныеПоСФ.НомерПлатежноРасчетногоДокумента = НомерРД; ДанныеПоСФ.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДанныеПоСФ.СчетФактура = Док; ДанныеПоСФ.ВалютаАванса = ?(ОплатаДоговора = 2, Валюта, Параметры.Рубли); Если Док.Вид()="ИсправлениеСчетаФактуры" Тогда ДанныеПоСФ.Исправление = 1; ДанныеПоСФ.НомерИсправления = Док.НомерИсправления; ДанныеПоСФ.ДатаИсправления = Док.ДатаДок; КонецЕсли; ТаблицаСтавок.Очистить(); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.НоваяКолонка("НДС"); ТаблицаСтавок.НоваяКолонка("ЗадолженностьВал", "Число"); Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ВидЦенности; ТаблицаСтавок.СуммаБезНДС = Док.Сумма; ТаблицаСтавок.НДС = Док.НДС; ТаблицаСтавок.ЗадолженностьВал = Док.Сумма; Ставка = ?(ПустоеЗначение(Док.СтавкаНДС) = 0, Док.СтавкаНДС.Ставка, 0); Если Ставка > 10.5 Тогда Если Док.ДатаДок < '01.01.2004' Тогда ТаблицаСтавок.Ставка = "НДС20_120"; Иначе ТаблицаСтавок.Ставка = "НДС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; ДополнительныеСведения.СчетФактура = ДанныеПоСФ.СчетФактура; ДополнительныеСведения.ВалютаАванса = ДанныеПоСФ.ВалютаАванса; ДополнительныеСведения.СчетУчета = Сч76_АВ; ДополнительныеСведения.Исправление = ДанныеПоСФ.Исправление; ДополнительныеСведения.НомерИсправления = ДанныеПоСФ.НомерИсправления; ДополнительныеСведения.ДатаИсправления = ДанныеПоСФ.ДатаИсправления; ДанныеПоСФ.СуммаБезНДС = ДанныеПоСФ.СуммаБезНДС + ТаблицаСтавок.СуммаБезНДС - ТаблицаСтавок.НДС; ДанныеПоСФ.НДС = ДанныеПоСФ.НДС + ТаблицаСтавок.НДС; ДанныеПоСФ.ЗадолженностьВал = ДанныеПоСФ.ЗадолженностьВал + ТаблицаСтавок.ЗадолженностьВал; ДанныеПоСФ.ВалютнаяСуммаСНДС = ДанныеПоСФ.ВалютнаяСуммаСНДС + ТаблицаСтавок.ЗадолженностьВал; КонецЦикла; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("СчетУчетаНДС", Сч76_АВ); ВходящиеДанные.Установить("ДанныеПоСФНДС", ДополнительныеСведения); ВходящиеДанные.Установить("РазделУчета", "НДСПоАвансамПолученным"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводОстатковНДС"); <Алгоритм Имя="ДанныеПоНДСпоПокупателям" ИспользуетсяПриЗагрузке="false"> <Текст>ДанныеПоСФ = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.НоваяКолонка("Контрагент"); ДанныеПоСФ.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоСФ.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДанныеПоСФ.НоваяКолонка("ДатаСФ"); ДанныеПоСФ.НоваяКолонка("НомерСФ", "Строка"); ДанныеПоСФ.НоваяКолонка("ВидЦенности", "Строка"); ДанныеПоСФ.НоваяКолонка("СтавкаНДС", "Строка"); ДанныеПоСФ.НоваяКолонка("СуммаБезНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ЗадолженностьВал", "Число"); ДанныеПоСФ.НоваяКолонка("НДС", "Число"); ДанныеПоСФ.НоваяКолонка("КлючСтроки"); ДанныеПоСФ.НоваяКолонка("СчетФактура"); ДанныеПоСФ.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ВалютаАванса"); ДанныеПоСФ.НоваяКолонка("Исправление"); ДанныеПоСФ.НоваяКолонка("НомерИсправления"); ДанныеПоСФ.НоваяКолонка("ДатаИсправления"); ДанныеПоСФ.НоваяКолонка("КорректировочныйСчетФактура"); ДанныеПоСФ.НоваяКолонка("НомерИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); ДополнительныеСведения = СоздатьОбъект("ТаблицаЗначений"); ДополнительныеСведения.НоваяКолонка("КлючСтроки"); ДополнительныеСведения.НоваяКолонка("Событие"); ДополнительныеСведения.НоваяКолонка("СчетУчета"); ДополнительныеСведения.НоваяКолонка("СуммаБезНДС", "Число"); ДополнительныеСведения.НоваяКолонка("НДС", "Число"); ДополнительныеСведения.НоваяКолонка("ВидЦенности", "Строка"); ДополнительныеСведения.НоваяКолонка("СтавкаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ///****** ДополнительныеСведения.НоваяКолонка("Контрагент"); ДополнительныеСведения.НоваяКолонка("ДоговорКонтрагента"); ДополнительныеСведения.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДополнительныеСведения.НоваяКолонка("ДатаСФ"); ДополнительныеСведения.НоваяКолонка("НомерСФ", "Строка"); ДополнительныеСведения.НоваяКолонка("ПредъявленСФ", "Число"); ДополнительныеСведения.НоваяКолонка("СчетФактура"); ДополнительныеСведения.НоваяКолонка("ВалютаАванса"); ДополнительныеСведения.НоваяКолонка("Исправление"); ДополнительныеСведения.НоваяКолонка("НомерИсправления"); ДополнительныеСведения.НоваяКолонка("ДатаИсправления"); ДополнительныеСведения.НоваяКолонка("КорректировочныйСчетФактура"); ДополнительныеСведения.НоваяКолонка("НомерИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные); //Если Параметры.ДатаКонцаПериодаВыгрузки = Параметры.ДатаВводаОстатков Тогда // БухИт.ВыполнитьЗапрос(Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), , "76.Н.1"); //Иначе БухИт.ВыполнитьЗапрос(, Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), "76.Н.1"); //КонецЕсли; СчетаФактурыВВалюте = СоздатьОбъект("СписокЗначений"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если ПустоеЗначение(БухИт.Субконто()) = 0 Тогда Если (БухИт.СКК() <> 0) и (ПустоеЗначение(БухИт.Субконто(1).Валюта) = 0) Тогда СчетаФактурыВВалюте.ДобавитьЗначение(БухИт.Субконто(1)); КонецЕсли; КонецЕсли; КонецЦикла; Если СчетаФактурыВВалюте.РазмерСписка() > 0 Тогда БухИтВал = СоздатьОбъект("БухгалтерскиеИтоги"); БухИтВал.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные, СчетаФактурыВВалюте, 2); БухИтВал.ВыполнитьЗапрос('01.01.1980', Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), "76.Н.1",,, 2); КонецЕсли; ТаблицаСтавок = СоздатьОбъект("ТаблицаЗначений"); Опер = СоздатьОбъект("Операция"); Сч76_Н_1 = СчетПоКоду("76.Н.1"); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Док = БухИт.Субконто(1); Если ПустоеЗначение(Док) = 1 Тогда Продолжить; ИначеЕсли ПустоеЗначение(Док.Договор) = 1 Тогда Сообщить("Не выгружены данные по счету-фактуре """ + Док + """: не указан договор.", "!"); Продолжить; КонецЕсли; ДатаСФ = Док.ДатаДок; НомерСФ = Док.НомерДок; Договор = Док.Договор; ДанныеПоСФ.НоваяСтрока(); ДанныеПоСФ.Контрагент = Док.Контрагент; ДанныеПоСФ.ДоговорКонтрагента = Договор; ДанныеПоСФ.ДатаСФ = ДатаСФ; ДанныеПоСФ.НомерСФ = НомерСФ; ДанныеПоСФ.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДанныеПоСФ.СчетФактура = Док; ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента = ?(ПустоеЗначение(Док.ДатаПлатРасчДок) = 1, Док.ДатаДок, Док.ДатаПлатРасчДок); ДанныеПоСФ.НомерПлатежноРасчетногоДокумента = Док.НомерПлатРасчДок; ТаблицаСтавок.Очистить(); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("Номенклатура"); ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.НоваяКолонка("НДС"); Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл Вид = Док.Товар.Вид(); Если Вид = "Номенклатура" Тогда Если Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если Док.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда Продолжить; ИначеЕсли Док.Товар.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда Продолжить; Иначе ВидЦенности = "Товары"; КонецЕсли; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда ВидЦенности = "Товары"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда ВидЦенности = "Товары"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Услуга Тогда ВидЦенности = "ПрочиеРаботыИУслуги"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Работа Тогда ВидЦенности = "ПрочиеРаботыИУслуги"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.ПосредническаяУслуга Тогда ВидЦенности = "ПосредническиеУслуги"; ИначеЕсли Док.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда Продолжить; Иначе ВидЦенности = "Товары"; КонецЕсли; ИначеЕсли Вид = "Материалы" Тогда ВидЦенности = "Материалы"; ИначеЕсли Вид = "ОсновныеСредства" Тогда ВидЦенности = "ОС"; ИначеЕсли Вид = "НематериальныеАктивы" Тогда ВидЦенности = "НМА"; Иначе ВидЦенности = "Товары"; КонецЕсли; ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ВидЦенности; ТаблицаСтавок.Номенклатура = Док.Товар; ТаблицаСтавок.СуммаБезНДС = Док.Сумма; ТаблицаСтавок.НДС = Док.НДС; Если Док.НДСпоСтавкеНольПроцентов = 1 Тогда ТаблицаСтавок.Ставка = "НДС0" Иначе Ставка = ?(ПустоеЗначение(Док.СтавкаНДС) = 0, Док.СтавкаНДС.Ставка, 0); Если Ставка > 10.5 Тогда Если Док.ДатаДок < '01.01.2004' Тогда ТаблицаСтавок.Ставка = "НДС20"; Иначе ТаблицаСтавок.Ставка = "НДС18"; КонецЕсли; ИначеЕсли Ставка > 0 Тогда ТаблицаСтавок.Ставка = "НДС10"; Иначе ТаблицаСтавок.Ставка = "БезНДС"; КонецЕсли; КонецЕсли; КонецЦикла; ЦеныВДоговоре = 1; // в рублях ОплатаДоговора = 1; ВестиУчетРасчетовУЕ = 0; Курс = 1; Кратность = 1; Если Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Договор.ВалютаДоговора) = 0 Тогда ЦеныВДоговоре = 2; // в валюте КонецЕсли; ОплатаДоговора = Договор.ОплатаДоговора; // 1 - врублях, 2 - в валюте ВестиУчетРасчетовУЕ = Договор.ВестиУчетРасчетовУЕ; КонецЕсли; Если ЦеныВДоговоре = 2 Тогда Курс = Док.Курс; Валюта = Договор.ВалютаДоговора; Кратность = Валюта.Кратность.Получить(Док.ДатаДок); Кратность = ?(Кратность=0, 1, Кратность); Если ВестиУчетРасчетовУЕ = 1 Тогда Кратность = Кратность * 100 / (100 + Договор.ПроцентКорректировкиКурсаУЕ); КонецЕсли; КонецЕсли; ТаблицаСтавок.НоваяКолонка("ЗадолженностьВал", "Число"); ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл Если (ТаблицаСтавок.Ставка = "НДС18") или (ТаблицаСтавок.Ставка = "НДС10") или (ТаблицаСтавок.Ставка = "НДС20") Тогда ТаблицаСтавок.ЗадолженностьВал = ТаблицаСтавок.СуммаБезНДС + ТаблицаСтавок.НДС; Иначе ТаблицаСтавок.ЗадолженностьВал = ТаблицаСтавок.СуммаБезНДС; КонецЕсли; КонецЦикла; ТаблицаСтавок.Свернуть("ВидЦенности,Номенклатура,Ставка", "СуммаБезНДС,НДС,ЗадолженностьВал"); ТаблицаСтавок.Сортировать("Ставка"); НомСтроки = 1; Пока НомСтроки <= ТаблицаСтавок.КоличествоСтрок() Цикл Если ТаблицаСтавок.ПолучитьЗначение(НомСтроки, "НДС") = 0 Тогда ТаблицаСтавок.УдалитьСтроку(НомСтроки); Иначе НомСтроки = НомСтроки + 1; КонецЕсли; КонецЦикла; ТекущееСальдо = БухИт.СКК(); РаспределеноСуммаБезНДС = 0; СуммаПоКолонкеСуммаБезНДС = 0; РаспределеноНДС = 0; СуммаПоКолонкеНДС = ТаблицаСтавок.Итог("НДС"); Если СуммаПоКолонкеНДС <> 0 Тогда ЗначениеКолонкиНДС = 0; ЗначениеКолонкиСуммаБезНДС = 0; Если (ОплатаДоговора = 2) или (ВестиУчетРасчетовУЕ = 1) Тогда Если БухИтВал.ПолучитьСубконто(1,, Док) = 1 Тогда СуммаНДСВсегоРуб = БухИтВал.КО(); Иначе СуммаНДСВсегоРуб = 0; КонецЕсли; Если СуммаНДСВсегоРуб = 0 Тогда Продолжить; КонецЕсли; Иначе СуммаНДСВсегоРуб = СуммаПоКолонкеНДС; КонецЕсли; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ЗначениеКолонкиНДС = ТаблицаСтавок.НДС; ЗначениеКолонкиСуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ЗначениеКолонкиЗадолженность = ТаблицаСтавок.ЗадолженностьВал; ЗначениеКолонкиНДС = Окр(ЗначениеКолонкиНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиСуммаБезНДС = Окр(ЗначениеКолонкиСуммаБезНДС * ТекущееСальдо / СуммаПоКолонкеНДС, 2, 1); ЗначениеКолонкиЗадолженность = Окр(ЗначениеКолонкиЗадолженность * ТекущееСальдо / СуммаНДСВсегоРуб, 2, 1); РаспределеноНДС = РаспределеноНДС + ЗначениеКолонкиНДС; РаспределеноСуммаБезНДС = РаспределеноСуммаБезНДС + ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.НДС = ЗначениеКолонкиНДС; ТаблицаСтавок.СуммаБезНДС = ЗначениеКолонкиСуммаБезНДС; ТаблицаСтавок.ЗадолженностьВал = ЗначениеКолонкиЗадолженность; КонецЦикла; НомПоследнейСтроки = ТаблицаСтавок.КоличествоСтрок(); Если РаспределеноНДС <> ТекущееСальдо Тогда ЗначениеКолонкиНДС = ЗначениеКолонкиНДС + ТекущееСальдо - РаспределеноНДС; ТаблицаСтавок.УстановитьЗначение(НомПоследнейСтроки, "НДС", ЗначениеКолонкиНДС); КонецЕсли; КонецЕсли; ТаблицаСтавок.ВыбратьСтроки(); Пока ТаблицаСтавок.ПолучитьСтроку() = 1 Цикл ДополнительныеСведения.НоваяСтрока(); ДополнительныеСведения.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДополнительныеСведения.СуммаБезНДС = ТаблицаСтавок.СуммаБезНДС; ДополнительныеСведения.НДС = ТаблицаСтавок.НДС; ДополнительныеСведения.ВидЦенности = ?(ТаблицаСтавок.ВидЦенности = "", ВидЦенности, ТаблицаСтавок.ВидЦенности); ДополнительныеСведения.СтавкаНДС = ТаблицаСтавок.Ставка; ДополнительныеСведения.Контрагент = ДанныеПоСФ.Контрагент; ДополнительныеСведения.ДоговорКонтрагента = ДанныеПоСФ.ДоговорКонтрагента; ДополнительныеСведения.ДатаПлатежноРасчетногоДокумента = ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента; ДополнительныеСведения.НомерПлатежноРасчетногоДокумента = ДанныеПоСФ.НомерПлатежноРасчетногоДокумента; ДополнительныеСведения.ДатаСФ = ДанныеПоСФ.ДатаСФ; ДополнительныеСведения.НомерСФ = ДанныеПоСФ.НомерСФ; ДополнительныеСведения.ПредъявленСФ = 1; ДополнительныеСведения.СчетФактура = ДанныеПоСФ.СчетФактура; ДополнительныеСведения.ВалютаАванса = ДанныеПоСФ.ВалютаАванса; ДанныеПоСФ.СуммаБезНДС = ДанныеПоСФ.СуммаБезНДС + ТаблицаСтавок.СуммаБезНДС; ДанныеПоСФ.НДС = ДанныеПоСФ.НДС + ТаблицаСтавок.НДС; ДанныеПоСФ.ЗадолженностьВал = ДанныеПоСФ.ЗадолженностьВал + ТаблицаСтавок.ЗадолженностьВал; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("СчетУчетаНДС", Сч76_Н_1); ВходящиеДанные.Установить("ДанныеПоСФНДС", ДополнительныеСведения); ВходящиеДанные.Установить("РазделУчета", "НДСНачисленный"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводОстатковНДС"); <Алгоритм Имя="ДанныеПоНДСпоПоставщикам" ИспользуетсяПриЗагрузке="false"> <Текст>ДанныеПоСФ = СоздатьОбъект("ТаблицаЗначений"); ДанныеПоСФ.НоваяКолонка("Контрагент"); ДанныеПоСФ.НоваяКолонка("ДоговорКонтрагента"); ДанныеПоСФ.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДанныеПоСФ.НоваяКолонка("ДатаСФ"); ДанныеПоСФ.НоваяКолонка("НомерСФ", "Строка"); ДанныеПоСФ.НоваяКолонка("ВидЦенности", "Строка"); ДанныеПоСФ.НоваяКолонка("СтавкаНДС", "Строка"); ДанныеПоСФ.НоваяКолонка("ПредъявленСФ", "Число"); ДанныеПоСФ.НоваяКолонка("СуммаБезНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ЗадолженностьВал", "Число"); ДанныеПоСФ.НоваяКолонка("НДС", "Число"); ДанныеПоСФ.НоваяКолонка("КлючСтроки"); ДанныеПоСФ.НоваяКолонка("СчетФактура"); ДанныеПоСФ.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ДанныеПоСФ.НоваяКолонка("ВалютаАванса"); ДанныеПоСФ.НоваяКолонка("Исправление"); ДанныеПоСФ.НоваяКолонка("НомерИсправления"); ДанныеПоСФ.НоваяКолонка("ДатаИсправления"); ДанныеПоСФ.НоваяКолонка("КорректировочныйСчетФактура"); ДанныеПоСФ.НоваяКолонка("НомерИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДанныеПоСФ.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); ДополнительныеСведения = СоздатьОбъект("ТаблицаЗначений"); ДополнительныеСведения.НоваяКолонка("КлючСтроки"); ДополнительныеСведения.НоваяКолонка("Событие"); ДополнительныеСведения.НоваяКолонка("СчетУчета"); ДополнительныеСведения.НоваяКолонка("СуммаБезНДС", "Число"); ДополнительныеСведения.НоваяКолонка("НДС", "Число"); ДополнительныеСведения.НоваяКолонка("ВидЦенности", "Строка"); ДополнительныеСведения.НоваяКолонка("СтавкаНДС", "Строка"); ДополнительныеСведения.НоваяКолонка("ВалютнаяСуммаСНДС", "Число"); ///****** ДополнительныеСведения.НоваяКолонка("Контрагент"); ДополнительныеСведения.НоваяКолонка("ДоговорКонтрагента"); ДополнительныеСведения.НоваяКолонка("ДатаПлатежноРасчетногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерПлатежноРасчетногоДокумента", "Строка"); ДополнительныеСведения.НоваяКолонка("ДатаСФ"); ДополнительныеСведения.НоваяКолонка("НомерСФ", "Строка"); ДополнительныеСведения.НоваяКолонка("ПредъявленСФ", "Число"); ДополнительныеСведения.НоваяКолонка("СчетФактура"); ДополнительныеСведения.НоваяКолонка("ВалютаАванса"); ДополнительныеСведения.НоваяКолонка("Исправление"); ДополнительныеСведения.НоваяКолонка("НомерИсправления"); ДополнительныеСведения.НоваяКолонка("ДатаИсправления"); ДополнительныеСведения.НоваяКолонка("КорректировочныйСчетФактура"); ДополнительныеСведения.НоваяКолонка("НомерИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("УчитыватьИсправлениеИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("НомерИсправленияИсходногоДокумента"); ДополнительныеСведения.НоваяКолонка("ДатаИсправленияИсходногоДокумента"); БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ВключатьСубсчета(-1); БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные); //Если Параметры.ДатаКонцаПериодаВыгрузки = Параметры.ДатаВводаОстатков Тогда // БухИт.ВыполнитьЗапрос(Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), , "19"); //Иначе БухИт.ВыполнитьЗапрос(, Параметры.ПараметрыАлгоритмов.Получить("НДСДатаВыгрузки"), "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"); Сч19_4= СчетПоКоду("19.4"); ВидЦенностиТаможни = "ТаможенныеПлатежи"; БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл СФ = БухИт.Субконто(1); Если ПустоеЗначение(СФ) = 1 Тогда Продолжить; ИначеЕсли ПустоеЗначение(СФ.Договор) = 1 Тогда Сообщить("Не выгружены данные по счету-фактуре """ + СФ + """: не указан договор.", "!"); Продолжить; КонецЕсли; ДатаСФ = СФ.ДатаДок; НомерСФ = ""; Договор = СФ.Договор; ТаблицаСтавок.Очистить(); ТаблицаСтавок.НоваяКолонка("ВидЦенности"); ТаблицаСтавок.НоваяКолонка("Ставка"); ТаблицаСтавок.НоваяКолонка("Всего"); ТаблицаСтавок.НоваяКолонка("СуммаБезНДС"); ТаблицаСтавок.НоваяКолонка("НДС"); Если Метаданные.Документ(СФ.Вид()).РеквизитШапки("ДатаНомерСчетаФактуры").Выбран() = 0 Тогда НомерСФ = СФ.НомерДок; ДатаСФ = СФ.ДатаДок; Иначе ДатаНомер = СокрЛП(СФ.ДатаНомерСчетаФактуры); Если ПустоеЗначение(ДатаНомер) = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("ДатаНомерСчетаФактуры",ДатаНомер); ПолучитьДатуИНомерСФ(); НомерСФ = Параметры.ПараметрыАлгоритмов.Получить("НомерСчетаФактуры"); ДатаСФ = ?(ПустоеЗначение(Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры"))=0,Параметры.ПараметрыАлгоритмов.Получить("ДатаСчетаФактуры"),СФ.ДатаДок); КонецЕсли; КонецЕсли; ДанныеПоСФ.НоваяСтрока(); ДанныеПоСФ.Контрагент = СФ.Контрагент; ДанныеПоСФ.ДоговорКонтрагента = Договор; ДанныеПоСФ.ДатаСФ = ДатаСФ; ДанныеПоСФ.НомерСФ = НомерСФ; ДанныеПоСФ.ПредъявленСФ = 1; ДанныеПоСФ.КлючСтроки = ДанныеПоСФ.НомерСтроки; ДанныеПоСФ.СчетФактура = СФ; РасчетыСТаможней = 0; Если СФ.Вид() = "СчетФактураПолученный" Тогда Если СФ.Субсчет19 = Сч19_4 Тогда РасчетыСТаможней = 1; ВидЦенности = "ТаможенныеПлатежи"; КонецЕсли; Док = СФ.ДокументОприходования; Если ПустоеЗначение(Док) = 1 Тогда Док = СФ; ИначеЕсли Док.Вид() = "УслугиСтороннихОрганизаций" Тогда Если ПустоеЗначение(Док.ДокументПоступления) = 1 Тогда ВидЦенности = "ПрочиеРаботыИУслуги"; Иначе Док = Док.ДокументПоступления; КонецЕсли; КонецЕсли; НДСпоСтавкеНольПроцентов = СФ.НДСпоСтавкеНольПроцентов; Иначе Док = СФ; НДСпоСтавкеНольПроцентов = 0; КонецЕсли; Если Док.Вид()="ИсправлениеСчетаФактурыПолученного" Тогда ДанныеПоСФ.Исправление = 1; ДанныеПоСФ.НомерИсправления = Док.НомерИсправления; ДанныеПоСФ.ДатаИсправления = Док.ДатаИсправления; Если Док.ВидИсправляемогоСчетаФактуры = 1 Тогда ДанныеПоСФ.КорректировочныйСчетФактура = 1; ДанныеПоСФ.НомерИсходногоДокумента = Док.НомерИсходногоДокумента; ДанныеПоСФ.ДатаИсходногоДокумента = Док.ДатаИсходногоДокумента; ДанныеПоСФ.УчитыватьИсправлениеИсходногоДокумента = Док.УчитыватьИсправлениеИсходногоДокумента; ДанныеПоСФ.НомерИсправленияИсходногоДокумента = Док.НомерИсправленияИсходногоДокумента; ДанныеПоСФ.ДатаИсправленияИсходногоДокумента = Док.ДатаИсправленияИсходногоДокумента; КонецЕсли; ИначеЕсли Док.Вид()="КорректировочныйСчетФактураПолученный" Тогда ДанныеПоСФ.КорректировочныйСчетФактура = 1; ДанныеПоСФ.НомерИсходногоДокумента = Док.НомерИсходногоДокумента; ДанныеПоСФ.ДатаИсходногоДокумента = Док.ДатаИсходногоДокумента; ДанныеПоСФ.УчитыватьИсправлениеИсходногоДокумента = Док.УчитыватьИсправлениеИсходногоДокумента; ДанныеПоСФ.НомерИсправленияИсходногоДокумента = Док.НомерИсправленияИсходногоДокумента; ДанныеПоСФ.ДатаИсправленияИсходногоДокумента = Док.ДатаИсправленияИсходногоДокумента; КонецЕсли; ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента = Док.ДатаДок; Если Док.Вид() = "ПоступлениеМатериалов" Тогда ВидЦенности = "Материалы"; ИначеЕсли Док.Вид() = "ПоступлениеНМА" Тогда ВидЦенности = "НМА"; ИначеЕсли Док.Вид() = "ПоступлениеОС" Тогда ВидЦенности = "ОС"; ИначеЕсли Док.Вид() = "ПоступлениеТоваров" Тогда ВидЦенности = "Товары"; ИначеЕсли Док.Вид() = "ПоступлениеОборудования" Тогда ВидЦенности = "Оборудование"; КонецЕсли; Если (Док.Вид() = "СчетФактураПолученный") ИЛИ (Док.Вид() = "КорректировочныйСчетФактураПолученный") ИЛИ (Док.Вид()="ИсправлениеСчетаФактурыПолученного") Тогда Если НДСпоСтавкеНольПроцентов = 1 Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; ТаблицаСтавок.Ставка = "НДС0"; ТаблицаСтавок.Всего = Док.Всего; ТаблицаСтавок.СуммаБезНДС = Док.Всего; ТаблицаСтавок.НДС = 0; Иначе Если (Док.СуммаБезНДС20 <> 0) или (Док.НДС20 <> 0) Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; Если Док.ДатаДок < '01.01.2004' Тогда ТаблицаСтавок.Ставка = "НДС20"; Иначе ТаблицаСтавок.Ставка = "НДС18"; КонецЕсли; ТаблицаСтавок.Всего = Док.СуммаБезНДС20 + Док.НДС20; ТаблицаСтавок.СуммаБезНДС = Док.СуммаБезНДС20; ТаблицаСтавок.НДС = Док.НДС20; КонецЕсли; Если (Док.СуммаБезНДС10 <> 0) или (Док.НДС10 <> 0) Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; ТаблицаСтавок.Ставка = "НДС10"; ТаблицаСтавок.Всего = Док.СуммаБезНДС10 + Док.НДС10; ТаблицаСтавок.СуммаБезНДС = Док.СуммаБезНДС10; ТаблицаСтавок.НДС = Док.НДС10; КонецЕсли; Если Док.СуммаСовсемБезНДС <> 0 Тогда ТаблицаСтавок.НоваяСтрока(); ТаблицаСтавок.ВидЦенности = ""; ТаблицаСтавок.Ставка = "БезНДС"; ТаблицаСтавок.Всего = Док.СуммаСовсемБезНДС; ТаблицаСтавок.СуммаБезНДС = Док.СуммаСовсемБезНДС; ТаблицаСтавок.НДС = 0; КонецЕсли; КонецЕсли; Иначе Если (Док.Вид() = "УслугиСтороннихОрганизаций") или (Док.Вид() = "АвансовыйОтчет") Тогда ТаблицаУслуг.Очистить(); ТаблицаУслуг.НоваяКолонка("ВидЦенности"); ТаблицаУслуг.НоваяКолонка("Всего"); ТаблицаУслуг.НоваяКолонка("СуммаБезНДС"); ТаблицаУслуг.НоваяКолонка("НДС"); ВидЦенности = "ПрочиеРаботыИУслуги"; Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 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 Тогда ВидЦенности = "НМА"; ИначеЕсли БухИт.Счет = Сч19_4 Тогда ВидЦенности = "ТаможенныеПлатежи"; Иначе ВидЦенности = "Товары"; КонецЕсли; КонецЕсли; НомСтроки = 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_4; Иначе ДополнительныеСведения.СчетУчета = Сч19_3; КонецЕсли; ДополнительныеСведения.Контрагент = ДанныеПоСФ.Контрагент; ДополнительныеСведения.ДоговорКонтрагента = ДанныеПоСФ.ДоговорКонтрагента; ДополнительныеСведения.ДатаПлатежноРасчетногоДокумента = ДанныеПоСФ.ДатаПлатежноРасчетногоДокумента; ДополнительныеСведения.НомерПлатежноРасчетногоДокумента = ДанныеПоСФ.НомерПлатежноРасчетногоДокумента; ДополнительныеСведения.ДатаСФ = ДанныеПоСФ.ДатаСФ; ДополнительныеСведения.НомерСФ = ДанныеПоСФ.НомерСФ; ДополнительныеСведения.ПредъявленСФ = ДанныеПоСФ.ПредъявленСФ; ДополнительныеСведения.СчетФактура = ДанныеПоСФ.СчетФактура; ДополнительныеСведения.ВалютаАванса = ДанныеПоСФ.ВалютаАванса; ДополнительныеСведения.Исправление = ДанныеПоСФ.Исправление; ДополнительныеСведения.НомерИсправления = ДанныеПоСФ.НомерИсправления; ДополнительныеСведения.ДатаИсправления = ДанныеПоСФ.ДатаИсправления; ДополнительныеСведения.КорректировочныйСчетФактура = ДанныеПоСФ.КорректировочныйСчетФактура; ДополнительныеСведения.НомерИсходногоДокумента = ДанныеПоСФ.НомерИсходногоДокумента; ДополнительныеСведения.ДатаИсходногоДокумента = ДанныеПоСФ.ДатаИсходногоДокумента; ДополнительныеСведения.УчитыватьИсправлениеИсходногоДокумента = ДанныеПоСФ.УчитыватьИсправлениеИсходногоДокумента; ДополнительныеСведения.НомерИсправленияИсходногоДокумента = ДанныеПоСФ.НомерИсправленияИсходногоДокумента; ДополнительныеСведения.ДатаИсправленияИсходногоДокумента = ДанныеПоСФ.ДатаИсправленияИсходногоДокумента; КонецЦикла; КонецЦикла; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("СчетУчетаНДС", Сч19); ВходящиеДанные.Установить("ДанныеПоСФНДС", ДополнительныеСведения); ВходящиеДанные.Установить("РазделУчета", "НДСПоПриобретеннымЦенностям"); ВходящиеДанные.Установить("Дата", Параметры.ДатаВводаОстатков - 1); ВходящиеДанные.Установить("ОтражатьВНалоговомУчете", 1); ВходящиеДанные.Установить("ОтражатьВБухгалтерскомУчете", 1); ВходящиеДанные.Установить("ОтражатьПоСпециальнымРегистрам", 1); ВыгрузитьПоПравилу(,, ВходящиеДанные,, "ВводОстатковНДС"); <Алгоритм Имя="ДобавитьПроводку" ИспользуетсяПриЗагрузке="false"> <Текст>ТолькоОбороты = Параметры.ПараметрыАлгоритмов.Получить("ТолькоОбороты"); Если ТолькоОбороты = 1 Тогда Возврат 0; КонецЕсли; Проводки = Параметры.ПараметрыАлгоритмов.Получить("Проводки"); БухИт = Параметры.ПараметрыАлгоритмов.Получить("БухИт"); ТекНомерСубконто = Параметры.ПараметрыАлгоритмов.Получить("ТекНомерСубконто"); КоличествоУровней = Параметры.ПараметрыАлгоритмов.Получить("КоличествоУровней"); ОстатокДтС = Параметры.ПараметрыАлгоритмов.Получить("ОстатокДтС"); ОстатокДтВ = Параметры.ПараметрыАлгоритмов.Получить("ОстатокДтВ"); ОстатокДтК = Параметры.ПараметрыАлгоритмов.Получить("ОстатокДтК"); ОстатокКтС = Параметры.ПараметрыАлгоритмов.Получить("ОстатокКтС"); ОстатокКтВ = Параметры.ПараметрыАлгоритмов.Получить("ОстатокКтВ"); ОстатокКтК = Параметры.ПараметрыАлгоритмов.Получить("ОстатокКтК"); Налоговый = ?(Параметры.ПараметрыАлгоритмов.Получить("Регистр") = "Налоговый", 1, 0); Сч45 = СчетПоКоду("45"); Сч97 = СчетПоКоду("97"); Сч79_1 = СчетПоКоду("79.1"); Сч79_2 = СчетПоКоду("79.2"); Если (ОстатокДтС <> 0) или (ОстатокДтВ <> 0) или (ОстатокДтК <> 0) Тогда Проводки.НоваяСтрока(); Проводки.СчетДт = БухИт.Счет; Если (БухИт.Счет.Забалансовый = 0) и (Налоговый = 0) Тогда Проводки.СчетКт = Параметры.СчетВводаОстатков; КонецЕсли; Проводки.СубконтоДт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоДт.НоваяКолонка("Ключ"); Проводки.СубконтоДт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ТекНомерСубконто Цикл Проводки.СубконтоДт.НоваяСтрока(); Если ((БухИт.Счет = Сч79_1) ИЛИ (БухИт.Счет = Сч79_2)) И (НомерСубконто = 1) Тогда Ключ = "ОбособленныеПодразделения"; Иначе Ключ = БухИт.Счет.ВидСубконто(НомерСубконто); КонецЕсли; Проводки.СубконтоДт.Ключ = Ключ; Проводки.СубконтоДт.Значение = БухИт.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = ОстатокДтС; Если БухИт.Счет.Валютный = 1 Тогда Проводки.ВалютнаяСуммаДт = ОстатокДтВ; Проводки.ВалютаДт = БухИт.Валюта; КонецЕсли; Если (КоличествоУровней = ТекНомерСубконто) и (БухИт.Счет.Количественный = 1) Тогда Проводки.КоличествоДт = ОстатокДтК; КонецЕсли; Если БухИт.Счет = Сч97 Тогда СтатьяРБП = БухИт.Субконто(1); Если СтатьяРБП.НазначениеСтатьиРасходов = 1 Тогда Проводки.КодСчетаДт = "97.01"; Иначе Проводки.КодСчетаДт = "97.21"; КонецЕсли; КонецЕсли; Если БухИт.Счет = Сч45 Тогда Номенклатура = БухИт.Субконто(3); Если Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Проводки.КодСчетаДт = "45.01"; ИначеЕсли Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Проводки.КодСчетаДт = "45.02"; Иначе Проводки.КодСчетаДт = "45.03"; КонецЕсли; КонецЕсли; КонецЕсли; Если (ОстатокКтС <> 0) или (ОстатокКтВ <> 0) или (ОстатокКтК <> 0) Тогда Проводки.НоваяСтрока(); Проводки.СчетКт = БухИт.Счет; Если (БухИт.Счет.Забалансовый = 0) и (Налоговый = 0) Тогда Проводки.СчетДт = Параметры.СчетВводаОстатков; КонецЕсли; Проводки.СубконтоКт = СоздатьОбъект("ТаблицаЗначений"); Проводки.СубконтоКт.НоваяКолонка("Ключ"); Проводки.СубконтоКт.НоваяКолонка("Значение"); Для НомерСубконто = 1 по ТекНомерСубконто Цикл Проводки.СубконтоКт.НоваяСтрока(); Если ((БухИт.Счет = Сч79_1) ИЛИ (БухИт.Счет = Сч79_2)) И (НомерСубконто = 1) Тогда Ключ = "ОбособленныеПодразделения"; Иначе Ключ = БухИт.Счет.ВидСубконто(НомерСубконто); КонецЕсли; Проводки.СубконтоКт.Ключ = Ключ; Проводки.СубконтоКт.Значение = БухИт.Субконто(НомерСубконто); КонецЦикла; Проводки.Сумма = ОстатокКтС; Если БухИт.Счет.Валютный = 1 Тогда Проводки.ВалютнаяСуммаКт = ОстатокКтВ; Проводки.ВалютаКт = БухИт.Валюта; КонецЕсли; Если (КоличествоУровней = ТекНомерСубконто) и (БухИт.Счет.Количественный = 1) Тогда Проводки.КоличествоКт = ОстатокКтК; КонецЕсли; Если БухИт.Счет = Сч97 Тогда СтатьяРБП = БухИт.Субконто(1); Если СтатьяРБП.НазначениеСтатьиРасходов = 1 Тогда Проводки.КодСчетаКт = "97.01"; Иначе Проводки.КодСчетаКт = "97.21"; КонецЕсли; КонецЕсли; Если БухИт.Счет = Сч45 Тогда Номенклатура = БухИт.Субконто(3); Если Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Проводки.КодСчетаКт = "45.01"; ИначеЕсли Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда Проводки.КодСчетаКт = "45.02"; Иначе Проводки.КодСчетаКт = "45.03"; КонецЕсли; КонецЕсли; КонецЕсли; <Алгоритм Имя="ДобавитьПроводкуНУ" ИспользуетсяПриЗагрузке="false"> <Текст>СчетДт = Параметры.ПараметрыАлгоритмов.Получить("СчетДт"); КоличествоДт = Параметры.ПараметрыАлгоритмов.Получить("КоличествоДт"); СчетКт = Параметры.ПараметрыАлгоритмов.Получить("СчетКт"); КоличествоКт = Параметры.ПараметрыАлгоритмов.Получить("КоличествоКт"); СуммаПроводки = Параметры.ПараметрыАлгоритмов.Получить("СуммаПроводки"); Проводки = Параметры.ПараметрыАлгоритмов.Получить("ТаблицаПроводок"); Если (СуммаПроводки <> 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; КонецЕсли; КонецЕсли; КонецЕсли; <Алгоритм Имя="ДобавитьСуммыНУПоСчетамРасчетовВАЛ" ИспользуетсяПриЗагрузке="false"> <Текст>РазделУчета = Параметры.ПараметрыАлгоритмов.Получить("РазделУчета"); Если (РазделУчета <> "РасчетыСПоставщикамиИПодрядчиками") И (РазделУчета <> "РасчетыСПокупателямиИЗаказчиками") И (РазделУчета <> "РасчетыСПрочимиДебиторамиИКредиторами") Тогда Возврат 0; КонецЕсли; Проводки = ВходящиеДанные.Получить("ВходящиеОстатки"); Счет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); Сч60_22 = СчетПоКоду("60.22"); Сч62_22 = СчетПоКоду("62.22"); СчВАЛ_60 = СчетПоКоду("ВАЛ.60"); СчВАЛ_62 = СчетПоКоду("ВАЛ.62"); Если (Счет <> Сч60_22) И (Счет <> Сч62_22) Тогда Возврат 0; КонецЕсли; Если Счет = Сч60_22 Тогда СчВАЛ = СчВАЛ_60; Иначе СчВАЛ = СчВАЛ_62; КонецЕсли; БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.Опции(1); БУ.ИспользоватьСубконто(ВидыСубконто.Контрагенты); БУ.ИспользоватьСубконто(ВидыСубконто.Договоры); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, Счет); БУ.ВыбратьПериоды(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.Опции(1); НУ.ИспользоватьСубконто(ВидыСубконто.Контрагенты); НУ.ИспользоватьСубконто(ВидыСубконто.Договоры); Если Параметры.ДатаВводаОстатков = Параметры.ДатаКонцаПериодаВыгрузки Тогда НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СчВАЛ); Иначе НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков, Параметры.ДатаКонцаПериодаВыгрузки, СчВАЛ,,, 3, "Месяц",); КонецЕсли; НУ.ВыбратьПериоды(); Пока НУ.ПолучитьПериод() = 1 Цикл НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; НУ.ВыбратьСубконто(2); Пока НУ.ПолучитьСубконто(2) = 1 Цикл Если НУ.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; Если БУ.ПолучитьПериод(, НУ.НачДата) = 1 Тогда Если БУ.ПолучитьСубконто(1,, НУ.Субконто(1)) = 1 Тогда Если БУ.ПолучитьСубконто(2,, НУ.Субконто(2)) = 1 Тогда СуммаНУ = 0; СуммаНДС = 0; БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл СуммаНУ = СуммаНУ + ?(СчВАЛ = СчВАЛ_62, НУ.СКК(1), НУ.СКД(1)); КонецЦикла; Проводки.ВыбратьСтроки(); Пока Проводки.ПолучитьСтроку() = 1 Цикл Если (Проводки.Субконто1 = НУ.Субконто(1)) И (Проводки.Субконто2 = НУ.Субконто(2)) Тогда Проводки.СуммаНУ = СуммаНУ; Проводки.СуммаНДС = ?(Проводки.СуммаКт <> 0, Проводки.СуммаКт, Проводки.Сумма); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; <Алгоритм Имя="ДобавитьСуммыНУПоСчетамРасчетовУЕ" ИспользуетсяПриЗагрузке="false"> <Текст>РазделУчета = Параметры.ПараметрыАлгоритмов.Получить("РазделУчета"); Если (РазделУчета <> "РасчетыСПоставщикамиИПодрядчиками") И (РазделУчета <> "РасчетыСПокупателямиИЗаказчиками") И (РазделУчета <> "РасчетыСПрочимиДебиторамиИКредиторами") Тогда Возврат 0; КонецЕсли; Проводки = ВходящиеДанные.Получить("ВходящиеОстатки"); Счет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); Сч60_6 = СчетПоКоду("60.6"); Сч62_6 = СчетПоКоду("62.6"); Сч76_6 = СчетПоКоду("76.6"); СчУЕ_60 = СчетПоКоду("УЕ.60"); СчУЕ_62 = СчетПоКоду("УЕ.62"); Если (Счет <> Сч60_6) И (Счет <> Сч62_6) И (Счет <> Сч76_6) Тогда Возврат 0; КонецЕсли; Если Счет = Сч60_6 Тогда СчУЕ = СчУЕ_60; Иначе СчУЕ = СчУЕ_62; КонецЕсли; БУ = СоздатьОбъект("БухгалтерскиеИтоги"); БУ.Опции(1); БУ.ИспользоватьСубконто(ВидыСубконто.Контрагенты); БУ.ИспользоватьСубконто(ВидыСубконто.Договоры); БУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, Счет); БУ.ВыбратьПериоды(); НУ = СоздатьОбъект("БухгалтерскиеИтоги"); НУ.Опции(1); НУ.ИспользоватьСубконто(ВидыСубконто.Контрагенты); НУ.ИспользоватьСубконто(ВидыСубконто.Договоры); Если Параметры.ДатаВводаОстатков = Параметры.ДатаКонцаПериодаВыгрузки Тогда НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков,, СчУЕ); Иначе НУ.ВыполнитьЗапрос(Параметры.ДатаВводаОстатков, Параметры.ДатаКонцаПериодаВыгрузки, СчУЕ,,, 3, "Месяц",); КонецЕсли; НУ.ВыбратьПериоды(); Пока НУ.ПолучитьПериод() = 1 Цикл НУ.ВыбратьСубконто(1); Пока НУ.ПолучитьСубконто(1) = 1 Цикл Если НУ.Субконто(1).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; НУ.ВыбратьСубконто(2); Пока НУ.ПолучитьСубконто(2) = 1 Цикл Если НУ.Субконто(2).ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли; Если БУ.ПолучитьПериод(, НУ.НачДата) = 1 Тогда Если БУ.ПолучитьСубконто(1,, НУ.Субконто(1)) = 1 Тогда Если БУ.ПолучитьСубконто(2,, НУ.Субконто(2)) = 1 Тогда СуммаНУ = 0; СуммаНДС = 0; БУ.ВыбратьСчета(); Пока БУ.ПолучитьСчет() = 1 Цикл СуммаНУ = СуммаНУ + ?(СчУЕ = СчУЕ_60, НУ.СКК(1), НУ.СКД(1)); КонецЦикла; СуммаНДС = СуммаНУ; Проводки.ВыбратьСтроки(); Пока Проводки.ПолучитьСтроку() = 1 Цикл Если (Проводки.Субконто1 = НУ.Субконто(1)) И (Проводки.Субконто2 = НУ.Субконто(2)) Тогда Проводки.СуммаНУ = СуммаНУ; Проводки.СуммаНДС = СуммаНДС; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; <Алгоритм Имя="ЗаполнитьРеквизитыДокументаВНО" ИспользуетсяПриЗагрузке="false"> <Текст>КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл СчетДт = ?(ПустоеЗначение(КоллекцияОбъектов.КодСчетаДт) = 1, КоллекцияОбъектов.СчетДт, КоллекцияОбъектов.КодСчетаДт); СчетКт = ?(ПустоеЗначение(КоллекцияОбъектов.КодСчетаКт) = 1, КоллекцияОбъектов.СчетКт, КоллекцияОбъектов.КодСчетаКт); Если (ПустоеЗначение(СчетДт) = 1) и (ПустоеЗначение(СчетКт) = 1) Тогда Сообщить("Попытка выгрузки проводки без указания счетов дебета и кредита. Проводка не выгружена."); Отказ = 1; Иначе Если ТипЗначенияСтр(СчетДт) = "Счет" Тогда СчетДт = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(СчетДт, "Хозрасчетный"), "Значения").Получить(Строка(СчетДт)); Иначе СчетДтЗабалансовый = 1; КонецЕсли; Если ТипЗначенияСтр(СчетКт) = "Счет" Тогда СчетКтЗабалансовый = КоллекцияОбъектов.СчетКт.Забалансовый; СчетКт = мТаблицаПравилКонвертацииОбъектов.ПолучитьЗначение(НайтиПравило(СчетКт, "Хозрасчетный"), "Значения").Получить(Строка(СчетКт)); Иначе СчетКтЗабалансовый = 1; КонецЕсли; Если (ПустоеЗначение(СчетДт) = 1) и (СчетКтЗабалансовый = 0) Тогда Сообщить("При попытке выгрузки проводки по кредиту счета " + СокрЛП(СчетКт) + " не удалось определить счет дебета. Проводка не выгружена."); Отказ = 1; ИначеЕсли (ПустоеЗначение(СчетКт) = 1) и (СчетДтЗабалансовый = 0) Тогда Сообщить("При попытке выгрузки проводки по дебету счета " + СокрЛП(СчетДт) + " не удалось определить счет кредита. Проводка не выгружена."); Отказ = 1; КонецЕсли; КонецЕсли; Субконто1 = ""; Субконто2 = ""; Субконто3 = ""; СуммаКт = 0; Сумма = 0; Количество = 0; ВалютнаяСумма = 0; Валюта = ""; Если (СокрЛП(СчетКт) <> "00") И (СокрЛП(СчетКт) <> "Вспомогательный") И (ПустоеЗначение(СокрЛП(СчетКт)) = 0) Тогда СчетУчета = СчетКт; СуммаКт = КоллекцияОбъектов.Сумма; Сумма = 0; Если ПустоеЗначение(КоллекцияОбъектов.ВалютнаяСуммаКт) = 0 Тогда Валюта = КоллекцияОбъектов.ВалютаКт; ВалютнаяСумма = КоллекцияОбъектов.ВалютнаяСуммаКт; КонецЕсли; Количество = КоллекцияОбъектов.КоличествоКт; Если КоллекцияОбъектов.СубконтоКт.КоличествоСтрок() >= 1 Тогда Субконто1 = КоллекцияОбъектов.СубконтоКт.ПолучитьЗначение(1, "Значение"); Если КоллекцияОбъектов.СубконтоКт.КоличествоСтрок() >= 2 Тогда Субконто2 = КоллекцияОбъектов.СубконтоКт.ПолучитьЗначение(2, "Значение"); Если КоллекцияОбъектов.СубконтоКт.КоличествоСтрок() = 3 Тогда Субконто3 = КоллекцияОбъектов.СубконтоКт.ПолучитьЗначение(3, "Значение"); КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли (СокрЛП(СчетДт) <> "00") И (СокрЛП(СчетДт) <> "Вспомогательный") И (ПустоеЗначение(СокрЛП(СчетДт)) = 0) Тогда СчетУчета = СчетДт; СуммаКт = 0; Сумма = КоллекцияОбъектов.Сумма; Если ПустоеЗначение(КоллекцияОбъектов.ВалютнаяСуммаДт) = 0 Тогда Валюта = КоллекцияОбъектов.ВалютаДт; ВалютнаяСумма = КоллекцияОбъектов.ВалютнаяСуммаДт; КонецЕсли; Количество = КоллекцияОбъектов.КоличествоДт; Если КоллекцияОбъектов.СубконтоДт.КоличествоСтрок() >= 1 Тогда Субконто1 = КоллекцияОбъектов.СубконтоДт.ПолучитьЗначение(1, "Значение"); Если КоллекцияОбъектов.СубконтоДт.КоличествоСтрок() >= 2 Тогда Субконто2 = КоллекцияОбъектов.СубконтоДт.ПолучитьЗначение(2, "Значение"); Если КоллекцияОбъектов.СубконтоДт.КоличествоСтрок() = 3 Тогда Субконто3 = КоллекцияОбъектов.СубконтоДт.ПолучитьЗначение(3, "Значение"); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КоллекцияОбъектов.СчетУчета = СчетУчета; КоллекцияОбъектов.Субконто1 = Субконто1; КоллекцияОбъектов.Субконто2 = Субконто2; КоллекцияОбъектов.Субконто3 = Субконто3; КоллекцияОбъектов.СуммаКт = СуммаКт; КоллекцияОбъектов.Сумма = Сумма; КоллекцияОбъектов.Количество = Количество; КоллекцияОбъектов.Валюта = Валюта; КоллекцияОбъектов.ВалютнаяСумма = ВалютнаяСумма; //Исключения - для счетов у которых в 77 и 8 разный признак типа остатка Если СчетУчета = "ЖивотныеНаВыращиванииИОткорме" Тогда Если КоллекцияОбъектов.СуммаКт <> 0 Тогда КоллекцияОбъектов.Сумма = - КоллекцияОбъектов.СуммаКт; КоллекцияОбъектов.СуммаКт = 0 КонецЕсли; КонецЕсли; КонецЦикла; <Алгоритм Имя="ОбработкаСубконтоПослеЗагрузки" ИспользуетсяПриЗагрузке="true"> <Текст>ИмяТабличнойЧасти = Параметры.ПараметрыАлгоритмов.ИмяТабличнойЧасти; ИмяСчета = Параметры.ПараметрыАлгоритмов.ИмяСчета; ИмяСубконто = Параметры.ПараметрыАлгоритмов.ИмяСубконто; Если ЗначениеЗаполнено(ИмяТабличнойЧасти) Тогда //обрабатываем табличную часть Для каждого Корреспонденция из Объект[ИмяТабличнойЧасти] Цикл мСведенияОСчетах = Новый Соответствие; СведенияОСчете = БухгалтерскийУчет.ПолучитьСведенияОСчете(мСведенияОСчетах, Корреспонденция[ИмяСчета]); Для СчетчикСубконто = 1 По 3 Цикл Для СчетчикСчета = 1 по СведенияОСчете.КоличествоСубконто Цикл Если (Корреспонденция[ИмяСубконто+СчетчикСубконто] = СведенияОСчете["ТипСубконто"+СчетчикСчета].ПривестиЗначение(Корреспонденция[ИмяСубконто+СчетчикСубконто])) и (СчетчикСчета <> СчетчикСубконто) и (ЗначениеЗаполнено(Корреспонденция[ИмяСубконто+СчетчикСубконто])) Тогда Субконто = Корреспонденция[ИмяСубконто+СчетчикСчета]; Корреспонденция[ИмяСубконто+СчетчикСчета] = Корреспонденция[ИмяСубконто+СчетчикСубконто]; Корреспонденция[ИмяСубконто+СчетчикСубконто] = Субконто; КонецЕсли; КонецЦикла; КонецЦикла; Для СчетчикСубконто = 1 По 3 Цикл Если СведенияОСчете.КоличествоСубконто >= СчетчикСубконто Тогда Корреспонденция[ИмяСубконто+СчетчикСубконто] = СведенияОСчете["ТипСубконто"+СчетчикСубконто].ПривестиЗначение(Корреспонденция[ИмяСубконто+СчетчикСубконто]); Иначе Корреспонденция[ИмяСубконто+СчетчикСубконто] = Неопределено; КонецЕсли; КонецЦикла; КонецЦикла; Иначе //обрабатываем объект Корреспонденция = Объект; мСведенияОСчетах = Новый Соответствие; СведенияОСчете = БухгалтерскийУчет.ПолучитьСведенияОСчете(мСведенияОСчетах, Корреспонденция[ИмяСчета]); Для СчетчикСубконто = 1 По 3 Цикл Для СчетчикСчета = 1 по СведенияОСчете.КоличествоСубконто Цикл Если (Корреспонденция[ИмяСубконто+СчетчикСубконто] = СведенияОСчете["ТипСубконто"+СчетчикСчета].ПривестиЗначение(Корреспонденция[ИмяСубконто+СчетчикСубконто])) и (СчетчикСчета <> СчетчикСубконто) и (ЗначениеЗаполнено(Корреспонденция[ИмяСубконто+СчетчикСубконто])) Тогда Субконто = Корреспонденция[ИмяСубконто+СчетчикСчета]; Корреспонденция[ИмяСубконто+СчетчикСчета] = Корреспонденция[ИмяСубконто+СчетчикСубконто]; Корреспонденция[ИмяСубконто+СчетчикСубконто] = Субконто; КонецЕсли; КонецЦикла; КонецЦикла; Для СчетчикСубконто = 1 По 3 Цикл Если СведенияОСчете.КоличествоСубконто >= СчетчикСубконто Тогда Корреспонденция[ИмяСубконто+СчетчикСубконто] = СведенияОСчете["ТипСубконто"+СчетчикСубконто].ПривестиЗначение(Корреспонденция[ИмяСубконто+СчетчикСубконто]); Иначе Корреспонденция[ИмяСубконто+СчетчикСубконто] = Неопределено; КонецЕсли; КонецЦикла; КонецЕсли; <Алгоритм Имя="ОпределитьВидДоговора" ИспользуетсяПриЗагрузке="false"> <Текст>Документ = Параметры.ПараметрыАлгоритмов.Получить("Документ"); Договор = Параметры.ПараметрыАлгоритмов.Получить("Договор"); Счет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); ВидДоговора = ""; ВесДоговора = 0; Если ПустоеЗначение(Документ)=0 Тогда Если Документ.Вид()="ОказаниеУслуг" Тогда Если Документ.ТипУслуги = 2 Тогда //оказание посреднических услуг в торговле ВидДоговора = "СКомитентом"; Иначе ВидДоговора = "СПокупателем"; КонецЕсли; ВесДоговора = 3; ИначеЕсли Документ.Вид()="ПоступлениеМатериалов" Тогда ВидДоговора = "СПоставщиком"; ВесДоговора = 3; ИначеЕсли Документ.Вид()="ПоступлениеНМА" Тогда ВидДоговора = "СПоставщиком"; ВесДоговора = 3; ИначеЕсли Документ.Вид()="ПоступлениеОборудования" Тогда ВидДоговора = "СПоставщиком"; ВесДоговора = 3; ИначеЕсли Документ.Вид()="ПоступлениеТоваров" Тогда Если (Документ.ВидПоступления = 11) или (Документ.ВидПоступления = 1) или (Документ.ВидПоступления = 2) Тогда //поступление от поставщика //смотрим в ТЧ документа. Если там есть хотя бы один вид товара с типом "Комиссия", используем вид "С комитентом". В противном случае - "С поставщиком" ВидДоговора = "СПоставщиком"; Документ.ВыбратьСтроки(); Пока Документ.ПолучитьСтроку()=1 Цикл Если (Документ.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар) и (Документ.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии) Тогда ВидДоговора = "СКомитентом"; Прервать; КонецЕсли; КонецЦикла; ИначеЕсли (Документ.ВидПоступления = 12) или (Документ.ВидПоступления = 3) Тогда //возврат ранее отгруженных (сч.45) ВидДоговора = "СКомиссионером"; Иначе//возврат от покупателя ВидДоговора = "СПокупателем"; КонецЕсли; ВесДоговора = 3; ИначеЕсли Документ.Вид()="РасходнаяНакладная" Тогда Если (Документ.ВидОтгрузки = 11)или (Документ.ВидОтгрузки = 1) Тогда //продажа покупателю ВидДоговора = "СПокупателем"; ИначеЕсли (Документ.ВидОтгрузки = 12)или (Документ.ВидОтгрузки = 2) Тогда //отгрузка (счет 45) ВидДоговора = "СКомиссионером"; Иначе //возврат //смотрим в ТЧ документа. Если там есть хотя бы один вид товара с типом "Комиссия", используем вид "С комитентом". В противном случае - "С покупателем" ВидДоговора = "СПоставщиком"; Документ.ВыбратьСтроки(); Пока Документ.ПолучитьСтроку()=1 Цикл Если (Документ.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар) и (Документ.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии) Тогда ВидДоговора = "СКомитентом"; Прервать; КонецЕсли; КонецЦикла; КонецЕсли; ВесДоговора = 3; ИначеЕсли Документ.Вид()="РеализацияОтгруженнойПродукции" Тогда ВидДоговора = "СКомиссионером"; ВесДоговора = 3; ИначеЕсли Документ.Вид()="УслугиСтороннихОрганизаций" Тогда ВидДоговора = "СПоставщиком"; ВесДоговора = 3; ИначеЕсли Документ.Вид()="ПередачаОС" Тогда ВидДоговора = "СПокупателем"; ВесДоговора = 3; ИначеЕсли Документ.Вид()="ПередачаНМА" Тогда ВидДоговора = "СПокупателем"; ВесДоговора = 3; ИначеЕсли Документ.Вид()="ОтпускМатериаловНаСторону" Тогда Если Документ.ВидОтпуска = 0 Тогда //продажа ВидДоговора = "СПокупателем"; Иначе //передача в переработку или возврат ВидДоговора = "СПоставщиком"; КонецЕсли; ВесДоговора = 3; ИначеЕсли (Документ.Вид()="ВыполнениеЭтапаРабот") или (Документ.Вид()="ЗавершениеРабот") или (Документ.Вид()="ОплатаЭтапаРабот") Тогда ВидДоговора = "СПокупателем"; ВесДоговора = 3; Иначе //по документу однозначно определить нельзя, будем определять по счету Если ПустоеЗначение(Счет)=0 Тогда Если Счет.ПринадлежитГруппе(СчетПоКоду("62"))=1 Тогда ВидДоговора = "СПокупателем"; ВесДоговора = 1; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("60"))=1 Тогда ВидДоговора = "СПоставщиком"; ВесДоговора = 1; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ВидДоговора",ВидДоговора); Параметры.ПараметрыАлгоритмов.Установить("ВесДоговора",ВесДоговора); <Алгоритм Имя="ОпределитьДатуУвольнения" ИспользуетсяПриЗагрузке="false"> <Текст>СотрДатаУвольнения = Дата(0); ХарактерРаботы = СоздатьОбъект("Периодический"); ХарактерРаботы.ИспользоватьОбъект("ХарактерРаботы", ОбъектКоллекции.ФизЛицо); Если ХарактерРаботы.ОбратныйПорядок() = 1 Тогда ХарактерРаботы.ВыбратьЗначения(,); Пока ХарактерРаботы.ПолучитьЗначение() = 1 Цикл Если ХарактерРаботы.Значение = Перечисление.ХарактерРаботы.ТрудовыеОтношенияПрекращены Тогда Если ХарактерРаботы.ДатаЗнач <= Параметры.ДатаКонцаПериодаВыгрузки Тогда ДатаУвольнения = ХарактерРаботы.ДатаЗнач; Прервать; Иначе Продолжить; КонецЕсли; КонецЕсли; КонецЦикла; СотрДатаУвольнения = ДатаУвольнения; Иначе СотрДатаУвольнения = Дата(0); КонецЕсли; Возврат СотрДатаУвольнения; <Алгоритм Имя="ОпределитьПКОДляДокумента" ИспользуетсяПриЗагрузке="false"> <Текст>Документ = Параметры.ПараметрыАлгоритмов.Получить("Документ"); ВидДокумента = Документ.Вид(); Если ПустоеЗначение(Документ)=0 Тогда Если Документ.ДатаДок < Параметры.ДатаВводаОстатков Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом_Документ"; Иначе Если ВидДокумента="АвансовыйОтчет" Тогда ИмяПКО = "АвансовыйОтчет"; ИначеЕсли ВидДокумента="Выписка" Тогда Отказ = 1; ИначеЕсли ВидДокумента="ПоступлениеМатериалов" Тогда Если Документ.ВидПоступления = 0 тогда ИмяПКО = "ПоступлениеМатериалов_ПТУ"; Иначе ИмяПКО = "ПоступлениеМатериалов_ИзПереработки"; КонецЕсли; ИначеЕсли ВидДокумента="ПоступлениеНМА" Тогда ИмяПКО = "ПоступлениеНМА"; ИначеЕсли ВидДокумента="ПоступлениеОборудования" Тогда ИмяПКО = "ПоступлениеОборудования"; ИначеЕсли ВидДокумента="ПоступлениеОС" Тогда ИмяПКО = "ПоступлениеОС"; ИначеЕсли ВидДокумента="ПоступлениеТоваров" Тогда Если (Документ.ВидПоступления = 1) или (Документ.ВидПоступления = 2) или (Документ.ВидПоступления = 11) Тогда ИмяПКО = "ПоступлениеТоваров_ПТУ"; Иначе ИмяПКО = "ПоступлениеТоваров_Возврат"; КонецЕсли; ИначеЕсли ВидДокумента="УслугиСтороннихОрганизаций" Тогда Если Документ.ДокументПоступления.Выбран() = 0 Тогда ИмяПКО = "УслугиСтороннихОрганизаций_ПТУ"; ИначеЕсли Документ.ДокументПоступления.Вид() = "ПоступлениеНМА" Тогда ИмяПКО = "УслугиСтороннихОрганизаций_ДопРасходы_НМА"; Иначе ИмяПКО = "УслугиСтороннихОрганизаций_ДопРасходы"; КонецЕсли; ИначеЕсли ВидДокумента="СчетФактура" Тогда ИмяПКО = "СчетФактура"; ИначеЕсли ВидДокумента="СчетФактураПолученный" Тогда ИмяПКО = "СчетФактураПолученный"; ИначеЕсли ВидДокумента="РасходнаяНакладная" Тогда Если (Документ.ВидОтгрузки = 1) или (Документ.ВидОтгрузки = 11) или (Документ.ВидОтгрузки = 2) или (Документ.ВидОтгрузки = 12)Тогда ИмяПКО = "РасходнаяНакладная_Продажа"; ИначеЕсли (Документ.ВидОтгрузки = 3) или (Документ.ВидОтгрузки = 4) или (Документ.ВидОтгрузки = 13) Тогда ИмяПКО = "РасходнаяНакладная_Возврат"; КонецЕсли; ИначеЕсли ВидДокумента = "РеализацияОтгруженнойПродукции" Тогда ИмяПКО = "РеализацияОтгруженнойПродукции"; ИначеЕсли ВидДокумента = "Счет" Тогда ИмяПКО = "СчетНаОплатуПокупателю"; ИначеЕсли ВидДокумента = "Доверенность" Тогда ИмяПКО = "Доверенность"; ИначеЕсли ВидДокумента = "АвансовыйОтчет" Тогда ИмяПКО = "АвансовыйОтчет"; ИначеЕсли ВидДокумента = "ОтпускМатериаловНаСторону" Тогда Если Документ.ВидОтпуска = 0 Тогда ИмяПКО = "ОтпускМатериаловНаСторону_Продажа"; ИначеЕсли Документ.ВидОтпуска = 1 Тогда ИмяПКО = "ОтпускМатериаловНаСторону_ВПереработку"; ИначеЕсли Документ.ВидОтпуска = 2 Тогда ИмяПКО = "ОтпускМатериаловНаСторону_Возврат"; КонецЕсли; ИначеЕсли ВидДокумента = "ОказаниеУслуг" Тогда Если (Документ.ТипУслуги = 1) или (Документ.ТипУслуги = 3) Тогда ИмяПКО = "ОказаниеУслуг_Продажа"; ИначеЕсли Документ.ТипУслуги = 2 Тогда ИмяПКО = "ОказаниеУслуг_Комитент"; КонецЕсли; ИначеЕсли ВидДокумента = "Взаимозачет" Тогда ИмяПКО = "Взаимозачет"; ИначеЕсли ВидДокумента = "ЗачетАвансаПокупателя" Тогда ИмяПКО = "ЗачетАвансаПокупателя"; ИначеЕсли ВидДокумента = "ЗачетАвансаПоставщику" Тогда ИмяПКО = "ЗачетАвансаПоставщику"; ИначеЕсли ВидДокумента = "РасходныйОрдер" Тогда ИмяПКО = "РасходныйОрдер"; ИначеЕсли ВидДокумента = "ПриходныйОрдер" Тогда ИмяПКО = "ПриходныйОрдер"; ИначеЕсли ВидДокумента = "ПлатежноеПоручение" Тогда ИмяПКО = "ПлатежноеПоручение"; ИначеЕсли ВидДокумента = "ПлатежноеТребование" Тогда ИмяПКО = "ПлатежноеТребование"; ИначеЕсли ВидДокумента = "ПередачаОС" Тогда Если Документ.ПричинаВыбытия = Перечисление.ПричиныВыбытияОС.Продажа Тогда ИмяПКО = "ПередачаОС_Продажа"; Иначе ИмяПКО = "ПередачаОС_Списание"; КонецЕсли; ИначеЕсли ВидДокумента = "ВыполнениеЭтапаРабот" Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом_Документ"; ИначеЕсли ВидДокумента = "КорректировочныйСчетФактура" Тогда ИмяПКО = "КорректировочныйСчетФактура"; ИначеЕсли ВидДокумента = "КорректировочныйСчетФактураПолученный" Тогда ИмяПКО = "КорректировочныйСчетФактураПолученный"; ИначеЕсли ВидДокумента = "ИсправлениеСчетаФактуры" Тогда ИмяПКО = "ИсправлениеСчетаФактуры"; ИначеЕсли ВидДокумента = "ИсправлениеСчетаФактурыПолученного" Тогда ИмяПКО = "ИсправлениеСчетаФактурыПолученного"; КонецЕсли; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ИмяПКО",ИмяПКО); <Алгоритм Имя="ОпределитьРазделУчета" ИспользуетсяПриЗагрузке="false"> <Текст>ТекущийСчет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); Если (Лев(ТекущийСчет.Код,3) = "ГТД") ИЛИ (Лев(ТекущийСчет.Код,5) = "МЦ.04") ИЛИ (((Лев(ТекущийСчет.Код,2) = "00") ИЛИ (ТекущийСчет.Код = "011")) И (ТекущийСчет.Забалансовый = 1)) Тогда РазделУчета = "ПрочиеСчетаБухгалтерскогоУчета"; Возврат(РазделУчета); Иначе Если (ТекущийСчет.Код = "42") ИЛИ (ТекущийСчет.Код = "19.5") ИЛИ (ТекущийСчет.Забалансовый = 1)Тогда Возврат(""); КонецЕсли; КонецЕсли; Параметры.ТаблицаСчетовРазделовУчета.ВыбратьСтроки(); Пока Параметры.ТаблицаСчетовРазделовУчета.ПолучитьСтроку() = 1 Цикл Счета = Параметры.ТаблицаСчетовРазделовУчета.Счета; СчетаГруппы = Параметры.ТаблицаСчетовРазделовУчета.СчетаГруппы; СчетаИсключения = Параметры.ТаблицаСчетовРазделовУчета.СчетаИсключения; РазделУчета = Параметры.ТаблицаСчетовРазделовУчета.РазделУчета; Если Найти(Счета, ТекущийСчет.Код) <> 0 Тогда Если Найти(СчетаИсключения, """"+ТекущийСчет.Код+"""") = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", РазделУчета); Возврат РазделУчета; КонецЕсли; КонецЕсли; Если Найти(СчетаГруппы, Лев(Строка(ТекущийСчет.Код), 2)) <> 0 Тогда Если Найти(СчетаИсключения, """"+ТекущийСчет.Код+"""") = 0 Тогда Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", РазделУчета); Возврат РазделУчета; КонецЕсли; КонецЕсли; КонецЦикла; РазделУчета = "ПрочиеСчетаБухгалтерскогоУчета"; Возврат(РазделУчета); Параметры.ПараметрыАлгоритмов.Установить("РазделУчета", РазделУчета); <Алгоритм Имя="ОтнесениеРасходовКДеятельностиЕНВД" ИспользуетсяПриЗагрузке="false"> <Текст>Значение = "ВидДеятельностиОпределяетсяПоДоходам"; Для НомерСубконто = 1 по 3 Цикл Субконто = Параметры.ПараметрыАлгоритмов.Получить("Субконто" + НомерСубконто); Если ПустоеЗначение(Субконто) = 0 Тогда Если ТипЗначенияСтр(Субконто) = "Справочник.ВидыНоменклатуры" Тогда Если Субконто.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.УслугаЕНВД Тогда Значение = "ПредпринимательскаяДеятельностьОблагаемаяЕНВД"; Прервать КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Счет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); Если ПустоеЗначение(Счет) = 0 Тогда Если Счет = СчетПоКоду("44.1.1") Тогда Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; ИначеЕсли Счет = СчетПоКоду("44.1.2") Тогда Значение = "ПредпринимательскаяДеятельностьОблагаемаяЕНВД"; КонецЕсли; КонецЕсли; Если (Источник.ЭтоГруппа() = 0) и (Метаданные.Справочник(Источник.Вид()).Реквизит("ВидРасходовДляНалоговогоУчета").Выбран() = 1) Тогда Если Источник.ВидРасходовДляНалоговогоУчета = Перечисление.ГруппыВидыРасходов.ОплатаТруда Тогда Значение = "ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД"; КонецЕсли; КонецЕсли; <Алгоритм Имя="ПодготовитьТаблицуОстатковНУ" ИспользуетсяПриЗагрузке="false"> <Текст>КоличествоСубконто = Параметры.ПараметрыАлгоритмов.Получить("КоличествоСубконто"); //Для некоторых счетов надо не перезаписать а сложить нексолько ТЗ ДополнятьТаблицу = 0; Если Параметры.ТаблицаОстатковНУ.КоличествоСтрок() <> 0 Тогда Если (Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовБУ") = "45") ИЛИ (Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовБУ") = "97" ) Тогда ДополнятьТаблицу = 1; КонецЕсли; КонецЕсли; Если ДополнятьТаблицу = 0 Тогда Параметры.ТаблицаОстатковНУ.УдалитьСтроки(); КонецЕсли; Параметры.ТаблицаОстатковНУ.НоваяКолонка("Коэфф", "Число"); Параметры.ТаблицаПроводок.ВыбратьСтроки(); Пока Параметры.ТаблицаПроводок.ПолучитьСтроку() = 1 Цикл Если Параметры.ТаблицаПроводок.Сумма = 0 Тогда Продолжить; КонецЕсли; Параметры.ТаблицаОстатковНУ.НоваяСтрока(); Параметры.ТаблицаОстатковНУ.СчетДт = Параметры.ТаблицаПроводок.СчетДт; Если Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовБУ") <> "94" Тогда Параметры.ТаблицаОстатковНУ.Количество = Параметры.ТаблицаПроводок.КоличествоДт; КонецЕсли; Если КоличествоСубконто > 0 Тогда Параметры.ТаблицаОстатковНУ.Субконто1 = Параметры.ТаблицаПроводок.СубконтоДт.ПолучитьЗначение(1, "Значение"); КонецЕсли; Если КоличествоСубконто > 1 Тогда Параметры.ТаблицаОстатковНУ.Субконто2 = Параметры.ТаблицаПроводок.СубконтоДт.ПолучитьЗначение(2, "Значение"); КонецЕсли; Если КоличествоСубконто > 2 Тогда Параметры.ТаблицаОстатковНУ.Субконто3 = Параметры.ТаблицаПроводок.СубконтоДт.ПолучитьЗначение(3, "Значение"); КонецЕсли; Если Параметры.ТаблицаПроводок.ВидУчетаДт = "НУ" Тогда Параметры.ТаблицаОстатковНУ.СуммаНУ = Параметры.ТаблицаПроводок.Сумма; Если Параметры.ТаблицаОстатковНУ.Количество <> 0 Тогда Параметры.ТаблицаОстатковНУ.Коэфф = 1; КонецЕсли; ИначеЕсли Параметры.ТаблицаПроводок.ВидУчетаДт = "ВР" Тогда Параметры.ТаблицаОстатковНУ.СуммаВР = Параметры.ТаблицаПроводок.Сумма; Если Параметры.ТаблицаОстатковНУ.Количество <> 0 Тогда Параметры.ТаблицаОстатковНУ.Коэфф = 1; КонецЕсли; ИначеЕсли Параметры.ТаблицаПроводок.ВидУчетаДт = "ПР" Тогда Параметры.ТаблицаОстатковНУ.СуммаПР = Параметры.ТаблицаПроводок.Сумма; Если Параметры.ТаблицаОстатковНУ.Количество <> 0 Тогда Параметры.ТаблицаОстатковНУ.Коэфф = 1; КонецЕсли; КонецЕсли; Если Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовБУ") = "97" Тогда Параметры.ТаблицаОстатковНУ.СчетУчетаНУ = Параметры.ТаблицаПроводок.КодСчетаДт; КонецЕсли; КонецЦикла; Если Параметры.ПараметрыАлгоритмов.Получить("СписокСчетовБУ") = "97" Тогда СтрокаСвертки = "СчетДт, СчетУчетаНУ, Субконто1, Субконто2, Субконто3"; Иначе СтрокаСвертки = "СчетДт, Субконто1, Субконто2, Субконто3"; КонецЕсли; Параметры.ТаблицаОстатковНУ.Свернуть(СтрокаСвертки,"СуммаНУ, СуммаВР, СуммаПР, Количество, Коэфф"); //Количественный учет ведется в разрезе НУ и ВР, а ПР - нет, соответственно количество надо привести к исходному Параметры.ТаблицаОстатковНУ.ВыбратьСтроки(); Пока Параметры.ТаблицаОстатковНУ.ПолучитьСтроку() = 1 Цикл Если (Параметры.ТаблицаОстатковНУ.СуммаНУ <> 0) И (Параметры.ТаблицаОстатковНУ.СуммаВР <> 0) Тогда Если Параметры.ТаблицаОстатковНУ.Коэфф > 1 Тогда Параметры.ТаблицаОстатковНУ.Количество = Параметры.ТаблицаОстатковНУ.Количество/Параметры.ТаблицаОстатковНУ.Коэфф; КонецЕсли; КонецЕсли; КонецЦикла; Параметры.ТаблицаОстатковНУ.Свернуть(СтрокаСвертки,"СуммаНУ, СуммаВР, СуммаПР, Количество"); Параметры.ПараметрыАлгоритмов.Установить("КоличествоСубконто", 1); <Алгоритм Имя="ПолучитьВходящиеДанныеНУ_МПЗ" ИспользуетсяПриЗагрузке="false"> <Текст>Если (ВходящиеДанные.Получить("РазделУчета") = "КапитальныеВложения") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "Материалы") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "Товары") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "ГотоваяПродукцияИПолуфабрикаты") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "ДенежныеСредства") Тогда //ИЛИ ((ВходящиеДанные.Получить("РазделУчета") = "ПрочиеСчетаБухгалтерскогоУчета") И ((СокрЛП(Строка(Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"))) = "004"))) Тогда Иначе Возврат 0; КонецЕсли; Если Параметры.ТаблицаОстатковНУ.КоличествоСтрок() = 0 Тогда Возврат 0; КонецЕсли; КоличествоСубконто = Параметры.ПараметрыАлгоритмов.Получить("КоличествоСубконто"); ПорядокСубконто = глРазложить(Параметры.ПараметрыАлгоритмов.Получить("ПорядокСубконтоБУ")); НомерСубконто1 = ПорядокСубконто.ПолучитьЗначение(1); НомерСубконто2 = ПорядокСубконто.ПолучитьЗначение(2); НомерСубконто3 = ПорядокСубконто.ПолучитьЗначение(3); ТаблицаКоличества = СоздатьОбъект("ТаблицаЗначений"); Колонки = ""; Если КоличествоСубконто > 0 Тогда Колонки = "Субконто1"; Если КоличествоСубконто > 1 Тогда Колонки = Колонки + ", Субконто2"; Если КоличествоСубконто > 2 Тогда Колонки = Колонки + ", Субконто3"; КонецЕсли; КонецЕсли; КонецЕсли; КоллекцияОбъектов.Выгрузить(ТаблицаКоличества); ТаблицаКоличества.Свернуть(Колонки, "Количество"); ТаблицаОстатковНУ = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаОстатковНУ.Выгрузить(ТаблицаОстатковНУ); ТаблицаОстатковНУ.Свернуть(Колонки + ", СчетДт", "Количество, СуммаНУ, СуммаПР, СуммаВР"); ТаблицаОстатковНУ.Сортировать("СчетДт," + Колонки); //*********************************** //Получение стоимости ТМЦ в НУ (в 77 количество счетов НУ не соответствовало количеству счетов БУ //а для ввода остатков нам необходима сумма в НУ) //Параметры.ТаблицаОстатковНУ.Сортировать("СчетДт, Субконто1"); КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл СчетУчета = КоллекцияОбъектов.СчетДт; Количество = КоллекцияОбъектов.Количество; КоличествоУровней = СчетУчета.КоличествоСубконто(); ОбщееКоличество = 0; ТаблицаКоличества.ВыбратьСтроки(); Пока ТаблицаКоличества.ПолучитьСтроку() = 1 Цикл Если КоличествоСубконто > 0 Тогда Если КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто1") = ТаблицаКоличества.ПолучитьЗначение(ТаблицаКоличества.НомерСтроки, "Субконто1") Тогда Если КоличествоСубконто > 1 Тогда Если КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто2") = ТаблицаКоличества.ПолучитьЗначение(ТаблицаКоличества.НомерСтроки, "Субконто2") Тогда Если КоличествоСубконто > 2 Тогда Если КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто3") = ТаблицаКоличества.ПолучитьЗначение(ТаблицаКоличества.НомерСтроки, "Субконто3") Тогда ОбщееКоличество = ОбщееКоличество + КоллекцияОбъектов.Количество; КонецЕсли; Иначе ОбщееКоличество = ОбщееКоличество + ТаблицаКоличества.Количество; КонецЕсли; КонецЕсли; Иначе ОбщееКоличество = ОбщееКоличество + ТаблицаКоличества.Количество; КонецЕсли; КонецЕсли; Иначе ОбщееКоличество = ОбщееКоличество + ТаблицаКоличества.Количество; КонецЕсли; КонецЦикла; Если КоличествоСубконто > 0 Тогда ЗначениеБУ1 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто" + НомерСубконто1); КонецЕсли; Если КоличествоСубконто > 1 Тогда ЗначениеБУ2 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто" + НомерСубконто2); КонецЕсли; Если КоличествоСубконто > 2 Тогда ЗначениеБУ3 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто" + НомерСубконто3); КонецЕсли; ТаблицаОстатковНУ.ВыбратьСтроки(); Пока ТаблицаОстатковНУ.ПолучитьСтроку() = 1 Цикл Если КоличествоСубконто > 0 Тогда ЗначениеНУ1 = ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто1"); КонецЕсли; Если КоличествоСубконто > 1 Тогда ЗначениеНУ2 = ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто2"); КонецЕсли; Если КоличествоСубконто > 2 Тогда ЗначениеНУ3 = ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто3"); КонецЕсли; Если СчетУчета = ТаблицаОстатковНУ.СчетДт Тогда Если (ЗначениеБУ1 = ЗначениеНУ1) И (ЗначениеБУ2 = ЗначениеНУ2) И (ЗначениеБУ3 = ЗначениеНУ3) Тогда Если (СчетУчета.Количественный = 1) И (ПустоеЗначение(Количество) = 1) Тогда Количество = 0; //Прервать; КонецЕсли; //Если (ОбщееКоличество = ТаблицаОстатковНУ.Количество) // И (КоллекцияОбъектов.СчетУчета <> "ОборудованиеКУстановке") Тогда // КоллекцияОбъектов.СуммаНУ = ТаблицаОстатковНУ.СуммаНУ; // КоллекцияОбъектов.СуммаПР = ТаблицаОстатковНУ.СуммаПР; // КоллекцияОбъектов.СуммаВР = ТаблицаОстатковНУ.СуммаВР; //Иначе РасчетноеКоличество = ТаблицаОстатковНУ.Количество; Если Количество <> 0 Тогда Если РасчетноеКоличество > Количество Тогда РасчетноеКоличество = Количество; КонецЕсли; КонецЕсли; ДоляСтоимостиНУ = ?(РасчетноеКоличество = 0, 1, РасчетноеКоличество/?(ОбщееКоличество = 0, 1, ОбщееКоличество)); КоллекцияОбъектов.СуммаНУ = Окр(ДоляСтоимостиНУ * ТаблицаОстатковНУ.СуммаНУ, 2); КоллекцияОбъектов.СуммаПР = Окр(ДоляСтоимостиНУ * ТаблицаОстатковНУ.СуммаПР, 2); КоллекцияОбъектов.СуммаВР = Окр(ДоляСтоимостиНУ * ТаблицаОстатковНУ.СуммаВР, 2); //КонецЕсли; //Параметры.ТаблицаОстатковНУ.Количество = Параметры.ТаблицаОстатковНУ.Количество - Количество; //Параметры.ТаблицаОстатковНУ.СуммаНУ = Параметры.ТаблицаОстатковНУ.СуммаНУ - КоллекцияОбъектов.СуммаНУ; //Параметры.ТаблицаОстатковНУ.СуммаПР = Параметры.ТаблицаОстатковНУ.СуммаПР - КоллекцияОбъектов.СуммаПР; //Параметры.ТаблицаОстатковНУ.СуммаВР = Параметры.ТаблицаОстатковНУ.СуммаВР - КоллекцияОбъектов.СуммаВР; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; ВходящиеДанные.Установить("ВходящиеОстатки", КоллекцияОбъектов); <Алгоритм Имя="ПолучитьВходящиеДанныеНУ_ОТ" ИспользуетсяПриЗагрузке="false"> <Текст>Если (ВходящиеДанные.Получить("РазделУчета") <> "ТоварыОтгруженные") Тогда Возврат 0; КонецЕсли; Если Параметры.ТаблицаОстатковНУ.КоличествоСтрок() = 0 Тогда Возврат 0; КонецЕсли; КоличествоСубконто = Параметры.ПараметрыАлгоритмов.Получить("КоличествоСубконто"); ПорядокСубконто = глРазложить(Параметры.ПараметрыАлгоритмов.Получить("ПорядокСубконтоБУ")); НомерСубконто1 = ПорядокСубконто.ПолучитьЗначение(1); НомерСубконто2 = ПорядокСубконто.ПолучитьЗначение(2); НомерСубконто3 = ПорядокСубконто.ПолучитьЗначение(3); //*********************************** //Получение стоимости ТМЦ в НУ (в 77 количество счетов НУ не соответствовало количеству счетов БУ //а для ввода остатков нам необходима сумма в НУ) Параметры.ТаблицаОстатковНУ.Сортировать("СчетДт"); КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл СчетУчета = КоллекцияОбъектов.СчетДт; Количество = КоллекцияОбъектов.Количество; КоличествоУровней = СчетУчета.КоличествоСубконто(); ЗначениеБУ1 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто" + НомерСубконто1); ЗначениеБУ2 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто" + НомерСубконто3); Параметры.ТаблицаОстатковНУ.ВыбратьСтроки(); Пока Параметры.ТаблицаОстатковНУ.ПолучитьСтроку() = 1 Цикл ЗначениеНУ1 = Параметры.ТаблицаОстатковНУ.ПолучитьЗначение(Параметры.ТаблицаОстатковНУ.НомерСтроки, "Субконто1"); ЗначениеНУ2 = Параметры.ТаблицаОстатковНУ.ПолучитьЗначение(Параметры.ТаблицаОстатковНУ.НомерСтроки, "Субконто3"); Если СчетУчета = Параметры.ТаблицаОстатковНУ.СчетДт Тогда Если (ЗначениеБУ1 = ЗначениеНУ1) И (ЗначениеБУ2 = ЗначениеНУ2) Тогда Если (СчетУчета.Количественный = 1) И (ПустоеЗначение(Количество) = 1) Тогда Прервать; КонецЕсли; Если Количество = Параметры.ТаблицаОстатковНУ.Количество Тогда КоллекцияОбъектов.СуммаНУ = Параметры.ТаблицаОстатковНУ.СуммаНУ; КоллекцияОбъектов.СуммаПР = Параметры.ТаблицаОстатковНУ.СуммаПР; КоллекцияОбъектов.СуммаВР = Параметры.ТаблицаОстатковНУ.СуммаВР; Иначе ДоляСтоимостиНУ = ?(Параметры.ТаблицаОстатковНУ.Количество = 0, 1, Количество/Параметры.ТаблицаОстатковНУ.Количество); КоллекцияОбъектов.СуммаНУ = Окр(ДоляСтоимостиНУ * Параметры.ТаблицаОстатковНУ.СуммаНУ, 2); КоллекцияОбъектов.СуммаПР = Окр(ДоляСтоимостиНУ * Параметры.ТаблицаОстатковНУ.СуммаПР, 2); КоллекцияОбъектов.СуммаВР = Окр(ДоляСтоимостиНУ * Параметры.ТаблицаОстатковНУ.СуммаВР, 2); КонецЕсли; Параметры.ТаблицаОстатковНУ.Количество = Параметры.ТаблицаОстатковНУ.Количество - Количество; Параметры.ТаблицаОстатковНУ.СуммаНУ = Параметры.ТаблицаОстатковНУ.СуммаНУ - КоллекцияОбъектов.СуммаНУ; Параметры.ТаблицаОстатковНУ.СуммаПР = Параметры.ТаблицаОстатковНУ.СуммаПР - КоллекцияОбъектов.СуммаПР; Параметры.ТаблицаОстатковНУ.СуммаВР = Параметры.ТаблицаОстатковНУ.СуммаВР - КоллекцияОбъектов.СуммаВР; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; ВходящиеДанные.Установить("ВходящиеОстатки", КоллекцияОбъектов); <Алгоритм Имя="ПолучитьВходящиеДанныеНУ_Прочие" ИспользуетсяПриЗагрузке="false"> <Текст>ТекущийСчет = Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет"); Если (ВходящиеДанные.Получить("РазделУчета") = "НезавершенноеПроизводство") ИЛИ (ВходящиеДанные.Получить("РазделУчета") = "РасходыБудущихПериодов") Тогда ИначеЕсли (ВходящиеДанные.Получить("РазделУчета") = "ПрочиеСчетаБухгалтерскогоУчета") И (Параметры.ТаблицаОстатковНУ.КоличествоСтрок() = 0) Тогда Если ПустоеЗначение(Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет")) = 1 Тогда Возврат 0; КонецЕсли; Если Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет") = СчетПоКоду("004") Тогда КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл КоллекцияОбъектов.СуммаНУ = КоллекцияОбъектов.Сумма; КонецЦикла; ВходящиеДанные.Установить("ВходящиеОстатки", КоллекцияОбъектов); Возврат 0; КонецЕсли; Если Параметры.ПараметрыАлгоритмов.Получить("ТекущийСчет").Забалансовый = 1 Тогда Возврат 0; КонецЕсли; ИначеЕсли (ВходящиеДанные.Получить("РазделУчета") = "ПрочиеСчетаБухгалтерскогоУчета") И ((ТекущийСчет.Код = "94") ИЛИ (ТекущийСчет.Код = "44.1.1")) Тогда Иначе Возврат 0; КонецЕсли; КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); Если Параметры.ТаблицаОстатковНУ.КоличествоСтрок() = 0 Тогда КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл КоллекцияОбъектов.СуммаВР = КоллекцияОбъектов.Сумма; КонецЦикла; ВходящиеДанные.Установить("ВходящиеОстатки", КоллекцияОбъектов); Возврат 0; КонецЕсли; //*********************************** //Получение стоимости в НУ Если ТекущийСчет.Код = "20" Тогда ТаблицаОстатковНУ = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаОстатковНУ.Выгрузить(ТаблицаОстатковНУ); ТаблицаОстатковНУ.Свернуть("СчетДт, Субконто1, Субконто2, Субконто3", "СуммаНУ, СуммаВР, СуммаПР"); ТаблицаОстатковНУ.Сортировать("СчетДт, Субконто1, Субконто2, Субконто3"); ТаблицаОстатковБУ = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.Выгрузить(ТаблицаОстатковБУ); ТаблицаОстатковБУ.Свернуть("СчетДт, Субконто1, Субконто2, Субконто3", "Сумма"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл СчетУчета = КоллекцияОбъектов.СчетДт; ЗначениеБУ1 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто1"); ЗначениеБУ2 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто2"); ЗначениеБУ3 = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто3"); ТаблицаОстатковНУ.ВыбратьСтроки(); Пока ТаблицаОстатковНУ.ПолучитьСтроку() = 1 Цикл ЗначениеНУ1 = ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто1"); ЗначениеНУ2 = ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто2"); ЗначениеНУ3 = ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто3"); Если СчетУчета = ТаблицаОстатковНУ.СчетДт Тогда Если (ЗначениеБУ1 = ЗначениеНУ1) И (ЗначениеБУ2 = ЗначениеНУ2) И (ЗначениеБУ3 = ЗначениеНУ3) Тогда КоллекцияОбъектов.СуммаНУ = ТаблицаОстатковНУ.СуммаНУ; КоллекцияОбъектов.СуммаПР = ТаблицаОстатковНУ.СуммаПР; КоллекцияОбъектов.СуммаВР = ТаблицаОстатковНУ.СуммаВР; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; ИначеЕсли ТекущийСчет.Код = "44.1.1" Тогда ТаблицаОстатковНУ = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаОстатковНУ.Выгрузить(ТаблицаОстатковНУ); ОбщаяСуммаНУ = ТаблицаОстатковНУ.Итог("СуммаНУ"); ОбщаяСуммаПР = ТаблицаОстатковНУ.Итог("СуммаПР"); ОбщаяСуммаВР = ТаблицаОстатковНУ.Итог("СуммаВР"); ОбщаяСуммаРасходовНУ = ОбщаяСуммаНУ + ОбщаяСуммаПР + ОбщаяСуммаВР; КоллекцияОбъектов.ВыбратьСтроки(); ОбщаяСуммаРасходовБУ = 0; Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл Если КоллекцияОбъектов.Субконто1.СписыватьИздержкиПропорциональноОстаткуТоваров.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = 1 Тогда ОбщаяСуммаРасходовБУ = ОбщаяСуммаРасходовБУ + КоллекцияОбъектов.Сумма; КонецЕсли; КонецЦикла; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл Если КоллекцияОбъектов.Субконто1.СписыватьИздержкиПропорциональноОстаткуТоваров.Получить(Параметры.ДатаКонцаПериодаВыгрузки) = 1 Тогда Если КоллекцияОбъектов.Сумма = ОбщаяСуммаРасходовБУ Тогда КоллекцияОбъектов.СуммаНУ = ОбщаяСуммаНУ; КоллекцияОбъектов.СуммаПР = ОбщаяСуммаПР; КоллекцияОбъектов.СуммаВР = ОбщаяСуммаВР; Прервать; Иначе Если ОбщаяСуммаРасходовНУ = 0 Тогда Прервать; КонецЕсли; ДоляСтоимостиНУ = ?(ОбщаяСуммаРасходовБУ = 0, 0, ОбщаяСуммаРасходовБУ/КоллекцияОбъектов.Сумма); КоллекцияОбъектов.СуммаНУ = Окр(ДоляСтоимостиНУ * ОбщаяСуммаНУ, 2); КоллекцияОбъектов.СуммаПР = Окр(ДоляСтоимостиНУ * ОбщаяСуммаПР, 2); КоллекцияОбъектов.СуммаВР = Окр(ДоляСтоимостиНУ * ОбщаяСуммаВР, 2); ОбщаяСуммаРасходовНУ = ОбщаяСуммаРасходовНУ - КоллекцияОбъектов.СуммаНУ - КоллекцияОбъектов.СуммаПР - КоллекцияОбъектов.СуммаВР; КонецЕсли; КонецЕсли; КонецЦикла; ИначеЕсли ТекущийСчет.Код = "94" Тогда ТаблицаОстатковНУ = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаОстатковНУ.Выгрузить(ТаблицаОстатковНУ); ТаблицаОстатковНУ.Свернуть("СчетДт", "СуммаНУ, СуммаВР, СуммаПР"); ТаблицаОстатковНУ.Сортировать("СчетДт"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл ТаблицаОстатковНУ.ВыбратьСтроки(); Пока ТаблицаОстатковНУ.ПолучитьСтроку() = 1 Цикл КоллекцияОбъектов.СуммаНУ = ТаблицаОстатковНУ.СуммаНУ; КоллекцияОбъектов.СуммаПР = ТаблицаОстатковНУ.СуммаПР; КоллекцияОбъектов.СуммаВР = ТаблицаОстатковНУ.СуммаВР; КонецЦикла; КонецЦикла; ИначеЕсли ВходящиеДанные.Получить("РазделУчета") = "РасходыБудущихПериодов" Тогда ТаблицаОстатковНУ = СоздатьОбъект("ТаблицаЗначений"); Параметры.ТаблицаОстатковНУ.Выгрузить(ТаблицаОстатковНУ); ТаблицаОстатковНУ.Свернуть("Субконто1, Субконто2, Субконто3", "СуммаНУ, СуммаВР, СуммаПР"); ТаблицаОстатковНУ.Сортировать("Субконто1, Субконто2, Субконто3"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл ЗначениеБУ1 = ?(ПустоеЗначение(КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто1")) = 1, "", КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки, "Субконто1")); ТаблицаОстатковНУ.ВыбратьСтроки(); Пока ТаблицаОстатковНУ.ПолучитьСтроку() = 1 Цикл ЗначениеНУ1 = ?(ПустоеЗначение(ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто1")) = 1, "", ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто1")); ЗначениеНУ2 = ?(ПустоеЗначение(ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто2")) = 1, "", ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто2")); //ЗначениеНУ3 = ?(ПустоеЗначение(ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто3")) = 1, "", ТаблицаОстатковНУ.ПолучитьЗначение(ТаблицаОстатковНУ.НомерСтроки, "Субконто3")); Если ЗначениеБУ1 = ЗначениеНУ1 Тогда КоллекцияОбъектов.СчетУчетаНУ = КоллекцияОбъектов.СчетУчета; КоллекцияОбъектов.Субконто2 = ЗначениеНУ2; КоллекцияОбъектов.СуммаНУ = ТаблицаОстатковНУ.СуммаНУ; КоллекцияОбъектов.СуммаПР = ТаблицаОстатковНУ.СуммаПР; КоллекцияОбъектов.СуммаВР = ТаблицаОстатковНУ.СуммаВР; Прервать; КонецЕсли; КонецЦикла; КонецЦикла; КонецЕсли; ВходящиеДанные.Установить("ВходящиеОстатки", КоллекцияОбъектов); <Алгоритм Имя="ПолучитьДатуИНомерСФ" ИспользуетсяПриЗагрузке="false"> <Текст> //сначала нужно выделить дату счета-фактуры //по сути это текстовая строка, которая состоит из 3 групп цифр //2(1) цифры - день, 2 цифры месяц, 4(2) цифры год //между этими группами цифр должны быть разделители из одного символа ".","\","/", причем разделители должны быть одинаковыми //справа и слева от этой группы не должно быть цифровых значений, а также симоволов, используемых для разделителей //если такая группа символов находится - то она превращается в дату и считается датой с/ф //затем из ДатаНомерСчетаФактуры удаляется этот набор данных, а в оставшейся части удаляются символы №, #, от," ", ",", "." //если невозможно выделить дату из поля ДатаНомерСФ, то считается, что поле ДатаНомерСФ содержит только номер. Дата в этом случае остается пустой. ДатаД = ""; ДатаМ = ""; ДатаГ = ""; Этап = 1; СписокРазделителей = ".\/"; Цифры = "0123456789"; ДатаОК = 1; ДатаНомерСФ = Параметры.ПараметрыАлгоритмов.Получить("ДатаНомерСчетаФактуры"); ИспользуемыйРазделитель = ""; НачалоСтрокиДаты = 0; КонецСтрокиДаты= 0; //ищем поле дата к = 1; Пока к<=СтрДлина(ДатаНомерСФ) Цикл Символ = Сред(ДатаНомерСФ,к,1); Если Этап = 1 Тогда //на первом этапе ищем возможное начало даты - символ с числом, которому предшествует не число и не разделитель ПредыдущийСимвол = ?(к>1,Сред(ДатаНомерСФ,к-1,1)," "); Если (Найти(Цифры,Символ)>0) И (Найти(Цифры,ПредыдущийСимвол)=0) И (Найти(СписокРазделителей,ПредыдущийСимвол)=0) тогда ДатаД = Символ; НачалоСтрокиДаты = к; Этап=2; КонецЕсли; ИначеЕсли Этап = 2 Тогда Если Найти(Цифры,Символ)>0 Тогда ДатаД = ДатаД+Символ; ИначеЕсли (Найти(СписокРазделителей,Символ)>0) и (Число(ДатаД)<=31) Тогда ИспользуемыйРазделитель = Символ; Этап = 3; Иначе ДатаД = ""; Этап = 1; НачалоСтрокиДаты = 0; КонецЕсли; ИначеЕсли Этап = 3 Тогда //выделяем месяц Если Найти(Цифры,Символ)>0 Тогда ДатаМ = ДатаМ+Символ; ИначеЕсли (Символ = ИспользуемыйРазделитель) и (СтрДлина(ДатаМ)=2) и (Число(ДатаМ)<=12) Тогда Этап = 4; Иначе ДатаД = ""; ДатаМ = ""; Этап = 1; НачалоСтрокиДаты = 0; КонецЕсли; ИначеЕсли Этап = 4 тогда //выделяем год Если Найти(Цифры,Символ)>0 Тогда ДатаГ = ДатаГ+Символ; СледующийСимвол = ?(к<СтрДлина(ДатаНомерСФ),Сред(ДатаНомерСФ,к+1,1)," "); //если следующий символ не цифра Если Найти(Цифры,СледующийСимвол)=0 Тогда //следующий символ не разделитель и длина года 2 или 4 Если (Найти(СписокРазделителей,СледующийСимвол)=0) и ((СтрДлина(ДатаГ)=4) или (СтрДлина(ДатаГ)=2))Тогда Если СтрДлина(ДатаГ)=2 Тогда Если Число(ДатаГ)>50 Тогда ДатаГ = "19"+ДатаГ; Иначе ДатаГ = "20"+ДатаГ; КонецЕсли; КонецЕсли; КонецСтрокиДаты = к; Прервать; КонецЕсли; КонецЕсли; Иначе ДатаД = ""; ДатаМ = ""; ДатаГ = ""; Этап = 1; НачалоСтрокиДаты = 0; КонецЕсли; КонецЕсли; к = к + 1; КонецЦикла; //Если нашли дату - то преобразуем номер Если (НачалоСтрокиДаты<>0) и (КонецСтрокиДаты<>0) Тогда ДатаСФ = Дата(ДатаГ,ДатаМ,ДатаД); Если ДатаСФ>Дата(1980,1,1) Тогда НомерСФ = Лев(ДатаНомерСФ, НачалоСтрокиДаты - 1)+Прав(ДатаНомерСФ,СтрДлина(ДатаНомерСФ)-КонецСтрокиДаты); //преобразуем номер, удаляем лишние символы НомерСФ = СтрЗаменить(ВРЕГ(НомерСФ),";",""); НомерСФ = СтрЗаменить(ВРЕГ(НомерСФ),"ГОДА",""); НомерСФ = СтрЗаменить(ВРЕГ(НомерСФ),"ГОД",""); НомерСФ = СтрЗаменить(ВРЕГ(НомерСФ),"ОТ",""); НомерСФ = СтрЗаменить(НомерСФ,"№",""); НомерСФ = СтрЗаменить(НомерСФ,"#",""); НомерСФ = СтрЗаменить(НомерСФ," ",""); НомерСФ = СтрЗаменить(НомерСФ,",",""); Иначе НомерСФ = ДатаНомерСФ; ДатаСФ = ""; КонецЕсли; Иначе //Если дату не нашли - то в номер записываем полностью дату-номер с/ф без изменений НомерСФ = ДатаНомерСФ; ДатаСФ = ""; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ДатаСчетаФактуры",ДатаСФ); Параметры.ПараметрыАлгоритмов.Установить("НомерСчетаФактуры",НомерСФ); <Алгоритм Имя="ПолучитьИсправляемыйСчетФактуру" ИспользуетсяПриЗагрузке="false"> <Текст>СчетФактура = Параметры.ПараметрыАлгоритмов.Получить("КорректировкаДокумент"); ИсправляемыйСчетФактура = Параметры.ПараметрыАлгоритмов.Получить("КорректировкаДокументОснование"); Док = СоздатьОбъект("Документ"); Док.ОбратныйПорядок(1); Док.ВыбратьПодчиненныеДокументы(ИсправляемыйСчетФактура.ДатаДок, СчетФактура, ИсправляемыйСчетФактура); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.ПометкаУдаления()=0) И (Док.ТекущийДокумент()<>СчетФактура) И ((Док.Вид()="КорректировочныйСчетФактура") ИЛИ (Док.Вид()="ИсправлениеСчетаФактуры") ИЛИ (Док.Вид()="КорректировочныйСчетФактураПолученный") ИЛИ (Док.Вид()="ИсправлениеСчетаФактурыПолученного")) Тогда ИсправляемыйСчетФактура = Док.ТекущийДокумент(); Прервать; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("ИсправляемыйДокумент", ИсправляемыйСчетФактура); <Алгоритм Имя="ПолучитьИтогиПоСчету" ИспользуетсяПриЗагрузке="false"> <Текст>БухИт = Параметры.ПараметрыАлгоритмов.Получить("БухИт"); ОстатокДтС = 0; ОстатокДтВ = 0; ОстатокДтК = 0; ОстатокКтС = 0; ОстатокКтВ = 0; ОстатокКтК = 0; ОборотДтС = 0; ОборотДтВ = 0; ОборотДтК = 0; ОборотКтС = 0; ОборотКтВ = 0; ОборотКтК = 0; Если БухИт.НачДата = НачМесяца(Параметры.ДатаВводаОстатков) Тогда ОстатокДтС = БухИт.СНД(1); ОстатокДтВ = БухИт.СНД(2); ОстатокДтК = БухИт.СНД(3); ОстатокКтС = БухИт.СНК(1); ОстатокКтВ = БухИт.СНК(2); ОстатокКтК = БухИт.СНК(3); КонецЕсли; ОборотДтС = БухИт.КорДО(1); ОборотДтВ = БухИт.КорДО(2); ОборотДтК = БухИт.КорДО(3); Если ПустоеЗначение(БухИт.КорСчет) = 1 Тогда ОборотКтС = БухИт.КорКО(1); ОборотКтВ = БухИт.КорКО(2); ОборотКтК = БухИт.КорКО(3); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("ОстатокДтС", ОстатокДтС); Параметры.ПараметрыАлгоритмов.Установить("ОстатокДтВ", ОстатокДтВ); Параметры.ПараметрыАлгоритмов.Установить("ОстатокДтК", ОстатокДтК); Параметры.ПараметрыАлгоритмов.Установить("ОстатокКтС", ОстатокКтС); Параметры.ПараметрыАлгоритмов.Установить("ОстатокКтВ", ОстатокКтВ); Параметры.ПараметрыАлгоритмов.Установить("ОстатокКтК", ОстатокКтК); Параметры.ПараметрыАлгоритмов.Установить("ОборотДтС", ОборотДтС); Параметры.ПараметрыАлгоритмов.Установить("ОборотДтВ", ОборотДтВ); Параметры.ПараметрыАлгоритмов.Установить("ОборотДтК", ОборотДтК); Параметры.ПараметрыАлгоритмов.Установить("ОборотКтС", ОборотКтС); Параметры.ПараметрыАлгоритмов.Установить("ОборотКтВ", ОборотКтВ); Параметры.ПараметрыАлгоритмов.Установить("ОборотКтК", ОборотКтК); <Алгоритм Имя="ПолучитьКодСчетаДополнительный" ИспользуетсяПриЗагрузке="false"> <Текст>//некоторые счета могут соответствовать нескольким счетам в базе-приемнике //субсчет выбирается в зависимости от значения некоторых субконто этого счета Счет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); СписокСубконто = Параметры.ПараметрыАлгоритмов.Получить("СписокСубконто"); Если (ПустоеЗначение(СписокСубконто)=1) и (ПустоеЗначение(Счет)=0) Тогда СписокСубконто = СоздатьОбъект("ТаблицаЗначений"); СписокСубконто.НоваяКолонка("Ключ"); СписокСубконто.НоваяКолонка("Значение"); Для НомерСубконто = 1 По Счет.КоличествоСубконто() Цикл СписокСубконто.НоваяСтрока(); СписокСубконто.Ключ = Счет.ВидСубконто(НомерСубконто); СписокСубконто.Значение = Параметры.ПараметрыАлгоритмов.Получить("Субконто"+НомерСубконто); КонецЦикла; КонецЕсли; КодСчета = ""; Если ПустоеЗначение(Счет)=0 Тогда Если (Счет = СчетПоКоду("45")) или (Счет = СчетПоКоду("НПР.45")) Тогда НСтр = 0; Если СписокСубконто.НайтиЗначение(ВидыСубконто.Номенклатура,НСтр,"Ключ")>0 Тогда Номенклатура = СписокСубконто.ПолучитьЗначение(НСтр,"Значение"); Если ПустоеЗначение(Номенклатура) = 0 Тогда Если Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда КодСчета = "45.01"; ИначеЕсли Номенклатура.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда КодСчета = "45.02"; Иначе КодСчета = "45.03"; КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли (Счет = СчетПоКоду("97")) или (Счет = СчетПоКоду("НПР.97")) Тогда НСтр = 0; Если СписокСубконто.НайтиЗначение(ВидыСубконто.РасходыБудущихПериодов,НСтр,"Ключ")>0 Тогда СтатьяРБП = СписокСубконто.ПолучитьЗначение(НСтр,"Значение"); Если ПустоеЗначение(СтатьяРБП) = 0 Тогда Если СтатьяРБП.НазначениеСтатьиРасходов = 1 Тогда КодСчета = "97.01"; ИначеЕсли СтатьяРБП.НазначениеСтатьиРасходов = 2 Тогда КодСчета = "97.02"; Иначе КодСчета = "97.21"; КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли (Счет = СчетПоКоду("НПР.10.1")) Тогда НСтр = 0; Если СписокСубконто.НайтиЗначение(ВидыСубконто.Материалы,НСтр,"Ключ")>0 Тогда Материал = СписокСубконто.ПолучитьЗначение(НСтр,"Значение"); Если ПустоеЗначение(Материал) = 0 Тогда КодСчетаМатериала = Материал.СубСчет10.Код; Если СтрДлина(КодСчетаМатериала)=4 Тогда КодСчета = Лев(КодСчетаМатериала,3)+"0"+Прав(КодСчетаМатериала,1); Иначе КодСчета = КодСчетаМатериала; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("КодСчета",КодСчета); <Алгоритм Имя="ПолучитьКомментарийДокумента" ИспользуетсяПриЗагрузке="false"> <Текст>Значение = "# Перенесено из 1С:Бухгалтерии 7.7 #"; Если ТипЗначенияСтр(Источник)="Документ" Тогда Значение = Значение + " "+СокрЛП(Источник)+" #"; Значение = Значение + СокрЛП(Источник.Комментарий); КонецЕсли; <Алгоритм Имя="ПолучитьНомерДокумента" ИспользуетсяПриЗагрузке="false"> <Текст> Документ = Параметры.ПараметрыАлгоритмов.Получить("Документ"); Номер = Прав("00000000"+СокрЛП(Документ.НомерДок),8); ПрефиксОрганизации = Лев(СокрЛП(Параметры.ПрефиксОрганизации)+"000",3); ПрефиксДока = "0"; Если ПустоеЗначение(Параметры.ПараметрыАлгоритмов.Получить("Префикс"))=0 Тогда ПрефиксДока = Параметры.ПараметрыАлгоритмов.Получить("Префикс"); КонецЕсли; Если ПрефиксДока = "0" Тогда Если Документ.Вид()="ПриказОбИзмененииОкладов" Тогда ПрефиксДока = "И"; ИначеЕсли Документ.Вид()="ПриказОКадровыхИзменениях" Тогда ПрефиксДока = "К"; ИначеЕсли Документ.Вид()="Взаимозачет" Тогда ПрефиксДока = "В"; ИначеЕсли Документ.Вид()="ЗачетАвансаПокупателя" Тогда ПрефиксДока = "П"; ИначеЕсли Документ.Вид()="ЗачетАвансаПоставщику" Тогда ПрефиксДока = "Т"; ИначеЕсли Документ.Вид()="ПоступлениеОборудования" Тогда ПрефиксДока = "О"; ИначеЕсли Документ.Вид()="ПоступлениеОС" Тогда ПрефиксДока = "С"; ИначеЕсли Документ.Вид()="ПоступлениеТоваров" Тогда Если (Документ.ВидПоступления = 1) или (Документ.ВидПоступления = 2) или (Документ.ВидПоступления = 11) Тогда ПрефиксДока = "Т"; КонецЕсли; ИначеЕсли Документ.Вид()="ПоступлениеМатериалов" Тогда Если (Документ.ВидПоступления = 0) Тогда ПрефиксДока = "М"; КонецЕсли; ИначеЕсли Документ.Вид()="УслугиСтороннихОрганизаций" Тогда Если Документ.ДокументПоступления.Выбран() = 0 Тогда ПрефиксДока = "У"; ИначеЕсли Документ.ДокументПоступления.Вид() = "ПоступлениеНМА" Тогда ПрефиксДока = "У"; КонецЕсли; ИначеЕсли Документ.Вид()="ПеремещениеТоваров" Тогда ПрефиксДока = "Т"; ИначеЕсли Документ.Вид()="ТребованиеНакладная" Тогда Если (Документ.ВидПеремещения = 1) Тогда ПрефиксДока = "Н"; КонецЕсли; ИначеЕсли Документ.Вид()="РасходнаяНакладная" Тогда Если (Источник.ВидОтгрузки = 1) и (Источник.ВидОтгрузки = 11) и (Источник.ВидОтгрузки = 2) и (Источник.ВидОтгрузки = 12)Тогда ПрефиксДока = "Н"; Иначе ПрефиксДока = "Р"; КонецЕсли; ИначеЕсли Документ.Вид()="ОтпускМатериаловНаСторону" Тогда ПрефиксДока = "М"; ИначеЕсли Документ.Вид()="ОказаниеУслуг" Тогда Если (Документ.ТипУслуги = 1) или (Документ.ТипУслуги = 3) Тогда ПрефиксДока = "У"; КонецЕсли; ИначеЕсли Документ.Вид()="ПродажаВРозницу" Тогда ПрефиксДока = "Р"; ИначеЕсли Документ.Вид()="ИнвентаризацияТМЦ" Тогда Если ПустоеЗначение(ВходящиеДанные)=0 Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ИнвентаризацияТоваровНаСкладе"))=0 Тогда ПрефиксДока = "И"; КонецЕсли; КонецЕсли; ИначеЕсли Документ.Вид()="ПередачаОС" Тогда Если Документ.ПричинаВыбытия <> Перечисление.ПричиныВыбытияОС.Продажа Тогда ПрефиксДока = "П"; КонецЕсли; ИначеЕсли Документ.Вид()="СписаниеОС" Тогда ПрефиксДока = "С"; ИначеЕсли Документ.Вид()="ИсправлениеСчетаФактуры" Тогда ПрефиксДока = "И"; ИначеЕсли Документ.Вид()="ИсправлениеСчетаФактурыПолученного" Тогда ПрефиксДока = "И"; КонецЕсли; КонецЕсли; Номер = ПрефиксОрганизации + Номер; Для к=1 по 4 Цикл Если Сред(Номер,к,1)="0" Тогда Номер = Лев(Номер,к-1)+ПрефиксДока+Прав(Номер,СтрДлина(Номер)-к); Прервать; КонецЕсли; КонецЦикла; //КонецЦикла; //Если ПрефиксОрганизации = "000" Тогда // Номер = ПрефиксДока+Прав(ПрефиксОрганизации,2)+Номер; //Иначе // Если Лев(Номер,1)="0" Тогда // Номер = ПрефиксОрганизации + ПрефиксДока + Прав(Номер,СтрДлина(Номер)-1); // Иначе // Номер = ПрефиксОрганизации + Номер; // КонецЕсли; //КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("Префикс",""); Параметры.ПараметрыАлгоритмов.Установить("НомерДокумента",Номер); <Алгоритм Имя="ПолучитьПараметрыПР" ИспользуетсяПриЗагрузке="false"> <Текст>Документ = Параметры.ПараметрыАлгоритмов.Получить("Документ"); ОС = Параметры.ПараметрыАлгоритмов.Получить("ОС"); //сначала получаем сумму ПР Если НачМесяца(Документ.ДатаДок)-1>ОС.ДатаВводаВЭксплуатацию Тогда БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); Если ПустоеЗначение(ОС.ДатаВводаВЭксплуатацию)=1 Тогда БухИт.ПериодД(Дата(1990,1,1),НачМесяца(Документ.ДатаДок)-1); Иначе БухИт.ПериодД(НачМесяца(ОС.ДатаВводаВЭксплуатацию),НачМесяца(Документ.ДатаДок)-1); КонецЕсли; СуммаПР_Начало = БухИт.ДО("НПР.01",,, ОС); АмортизацияПР_Начало = БухИт.КО("НПР.01",,, ОС); Иначе СуммаПР_Начало = 0; АмортизацияПР_Начало = 0; КонецЕсли; БухИт = СоздатьОбъект("БухгалтерскиеИтоги"); БухИт.ПериодМ(Документ.ДатаДок); СуммаПР = БухИт.ДО("НПР.01",,, ОС); //АмортизацияПР = БухИт.КО("НПР.01",,, ОС); //теперь нужно найти документы, модернизации и ввода в эксплуатацию по данному ОС Запрос = СоздатьОбъект("Запрос"); ДатаНачалаЗапроса = НачМесяца(Документ.ДатаДок); ДатаОкончанияЗапроса = КонМесяца(Документ.ДатаДок); ТекстЗапроса = "//{{ЗАПРОС(ОплатаТруда) |Период с ДатаНачалаЗапроса по ДатаОкончанияЗапроса; |Сумма = Документ.ВводВЭксплуатациюОС.БалансоваяСтоимость, Документ.МодернизацияОС.СуммаРасходов; |Док = Документ.ВводВЭксплуатациюОС.ТекущийДокумент, Документ.МодернизацияОС.ТекущийДокумент; |ОсновноеСредство = Документ.ВводВЭксплуатациюОС.ОсновноеСредство, Документ.МодернизацияОС.ОсновноеСредство; |Группировка Док; |Функция СуммаБУ = Сумма(Сумма); |Условие(ОсновноеСредство = ОС); |"//}}ЗАПРОС ; СуммаПР_ОС = 0; ОсталосьПР = СуммаПР; Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда СуммаБУ = Запрос.СуммаБУ; Пока Запрос.Группировка(1)=1 Цикл СуммаПР_Начало = СуммаПР_Начало + СуммаПР_ОС; СуммаПР_ОС = Окр(Запрос.СуммаБУ / СуммаБУ * ОсталосьПР,2); ОсталосьПР = ОсталосьПР - СуммаПР_ОС; СуммаБУ = СуммаБУ - Запрос.СуммаБУ; Если Запрос.Док = Документ Тогда Прервать; КонецЕсли; КонецЦикла; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("НачОстатокПР",СуммаПР_Начало); Параметры.ПараметрыАлгоритмов.Установить("ПриходПР",СуммаПР_ОС); Параметры.ПараметрыАлгоритмов.Установить("НачАмортизацияПР",АмортизацияПР_Начало); <Алгоритм Имя="ПолучитьПодразделениеИзСубконто" ИспользуетсяПриЗагрузке="false"> <Текст>ЗначениеСубконто = Параметры.ПараметрыАлгоритмов.Получить("СубконтоПодразделение"); Параметры.ПараметрыАлгоритмов.Установить("СубконтоПодразделение", ""); Если ((ТипЗначения(ЗначениеСубконто) = 11) И (ПустоеЗначение(ЗначениеСубконто)=0)) Тогда Если ЗначениеСубконто.Вид() = "Подразделения" Тогда Возврат(ЗначениеСубконто); ИначеЕсли ЗначениеСубконто.Вид() = "РасходыБудущихПериодов" Тогда Счет = ЗначениеСубконто.СчетЗатрат; Для к=1 по Счет.КоличествоСубконто() цикл ВидСубконтоИсточника = Счет.ВидСубконто(к); Если ВидСубконтоИсточника = ВидыСубконто.Подразделения тогда Возврат(ЗначениеСубконто.ПолучитьАтрибут("Субконто"+к)); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; Возврат(ПолучитьПустоеЗначение()); <Алгоритм Имя="ПолучитьСтавкуНДС" ИспользуетсяПриЗагрузке="false"> <Текст>Ставка = Параметры.ПараметрыАлгоритмов.Получить("СтавкаНДС"); ЗначениеСтавки = "БезНДС"; Если ПустоеЗначение(Ставка)=0 Тогда Если Ставка.Ставка>19 Тогда ЗначениеСтавки = "НДС20"; ИначеЕсли Ставка.Ставка > 17 Тогда ЗначениеСтавки = "НДС18"; ИначеЕсли Ставка.Ставка > 16 Тогда ЗначениеСтавки = "НДС20_120"; ИначеЕсли Ставка.Ставка > 15 Тогда ЗначениеСтавки = "НДС18_118"; ИначеЕсли Ставка.Ставка > 9.5 Тогда ЗначениеСтавки = "НДС10"; ИначеЕсли Ставка.Ставка > 1 Тогда ЗначениеСтавки = "НДС10_110"; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("СтавкаНДССтрока",ЗначениеСтавки); <Алгоритм Имя="ПолучитьСтруктуруАдреса" ИспользуетсяПриЗагрузке="false"> <Текст> Адрес = ВходящиеДанные.Получить("Адрес"); АдресСписком = глРазложить(Адрес); Если СтрКоличествоСтрок(Адрес) <> 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); КонецЕсли; ВходящиеДанные.Установить("Представление", ТекПредставление); Иначе ВходящиеДанные.Установить("Представление", Адрес); КонецЕсли; <Алгоритм Имя="ПолучитьСчетаРасчетовСКонтрагентамиПокупка" ИспользуетсяПриЗагрузке="false"> <Текст> Документ = Параметры.ПараметрыАлгоритмов.Получить("Документ"); СписокСчетов = СоздатьОбъект("СписокЗначений"); ЦеныВДоговоре = 1; // в рублях ОплатаДоговора = 1; Если Документ.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Документ.Договор.ВалютаДоговора) = 0 Тогда ЦеныВДоговоре = 2; // в валюте КонецЕсли; ОплатаДоговора = Документ.Договор.ОплатаДоговора; // 1 - врублях, 2 - в валюте КонецЕсли; Если ОплатаДоговора = 2 Тогда Если Документ.Вид() = "УслугиСтороннихОрганизаций" Тогда Если Документ.ТипИсполнителя = 1 Тогда СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("60.22")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("60.11")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.22")); Иначе СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("76.55")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("76.55")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.22")); КонецЕсли; Иначе СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("60.22")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("60.11")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.22")); КонецЕсли; ИначеЕсли ЦеныВДоговоре = 1 Тогда Если Документ.Вид() = "УслугиСтороннихОрганизаций" Тогда Если Документ.ТипИсполнителя = 1 Тогда СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("60.2")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("60.1")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.2")); Иначе СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("76.5")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("76.5")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.2")); КонецЕсли; Иначе СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("60.2")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("60.1")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.2")); КонецЕсли; Иначе Если Документ.Вид() = "УслугиСтороннихОрганизаций" Тогда Если Документ.ТипИсполнителя = 1 Тогда СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("60.7")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("60.6")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.22")); Иначе СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("76.6")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("76.6")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.22")); КонецЕсли; Иначе СписокСчетов.Установить("СчетАвансовВыданных",СчетПоКоду("60.7")); СписокСчетов.Установить("СчетРасчетовСПоставщиком",СчетПоКоду("60.6")); СписокСчетов.Установить("СчетРасчетовПоПретензиям",СчетПоКоду("76.22")); КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("СчетаРасчетовСКонтрагентамиПокупка", СписокСчетов); <Алгоритм Имя="ПолучитьСчетаРасчетовСКонтрагентамиПродажа" ИспользуетсяПриЗагрузке="false"> <Текст> Документ = Параметры.ПараметрыАлгоритмов.Получить("Документ"); СписокСчетов = СоздатьОбъект("СписокЗначений"); ЦеныВДоговоре = 1; // в рублях ОплатаДоговора = 1; Если Документ.Договор.Выбран() = 1 Тогда Если ПустоеЗначение(Документ.Договор.ВалютаДоговора) = 0 Тогда ЦеныВДоговоре = 2; // в валюте КонецЕсли; ОплатаДоговора = Документ.Договор.ОплатаДоговора; // 1 - в рублях, 2 - в валюте КонецЕсли; Если (Документ.Вид()="ОказаниеУслуг") Тогда Если ( Документ.ТипУслуги = 3) и (Документ.ТипЗаказчика = 2) Тогда СчетаРасчетов = "76"; Иначе СчетаРасчетов = "62"; КонецЕсли; Иначе СчетаРасчетов = "62"; КонецЕсли; Если ОплатаДоговора = 2 Тогда Если СчетаРасчетов = "76" Тогда СписокСчетов.Установить("СчетРасчетовСПокупателем",СчетПоКоду("76.55")); СписокСчетов.Установить("СчетАвансовПолученных", СчетПоКоду("76.55")); СписокСчетов.Установить("СчетРасчетовЗаКомиссионныеТовары", СчетПоКоду("76.55")); СписокСчетов.Установить("СчетРасчетовСКомитентом", СчетПоКоду("76.5")); Иначе СписокСчетов.Установить("СчетРасчетовСПокупателем",СчетПоКоду("62.11")); СписокСчетов.Установить("СчетРасчетовЗаКомиссионныеТовары", СчетПоКоду("62.11"));//СчетПоКоду("62.44")); СписокСчетов.Установить("СчетАвансовПолученных", СчетПоКоду("62.22")); СписокСчетов.Установить("СчетРасчетовСКомитентом", СчетПоКоду("76.55")); КонецЕсли; Иначе Если ЦеныВДоговоре = 1 Тогда Если СчетаРасчетов = "76" Тогда СписокСчетов.Установить("СчетРасчетовСПокупателем", СчетПоКоду("76.5")); СписокСчетов.Установить("СчетРасчетовЗаКомиссионныеТовары", СчетПоКоду("76.5")); СписокСчетов.Установить("СчетАвансовПолученных", СчетПоКоду("76.5")); СписокСчетов.Установить("СчетРасчетовСКомитентом", СчетПоКоду("76.5")); Иначе СписокСчетов.Установить("СчетРасчетовСПокупателем", СчетПоКоду("62.1")); СписокСчетов.Установить("СчетРасчетовЗаКомиссионныеТовары", СчетПоКоду("62.1"));//СчетПоКоду("62.4")); СписокСчетов.Установить("СчетАвансовПолученных", СчетПоКоду("62.2")); СписокСчетов.Установить("СчетРасчетовСКомитентом", СчетПоКоду("76.5")); КонецЕсли; Иначе Если СчетаРасчетов = "76" Тогда СписокСчетов.Установить("СчетРасчетовСПокупателем", СчетПоКоду("76.6")); СписокСчетов.Установить("СчетРасчетовЗаКомиссионныеТовары", СчетПоКоду("76.6")); СписокСчетов.Установить("СчетАвансовПолученных", СчетПоКоду("76.6")); СписокСчетов.Установить("СчетРасчетовСКомитентом", СчетПоКоду("76.6")); Иначе СписокСчетов.Установить("СчетРасчетовСПокупателем", СчетПоКоду("62.6")); СписокСчетов.Установить("СчетРасчетовЗаКомиссионныеТовары", СчетПоКоду("62.6"));//СчетПоКоду("62.8")); СписокСчетов.Установить("СчетАвансовПолученных", СчетПоКоду("62.7")); СписокСчетов.Установить("СчетРасчетовСКомитентом", СчетПоКоду("76.6")); КонецЕсли; КонецЕсли; КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("СчетаРасчетовСКонтрагентамиПродажа", СписокСчетов); <Алгоритм Имя="ПолучитьСчетаФактурыВыписки" ИспользуетсяПриЗагрузке="false"> <Текст>//***************************************** ТаблицаСчетовФактур = СоздатьОбъект("ТаблицаЗначений"); ТаблицаСчетовФактур.НоваяКолонка("СчетФактура"); ТаблицаСчетовФактур.НоваяКолонка("Контрагент"); ТаблицаСчетовФактур.НоваяКолонка("Договор"); ТаблицаСчетовФактур.НоваяКолонка("Тип"); ТаблицаСчетовФактур.НоваяКолонка("СуммаСчетаФактуры"); Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,,Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.ПометкаУдаления() = 0) и (Док.Вид() = "СчетФактура") Тогда ТаблицаСчетовФактур.НоваяСтрока(); ТаблицаСчетовФактур.СчетФактура = Док.ТекущийДокумент(); ТаблицаСчетовФактур.Контрагент = Док.Контрагент; ТаблицаСчетовФактур.Договор = Док.Договор; ТаблицаСчетовФактур.Тип = Док.ВидОперации; ТаблицаСчетовФактур.СуммаСчетаФактуры = Док.Итог("Всего"); КонецЕсли; КонецЦикла; //***************************************** Опер = СоздатьОбъект("Операция"); // Соберем проводки Выписки по полученным авансам в таблицу значений. Авансы = СоздатьОбъект("ТаблицаЗначений"); Авансы.НоваяКолонка("Контрагент", "Справочник",,, "Контрагент", 20); Авансы.НоваяКолонка("Договор", "Справочник",,, "Договор", 12); Авансы.НоваяКолонка("ДоговорСчетаФактуры", "Справочник",,, "Договор счета-фактуры", 12); Авансы.НоваяКолонка("ПервичныйДокумент", "Строка"); Авансы.НоваяКолонка("Сумма",,,, "Сумма аванса", 15); Авансы.НоваяКолонка("СуммаВВалютеДоговора", "Число"); Авансы.НоваяКолонка("Тип",,,,"Тип записи", 21); Авансы.НоваяКолонка("Строка",,,,, 6); Авансы.НоваяКолонка("НомерСтрокиДокумента","Число"); ТаблицаОплаты = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТаблицаОплаты); Опер.НайтиОперацию(Источник); СписокПроводок = "51,62.2; |51,62.7; |52,62.22;"; Опер.ВыбратьОперацииСПроводками(Источник, Источник, СписокПроводок); Пока Опер.ПолучитьПроводку() = 1 Цикл Авансы.НоваяСтрока(); Авансы.НомерСтрокиДокумента = Опер.НомерСтрокиДокумента(); Если Авансы.НомерСтрокиДокумента = 0 Тогда Авансы.Контрагент = Опер.Кредит.Контрагенты; Авансы.Договор = Опер.Кредит.Договоры; Иначе Авансы.Контрагент = ТаблицаОплаты.ПолучитьЗначение(Авансы.НомерСтрокиДокумента,"Субконто1"); Авансы.Договор = ТаблицаОплаты.ПолучитьЗначение(Авансы.НомерСтрокиДокумента,"Субконто2"); КонецЕсли; Авансы.ДоговорСчетаФактуры = Опер.Кредит.Договоры; Авансы.ПервичныйДокумент = СокРЛП(Опер.ПервичныйДокумент); Авансы.Тип = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс; Если (Опер.Дебет.Счет = СчетПокоду("62.7")) или (Опер.Кредит.Счет = СчетПокоду("62.7")) Тогда Авансы.Сумма = Опер.Сумма; Авансы.СуммаВВалютеДоговора = Опер.Сумма; Иначе Авансы.Сумма = ?(Опер.ВалСумма=0, Опер.Сумма, Опер.ВалСумма); Если (Опер.Валюта.Выбран() = 1) и (Авансы.Договор.ВалютаДоговора <> Опер.Валюта) Тогда Авансы.СуммаВВалютеДоговора = Опер.Сумма; Иначе Авансы.СуммаВВалютеДоговора = Авансы.Сумма; КонецЕсли; КонецЕсли; КонецЦикла; Сч62_2 = СчетПоКоду("62.2"); Сч62_7 = СчетПоКоду("62.7"); Сч62_22 = СчетПоКоду("62.22"); Сч62_11 = СчетПоКоду("62.11"); Сч62_8 = СчетПоКоду("62.8"); ТаблицаОплаты.ВыбратьСтроки(); Пока ТаблицаОплаты.ПолучитьСтроку() = 1 Цикл Если ТаблицаОплаты.Приход = 0 Тогда Продолжить; КонецЕсли; Если (ПустоеЗначение(ТаблицаОплаты.ДокументПоставки)=0) Тогда Если ТаблицаОплаты.ДокументПоставки.Вид() = "Счет" Тогда Продолжить; КонецЕсли; КонецЕсли; Если (ТаблицаОплаты.КоррСчет = Сч62_2) или (ТаблицаОплаты.КоррСчет = Сч62_7) или (ТаблицаОплаты.КоррСчет = Сч62_22) или (ТаблицаОплаты.КоррСчет = Сч62_11) или (ТаблицаОплаты.КоррСчет = Сч62_8) или (Источник.БанковскийСчет.ТипСчета = Перечисление.ТипыБанковскихСчетов.Валютный) Тогда ИначеЕсли (ТипЗначенияСтр(ТаблицаОплаты.Субконто1) = "Справочник") и (ТипЗначенияСтр(ТаблицаОплаты.Субконто2) = "Справочник") Тогда Если (ТаблицаОплаты.Субконто1.Вид() = "Контрагенты") и (ТаблицаОплаты.Субконто2.Вид() = "Договоры") Тогда Если ТаблицаОплаты.Субконто2.Выбран() = 1 Тогда Если ПустоеЗначение(ТаблицаОплаты.Субконто2.ВалютаДоговора) = 0 Тогда Если ТаблицаОплаты.Субконто2.ОплатаДоговора = 2 Тогда Продолжить; КонецЕсли; КонецЕсли; КонецЕсли; Если (ПустоеЗначение(ТаблицаОплаты.ДокументПоставки)=0)и (ТаблицаОплаты.КурсОплаты>0) Тогда Если (ТаблицаОплаты.ДокументПоставки.Курс > ТаблицаОплаты.КурсОплаты) Тогда Продолжить; КонецЕсли; Авансы.НоваяСтрока(); Авансы.Строка = ТаблицаОплаты.НомерСтроки; Авансы.Контрагент = ТаблицаОплаты.Субконто1; Авансы.Договор = ТаблицаОплаты.Субконто2; Авансы.ДоговорСчетаФактуры = ТаблицаОплаты.Субконто2; Авансы.Тип = Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница; Авансы.Сумма = 0; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("ТаблицаСчетовФактур",ТаблицаСчетовФактур); Параметры.ПараметрыАлгоритмов.Установить("Авансы",Авансы); <Алгоритм Имя="ПолучитьСчетаФактурыПолученныеВыписки" ИспользуетсяПриЗагрузке="false"> <Текст>//***************************************** ТаблицаСчетовФактур = СоздатьОбъект("ТаблицаЗначений"); ТаблицаСчетовФактур.НоваяКолонка("СчетФактура"); ТаблицаСчетовФактур.НоваяКолонка("Контрагент"); ТаблицаСчетовФактур.НоваяКолонка("Договор"); ТаблицаСчетовФактур.НоваяКолонка("Тип"); ТаблицаСчетовФактур.НоваяКолонка("СуммаСчетаФактуры"); Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,,Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.ПометкаУдаления() = 0) и (Док.Вид() = "СчетФактураПолученный") Тогда ТаблицаСчетовФактур.НоваяСтрока(); ТаблицаСчетовФактур.СчетФактура = Док.ТекущийДокумент(); ТаблицаСчетовФактур.Контрагент = Док.Контрагент; ТаблицаСчетовФактур.Договор = Док.Договор; ТаблицаСчетовФактур.Тип = Док.ВидОперации; ТаблицаСчетовФактур.СуммаСчетаФактуры = Док.Всего; КонецЕсли; КонецЦикла; //***************************************** // Соберем проводки Выписки по полученным авансам в таблицу значений. Авансы = СоздатьОбъект("ТаблицаЗначений"); Авансы.НоваяКолонка("Контрагент", "Справочник",,, "Контрагент", 20); Авансы.НоваяКолонка("Договор", "Справочник",,, "Договор", 12); Авансы.НоваяКолонка("ПервичныйДокумент", "Строка"); Авансы.НоваяКолонка("Сумма",,,, "Сумма аванса", 15); Авансы.НоваяКолонка("СуммаВВалютеДоговора", "Число"); Авансы.НоваяКолонка("Тип",,,,"Тип записи", 21); Авансы.НоваяКолонка("Строка",,,,, 6); Авансы.НоваяКолонка("НомерСтрокиДокумента","Число"); Опер = СоздатьОбъект("Операция"); Опер.НайтиОперацию(Источник); СписокПроводок = "60.2,51; |60.7,51; |60.22,51;"; Опер.ВыбратьОперацииСПроводками(Источник, Источник, СписокПроводок); Пока Опер.ПолучитьПроводку() = 1 Цикл Авансы.НоваяСтрока(); Если (Опер.Дебет.Счет = СчетПокоду("60.2")) или (Опер.Дебет.Счет = СчетПокоду("60.7")) или (Опер.Дебет.Счет = СчетПокоду("60.22")) Тогда Авансы.Контрагент = Опер.Дебет.Контрагенты; Авансы.Договор = Опер.Дебет.Договоры; Иначе Авансы.Контрагент = Опер.Кредит.Контрагенты; Авансы.Договор = Опер.Кредит.Договоры; КонецЕсли; Если (Опер.Дебет.Счет = СчетПокоду("60.7")) или (Опер.Кредит.Счет = СчетПокоду("60.7")) Тогда Авансы.Сумма = Опер.Сумма; Авансы.СуммаВВалютеДоговора = Опер.Сумма; Иначе Авансы.Сумма = ?(Опер.ВалСумма=0, Опер.Сумма, Опер.ВалСумма); Если (Опер.Валюта.Выбран() = 1) и (Авансы.Договор.ВалютаДоговора <> Опер.Валюта) Тогда Авансы.СуммаВВалютеДоговора = Опер.Сумма; Иначе Авансы.СуммаВВалютеДоговора = Авансы.Сумма; КонецЕсли; КонецЕсли; Авансы.ПервичныйДокумент = СокРЛП(Опер.ПервичныйДокумент); Авансы.НомерСтрокиДокумента = Опер.НомерСтрокиДокумента(); Авансы.Тип = Перечисление.ВидыОперацийСчетаФактурыПолученного.Аванс; КонецЦикла; Параметры.ПараметрыАлгоритмов.Установить("ТаблицаСчетовФактур",ТаблицаСчетовФактур); Параметры.ПараметрыАлгоритмов.Установить("Авансы",Авансы); <Алгоритм Имя="ПолучитьСчетУчетаТоваров" ИспользуетсяПриЗагрузке="false"> <Текст> МестоХранения = Параметры.ПараметрыАлгоритмов.Получить("ТоварМестоХранения"); Товар = Параметры.ПараметрыАлгоритмов.Получить("Товар"); Розничный = 0; Если ПустоеЗначение(МестоХранения)=0 Тогда Розничный = ?(МестоХранения.ТипСклада = Перечисление.ТипыСкладов.Розничный,1,0); КонецЕсли; Если Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Товар Тогда Если Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда СчетУчета = СчетПоКоду("004"); ИначеЕсли Товар.ТипТовара = Перечисление.ТипыТоваров.Тара Тогда СчетУчета = СчетПоКоду("41.3"); ИначеЕсли Товар.ТипТовара = Перечисление.ТипыТоваров.ПокупныеИзделия Тогда СчетУчета = СчетПоКоду("41.4"); Иначе //Если Товар.ТипТовара = Перечисление.ТипыТоваров.Собственный Тогда Если Розничный = 1 Тогда //розница СчетУчета = СчетПоКоду("41.2"); Иначе //Если КодВидаПоступления = 1 Тогда опт СчетУчета = СчетПоКоду("41.1"); КонецЕсли; КонецЕсли; ИначеЕсли Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда СчетУчета = СчетПоКоду("43"); ИначеЕсли Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Полуфабрикат Тогда СчетУчета = СчетПоКоду("21"); КонецЕсли; Параметры.ПараметрыАлгоритмов.Установить("СчетУчетаТовара",СчетУчета); <Алгоритм Имя="ПриВыгрузкеСубконто" ИспользуетсяПриЗагрузке="false"> <Текст>Счет = Параметры.ПараметрыАлгоритмов.Получить("Счет"); Субконто = Параметры.ПараметрыАлгоритмов.Получить("Субконто"); НомерСубконто = Параметры.ПараметрыАлгоритмов.Получить("НомерСубконто"); ДтКт = Параметры.ПараметрыАлгоритмов.Получить("ДтКт"); ВидДоговора = "Прочее"; Если ПустоеЗначение(Счет) = 0 Тогда Если Счет = СчетПоКоду("ГТД") Тогда Если НомерСубконто = 3 Тогда ВидСубконто = "СтраныПроисхождения"; // страны происхождения ИмяПКО = "КлассификаторСтранМира"; КонецЕсли; ИначеЕсли Счет = СчетПоКоду("57.11") Тогда Если ПустоеЗначение(Субконто)=0 Тогда Если ТипЗначенияСтр(Субконто)="Справочник" Тогда ВидСубконто = "Контрагенты"; ИмяПКО = "КонтрагентБанк"; ИначеЕсли ТипЗначенияСтр(Субконто)="СписокЗначений" Тогда ВидСубконто = "Договоры"; ИмяПКО = "ДоговорПродажиВалюты"; КонецЕсли; КонецЕсли; ИначеЕсли Счет.КоличествоСубконто() > 0 Тогда ВидСубконтоИсточника = Счет.ВидСубконто(НомерСубконто); ИмяПКО = ""; ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Если ТипЗначенияСтр(Субконто) = "Справочник" Тогда Если Субконто.Вид() = "Договоры" Тогда ИмяПКО = "ДоговорыКонтрагентов"; КонецЕсли; КонецЕсли; Если ВидСубконтоИсточника = ВидыСубконто.Подразделения Тогда Если (Счет = СчетПоКоду("79.1")) ИЛИ (Счет = СчетПоКоду("79.2")) Тогда ВидСубконто = "ОбособленныеПодразделения"; // Обособленные подразделения ИмяПКО = "ОбособленныеПодразделения"; Иначе Отказ = 1; КонецЕсли; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.ОбъектыСтроительства Тогда Если (Счет = СчетПоКоду("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; Если СписокОбъектов.НайтиЗначение(Субконто, НомСтр, "ОбъектСтроительства") = 0 Тогда Если (Счет = СчетПоКоду("08.1")) или (Счет = СчетПоКоду("08.2")) или (Счет = СчетПоКоду("08.3")) Тогда СписокОбъектов.НоваяСтрока(); СписокОбъектов.ОбъектСтроительства = Субконто; СписокОбъектов.СчетБухгалтерскогоУчета = Счет; СписокОбъектов.СчетБухгалтерскогоУчетаНДС = СчетПоКоду("19.1"); КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.СчетаФактурыВыданные Тогда Если ПустоеЗначение(Субконто)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Субконто); Параметры.ПараметрыАлгоритмов.Установить("ИмяПКО",""); ОпределитьПКОДляДокумента(); ИмяПКО = Параметры.ПараметрыАлгоритмов.Получить("ИмяПКО"); Иначе Отказ = 1; КонецЕсли; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.СчетаФактурыПолученные Тогда Если ПустоеЗначение(Субконто)=0 Тогда Параметры.ПараметрыАлгоритмов.Установить("Документ",Субконто); Параметры.ПараметрыАлгоритмов.Установить("ИмяПКО",""); ОпределитьПКОДляДокумента(); ИмяПКО = Параметры.ПараметрыАлгоритмов.Получить("ИмяПКО"); Иначе Отказ = 1; КонецЕсли; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.СтавкиНДС Тогда Если Субконто.Ставка = 0 Тогда Субконто = "БезНДС"; ИначеЕсли Субконто.Ставка = 18 Тогда Субконто = "НДС18"; ИначеЕсли Субконто.Ставка = 10 Тогда Субконто = "НДС10"; ИначеЕсли Субконто.Ставка = 20 Тогда Субконто = "НДС20"; КонецЕсли; ИмяПКО = "СтавкиНДС"; ТипПриемника = "ПеречислениеСсылка.СтавкиНДС"; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.ВидыНачисленийВыплат Тогда Отказ = 1; ИначеЕсли ВидСубконтоИсточника = ВидыСубконто.НазначенияИспользования Тогда Если ПустоеЗначение(Субконто)=0 Тогда Если ПустоеЗначение(Субконто.ДокументПередачаВПроизводство)=0 Тогда Если Субконто.ДокументПередачаВПроизводство.ДатаДок < Параметры.ДатаВводаОстатков Тогда ИмяПКО = "ПартияМатериаловВЭксплуатации"; Иначе Субконто = Субконто.ДокументПередачаВПроизводство; ИмяПКО = "ПередачаМатериаловСпецназначенияВПроизводство"; КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли Счет = СчетПоКоду("45") Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидСубконто = "Партии"; // партии ИмяПКО = "ДоговорСКомитентом"; ВидДоговора = "СКомиссионером"; КонецЕсли; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("44.1"))=1 Тогда Если ВидСубконто = ВидыСубконто.СтатьиИздержекОбращения Тогда ИсходящиеДанные = ?(ПустоеЗначение(ИсходящиеДанные)=1,СоздатьОбъект("СписокЗначений"),ИсходящиеДанные); ИсходящиеДанные.Установить("ВидДеятельностиДляНалоговогоУчетаЗатрат", ?(Счет = СчетПоКоду("44.1.3"),"ВидДеятельностиОпределяетсяПоДоходам",?(Счет = СчетПоКоду("44.1.2"),"ПредпринимательскаяДеятельностьОблагаемаяЕНВД","ПредпринимательскаяДеятельностьНеОблагаемаяЕНВД") ) ); ИмяПКО = "СтатьиИздержекОбращения"; КонецЕсли; ИначеЕсли Счет = СчетПоКоду("004") Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидСубконто = "Партии"; // партии ИмяПКО = "ДоговорСКомитентом"; ВидДоговора = "СКомитентом"; КонецЕсли; ИначеЕсли Счет = СчетПоКоду("КМС") Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидСубконто = "Партии"; // партии ИмяПКО = "ДоговорСКомитентом"; ВидДоговора = "СКомиссионером"; КонецЕсли; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("62")) = 1 Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидДоговора = "СПокупателем"; КонецЕсли; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("60")) = 1 Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидДоговора = "СПоставщиком"; КонецЕсли; ИначеЕсли Счет.ПринадлежитГруппе(СчетПоКоду("Н02.04")) = 1 Тогда Если ВидСубконтоИсточника = ВидыСубконто.Договоры Тогда ВидСубконто = "Партии"; // партии ИмяПКО = "ДоговорСКомитентом"; ВидДоговора = "СКомиссионером"; КонецЕсли; ИначеЕсли Счет = СчетПоКоду("Н04.03") Тогда Если ТипЗначенияСтр(Субконто) = "Справочник" Тогда Если Субконто.Вид() = "РасходыБудущихПериодов" Тогда ИмяПКО = "РБП_НМА"; КонецЕсли; КонецЕсли; ИначеЕсли (Счет = СчетПоКоду("Н07.04.1")) или (Счет = СчетПоКоду("Н01.05")) Тогда Если ТипЗначенияСтр(Субконто) = "Перечисление" Тогда Если Субконто.Вид() = "ГруппыВидыРасходов" Тогда ВидСубконто = "СтатьиЗатрат"; // статьи затрат ИмяПКО = "ВидыРасходов"; КонецЕсли; КонецЕсли; ИначеЕсли (Счет = СчетПоКоду("Н07.09")) или (Счет = СчетПоКоду("Н07.10")) или (Счет = СчетПоКоду("Н07.11")) или (Счет = СчетПоКоду("Н07.12")) Тогда ВидСубконто = ВидыСубконто.Договоры; ИначеЕсли Счет = СчетПоКоду("Н01.07") Тогда Если ТипЗначенияСтр(Субконто) = "Строка" Тогда ВидСубконто = "СтатьиЗатрат"; // статьи затрат ИмяПКО = "ВидыРасходов"; КонецЕсли; ИначеЕсли (Счет.ПринадлежитГруппе(СчетПоКоду("Н06")) = 1) или (Счет.ПринадлежитГруппе(СчетПоКоду("Н07")) = 1) или (Счет = СчетПоКоду("Н08")) или (Счет = СчетПоКоду("Н09")) Тогда Если ТипЗначенияСтр(Субконто) = "Перечисление" Тогда Если Субконто.Вид() = "ВидыПрочихДоходовИРасходов" Тогда ВидСубконто = "ПрочиеДоходыИРасходы"; // прочие доходы и расходы ИмяПКО = "ВидыРасходовПрочие"; КонецЕсли; ИначеЕсли ТипЗначенияСтр(Субконто) = "Строка" Тогда ВидСубконто = "ПрочиеДоходыИРасходы"; // прочие доходы и расходы ИмяПКО = "ВидыРасходовПрочие"; ИначеЕсли ТипЗначенияСтр(Субконто) = "Справочник" Тогда Если Субконто.Вид() = "ОсновныеСредства" Тогда ВидСубконто = "РеализуемыеАктивыОС"; ИмяПКО = "ОсновныеСредства"; ИначеЕсли Субконто.Вид() = "НематериальныеАктивы" Тогда ВидСубконто = "РеализуемыеАктивыНМА"; ИмяПКО = "НематериальныеАктивы"; ИначеЕсли Субконто.Вид() = "Договоры" Тогда ВидСубконто = "РеализуемыеАктивыДоговоры"; ИмяПКО = "ДоговорыКонтрагентов"; ИначеЕсли Субконто.Вид() = "Контрагенты" Тогда ВидСубконто = "РеализуемыеАктивыКонтрагенты"; ИмяПКО = "Контрагенты"; ИначеЕсли Субконто.Вид() = "ЦенныеБумаги" Тогда ВидСубконто = "РеализуемыеАктивыЦенныеБумаги"; ИмяПКО = "ЦенныеБумаги"; ИначеЕсли Субконто.Вид() = "Номенклатура" Тогда Если (Счет = СчетПоКоду("Н06.01")) ИЛИ (Счет = СчетПоКоду("Н06.04")) Тогда ВидСубконто = "Номенклатура"; Иначе ВидСубконто = "РеализуемыеАктивыНоменклатура"; КонецЕсли; ИмяПКО = "Номенклатура"; ИначеЕсли Субконто.Вид() = "ВидыНоменклатуры" Тогда Если (Счет = СчетПоКоду("Н06.01")) ИЛИ (Счет = СчетПоКоду("Н06.04")) ИЛИ (Счет = СчетПоКоду("Н07.01")) ИЛИ (Счет = СчетПоКоду("Н07.02")) ИЛИ (Счет = СчетПоКоду("Н07.05")) Тогда ВидСубконто = "ВидыНоменклатуры"; Иначе ВидСубконто = "РеализуемыеАктивыВидНоменклатуры"; КонецЕсли; ИмяПКО = "НоменклатурныеГруппы"; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Если (Счет.ПринадлежитГруппе(СчетПоКоду("60")) = 1) или (Счет.ПринадлежитГруппе(СчетПоКоду("62")) = 1) или (Счет.ПринадлежитГруппе(СчетПоКоду("76")) = 1) или (Счет.ПринадлежитГруппе(СчетПоКоду("УЕ")) = 1) или (Счет.ПринадлежитГруппе(СчетПоКоду("ВАЛ")) = 1) Тогда Если ПустоеЗначение(ВидСубконтоИсточника) = 1 Тогда // это расчетный документ ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидОперации", ВходящиеДанные.Получить("ВидОперации")); ВидСубконто = "ДокументыРасчетовСКонтрагентами"; ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные"; Если (ТипЗначенияСтр(Субконто) <> "Справочник") и (ТипЗначенияСтр(Субконто) <> "Документ") Тогда Отказ = 1; ИначеЕсли Субконто.Вид() = "ПоступлениеМатериалов" Тогда ИмяПКО = "ПоступлениеМатериалов"; ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ИначеЕсли Субконто.Вид() = "ПоступлениеНМА" Тогда ИмяПКО = "ПоступлениеНМА"; ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ИначеЕсли Субконто.Вид() = "ПоступлениеОборудования" Тогда ИмяПКО = "ПоступлениеОборудования"; ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ИначеЕсли Субконто.Вид() = "ПоступлениеОС" Тогда ИмяПКО = "ПоступлениеОС"; ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ИначеЕсли Субконто.Вид() = "ПоступлениеТоваров" Тогда ИмяПКО = "ПоступлениеТоваров"; ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ИначеЕсли Субконто.Вид() = "СчетФактураПолученный" Тогда ИмяПКО = "СчетФактураПолученный"; //Если Субконто.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыПолученного.Аванс тогда // ИсходящиеДанные.Установить("ВидОперации", "НДСпоАвансамПолученным"); //Иначе // ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); //КонецЕсли; ИначеЕсли Субконто.Вид() = "УслугиСтороннихОрганизаций" Тогда ИмяПКО = "УслугиСтороннихОрганизаций"; ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ИначеЕсли Субконто.Вид() = "СчетФактура" Тогда ИмяПКО = "СчетФактура"; //ИсходящиеДанные.Установить("ВидОперации", "НДСНеПолученныйОтПокупателей"); //КонецЕсли; ИначеЕсли Субконто.Вид() = "Договоры" Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом"; Если (Счет.ПринадлежитГруппе(СчетПоКоду("60")) = 1) или (Счет = СчетПоКоду("УЕ.60")) или (Счет.ПринадлежитГруппе(СчетПоКоду("76")) = 1) и (ДтКт = 2) Тогда ИсходящиеДанные.Установить("ВидОперации", "НДСПоПриобретеннымЦенностям"); ИначеЕсли (Счет = СчетПоКоду("62.2")) или (Счет = СчетПоКоду("62.22")) или (Счет = СчетПоКоду("62.7")) Тогда ИсходящиеДанные.Установить("ВидОперации", "НДСпоАвансамПолученным"); Иначе ИсходящиеДанные.Установить("ВидОперации", "НДСНеПолученныйОтПокупателей"); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; НомерПКОСубконто = НайтиПравило(Субконто, ИмяПКО); Если НомерПКОСубконто = 0 Тогда Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; //Если (ПустоеЗначение(Субконто) = 0) и (ВидДоговора <> "Прочее") Тогда // Если Субконто.ЭтоГруппа() = 0 Тогда // НомСтр = 0; // Если Параметры.ТаблицаДоговоров.НайтиЗначение(Субконто, НомСтр, "Договор") = 0 Тогда // Параметры.ТаблицаДоговоров.НоваяСтрока(); // Параметры.ТаблицаДоговоров.Договор = Субконто; // Параметры.ТаблицаДоговоров.ВидДоговора = ВидДоговора; // КонецЕсли; // КонецЕсли; //КонецЕсли; <Алгоритм Имя="ПрименитьПараметрыДляСчетовДенежныхСредств" ИспользуетсяПриЗагрузке="true"> <Текст>БУ = ПланыСчетов.Хозрасчетный.Касса.ПолучитьОбъект(); ВестиУчетПоСтатьямДДС = НЕ (БУ.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиДвиженияДенежныхСредств, "ВидСубконто") = Неопределено); Если НЕ ВестиУчетПоСтатьямДДС Тогда ВестиУчетПоСтатьямДДС = Истина; // Устанавливаем/удаляем аналитику по статьям движения на счетах учета денежных средств Счета = Новый Массив; // Счет 50 Счета.Добавить(ПланыСчетов.Хозрасчетный.Касса); Счета.Добавить(ПланыСчетов.Хозрасчетный.КассаОрганизации); Счета.Добавить(ПланыСчетов.Хозрасчетный.ОперационнаяКасса); Счета.Добавить(ПланыСчетов.Хозрасчетный.КассаОрганизацииВал); // Счет 51 Счета.Добавить(ПланыСчетов.Хозрасчетный.РасчетныеСчета); // Счет 52 Счета.Добавить(ПланыСчетов.Хозрасчетный.ВалютныеСчета); // Счет 55 Счета.Добавить(ПланыСчетов.Хозрасчетный.СпециальныеСчета); Счета.Добавить(ПланыСчетов.Хозрасчетный.Аккредитивы); Счета.Добавить(ПланыСчетов.Хозрасчетный.ЧековыеКнижки); Счета.Добавить(ПланыСчетов.Хозрасчетный.ДепозитныеСчета); Счета.Добавить(ПланыСчетов.Хозрасчетный.ПрочиеСпециальныеСчета); Счета.Добавить(ПланыСчетов.Хозрасчетный.АккредитивыВал); Счета.Добавить(ПланыСчетов.Хозрасчетный.ДепозитныеСчетаВал); Счета.Добавить(ПланыСчетов.Хозрасчетный.ПрочиеСпециальныеСчетаВал); // Счет 57 Счета.Добавить(ПланыСчетов.Хозрасчетный.ПереводыВПути); Счета.Добавить(ПланыСчетов.Хозрасчетный.ПереводыВПутиВал); // визуализация процесса ФормаПрогрессора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных"); ФормаПрогрессора.НаименованиеОбработкиДанных = "Настройка аналитического учета денежных средств"; ФормаПрогрессора.Значение = 0; ФормаПрогрессора.КомментарийОбработкиДанных = ""; ФормаПрогрессора.Открыть(); ОбработаноСчетов = 0; КоличествоСчетовВсего = Счета.Количество(); ФормаПрогрессора.МаксимальноеЗначение = КоличествоСчетовВсего; ФормаПрогрессора.КомментарийОбработкиДанных = "Установка аналитики на счетах бухгалтерского учета"; Для каждого Счет Из Счета Цикл ОбработаноСчетов = ОбработаноСчетов + 1; ФормаПрогрессора.Значение = ОбработаноСчетов; СтрокаВидаСубконто = Счет.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиДвиженияДенежныхСредств, "ВидСубконто"); НетУчетаПоСтатьямДДС = СтрокаВидаСубконто = Неопределено; Если ВестиУчетПоСтатьямДДС И НетУчетаПоСтатьямДДС Тогда СчетОбъект = Счет.ПолучитьОбъект(); НовыйВидСубконто = СчетОбъект.ВидыСубконто.Добавить(); НовыйВидСубконто.ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиДвиженияДенежныхСредств; НовыйВидСубконто.ТолькоОбороты = Истина; НовыйВидСубконто.Суммовой = Истина; НовыйВидСубконто.Валютный = Истина; СчетОбъект.Записать(); ИначеЕсли НЕ ВестиУчетПоСтатьямДДС И НЕ НетУчетаПоСтатьямДДС Тогда СчетОбъект = Счет.ПолучитьОбъект(); СтрокаДляУдаления = СчетОбъект.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиДвиженияДенежныхСредств, "ВидСубконто"); СчетОбъект.ВидыСубконто.Удалить(СтрокаДляУдаления); СчетОбъект.Записать(); КонецЕсли; КонецЦикла; Если ФормаПрогрессора.Открыта() Тогда ФормаПрогрессора.Закрыть(); КонецЕсли; КонецЕсли; <Алгоритм Имя="ПрименитьПараметрыРасчетовССотрудниками" ИспользуетсяПриЗагрузке="true"> <Текст>Значение_ВестиУчетПоРаботникам = Истина; Значение_ВестиУчетПоРаботникам = ?(одАтрибут(ФайлОбмена, одТипЧисло, "УчетЗарплатыВоВнешнейПрограмме") = 1, Ложь, Истина); БУ = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда; ВестиУчетПоРаботникам = НЕ (БУ.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизаций, "ВидСубконто") = Неопределено); Если ВестиУчетПоРаботникам <> Значение_ВестиУчетПоРаботникам Тогда ВестиУчетПоРаботникам = Значение_ВестиУчетПоРаботникам; СписокСчетов = Новый СписокЗначений(); СписокСчетов.Добавить("РасчетыСПерсоналомПоОплатеТруда"); СписокСчетов.Добавить("РасчетыПоДепонированнымСуммам"); СписокСчетов.Добавить("РасходыНаОплатуТрудаБудущихПериодов"); ИмяПланаСчетов = "Хозрасчетный"; // визуализация процесса ФормаПрогрессора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных"); ФормаПрогрессора.НаименованиеОбработкиДанных = "Настройка аналитического учета расчетов с сотрудниками"; ФормаПрогрессора.Значение = 0; ФормаПрогрессора.КомментарийОбработкиДанных = ""; ФормаПрогрессора.Открыть(); ОбработаноСчетов = 0; КоличествоСчетовВсего = СписокСчетов.Количество(); ФормаПрогрессора.МаксимальноеЗначение = КоличествоСчетовВсего; ФормаПрогрессора.КомментарийОбработкиДанных = "Установка аналитики на счетах бухгалтерского учета"; Для каждого СтрокаСписка Из СписокСчетов Цикл ОбработаноСчетов = ОбработаноСчетов + 1; ФормаПрогрессора.Значение = ОбработаноСчетов; ИмяСчета = СтрокаСписка.Значение; Счет = ПланыСчетов[ИмяПланаСчетов][ИмяСчета]; Счета = Новый СписокЗначений(); Счета.Добавить(Счет); ВыборкаСчетов = ПланыСчетов[ИмяПланаСчетов].ВыбратьИерархически(Счет); Пока ВыборкаСчетов.Следующий() Цикл Счета.Добавить(ВыборкаСчетов.Ссылка); КонецЦикла; Для каждого Счет Из Счета Цикл Объект = Счет.Значение.ПолучитьОбъект(); КодСчета = Объект.Код; Субконто = Объект.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизаций, "ВидСубконто"); Если НЕ (Субконто = Неопределено) Тогда Если Субконто.Предопределенное Тогда Продолжить; КонецЕсли; КонецЕсли; Если ВестиУчетПоРаботникам = Истина Тогда // Добавляем Если Субконто = Неопределено Тогда Если Счет.Значение = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда Тогда НовыйВид = Объект.ВидыСубконто.Вставить(0); Иначе НовыйВид = Объект.ВидыСубконто.Добавить(); КонецЕсли; НовыйВид.ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.РаботникиОрганизаций; НовыйВид.Суммовой = Истина; Если Объект.Количественный Тогда НовыйВид.Количественный = Истина; КонецЕсли; КонецЕсли; ИначеЕсли ВестиУчетПоРаботникам = Ложь Тогда // Удаляем Если Субконто = Неопределено Тогда // кто-то удалил вид субконто вручную! Продолжить; КонецЕсли; Объект.ВидыСубконто.Удалить(Субконто); КонецЕсли; Объект.Записать(); КонецЦикла; КонецЦикла; Если ФормаПрогрессора.Открыта() Тогда ФормаПрогрессора.Закрыть(); КонецЕсли; КонецЕсли; <Алгоритм Имя="ПроверитьНаВозможностьВыгрузки" ИспользуетсяПриЗагрузке="false"> <Текст>Если ТипЗначенияСтр(Источник)="Документ" Тогда Если (Источник.ПометкаУдаления ()=1) И (Параметры._ВыгружатьУдаленные=0) Тогда Отказ = 1; КонецЕсли; Если (Метаданные.Документ(Источник.Вид()).РазрешитьПроведение = 1) и (Источник.Вид()<>"РасчетыПоСтраховымВзносам") и (Источник.Вид()<>"ПеречислениеНДФЛвБюджет") и (Источник.Вид()<>"КорректировочныйСчетФактура") и (Источник.Вид()<>"КорректировочныйСчетФактураПолученный") и (Источник.Вид()<>"ИсправлениеСчетаФактуры") и (Источник.Вид()<>"ИсправлениеСчетаФактурыПолученного") Тогда Если (Источник.Проведен()=1) И (Параметры._ВыгружатьПроведенные=0) Тогда Отказ = 1; КонецЕсли; Если (Источник.Проведен()=0) И (Источник.ПометкаУдаления()=0) И (Параметры._ВыгружатьНеПроведенные=0) Тогда Отказ = 1; КонецЕсли; КонецЕсли; КонецЕсли; <Алгоритм Имя="Проверка1" ИспользуетсяПриЗагрузке="false"> <Текст>// Проверка № 1 ****************************************** // проверка сальдо и оборотов в целом по ИБ КодПроверки = ""; //********************************** // # Данные из 7.7 ВыбНачПериода = Параметры.ДатаВводаОстатков; ВыбКонПериода = Параметры.ДатаКонцаПериодаВыгрузки; Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Если Параметры.ДатаВводаОстатков = Параметры.ДатаКонцаПериодаВыгрузки Тогда Ит.ВыполнитьЗапрос(ВыбНачПериода,); ОстаткиИОбороты = 1; Иначе Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода); ОстаткиИОбороты = 2; КонецЕсли; СНД = 0; СНК = 0; ДО = 0; КО = 0; СКД = 0; СКК = 0; Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл Если Ит.Счет.Забалансовый = 1 Тогда Продолжить; КонецЕсли; Если Ит.Счет.Код = "00" Тогда Продолжить; КонецЕсли; СНД = СНД + Ит.СНД("С"); СНК = СНК + Ит.СНК("С"); ДО = ДО + Ит.ДО("С"); КО = КО + Ит.КО("С"); СКД = СКД + Ит.СКД("С"); СКК = СКК + Ит.СКК("С"); КонецЦикла; //********************************** // # Модуль проверки в 8 КодПроверки = " | Запрос.Текст = | ""ВЫБРАТЬ | | ХозрасчетныйОстаткиИОбороты.Счет КАК Счет, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстатокДт) КАК СуммаНачальныйОстатокДт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстатокКт) КАК СуммаНачальныйОстатокКт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотДт) КАК СуммаОборотДт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотКт) КАК СуммаОборотКт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокДт) КАК СуммаКонечныйОстатокДт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокКт) КАК СуммаКонечныйОстатокКт | |ИЗ | | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&НачПериода, &КонПериода, , , (НЕ Счет.Забалансовый) И (Счет.Код <> """"000"""") И (НЕ Счет.ЗапретитьИспользоватьВПроводках), , Организация = &Организация) КАК ХозрасчетныйОстаткиИОбороты | | | |ГДЕ | | ХозрасчетныйОстаткиИОбороты.Счет.Забалансовый = ЛОЖЬ И | | ХозрасчетныйОстаткиИОбороты.Счет.Код <> """"000"""" | | | |СГРУППИРОВАТЬ ПО | | ХозрасчетныйОстаткиИОбороты.Счет | |ИТОГИ ПО | | Счет ИЕРАРХИЯ""; | | Результат = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией); | | ОтобразитьТекстСостояния(""Проверка итогового начального сальдо""); | Если Результат.Строки.Итог(""СуммаНачальныйОстатокДт"") <> " + СНД + " Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает итоговое начальное сальдо по дебету: | | Значение в базе-источнике: " + СокрЛП(Формат(СНД, "Ч25.2, ")) + " | | Значение в базе-приемнике: "" + Результат.Строки.Итог(""СуммаНачальныйОстатокДт"")); | Иначе | ОтобразитьТекстСостояния(""Проверка итогового начального сальдо по дебету прошла успешно""); | КонецЕсли; | Если Результат.Строки.Итог(""СуммаНачальныйОстатокКт"") <> " + СНК + " Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает итоговое начальное сальдо по кредиту: | | Значение в базе-источнике: " + СокрЛП(Формат(СНК, "Ч25.2, ")) + " | | Значение в базе-приемнике: "" + Результат.Строки.Итог(""СуммаНачальныйОстатокКт"")); | Иначе | ОтобразитьТекстСостояния(""Проверка итогового начального сальдо по кредиту прошла успешно""); | КонецЕсли; | | ОтобразитьТекстСостояния(""Проверка итоговых оборотов за период""); | Если Результат.Строки.Итог(""СуммаОборотДт"") <> " + ДО + " Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает итоговый оборот по дебету: | | Значение в базе-источнике: " + СокрЛП(Формат(ДО, "Ч25.2, ")) + " | | Значение в базе-приемнике: "" + Результат.Строки.Итог(""СуммаОборотДт"")); | Иначе | ОтобразитьТекстСостояния(""Проверка итоговых оборотов по дебету прошла успешно""); | КонецЕсли; | Если Результат.Строки.Итог(""СуммаОборотКт"") <> " + КО + " Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает итоговый оборот по кредиту: | | Значение в базе-источнике: " + СокрЛП(Формат(КО, "Ч25.2, ")) + " | | Значение в базе-приемнике: "" + Результат.Строки.Итог(""СуммаОборотКт"")); | Иначе | ОтобразитьТекстСостояния(""Проверка итоговых оборотов по кредиту прошла успешно""); | КонецЕсли; | | ОтобразитьТекстСостояния(""Проверка итогового конечного сальдо""); | Если Результат.Строки.Итог(""СуммаКонечныйОстатокДт"") <> " + СКД + " Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает итоговое конечное сальдо по дебету: | | Значение в базе-источнике: " + СокрЛП(Формат(СКД, "Ч25.2, ")) + " | | Значение в базе-приемнике: "" + Результат.Строки.Итог(""СуммаКонечныйОстатокДт"")); | Иначе | ОтобразитьТекстСостояния(""Проверка итогового конечного сальдо по дебету прошла успешно""); | КонецЕсли; | Если Результат.Строки.Итог(""СуммаКонечныйОстатокКт"") <> " + СКК + " Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает итоговое конечное сальдо по кредиту: | | Значение в базе-источнике: " + СокрЛП(Формат(СКК, "Ч25.2, ")) + " | | Значение в базе-приемнике: "" + Результат.Строки.Итог(""СуммаКонечныйОстатокКт"")); | Иначе | ОтобразитьТекстСостояния(""Проверка итогового конечного сальдо по кредиту прошла успешно""); | КонецЕсли; |" ; Возврат(КодПроверки); <Алгоритм Имя="Проверка2" ИспользуетсяПриЗагрузке="false"> <Текст>// Проверка № 2 ****************************************** // проверка сальдо и оборотов по каждому счету КодПроверки = ""; //********************************** // # Данные из 7.7 ВыбНачПериода = Параметры.ДатаВводаОстатков; ВыбКонПериода = Параметры.ДатаКонцаПериодаВыгрузки; Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Если Параметры.ДатаВводаОстатков = Параметры.ДатаКонцаПериодаВыгрузки Тогда Ит.ВыполнитьЗапрос(ВыбНачПериода,); ОстаткиИОбороты = 1; Иначе Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода); ОстаткиИОбороты = 2; КонецЕсли; СписокДанных = СоздатьОбъект("СписокЗначений"); СписокИмен = СоздатьОбъект("СписокЗначений"); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл Если Ит.Счет.Забалансовый = 1 Тогда Продолжить; КонецЕсли; Если Ит.Счет = СчетПоКоду("00") Тогда Продолжить; КонецЕсли; // исользуем ключ: тип итогов + код счета СписокДанных.ДобавитьЗначение(Ит.СНД("С")); СписокДанных.ДобавитьЗначение(Ит.СНК("С")); СписокДанных.ДобавитьЗначение(Ит.ДО("С")); СписокДанных.ДобавитьЗначение(Ит.КО("С")); СписокДанных.ДобавитьЗначение(Ит.СКД("С")); СписокДанных.ДобавитьЗначение(Ит.СКК("С")); СписокИмен.ДобавитьЗначение("СНД" + Ит.Счет.Код); СписокИмен.ДобавитьЗначение("СНК" + Ит.Счет.Код); СписокИмен.ДобавитьЗначение("ДО" + Ит.Счет.Код); СписокИмен.ДобавитьЗначение("КО" + Ит.Счет.Код); СписокИмен.ДобавитьЗначение("СКД" + Ит.Счет.Код); СписокИмен.ДобавитьЗначение("СКК" + Ит.Счет.Код); КонецЦикла; СписокИмен = СписокИмен.ВСтрокуСРазделителями(); СписокИмен = СтрЗаменить(СписокИмен, """",""); СписокДанных = СписокДанных.ВСтрокуСРазделителями(); //********************************** // # Модуль проверки в 8 КодПроверки = " | Запрос.Текст = | ""ВЫБРАТЬ | | ХозрасчетныйОстаткиИОбороты.Счет КАК Счет, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстатокДт) КАК СуммаНачальныйОстатокДт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстатокКт) КАК СуммаНачальныйОстатокКт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотДт) КАК СуммаОборотДт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаОборотКт) КАК СуммаОборотКт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокДт) КАК СуммаКонечныйОстатокДт, | | СУММА(ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокКт) КАК СуммаКонечныйОстатокКт | |ИЗ | | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&НачПериода, &КонПериода, , , , , Организация = &Организация) КАК ХозрасчетныйОстаткиИОбороты | | | |ГДЕ | | ХозрасчетныйОстаткиИОбороты.Счет.Забалансовый = ЛОЖЬ И | | ХозрасчетныйОстаткиИОбороты.Счет.Код <> """"000"""" | | | |СГРУППИРОВАТЬ ПО | | ХозрасчетныйОстаткиИОбороты.Счет | |ИТОГИ | | СУММА(СуммаНачальныйОстатокДт), | | СУММА(СуммаНачальныйОстатокКт), | | СУММА(СуммаОборотДт), | | СУММА(СуммаОборотКт), | | СУММА(СуммаКонечныйОстатокДт), | | СУММА(СуммаКонечныйОстатокКт) | |ПО | | Счет ИЕРАРХИЯ | | АВТОУПОРЯДОЧИВАНИЕ""; | | Результат = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией); | |СписокИменБП = """ + СписокИмен + """; |СписокДанныхБП = """ + СписокДанных + """; | |//Преобразуем строки в многострочную часть | СписокИмен = СтрЗаменить(СписокИменБП, "","", Символы.ПС); | СписокДанных = СтрЗаменить(СписокДанныхБП, "","", Символы.ПС); | |Для Каждого СтрокаРезультата ИЗ Результат.Строки Цикл | Найден = Ложь; | | // В строке имен найдем номер строки с которой начинаем проверку счетов соответствующих БП | Для НомерСтроки = 1 По СтрЧислоСтрок(СписокИмен) Цикл | Если СтрПолучитьСтроку(СписокИмен, НомерСтроки) = ""СНД"" + СокрЛП(СтрокаРезультата.Счет.Код) Тогда | Найден = Истина; | Прервать; | КонецЕсли; | КонецЦикла; | | Если НЕ Найден Тогда | Продолжить; | КонецЕсли; | | // Проверка итогов по найденному счету | | СНД = Число(СтрПолучитьСтроку(СписокДанных, НомерСтроки)); | СНК = Число(СтрПолучитьСтроку(СписокДанных, НомерСтроки+1)); | ДО = Число(СтрПолучитьСтроку(СписокДанных, НомерСтроки+2)); | КО = Число(СтрПолучитьСтроку(СписокДанных, НомерСтроки+3)); | СКД = Число(СтрПолучитьСтроку(СписокДанных, НомерСтроки+4)); | СКК = Число(СтрПолучитьСтроку(СписокДанных, НомерСтроки+5)); | | ОтобразитьТекстСостояния(""Проверка начального сальдо для счета "" + СтрокаРезультата.Счет.Код); | Если СтрокаРезультата.СуммаНачальныйОстатокДт <> СНД Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает начальное сальдо по дебету счета "" + СтрокаРезультата.Счет.Код + "": | | Значение в базе-источнике: "" + СНД + "" | | Значение в базе-приемнике: "" + СтрокаРезультата.СуммаНачальныйОстатокДт); | Иначе | ОтобразитьТекстСостояния(""Проверка начального сальдо по дебету для счета "" + СтрокаРезультата.Счет.Код + "" прошла успешно""); | КонецЕсли; | Если СтрокаРезультата.СуммаНачальныйОстатокКт <> СНК Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает начальное сальдо по кредиту счета "" + СтрокаРезультата.Счет.Код + "": | | Значение в базе-источнике: "" + СНК + "" | | Значение в базе-приемнике: "" + СтрокаРезультата.СуммаНачальныйОстатокКт); | Иначе | ОтобразитьТекстСостояния(""Проверка начального сальдо по кредиту для счета "" + СтрокаРезультата.Счет.Код + "" прошла успешно""); | КонецЕсли; | | ОтобразитьТекстСостояния(""Проверка оборотов за период для счета "" + СтрокаРезультата.Счет.Код); | Если СтрокаРезультата.СуммаОборотДт <> ДО Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает оборот по дебету счета "" + СтрокаРезультата.Счет.Код + "": | | Значение в базе-источнике: "" + ДО + "" | | Значение в базе-приемнике: "" + СтрокаРезультата.СуммаОборотДт); | Иначе | ОтобразитьТекстСостояния(""Проверка оборотов по дебету для счета "" + СтрокаРезультата.Счет.Код + "" прошла успешно""); | КонецЕсли; | Если СтрокаРезультата.СуммаОборотКт <> КО Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает оборот по кредиту счета "" + СтрокаРезультата.Счет.Код + "": | | Значение в базе-источнике: "" + КО + "" | | Значение в базе-приемнике: "" + СтрокаРезультата.СуммаОборотКт); | Иначе | ОтобразитьТекстСостояния(""Проверка оборотов по кредиту для счета "" + СтрокаРезультата.Счет.Код + "" прошла успешно""); | КонецЕсли; | | ОтобразитьТекстСостояния(""Проверка конечного сальдо для счета "" + СтрокаРезультата.Счет.Код); | Если СтрокаРезультата.СуммаКонечныйОстатокДт <> СКД Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает конечное сальдо по дебету счета "" + СтрокаРезультата.Счет.Код + "": | | Значение в базе-источнике: "" + СКД + "" | | Значение в базе-приемнике: "" + СтрокаРезультата.СуммаКонечныйОстатокДт); | Иначе | ОтобразитьТекстСостояния(""Проверка конечного сальдо по дебету для счета "" + СтрокаРезультата.Счет.Код + "" прошла успешно""); | КонецЕсли; | Если СтрокаРезультата.СуммаКонечныйОстатокКт <> СКК Тогда | ЗафиксироватьОшибку(ЭтапКонвертации, ""Не совпадает конечное сальдо по кредиту счета "" + СтрокаРезультата.Счет.Код + "": | | Значение в базе-источнике: "" + СКК + "" | | Значение в базе-приемнике: "" + СтрокаРезультата.СуммаКонечныйОстатокКт); | Иначе | ОтобразитьТекстСостояния(""Проверка конечного сальдо по кредиту для счета "" + СтрокаРезультата.Счет.Код + "" прошла успешно""); | КонецЕсли; | |КонецЦикла; |" ; Возврат(КодПроверки); <Алгоритм Имя="Проверки" ИспользуетсяПриЗагрузке="false"> <Текст>// Проверка № 1 ****************************************** // проверка сальдо и оборотов в целом по ИБ КодПроверки = Проверка1(); // Проверка № 2 ****************************************** // проверка сальдо и оборотов по счетам КодПроверки = КодПроверки + Проверка2(); Возврат КодПроверки; <Алгоритм Имя="РаспределитьГТД" ИспользуетсяПриЗагрузке="false"> <Текст>КолонкиРаспределения = СоздатьОбъект("СписокЗначений"); КолонкиРаспределения.Установить("Сумма",1); КолонкиРаспределения.Установить("СуммаНДС",1); КолонкиРаспределения.Установить("Себестоимость",1); КолонкиРаспределения.Установить("Стоимость",1); //теперь нужно заполнить номера ГТД и страну происхождения //выбираем счет-фактуры для этого документа Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,,Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.ПометкаУдаления() = 0) и ((Док.Вид() = "СчетФактураПолученный") или (Док.Вид() = "СчетФактура")) Тогда //это счет-фактура. Пытаемся распределить ГТД на строки ТЧ Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку()=1 цикл Если ПустоеЗначение(Док.ГТД)=0 Тогда //распределяем это ГТД на строки по количеству и товару КоличествоРаспределить = Док.Количество; КоллекцияОбъектов.ВыбратьСтроки(); Пока (КоллекцияОбъектов.ПолучитьСтроку()=1) и (КоличествоРаспределить>0) Цикл Если (КоллекцияОбъектов.Номенклатура = Док.Товар) и (ПустоеЗначение(КоллекцияОбъектов.НомерГТД)=1) тогда Если КоллекцияОбъектов.Количество<=КоличествоРаспределить Тогда КоллекцияОбъектов.НомерГТД = Док.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Док.ГТД.СтранаПроисхождения; КоличествоРаспределить = КоличествоРаспределить - КоллекцияОбъектов.Количество; Иначе //количества по ГТД не хватает - нужно разделить Количество = КоллекцияОбъектов.Количество; НоваяСтрока = СоздатьОбъект("СписокЗначений"); Для НомерКолонки = 1 по КоллекцияОбъектов.КоличествоКолонок() Цикл ИмяКолонки = КоллекцияОбъектов.ПолучитьПараметрыКолонки(НомерКолонки); Если ПустоеЗначение(КолонкиРаспределения.Получить(ИмяКолонки))=0 Тогда //это ресурс - его нужно распределить СтароеЗначениеРесурса = КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки,ИмяКолонки); НовоеЗначениеРесурса = Окр(КоличествоРаспределить/Количество*СтароеЗначениеРесурса,2); НоваяСтрока.ДобавитьЗначение(СтароеЗначениеРесурса - НовоеЗначениеРесурса,строка(НомерКолонки)); КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.НомерСтроки,НомерКолонки,НовоеЗначениеРесурса); ИначеЕсли ИмяКолонки = "Количество" Тогда НоваяСтрока.ДобавитьЗначение(Количество - КоличествоРаспределить,строка(НомерКолонки)); КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.НомерСтроки,"Количество",КоличествоРаспределить); Иначе //это не ресурс - просто копируем его НоваяСтрока.ДобавитьЗначение(КоллекцияОбъектов.ПолучитьЗначение(КоллекцияОбъектов.НомерСтроки,НомерКолонки),строка(НомерКолонки)); КонецЕсли; КонецЦикла; КоллекцияОбъектов.НомерГТД = Док.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Док.ГТД.СтранаПроисхождения; //теперь добавляем строку с остатком товара КоллекцияОбъектов.НоваяСтрока(); Для к=1 по КоллекцияОбъектов.КоличествоКолонок() цикл КоллекцияОбъектов.УстановитьЗначение(КоллекцияОбъектов.КоличествоСтрок(),к,НоваяСтрока.Получить(Строка(к))); КонецЦикла; КоличествоРаспределить = 0; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; <Алгоритм Имя="РаспределитьПоМестамХранения" ИспользуетсяПриЗагрузке="false"> <Текст>КоллекцияОбъектов = ВходящиеДанные.Получить("ВходящиеОстатки"); Сч_006 = СчетПоКоду("006"); //*********************************** //Получение стоимости единицы ТМЦ (в 77 на местах хранения ведется только количественный учет, //а для ввода остатков нам необходима сумма) //Выбираем строки с итогами (без указания количества) удаляем их, а сумму распределяем //по строкам с указанным количеством пропорционально КоллекцияОбъектов.Сортировать("СчетУчета, Субконто1, Субконто2, Субконто3"); ТабСуммыКРаспределению = СоздатьОбъект("ТаблицаЗначений"); ТабСуммыКРаспределению.НоваяКолонка("СчетУчета"); ТабСуммыКРаспределению.НоваяКолонка("Субконто1"); ТабСуммыКРаспределению.НоваяКолонка("Субконто2"); ТабСуммыКРаспределению.НоваяКолонка("Сумма"); ТабСуммыКРаспределению.НоваяКолонка("Количество"); ТабСуммыКРаспределению.НоваяКолонка("Стоимость"); КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл СчетУчета = ?(КоллекцияОбъектов.СчетДт = СчетПоКоду("00"), КоллекцияОбъектов.СчетКт,КоллекцияОбъектов.СчетДт); Если СчетУчета.Количественный = 1 Тогда Если (ПустоеЗначение(КоллекцияОбъектов.Количество) = 1) И (ПустоеЗначение(КоллекцияОбъектов.Сумма) = 0) Тогда ТабСуммыКРаспределению.НоваяСтрока(); ТабСуммыКРаспределению.СчетУчета = КоллекцияОбъектов.СчетУчета; ТабСуммыКРаспределению.Субконто1 = КоллекцияОбъектов.Субконто1; ТабСуммыКРаспределению.Субконто2 = КоллекцияОбъектов.Субконто2; ТабСуммыКРаспределению.Сумма = КоллекцияОбъектов.Сумма; КонецЕсли; КонецЕсли; КонецЦикла; ТабСуммыКРаспределению.ВыбратьСтроки(); Пока ТабСуммыКРаспределению.ПолучитьСтроку() = 1 Цикл ТабСуммыКРаспределению.Количество = 0; ТабСуммыКРаспределению.Стоимость = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл СчетУчета = ?(КоллекцияОбъектов.СчетДт = СчетПоКоду("00"), КоллекцияОбъектов.СчетКт,КоллекцияОбъектов.СчетДт); Если СчетУчета.Количественный = 1 Тогда Если (ПустоеЗначение(КоллекцияОбъектов.Количество) = 0) И (ПустоеЗначение(КоллекцияОбъектов.Сумма) = 1) Тогда Если (ТабСуммыКРаспределению.СчетУчета = КоллекцияОбъектов.СчетУчета) И (ТабСуммыКРаспределению.Субконто1 = КоллекцияОбъектов.Субконто1) Тогда СчетУчета = ?(КоллекцияОбъектов.СчетДт = СчетПоКоду("00"), КоллекцияОбъектов.СчетКт,КоллекцияОбъектов.СчетДт); Если СчетУчета = Сч_006 Тогда ТабСуммыКРаспределению.Количество = ТабСуммыКРаспределению.Количество + КоллекцияОбъектов.Количество; Иначе Если ТабСуммыКРаспределению.Субконто2 <> КоллекцияОбъектов.Субконто2 Тогда ТабСуммыКРаспределению.Количество = ТабСуммыКРаспределению.Количество + КоллекцияОбъектов.Количество; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; ТабСуммыКРаспределению.Стоимость = ТабСуммыКРаспределению.Сумма/?(ТабСуммыКРаспределению.Количество = 0, 1, ТабСуммыКРаспределению.Количество); КонецЦикла; ТабСуммыКРаспределению.ВыбратьСтроки(); Пока ТабСуммыКРаспределению.ПолучитьСтроку() = 1 Цикл КоличествоРаспределено = ТабСуммыКРаспределению.Количество; СуммаРаспределено = ТабСуммыКРаспределению.Сумма; СтоимостьЕдиницы = ТабСуммыКРаспределению.Стоимость; КоллекцияОбъектов.ВыбратьСтроки(); КоличествоСтрок = КоллекцияОбъектов.КоличествоСтрок(); Если КоличествоСтрок = 0 Тогда Прервать; КонецЕсли; ТекущаяСтрока = 1; Для НомерСтроки = 0 По КоллекцияОбъектов.КоличествоСтрок() Цикл Если НомерСтроки = 0 Тогда Продолжить; КонецЕсли; Если НомерСтроки > КоллекцияОбъектов.КоличествоСтрок() Тогда Прервать; КонецЕсли; КоллекцияОбъектов.ПолучитьСтрокуПоНомеру(НомерСтроки); СчетУчета = ?(КоллекцияОбъектов.СчетДт = СчетПоКоду("00"), КоллекцияОбъектов.СчетКт,КоллекцияОбъектов.СчетДт); Если СчетУчета.Количественный = 1 Тогда Если (ПустоеЗначение(КоллекцияОбъектов.Количество) = 0) И (ПустоеЗначение(КоллекцияОбъектов.Сумма) = 1) Тогда Если (ТабСуммыКРаспределению.СчетУчета = КоллекцияОбъектов.СчетУчета) И (ТабСуммыКРаспределению.Субконто1 = КоллекцияОбъектов.Субконто1) Тогда Если СчетУчета = Сч_006 Тогда СуммаКРаспределению = Окр(КоллекцияОбъектов.Количество * СтоимостьЕдиницы, 2); КоллекцияОбъектов.Сумма = СуммаКРаспределению; СуммаРаспределено = СуммаРаспределено - СуммаКРаспределению; КоличествоРаспределено = КоличествоРаспределено - КоллекцияОбъектов.Количество; Если КоличествоРаспределено = 0 Тогда КоллекцияОбъектов.Сумма = КоллекцияОбъектов.Сумма + СуммаРаспределено; КонецЕсли; Иначе Если ТабСуммыКРаспределению.Субконто2 <> КоллекцияОбъектов.Субконто2 Тогда СуммаКРаспределению = Окр(КоллекцияОбъектов.Количество * СтоимостьЕдиницы, 2); КоллекцияОбъектов.Сумма = СуммаКРаспределению; СуммаРаспределено = СуммаРаспределено - СуммаКРаспределению; КоличествоРаспределено = КоличествоРаспределено - КоллекцияОбъектов.Количество; Если КоличествоРаспределено = 0 Тогда КоллекцияОбъектов.Сумма = КоллекцияОбъектов.Сумма + СуммаРаспределено; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли (ПустоеЗначение(КоллекцияОбъектов.Количество) = 1) И (ПустоеЗначение(КоллекцияОбъектов.Сумма) = 0) Тогда КоллекцияОбъектов.УдалитьСтроку(НомерСтроки); НомерСтроки = НомерСтроки - 1; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; ВходящиеДанные.Установить("ВходящиеОстатки", КоллекцияОбъектов); <Алгоритм Имя="УстановитьПараметрыДокОснСчетаФактурыПолученного" ИспользуетсяПриЗагрузке="false"> <Текст>СчетФактура = Параметры.ПараметрыАлгоритмов.Получить("СчетФактура"); Значение = СчетФактура.ДокументОприходования; Если ПустоеЗначение(Значение)=0 Тогда Если Значение.ДатаДок < Параметры.ДатаВводаОстатков Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом_Документ"; ИначеЕсли СчетФактура.ДокументОприходования.Вид()="Выписка" Тогда Если ПустоеЗначение(ИсходящиеДанные)=1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ИсходящиеДанные.Установить("СписаниеСчетФактура",СчетФактура); ИмяПКО = "Выписка_Списание"; КонецЕсли; Иначе Значение = Источник; ИмяПКО = "ДокументРасчетовСКонтрагентом_Документ"; КонецЕсли; <Алгоритм Имя="УстановитьПараметрыДокументаОснованияСчетаФактуры" ИспользуетсяПриЗагрузке="false"> <Текст>СчетФактура = Параметры.ПараметрыАлгоритмов.Получить("СчетФактура"); Значение = СчетФактура.ДокументОснование; Если ПустоеЗначение(Значение)=0 Тогда Если Значение.ДатаДок < Параметры.ДатаВводаОстатков Тогда ИмяПКО = "ДокументРасчетовСКонтрагентом_Документ"; Иначе Если (Значение.Вид()="Выписка") И (Значение.ДатаДок>=Параметры.ДатаВводаОстатков) Тогда Если ПустоеЗначение(ИсходящиеДанные)=1 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ИсходящиеДанные.Установить("ПоступлениеСчетФактура",СчетФактура); ИмяПКО = "Выписка_Поступление"; ИначеЕсли (Значение.Вид()="ВыполнениеЭтапаРабот") И (Значение.ДатаДок>=Параметры.ДатаВводаОстатков) Тогда Значение = СчетФактура; ИмяПКО = "СчетФактура_ДокументОснование"; Иначе Параметры.ПараметрыАлгоритмов.Установить("Документ",Значение); КонецЕсли; КонецЕсли; Иначе Если (СчетФактура.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Реализация) или (СчетФактура.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Возврат) Тогда Значение = СчетФактура; ИмяПКО = "СчетФактура_ДокументОснование"; Иначе Значение = СчетФактура; ИмяПКО = "ДокументРасчетовСКонтрагентом_Документ"; КонецЕсли; КонецЕсли; <Запросы/>