<ПравилаОбмена> <ВерсияФормата РежимСовместимости="">2.01 <Ид>5e65825c-8a50-4bce-999e-38dfed63000c <Наименование>Торговля+Склад, редакция 9.2 --> БухгалтерияПредприятия 3.0 <ДатаВремяСоздания>2019-01-21T17:36:49 <Источник ВерсияПлатформы="7.7" ВерсияКонфигурации="7.70.970" СинонимКонфигурации="">Торговля+Склад, редакция 9.2 <Приемник ВерсияПлатформы="8.0" ВерсияКонфигурации="3.0.67.38" СинонимКонфигурации="Бухгалтерия предприятия, редакция 3.0">БухгалтерияПредприятия <ПередЗагрузкойДанных>//Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; <ПередВыгрузкойОбъекта>Если ТипЗначенияСтр(Объект) = "Документ" Тогда Если (Объект.Проведен()=0) И (Объект.Вид() <> "Доверенность") И (Объект.Вид() <> "ПлатежноеПоручение") И (Объект.Вид() <> "АвансовыйОтчет") И (Объект.Вид() <> "ИнвентаризацияТМЦ") Тогда Отказ = 1; ИначеЕсли (ПустоеЗначение(Параметры.ЮрЛицо)=0) И (Объект.ЮрЛицо <> Параметры.ЮрЛицо) Тогда Отказ = 1; КонецЕсли; КонецЕсли; <ПослеЗагрузкиОбъекта>Если ИмяТипаОбъекта = "Справочник" ИЛИ ИмяТипаОбъекта = "ПланВидовХарактеристик" Тогда Если НЕ ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод(); КонецЕсли; РеквизитОрганизация = Объект.Метаданные().Реквизиты.Найти("Организация"); Если РеквизитОрганизация <> Неопределено И (НЕ ЗначениеЗаполнено(Объект.Организация)) Тогда Если (НЕ Объект.ЭтоГруппа) ИЛИ (РеквизитОрганизация.Использование = Метаданные.СвойстваОбъектов.ИспользованиеРеквизита.ДляГруппы) Тогда Объект.Организация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация"); КонецЕсли; КонецЕсли; ИначеЕсли ИмяТипаОбъекта = "Документ" Тогда Если НЕ ЗначениеЗаполнено(Объект.Номер) Тогда ОбщегоНазначения.УстановитьНомерДокумента(Объект); КонецЕсли; Если ОбщегоНазначенияБП.ЕстьРеквизитДокумента("Организация", Объект.Метаданные()) И (НЕ ЗначениеЗаполнено(Объект.Организация)) Тогда Объект.Организация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация"); КонецЕсли; КонецЕсли <Параметры> <Параметр Имя="БазоваяВерсия " Наименование="БазоваяВерсия" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="КомиссияПоСтрокамТабличнойЧасти " Наименование="КомиссияПоСтрокамТабличнойЧасти" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ЮрЛицо " Наименование="ЮрЛицо" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="СправочникСсылка.СвоиЮрЛица" ПередаватьПараметрПриВыгрузке="false"/> <Обработки/> <ПравилаКонвертацииОбъектов> <Группа> <Код>Документы <Наименование>Документы <Порядок>100 <Правило> <Код>АвансовыйОтчет <Наименование>ДокументСсылка.АвансовыйОтчет --> ДокументСсылка.АвансовыйОтчет <Порядок>100 <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура); КонецЦикла; Документы.АвансовыйОтчет.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Документы.АвансовыйОтчет.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); Для каждого СтрокаТабличнойЧасти Из Объект.ОплатаПоставщикам Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, СтрокаТабличнойЧасти.Контрагент, СтрокаТабличнойЧасти.ДоговорКонтрагента); СтрокаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаТабличнойЧасти.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + Объект.ОплатаПоставщикам.Итог("Сумма") + УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Прочее"); <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.АвансовыйОтчет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ВозвратТоваровОтПокупателя <Наименование>ДокументСсылка.ВозвратОтПокупателя --> ДокументСсылка.ВозвратТоваровОтПокупателя <Порядок>200 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки> Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Если НЕ ЗначениеЗаполнено(Объект.Склад) Тогда Объект.Склад = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнойСклад"); КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого СтрокаТовары Из Объект.Товары Цикл Если СтрокаТовары.Номенклатура.Родитель = Справочники.Номенклатура.НайтиПоНаименованию("Масло моторное") Тогда СтрокаТовары.СчетДоходов = ПланыСчетов.Хозрасчетный.ВыручкаЕНВД; СтрокаТовары.СчетРасходов = ПланыСчетов.Хозрасчетный.СебестоимостьПродажЕНВД; Иначе СтрокаТовары.СчетДоходов = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД; СтрокаТовары.СчетРасходов = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД; КонецЕсли; СтрокаТовары.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах; СтрокаТовары.СуммаНДС = УчетНДСКлиентСервер.РассчитатьСуммуНДС(СтрокаТовары.Сумма, Объект.СуммаВключаетНДС, УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтрокаТовары.СтавкаНДС)); СтрокаТовары.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа"); СтрокаТовары.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); <Источник>ДокументСсылка.ВозвратОтПокупателя <Приемник>ДокументСсылка.ВозвратТоваровОтПокупателя <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>50 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>200 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>5 <Наименование>Склад --> Склад <Порядок>250 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>ТипЦен --> ТипЦен <Порядок>300 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>400 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>Валюта --> ВалютаДокумента <Порядок>450 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>ДатаОплаты --> ДатаРасходногоКассовогоОрдера <Порядок>500 <Источник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаРасходногоКассовогоОрдера" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование>Договор --> ДоговорКонтрагента <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>12 <Наименование>ДокОснование --> Сделка <Порядок>600 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="Сделка" Вид="Реквизит"/> <ПередВыгрузкой>Если ТипЗначения(Источник) = 12 Тогда //это документ Если Источник.Вид() = "ДокументСсылка.Реализация" Тогда ИмяПКО = "РеализацияТоваровУслуг"; КонецЕсли; КонецЕсли; <Свойство> <Код>13 <Наименование>--> ВидОперации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровОтПокупателя"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>14 <Наименование>Кратность --> КратностьВзаиморасчетов <Порядок>700 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Курс --> КурсВзаиморасчетов <Порядок>750 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>СуммаВзаиморасчетов --> СуммаДокумента <Порядок>800 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>850 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>18 <Наименование>ЮрЛицо --> Организация <Порядок>900 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>19 <Наименование>ТабличнаяЧасть --> Товары <Порядок>950 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>20 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>22 <Наименование>Себестоимость --> Себестоимость <Порядок>150 <Источник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>24 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>Цена --> Цена <Порядок>350 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВозвратТоваровПоставщику <Наименование>ДокументСсылка.ВозвратПоставщику --> ДокументСсылка.ВозвратТоваровПоставщику <Порядок>300 <ПриЗагрузке> Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = ПараметрыСеанса.ТекущийПользователь;//глЗначениеПеременной("глТекущийПользователь"); КонецЕсли; <ПослеЗагрузки> Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; Объект.СчетУчетаРасчетовПоПретензиям = ПланыСчетов.Хозрасчетный.РасчетыПоПретензиям; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; СтрокаТоваров.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах; СтрокаТоваров.СуммаНДС = УчетНДСКлиентСервер.РассчитатьСуммуНДС(СтрокаТоваров.Сумма, Объект.СуммаВключаетНДС, УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтрокаТоваров.СтавкаНДС)); КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); <Источник>ДокументСсылка.ВозвратПоставщику <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>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 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>--> ЕдиницаИзмерения <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <ПередВыгрузкой>Значение = Источник.Единица.ОКЕИ; <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Цена --> Цена <Порядок>350 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Коэффициент --> Коэффициент <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>РозничнаяЦена --> ЦенаВРознице <Порядок>450 <Источник Имя="РозничнаяЦена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>--> Себестоимость <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.ЗакупочнаяЦена; <Свойство> <Код>23 <Наименование>ДокОснование --> Сделка <Порядок>750 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="Сделка" Вид="Реквизит"/> <ПередВыгрузкой>Если ТипЗначения(Источник) = 12 Тогда //это документ Если Источник.Вид() = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТоваровУслуг"; КонецЕсли; КонецЕсли; <Значения/> <Правило> <Код>Доверенность <Наименование>ДокументСсылка.Доверенность --> ДокументСсылка.Доверенность <Порядок>400 <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.Доверенность <Приемник>ДокументСсылка.Доверенность <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ИнвентаризацияТоваровНаСкладе <Наименование>ДокументСсылка.ИнвентаризацияТМЦ --> ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Порядок>500 <ПослеЗагрузки> // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>КорректировкаДолга <Наименование>ДокументСсылка.КорректировкаДолга --> ДокументСсылка.КорректировкаДолга <Порядок>600 <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.КорректировкаДолга <Приемник>ДокументСсылка.КорректировкаДолга <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ОприходованиеТоваров <Наименование>ДокументСсылка.ОприходованиеТМЦ --> ДокументСсылка.ОприходованиеТоваров <Порядок>700 <ПослеЗагрузки>Для каждого СтрокаТЧ Из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = Объект.Товары.Итог("Сумма"); <Источник>ДокументСсылка.ОприходованиеТМЦ <Приемник>ДокументСсылка.ОприходованиеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ОтчетОРозничныхПродажах <Наименование>ДокументСсылка.ОтчетККМ --> ДокументСсылка.ОтчетОРозничныхПродажах <Порядок>800 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(КоллекцияОбъектов, "Товары"); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>КомиссияПоСтрокамТабличнойЧасти = Параметры.КомиссияПоСтрокамТабличнойЧасти[Ссылка]; Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Документы.ОтчетОРозничныхПродажах.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Если КомиссияПоСтрокамТабличнойЧасти <> Неопределено Тогда Для каждого Значение из КомиссияПоСтрокамТабличнойЧасти Цикл СтрокаТЧ = Объект.Товары.Получить(Значение.Ключ - 1); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Если Значение.Значение Тогда СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; КонецЦикла; КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); <Источник>ДокументСсылка.ОтчетККМ <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ОтчетКомиссионераОПродажах <Наименование>ДокументСсылка.ОтчетКомиссионера --> ДокументСсылка.ОтчетКомиссионераОПродажах <Порядок>900 <ПослеЗагрузки>Документы.ОтчетКомиссионераОПродажах.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.УдержатьВознаграждение Тогда Объект.СчетУчетаРасчетовПоАвансамПолученным = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовПоАвансамПолученным = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; Объект.СчетУчетаРасчетовЗаПосредническиеУслуги = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансамВыданным = СчетаУчета.СчетАвансов; Объект.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымУслугам; Объект.СчетУчетаЗатрат = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД; Если УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата) Тогда Объект.СчетУчетаРасчетовСКонтрагентомУСН = СчетаУчета.СчетРасчетовПокупателяУСН; Объект.СчетУчетаРасчетовПоАвансамПолученнымУСН = СчетаУчета.СчетАвансовПокупателяУСН; Объект.СчетУчетаРасчетовЗаПосредническиеУслугиУСН = СчетаУчета.СчетРасчетовУСН; Объект.СчетУчетаРасчетовПоАвансамВыданнымУСН = СчетаУчета.СчетАвансовУСН; КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); Объект.СуммаВознаграждения = Объект.Товары.Итог("СуммаВознаграждения"); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.ОтчетКомиссионера <Приемник>ДокументСсылка.ОтчетКомиссионераОПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ОтчетКомитентуОПродажах <Наименование>ДокументСсылка.ОтчетКомитенту --> ДокументСсылка.ОтчетКомитентуОПродажах <Порядок>1000 <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.УдержатьВознаграждение Тогда Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Объект.УслугаПоВознаграждению); Объект.СчетУчетаНДСПоРеализации = СчетаУчета.СчетУчетаНДСПродажи; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); Объект.СуммаВознаграждения = Объект.Товары.Итог("СуммаВознаграждения")+?(Объект.СуммаВключаетНДС,0,Объект.Товары.Итог("СуммаНДСВознаграждения")); <Источник>ДокументСсылка.ОтчетКомитенту <Приемник>ДокументСсылка.ОтчетКомитентуОПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Номер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Значения/> <Правило> <Код>ПеремещениеТоваров <Наименование>ДокументСсылка.ПеремещениеТМЦ --> ДокументСсылка.ПеремещениеОС <Порядок>1100 <ПослеЗагрузки>Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ТоварыНаКомиссии"); Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; //Если Объект.ВидОперации.Пустая() Тогда в редакции 3.0 удален // Объект.ВидОперации = Перечисления.ВидыОперацийПеремещениеТоваров.ТоварыПродукция; //КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; <Источник>ДокументСсылка.ПеремещениеТМЦ <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Номер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Значения/> <Правило> <Код>ПереоценкаТоваровВРознице <Наименование>ДокументСсылка.ПереоценкаРозница --> ДокументСсылка.ПереоценкаТоваровВРознице <Порядок>1200 <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = ПараметрыСеанса.ТекущийПользователь;//глЗначениеПеременной("глТекущийПользователь"); КонецЕсли; <Источник>ДокументСсылка.ПереоценкаРозница <Приемник>ДокументСсылка.ПереоценкаТоваровВРознице <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ПриходныйКассовыйОрдер <Наименование>ДокументСсылка.ПКО --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>1300 <ПослеЗагрузки>Объект.РасшифровкаПлатежа.Очистить(); Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если Объект.РасшифровкаПлатежа.Количество() = 0 Тогда НоваяСтрока = Объект.РасшифровкаПлатежа.Добавить(); НоваяСтрока.ДоговорКонтрагента = Объект.ДоговорКонтрагента; НоваяСтрока.КратностьВзаиморасчетов = 1; НоваяСтрока.КурсВзаиморасчетов = 1; НоваяСтрока.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; НоваяСтрока.СуммаПлатежа = Объект.СуммаДокумента; НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; НоваяСтрока.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПоставщика тогда НоваяСтрока.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; НоваяСтрока.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным; Иначе НоваяСтрока.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; НоваяСтрока.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; КонецЕсли; КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.Контрагент = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.ПКО <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>50 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>200 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.Контрагент) = 1 Тогда Значение = Источник.ФизЛицо; ИмяПКО = "ФизическиеЛица"; Иначе ИмяПКО = "Контрагенты"; КонецЕсли; <Свойство> <Код>5 <Наименование>НомерЧекаККМ --> НомерЧекаККМ <Порядок>250 <Источник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>Основание --> Основание <Порядок>300 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Приложение --> Приложение <Порядок>350 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ПринятоОт --> ПринятоОт <Порядок>400 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>--> СтавкаНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Значение = "БезНДС"; <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>Проведен --> Проведен <Порядок>550 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование>Договор --> ДоговорКонтрагента <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>13 <Наименование>КодОперации --> ВидОперации <Порядок>650 <Источник Имя="КодОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.КодыОпераций"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <КодПравилаКонвертации>ВидыОперацийПКО <Свойство> <Код>14 <Наименование>Сумма --> СуммаДокумента <Порядок>700 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>ЮрЛицо --> Организация <Порядок>750 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>16 <Наименование>Валюта --> ВалютаДокумента <Порядок>800 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Группа Отключить="true"> <Код>17 <Наименование>--> РасшифровкаПлатежа <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>18 <Наименование>Договор --> ДоговорКонтрагента <Порядок>50 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>19 <Наименование>Кратность --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>Курс --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>22 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>250 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредствСправочник <Свойство> <Код>23 <Наименование>Сумма --> СуммаВзаиморасчетов <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>СуммаВзаиморасчетов --> СуммаПлатежа <Порядок>350 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеДопРасходов <Наименование>ДокументСсылка.ПоступлениеДопРасходы --> ДокументСсылка.ПоступлениеДопРасходов <Порядок>1400 <ПередВыгрузкой>КлючВыгружаемыхДанных = Источник.НомерДок + Источник.ДатаДок + Источник.НомерСтроки; Источник.ВыбратьСтроки(); СтавкаНДСПред = ""; Пока Источник.ПолучитьСтроку()=1 Цикл Если СтавкаНДСПред = "" Тогда СтавкаНДСПред = Источник.СтавкаНДС; КонецЕсли; Если Источник.СтавкаНДС <> СтавкаНДСПред Тогда Сообщить("Документы ""Поступление (доп. расходы по ТМЦ)"" с разными ставками НДС в табличной части не выгружаются!"); Сообщить("Документ " + Источник + " не выгружен!"); Отказ = 1; Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Документы.ПоступлениеДопРасходов.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СуммаНДС = УчетНДСКлиентСервер.РассчитатьСуммуНДС(Объект.Сумма, Объект.СуммаВключаетНДС, УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(Объект.СтавкаНДС)); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.ПоступлениеДопРасходы <Приемник>ДокументСсылка.ПоступлениеДопРасходов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ПоступлениеТоваровУслугПрочее <Наименование>ДокументСсылка.ПоступлениеПрочее --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>1500 <ПриЗагрузке>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <ПослеЗагрузки> Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным; Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Товары"); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Услуги"); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"ВозвратнаяТара"); // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Объект.Товары.Очистить(); <Источник>ДокументСсылка.ПоступлениеПрочее <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "У" + Источник.НомерДок; <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>150 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>6 <Наименование>Договор --> ДоговорКонтрагента <Порядок>300 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>7 <Наименование>Валюта --> ВалютаДокумента <Порядок>350 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>8 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>400 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>9 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>450 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>500 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>11 <Наименование>--> ВидОперации <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>12 <Наименование>Кратность --> КратностьВзаиморасчетов <Порядок>600 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>Курс --> КурсВзаиморасчетов <Порядок>650 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Услуги <Порядок>750 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Содержание --> Содержание <Порядок>100 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Счет --> СчетЗатрат <Порядок>300 <Источник Имя="Счет" Вид="Реквизит"/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>22 <Наименование>СчетНУ --> СчетЗатратНУ <Порядок>350 <Источник Имя="СчетНУ" Вид="Реквизит"/> <Приемник Имя="СчетЗатратНУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>23 <Наименование>Субконто1 --> Субконто1 <Порядок>400 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <Свойство> <Код>24 <Наименование>Субконто2 --> Субконто2 <Порядок>450 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <Свойство> <Код>25 <Наименование>Субконто3 --> Субконто3 <Порядок>500 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <Свойство> <Код>26 <Наименование>СубконтоНУ1 --> СубконтоНУ1 <Порядок>550 <Источник Имя="СубконтоНУ1" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ1" Вид="Реквизит"/> <Свойство> <Код>27 <Наименование>СубконтоНУ2 --> СубконтоНУ2 <Порядок>600 <Источник Имя="СубконтоНУ2" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ2" Вид="Реквизит"/> <Свойство> <Код>28 <Наименование>СубконтоНУ3 --> СубконтоНУ3 <Порядок>650 <Источник Имя="СубконтоНУ3" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ3" Вид="Реквизит"/> <Свойство> <Код>29 <Наименование>Цена --> Цена <Порядок>700 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеТоваровУслуг <Наименование>ДокументСсылка.ПоступлениеТМЦ --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>1500 <ПриЗагрузке>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <ПослеЗагрузки> Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; КонецЕсли; Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным; Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; СтрокаТоваров.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах; СтрокаТоваров.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Объект.Услуги.Очистить(); <Источник>ДокументСсылка.ПоступлениеТМЦ <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>2 <Наименование>ВидТМЦ --> <Порядок>100 <Источник Имя="ВидТМЦ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыТМЦ"/> <Приемник Имя="" Вид=""/> <Свойство> <Код>3 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>4 <Наименование>Количество --> Количество <Порядок>300 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>--> ЕдиницаИзмерения <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <ПередВыгрузкой>Значение = Источник.Единица.ОКЕИ; <Свойство> <Код>6 <Наименование>Коэффициент --> Коэффициент <Порядок>500 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Цена --> Цена <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>Сумма --> Сумма <Порядок>700 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>800 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>10 <Наименование>СуммаНДС --> СуммаНДС <Порядок>900 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> НомерГТД <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.ГТД; <Свойство> <Код>12 <Наименование>--> СтранаПроисхождения <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.СтранаПроисхождения; <Свойство Поиск="true"> <Код>13 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>14 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>15 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>16 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование>Склад --> Склад <Порядок>600 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>18 <Наименование>Контрагент --> Контрагент <Порядок>700 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>19 <Наименование>Договор --> ДоговорКонтрагента <Порядок>800 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ПриемНаРеализацию Тогда ИсходящиеДанные.ДобавитьЗначение("СКомитентом", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>20 <Наименование>Валюта --> ВалютаДокумента <Порядок>900 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>22 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>23 <Наименование>ТипЦен --> ТипЦен <Порядок>1200 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>24 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1300 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>25 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1400 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>26 <Наименование>--> ВидОперации <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>27 <Наименование>Кратность --> КратностьВзаиморасчетов <Порядок>1600 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>Курс --> КурсВзаиморасчетов <Порядок>1700 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеТоваровУслугРозница <Наименование>ДокументСсылка.ПоступлениеТМЦРозница --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>1600 <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Товары"); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Услуги"); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"ВозвратнаяТара"); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.ПоступлениеТМЦРозница <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>РеализацияТоваровУслуг <Наименование>ДокументСсылка.Реализация --> ДокументСсылка.РеализацияТоваровУслуг <Порядок>1700 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>КомиссияПоСтрокамТабличнойЧасти = Параметры.КомиссияПоСтрокамТабличнойЧасти[Ссылка]; Если КомиссияПоСтрокамТабличнойЧасти <> Неопределено Тогда Для каждого Значение из КомиссияПоСтрокамТабличнойЧасти Цикл СтрокаТЧ = Объект.Товары.Получить(Значение.Ключ - 1); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура); Если Значение.Значение Тогда СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; КонецЦикла; КонецЕсли; Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Иначе Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); КонецЕсли; Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Услуги"); Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Товары"); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; СтрокаТоваров.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа"); КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Услуги"); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.Реализация <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); <Свойство> <Код>2 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>300 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>5 <Наименование>Коэффициент --> Коэффициент <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>Цена --> Цена <Порядок>500 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>700 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>9 <Наименование>СуммаНДС --> СуммаНДС <Порядок>800 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>10 <Наименование>--> НомерГТД <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство Отключить="true"> <Код>11 <Наименование>--> СтранаПроисхождения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство> <Код>36 <Наименование>--> Себестоимость <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.ЗакупочнаяЦена; <Свойство Поиск="true"> <Код>12 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>13 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>14 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>15 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование>Склад --> Склад <Порядок>600 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>17 <Наименование>Контрагент --> Контрагент <Порядок>700 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>18 <Наименование>Договор --> ДоговорКонтрагента <Порядок>800 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ПередачаНаРеализацию Тогда ИсходящиеДанные.ДобавитьЗначение("СКомиссионером", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>19 <Наименование>Валюта --> ВалютаДокумента <Порядок>900 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>21 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>22 <Наименование>ТипЦен --> ТипЦен <Порядок>1200 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>23 <Наименование>--> ВидОперации <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияТоваров"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>24 <Наименование>--> КурсВзаиморасчетов <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>25 <Наименование>--> КратностьВзаиморасчетов <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Валюта.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; <Группа> <Код>28 <Наименование>--> Услуги <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(КоллекцияОбъектов); КоллекцияОбъектов.НоваяКолонка("Содержание"); Сч = 1; Пока Сч <= КоллекцияОбъектов.КоличествоСтрок() Цикл КоллекцияОбъектов.ПолучитьСтрокуПоНомеру(Сч); Если (КоллекцияОбъектов.Номенклатура.ВидНоменклатуры <> Перечисление.ВидыНоменклатуры.Услуга) И (КоллекцияОбъектов.Номенклатура.ВидНоменклатуры <> Перечисление.ВидыНоменклатуры.Работа) Тогда КоллекцияОбъектов.УдалитьСтроку(); Иначе КоллекцияОбъектов.Содержание = КоллекцияОбъектов.Номенклатура.Наименование; Сч = Сч + 1; КонецЕсли; КонецЦикла; <Свойство> <Код>29 <Наименование>--> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>--> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>--> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>--> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>--> СтавкаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>34 <Наименование>--> СуммаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>--> Номенклатура <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Значения/> <Правило> <Код>РеализацияТоваровУслугПрочее <Наименование>ДокументСсылка.РеализацияПрочее --> ДокументСсылка.РеализацияТоваровУслуг <Порядок>1800 <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Товары"); Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Услуги"); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.РеализацияПрочее <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>РеализацияРозница <Наименование>ДокументСсылка.РеализацияРозница --> ДокументСсылка.РеализацияУслугПоПереработке <Порядок>1900 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>КомиссияПоСтрокамТабличнойЧасти = Параметры.КомиссияПоСтрокамТабличнойЧасти[Ссылка]; ДанныеОбъекта = Новый Структура("Дата, Организация, ДеятельностьНаПатенте, Склад, ЭтоКомиссия, Реализация"); ЗаполнитьЗначенияСвойств(ДанныеОбъекта, Объект); ДанныеОбъекта.Реализация = Истина; ДанныеОбъекта.ЭтоКомиссия = (ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.ДоговорКонтрагента, "ВидДоговора") = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером); СоответствиеСведенийОНоменклатуре = БухгалтерскийУчетПереопределяемый.ПолучитьСведенияОСпискеНоменклатуры( ОбщегоНазначения.ВыгрузитьКолонку(Объект.Товары, "Номенклатура", Истина), ДанныеОбъекта); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Иначе Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); КонецЕсли; Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; СтрокаТоваров.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах; СтрокаТоваров.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.Продажи_НДС; Если СтрокаТоваров.Номенклатура.Родитель = Справочники.Номенклатура.НайтиПоНаименованию("Масло моторное") Тогда СтрокаТоваров.СчетДоходов = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД; СтрокаТоваров.СчетРасходов = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД; Иначе СтрокаТоваров.СчетДоходов = ПланыСчетов.Хозрасчетный.ВыручкаЕНВД; СтрокаТоваров.СчетРасходов = ПланыСчетов.Хозрасчетный.СебестоимостьПродажЕНВД; КонецЕсли; СтрокаТоваров.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа"); КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Услуги"); Если Объект.Склад.ТипСклада = Перечисления.ТипыСкладов.ОптовыйСклад Тогда Сообщить("Загружен документ розничной реализации с оптового склада! Необходимо передать товары в розницу вручную!", СтатусСообщения.Важное); Сообщить("" + Объект.Ссылка); КонецЕсли; Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.РеализацияРозница <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>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 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>26 <Наименование>ТабличнаяЧасть --> Товары <Порядок>900 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>27 <Наименование>--> ЕдиницаИзмерения <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <ПередВыгрузкой>Значение = Источник.Единица.ОКЕИ; <Свойство> <Код>28 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>31 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>250 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>32 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>СуммаНДС --> СуммаНДС <Порядок>350 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование>Цена --> Цена <Порядок>400 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>Количество --> КоличествоМест <Порядок>450 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>РасходныйКассовыйОрдер <Наименование>ДокументСсылка.РКО --> ДокументСсылка.РасходныйКассовыйОрдер <Порядок>2000 <ПослеЗагрузки>Объект.РасшифровкаПлатежа.Очистить(); Если Объект.РасшифровкаПлатежа.Количество() = 0 Тогда СтрокаПлатежа = Объект.РасшифровкаПлатежа.Добавить(); СтрокаПлатежа.СуммаПлатежа = Объект.СуммаДокумента; СтрокаПлатежа.ДоговорКонтрагента = Объект.ДоговорКонтрагента; СтрокаПлатежа.КратностьВзаиморасчетов = 1; СтрокаПлатежа.КурсВзаиморасчетов = 1; СтрокаПлатежа.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; СтрокаПлатежа.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; СтрокаПлатежа.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю тогда СтрокаПлатежа.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; СтрокаПлатежа.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; Иначе Если СтрокаПлатежа.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаПлатежа.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; ИначеЕсли СтрокаПлатежа.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда СтрокаПлатежа.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПокупателямиИЗаказчиками; Иначе СтрокаПлатежа.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; КонецЕсли; СтрокаПлатежа.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным; КонецЕсли; КонецЕсли; Объект.НомерЧекаККМ = 0; Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.Контрагент = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.РКО <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Выдать --> Выдать <Порядок>150 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.Контрагент) = 1 Тогда Значение = Источник.ФизЛицо; ИмяПКО = "ФизическиеЛица"; Иначе ИмяПКО = "Контрагенты"; КонецЕсли; <Свойство> <Код>6 <Наименование>НомерЧекаККМ --> НомерЧекаККМ <Порядок>300 <Источник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Основание --> Основание <Порядок>350 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ПоДокументу --> ПоДокументу <Порядок>400 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>Приложение --> Приложение <Порядок>500 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>Проведен --> Проведен <Порядок>550 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование>Валюта --> ВалютаДокумента <Порядок>600 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>13 <Наименование>Договор --> ДоговорКонтрагента <Порядок>650 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>14 <Наименование>КодОперации --> ВидОперации <Порядок>700 <Источник Имя="КодОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.КодыОпераций"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <КодПравилаКонвертации>ВидыОперацийРКО <Свойство> <Код>15 <Наименование>Сумма --> СуммаДокумента <Порядок>750 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Группа Отключить="true"> <Код>16 <Наименование>--> РасшифровкаПлатежа <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>17 <Наименование>Договор --> ДоговорКонтрагента <Порядок>50 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>18 <Наименование>Кратность --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>Курс --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>200 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредствСправочник <Свойство> <Код>21 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>250 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Сумма --> СуммаПлатежа <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>ДокОснование --> ДокументОснование <Порядок>850 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Если ТипЗначения(Источник) = 12 Тогда //это документ Если Источник.Вид() = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТоваровУслуг"; КонецЕсли; КонецЕсли; <Свойство> <Код>24 <Наименование>ЮрЛицо --> Организация <Порядок>900 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>25 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>950 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредствСправочник <Значения/> <Правило> <Код>СписаниеТоваров <Наименование>ДокументСсылка.СписаниеТМЦ --> ДокументСсылка.СписаниеТоваров <Порядок>2100 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; КонецЕсли; КонецЦикла; ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>КомиссияПоСтрокамТабличнойЧасти = Параметры.КомиссияПоСтрокамТабличнойЧасти[Ссылка]; Документы.СписаниеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Товары"); Если КомиссияПоСтрокамТабличнойЧасти <> Неопределено Тогда Для каждого Значение из КомиссияПоСтрокамТабличнойЧасти Цикл СтрокаТЧ = Объект.Товары.Получить(Значение.Ключ - 1); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура); Если Значение.Значение Тогда СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; КонецЦикла; КонецЕсли; Документы.СписаниеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"ВозвратнаяТара"); Документы.СписаниеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект,"Товары"); // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = Объект.Товары.Итог("Сумма"); <Источник>ДокументСсылка.СписаниеТМЦ <Приемник>ДокументСсылка.СписаниеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Номер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Значения/> <Правило> <Код>ПлатежноеПоручениеВходящее <Наименование>ДокументСсылка.СтрокаВыпискиПриход --> ДокументСсылка.ПлатежноеПоручениеВходящее <Порядок>2200 <ПослеЗагрузки> Объект.РасшифровкаПлатежа.Очистить(); НоваяСтрока = Объект.РасшифровкаПлатежа.Добавить(); НоваяСтрока.ДоговорКонтрагента = Объект.ДоговорКонтрагента; НоваяСтрока.КратностьВзаиморасчетов = 1; НоваяСтрока.КурсВзаиморасчетов = 1; НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; НоваяСтрока.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; НоваяСтрока.СуммаПлатежа = Объект.СуммаДокумента; НоваяСтрока.СуммаВзаиморасчетов = Объект.СуммаДокумента; Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетБанк = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Объект.СчетБанк = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; МассивПустыхСтрок = Новый Массив; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ОплатаПокупателя тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным; СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.КассаОрганизации; СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.КассаОрганизации; КонецЕсли; Если СтрокаПлатеж.СуммаПлатежа = 0 Тогда МассивПустыхСтрок.Добавить(СтрокаПлатеж); КонецЕсли; СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; КонецЦикла; Объект.СчетУчетаРасчетовСКонтрагентом = СчетУчетаРасчетовСКонтрагентом; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого ПустойПлатеж Из МассивПустыхСтрок Цикл Объект.РасшифровкаПлатежа.Удалить(ПустойПлатеж); КонецЦикла; Если НЕ ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.Контрагент = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.СтрокаВыпискиПриход <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>200 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>350 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредствСправочник <Свойство> <Код>8 <Наименование>КодОперации --> ВидОперации <Порядок>400 <Источник Имя="КодОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.КодыОпераций"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеДенежныхСредств"/> <КодПравилаКонвертации>ВидыОперацийПоступлениеДенежныхСредств <Свойство> <Код>9 <Наименование>ЮрЛицо --> Организация <Порядок>450 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>10 <Наименование>Валюта --> ВалютаДокумента <Порядок>500 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>Договор --> ДоговорКонтрагента <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>12 <Наименование>Сумма --> СуммаДокумента <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>650 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Группа Отключить="true"> <Код>14 <Наименование>--> РасшифровкаПлатежа <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>--> ДоговорКонтрагента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Свойство> <Код>16 <Наименование>--> ДоходыУСН <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДоходыУСН" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>--> КратностьВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>--> КурсВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>--> КурсНаДатуПриобретенияРеализацииВалюты <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КурсНаДатуПриобретенияРеализацииВалюты" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>--> ПодразделениеКт <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеКт" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <Свойство> <Код>21 <Наименование>--> ПорядокОтраженияАванса <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОтраженияАванса" Вид="Реквизит"/> <Свойство> <Код>22 <Наименование>--> Сделка <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>23 <Наименование>--> СпособПогашенияЗадолженности <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <Свойство> <Код>24 <Наименование>--> СтавкаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>25 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Свойство> <Код>26 <Наименование>--> СубконтоКт1 <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <Свойство> <Код>27 <Наименование>--> СубконтоКт2 <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <Свойство> <Код>28 <Наименование>--> СубконтоКт3 <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт3" Вид="Реквизит"/> <Свойство> <Код>29 <Наименование>--> СуммаВзаиморасчетов <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>--> СуммаНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>--> СуммаПлатежа <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>--> СуммаУслуг <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаУслуг" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>--> СчетНаОплату <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СчетНаОплату" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <Свойство> <Код>34 <Наименование>--> СчетУчетаРасчетовПоАвансам <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовПоАвансам" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>35 <Наименование>--> СчетУчетаРасчетовСКонтрагентом <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство Отключить="true"> <Код>36 <Наименование>Счет --> СчетУчетаРасчетовСКонтрагентом <Порядок>750 <Источник Имя="Счет" Вид="Реквизит"/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <КодПравилаКонвертации>Хозрасчетный <Значения/> <Правило> <Код>ПлатежныйОрдерСписаниеДенежныхСредств <Наименование>ДокументСсылка.СтрокаВыпискиРасход --> ДокументСсылка.ПлатежныйОрдерСписаниеДенежныхСредств <Порядок>2300 <ПослеЗагрузки> Объект.РасшифровкаПлатежа.Очистить(); НоваяСтрока = Объект.РасшифровкаПлатежа.Добавить(); НоваяСтрока.ДоговорКонтрагента = Объект.ДоговорКонтрагента; НоваяСтрока.КратностьВзаиморасчетов = 1; НоваяСтрока.КурсВзаиморасчетов = 1; НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; НоваяСтрока.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; НоваяСтрока.СуммаПлатежа = Объект.СуммаДокумента; НоваяСтрока.СуммаВзаиморасчетов = Объект.СуммаДокумента; Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетБанк = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Объект.СчетБанк = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; МассивПустыхСтрок = Новый Массив; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если СтрокаПлатеж.СуммаПлатежа = 0 Тогда МассивПустыхСтрок.Добавить(СтрокаПлатеж); КонецЕсли; Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ОплатаПоставщику тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным; СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = Объект.СчетУчетаРасчетовСКонтрагентом; СчетУчетаРасчетовСКонтрагентом = Объект.СчетУчетаРасчетовСКонтрагентом; КонецЕсли; СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; КонецЦикла; Объект.СчетУчетаРасчетовСКонтрагентом = СчетУчетаРасчетовСКонтрагентом; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого ПустойПлатеж Из МассивПустыхСтрок Цикл Объект.РасшифровкаПлатежа.Удалить(ПустойПлатеж); КонецЦикла; Если НЕ ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.Контрагент = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.СтрокаВыпискиРасход <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>50 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>200 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Валюта --> ВалютаДокумента <Порядок>350 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>8 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>400 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредствСправочник <Свойство> <Код>9 <Наименование>Договор --> ДоговорКонтрагента <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>10 <Наименование>ДокОснование --> ДокументОснование <Порядок>500 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Если ТипЗначения(Источник) = 12 Тогда //это документ Если Источник.Вид() = "ПлатежноеПоручение" Тогда ИмяПКО = "ПлатежноеПоручение"; ИначеЕсли Источник.Вид() = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТоваровУслуг"; КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование>КодОперации --> ВидОперации <Порядок>550 <Источник Имя="КодОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.КодыОпераций"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств"/> <КодПравилаКонвертации>ВидыОперацийСписаниеДенежныхСредств <Свойство> <Код>12 <Наименование>Сумма --> СуммаДокумента <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>13 <Наименование>ЮрЛицо --> Организация <Порядок>650 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>14 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>700 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>15 <Наименование>Счет --> СчетУчетаРасчетовСКонтрагентом <Порядок>750 <Источник Имя="Счет" Вид="Реквизит"/> <Приемник Имя="СчетУчетаРасчетовСКонтрагентом" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Если Источник.Код = "00" Тогда Значение = "Вспомогательный"; ИначеЕсли Источник.Код = "70" Тогда Значение = "РасчетыСПерсоналомПоОплатеТруда"; ИначеЕсли Источник.Код = "67.1" Тогда Значение = "ДолгосрочныеКредиты"; КонецЕсли; <Значения/> <Правило> <Код>СчетФактураВыданный <Наименование>ДокументСсылка.СчетФактураВыданный --> ДокументСсылка.СчетФактураВыданный <Порядок>2400 <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокОснование)=1 Тогда Отказ = 1; ИначеЕсли (Источник.ДокОснование.Вид() = "РеализацияПрочее") Или (Источник.ДокОснование.Вид() = "ЗакрытиеМесяца") Или (Источник.ДокОснование.Вид() = "ВводОстатковПокупателя") Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если ЗначениеЗаполнено(Объект.ДокументОснование) Тогда НеНашлиДокументОснование = Истина; Для каждого ДокументОснование из Объект.ДокументыОснования Цикл Если ДокументОснование.ДокументОснование = Объект.ДокументОснование Тогда НеНашлиДокументОснование = Ложь; Прервать; КонецЕсли; КонецЦикла; Если НеНашлиДокументОснование Тогда НовыйДокументОснование = Объект.ДокументыОснования.Добавить(); НовыйДокументОснование.ДокументОснование = Объект.ДокументОснование; КонецЕсли; Если ТипЗнч(Объект.ДокументОснование) = Тип("ДокументСсылка.КорректировкаДолга") Тогда Объект.Контрагент = Неопределено; Объект.ДоговорКонтрагента = Неопределено; Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс; КонецЕсли; Если Объект.ПлатежноРасчетныеДокументы.Количество() = 0 Тогда Объект.ПлатежноРасчетныеДокументы.Добавить(); КонецЕсли; КонецЕсли; Если (Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс) И (Объект.Авансы.Количество() = 0) Тогда Объект.Авансы.Добавить(); Объект.Авансы[0].СтавкаНДС = Объект.СтавкаНДС; Объект.Авансы[0].СуммаНДС = Объект.СуммаНДС; Объект.Авансы[0].Сумма = Объект.Сумма; Объект.СуммаДокумента = Объект.Сумма; КонецЕсли; Объект.ОпределениеПараметровСчетаФактурыНаРеализацию(); <Источник>ДокументСсылка.СчетФактураВыданный <Приемник>ДокументСсылка.СчетФактураВыданный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Договор --> ДоговорКонтрагента <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>6 <Наименование>ДокОснование --> ДокументОснование <Порядок>600 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Если ТипЗначения(Источник) = 12 Тогда //это документ Если Источник.Вид() = "ВозвратОтПокупателя" Тогда ИмяПКО = "ВозвратТоваровОтПокупателя"; ИначеЕсли Источник.Вид() = "ВозвратПоставщику" Тогда ИмяПКО = "ВозвратТоваровПоставщику"; ИначеЕсли Источник.Вид() = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТоваровУслуг"; ИначеЕсли Источник.Вид() = "ПоступлениеПрочее" Тогда ИмяПКО = "ПоступлениеТоваровУслугПрочее"; ИначеЕсли Источник.Вид() = "Реализация" Тогда ИмяПКО = "РеализацияТоваровУслуг"; ИначеЕсли Источник.Вид() = "РеализацияРозница" Тогда ИмяПКО = "РеализацияРозница"; КонецЕсли; КонецЕсли; <Свойство> <Код>7 <Наименование>СФНаАванс --> ВидСчетаФактуры <Порядок>700 <Источник Имя="СФНаАванс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыВыставленного"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = "НаАванс"; Иначе Значение = "НаРеализацию"; КонецЕсли; <Свойство> <Код>8 <Наименование>НомерПлатРасчДок --> НомерПлатежноРасчетногоДокумента <Порядок>800 <Источник Имя="НомерПлатРасчДок" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ДатаПлатРасчДок --> ДатаПлатежноРасчетногоДокумента <Порядок>900 <Источник Имя="ДатаПлатРасчДок" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежноРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>10 <Наименование>Валюта --> ВалютаДокумента <Порядок>1000 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>13 <Наименование>--> СтавкаНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Значение = 0; Если Источник.СФНаАванс = 1 Тогда ОбъектИсточник = СоздатьОбъект("Документ.СчетФактураВыданный"); ОбъектИсточник.НайтиДокумент(Источник); ОбъектИсточник.ВыбратьСтроки(); Если ОбъектИсточник.ПолучитьСтроку() = 1 Тогда Значение = ОбъектИсточник.СтавкаНДС; Иначе Значение = Перечисление.СтавкиНДС.НДС18_118; КонецЕсли; КонецЕсли; <Свойство> <Код>14 <Наименование>--> Сумма <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; Если Источник.СФНаАванс = 1 Тогда Если Источник.СуммаАвансаПоУчету = 1 Тогда СуммаАвансаОснования = 0; РегПокупатели = СоздатьОбъект("Регистр.Покупатели"); РегПокупатели.ВыбратьДвиженияДокумента(Источник.ДокОснование); Пока РегПокупатели.ПолучитьДвижение() = 1 Цикл Если РегПокупатели.ВидДолга = глВД.Аванс Тогда СуммаАвансаОснования = СуммаАвансаОснования + РегПокупатели.СуммаРуб - РегПокупатели.СуммаНП; КонецЕсли; КонецЦикла; Значение = СуммаАвансаОснования; Иначе ОбъектИсточник = СоздатьОбъект("Документ.СчетФактураВыданный"); ОбъектИсточник.НайтиДокумент(Источник); ОбъектИсточник.ВыбратьСтроки(); Значение = 0; Пока ОбъектИсточник.ПолучитьСтроку() = 1 Цикл Значение = Значение + ОбъектИсточник.Сумма; КонецЦикла; КонецЕсли; КонецЕсли; <Свойство> <Код>15 <Наименование>--> СуммаНДС <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; Если Источник.СФНаАванс = 1 Тогда ОбъектИсточник = СоздатьОбъект("Документ.СчетФактураВыданный"); ОбъектИсточник.НайтиДокумент(Источник); ОбъектИсточник.ВыбратьСтроки(); Значение = 0; Пока ОбъектИсточник.ПолучитьСтроку() = 1 Цикл Значение = Значение + ОбъектИсточник.СуммаНДС; КонецЦикла; КонецЕсли; <Свойство> <Код>17 <Наименование>Контрагент --> Контрагент <Порядок>1650 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Отключить="true"> <Код>18 <Наименование>СчетНаОплату --> СчетНаОплату <Порядок>1700 <Источник Имя="СчетНаОплату" Вид="Реквизит"/> <Приемник Имя="СчетНаОплату" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <КодПравилаКонвертации>СчетНаОплатуПокупателюПоЗаявке <Свойство> <Код>19 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1750 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>20 <Наименование>Проведен --> Проведен <Порядок>1800 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Группа Отключить="true"> <Код>21 <Наименование>ТабличнаяЧасть --> Авансы <Порядок>1850 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Авансы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>22 <Наименование>--> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство Отключить="true"> <Код>23 <Наименование>--> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = Источник.Наименование; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>24 <Наименование>--> СтавкаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = Источник.СтавкаНДС; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>25 <Наименование>--> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = Источник.Сумма; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>26 <Наименование>--> СуммаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = Источник.СуммаНДС; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>27 <Наименование>--> Выставлен <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="Выставлен" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>28 <Наименование>ДатаДок --> ДатаВыставления <Порядок>1950 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>29 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>2000 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>2050 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>31 <Наименование>СчетФактураНеВыставляется --> СчетФактураНеВыставляется <Порядок>2100 <Источник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>32 <Наименование>--> КодСпособаВыставления <Порядок>2150 <Источник Имя="" Вид=""/> <Приемник Имя="КодСпособаВыставления" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>33 <Наименование>--> КодВидаОперации <Порядок>2200 <Источник Имя="" Вид=""/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "01"; <Значения/> <Правило> <Код>СчетФактураПолученный <Наименование>ДокументСсылка.СчетФактураПолученный --> ДокументСсылка.СчетФактураПолученный <Порядок>2500 <ПередВыгрузкой>//Если ПустоеЗначение(Источник.ДокОснование)=1 Тогда // Отказ = 1; //ИначеЕсли (Источник.ДокОснование.Вид() = "ПоступлениеПрочее") // Или (Источник.ДокОснование.Вид() = "ВводОстатковПоставщика") Тогда // Отказ = 1; //КонецЕсли; <ПриЗагрузке>Если ОбъектНайден Тогда Объект.ДокументыОснования.Очистить(); КонецЕсли; <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если ЗначениеЗаполнено(Объект.ДокументОснование) Тогда НеНашлиДокументОснование = Истина; Для каждого ДокументОснование из Объект.ДокументыОснования Цикл Если ДокументОснование = Объект.ДокументОснование Тогда НеНашлиДокументОснование = Ложь; Прервать; КонецЕсли; КонецЦикла; Если НеНашлиДокументОснование Тогда НовыйДокументОснование = Объект.ДокументыОснования.Добавить(); НовыйДокументОснование.ДокументОснование = Объект.ДокументОснование; КонецЕсли; КонецЕсли; Если (Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыПолученного.НаАванс) И (Объект.Авансы.Количество() = 0) Тогда Объект.Авансы.Добавить(); Объект.Авансы[0].СтавкаНДС = Объект.СтавкаНДС; Объект.Авансы[0].СуммаНДС = Объект.СуммаНДС; Объект.Авансы[0].Сумма = Объект.Сумма; Объект.СуммаДокумента = Объект.Сумма; КонецЕсли; Объект.ОпределениеПараметровСчетаФактуры(); <Источник>ДокументСсылка.СчетФактураПолученный <Приемник>ДокументСсылка.СчетФактураПолученный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>500 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>600 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>ДокОснование --> ДокументОснование <Порядок>700 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Если ТипЗначения(Источник) = 12 Тогда //это документ Если Источник.Вид() = "ВозвратОтПокупателя" Тогда ИмяПКО = "ВозвратТоваровОтПокупателя"; ИначеЕсли Источник.Вид() = "ВозвратПоставщику" Тогда ИмяПКО = "ВозвратТоваровПоставщику"; ИначеЕсли Источник.Вид() = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТоваровУслуг"; ИначеЕсли Источник.Вид() = "ПоступлениеПрочее" Тогда ИмяПКО = "ПоступлениеТоваровУслугПрочее"; ИначеЕсли Источник.Вид() = "Реализация" Тогда ИмяПКО = "РеализацияТоваровУслуг"; ИначеЕсли Источник.Вид() = "РеализацияРозница" Тогда ИмяПКО = "РеализацияРозница"; КонецЕсли; КонецЕсли; <Свойство> <Код>8 <Наименование>Контрагент --> Контрагент <Порядок>750 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство> <Код>9 <Наименование>Валюта --> ВалютаДокумента <Порядок>800 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>Договор --> ДоговорКонтрагента <Порядок>850 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>950 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>Проведен --> Проведен <Порядок>1000 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Группа Отключить="true"> <Код>14 <Наименование>ТабличнаяЧасть --> Авансы <Порядок>1050 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Авансы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>15 <Наименование>--> СтавкаНДС <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = Источник.СтавкаНДС; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>16 <Наименование>--> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = Источник.Сумма; Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>17 <Наименование>--> СуммаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = Источник.СуммаНДС; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование>--> КодВидаОперации <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "01"; <Свойство> <Код>19 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>1150 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование>--> КодСпособаПолучения <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>21 <Наименование>--> НДСПредъявленКВычету <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="НДСПредъявленКВычету" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ПоступлениеТоваровУслугИмпорт <Наименование>ДокументСсылка.ПоступлениеТМЦИмпорт --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>4300 <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Услуги"); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь();; КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.ПоступлениеТМЦИмпорт <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ГТДИмпорт <Наименование>ДокументСсылка.ПоступлениеТМЦИмпорт --> ДокументСсылка.ГТДИмпорт <Порядок>4400 <ПередВыгрузкой>КлючВыгружаемыхДанных = Источник.НомерДок + Источник.ДатаДок + Источник.НомерГТД; <ПослеЗагрузки>Документы.ГТДИмпорт.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовСКонтрагентомВал = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.21"); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеТМЦИмпорт <Приемник>ДокументСсылка.ГТДИмпорт <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>СчетНаОплатуПокупателюПоЗаявке <Наименование>ДокументСсылка.ЗаявкаПокупателя --> ДокументСсылка.СчетНаОплатуПокупателю <Порядок>4500 <ПослеЗагрузки>// Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; <Источник>ДокументСсылка.ЗаявкаПокупателя <Приемник>ДокументСсылка.СчетНаОплатуПокупателю <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>КомплектацияНоменклатуры <Наименование>ДокументСсылка.КомплектацияТМЦ --> ДокументСсылка.КомплектацияНоменклатуры <Порядок>4550 <Источник>ДокументСсылка.КомплектацияТМЦ <Приемник>ДокументСсылка.КомплектацияНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Номер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>--> Дата <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Значения/> <Правило> <Код>ПлатежноеПоручение <Наименование>Документ: Платежное поручение <Порядок>4600 <ПослеЗагрузки>Объект.СуммаНДС = УчетНДСКлиентСервер.РассчитатьСуммуНДС(Объект.СуммаДокумента, Ложь, УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(Объект.СтавкаНДС)); <Источник>ДокументСсылка.ПлатежноеПоручение <Приемник>ДокументСсылка.ПлатежноеПоручение <Свойства> <Свойство> <Код>1 <Наименование>ВидПлатежа --> ВидПлатежа <Порядок>50 <Источник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ИННПлательщика --> ИННПлательщика <Порядок>150 <Источник Имя="ИННПлательщика" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИННПлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ИННПолучателя --> ИННПолучателя <Порядок>200 <Источник Имя="ИННПолучателя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИННПолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>КодБК --> КодБК <Порядок>250 <Источник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>КодОКАТО --> КодОКАТО <Порядок>300 <Источник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>КПППлательщика --> КПППлательщика <Порядок>450 <Источник Имя="КПППлательщика" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КПППлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>КПППолучателя --> КПППолучателя <Порядок>500 <Источник Имя="КПППолучателя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КПППолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>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 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств"/> <ПередВыгрузкой>Значение = "ОплатаПоставщику"; <Значения/> <Группа> <Код>Справочники <Наименование>Справочники <Порядок>4100 <Правило> <Код>Банки <Наименование>СправочникСсылка.Банки --> СправочникСсылка.Банки <Порядок>100 <Источник>СправочникСсылка.Банки <Приемник>СправочникСсылка.Банки <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>400 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>500 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Свойство> <Код>6 <Наименование>Местонахождение --> Город <Порядок>600 <Источник Имя="Местонахождение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>КоррСчет --> КоррСчет <Порядок>700 <Источник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Адрес --> Адрес <Порядок>800 <Источник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>Телефоны --> Телефоны <Порядок>900 <Источник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>БанковскиеСчета <Наименование>СправочникСсылка.БанковскиеСчета --> СправочникСсылка.БанковскиеСчета <Порядок>200 <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчета <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>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 <Наименование>СуммаБез00Копеек --> СуммаБезКопеек <Порядок>1500 <Источник Имя="СуммаБез00Копеек" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаБезКопеек" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>16 <Наименование>ЮрФизЛицо --> Владелец <Порядок>1600 <Источник Имя="ЮрФизЛицо" Вид="Реквизит"/> <Приемник Имя="Владелец" Вид="Свойство"/> <ПередВыгрузкой>Если (Источник.ЮрФизЛицо.Вид() = "ФизЛица") ИЛИ (Источник.ЮрФизЛицо.Вид() = "ЮрЛица") Тогда СпрКонтр = СоздатьОбъект("Справочник.Контрагенты"); Возвр = СпрКонтр.НайтиПоРеквизиту("ЮрФизЛицо", Источник.ЮрФизЛицо, 1); Если Возвр = 1 Тогда Значение = СпрКонтр.ТекущийЭлемент(); КонецЕсли; Иначе Значение = Источник.ЮрФизЛицо; КонецЕсли; <Значения/> <Правило> <Код>Валюты <Наименование>СправочникСсылка.Валюты --> СправочникСсылка.Валюты <Порядок>300 <Источник>СправочникСсылка.Валюты <Приемник>СправочникСсылка.Валюты <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>400 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>НомераГТД <Наименование>СправочникСсылка.ГТД --> СправочникСсылка.НомераГТД <Порядок>400 <Источник>СправочникСсылка.ГТД <Приемник>СправочникСсылка.НомераГТД <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Код <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>СтатьиДвиженияДенежныхСредств <Наименование>СправочникСсылка.ДвиженияДенежныхСредств --> СправочникСсылка.СтатьиДвиженияДенежныхСредств <Порядок>500 <Источник>СправочникСсылка.ДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>Контрагенты <Наименование>СправочникСсылка.Контрагенты --> СправочникСсылка.Контрагенты <Порядок>700 <ПриЗагрузке>Если НЕ Объект.ЭтоГруппа Тогда Объект.ГоловнойКонтрагент = Объект.Ссылка; КонецЕсли; Если НЕ Объект.ЭтоГруппа Тогда Если СтрДлина(СокрЛП(Объект.ИНН)) = 12 Тогда Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо; Иначе Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо; КонецЕсли; КонецЕсли; <ПослеЗагрузки>//Если Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ПустаяСсылка() Тогда // Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо; //КонецЕсли; Если Не Объект.ЭтоГруппа Тогда Если Объект.КонтактнаяИнформация.Количество() > 0 Тогда ЮрАдрес = ""; ФактАдрес = ""; СтрокаАдресов = Объект.КонтактнаяИнформация[0].Представление; Телефоны = СокрЛП(Объект.КонтактнаяИнформация[0].НомерТелефона); Объект.КонтактнаяИнформация.Очистить(); СтрокаАдресов = СокрЛП(СтрЗаменить(СтрокаАдресов, "ЮрАдрес*","")); Разделитель = Найти(СтрокаАдресов, "#"); //ЮрАдрес Если Лев(СтрокаАдресов, 1) <> "#" Тогда ЮрАдрес = СокрЛП(Лев(СтрокаАдресов, Разделитель-1)); Адрес = Объект.КонтактнаяИнформация.Добавить(); Адрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Адрес.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента; Адрес.Представление = ЮрАдрес; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ЮрАдрес); //Адрес.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; СтрокаАдресов = Сред(СтрокаАдресов, Разделитель+1, СтрДлина(СтрокаАдресов)-Разделитель); ФактАдрес = СокрЛП(СтрЗаменить(СтрокаАдресов, "ФактАдрес*", "")); //ФактАдрес Если ФактАдрес <> "" Тогда Адрес = Объект.КонтактнаяИнформация.Добавить(); Адрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Адрес.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента; Адрес.Представление = ФактАдрес; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ФактАдрес); //Адрес.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; //Почтовый адрес Если ЮрАдрес <> "" Тогда ПочтовыйАдрес = ЮрАдрес; ИначеЕсли ФактАдрес <> "" Тогда ПочтовыйАдрес = ФактАдрес; Иначе ПочтовыйАдрес = ""; КонецЕсли; Если ПочтовыйАдрес <> "" Тогда Почтовый = Объект.КонтактнаяИнформация.Добавить(); Почтовый.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Почтовый.Вид = Справочники.ВидыКонтактнойИнформации.ПочтовыйАдресКонтрагента; Почтовый.Представление = ПочтовыйАдрес; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ПочтовыйАдрес); //Почтовый.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; //Телефонные номера Если Телефоны <> "" Тогда Телефон = Объект.КонтактнаяИнформация.Добавить(); Телефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон; Телефон.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента; Телефон.Представление = Телефоны; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", Телефоны); //Телефон.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; КонецЕсли; Объект.Записать(); КонецЕсли; <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>400 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>500 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>7 <Наименование>ОсновнойДоговор --> УдалитьОсновнойДоговорКонтрагента <Порядок>700 <Источник Имя="ОсновнойДоговор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="УдалитьОсновнойДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>8 <Наименование>ОсновнойСчет --> ОсновнойБанковскийСчет <Порядок>800 <Источник Имя="ОсновнойСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="ОсновнойБанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>9 <Наименование>Комментарий --> Комментарий <Порядок>900 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>--> НаименованиеПолное <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Значение = Источник.ЮрФизЛицо.ПолнНаименование; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>11 <Наименование>--> ИНН <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Если Найти(Источник.ЮрФизЛицо.ИНН, "/") <> 0 Тогда Значение = Лев(Источник.ЮрФизЛицо.ИНН, Найти(Источник.ЮрФизЛицо.ИНН, "/") - 1); ИначеЕсли Найти(Источник.ЮрФизЛицо.ИНН, "\") <> 0 Тогда Значение = Лев(Источник.ЮрФизЛицо.ИНН, Найти(Источник.ЮрФизЛицо.ИНН, "\") - 1); Иначе Значение = СокрЛП(Источник.ЮрФизЛицо.ИНН); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование>--> КПП <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Если Найти(Источник.ЮрФизЛицо.ИНН, "/") <> 0 Тогда Значение = Сред(Источник.ЮрФизЛицо.ИНН, Найти(Источник.ЮрФизЛицо.ИНН, "/") + 1); ИначеЕсли Найти(Источник.ЮрФизЛицо.ИНН, "\") <> 0 Тогда Значение = Сред(Источник.ЮрФизЛицо.ИНН, Найти(Источник.ЮрФизЛицо.ИНН, "\") + 1); Иначе Значение = ""; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование>--> ГоловнойКонтрагент <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ГоловнойКонтрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПередВыгрузкой> Значение = 0; <Группа> <Код>14 <Наименование>--> КонтактнаяИнформация <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки> Если Источник.ЭтоГруппа() = 0 Тогда КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("КолонкаПредставление"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяСтрока(); ЮрАдрес = Строка(Источник.ЮрФизЛицо.ЮрАдрес); Пока Найти(ЮрАдрес, ",,")>0 Цикл ЮрАдрес = СтрЗаменить(ЮрАдрес,",,",","); КонецЦикла; ЮрАдрес = СокрЛП(ЮрАдрес); Если Прав(ЮрАдрес, 1) = "," Тогда ЮрАдрес = Лев(ЮрАдрес, СтрДлина(ЮрАдрес)-1); КонецЕсли; Если Лев(ЮрАдрес, 1) = "," Тогда ЮрАдрес = Прав(ЮрАдрес, СтрДлина(ЮрАдрес)-1); КонецЕсли; ФактАдрес = Строка(Источник.ЮрФизЛицо.ФактАдрес); Пока Найти(ФактАдрес, ",,")>0 Цикл ФактАдрес = СтрЗаменить(ФактАдрес,",,",","); КонецЦикла; ФактАдрес = СокрЛП(ФактАдрес); Если Прав(ФактАдрес, 1) = "," Тогда ФактАдрес = Лев(ФактАдрес, СтрДлина(ФактАдрес)-1); КонецЕсли; Если Лев(ФактАдрес, 1) = "," Тогда ФактАдрес = Прав(ФактАдрес, СтрДлина(ФактАдрес)-1); КонецЕсли; КоллекцияОбъектов.КолонкаПредставление = "ЮрАдрес*"+ЮрАдрес+"#ФактАдрес*"+ФактАдрес; КоллекцияОбъектов.НомерТелефона = Строка(Источник.ЮрФизЛицо.Телефоны); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>18 <Наименование>--> Представление <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Значение = ОбъектКоллекции.КолонкаПредставление; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>16 <Наименование>--> НомерТелефона <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>Номенклатура <Наименование>СправочникСсылка.Номенклатура --> СправочникСсылка.Номенклатура <Порядок>800 <ПослеЗагрузки> Если НЕ Объект.ЭтоГруппа Тогда Если Объект.Услуга Тогда Объект.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Услуга"); Иначе Объект.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар"); КонецЕсли КонецЕсли <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>300 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>6 <Наименование>Комментарий --> Комментарий <Порядок>600 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>НомерГТД --> НомерГТД <Порядок>700 <Источник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.ГТД"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>8 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>800 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>9 <Наименование>СтранаПроисхождения --> СтранаПроисхождения <Порядок>900 <Источник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.ОКСМ"/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1000 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>ВидНоменклатуры --> Услуга <Порядок>1100 <Источник Имя="ВидНоменклатуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыНоменклатуры"/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если (Источник.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (Источник.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>12 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>1200 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Артикул --> Артикул <Порядок>1250 <Источник Имя="Артикул" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Артикул" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>БазоваяЕдиница --> ЕдиницаИзмерения <Порядок>1300 <Источник Имя="БазоваяЕдиница" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <ПередВыгрузкой>Значение = Источник.БазоваяЕдиница.ОКЕИ; <Значения/> <Правило> <Код>КлассификаторЕдиницИзмерения <Наименование>СправочникСсылка.ОКЕИ --> СправочникСсылка.КлассификаторЕдиницИзмерения <Порядок>900 <Источник>СправочникСсылка.ОКЕИ <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>300 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>Организации <Наименование>СправочникСсылка.СвоиЮрЛица --> СправочникСсылка.Организации <Порядок>1000 <ПередВыгрузкой>Если (Параметры.БазоваяВерсия=1) ИЛИ ((ПустоеЗначение(Параметры.ЮрЛицо)=0) И (Источник <> Параметры.ЮрЛицо)) Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Если НЕ ЗначениеЗаполнено(Объект.КПП) Тогда Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо; КонецЕсли; Если Не Объект.ЭтоГруппа Тогда Если Объект.КонтактнаяИнформация.Количество() > 0 Тогда ЮрАдрес = ""; ФактАдрес = ""; СтрокаАдресов = Объект.КонтактнаяИнформация[0].Представление; Телефоны = СокрЛП(Объект.КонтактнаяИнформация[0].НомерТелефона); Объект.КонтактнаяИнформация.Очистить(); СтрокаАдресов = СокрЛП(СтрЗаменить(СтрокаАдресов, "ЮрАдрес*","")); Разделитель = Найти(СтрокаАдресов, "#"); //ЮрАдрес Если Лев(СтрокаАдресов, 1) <> "#" Тогда ЮрАдрес = СокрЛП(Лев(СтрокаАдресов, Разделитель-1)); Адрес = Объект.КонтактнаяИнформация.Добавить(); Адрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Адрес.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации; Адрес.Представление = ЮрАдрес; Адрес.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ЮрАдрес); //Адрес.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; СтрокаАдресов = Сред(СтрокаАдресов, Разделитель+1, СтрДлина(СтрокаАдресов)-Разделитель); ФактАдрес = СокрЛП(СтрЗаменить(СтрокаАдресов, "ФактАдрес*", "")); //ФактАдрес Если ФактАдрес <> "" Тогда Адрес = Объект.КонтактнаяИнформация.Добавить(); Адрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Адрес.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресОрганизации; Адрес.Представление = ФактАдрес; Адрес.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ФактАдрес); //Адрес.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; //Почтовый адрес Если ЮрАдрес <> "" Тогда ПочтовыйАдрес = ЮрАдрес; ИначеЕсли ФактАдрес <> "" Тогда ПочтовыйАдрес = ФактАдрес; Иначе ПочтовыйАдрес = ""; КонецЕсли; Если ПочтовыйАдрес <> "" Тогда Почтовый = Объект.КонтактнаяИнформация.Добавить(); Почтовый.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Почтовый.Вид = Справочники.ВидыКонтактнойИнформации.ПочтовыйАдресОрганизации; Почтовый.Представление = ПочтовыйАдрес; Почтовый.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ПочтовыйАдрес); //Почтовый.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; //Телефонные номера Если Телефоны <> "" Тогда Телефон = Объект.КонтактнаяИнформация.Добавить(); Телефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон; Телефон.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонОрганизации; Телефон.Представление = Телефоны; Телефон.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", Телефоны); //Телефон.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; КонецЕсли; Объект.НаименованиеСокращенное = Объект.Наименование; Если Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда Объект.НаименованиеПолное = "Индивидуальный предприниматель "+Объект.ИндивидуальныйПредприниматель.Наименование; ИначеЕсли Найти(Объект.Наименование, "ООО")>0 Тогда Наим = СокрЛП(СтрЗаменить(Объект.Наименование, "ООО", "")); Объект.НаименованиеПолное = "Общество с ограниченной ответственностью "+Наим; ИначеЕсли Найти(Объект.Наименование, "ЗАО")>0 Тогда Наим = СокрЛП(СтрЗаменить(Объект.Наименование, "ЗАО", "")); Объект.НаименованиеПолное = "Закрытое акционерное общество "+Наим; ИначеЕсли Найти(Объект.Наименование, "ОАО")>0 Тогда Наим = СокрЛП(СтрЗаменить(Объект.Наименование, "ОАО", "")); Объект.НаименованиеПолное = "Открытое акционерное общество "+Наим;Объект.Записать(); КонецЕсли; КонецЕсли; <Источник>СправочникСсылка.СвоиЮрЛица <Приемник>СправочникСсылка.Организации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПрефиксНомеровДокументов --> Префикс <Порядок>300 <Источник Имя="ПрефиксНомеровДокументов" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Префикс" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ИНН --> ИНН <Порядок>400 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Найти(Источник.ИНН, "\") <> 0 Тогда Значение = Лев(Источник.ИНН, Найти(Источник.ИНН, "\") - 1); Иначе Значение = СокрЛП(Источник.ИНН); КонецЕсли; <Свойство> <Код>5 <Наименование>ДатаРегистрации --> ДатаРегистрации <Порядок>500 <Источник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>6 <Наименование>ОКАТО --> КодПоОКАТО <Порядок>600 <Источник Имя="ОКАТО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ОКВЭД --> НаименованиеОКВЭД <Порядок>700 <Источник Имя="ОКВЭД" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеОКВЭД" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ОКОНХ --> КодОКОНХ <Порядок>800 <Источник Имя="ОКОНХ" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКОНХ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ОКОПФ --> КодОКОПФ <Порядок>900 <Источник Имя="ОКОПФ" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКОПФ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ОКПО --> КодПоОКПО <Порядок>1000 <Источник Имя="ОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>ОГРН --> ОГРН <Порядок>1100 <Источник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>НаименованиеПлательщикаПриПеречисленииНалогов --> НаименованиеПлательщикаПриПеречисленииВБюджет <Порядок>1400 <Источник Имя="НаименованиеПлательщикаПриПеречисленииНалогов" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПлательщикаПриПеречисленииВБюджет" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование>--> КПП <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Найти(Источник.ИНН, "\") <> 0 Тогда Значение = Сред(Источник.ИНН, Найти(Источник.ИНН, "\") + 1); Иначе Значение = ""; КонецЕсли; <Свойство> <Код>18 <Наименование>--> ИндивидуальныйПредприниматель <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="ИндивидуальныйПредприниматель" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <ПередВыгрузкой> Если Источник.ОргПравФорма = "Индивидуальный предприниматель" Тогда Имя = СокрЛП(СтрЗаменить(Источник.ОфициальноеНаименование, "Индивидуальный предприниматель", "")); ОбъектФизЛицо = СоздатьОбъект("Справочник.ФизЛица"); Если ОбъектФизЛицо.НайтиПоНаименованию(Имя) = 1 Тогда ФизЛицоИП = ОбъектФизЛицо.ТекущийЭлемент(); Иначе ФизЛицоИП = Имя; КонецЕсли; Значение = ФизЛицоИП; Иначе Отказ = 1; КонецЕсли <Группа> <Код>19 <Наименование>--> КонтактнаяИнформация <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки> Если Источник.ЭтоГруппа() = 0 Тогда КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("КолонкаПредставление"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяСтрока(); ЮрАдрес = Строка(Источник.ЮрАдрес); Пока Найти(ЮрАдрес, ",,")>0 Цикл ЮрАдрес = СтрЗаменить(ЮрАдрес,",,",","); КонецЦикла; ЮрАдрес = СокрЛП(ЮрАдрес); Если Прав(ЮрАдрес, 1) = "," Тогда ЮрАдрес = Лев(ЮрАдрес, СтрДлина(ЮрАдрес)-1); КонецЕсли; Если Лев(ЮрАдрес, 1) = "," Тогда ЮрАдрес = Прав(ЮрАдрес, СтрДлина(ЮрАдрес)-1); КонецЕсли; ФактАдрес = Строка(Источник.ФактАдрес); Пока Найти(ФактАдрес, ",,")>0 Цикл ФактАдрес = СтрЗаменить(ФактАдрес,",,",","); КонецЦикла; ФактАдрес = СокрЛП(ФактАдрес); Если Прав(ФактАдрес, 1) = "," Тогда ФактАдрес = Лев(ФактАдрес, СтрДлина(ФактАдрес)-1); КонецЕсли; Если Лев(ФактАдрес, 1) = "," Тогда ФактАдрес = Прав(ФактАдрес, СтрДлина(ФактАдрес)-1); КонецЕсли; КоллекцияОбъектов.КолонкаПредставление = "ЮрАдрес*"+ЮрАдрес+"#ФактАдрес*"+ФактАдрес; КоллекцияОбъектов.НомерТелефона = Строка(Источник.Телефоны); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>20 <Наименование>--> НомерТелефона <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>--> Представление <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Значение = ОбъектКоллекции.КолонкаПредставление; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>22 <Наименование>СвидетельствоДатаВыдачи --> СвидетельствоДатаВыдачи <Порядок>1750 <Источник Имя="СвидетельствоДатаВыдачи" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="СвидетельствоДатаВыдачи" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>23 <Наименование>СвидетельствоСерияНомер --> СвидетельствоСерияНомер <Порядок>1800 <Источник Имя="СвидетельствоСерияНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="СвидетельствоСерияНомер" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>24 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1850 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Кассы <Наименование>СправочникСсылка.Склады --> СправочникСсылка.Склады <Порядок>1100 <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>Код --> Код <Порядок>400 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Наименование --> Наименование <Порядок>500 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Касса " + Источник.Наименование; <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>--> ЭтоГруппа <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Склады <Наименование>СправочникСсылка.Склады --> СправочникСсылка.Склады <Порядок>1100 <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Отключить="true"> <Код>2 <Наименование>--> ТипЦенРозничнойТорговли <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦенРозничнойТорговли" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство Поиск="true"> <Код>4 <Наименование>Код --> Код <Порядок>400 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Наименование --> Наименование <Порядок>500 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>6 <Наименование>--> ЭтоГруппа <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ФизическиеЛица <Наименование>СправочникСсылка.ФизЛица --> СправочникСсылка.ФизическиеЛица <Порядок>1300 <ПослеВыгрузки>ФИО = Источник.ПолнНаименование; Поз1 = Найти(ФИО, " "); Фамилия = Лев(ФИО, Поз1); ИО = Сред(ФИО, Поз1+1); Поз2 = Найти(ИО, " "); Имя = Лев(ИО, Поз2); Отчество= Сред(ИО, Поз2+1); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник, "ФизЛицо"); ИсходящиеДанные.ДобавитьЗначение(Фамилия, "Фамилия"); ИсходящиеДанные.ДобавитьЗначение(Имя, "Имя"); ИсходящиеДанные.ДобавитьЗначение(Отчество, "Отчество"); Если ПустаяСтрока(Фамилия) = 0 Тогда ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ФИОФизЛиц"); КонецЕсли; <ПослеЗагрузки>Если Не Объект.ЭтоГруппа Тогда Если Объект.КонтактнаяИнформация.Количество() > 0 Тогда ЮрАдрес = ""; ФактАдрес = ""; СтрокаАдресов = Объект.КонтактнаяИнформация[0].Представление; Телефоны = СокрЛП(Объект.КонтактнаяИнформация[0].НомерТелефона); Объект.КонтактнаяИнформация.Очистить(); СтрокаАдресов = СокрЛП(СтрЗаменить(СтрокаАдресов, "ЮрАдрес*","")); Разделитель = Найти(СтрокаАдресов, "#"); //ЮрАдрес Если Лев(СтрокаАдресов, 1) <> "#" Тогда ЮрАдрес = СокрЛП(Лев(СтрокаАдресов, Разделитель-1)); Адрес = Объект.КонтактнаяИнформация.Добавить(); Адрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Адрес.Вид = Справочники.ВидыКонтактнойИнформации.АдресПоПропискеФизическиеЛица; Адрес.Представление = ЮрАдрес; Адрес.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ЮрАдрес); //Адрес.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; СтрокаАдресов = Сред(СтрокаАдресов, Разделитель+1, СтрДлина(СтрокаАдресов)-Разделитель); ФактАдрес = СокрЛП(СтрЗаменить(СтрокаАдресов, "ФактАдрес*", "")); //ФактАдрес Если ФактАдрес <> "" Тогда Адрес = Объект.КонтактнаяИнформация.Добавить(); Адрес.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Адрес.Вид = Справочники.ВидыКонтактнойИнформации.АдресМестаПроживанияФизическиеЛица; Адрес.Представление = ФактАдрес; Адрес.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ФактАдрес); //Адрес.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; //Почтовый адрес Если ЮрАдрес <> "" Тогда ПочтовыйАдрес = ЮрАдрес; ИначеЕсли ФактАдрес <> "" Тогда ПочтовыйАдрес = ФактАдрес; Иначе ПочтовыйАдрес = ""; КонецЕсли; Если ПочтовыйАдрес <> "" Тогда Почтовый = Объект.КонтактнаяИнформация.Добавить(); Почтовый.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Почтовый.Вид = Справочники.ВидыКонтактнойИнформации.АдресДляИнформированияФизическиеЛица; Почтовый.Представление = ПочтовыйАдрес; Почтовый.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", ПочтовыйАдрес); //Почтовый.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; //Телефонные номера Если Телефоны <> "" Тогда Телефон = Объект.КонтактнаяИнформация.Добавить(); Телефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон; Телефон.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонДомашнийФизическиеЛица; Телефон.Представление = Телефоны; Телефон.Страна = "РОССИЯ"; //XDTOКонтактная = КонтактнаяИнформацияСлужебный.ДесериализацияАдреса("", Телефоны); //Телефон.ЗначенияПолей = КонтактнаяИнформацияСлужебный.СериализацияКонтактнойИнформации(XDTOКонтактная); КонецЕсли; КонецЕсли; Объект.Записать(); КонецЕсли; <Источник>СправочникСсылка.ФизЛица <Приемник>СправочникСсылка.ФизическиеЛица <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>300 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>5 <Наименование>ИНН --> ИНН <Порядок>500 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат; КонецЕсли; <Свойство> <Код>6 <Наименование>ПолнНаименование --> ФИО <Порядок>550 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ФИО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Группа> <Код>8 <Наименование>--> КонтактнаяИнформация <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки> Если Источник.ЭтоГруппа() = 0 Тогда КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("КолонкаПредставление"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяСтрока(); ЮрАдрес = Строка(Источник.ЮрАдрес); Пока Найти(ЮрАдрес, ",,")>0 Цикл ЮрАдрес = СтрЗаменить(ЮрАдрес,",,",","); КонецЦикла; ЮрАдрес = СокрЛП(ЮрАдрес); Если Прав(ЮрАдрес, 1) = "," Тогда ЮрАдрес = Лев(ЮрАдрес, СтрДлина(ЮрАдрес)-1); КонецЕсли; Если Лев(ЮрАдрес, 1) = "," Тогда ЮрАдрес = Прав(ЮрАдрес, СтрДлина(ЮрАдрес)-1); КонецЕсли; ФактАдрес = Строка(Источник.ФактАдрес); Пока Найти(ФактАдрес, ",,")>0 Цикл ФактАдрес = СтрЗаменить(ФактАдрес,",,",","); КонецЦикла; ФактАдрес = СокрЛП(ФактАдрес); Если Прав(ФактАдрес, 1) = "," Тогда ФактАдрес = Лев(ФактАдрес, СтрДлина(ФактАдрес)-1); КонецЕсли; Если Лев(ФактАдрес, 1) = "," Тогда ФактАдрес = Прав(ФактАдрес, СтрДлина(ФактАдрес)-1); КонецЕсли; КоллекцияОбъектов.КолонкаПредставление = "ЮрАдрес*"+ЮрАдрес+"#ФактАдрес*"+ФактАдрес; КоллекцияОбъектов.НомерТелефона = Строка(Источник.Телефоны); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>9 <Наименование>--> НомерТелефона <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>--> Представление <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Значение = ОбъектКоллекции.КолонкаПредставление; Иначе Отказ = 1; КонецЕсли; <Значения/> <Правило> <Код>КлассификаторСтранМира <Наименование>СправочникСсылка.ОКСМ --> СправочникСсылка.КлассификаторСтранМира <Порядок>1400 <Источник>СправочникСсылка.ОКСМ <Приемник>СправочникСсылка.СтраныМира <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ОКЕИ <Наименование>СправочникСсылка.ОКЕИ --> СправочникСсылка.КлассификаторЕдиницИзмерения <Порядок>1500 <Источник>СправочникСсылка.ОКЕИ <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>400 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ПрочиеДоходыИРасходы <Наименование> --> СправочникСсылка.ПрочиеДоходыИРасходы <Порядок>1600 <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>--> Наименование <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>--> ВидПрочихДоходовИРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПрочихДоходовИРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПрочихДоходовИРасходов"/> <Свойство> <Код>5 <Наименование>--> ПринятиеКналоговомуУчету <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ПринятиеКналоговомуУчету" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>6 <Наименование>--> Родитель <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <Свойство Обязательное="true"> <Код>7 <Наименование>--> ЭтоГруппа <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиДвиженияДенежныхСредствСправочник <Наименование>СправочникСсылка.ДвиженияДенежныхСредств --> СправочникСсылка.СтатьиДвиженияДенежныхСредств <Порядок>1700 <Источник>СправочникСсылка.ДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Свойства> <Свойство> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ДоговорыКонтрагентов <Наименование>СправочникСсылка.Договоры --> СправочникСсылка.ДоговорыКонтрагентов <Порядок>16600 <НеЗапоминатьВыгруженные>true <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>300 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство Поиск="true"> <Код>5 <Наименование>Владелец --> Владелец <Порядок>500 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>6 <Наименование>ВалютаВзаиморасчетов --> ВалютаВзаиморасчетов <Порядок>600 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат; КонецЕсли; <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>700 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат; КонецЕсли; <Свойство Поиск="true"> <Код>9 <Наименование>--> Организация <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат; КонецЕсли; Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Значение = ВходящиеДанные.Получить("Организация"); КонецЕсли; КонецЕсли; <Свойство Поиск="true"> <Код>10 <Наименование>--> ВидДоговора <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДоговоровКонтрагентов"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат; КонецЕсли; Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Значение = ВходящиеДанные.Получить("ВидДоговора"); КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование>--> РасчетыВУсловныхЕдиницах <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыВУсловныхЕдиницах" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат; КонецЕсли; Определено = 0; Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ВходящиеДанные.Получить("ВидДоговора")="СКомитентом") ИЛИ (ВходящиеДанные.Получить("ВидДоговора")="СКомиссионером") Тогда Значение = 0; Определено = 1; КонецЕсли; КонецЕсли; КонецЕсли; Если (Определено = 0) И (Источник.ВалютаВзаиморасчетов <> Константа.ВалютаБухУчета) Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>12 <Наименование>Код --> Код <Порядок>1200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>Пользователи <Наименование>СправочникСсылка.Пользователи --> СправочникСсылка.Пользователи <Порядок>16650 <Источник>СправочникСсылка.Пользователи <Приемник>СправочникСсылка.Пользователи <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ТипыЦенНоменклатуры <Наименование>Справочник: Типы цен <Порядок>16700 <Источник>СправочникСсылка.ТипыЦен <Приемник>СправочникСсылка.ТипыЦенНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>100 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПорядокОкругления --> ПорядокОкругления <Порядок>250 <Источник Имя="ПорядокОкругления" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядкиОкругления"/> <Приемник Имя="ПорядокОкругления" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядкиОкругления"/> <КодПравилаКонвертации>ПорядкиОкругления <Свойство> <Код>6 <Наименование>Валюта --> ВалютаЦены <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаЦены" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>7 <Наименование>ЦенаВклНДС --> ЦенаВключаетНДС <Порядок>350 <Источник Имя="ЦенаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Значения/> <Правило> <Код>КлассификаторЕдиницИзмеренияСпр <Наименование>Справочник: Единицы измерения номенклатуры <Порядок>16750 <Источник>СправочникСсылка.Единицы <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>--> Код <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Значения/> <Группа> <Код>Перечисления <Наименование>Перечисления <Порядок>4200 <Правило> <Код>ПорядкиОкругления <Наименование>ПеречислениеСсылка.ПорядкиОкругления --> ПеречислениеСсылка.ПорядкиОкругления <Порядок>2600 <Источник>ПеречислениеСсылка.ПорядкиОкругления <Приемник>ПеречислениеСсылка.ПорядкиОкругления <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Окр0_01 --> Окр0_01 <Порядок>100 <Источник>Окр0_01 <Приемник>Окр0_01 <Значение> <Код>2 <Наименование>Окр0_05 --> Окр0_05 <Порядок>200 <Источник>Окр0_05 <Приемник>Окр0_05 <Значение> <Код>3 <Наименование>Окр1 --> Окр1 <Порядок>300 <Источник>Окр1 <Приемник>Окр1 <Значение> <Код>4 <Наименование>Окр5 --> Окр5 <Порядок>400 <Источник>Окр5 <Приемник>Окр5 <Значение> <Код>5 <Наименование>Окр10 --> Окр10 <Порядок>500 <Источник>Окр10 <Приемник>Окр10 <Значение> <Код>6 <Наименование>Окр50 --> Окр50 <Порядок>600 <Источник>Окр50 <Приемник>Окр50 <Значение> <Код>7 <Наименование>Окр100 --> Окр100 <Порядок>700 <Источник>Окр100 <Приемник>Окр100 <Правило> <Код>СтавкиНДС <Наименование>ПеречислениеСсылка.СтавкиНДС --> ПеречислениеСсылка.СтавкиНДС <Порядок>2700 <Источник>ПеречислениеСсылка.СтавкиНДС <Приемник>ПеречислениеСсылка.СтавкиНДС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>БезНДС --> БезНДС <Порядок>100 <Источник>БезНДС <Приемник>БезНДС <Значение> <Код>2 <Наименование>НДС10 --> НДС10 <Порядок>200 <Источник>НДС10 <Приемник>НДС10 <Значение> <Код>3 <Наименование>НДС20 --> НДС20 <Порядок>300 <Источник>НДС20 <Приемник>НДС20 <Значение> <Код>4 <Наименование>НДС20_120 --> НДС20_120 <Порядок>400 <Источник>НДС20_120 <Приемник>НДС20_120 <Значение> <Код>5 <Наименование>НДС10_110 --> НДС10_110 <Порядок>500 <Источник>НДС10_110 <Приемник>НДС10_110 <Значение> <Код>6 <Наименование>НДС18 --> НДС18 <Порядок>600 <Источник>НДС18 <Приемник>НДС18 <Значение> <Код>7 <Наименование>НДС18_118 --> НДС18_118 <Порядок>700 <Источник>НДС18_118 <Приемник>НДС18_118 <Значение> <Код>8 <Наименование>НДС16_67 --> НДС20_120 <Порядок>800 <Источник>НДС16_67 <Приемник>НДС20_120 <Значение> <Код>9 <Наименование>НДС9_09 --> НДС10_110 <Порядок>900 <Источник>НДС9_09 <Приемник>НДС10_110 <Правило> <Код>СпособыРасчетаКомиссионногоВознаграждения <Наименование>ПеречислениеСсылка.СпособыРасчетаВознаграждения --> ПеречислениеСсылка.СпособыРасчетаКомиссионногоВо <Порядок>4400 <Источник>ПеречислениеСсылка.СпособыРасчетаВознаграждения <Приемник>ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ПроцентОтПрибыли --> ПроцентОтРазностиСуммПродажиИ <Порядок>100 <Источник>ПроцентОтПрибыли <Приемник>ПроцентОтРазностиСуммПродажиИПоступления <Значение> <Код>2 <Наименование>ПроцентОтПродаж --> ПроцентОтСуммыПродажи <Порядок>200 <Источник>ПроцентОтПродаж <Приемник>ПроцентОтСуммыПродажи <Значение> <Код>3 <Наименование>Ручное --> НеРассчитывается <Порядок>300 <Источник>Ручное <Приемник>НеРассчитывается <Правило> <Код>ВидыДоговоровКонтрагентов <Наименование> --> ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Порядок>4450 <Приемник>ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Свойства/> <Значения/> <Правило> <Код>ВидыОперацийПКО <Наименование>Перечисление: Коды операций <Порядок>4500 <Источник>ПеречислениеСсылка.КодыОпераций <Приемник>ПеречислениеСсылка.ВидыОперацийПКО <Свойства/> <Значения> <Значение> <Код>1 <Наименование>РозничнаяВыручка --> РозничнаяВыручка <Порядок>50 <Источник>РозничнаяВыручка <Приемник>РозничнаяВыручка <Значение> <Код>2 <Наименование>--> ВозвратЗаймаКонтрагентом <Порядок>100 <Приемник>ВозвратЗаймаКонтрагентом <Значение> <Код>3 <Наименование>ВозвратОплатыОтПоставщика --> ВозвратОтПоставщика <Порядок>150 <Источник>ВозвратОплатыОтПоставщика <Приемник>ВозвратОтПоставщика <Значение> <Код>4 <Наименование>ОплатаОтПокупателя --> ОплатаПокупателя <Порядок>200 <Источник>ОплатаОтПокупателя <Приемник>ОплатаПокупателя <Правило> <Код>ВидыОперацийРКО <Наименование>Перечисление: Коды операций <Порядок>4550 <Источник>ПеречислениеСсылка.КодыОпераций <Приемник>ПеречислениеСсылка.ВидыОперацийРКО <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ОплатаПоставщику --> ОплатаПоставщику <Порядок>50 <Источник>ОплатаПоставщику <Приемник>ОплатаПоставщику <Значение> <Код>2 <Наименование>ВыдачаПодотчет --> ВыдачаПодотчетномуЛицу <Порядок>100 <Источник>ВыдачаПодотчет <Приемник>ВыдачаПодотчетномуЛицу <Значение> <Код>3 <Наименование>ВозвратОплатыПокупателю --> ВозвратПокупателю <Порядок>150 <Источник>ВозвратОплатыПокупателю <Приемник>ВозвратПокупателю <Значение> <Код>4 <Наименование>Прочее --> ПрочийРасход <Порядок>200 <Источник>Прочее <Приемник>ПрочийРасход <Правило> <Код>ВидыОперацийПоступлениеДенежныхСредств <Наименование>Перечисление: Коды операций <Порядок>4600 <Источник>ПеречислениеСсылка.КодыОпераций <Приемник>ПеречислениеСсылка.ВидыОперацийПоступлениеДенежныхСредств <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ВозвратОплатыОтПоставщика --> ВозвратОтПоставщика <Порядок>50 <Источник>ВозвратОплатыОтПоставщика <Приемник>ВозвратОтПоставщика <Значение> <Код>2 <Наименование>ОплатаОтПокупателя --> ОплатаПокупателя <Порядок>100 <Источник>ОплатаОтПокупателя <Приемник>ОплатаПокупателя <Значение> <Код>3 <Наименование>Прочее --> ПрочееПоступление <Порядок>150 <Источник>Прочее <Приемник>ПрочееПоступление <Правило> <Код>ВидыОперацийСписаниеДенежныхСредств <Наименование>Перечисление: Коды операций <Порядок>4650 <Источник>ПеречислениеСсылка.КодыОпераций <Приемник>ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ОплатаПоставщику --> ОплатаПоставщику <Порядок>50 <Источник>ОплатаПоставщику <Приемник>ОплатаПоставщику <Значение> <Код>2 <Наименование>Прочее --> ПрочееСписание <Порядок>100 <Источник>Прочее <Приемник>ПрочееСписание <Правило> <Код>ВидыОперацийРеализацияТоваров <Наименование>Перечисление: <Порядок>4700 <Источник>ПеречислениеСсылка.КодыОпераций <Приемник>ПеречислениеСсылка.ВидыОперацийРеализацияТоваров <Свойства/> <Значения/> <Правило> <Код>ВидыОперацийВозвратТоваровОтПокупателя <Наименование>Перечисление: Коды операций <Порядок>4750 <Источник>ПеречислениеСсылка.КодыОпераций <Приемник>ПеречислениеСсылка.ВидыОперацийВозвратТоваровОтПокупателя <Свойства/> <Значения/> <Группа> <Код>Регистры сведений <Наименование>Регистры сведений <Порядок>4400 <Правило> <Код>ФИОФизЛиц <Наименование> --> РегистрСведенийЗапись.ФИОФизЛиц <Порядок>4300 <Приемник>РегистрСведенийЗапись.ФИОФизическихЛиц <Свойства> <Свойство> <Код>2 <Наименование>--> Фамилия <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Фамилия" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>3 <Наименование>--> Имя <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Имя" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование>--> Отчество <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Отчество" Вид="Ресурс" Тип="Строка"/> <Значения/> <Правило> <Код>КонтактнаяИнформация <Наименование> --> РегистрСведенийЗапись.КонтактнаяИнформация <Порядок>4350 <ПередВыгрузкой>ВыгружаемыйОбъект = ПолучитьЗначение(ВходящиеДанные,"Объект"); Если (ВыгружаемыйОбъект.Вид() <> "Контрагенты") И (ВыгружаемыйОбъект.Вид() <> "ФизЛица") Тогда Если (Параметры.БазоваяВерсия=1) ИЛИ ((ПустоеЗначение(ВыгружаемыйОбъект)=0) И (ВыгружаемыйОбъект <> Параметры.ЮрЛицо)) Тогда Отказ = 1; КонецЕсли; КонецЕсли; <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.УдалитьКонтактнаяИнформация <Свойства> <Свойство> <Код>1 <Наименование>--> Вид <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Измерение"/> <ПередВыгрузкой>ТипПриемника = "СправочникСсылка.ВидыКонтактнойИнформации"; <Свойство> <Код>2 <Наименование>--> Объект <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Объект" Вид="Измерение"/> <ПередВыгрузкой>Значение = ПолучитьЗначение(ВходящиеДанные,"Объект"); Если Значение.Вид()="Контрагенты" Тогда ИмяПКО = "Контрагенты" ИначеЕсли Значение.Вид()="ФизЛица" Тогда ИмяПКО = "ФизическиеЛица"; Иначе ИмяПКО = "Организации"; КонецЕсли; <Свойство> <Код>3 <Наименование>--> Тип <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Измерение" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Свойство> <Код>4 <Наименование>--> Поле1 <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле1" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование>--> Поле2 <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле2" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование>--> Поле3 <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле3" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование>--> Поле4 <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле4" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование>--> Поле5 <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле5" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>9 <Наименование>--> Поле6 <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле6" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>10 <Наименование>--> Поле7 <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле7" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>11 <Наименование>--> Поле8 <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле8" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>12 <Наименование>--> Поле9 <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поле9" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>13 <Наименование>--> Представление <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>14 <Наименование>--> ТипДома <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ТипДома" Вид="Ресурс" Тип="ПеречислениеСсылка.УдалитьТипыДомов"/> <Свойство> <Код>15 <Наименование>--> ТипКвартиры <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ТипКвартиры" Вид="Ресурс" Тип="ПеречислениеСсылка.УдалитьТипыКвартир"/> <Свойство> <Код>16 <Наименование>--> ТипКорпуса <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ТипКорпуса" Вид="Ресурс" Тип="ПеречислениеСсылка.УдалитьТипыКорпусов"/> <Значения/> <Группа> <Код>Планы счетов <Наименование>Планы счетов <Порядок>4450 <Правило> <Код>Хозрасчетный <Наименование>: <Порядок>50 <Источник>СправочникСсылка.ПланСчетов <Приемник>ПланСчетовСсылка.Хозрасчетный <Свойства> <Свойство> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <ПравилаВыгрузкиДанных> <Группа Отключить="true"> <Код>Справочники <Наименование>Справочники <Порядок>1550 <Правило Отключить="true"> <Код>Пользователи <Наименование>Пользователи <Порядок>50 <КодПравилаКонвертации>Пользователи <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Пользователи <Правило Отключить="true"> <Код>Банки <Наименование>Банки <Порядок>100 <КодПравилаКонвертации>Банки <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Банки <Правило Отключить="true"> <Код>ОКЕИ <Наименование>ОКЕИ <Порядок>150 <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ОКЕИ <Правило Отключить="true"> <Код>ОКСМ <Наименование>ОКСМ <Порядок>200 <КодПравилаКонвертации>КлассификаторСтранМира <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ОКСМ <Правило Отключить="true"> <Код>ФизЛица <Наименование>ФизЛица <Порядок>250 <КодПравилаКонвертации>ФизическиеЛица <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ФизЛица <Правило Отключить="true"> <Код>СвоиЮрЛица <Наименование>СвоиЮрЛица <Порядок>300 <КодПравилаКонвертации>Организации <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СвоиЮрЛица <Правило Отключить="true"> <Код>Номенклатура <Наименование>Номенклатура <Порядок>350 <КодПравилаКонвертации>Номенклатура <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Номенклатура <Правило Отключить="true"> <Код>Валюты <Наименование>Валюты <Порядок>400 <КодПравилаКонвертации>Валюты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Валюты <Правило Отключить="true"> <Код>ГТД <Наименование>ГТД <Порядок>450 <КодПравилаКонвертации>НомераГТД <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ГТД <Правило Отключить="true"> <Код>ДвиженияДенежныхСредств <Наименование>ДвиженияДенежныхСредств <Порядок>500 <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ДвиженияДенежныхСредств <Правило Отключить="true"> <Код>Контрагенты <Наименование>Контрагенты <Порядок>550 <КодПравилаКонвертации>Контрагенты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Контрагенты <Правило Отключить="true"> <Код>Договоры <Наименование>Договоры <Порядок>600 <КодПравилаКонвертации>ДоговорыКонтрагентов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Договоры <Правило Отключить="true"> <Код>Склады <Наименование>Склады <Порядок>650 <КодПравилаКонвертации>Склады <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Склады <Правило Отключить="true"> <Код>Склады00001 <Наименование>Склады <Порядок>700 <КодПравилаКонвертации>Кассы <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Склады <Правило Отключить="true"> <Код>БанковскиеСчета <Наименование>БанковскиеСчета <Порядок>850 <КодПравилаКонвертации>БанковскиеСчета <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.БанковскиеСчета <Группа Отключить="false"> <Код>Документы <Наименование>Документы <Порядок>1600 <Правило Отключить="false"> <Код>ПоступлениеТМЦ <Наименование>ПоступлениеТМЦ <Порядок>50 <КодПравилаКонвертации>ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТМЦ <Правило Отключить="false"> <Код>ПлатежноеПоручение <Наименование>ПлатежноеПоручение <Порядок>50 <КодПравилаКонвертации>ПлатежноеПоручение <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПлатежноеПоручение <Правило Отключить="true"> <Код>ОприходованиеТМЦ <Наименование>ОприходованиеТМЦ <Порядок>100 <КодПравилаКонвертации>ОприходованиеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОприходованиеТМЦ <Правило Отключить="false"> <Код>Реализация <Наименование>Реализация <Порядок>200 <КодПравилаКонвертации>РеализацияТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Реализация <Правило Отключить="false"> <Код>РеализацияРозница <Наименование>РеализацияРозница <Порядок>300 <КодПравилаКонвертации>РеализацияРозница <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияРозница <Правило Отключить="false"> <Код>ВозвратПоставщику <Наименование>ВозвратПоставщику <Порядок>450 <КодПравилаКонвертации>ВозвратТоваровПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратПоставщику <Правило Отключить="false"> <Код>ВозвратОтПокупателя <Наименование>ВозвратОтПокупателя <Порядок>500 <КодПравилаКонвертации>ВозвратТоваровОтПокупателя <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратОтПокупателя <Правило Отключить="false"> <Код>СтрокаВыпискиРасход <Наименование>СтрокаВыпискиРасход <Порядок>800 <КодПравилаКонвертации>ПлатежныйОрдерСписаниеДенежныхСредств <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СтрокаВыпискиРасход <Правило Отключить="false"> <Код>РКО <Наименование>РКО <Порядок>850 <КодПравилаКонвертации>РасходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РКО <Правило Отключить="false"> <Код>ПКО <Наименование>ПКО <Порядок>900 <КодПравилаКонвертации>ПриходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПКО <Правило Отключить="false"> <Код>СтрокаВыпискиПриход <Наименование>СтрокаВыпискиПриход <Порядок>950 <КодПравилаКонвертации>ПлатежноеПоручениеВходящее <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СтрокаВыпискиПриход <Правило Отключить="false"> <Код>СчетФактураВыданный <Наименование>СчетФактураВыданный <Порядок>1000 <КодПравилаКонвертации>СчетФактураВыданный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураВыданный <Правило Отключить="false"> <Код>СчетФактураПолученный <Наименование>СчетФактураПолученный <Порядок>1050 <КодПравилаКонвертации>СчетФактураПолученный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураПолученный <Правило Отключить="false"> <Код>ПоступлениеПрочее <Наименование>ПоступлениеПрочее <Порядок>1400 <КодПравилаКонвертации>ПоступлениеТоваровУслугПрочее <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеПрочее <Правило Отключить="false"> <Код>РеализацияПрочее <Наименование>РеализацияПрочее <Порядок>1450 <КодПравилаКонвертации>РеализацияТоваровУслугПрочее <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияПрочее <ПравилаОчисткиДанных/> <Алгоритмы> <Алгоритм Имя="ПолучитьСтруктуруАдреса" ИспользуетсяПриЗагрузке="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)); // квартира ИсходящиеДанные.Установить("ТипДома", ?(ПустоеЗначение(АдресСписком.ПолучитьЗначение(8))=1, "", "Дом")); ИсходящиеДанные.Установить("ТипКвартиры", ?(ПустоеЗначение(АдресСписком.ПолучитьЗначение(9))=1, "", "Квартира")); ИсходящиеДанные.Установить("ТипКорпуса", ?(ПустоеЗначение(АдресСписком.ПолучитьЗначение(10))=1,"", "Корпус")); ТекПредставление = ""; Если СокрЛП(ИсходящиеДанные.Получить("Поле1")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ИсходящиеДанные.Получить("Поле1")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле2")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ИсходящиеДанные.Получить("Поле2")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле3")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ИсходящиеДанные.Получить("Поле3")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле4")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ИсходящиеДанные.Получить("Поле4")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле5")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ИсходящиеДанные.Получить("Поле5")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле6")) <> "" Тогда ТекПредставление = ТекПредставление + ", " + СокрЛП(ИсходящиеДанные.Получить("Поле6")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле7")) <> "" Тогда ТекПредставление = ТекПредставление + ", дом № " + СокрЛП(ИсходящиеДанные.Получить("Поле7")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле8")) <> "" Тогда ТекПредставление = ТекПредставление + ", корпус " + СокрЛП(ИсходящиеДанные.Получить("Поле8")); КонецЕсли; Если СокрЛП(ИсходящиеДанные.Получить("Поле9")) <> "" Тогда ТекПредставление = ТекПредставление + ", кв." + СокрЛП(ИсходящиеДанные.Получить("Поле9")); КонецЕсли; Если СтрДлина(ТекПредставление) > 2 Тогда ТекПредставление = Сред(ТекПредставление, 3); КонецЕсли; ИсходящиеДанные.Установить("Представление", ТекПредставление); Иначе //Сообщить("Адрес: " + Адрес + " не соответствует требованиям МНС, "+ИсходящиеДанные.Получить("Объект")); ИсходящиеДанные.Установить("Представление", Адрес); КонецЕсли; <Запросы/>