<ПравилаОбмена> <ВерсияФормата РежимСовместимости="РежимСовместимостиСБСП20">2.01 <Ид>f18d78c6-4643-4cc2-b514-4678daf737ff <Наименование>Торговля+Склад, редакция 9.2 --> БухгалтерияПредприятия <ДатаВремяСоздания>2017-10-26T13:56:20 <Источник ВерсияПлатформы="7.7" ВерсияКонфигурации="7.70.984" СинонимКонфигурации="">Торговля+Склад, редакция 9.2 <Приемник ВерсияПлатформы="8.0" ВерсияКонфигурации="3.0.43.123" СинонимКонфигурации="Бухгалтерия предприятия (базовая), редакция 3.0">БухгалтерияПредприятияБазовая <ПередЗагрузкойДанных>//Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; <ПередВыгрузкойОбъекта>Если ТипЗначенияСтр(Объект) = "Документ" Тогда Если (Объект.Проведен()=0) И (Объект.Вид() <> "Доверенность") И (Объект.Вид() <> "ПлатежноеПоручение") И (Объект.Вид() <> "АвансовыйОтчет") И (Объект.Вид() <> "ИнвентаризацияТМЦ") Тогда Отказ = 1; ИначеЕсли (ПустоеЗначение(Параметры.ЮрЛицо)=0) И (Объект.ЮрЛицо <> Параметры.ЮрЛицо) Тогда Отказ = 1; КонецЕсли; КонецЕсли; <ПослеЗагрузкиОбъекта>Если ИмяТипаОбъекта = "Справочник" ИЛИ ИмяТипаОбъекта = "ПланВидовХарактеристик" Тогда Если НЕ ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод(); КонецЕсли; РеквизитОрганизация = Объект.Метаданные().Реквизиты.Найти("Организация"); Если РеквизитОрганизация <> Неопределено И (НЕ ЗначениеЗаполнено(Объект.Организация)) Тогда Если (НЕ Объект.ЭтоГруппа) ИЛИ (РеквизитОрганизация.Использование = Метаданные.СвойстваОбъектов.ИспользованиеРеквизита.ДляГруппы) Тогда Объект.Организация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация"); КонецЕсли; КонецЕсли; ИначеЕсли ИмяТипаОбъекта = "Документ" Тогда Если НЕ ЗначениеЗаполнено(Объект.Номер) Тогда ОбщегоНазначения.УстановитьНомерДокумента(Объект); КонецЕсли; Если ОбщегоНазначенияБП.ЕстьРеквизитДокумента("Организация", Объект.Метаданные()) И (НЕ ЗначениеЗаполнено(Объект.Организация)) Тогда Объект.Организация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация"); КонецЕсли; КонецЕсли <Параметры> <Параметр Имя="БазоваяВерсия " Наименование="БазоваяВерсия" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="КомиссияПоСтрокамТабличнойЧасти " Наименование="КомиссияПоСтрокамТабличнойЧасти" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ЮрЛицо " Наименование="ЮрЛицо" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="СправочникСсылка.СвоиЮрЛица" ПередаватьПараметрПриВыгрузке="false"/> <Обработки/> <ПравилаКонвертацииОбъектов> <Группа> <Код>Документы <Наименование>Документы <Порядок>100 <Правило> <Код>АвансовыйОтчет <Наименование>ДокументСсылка.АвансовыйОтчет --> ДокументСсылка.АвансовыйОтчет <Порядок>100 <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.АвансовыйОтчет.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; ДанныеОбъекта = Новый Структура("Дата, Организация"); ЗаполнитьЗначенияСвойств(ДанныеОбъекта, Объект); МассивТЧ = Новый Массив; МассивТЧ.Добавить("ВозвратнаяТара"); Для каждого ИмяТЧ из МассивТЧ Цикл Для каждого СтрокаТЧ из Объект[ИмяТЧ] Цикл СведенияОНоменклатуре = БухгалтерскийУчетПереопределяемый.ПолучитьСведенияОНоменклатуре( СтрокаТЧ.Номенклатура, ДанныеОбъекта); Если СведенияОНоменклатуре = Неопределено Тогда Продолжить; КонецЕсли; Документы.АвансовыйОтчет.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти( Объект, СтрокаТЧ, "ВозвратнаяТара", СведенияОНоменклатуре); КонецЦикла; КонецЦикла; Для каждого СтрокаТабличнойЧасти Из Объект.ОплатаПоставщикам Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом( Объект.Организация, СтрокаТабличнойЧасти.Контрагент, СтрокаТабличнойЧасти.ДоговорКонтрагента); СтрокаТабличнойЧасти.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Если СтрокаТабличнойЧасти.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.НеПогашать Тогда СтрокаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом = Неопределено; Иначе ВидДоговора = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(СтрокаТабличнойЧасти.ДоговорКонтрагента, "ВидДоговора"); Если ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом ИЛИ ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентомНаЗакупку Тогда СтрокаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе СтрокаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; КонецЕсли; Если СтрокаТабличнойЧасти.СпособПогашенияЗадолженности <> Перечисления.СпособыПогашенияЗадолженности.ПоДокументу Тогда СтрокаТабличнойЧасти.Сделка = Неопределено; КонецЕсли; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + Объект.ОплатаПоставщикам.Итог("Сумма") + УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Прочее"); <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.АвансовыйОтчет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>50 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>150 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ФизЛицо --> ФизЛицо <Порядок>250 <Источник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>6 <Наименование>Валюта --> ВалютаДокумента <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>7 <Наименование>Курс --> КурсДокумента <Порядок>350 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>Кратность --> КратностьДокумента <Порядок>400 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>НаименованиеАванса --> НазначениеАванса <Порядок>450 <Источник Имя="НаименованиеАванса" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НазначениеАванса" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>86 <Наименование>ПриложеноДок --> КоличествоДокументов <Порядок>500 <Источник Имя="ПриложеноДок" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДокументов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>87 <Наименование>НаЛистах --> КоличествоЛистов <Порядок>550 <Источник Имя="НаЛистах" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоЛистов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>85 <Наименование>--> Склад <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <ПередВыгрузкой>Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,, Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.Вид() <> "СтрокаАвансОтчетаТМЦ" Тогда Продолжить; КонецЕсли; Значение = Док.Склад; Прервать; КонецЦикла; <Свойство> <Код>91 <Наименование>--> СуммаВключаетНДС <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,, Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.Вид() <> "СтрокаАвансОтчетаТМЦ") и (Док.Вид() <> "СтрокаАвансОтчетаПрочее")Тогда Продолжить; КонецЕсли; Если Док.СуммаВклНДС = 1 Тогда Значение = "true"; КонецЕсли; Прервать; КонецЦикла; <Группа> <Код>14 <Наименование>--> Товары <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидДокВходящий"); КоллекцияОбъектов.НоваяКолонка("НомерВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("ДатаВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("Поставщик"); КоллекцияОбъектов.НоваяКолонка("СчетФактура"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("ЕдиницаИзмерения"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Цена"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("ПредъявленСФ"); КоллекцияОбъектов.НоваяКолонка("ДатаСФ"); КоллекцияОбъектов.НоваяКолонка("НомерСФ"); Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,, Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.Вид() <> "СтрокаАвансОтчетаТМЦ" Тогда Продолжить; КонецЕсли; Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидДокВходящий = Док.ВидДокВходящий; КоллекцияОбъектов.НомерВходящегоДокумента = Док.НомерДокВходящий; КоллекцияОбъектов.ДатаВходящегоДокумента = Док.ДатаДокВходящий; КоллекцияОбъектов.Номенклатура = Док.Номенклатура; КоллекцияОбъектов.ЕдиницаИзмерения = Док.Единица; КоллекцияОбъектов.Коэффициент = Док.Единица.Коэффициент; КоллекцияОбъектов.Количество = Док.Количество; КоллекцияОбъектов.Цена = Док.Цена; КоллекцияОбъектов.Сумма = Док.Сумма; КоллекцияОбъектов.СтавкаНДС = Док.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = Док.СуммаНДС; КоллекцияОбъектов.НомерГТД = Док.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Док.Партия.СтранаПроисхождения; СФ = глНайтиСчетФактуру(Док, "СчетФактураПолученный"); КоллекцияОбъектов.ПредъявленСФ = ?(ПустоеЗначение(СФ)=1, 0, 1); Если ПустоеЗначение(СФ) = 0 Тогда КоллекцияОбъектов.Поставщик = СФ.Контрагент; КоллекцияОбъектов.ДатаСФ = СФ.ДатаДокВходящий; КоллекцияОбъектов.НомерСФ = СФ.НомерДокВходящий; КоллекцияОбъектов.СчетФактура = СФ; КонецЕсли; КонецЦикла; КонецЦикла; <Свойство> <Код>15 <Наименование>--> ВидДокВходящий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование>--> НомерВходящегоДокумента <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование>--> ДатаВходящегоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>18 <Наименование>--> Поставщик <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>19 <Наименование>--> СчетФактура <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураПолученный"/> <КодПравилаКонвертации>СчетФактураПолученный <Свойство> <Код>20 <Наименование>--> Номенклатура <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>24 <Наименование>--> Количество <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>--> Цена <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>--> Сумма <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>--> СтавкаНДС <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>28 <Наименование>--> СуммаНДС <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>--> НомерГТД <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>30 <Наименование>--> СтранаПроисхождения <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство> <Код>36 <Наименование>--> ПредъявленСФ <Порядок>2200 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСФ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>37 <Наименование>--> ДатаСФ <Порядок>2300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСФ" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>38 <Наименование>--> НомерСФ <Порядок>2400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерСФ" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>39 <Наименование>--> ОплатаПоставщикам <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ОплатаПоставщикам" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидДокВходящий"); КоллекцияОбъектов.НоваяКолонка("НомерВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("ДатаВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("Контрагент"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("Содержание"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,, Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.Вид() <> "СтрокаАвансОтчетаОплата" Тогда Продолжить; КонецЕсли; Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидДокВходящий = Док.ВидДокВходящий; КоллекцияОбъектов.НомерВходящегоДокумента = Док.НомерДокВходящий; КоллекцияОбъектов.ДатаВходящегоДокумента = Док.ДатаДокВходящий; КоллекцияОбъектов.Контрагент = Док.Контрагент; КоллекцияОбъектов.ДоговорКонтрагента = Док.Договор; КоллекцияОбъектов.Содержание = Док.Содержание; КоллекцияОбъектов.Сумма = Док.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = Док.СуммаВзаиморасчетов; КоллекцияОбъектов.КратностьВзаиморасчетов = Док.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КоллекцияОбъектов.КурсВзаиморасчетов = КоллекцияОбъектов.Сумма/КоллекцияОбъектов.СуммаВзаиморасчетов * КоллекцияОбъектов.КратностьВзаиморасчетов; КонецЦикла; КонецЦикла; <Свойство> <Код>40 <Наименование>--> ВидДокВходящий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>41 <Наименование>--> ДатаВходящегоДокумента <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>42 <Наименование>--> НомерВходящегоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>43 <Наименование>--> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>44 <Наименование>--> Контрагент <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>45 <Наименование>--> ДоговорКонтрагента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>46 <Наименование>--> Содержание <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>47 <Наименование>--> СуммаВзаиморасчетов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>49 <Наименование>--> КурсВзаиморасчетов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>50 <Наименование>--> КратностьВзаиморасчетов <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>90 <Наименование>--> СпособПогашенияЗадолженности <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <ПередВыгрузкой>Значение = "Автоматически"; <Группа> <Код>55 <Наименование>--> Прочее <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Прочее" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидДокВходящий"); КоллекцияОбъектов.НоваяКолонка("НомерВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("ДатаВходящегоДокумента"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("Поставщик"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("СчетФактура"); КоллекцияОбъектов.НоваяКолонка("Содержание"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СчетЗатрат"); КоллекцияОбъектов.НоваяКолонка("Субконто1"); КоллекцияОбъектов.НоваяКолонка("Субконто2"); КоллекцияОбъектов.НоваяКолонка("Субконто3"); КоллекцияОбъектов.НоваяКолонка("СчетЗатратНУ"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ1"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ2"); КоллекцияОбъектов.НоваяКолонка("СубконтоНУ3"); КоллекцияОбъектов.НоваяКолонка("ПредъявленСФ"); КоллекцияОбъектов.НоваяКолонка("ДатаСФ"); КоллекцияОбъектов.НоваяКолонка("НомерСФ"); Док = СоздатьОбъект("Документ"); Док.ВыбратьПодчиненныеДокументы(,, Источник); Пока Док.ПолучитьДокумент() = 1 Цикл Если Док.Вид() <> "СтрокаАвансОтчетаПрочее" Тогда Продолжить; КонецЕсли; Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ВидДокВходящий = Док.ВидДокВходящий; КоллекцияОбъектов.НомерВходящегоДокумента = Док.НомерДокВходящий; КоллекцияОбъектов.ДатаВходящегоДокумента = Док.ДатаДокВходящий; КоллекцияОбъектов.Содержание = Док.Содержание; КоллекцияОбъектов.Сумма = Док.Сумма; КоллекцияОбъектов.СтавкаНДС = Док.СтавкаНДС; КоллекцияОбъектов.СчетЗатрат = Док.Счет; КоллекцияОбъектов.Субконто1 = Док.Субконто1; КоллекцияОбъектов.Субконто2 = Док.Субконто2; КоллекцияОбъектов.Субконто3 = Док.Субконто3; КоллекцияОбъектов.СчетЗатратНУ = Док.СчетНУ; КоллекцияОбъектов.СубконтоНУ1 = Док.СубконтоНУ1; КоллекцияОбъектов.СубконтоНУ2 = Док.СубконтоНУ2; КоллекцияОбъектов.СубконтоНУ3 = Док.СубконтоНУ3; СФ = глНайтиСчетФактуру(Док, "СчетФактураПолученный"); КоллекцияОбъектов.ПредъявленСФ = ?(ПустоеЗначение(СФ)=1, 0, 1); Если ПустоеЗначение(СФ) = 0 Тогда КоллекцияОбъектов.Поставщик = СФ.Контрагент; КоллекцияОбъектов.ДатаСФ = СФ.ДатаДокВходящий; КоллекцияОбъектов.НомерСФ = СФ.НомерДокВходящий; КоллекцияОбъектов.СчетФактура = СФ; КонецЕсли; КонецЦикла; КонецЦикла; <Свойство> <Код>56 <Наименование>--> ВидДокВходящий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>57 <Наименование>--> НомерВходящегоДокумента <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>58 <Наименование>--> ДатаВходящегоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>59 <Наименование>--> Поставщик <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>60 <Наименование>--> СчетФактура <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетФактура" Вид="Реквизит" Тип="ДокументСсылка.СчетФактураПолученный"/> <Свойство> <Код>61 <Наименование>--> Номенклатура <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>62 <Наименование>--> Содержание <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>63 <Наименование>--> Сумма <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>64 <Наименование>--> СтавкаНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>65 <Наименование>--> СуммаНДС <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>66 <Наименование>--> СчетЗатрат <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>67 <Наименование>--> Субконто1 <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <Свойство> <Код>68 <Наименование>--> Субконто2 <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <Свойство> <Код>69 <Наименование>--> Субконто3 <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <Свойство> <Код>70 <Наименование>--> СчетЗатратНУ <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетЗатратНУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>71 <Наименование>--> СубконтоНУ1 <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ1" Вид="Реквизит"/> <Свойство> <Код>72 <Наименование>--> СубконтоНУ2 <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ2" Вид="Реквизит"/> <Свойство> <Код>73 <Наименование>--> СубконтоНУ3 <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоНУ3" Вид="Реквизит"/> <Свойство Отключить="true"> <Код>74 <Наименование>--> ОтражениеВУСН <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <Свойство Отключить="true"> <Код>79 <Наименование>--> СчетУчетаНДС <Порядок>2400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаНДС" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>80 <Наименование>--> ПредъявленСФ <Порядок>2500 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСФ" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>81 <Наименование>--> ДатаСФ <Порядок>2600 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСФ" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>82 <Наименование>--> НомерСФ <Порядок>2700 <Источник Имя="" Вид=""/> <Приемник Имя="НомерСФ" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>88 <Наименование>--> ВыданныеАвансы <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ВыданныеАвансы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДокументАванса"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС |ОбрабатыватьДокументы все; |Обрабатывать НеПомеченныеНаУдаление; |ТекущийДокумент = Документ.РКО.ТекущийДокумент; |Группировка ТекущийДокумент; |Условие(ТекущийДокумент.АвансовыйОтчет = Источник); |Условие(ТекущийДокумент.ФизЛицо = Источник.ФизЛицо); |Условие(ТекущийДокумент.ЮрЛицо = Источник.ЮрЛицо); |Условие(ТекущийДокумент.Валюта = Источник.Валюта); |Условие(ТекущийДокумент.КодОперации = ВыдачаПодотчетнику); |"//}}ЗАПРОС ; ВыдачаПодотчетнику = Перечисление.КодыОпераций.ВыдачаПодотчет; Если Запрос.Выполнить(ТекстЗапроса) <> 0 Тогда РезультатЗапроса = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(РезультатЗапроса,,0); Если РезультатЗапроса.КоличествоСтрок() > 0 Тогда РезультатЗапроса.ВыбратьСтроки(); Пока РезультатЗапроса.ПолучитьСтроку()=1 Цикл ТекущийДокумент = РезультатЗапроса.ТекущийДокумент; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДокументАванса = ТекущийДокумент; КонецЦикла; КонецЕсли; КонецЕсли; <Свойство> <Код>89 <Наименование>--> ДокументАванса <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументАванса" Вид="Реквизит"/> <КодПравилаКонвертации>РасходныйКассовыйОрдер <Значения/> <Правило> <Код>ВозвратТоваровОтПокупателя <Наименование>ДокументСсылка.ВозвратОтПокупателя --> ДокументСсылка.ВозвратТоваровОтПокупателя <Порядок>200 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Объект.Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>КомиссияПоСтрокамТабличнойЧасти = Параметры.КомиссияПоСтрокамТабличнойЧасти[Ссылка]; Если КомиссияПоСтрокамТабличнойЧасти <> Неопределено Тогда Для каждого Значение из КомиссияПоСтрокамТабличнойЧасти Цикл СтрокаТЧ = Объект.Товары.Получить(Значение.Ключ - 1); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ВозвратТоваровОтПокупателя.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); Если Значение.Значение Тогда Если ЗначениеЗаполнено(СчетаУчета.СчетУчета) Тогда СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; Если ЗначениеЗаполнено(СчетаУчета.СчетПередачи) Тогда СтрокаТЧ.ПереданныеСчетУчета = СчетаУчета.СчетПередачи; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Для каждого СтрокаТЧ из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ВозвратТоваровОтПокупателя.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ВозвратнаяТара", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.Товары Цикл Если НЕ ЗначениеЗаполнено(СтрокаТЧ.СчетУчета) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ВозвратТоваровОтПокупателя.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЕсли; КонецЦикла; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя; Объект.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); <Источник>ДокументСсылка.ВозвратОтПокупателя <Приемник>ДокументСсылка.ВозвратТоваровОтПокупателя <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); Если ТабДокумента.Себестоимость = 0 Тогда КоллекцияОбъектов.Себестоимость = Рег.СуммаРуб / ?(Источник.Курс=0, Источник.Курс, 1) * Источник.Кратность * КоллекцияОбъектов.Количество / Рег.Количество; Иначе Если ТабДокумента.Количество <> 0 Тогда КоллекцияОбъектов.Себестоимость = (ТабДокумента.Себестоимость + ТабДокумента.СебестоимостьНДС) * КоллекцияОбъектов.Количество / ТабДокумента.Количество; КонецЕсли; КонецЕсли; КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.Себестоимость = ТабДокумента.Себестоимость; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Себестоимость, Количество, Сумма, СуммаНДС"); <Свойство> <Код>2 <Наименование>--> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>--> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>--> Цена <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>--> Сумма <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>--> СтавкаНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>9 <Наименование>--> СуммаНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>--> Себестоимость <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>--> НомерГТД <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <ПередВыгрузкой>//Значение = ОбъектКоллекции.Партия.ГТД; <Свойство> <Код>18 <Наименование>--> СтранаПроисхождения <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <ПередВыгрузкой>//Значение = ОбъектКоллекции.Партия.СтранаПроисхождения; <Свойство Поиск="true"> <Код>34 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>35 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>37 <Наименование>ЮрЛицо --> Организация <Порядок>500 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>38 <Наименование>Комментарий --> Комментарий <Порядок>600 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>39 <Наименование>Склад --> Склад <Порядок>700 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>40 <Наименование>Контрагент --> Контрагент <Порядок>800 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>41 <Наименование>Договор --> ДоговорКонтрагента <Порядок>900 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтРеализатора Тогда ИсходящиеДанные.ДобавитьЗначение("СКомиссионером", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>42 <Наименование>Валюта --> ВалютаДокумента <Порядок>1000 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>44 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>1200 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.СуммаВклНДС = 1 Тогда Значение = "true"; Иначе Значение = "false"; КонецЕсли; <Свойство> <Код>45 <Наименование>ТипЦен --> ТипЦен <Порядок>1300 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>46 <Наименование>--> ВидОперации <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровОтПокупателя"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>48 <Наименование>--> КурсВзаиморасчетов <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>49 <Наименование>--> КратностьВзаиморасчетов <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>50 <Наименование>ДокОснование --> Сделка <Порядок>1750 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>51 <Наименование>--> ПокупателемВыставляетсяСчетФактураНаВозврат <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="ПокупателемВыставляетсяСчетФактураНаВозврат" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>СФ = глНайтиСчетФактуру(Источник, "СчетФактураПолученный"); Если (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателя) и (ПустоеЗначение(СФ) = 0) Тогда Значение = "true"; Иначе Значение = "false"; КонецЕсли; <Значения/> <Правило> <Код>ВозвратТоваровПоставщику <Наименование>ДокументСсылка.ВозвратПоставщику --> ДокументСсылка.ВозвратТоваровПоставщику <Порядок>300 <ПослеЗагрузки>ЭтоКомиссия = Ложь; Если ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда ЭтоКомиссия = Истина; КонецЕсли; КонецЕсли; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоПретензиям = СчетаУчета.СчетРасчетовПоПретензиям; Для каждого СтрокаТЧ из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ВозвратТоваровПоставщику.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ВозвратнаяТара", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ВозвратТоваровПоставщику.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); Если ЭтоКомиссия Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом( Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); СтрокаТЧ.СчетРасчетов = СчетаУчета.СчетРасчетовСКомитентом; СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЕсли; КонецЦикла; Документы.ВозвратТоваровПоставщику.ЗаполнитьСчетаУчетаРасчетов(Объект); Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); <Источник>ДокументСсылка.ВозвратПоставщику <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Склад --> Склад <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>600 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>7 <Наименование>Договор --> ДоговорКонтрагента <Порядок>700 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратКомитенту) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратКомитентуИзРозницы) Тогда ИсходящиеДанные.ДобавитьЗначение("СКомитентом", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>8 <Наименование>Валюта --> ВалютаДокумента <Порядок>800 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>1000 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.СуммаВклНДС = 1 Тогда Значение = "true"; Иначе Значение = "false"; КонецЕсли; <Свойство Отключить="true"> <Код>11 <Наименование>ТипЦен --> ТипЦен <Порядок>1100 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>12 <Наименование>--> ВидОперации <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровПоставщику"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>13 <Наименование>--> КурсВзаиморасчетов <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>14 <Наименование>--> КратностьВзаиморасчетов <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1500 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); <Свойство> <Код>16 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>17 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>Коэффициент --> Коэффициент <Порядок>300 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>Номенклатура --> Номенклатура <Порядок>400 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>22 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>700 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>23 <Наименование>Сумма --> Сумма <Порядок>800 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>СуммаНДС --> СуммаНДС <Порядок>900 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Цена --> Цена <Порядок>1000 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>--> НомерГТД <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>27 <Наименование>--> СтранаПроисхождения <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Значения/> <Правило> <Код>Доверенность <Наименование>ДокументСсылка.Доверенность --> ДокументСсылка.Доверенность <Порядок>400 <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.Доверенность <Приемник>ДокументСсылка.Доверенность <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование>НаименованиеТМЦ --> НаименованиеТовара <Порядок>100 <Источник Имя="НаименованиеТМЦ" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеТовара" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>3 <Наименование>Номенклатура --> <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="" Вид=""/> <Свойство> <Код>4 <Наименование>Количество --> Количество <Порядок>300 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>ОКЕИ --> ЕдиницаПоКлассификатору <Порядок>400 <Источник Имя="ОКЕИ" Вид="Реквизит" Тип="СправочникСсылка.ОКЕИ"/> <Приемник Имя="ЕдиницаПоКлассификатору" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>7 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>8 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>9 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ДатаДействия --> ДатаДействия <Порядок>600 <Источник Имя="ДатаДействия" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаДействия" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование>ДоверенноеЛицо --> ФизЛицо <Порядок>700 <Источник Имя="ДоверенноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>12 <Наименование>Контрагент --> Контрагент <Порядок>800 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>13 <Наименование>БанковскийСчет --> БанковскийСчетОрганизации <Порядок>900 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>14 <Наименование>Договор --> ДоговорКонтрагента <Порядок>1000 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Организация"); ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); <Свойство> <Код>15 <Наименование>НаПолучениеОт --> НаПолучениеОт <Порядок>1100 <Источник Имя="НаПолучениеОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаПолучениеОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование>ПоДокументу --> ПоДокументу <Порядок>1200 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ИнвентаризацияТоваровНаСкладе <Наименование>ДокументСсылка.ИнвентаризацияТМЦ --> ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Порядок>500 <ПослеЗагрузки>Если Объект.Организация.Пустая() Тогда Объект.Организация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация"); КонецЕсли; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ИнвентаризацияТоваровНаСкладе.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>КоличествоУчет --> КоличествоУчет <Порядок>300 <Источник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Цена --> Цена <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>Сумма --> Сумма <Порядок>700 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>СуммаУчет --> СуммаУчет <Порядок>800 <Источник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>12 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>13 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>14 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>15 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование>Склад --> Склад <Порядок>600 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Значения/> <Правило> <Код>КорректировкаДолга <Наименование>ДокументСсылка.КорректировкаДолга --> ДокументСсылка.КорректировкаДолга <Порядок>600 <ПослеЗагрузки>ВалютаРегламентированногоУчета = ОбщегоНазначенияБПВызовСервераПовтИсп.ПолучитьВалютуРегламентированногоУчета(); Если Объект.ВалютаДокумента = ВалютаРегламентированногоУчета Тогда Объект.СуммаДтЗадолженности = Объект.ДебиторскаяЗадолженность.Итог("Сумма"); Объект.СуммаКтЗадолженности = Объект.КредиторскаяЗадолженность.Итог("Сумма"); Иначе Объект.СуммаДтЗадолженности = Объект.ДебиторскаяЗадолженность.Итог("СуммаВзаиморасчетов"); Объект.СуммаКтЗадолженности = Объект.КредиторскаяЗадолженность.Итог("СуммаВзаиморасчетов"); КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.КорректировкаДолга <Приемник>ДокументСсылка.КорректировкаДолга <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>50 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>150 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Валюта --> ВалютаДокумента <Порядок>250 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>58 <Наименование>Курс --> КурсДокумента <Порядок>300 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>59 <Наименование>Кратность --> КратностьДокумента <Порядок>350 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>ВидОперации --> ВидОперации <Порядок>400 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийКоррДолга"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийКорректировкаДолга"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Покупатель Тогда Если Источник.Сумма > 0 Тогда Значение = "Прочее"; Иначе Значение = "СписаниеЗадолженности"; КонецЕсли; Иначе Если Источник.Сумма > 0 Тогда Значение = "СписаниеЗадолженности"; Иначе Значение = "Прочее"; КонецЕсли; КонецЕсли; <Свойство> <Код>60 <Наименование>Контрагент --> КонтрагентКредитор <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="КонтрагентКредитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>Контрагент --> КонтрагентДебитор <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="КонтрагентДебитор" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>19 <Наименование>--> СчетДт <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = "91.02"; <Свойство> <Код>20 <Наименование>--> СчетКт <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКт" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = "91.01"; <Свойство> <Код>25 <Наименование>Субконто1 --> СубконтоДт1 <Порядок>650 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="СубконтоДт1" Вид="Реквизит"/> <Свойство> <Код>26 <Наименование>Субконто2 --> СубконтоДт2 <Порядок>700 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="СубконтоДт2" Вид="Реквизит"/> <Свойство> <Код>27 <Наименование>Субконто3 --> СубконтоДт3 <Порядок>750 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="СубконтоДт3" Вид="Реквизит"/> <Свойство> <Код>28 <Наименование>Субконто1 --> СубконтоКт1 <Порядок>800 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="СубконтоКт1" Вид="Реквизит"/> <Свойство> <Код>29 <Наименование>Субконто2 --> СубконтоКт2 <Порядок>850 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="СубконтоКт2" Вид="Реквизит"/> <Свойство> <Код>30 <Наименование>Субконто3 --> СубконтоКт3 <Порядок>900 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="СубконтоКт3" Вид="Реквизит"/> <Группа> <Код>33 <Наименование>--> ДебиторскаяЗадолженность <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ДебиторскаяЗадолженность" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Сделка"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНУ"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетов"); КоллекцияОбъектов.НоваяКолонка("КорДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КорСчетУчетаРасчетов"); Если ((Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Покупатель) И (Источник.Сумма < 0)) ИЛИ ((Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Поставщик) И (Источник.Сумма < 0)) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КурсВзаиморасчетов = Источник.Курс; КоллекцияОбъектов.КратностьВзаиморасчетов = Источник.Кратность; КоллекцияОбъектов.Сделка = ""; Если Источник.Сумма < 0 Тогда КоллекцияОбъектов.Сумма = - Источник.Сумма; КоллекцияОбъектов.СуммаНУ = - Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = - Источник.СуммаВзаиморасчетов; Иначе КоллекцияОбъектов.Сумма = Источник.Сумма; КоллекцияОбъектов.СуммаНУ = Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.СуммаВзаиморасчетов; КонецЕсли; Если (Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Поставщик) Тогда Если Источник.Валюта = Константа.ВалютаБухУчета Тогда Значение = "60.01"; Иначе Значение = "60.21"; КонецЕсли; Иначе Если Источник.Валюта = Константа.ВалютаБухУчета Тогда Значение = "62.01"; Иначе Значение = "62.21"; КонецЕсли; КонецЕсли; КоллекцияОбъектов.СчетУчетаРасчетов = Значение; КоллекцияОбъектов.КорДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КорСчетУчетаРасчетов = Источник.Счет; КонецЕсли; <Свойство> <Код>34 <Наименование>--> ДоговорКонтрагента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если (Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Поставщик) Тогда ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>35 <Наименование>--> КорДоговорКонтрагента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КорДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Свойство> <Код>36 <Наименование>--> КорСчетУчетаРасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КорСчетУчетаРасчетов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>37 <Наименование>--> КратностьВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>38 <Наименование>--> КурсВзаиморасчетов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование>--> Сделка <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>40 <Наименование>--> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>41 <Наименование>--> СуммаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>42 <Наименование>--> СуммаНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование>--> СчетУчетаРасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Группа> <Код>44 <Наименование>--> КредиторскаяЗадолженность <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КредиторскаяЗадолженность" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Сделка"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНУ"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СчетУчетаРасчетов"); КоллекцияОбъектов.НоваяКолонка("КорДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("КорСчетУчетаРасчетов"); Если ((Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Поставщик) И (Источник.Сумма > 0)) ИЛИ ((Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Покупатель) И (Источник.Сумма > 0)) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КурсВзаиморасчетов = Источник.Курс; КоллекцияОбъектов.КратностьВзаиморасчетов = Источник.Кратность; КоллекцияОбъектов.Сделка = ""; Если Источник.Сумма < 0 Тогда КоллекцияОбъектов.Сумма = - Источник.Сумма; КоллекцияОбъектов.СуммаНУ = - Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = - Источник.СуммаВзаиморасчетов; Иначе КоллекцияОбъектов.Сумма = Источник.Сумма; КоллекцияОбъектов.СуммаНУ = Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.СуммаВзаиморасчетов; КонецЕсли; Если (Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Поставщик) Тогда Если Источник.Валюта = Константа.ВалютаБухУчета Тогда Значение = "60.01"; Иначе Значение = "60.21"; КонецЕсли; Иначе Если Источник.Валюта = Константа.ВалютаБухУчета Тогда Значение = "62.01"; Иначе Значение = "62.21"; КонецЕсли; КонецЕсли; КоллекцияОбъектов.СчетУчетаРасчетов = Значение; КоллекцияОбъектов.КорДоговорКонтрагента = Источник.Договор; КоллекцияОбъектов.КорСчетУчетаРасчетов = Источник.Счет; КонецЕсли; <Свойство> <Код>47 <Наименование>--> ДоговорКонтрагента <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если (Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Поставщик) Тогда ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>48 <Наименование>--> КорДоговорКонтрагента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КорДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Свойство> <Код>49 <Наименование>--> КорСчетУчетаРасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КорСчетУчетаРасчетов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>50 <Наименование>--> КратностьВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>51 <Наименование>--> КурсВзаиморасчетов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>52 <Наименование>--> Сделка <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сделка" Вид="Реквизит"/> <Свойство> <Код>53 <Наименование>--> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>54 <Наименование>--> СуммаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>55 <Наименование>--> СуммаНУ <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>56 <Наименование>--> СчетУчетаРасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчетаРасчетов" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Свойство> <Код>45 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1050 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>46 <Наименование>Проведен --> Проведен <Порядок>1100 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>57 <Наименование>--> ВидАвансаЗадолженности <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидАвансаЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыАвансаЗадолженности"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Покупатель Тогда Если Источник.Сумма > 0 Тогда Значение = ""; Иначе Значение = "ЗадолженностьПокупателя"; КонецЕсли; Иначе Если Источник.Сумма > 0 Тогда Значение = "ЗадолженностьПоставщику"; Иначе Значение = ""; КонецЕсли; КонецЕсли; <Значения/> <Правило> <Код>ОприходованиеТоваров <Наименование>ДокументСсылка.ОприходованиеТМЦ --> ДокументСсылка.ОприходованиеТоваров <Порядок>700 <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ОприходованиеТоваров.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; // Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = Объект.Товары.Итог("Сумма"); <Источник>ДокументСсылка.ОприходованиеТМЦ <Приемник>ДокументСсылка.ОприходованиеТоваров <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>3 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>4 <Наименование>Количество --> Количество <Порядок>300 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>400 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>6 <Наименование>Коэффициент --> Коэффициент <Порядок>500 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Цена --> Цена <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>Сумма --> Сумма <Порядок>700 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>--> НомерГТД <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.ГТД; <Свойство> <Код>14 <Наименование>--> СтранаПроисхождения <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.СтранаПроисхождения; <Свойство Поиск="true"> <Код>18 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>19 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>20 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>21 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование>Склад --> Склад <Порядок>600 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство Отключить="true"> <Код>23 <Наименование>ТипЦен --> ТипЦен <Порядок>700 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>26 <Наименование>--> СтатьяПрочихДоходовРасходов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяПрочихДоходовРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <КодПравилаКонвертации>ПрочиеДоходыИРасходы <ПередВыгрузкой>Значение = СоздатьОбъект("СписокЗначений"); Значение.ДобавитьЗначение("Оприходование товаров (Торговля и склад)", "Наименование"); Значение.ДобавитьЗначение("ПрочиеВнереализационныеДоходыРасходы", "ВидПрочихДоходовИРасходов"); <Свойство> <Код>27 <Наименование>ДокОснование --> ИнвентаризацияТоваровНаСкладе <Порядок>1050 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ИнвентаризацияТоваровНаСкладе" Вид="Реквизит" Тип="ДокументСсылка.ИнвентаризацияТоваровНаСкладе"/> <КодПравилаКонвертации>ИнвентаризацияТоваровНаСкладе <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокОснование)=1 Тогда Отказ = 1; ИначеЕсли (Источник.ДокОснование.Вид() <> "ИнвентаризацияТМЦ") Тогда Отказ = 1; КонецЕсли; <Значения/> <Правило> <Код>ОтчетОРозничныхПродажах <Наименование>ДокументСсылка.ОтчетККМ --> ДокументСсылка.ОтчетОРозничныхПродажах <Порядок>800 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(КоллекцияОбъектов, "Товары"); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Объект.Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; ДанныеОбъекта = Новый Структура("Дата, ВидОперации, Организация, ДеятельностьНаПатенте, Склад, Реализация, АТТПоПродажнойСтоимости"); ЗаполнитьЗначенияСвойств(ДанныеОбъекта, Объект); ДанныеОбъекта.Реализация = Истина; ДанныеОбъекта.АТТПоПродажнойСтоимости = Истина; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ОтчетОРозничныхПродажах.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(ДанныеОбъекта, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; КомиссияПоСтрокамТабличнойЧасти = Параметры.КомиссияПоСтрокамТабличнойЧасти[Ссылка]; Если КомиссияПоСтрокамТабличнойЧасти <> Неопределено Тогда Для каждого Значение из КомиссияПоСтрокамТабличнойЧасти Цикл СтрокаТЧ = Объект.Товары.Получить(Значение.Ключ - 1); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ОтчетОРозничныхПродажах.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(ДанныеОбъекта, СтрокаТЧ, "Товары", СчетаУчета); Если Значение.Значение Тогда Если ЗначениеЗаполнено(СчетаУчета.СчетУчета) Тогда СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); <Источник>ДокументСсылка.ОтчетККМ <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); Если Источник.ОблагаетсяЕНВД = 1 Тогда КоллекцияОбъектов.СтавкаНДС = Перечисление.СтавкиНДС.БезНДС; Иначе КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КонецЕсли; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; Если Источник.ОблагаетсяЕНВД = 1 Тогда КоллекцияОбъектов.СтавкаНДС = Перечисление.СтавкиНДС.БезНДС; Иначе КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КонецЕсли; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); <Свойство> <Код>2 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>Цена --> Цена <Порядок>500 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>700 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>9 <Наименование>СуммаНДС --> СуммаНДС <Порядок>800 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>--> НомерГТД <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>14 <Наименование>--> СтранаПроисхождения <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство Поиск="true"> <Код>15 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>16 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>17 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>18 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>Склад --> Склад <Порядок>600 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>20 <Наименование>Валюта --> ВалютаДокумента <Порядок>700 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>22 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>900 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>23 <Наименование>ТипЦен --> ТипЦен <Порядок>1000 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>24 <Наименование>Курс --> КурсДокумента <Порядок>1100 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Кратность --> КратностьДокумента <Порядок>1200 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>--> ВидОперации <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийОтчетОРозничныхПродажах"/> <ПередВыгрузкой>Значение = "ОтчетККМОПродажах"; <Свойство> <Код>27 <Наименование>--> ДеятельностьНаПатенте <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="ДеятельностьНаПатенте" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = "false"; <Свойство> <Код>28 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>1400 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Значения/> <Правило> <Код>ОтчетКомиссионераОПродажах <Наименование>ДокументСсылка.ОтчетКомиссионера --> ДокументСсылка.ОтчетКомиссионераОПродажах <Порядок>900 <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура); Документы.ОтчетКомиссионераОПродажах.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.УдержатьВознаграждение Тогда Объект.СчетУчетаРасчетовПоАвансамПолученным = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовПоАвансамПолученным = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; Объект.СчетУчетаРасчетовЗаПосредническиеУслуги = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансамВыданным = СчетаУчета.СчетАвансов; Объект.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымУслугам; Объект.СчетУчетаЗатрат = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД; Если УчетнаяПолитика.СистемаНалогообложения(Объект.Организация, Объект.Дата) = Перечисления.СистемыНалогообложения.Упрощенная Тогда Объект.СчетУчетаРасчетовСКонтрагентомУСН = СчетаУчета.СчетРасчетовПокупателяУСН; Объект.СчетУчетаРасчетовПоАвансамПолученнымУСН = СчетаУчета.СчетАвансовПокупателяУСН; Объект.СчетУчетаРасчетовЗаПосредническиеУслугиУСН = СчетаУчета.СчетРасчетовУСН; Объект.СчетУчетаРасчетовПоАвансамВыданнымУСН = СчетаУчета.СчетАвансовУСН; КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); Объект.СуммаВознаграждения = Объект.Товары.Итог("СуммаВознаграждения"); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.ОтчетКомиссионера <Приемник>ДокументСсылка.ОтчетКомиссионераОПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>5 <Наименование>ЮрЛицо --> Организация <Порядок>500 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>6 <Наименование>Комментарий --> Комментарий <Порядок>600 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>700 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>Договор --> ДоговорКонтрагента <Порядок>800 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СКомиссионером", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>9 <Наименование>Валюта --> ВалютаДокумента <Порядок>900 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ТипЦен --> ТипЦен <Порядок>1100 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>12 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1200 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1300 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование>--> КратностьВзаиморасчетов <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>15 <Наименование>--> КурсВзаиморасчетов <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>16 <Наименование>--> СуммаВключаетНДС <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.СуммаВклНДС = 1 Тогда Значение = "true"; Иначе Значение = "false"; КонецЕсли; <Свойство> <Код>17 <Наименование>--> ПроцентКомиссионногоВознаграждения <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентКомиссионногоВознаграждения" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 100; <Свойство> <Код>18 <Наименование>--> СтавкаНДСВознаграждения <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Значение = "НДС18"; <Группа> <Код>19 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1900 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); КоллекцияОбъектов.НоваяКолонка("ЦенаПередачи"); КоллекцияОбъектов.НоваяКолонка("СуммаПередачи"); КоллекцияОбъектов.НоваяКолонка("СуммаВознаграждения"); КоллекцияОбъектов.НоваяКолонка("СуммаНДСВознаграждения"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииОтданные"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС)); КоллекцияОбъектов.ЦенаПередачи = Рег.СуммаРуб / Рег.Количество * Источник.Курс / ?(Источник.Кратность = 0, 1, Источник.Кратность); КоллекцияОбъектов.СуммаПередачи = КоллекцияОбъектов.ЦенаПередачи * КоллекцияОбъектов.Количество; КоллекцияОбъектов.СуммаВознаграждения = КоллекцияОбъектов.Сумма - КоллекцияОбъектов.СуммаПередачи; КоллекцияОбъектов.СуммаНДСВознаграждения = КоллекцияОбъектов.СуммаВознаграждения * глВыделяемыйНДС(Перечисление.СтавкиНДС.НДС18); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, ЦенаПередачи, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС, СуммаПередачи, СуммаВознаграждения, СуммаНДСВознаграждения"); <Свойство> <Код>20 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>21 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>300 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>23 <Наименование>Коэффициент --> Коэффициент <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>Цена --> Цена <Порядок>500 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>700 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>27 <Наименование>СуммаНДС --> СуммаНДС <Порядок>800 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>--> СуммаВознаграждения <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>--> СуммаНДСВознаграждения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДСВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>--> ЦенаПередачи <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаПередачи" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>--> СуммаПередачи <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПередачи" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>--> НомерГТД <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>33 <Наименование>--> СтранаПроисхождения <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство> <Код>34 <Наименование>--> СпособРасчетаКомиссионногоВознаграждения <Порядок>2000 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаКомиссионногоВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <ПередВыгрузкой>Значение = "ПроцентОтРазностиСуммПродажиИПоступления"; <Значения/> <Правило> <Код>ОтчетКомитентуОПродажах <Наименование>ДокументСсылка.ОтчетКомитенту --> ДокументСсылка.ОтчетКомитентуОПродажах <Порядок>1000 <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.УдержатьВознаграждение Тогда Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; ДанныеОбъекта = Новый Структура("Дата, Организация"); ЗаполнитьЗначенияСвойств(ДанныеОбъекта, Объект); СведенияОНоменклатуре = БухгалтерскийУчетПереопределяемый.ПолучитьСведенияОНоменклатуре(Объект.УслугаПоВознаграждению, ДанныеОбъекта); Если СведенияОНоменклатуре <> Неопределено Тогда СчетаПоУслуге = СведенияОНоменклатуре.СчетаУчета; Объект.СчетУчетаНДСПоРеализации = СчетаПоУслуге.СчетУчетаНДСПродажи; Объект.СчетДоходов = СчетаПоУслуге.СчетДоходов; КонецЕсли; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары"); Объект.СуммаВознаграждения = Объект.Товары.Итог("СуммаВознаграждения")+?(Объект.СуммаВключаетНДС,0,Объект.Товары.Итог("СуммаНДСВознаграждения")) <Источник>ДокументСсылка.ОтчетКомитенту <Приемник>ДокументСсылка.ОтчетКомитентуОПродажах <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("ЦенаПоступления"); КоллекцияОбъектов.НоваяКолонка("СуммаПоступления"); КоллекцияОбъектов.НоваяКолонка("СуммаВознаграждения"); КоллекцияОбъектов.НоваяКолонка("СуммаНДСВознаграждения"); Рег = СоздатьОбъект("Регистр.РеализованныйТовар"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Рег.Номенклатура; КоллекцияОбъектов.Количество = Рег.Количество; КоллекцияОбъектов.Единица = Рег.Номенклатура.БазоваяЕдиница; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Цена = Рег.ПродСтоимость / Рег.Количество / ?(Источник.Курс=0, 1, Источник.Курс) * ?(Источник.Кратность=0, 1, Источник.Кратность); КоллекцияОбъектов.Сумма = КоллекцияОбъектов.Цена * КоллекцияОбъектов.Количество; КоллекцияОбъектов.ЦенаПоступления = Рег.Партия.ЗакупочнаяЦена; КоллекцияОбъектов.СуммаПоступления = КоллекцияОбъектов.ЦенаПоступления * КоллекцияОбъектов.Количество; КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СуммаВознаграждения = Рег.Вознаграждение / ?(Источник.Курс=0, 1, Источник.Курс) * ?(Источник.Кратность=0, 1, Источник.Кратность); Если ПустоеЗначение(Источник.СтавкаНДС) = 0 Тогда КоллекцияОбъектов.СуммаНДСВознаграждения = Рег.Вознаграждение * глВыделяемыйНДС(Источник.СтавкаНДС) / ?(Источник.Курс=0, 1, Источник.Курс) * ?(Источник.Кратность=0, 1, Источник.Кратность); Иначе КоллекцияОбъектов.СуммаНДСВознаграждения = 0; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, ЦенаПоступления, НомерГТД, СтранаПроисхождения", "Количество, Сумма, СуммаНДС, СуммаПоступления, СуммаВознаграждения, СуммаНДСВознаграждения"); <Свойство> <Код>2 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>300 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>5 <Наименование>Коэффициент --> Коэффициент <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>Цена --> Цена <Порядок>500 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>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 <Источник Имя="СпособРасчета" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаВознаграждения"/> <Приемник Имя="СпособРасчетаКомиссионногоВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <КодПравилаКонвертации>СпособыРасчетаКомиссионногоВознаграждения <Свойство> <Код>21 <Наименование>Процент --> ПроцентКомиссионногоВознаграждения <Порядок>1000 <Источник Имя="Процент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПроцентКомиссионногоВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>--> СуммаВключаетНДС <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Рег = СоздатьОбъект("Регистр.РеализованныйТовар"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл Если ПустоеЗначение(Рег.Партия) = 0 Тогда Если ПустоеЗначение(Рег.Партия.ПриходныйДокумент) = 0 Тогда ТекПриходПартии = Рег.Партия.ПриходныйДокумент; Если ТекПриходПартии.Вид() = "ПоступлениеТМЦ" Тогда Значение = ТекПриходПартии.СуммаВклНДС; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; <Свойство> <Код>24 <Наименование>--> КурсВзаиморасчетов <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>25 <Наименование>--> КратностьВзаиморасчетов <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство Отключить="true"> <Код>26 <Наименование>--> УслугаПоВознаграждению <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="УслугаПоВознаграждению" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство Отключить="true"> <Код>27 <Наименование>--> УдержатьВознаграждение <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="УдержатьВознаграждение" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>28 <Наименование>СтавкаНДС --> СтавкаНДСВознаграждения <Порядок>1700 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДСВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Значения/> <Правило> <Код>ПеремещениеТоваров <Наименование>ДокументСсылка.ПеремещениеТМЦ --> ДокументСсылка.ПеремещениеОС <Порядок>1100 <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.СкладОтправитель); НовыеСчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.СкладПолучатель); Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета, НовыеСчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.ТоварыНаКомиссии Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.СкладОтправитель); НовыеСчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.СкладПолучатель); Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ТоварыНаКомиссии", СчетаУчета, НовыеСчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.СкладОтправитель); НовыеСчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.СкладПолучатель); Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ВозвратнаяТара", СчетаУчета, НовыеСчетаУчета); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; <Источник>ДокументСсылка.ПеремещениеТМЦ <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Склад --> СкладОтправитель <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>СкладПолучатель --> СкладПолучатель <Порядок>600 <Источник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>7 <Наименование>ТабличнаяЧасть --> Товары <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда Если Рег.Приход = 1 Тогда Продолжить; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; Сч = 1; Пока Сч <= КоллекцияОбъектов.КоличествоСтрок() Цикл КоллекцияОбъектов.ПолучитьСтрокуПоНомеру(Сч); Если КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый Тогда КоллекцияОбъектов.УдалитьСтроку(); Иначе Сч = Сч + 1; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтатусПартии", "Количество"); <Свойство> <Код>8 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>9 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>300 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>11 <Наименование>Коэффициент --> Коэффициент <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>Цена --> Цена <Порядок>500 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Группа> <Код>27 <Наименование>--> ТоварыНаКомиссии <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ТоварыНаКомиссии" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); КоллекцияОбъектов.НоваяКолонка("ЕдиницаИзмерения"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда Если Рег.Приход = 1 Тогда Продолжить; КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.ЕдиницаИзмерения = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; КонецЕсли; КонецЦикла; Сч = 1; Пока Сч <= КоллекцияОбъектов.КоличествоСтрок() Цикл КоллекцияОбъектов.ПолучитьСтрокуПоНомеру(Сч); Если КоллекцияОбъектов.СтатусПартии <> Перечисление.СтатусыПартии.Т_Принятый Тогда КоллекцияОбъектов.УдалитьСтроку(); Иначе Сч = Сч + 1; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, ЕдиницаИзмерения, Коэффициент, Цена, СтатусПартии", "Количество"); <Свойство> <Код>28 <Наименование>--> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>30 <Наименование>--> ЕдиницаИзмерения <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>31 <Наименование>--> Коэффициент <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>--> Количество <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>--> Цена <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование>--> НДСвСтоимостиТоваров <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НДСвСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров"/> <ПередВыгрузкой>Значение = "НеИзменять"; <Значения/> <Правило> <Код>ПереоценкаТоваровВРознице <Наименование>ДокументСсылка.ПереоценкаРозница --> ДокументСсылка.ПереоценкаТоваровВРознице <Порядок>1200 <ПослеЗагрузки>Для каждого Строка Из Объект.Товары Цикл Если Строка.СуммаПереоценки = 0 Тогда Строка.СуммаПереоценки = Строка.Количество * (Строка.ЦенаВРознице - Строка.ЦенаВРозницеСтарая); КонецЕсли; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ПереоценкаРозница <Приемник>ДокументСсылка.ПереоценкаТоваровВРознице <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>4 <Наименование>Единица --> <Порядок>300 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="" Вид=""/> <Свойство Отключить="true"> <Код>5 <Наименование>Коэффициент --> <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <Свойство> <Код>6 <Наименование>ЦенаСтарая --> ЦенаВРозницеСтарая <Порядок>500 <Источник Имя="ЦенаСтарая" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВРозницеСтарая" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>ЦенаНовая --> ЦенаВРознице <Порядок>600 <Источник Имя="ЦенаНовая" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>8 <Наименование>--> СтавкаНДСВРознице <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВРознице" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство Отключить="true"> <Код>9 <Наименование>--> СуммаПереоценки <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПереоценки" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>10 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>11 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>13 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>Склад --> Склад <Порядок>600 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Значения/> <Правило> <Код>ПриходныйКассовыйОрдер <Наименование>ДокументСсылка.ПКО --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>1300 <ПослеЗагрузки>Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; МассивПустыхСтрок = Новый Массив; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РасчетыПоКредитамИЗаймам)Тогда СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПоставщика тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; Если СтрокаПлатеж.СуммаПлатежа = 0 Тогда МассивПустыхСтрок.Добавить(СтрокаПлатеж); КонецЕсли; КонецЕсли; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если Объект.РасшифровкаПлатежа.Количество() = 0 Тогда НоваяСтрока = Объект.РасшифровкаПлатежа.Добавить(); КонецЕсли; Для каждого ПустойПлатеж Из МассивПустыхСтрок Цикл Объект.РасшифровкаПлатежа.Удалить(ПустойПлатеж); КонецЦикла; Если НЕ ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.Контрагент = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.ПКО <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <ПередВыгрузкой>Если (Источник.КодОперации = глКО.РозничнаяВыручка) ИЛИ (Источник.КодОперации = глКО.РозничнаяВыручкаЕНВД) ИЛИ (Источник.КодОперации = глКО.РозничнаяВыручкаЗаПринятые) ИЛИ (Источник.КодОперации = глКО.РозничнаяВыручкаЗаПринятыеЕНВД) Тогда Значение = Источник.Касса; ИмяПКО = "Кассы"; ИначеЕсли Источник.КодОперации = глКО.ВозвратПодотчетныхСумм Тогда Значение = Источник.ФизЛицо; ИмяПКО = "ФизическиеЛица"; Иначе Значение = Источник.Контрагент; ИмяПКО = "Контрагенты"; КонецЕсли; <Свойство> <Код>6 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>600 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>7 <Наименование>ПринятоОт --> ПринятоОт <Порядок>700 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Основание --> Основание <Порядок>800 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>Приложение --> Приложение <Порядок>900 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>НомерЧекаККМ --> НомерЧекаККМ <Порядок>1000 <Источник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Группа> <Код>11 <Наименование>--> РасшифровкаПлатежа <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("ВидДоговора"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); Если (Источник.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика) Тогда Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя Тогда Рег = СоздатьОбъект("Регистр.Покупатели"); ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда Рег = СоздатьОбъект("Регистр.Поставщики"); КонецЕсли; ОбщаяСуммаПлатежа = Источник.Сумма; ОбщаяСуммаПлатежаОстаток = Источник.Сумма; Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда КоллекцияОбъектов.КурсВзаиморасчетов = Источник.Курс; КоллекцияОбъектов.КратностьВзаиморасчетов = Источник.Кратность; Иначе КоллекцияОбъектов.КурсВзаиморасчетов = глКурсДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КоллекцияОбъектов.КратностьВзаиморасчетов = глКратностьДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КонецЕсли; Если КоллекцияОбъектов.КратностьВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КонецЕсли; Если КоллекцияОбъектов.КурсВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КурсВзаиморасчетов = 1; КонецЕсли; Если Источник.Валюта = Константа.ВалютаБухУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Константа.ВалютаУпрУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда СуммаПлатежа = Рег.СуммаВал; Иначе СуммаПлатежа = ОбщаяСуммаПлатежа * Рег.СуммаВал / Источник.СуммаВзаиморасчетов КонецЕсли; Если СуммаПлатежа = 0 Тогда Продолжить; КонецЕсли; ОбщаяСуммаПлатежаОстаток = ОбщаяСуммаПлатежаОстаток - СуммаПлатежа; КоллекцияОбъектов.СуммаПлатежа = СуммаПлатежа; КоллекцияОбъектов.СуммаВзаиморасчетов = глПересчет(СуммаПлатежа, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; ВидДоговора = ""; Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Поставщики.КредДокумент; | Договор = Регистр.Поставщики.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПоставщиком"; КонецЕсли; КонецЕсли; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ВозвратОтПокупателя, Реализация, ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Покупатели.КредДокумент; | Договор = Регистр.Покупатели.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ВозвратОтПокупателя,Реализация,ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПокупателем"; КонецЕсли; КонецЕсли; КонецЕсли; КоллекцияОбъектов.ВидДоговора = ВидДоговора; КонецЦикла; КоллекцияОбъектов.СуммаПлатежа = КоллекцияОбъектов.СуммаПлатежа + ОбщаяСуммаПлатежаОстаток; СуммаВзаиморасчетовОстаток = глПересчет(ОбщаяСуммаПлатежаОстаток, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СуммаВзаиморасчетов = КоллекцияОбъектов.СуммаВзаиморасчетов + СуммаВзаиморасчетовОстаток; ИначеЕсли (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСумм) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСуммВал) Или (Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручка) Или (Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЕНВД) Или (Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЗаПринятые) Или (Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЗаПринятыеЕНВД) Или (Источник.КодОперации = Перечисление.КодыОпераций.Прочее)Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.КурсВзаиморасчетов = глКурсДляВалюты(Источник.Валюта, Источник.ДатаДок); КоллекцияОбъектов.КратностьВзаиморасчетов = глКратностьДляВалюты(Источник.Валюта, Источник.ДатаДок); Если КоллекцияОбъектов.КратностьВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КонецЕсли; Если КоллекцияОбъектов.КурсВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КурсВзаиморасчетов = 1; КонецЕсли; КоллекцияОбъектов.СуммаПлатежа = Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; КоллекцияОбъектов.СтавкаНДС = Источник.СтавкаНДС; Если ПустоеЗначение(Источник.СтавкаНДС) = 0 Тогда КоллекцияОбъектов.СуммаНДС = Источник.Сумма * глВыделяемыйНДС(Источник.СтавкаНДС); КонецЕсли; КонецЕсли; <Свойство> <Код>12 <Наименование>--> ДоговорКонтрагента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>14 <Наименование>--> КурсВзаиморасчетов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>--> СуммаПлатежа <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>--> КратностьВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>--> СуммаВзаиморасчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>--> СтавкаНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>19 <Наименование>--> СуммаНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>25 <Наименование>--> ВидОперации <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя Тогда Значение = "ОплатаПокупателя"; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда Значение = "ВозвратОтПоставщика"; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСумм Тогда Значение = "ВозвратОтПодотчетногоЛица"; ИначеЕсли ((Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручка) или (Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЕНВД) или (Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЗаПринятые) или (Источник.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЗаПринятыеЕНВД)) Тогда Значение = "РозничнаяВыручка"; Иначе Значение = "ПрочийПриход"; КонецЕсли; <Свойство> <Код>26 <Наименование>Сумма --> СуммаДокумента <Порядок>1300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Валюта --> ВалютаДокумента <Порядок>1400 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>28 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>1450 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Свойство> <Код>29 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>1500 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПередВыгрузкой>Если ПустоеЗначение(Источник.СтавкаНДС) = 0 Тогда Отказ = 1; КонецЕсли; <Значения/> <Правило> <Код>ПоступлениеДопРасходов <Наименование>ДокументСсылка.ПоступлениеДопРасходы --> ДокументСсылка.ПоступлениеДопРасходов <Порядок>1400 <ПередВыгрузкой>КлючВыгружаемыхДанных = Источник.НомерДок + Источник.ДатаДок + Источник.НомерСтроки; Источник.ВыбратьСтроки(); СтавкаНДСПред = ""; Пока Источник.ПолучитьСтроку()=1 Цикл Если СтавкаНДСПред = "" Тогда СтавкаНДСПред = Источник.СтавкаНДС; КонецЕсли; Если Источник.СтавкаНДС <> СтавкаНДСПред Тогда Сообщить("Документы ""Поступление (доп. расходы по ТМЦ)"" с разными ставками НДС в табличной части не выгружаются!"); Сообщить("Документ " + Источник + " не выгружен!"); Отказ = 1; Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, , ДанныеОбъекта.Дата); Документы.ПоступлениеДопРасходов.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СуммаНДС = УчетНДСКлиентСервер.РассчитатьСуммуНДС(Объект.Сумма, Объект.СуммаВключаетНДС, УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(Объект.СтавкаНДС)); Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.ПоступлениеДопРасходы <Приемник>ДокументСсылка.ПоступлениеДопРасходов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ДобавитьКПрефиксу(Источник.НомерДок, Источник.НомерСтроки, 8, "Справа"); <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>6 <Наименование>Договор --> ДоговорКонтрагента <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Организация"); ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); <Свойство> <Код>7 <Наименование>Валюта --> ВалютаДокумента <Порядок>700 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>900 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>10 <Наименование>--> КратностьВзаиморасчетов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>11 <Наименование>--> КурсВзаиморасчетов <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>12 <Наименование>--> СпособРаспределения <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРаспределения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРаспределенияДопРасходов"/> <ПередВыгрузкой>Значение = "ПоСумме"; <Группа> <Код>13 <Наименование>--> Товары <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда КоэффПересчета = Источник.Курс * ?(Источник.Кратность= 0, 1, Источник.Кратность); Иначе КоэффПересчета = Источник.Валюта.Курс.Получить(Источник.ДатаДок) * ?(Источник.Валюта.Кратность.Получить(Источник.ДатаДок)= 0, 1, Источник.Валюта.Кратность.Получить(Источник.ДатаДок)); КонецЕсли; Если КоэффПересчета = 0 Тогда КоэффПересчета = 1; КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("ЕдиницаИзмерения"); КоллекцияОбъектов.НоваяКолонка("Коэффициент"); КоллекцияОбъектов.НоваяКолонка("Количество"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаТовара"); КоллекцияОбъектов.НоваяКолонка("ДокументПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение()=1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Рег.Номенклатура; КоллекцияОбъектов.ЕдиницаИзмерения = Рег.Номенклатура.БазоваяЕдиница; КоллекцияОбъектов.Коэффициент = 1; КоллекцияОбъектов.Количество = 1; // а не все ли равно... КоллекцияОбъектов.СуммаТовара = 1; // а не все ли равно... Если (Источник.УчитыватьНДС = 1) И (Источник.СуммаВклНДС = 1) Тогда КоллекцияОбъектов.Сумма = Рег.СуммаРуб / КоэффПересчета; КоллекцияОбъектов.СуммаНДС = (Рег.СуммаРуб - Рег.СуммаБезНДС) / КоэффПересчета; Иначе КоллекцияОбъектов.Сумма = Рег.СуммаБезНДС / КоэффПересчета; КоллекцияОбъектов.СуммаНДС = (Рег.СуммаРуб - Рег.СуммаБезНДС) / КоэффПересчета; КонецЕсли; КоллекцияОбъектов.ДокументПартии = Рег.Партия.ПриходныйДокумент; КонецЦикла; <Свойство> <Код>14 <Наименование>--> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>17 <Наименование>--> Количество <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>--> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>--> СуммаТовара <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаТовара" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>--> Сумма <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>--> ДокументПартии <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументПартии" Вид="Реквизит"/> <Свойство> <Код>22 <Наименование>--> СтавкаНДС <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Источник.ВыбратьСтроки(); Если Источник.ПолучитьСтроку() = 1 Тогда Значение = Источник.СтавкаНДС; КонецЕсли; <Свойство Отключить="true"> <Код>23 <Наименование>--> Сумма <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>--> СуммаДокумента <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>25 <Наименование>--> СуммаНДС <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>--> Содержание <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Источник.ВыбратьСтроки(); ПерваяСтрока = 1; Пока Источник.ПолучитьСтроку() = 1 Цикл Если ПерваяСтрока = 0 Тогда Значение = Значение + "; "; КонецЕсли; ПерваяСтрока = 0; Значение = Значение + СокрЛП(Источник.Содержание); КонецЦикла; <Значения/> <Правило> <Код>ПоступлениеТоваровУслугПрочее <Наименование>ДокументСсылка.ПоступлениеПрочее --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>1500 <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеПрочее <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Услуги <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>20 <Наименование>Количество --> Количество <Порядок>300 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>Цена --> Цена <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>Сумма --> Сумма <Порядок>700 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>800 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>25 <Наименование>СуммаНДС --> СуммаНДС <Порядок>900 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>Содержание --> Содержание <Порядок>1200 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>31 <Наименование>Счет --> СчетЗатрат <Порядок>1300 <Источник Имя="Счет" Вид="Реквизит"/> <Приемник Имя="СчетЗатрат" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = Строка(Источник.Счет); <Свойство> <Код>32 <Наименование>Субконто1 --> Субконто1 <Порядок>1400 <Источник Имя="Субконто1" Вид="Реквизит"/> <Приемник Имя="Субконто1" Вид="Реквизит"/> <Свойство> <Код>33 <Наименование>Субконто2 --> Субконто2 <Порядок>1500 <Источник Имя="Субконто2" Вид="Реквизит"/> <Приемник Имя="Субконто2" Вид="Реквизит"/> <Свойство> <Код>34 <Наименование>Субконто3 --> Субконто3 <Порядок>1600 <Источник Имя="Субконто3" Вид="Реквизит"/> <Приемник Имя="Субконто3" Вид="Реквизит"/> <Свойство> <Код>35 <Наименование>СчетНУ --> СчетЗатратНУ <Порядок>1700 <Источник Имя="СчетНУ" Вид="Реквизит"/> <Приемник Имя="СчетЗатратНУ" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = Строка(Источник.СчетНУ); <Свойство> <Код>36 <Наименование>СубконтоНУ1 --> СубконтоНУ1 <Порядок>1800 <Источник Имя="СубконтоНУ1" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ1" Вид="Реквизит"/> <Свойство> <Код>37 <Наименование>СубконтоНУ2 --> СубконтоНУ2 <Порядок>1900 <Источник Имя="СубконтоНУ2" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ2" Вид="Реквизит"/> <Свойство> <Код>38 <Наименование>СубконтоНУ3 --> СубконтоНУ3 <Порядок>2000 <Источник Имя="СубконтоНУ3" Вид="Реквизит"/> <Приемник Имя="СубконтоНУ3" Вид="Реквизит"/> <Свойство Поиск="true"> <Код>11 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ДобавитьКПрефиксу(Источник.НомерДок, "П", 8, "Справа"); <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>29 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>9 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>Контрагент --> Контрагент <Порядок>700 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>Договор --> ДоговорКонтрагента <Порядок>800 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>5 <Наименование>Валюта --> ВалютаДокумента <Порядок>900 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>14 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>12 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1300 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1400 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>1 <Наименование>--> ВидОперации <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>2 <Наименование>--> КратностьВзаиморасчетов <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>3 <Наименование>--> КурсВзаиморасчетов <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Значения/> <Правило> <Код>ПоступлениеТоваровУслуг <Наименование>ДокументСсылка.ПоступлениеТМЦ --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>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 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>28 <Наименование>--> КурсВзаиморасчетов <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Значения/> <Правило> <Код>ПоступлениеТоваровУслугРозница <Наименование>ДокументСсылка.ПоступлениеТМЦРозница --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>1600 <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; ЭтоКомиссия = Ложь; Если ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда ЭтоКомиссия = Истина; КонецЕсли; КонецЕсли; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ВозвратнаяТара", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.Услуги Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Услуги", СчетаУчета); КонецЦикла; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество ; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеТМЦРозница <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Номер <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ДобавитьКПрефиксу(Источник.НомерДок, "Р", 8, "Справа"); <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Склад --> Склад <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>600 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>7 <Наименование>Договор --> ДоговорКонтрагента <Порядок>700 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ПриемНаРеализациюРозница Тогда ИсходящиеДанные.ДобавитьЗначение("СКомитентом", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>8 <Наименование>Валюта --> ВалютаДокумента <Порядок>800 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>ТипЦен --> ТипЦен <Порядок>1000 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>11 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1100 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1200 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование>--> ВидОперации <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>14 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>1400 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>15 <Наименование>--> КратностьВзаиморасчетов <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>16 <Наименование>--> КурсВзаиморасчетов <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Группа> <Код>17 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>18 <Наименование>ВидТМЦ --> <Порядок>100 <Источник Имя="ВидТМЦ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыТМЦ"/> <Приемник Имя="" Вид=""/> <Свойство> <Код>19 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>20 <Наименование>Количество --> Количество <Порядок>300 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>400 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>22 <Наименование>Коэффициент --> Коэффициент <Порядок>500 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>Цена --> Цена <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>РозничнаяЦена --> ЦенаВРознице <Порядок>700 <Источник Имя="РозничнаяЦена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Сумма --> Сумма <Порядок>800 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>900 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>27 <Наименование>СуммаНДС --> СуммаНДС <Порядок>1000 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>--> НомерГТД <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.ГТД; <Свойство> <Код>29 <Наименование>--> СтранаПроисхождения <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.СтранаПроисхождения; <Свойство> <Код>30 <Наименование>РозничнаяЦена --> ЦенаВРознице <Порядок>1250 <Источник Имя="РозничнаяЦена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВРознице" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>РеализацияТоваровУслуг <Наименование>ДокументСсылка.Реализация --> ДокументСсылка.РеализацияТоваровУслуг <Порядок>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 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование>--> НомерГТД <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>11 <Наименование>--> СтранаПроисхождения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство Поиск="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 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Группа> <Код>28 <Наименование>--> Услуги <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(КоллекцияОбъектов); КоллекцияОбъектов.НоваяКолонка("Содержание"); Сч = 1; Пока Сч <= КоллекцияОбъектов.КоличествоСтрок() Цикл КоллекцияОбъектов.ПолучитьСтрокуПоНомеру(Сч); Если (КоллекцияОбъектов.Номенклатура.ВидНоменклатуры <> Перечисление.ВидыНоменклатуры.Услуга) И (КоллекцияОбъектов.Номенклатура.ВидНоменклатуры <> Перечисление.ВидыНоменклатуры.Работа) Тогда КоллекцияОбъектов.УдалитьСтроку(); Иначе КоллекцияОбъектов.Содержание = КоллекцияОбъектов.Номенклатура.Наименование; Сч = Сч + 1; КонецЕсли; КонецЦикла; <Свойство> <Код>29 <Наименование>--> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>--> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>--> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>--> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>--> СтавкаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>34 <Наименование>--> СуммаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>--> Номенклатура <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Значения/> <Правило> <Код>РеализацияТоваровУслугПрочее <Наименование>ДокументСсылка.РеализацияПрочее --> ДокументСсылка.РеализацияТоваровУслуг <Порядок>1800 <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Услуги"); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; <Источник>ДокументСсылка.РеализацияПрочее <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Услуги <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>3 <Наименование>Цена --> Цена <Порядок>200 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>400 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>6 <Наименование>СуммаНДС --> СуммаНДС <Порядок>500 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>Содержание --> Содержание <Порядок>1200 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>13 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>14 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>15 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>16 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>Контрагент --> Контрагент <Порядок>700 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>19 <Наименование>Договор --> ДоговорКонтрагента <Порядок>800 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>20 <Наименование>Валюта --> ВалютаДокумента <Порядок>900 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>22 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>1100 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>23 <Наименование>--> ВидОперации <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияТоваров"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>24 <Наименование>--> КурсВзаиморасчетов <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>25 <Наименование>--> КратностьВзаиморасчетов <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Значения/> <Правило> <Код>РеализацияРозница <Наименование>ДокументСсылка.РеализацияРозница --> ДокументСсылка.РеализацияУслугПоПереработке <Порядок>1900 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Объект.Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>ЭтоКомиссия = Ложь; Если ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда ЭтоКомиссия = Истина; КонецЕсли; КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Параметры.КомиссияПоСтрокамТабличнойЧасти[Ссылка]; Если КомиссияПоСтрокамТабличнойЧасти <> Неопределено Тогда Для каждого Значение из КомиссияПоСтрокамТабличнойЧасти Цикл СтрокаТЧ = Объект.Товары.Получить(Значение.Ключ - 1); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура); Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); Если Значение.Значение Тогда Если ЗначениеЗаполнено(СчетаУчета.СчетУчета) Тогда СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; Если ЗначениеЗаполнено(СчетаУчета.СчетПередачи) Тогда СтрокаТЧ.ПереданныеСчетУчета = СчетаУчета.СчетПередачи; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя; КонецЕсли; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ВозвратнаяТара", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.Услуги Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Услуги", СчетаУчета); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Товары") + УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект, "Услуги"); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Если Объект.Склад.ТипСклада = Перечисления.ТипыСкладов.ОптовыйСклад Тогда Сообщить("Загружен документ розничной реализации с оптового склада! Необходимо передать товары в розницу вручную!", СтатусСообщения.Важное); Сообщить("" + Объект.Ссылка); КонецЕсли; <Источник>ДокументСсылка.РеализацияРозница <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ДобавитьКПрефиксу(Источник.НомерДок, "Р", 8, "Справа"); <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>6 <Наименование>Договор --> ДоговорКонтрагента <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>7 <Наименование>Валюта --> ВалютаДокумента <Порядок>700 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>900 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство Отключить="true"> <Код>10 <Наименование>ТипЦен --> ТипЦен <Порядок>1000 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>11 <Наименование>--> КратностьВзаиморасчетов <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>12 <Наименование>--> КурсВзаиморасчетов <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Группа> <Код>13 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1300 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.СуммаНДС, ?(Источник.СуммаВклНДС=1, КоллекцияОбъектов.Сумма * глВыделяемыйНДС(КоллекцияОбъектов.СтавкаНДС), КоллекцияОбъектов.Сумма * глНачисляемыйНДС(КоллекцияОбъектов.СтавкаНДС))); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; ТабДокумента.СуммаНДС = ТабДокумента.СуммаНДС - КоллекцияОбъектов.СуммаНДС; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.СтавкаНДС = ТабДокумента.СтавкаНДС; КоллекцияОбъектов.СуммаНДС = ТабДокумента.СуммаНДС; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, СтавкаНДС, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма, СуммаНДС"); <Свойство> <Код>14 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>15 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>300 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>17 <Наименование>Коэффициент --> Коэффициент <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>Цена --> Цена <Порядок>500 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>700 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>21 <Наименование>СуммаНДС --> СуммаНДС <Порядок>800 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>--> НомерГТД <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>28 <Наименование>--> СтранаПроисхождения <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство> <Код>42 <Наименование>Склад --> Склад <Порядок>1400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>43 <Наименование>ВидОперации --> ВидОперации <Порядок>1500 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияРозница"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияТоваров"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Группа> <Код>46 <Наименование>--> Услуги <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(КоллекцияОбъектов); КоллекцияОбъектов.НоваяКолонка("Содержание"); Сч = 1; Пока Сч <= КоллекцияОбъектов.КоличествоСтрок() Цикл КоллекцияОбъектов.ПолучитьСтрокуПоНомеру(Сч); Если (КоллекцияОбъектов.Номенклатура.ВидНоменклатуры <> Перечисление.ВидыНоменклатуры.Услуга) И (КоллекцияОбъектов.Номенклатура.ВидНоменклатуры <> Перечисление.ВидыНоменклатуры.Работа) Тогда КоллекцияОбъектов.УдалитьСтроку(); Иначе КоллекцияОбъектов.Содержание = КоллекцияОбъектов.Номенклатура.Наименование; Сч = Сч + 1; КонецЕсли; КонецЦикла; <Свойство> <Код>47 <Наименование>--> Содержание <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>48 <Наименование>--> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>49 <Наименование>--> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>50 <Наименование>--> Сумма <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>51 <Наименование>--> СтавкаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>52 <Наименование>--> СуммаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>53 <Наименование>--> Номенклатура <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Значения/> <Правило> <Код>РасходныйКассовыйОрдер <Наименование>ДокументСсылка.РКО --> ДокументСсылка.РасходныйКассовыйОрдер <Порядок>2000 <ПослеЗагрузки>Если Объект.РасшифровкаПлатежа.Количество() = 0 Тогда СтрокаПлатежа = Объект.РасшифровкаПлатежа.Добавить(); СтрокаПлатежа.СуммаПлатежа = Объект.СуммаДокумента; КонецЕсли; Объект.НомерЧекаККМ = 0; Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; МассивПустыхСтрок = Новый Массив; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийРКО.РасчетыПоКредитамИЗаймам)Тогда СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе Если СтрокаПлатеж.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; ИначеЕсли СтрокаПлатеж.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПокупателямиИЗаказчиками; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; Если СтрокаПлатеж.СуммаПлатежа = 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 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>700 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Свойство> <Код>25 <Наименование>Счет --> СчетКасса <Порядок>750 <Источник Имя="Счет" Вид="Реквизит"/> <Приемник Имя="СчетКасса" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <Группа> <Код>14 <Наименование>--> РасшифровкаПлатежа <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("ВидДоговора"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); Если (Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю) Тогда Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда Рег = СоздатьОбъект("Регистр.Поставщики"); ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Рег = СоздатьОбъект("Регистр.Покупатели"); КонецЕсли; ОбщаяСуммаПлатежа = Источник.Сумма; ОбщаяСуммаПлатежаОстаток = Источник.Сумма; Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда КоллекцияОбъектов.КурсВзаиморасчетов = Источник.Курс; КоллекцияОбъектов.КратностьВзаиморасчетов = Источник.Кратность; Иначе КоллекцияОбъектов.КурсВзаиморасчетов = глКурсДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КоллекцияОбъектов.КратностьВзаиморасчетов = глКратностьДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КонецЕсли; Если КоллекцияОбъектов.КратностьВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КонецЕсли; Если КоллекцияОбъектов.КурсВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КурсВзаиморасчетов = 1; КонецЕсли; Если Источник.Валюта = Константа.ВалютаБухУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Константа.ВалютаУпрУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда СуммаПлатежа = Рег.СуммаВал; Иначе СуммаПлатежа = ОбщаяСуммаПлатежа * Рег.СуммаВал / Источник.СуммаВзаиморасчетов КонецЕсли; Если СуммаПлатежа = 0 Тогда Продолжить; КонецЕсли; ОбщаяСуммаПлатежаОстаток = ОбщаяСуммаПлатежаОстаток - СуммаПлатежа; КоллекцияОбъектов.СуммаПлатежа = СуммаПлатежа; КоллекцияОбъектов.СуммаВзаиморасчетов = глПересчет(СуммаПлатежа, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; ВидДоговора = ""; Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Поставщики.КредДокумент; | Договор = Регистр.Поставщики.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПоставщиком"; КонецЕсли; КонецЕсли; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ВозвратОтПокупателя, Реализация, ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Покупатели.КредДокумент; | Договор = Регистр.Покупатели.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ВозвратОтПокупателя,Реализация,ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПокупателем"; КонецЕсли; КонецЕсли; КонецЕсли; КоллекцияОбъектов.ВидДоговора = ВидДоговора; КонецЦикла; КоллекцияОбъектов.СуммаПлатежа = КоллекцияОбъектов.СуммаПлатежа + ОбщаяСуммаПлатежаОстаток; СуммаВзаиморасчетовОстаток = глПересчет(ОбщаяСуммаПлатежаОстаток, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СуммаВзаиморасчетов = КоллекцияОбъектов.СуммаВзаиморасчетов + СуммаВзаиморасчетовОстаток; КонецЕсли; <Свойство> <Код>15 <Наименование>--> ДоговорКонтрагента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>16 <Наименование>--> КурсВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>--> СуммаПлатежа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>--> КратностьВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>--> СуммаВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>--> СтавкаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>21 <Наименование>--> СуммаНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Свойство> <Код>23 <Наименование>--> ВидОперации <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда Значение = "ОплатаПоставщику"; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Значение = "ВозвратПокупателю"; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВыдачаПодотчет Тогда Значение = "ВыдачаПодотчетномуЛицу"; Иначе Значение = "ПрочийРасход"; КонецЕсли; <Значения/> <Правило> <Код>СписаниеТоваров <Наименование>ДокументСсылка.СписаниеТМЦ --> ДокументСсылка.СписаниеТоваров <Порядок>2100 <ПриВыгрузке>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; КонецЕсли; КонецЦикла; ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма"); УзелКомиссияПоСтрокамТабличнойЧасти = DOMDocument.createNode(1, "КомиссияПоСтрокамТабличнойЧасти", ""); НомерСтроки = 0; КоллекцияОбъектов.ВыбратьСтроки(); Пока КоллекцияОбъектов.ПолучитьСтроку() = 1 Цикл НомерСтроки = НомерСтроки + 1; УзелСтрока = DOMDocument.createNode(1, "Строка", ""); УзелСтрока.setAttribute("НомерСтроки", НомерСтроки); УзелСтрока.text = ?(КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Принятый, 1, 0); УзелКомиссияПоСтрокамТабличнойЧасти.appendChild(УзелСтрока); КонецЦикла; Приемник.appendChild(УзелКомиссияПоСтрокамТабличнойЧасти); <ПриЗагрузке>Если НЕ Параметры.Свойство("КомиссияПоСтрокамТабличнойЧасти") Тогда Параметры.Вставить("КомиссияПоСтрокамТабличнойЧасти", Новый Соответствие); КонецЕсли; КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если ИмяУзла = "Строка" Тогда КомиссияПоСтрокамТабличнойЧасти.Вставить(одАтрибут(ФайлОбмена, одТипЧисло, "НомерСтроки"), одЗначениеЭлемента(ФайлОбмена, Тип("Булево"))); ИначеЕсли (ИмяУзла = "КомиссияПоСтрокамТабличнойЧасти") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Параметры.КомиссияПоСтрокамТабличнойЧасти = Новый Соответствие; Параметры.КомиссияПоСтрокамТабличнойЧасти.Вставить(Объект.Ссылка, КомиссияПоСтрокамТабличнойЧасти); Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.СписаниеТоваров.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ВозвратнаяТара", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.Товары Цикл Если НЕ ЗначениеЗаполнено(СтрокаТЧ.СчетУчета) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.СписаниеТоваров.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЕсли; КонецЦикла; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Объект.СуммаДокумента = Объект.Товары.Итог("Сумма"); <Источник>ДокументСсылка.СписаниеТМЦ <Приемник>ДокументСсылка.СписаниеТоваров <Свойства> <Группа> <Код>1 <Наименование>ТабличнаяЧасть --> Товары <Порядок>100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокумента = СоздатьОбъект("ТаблицаЗначений"); ТабПартий = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(ТабДокумента); ТабДокумента.Выгрузить(КоллекцияОбъектов); КоллекцияОбъектов.УдалитьСтроки(); КоллекцияОбъектов.НоваяКолонка("НомерГТД"); КоллекцияОбъектов.НоваяКолонка("СтранаПроисхождения"); КоллекцияОбъектов.НоваяКолонка("СтатусПартии"); ТабПартий.НоваяКолонка("Номенклатура"); ТабПартий.НоваяКолонка("Количество"); ТабПартий.НоваяКолонка("НомерСтр"); ТабПартий.НоваяКолонка("ГТД"); ТабПартий.НоваяКолонка("СтранаПроисхождения"); ТабПартий.НоваяКолонка("СтатусПартии"); Рег = СоздатьОбъект("Регистр.ПартииНаличие"); Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл ТабДокумента.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Если (Рег.Количество > 0) И (ТабДокумента.Количество > 0) Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = Мин(ТабДокумента.Количество, Рег.Количество); КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ?(ТабДокумента.Количество = КоллекцияОбъектов.Количество, ТабДокумента.Сумма, ТабДокумента.Цена * КоллекцияОбъектов.Количество); КоллекцияОбъектов.НомерГТД = Рег.Партия.ГТД; КоллекцияОбъектов.СтранаПроисхождения = Рег.Партия.СтранаПроисхождения; КоллекцияОбъектов.СтатусПартии = Рег.СтатусПартии; ТабДокумента.Количество = ТабДокумента.Количество - КоллекцияОбъектов.Количество; ТабДокумента.Сумма = ТабДокумента.Сумма - КоллекцияОбъектов.Сумма; КонецЕсли; КонецЦикла; // Даже, если движения по партиям по каким-то причинам отсутствуют все равно выгружаем остатки количства по строкам ТабДокумента.ВыбратьСтроки(); Пока ТабДокумента.ПолучитьСтроку() = 1 Цикл Если (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга) ИЛИ (ТабДокумента.Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда Продолжить; КонецЕсли; Если ТабДокумента.Количество > 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = ТабДокумента.Номенклатура; КоллекцияОбъектов.Количество = ТабДокумента.Количество; КоллекцияОбъектов.Единица = ТабДокумента.Единица; КоллекцияОбъектов.Коэффициент = ТабДокумента.Коэффициент; КоллекцияОбъектов.Цена = ТабДокумента.Цена; КоллекцияОбъектов.Сумма = ТабДокумента.Сумма; КоллекцияОбъектов.НомерГТД = ""; КоллекцияОбъектов.СтранаПроисхождения = ""; КоллекцияОбъектов.СтатусПартии = Перечисление.СтатусыПартии.Т_Купленный; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("Номенклатура, Единица, Коэффициент, Цена, НомерГТД, СтранаПроисхождения, СтатусПартии", "Количество, Сумма"); <Свойство> <Код>2 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>300 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>5 <Наименование>Коэффициент --> Коэффициент <Порядок>400 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>Цена --> Цена <Порядок>500 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Сумма --> Сумма <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>--> НомерГТД <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Свойство> <Код>10 <Наименование>--> СтранаПроисхождения <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>200 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>12 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Склад --> Склад <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство Поиск="true"> <Код>14 <Наименование>ДатаДок --> Дата <Порядок>500 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>15 <Наименование>НомерДок --> Номер <Порядок>600 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>16 <Наименование>ДокОснование --> ИнвентаризацияТоваровНаСкладе <Порядок>650 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ИнвентаризацияТоваровНаСкладе" Вид="Реквизит" Тип="ДокументСсылка.ИнвентаризацияТоваровНаСкладе"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокОснование)=1 Тогда Отказ = 1; ИначеЕсли (Источник.ДокОснование.Вид() <> "ИнвентаризацияТМЦ") Тогда Отказ = 1; КонецЕсли; <Значения/> <Правило> <Код>ПлатежноеПоручениеВходящее <Наименование>ДокументСсылка.СтрокаВыпискиПриход --> ДокументСсылка.ПлатежноеПоручениеВходящее <Порядок>2200 <ПослеЗагрузки>Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетБанк = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Объект.СчетБанк = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; МассивПустыхСтрок = Новый Массив; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; Если СтрокаПлатеж.СуммаПлатежа = 0 Тогда МассивПустыхСтрок.Добавить(СтрокаПлатеж); КонецЕсли; КонецЕсли; КонецЦикла; Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если Объект.РасшифровкаПлатежа.Количество() = 0 Тогда НоваяСтрока = Объект.РасшифровкаПлатежа.Добавить(); КонецЕсли; Для каждого ПустойПлатеж Из МассивПустыхСтрок Цикл Объект.РасшифровкаПлатежа.Удалить(ПустойПлатеж); КонецЦикла; Если НЕ ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.Контрагент = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.СтрокаВыпискиПриход <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>6 <Наименование>Договор --> ДоговорКонтрагента <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>7 <Наименование>Валюта --> ВалютаДокумента <Порядок>700 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Группа> <Код>8 <Наименование>--> РасшифровкаПлатежа <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("ВидДоговора"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); Если (Источник.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика) Тогда Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя Тогда Рег = СоздатьОбъект("Регистр.Покупатели"); ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда Рег = СоздатьОбъект("Регистр.Поставщики"); КонецЕсли; ОбщаяСуммаПлатежа = Источник.Сумма; ОбщаяСуммаПлатежаОстаток = Источник.Сумма; Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда КоллекцияОбъектов.КурсВзаиморасчетов = Источник.Курс; КоллекцияОбъектов.КратностьВзаиморасчетов = Источник.Кратность; Иначе КоллекцияОбъектов.КурсВзаиморасчетов = глКурсДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КоллекцияОбъектов.КратностьВзаиморасчетов = глКратностьДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КонецЕсли; Если КоллекцияОбъектов.КратностьВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КонецЕсли; Если КоллекцияОбъектов.КурсВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КурсВзаиморасчетов = 1; КонецЕсли; Если Источник.Валюта = Константа.ВалютаБухУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Константа.ВалютаУпрУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда СуммаПлатежа = Рег.СуммаВал; Иначе СуммаПлатежа = ОбщаяСуммаПлатежа * Рег.СуммаВал / Источник.СуммаВзаиморасчетов КонецЕсли; Если СуммаПлатежа = 0 Тогда Продолжить; КонецЕсли; ОбщаяСуммаПлатежаОстаток = ОбщаяСуммаПлатежаОстаток - СуммаПлатежа; КоллекцияОбъектов.СуммаПлатежа = СуммаПлатежа; КоллекцияОбъектов.СуммаВзаиморасчетов = глПересчет(СуммаПлатежа, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; ВидДоговора = ""; Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Поставщики.КредДокумент; | Договор = Регистр.Поставщики.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПоставщиком"; КонецЕсли; КонецЕсли; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ВозвратОтПокупателя, Реализация, ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Покупатели.КредДокумент; | Договор = Регистр.Покупатели.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ВозвратОтПокупателя,Реализация,ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПокупателем"; КонецЕсли; КонецЕсли; КонецЕсли; КоллекцияОбъектов.ВидДоговора = ВидДоговора; КонецЦикла; КоллекцияОбъектов.СуммаПлатежа = КоллекцияОбъектов.СуммаПлатежа + ОбщаяСуммаПлатежаОстаток; СуммаВзаиморасчетовОстаток = глПересчет(ОбщаяСуммаПлатежаОстаток, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СуммаВзаиморасчетов = КоллекцияОбъектов.СуммаВзаиморасчетов + СуммаВзаиморасчетовОстаток; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.Прочее Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.КурсВзаиморасчетов = глКурсДляВалюты(Источник.Валюта, Источник.ДатаДок); КоллекцияОбъектов.КратностьВзаиморасчетов = глКратностьДляВалюты(Источник.Валюта, Источник.ДатаДок); Если КоллекцияОбъектов.КратностьВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КонецЕсли; Если КоллекцияОбъектов.КурсВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КурсВзаиморасчетов = 1; КонецЕсли; КоллекцияОбъектов.СуммаПлатежа = Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; КонецЕсли; <Свойство> <Код>9 <Наименование>--> ДоговорКонтрагента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>10 <Наименование>--> КурсВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> СуммаПлатежа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>--> КурсВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>--> СуммаВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>--> СтавкаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>15 <Наименование>--> СуммаНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Свойство> <Код>25 <Наименование>--> КратностьВзаиморасчетов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>17 <Наименование>--> ВидОперации <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеДенежныхСредств"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя Тогда Значение = "ОплатаПокупателя"; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда Значение = "ВозвратОтПоставщика"; Иначе Значение = "ПрочееПоступление"; КонецЕсли; <Свойство> <Код>19 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>1100 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредствСправочник <Свойство> <Код>20 <Наименование>ДатаДок --> ДатаВходящегоДокумента <Порядок>1200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>21 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>1300 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>22 <Наименование>Сумма --> СуммаДокумента <Порядок>1400 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>24 <Наименование>Проведен --> Проведен <Порядок>1500 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ПлатежныйОрдерСписаниеДенежныхСредств <Наименование>ДокументСсылка.СтрокаВыпискиРасход --> ДокументСсылка.ПлатежныйОрдерСписаниеДенежныхСредств <Порядок>2300 <ПослеЗагрузки>Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетБанк = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Объект.СчетБанк = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; МассивПустыхСтрок = Новый Массив; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если СтрокаПлатеж.СуммаПлатежа = 0 Тогда МассивПустыхСтрок.Добавить(СтрокаПлатеж); КонецЕсли; Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; Если СтрокаПлатеж.КурсВзаиморасчетов = 0 Тогда СтрокаПлатеж.КурсВзаиморасчетов =1; КонецЕсли; КонецЕсли; КонецЦикла; Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Для каждого ПустойПлатеж Из МассивПустыхСтрок Цикл Объект.РасшифровкаПлатежа.Удалить(ПустойПлатеж); КонецЦикла; Если НЕ ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.Контрагент = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.СтрокаВыпискиРасход <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>6 <Наименование>Договор --> ДоговорКонтрагента <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Организация"); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); КонецЕсли; <Свойство> <Код>7 <Наименование>Валюта --> ВалютаДокумента <Порядок>700 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Группа> <Код>8 <Наименование>--> РасшифровкаПлатежа <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДоговорКонтрагента"); КоллекцияОбъектов.НоваяКолонка("ВидДоговора"); КоллекцияОбъектов.НоваяКолонка("КурсВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("КратностьВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("СтавкаНДС"); КоллекцияОбъектов.НоваяКолонка("СуммаНДС"); КоллекцияОбъектов.НоваяКолонка("СтатьяДвиженияДенежныхСредств"); Если (Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю) Тогда Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда Рег = СоздатьОбъект("Регистр.Поставщики"); ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Рег = СоздатьОбъект("Регистр.Покупатели"); КонецЕсли; ОбщаяСуммаПлатежа = Источник.Сумма; ОбщаяСуммаПлатежаОстаток = Источник.Сумма; Рег.ВыбратьДвиженияДокумента(Источник); Пока Рег.ПолучитьДвижение() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.ДоговорКонтрагента = Источник.Договор; Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда КоллекцияОбъектов.КурсВзаиморасчетов = Источник.Курс; КоллекцияОбъектов.КратностьВзаиморасчетов = Источник.Кратность; Иначе КоллекцияОбъектов.КурсВзаиморасчетов = глКурсДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КоллекцияОбъектов.КратностьВзаиморасчетов = глКратностьДляВалюты(Источник.Договор.ВалютаВзаиморасчетов, Источник.ДатаДок); КонецЕсли; Если КоллекцияОбъектов.КурсВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КурсВзаиморасчетов = 1; КонецЕсли; Если КоллекцияОбъектов.КратностьВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КонецЕсли; Если Источник.Валюта = Константа.ВалютаБухУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Константа.ВалютаУпрУчета Тогда СуммаПлатежа = Рег.СуммаУпр; ИначеЕсли Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда СуммаПлатежа = Рег.СуммаВал; Иначе СуммаПлатежа = Рег.ОбщаяСуммаПлатежа * (Рег.СуммаВал / Источник.СуммаВзаиморасчетов) КонецЕсли; Если СуммаПлатежа = 0 Тогда Продолжить; КонецЕсли; ОбщаяСуммаПлатежаОстаток = ОбщаяСуммаПлатежаОстаток - СуммаПлатежа; КоллекцияОбъектов.СуммаПлатежа = СуммаПлатежа; КоллекцияОбъектов.СуммаВзаиморасчетов = глПересчет(СуммаПлатежа, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; ВидДоговора = ""; Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Поставщики.КредДокумент; | Договор = Регистр.Поставщики.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомитенту" Тогда ВидДоговора = "СКомитентом"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ПоступлениеТМЦ,ПоступлениеТМЦРозница,ПоступлениеТМЦИмпорт,ВозвратПоставщику, |ВводОстатковПоставщика,ПоступлениеДопРасходы, ПоступлениеПрочее") > 0 Тогда ВидДоговора = "СПоставщиком"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПоставщиком"; КонецЕсли; КонецЕсли; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Если Рег.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; ИначеЕсли Найти(Рег.КредДокумент.Вид(), "ВозвратОтПокупателя, Реализация, ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Иначе ТекДоговор = Источник.Договор; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " | КредДокумент = Регистр.Покупатели.КредДокумент; | Договор = Регистр.Покупатели.Договор; | Группировка КредДокумент; | Условие(Договор = ТекДоговор); |"; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.КредДокумент.Вид() = "ОтчетКомиссионера" Тогда ВидДоговора = "СКомиссионером"; Прервать; ИначеЕсли Найти(Запрос.КредДокумент.Вид(), "ВозвратОтПокупателя,Реализация,ВводОстатковПокупателя") > 0 Тогда ВидДоговора = "СПокупателем"; Прервать; КонецЕсли; КонецЦикла; Если ВидДоговора = "" Тогда ВидДоговора = "СПокупателем"; КонецЕсли; КонецЕсли; КонецЕсли; КоллекцияОбъектов.ВидДоговора = ВидДоговора; КонецЦикла; КоллекцияОбъектов.СуммаПлатежа = КоллекцияОбъектов.СуммаПлатежа + ОбщаяСуммаПлатежаОстаток; СуммаВзаиморасчетовОстаток = глПересчет(ОбщаяСуммаПлатежаОстаток, Источник.Валюта, Источник.Курс, Источник.Договор.ВалютаВзаиморасчетов, КоллекцияОбъектов.КурсВзаиморасчетов, Источник.Кратность, КоллекцияОбъектов.КратностьВзаиморасчетов); КоллекцияОбъектов.СуммаВзаиморасчетов = КоллекцияОбъектов.СуммаВзаиморасчетов + СуммаВзаиморасчетовОстаток; ИначеЕсли (Источник.КодОперации = Перечисление.КодыОпераций.Прочее)Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.КурсВзаиморасчетов = глКурсДляВалюты(Источник.Валюта, Источник.ДатаДок); КоллекцияОбъектов.КратностьВзаиморасчетов = глКратностьДляВалюты(Источник.Валюта, Источник.ДатаДок); Если КоллекцияОбъектов.КратностьВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КратностьВзаиморасчетов = 1; КонецЕсли; Если КоллекцияОбъектов.КурсВзаиморасчетов = 0 Тогда КоллекцияОбъектов.КурсВзаиморасчетов = 1; КонецЕсли; КоллекцияОбъектов.СуммаПлатежа = Источник.Сумма; КоллекцияОбъектов.СуммаВзаиморасчетов = Источник.Сумма; КоллекцияОбъектов.СтатьяДвиженияДенежныхСредств = Источник.ДвижениеДенежныхСредств; КонецЕсли; <Свойство> <Код>9 <Наименование>--> ДоговорКонтрагента <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Организация"); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); Иначе ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); КонецЕсли; <Свойство> <Код>10 <Наименование>--> КурсВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> СуммаПлатежа <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>--> КратностьВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>--> СуммаВзаиморасчетов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>--> СтавкаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>15 <Наименование>--> СуммаНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Свойство> <Код>21 <Наименование>--> КратностьВзаиморасчетов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>17 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>900 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>18 <Наименование>--> СчетКонтрагента <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Свойство> <Код>19 <Наименование>Сумма --> СуммаДокумента <Порядок>1100 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>--> ВидОперации <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда Значение = "ОплатаПоставщику"; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда Значение = "ВозвратПокупателю"; Иначе Значение = "ПрочееСписание"; КонецЕсли; <Значения/> <Правило> <Код>СчетФактураВыданный <Наименование>ДокументСсылка.СчетФактураВыданный --> ДокументСсылка.СчетФактураВыданный <Порядок>2400 <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокОснование)=1 Тогда Отказ = 1; ИначеЕсли (Источник.ДокОснование.Вид() = "РеализацияПрочее") Или (Источник.ДокОснование.Вид() = "ЗакрытиеМесяца") Или (Источник.ДокОснование.Вид() = "КорректировкаДолга") Или (Источник.ДокОснование.Вид() = "ВводОстатковПокупателя") Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если Объект.КодВидаОперации = "" Тогда Объект.КодВидаОперации = "01"; КонецЕсли; Если ЗначениеЗаполнено(Объект.ДокументОснование) Тогда НеНашлиДокументОснование = Истина; Для каждого ДокументОснование из Объект.ДокументыОснования Цикл Если ДокументОснование.ДокументОснование = Объект.ДокументОснование Тогда НеНашлиДокументОснование = Ложь; Прервать; КонецЕсли; КонецЦикла; Если НеНашлиДокументОснование Тогда НовыйДокументОснование = Объект.ДокументыОснования.Добавить(); НовыйДокументОснование.ДокументОснование = Объект.ДокументОснование; КонецЕсли; Если ТипЗнч(Объект.ДокументОснование) = Тип("ДокументСсылка.КорректировкаДолга") Тогда Объект.Контрагент = Неопределено; Объект.ДоговорКонтрагента = Неопределено; Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс; КонецЕсли; КонецЕсли; Если (Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс) И (Объект.Авансы.Количество() = 0) Тогда Объект.Авансы.Добавить(); Объект.Авансы[0].СтавкаНДС = Объект.СтавкаНДС; Объект.Авансы[0].СуммаНДС = Объект.СуммаНДС; Объект.Авансы[0].Сумма = Объект.Сумма; Объект.СуммаДокумента = Объект.Сумма; КонецЕсли; <Источник>ДокументСсылка.СчетФактураВыданный <Приемник>ДокументСсылка.СчетФактураВыданный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Договор --> ДоговорКонтрагента <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>6 <Наименование>ДокОснование --> ДокументОснование <Порядок>600 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>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 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>18 <Наименование>СчетНаОплату --> СчетНаОплату <Порядок>1700 <Источник Имя="СчетНаОплату" Вид="Реквизит"/> <Приемник Имя="СчетНаОплату" Вид="Реквизит" Тип="ДокументСсылка.СчетНаОплатуПокупателю"/> <КодПравилаКонвертации>СчетНаОплатуПокупателюПоЗаявке <Свойство> <Код>19 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1750 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>20 <Наименование>Проведен --> Проведен <Порядок>1800 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Группа> <Код>21 <Наименование>ТабличнаяЧасть --> Авансы <Порядок>1850 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Авансы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>22 <Наименование>--> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>23 <Наименование>Наименование --> Содержание <Порядок>100 <Источник Имя="Наименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>25 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>26 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>27 <Наименование>Выставлен --> Выставлен <Порядок>1900 <Источник Имя="Выставлен" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Выставлен" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>28 <Наименование>ДатаВыставления --> ДатаВыставления <Порядок>1950 <Источник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>29 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>2000 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>2050 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>31 <Наименование>СчетФактураНеВыставляется --> СчетФактураНеВыставляется <Порядок>2100 <Источник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураНеВыставляется" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>32 <Наименование>СпособВыставления --> КодСпособаВыставления <Порядок>2150 <Источник Имя="СпособВыставления" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаВыставления" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>СчетФактураВыданныйИспр <Наименование>ДокументСсылка.СчетФактураВыданный --> ДокументСсылка.СчетФактураВыданный <Порядок>2400 <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокОснование)=1 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если ЗначениеЗаполнено(Объект.ДокументОснование) Тогда НеНашлиДокументОснование = Истина; Для каждого ДокументОснование из Объект.ДокументыОснования Цикл Если ДокументОснование.ДокументОснование = Объект.ДокументОснование Тогда НеНашлиДокументОснование = Ложь; Прервать; КонецЕсли; КонецЦикла; Если НеНашлиДокументОснование Тогда НовыйДокументОснование = Объект.ДокументыОснования.Добавить(); НовыйДокументОснование.ДокументОснование = Объект.ДокументОснование; КонецЕсли; Если ТипЗнч(Объект.ДокументОснование) = Тип("ДокументСсылка.КорректировкаДолга") Тогда Объект.Контрагент = Неопределено; Объект.ДоговорКонтрагента = Неопределено; Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс; КонецЕсли; КонецЕсли; Если (Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НаАванс) И (Объект.Авансы.Количество() = 0) Тогда Объект.Авансы.Добавить(); Объект.Авансы[0].СтавкаНДС = Объект.СтавкаНДС; Объект.Авансы[0].СуммаНДС = Объект.СуммаНДС; Объект.Авансы[0].Сумма = Объект.Сумма; Объект.СуммаДокумента = Объект.Сумма; КонецЕсли; <Источник>ДокументСсылка.ИсправлениеСчетаФактуры <Приемник>ДокументСсылка.КорректировкаРеализации <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>17 <Наименование>ЮрЛицо --> Организация <Порядок>150 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>8 <Наименование>Контрагент --> Контрагент <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>18 <Наименование>Договор --> ДоговорКонтрагента <Порядок>300 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Измерение" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПокупателем", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>13 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>14 <Наименование>Проведен --> Проведен <Порядок>400 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>ДатаИсправляемогоКорректировочногоДокумента --> ДатаИсправляемогоКорректировочногоДокумента <Порядок>500 <Источник Имя="ДатаИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>5 <Наименование>ДатаИсходногоДокумента --> ДатаИсходногоДокумента <Порядок>550 <Источник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>Комментарий --> Комментарий <Порядок>650 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>НомерИсправления --> НомерИсправления <Порядок>700 <Источник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправления" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>НомерИсправляемогоКорректировочногоДокумента --> НомерИсправляемогоКорректировочногоДокумента <Порядок>750 <Источник Имя="НомерИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИсправляемогоКорректировочногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>НомерИсходногоДокумента --> НомерИсходногоДокумента <Порядок>800 <Источник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИсходногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование>Валюта --> ВалютаДокумента <Порядок>1000 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Группа> <Код>21 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1050 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>22 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>КоличествоДоИзменения --> КоличествоДоИзменения <Порядок>100 <Источник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>25 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>СуммаДоИзменения --> СуммаДоИзменения <Порядок>250 <Источник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>СуммаНДСДоИзменения --> СуммаНДСДоИзменения <Порядок>350 <Источник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДСДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>Цена --> Цена <Порядок>400 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>ЦенаДоИзменения --> ЦенаДоИзменения <Порядок>450 <Источник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаДоИзменения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>ДатаИсправленияИсходногоДокумента --> ДатаИсправленияИсходногоДокумента <Порядок>1100 <Источник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>32 <Наименование>НомерИсправленияИсходногоДокумента --> НомерИсправленияИсходногоДокумента <Порядок>1150 <Источник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерИсправленияИсходногоДокумента" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>СчетФактураПолученный <Наименование>ДокументСсылка.СчетФактураПолученный --> ДокументСсылка.СчетФактураПолученный <Порядок>2500 <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДокОснование)=1 Тогда Отказ = 1; ИначеЕсли (Источник.ДокОснование.Вид() = "ВводОстатковПоставщика") Тогда Отказ = 1; КонецЕсли; <ПриЗагрузке>Если ОбъектНайден Тогда Объект.ДокументыОснования.Очистить(); КонецЕсли; <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если Объект.КодВидаОперации = "" Тогда Объект.КодВидаОперации = "01"; КонецЕсли; Если ЗначениеЗаполнено(Объект.ДокументОснование) Тогда НеНашлиДокументОснование = Истина; Для каждого ДокументОснование из Объект.ДокументыОснования Цикл Если ДокументОснование = Объект.ДокументОснование Тогда НеНашлиДокументОснование = Ложь; Прервать; КонецЕсли; КонецЦикла; Если НеНашлиДокументОснование Тогда НовыйДокументОснование = Объект.ДокументыОснования.Добавить(); НовыйДокументОснование.ДокументОснование = Объект.ДокументОснование; КонецЕсли; КонецЕсли; Если (Объект.ВидСчетаФактуры = Перечисления.ВидСчетаФактурыПолученного.НаАванс) И (Объект.Авансы.Количество() = 0) Тогда Объект.Авансы.Добавить(); Объект.Авансы[0].СуммаНДС = Объект.СуммаНДС; Объект.Авансы[0].Сумма = Объект.Сумма; Объект.СуммаДокумента = Объект.Сумма; КонецЕсли; Объект.ОпределениеПараметровСчетаФактуры(); <Источник>ДокументСсылка.СчетФактураПолученный <Приемник>ДокументСсылка.СчетФактураПолученный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>50 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>100 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>150 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>250 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>300 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>ДокОснование --> ДокументОснование <Порядок>350 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПередВыгрузкой>Если (Источник.ДокОснование.Вид() = "СтрокаАвансОтчетаТМЦ") ИЛИ (Источник.ДокОснование.Вид() = "СтрокаАвансОтчетаПрочее") Тогда Значение = Источник.ДокОснование.АвансовыйОтчет; КонецЕсли; <Свойство> <Код>8 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Свойство> <Код>9 <Наименование>Валюта --> ВалютаДокумента <Порядок>450 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>Договор --> ДоговорКонтрагента <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ВидДоговора = "СПоставщиком"; Если ПустоеЗначение(Источник.ДокОснование) = 0 Тогда Если (Источник.ДокОснование.Вид() = "ВозвратОтПокупателя") Тогда ВидДоговора = "СПокупателем"; КонецЕсли; КонецЕсли; ИсходящиеДанные.ДобавитьЗначение(ВидДоговора, "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>550 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>Проведен --> Проведен <Порядок>600 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>18 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>650 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>СчетФактураБезНДС --> СчетФактураБезНДС <Порядок>700 <Источник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СчетФактураБезНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>20 <Наименование>--> ВидСчетаФактуры <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыПолученного"/> <ПередВыгрузкой>Если Источник.СФНаАванс > 0 Тогда Значение = "НаАванс"; Иначе Значение = "НаПоступление"; КонецЕсли; <Группа> <Код>14 <Наименование>ТабличнаяЧасть --> Авансы <Порядок>800 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Авансы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>15 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>50 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПередВыгрузкой>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>16 <Наименование>Сумма --> Сумма <Порядок>100 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>17 <Наименование>СуммаНДС --> СуммаНДС <Порядок>150 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.СФНаАванс = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>21 <Наименование>СпособПолучения --> КодСпособаПолучения <Порядок>850 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КодСпособаПолучения" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеТоваровУслугИмпорт <Наименование>ДокументСсылка.ПоступлениеТМЦИмпорт --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>4300 <ПослеЗагрузки>СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; ЭтоКомиссия = Ложь; Если ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда Если Объект.ДоговорКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда ЭтоКомиссия = Истина; КонецЕсли; КонецЕсли; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "ВозвратнаяТара", СчетаУчета); КонецЦикла; Для каждого СтрокаТЧ из Объект.Услуги Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Услуги", СчетаУчета); КонецЦикла; Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; Объект.СуммаДокумента = УчетНДСПереопределяемый.ПолучитьСуммуДокументаСНДС(Объект); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеТМЦИмпорт <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ДобавитьКПрефиксу(Источник.НомерДок, "И", 8, "Справа"); <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Склад --> Склад <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>600 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>7 <Наименование>Договор --> ДоговорКонтрагента <Порядок>700 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("СПоставщиком", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо,"Организация"); <Свойство> <Код>8 <Наименование>Валюта --> ВалютаДокумента <Порядок>800 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Отключить="true"> <Код>9 <Наименование>ТипЦен --> ТипЦен <Порядок>900 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Группа> <Код>10 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1000 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>11 <Наименование>ВидТМЦ --> <Порядок>100 <Источник Имя="ВидТМЦ" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыТМЦ"/> <Приемник Имя="" Вид=""/> <Свойство> <Код>12 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>13 <Наименование>Количество --> Количество <Порядок>300 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>Единица --> ЕдиницаИзмерения <Порядок>400 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>15 <Наименование>Коэффициент --> Коэффициент <Порядок>500 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>Цена --> Цена <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Сумма --> Сумма <Порядок>700 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>800 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>19 <Наименование>--> НомерГТД <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.ГТД; <Свойство> <Код>20 <Наименование>--> СтранаПроисхождения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Партия.СтранаПроисхождения; <Свойство> <Код>21 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1100 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>22 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1200 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование>--> КратностьВзаиморасчетов <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>24 <Наименование>--> КурсВзаиморасчетов <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.Договор.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.Договор.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>29 <Наименование>--> ВидОперации <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Значения/> <Правило> <Код>ПлатежноеПоручениеИсходящее <Наименование>ДокументСсылка.ПлатежноеПоручение --> ДокументСсылка.ПлатежноеПоручениеИсходящее <Порядок>4400 <ПослеЗагрузки>Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; Если Объект.РасшифровкаПлатежа.Количество() = 0 Тогда НоваяСтрока = Объект.РасшифровкаПлатежа.Добавить(); КонецЕсли; <Источник>ДокументСсылка.ПлатежноеПоручение <Приемник>ДокументСсылка.ПлатежноеПоручение <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>200 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>26 <Наименование>--> СуммаДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>3 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>500 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>29 <Наименование>--> СтавкаНДС <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>6 <Наименование>ВидПлатежа --> ВидПлатежа <Порядок>600 <Источник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>--> СуммаНДС <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Договор --> ДоговорКонтрагента <Порядок>700 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>8 <Наименование>КодБК --> КодБК <Порядок>800 <Источник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>КодОКАТО --> КодОКАТО <Порядок>900 <Источник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>Контрагент --> Контрагент <Порядок>1000 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>11 <Наименование>Назначение --> НазначениеПлатежа <Порядок>1100 <Источник Имя="Назначение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Очередность --> ОчередностьПлатежа <Порядок>1200 <Источник Имя="Очередность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>ПоказательДаты --> ПоказательДаты <Порядок>1300 <Источник Имя="ПоказательДаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ПоказательДаты" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>ПоказательНомера --> ПоказательНомера <Порядок>1400 <Источник Имя="ПоказательНомера" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательНомера" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование>ПоказательОснования --> ПоказательОснования <Порядок>1500 <Источник Имя="ПоказательОснования" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательОснования" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование>ПоказательПериода --> ПоказательПериода <Порядок>1600 <Источник Имя="ПоказательПериода" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательПериода" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование>ПоказательТипа --> ПоказательТипа <Порядок>1700 <Источник Имя="ПоказательТипа" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательТипа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>ИННПлательщика --> ИННПлательщика <Порядок>1800 <Источник Имя="ИННПлательщика" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИННПлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>КПППлательщика --> КПППлательщика <Порядок>1900 <Источник Имя="КПППлательщика" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КПППлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование>ИННПолучателя --> ИННПолучателя <Порядок>2000 <Источник Имя="ИННПолучателя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИННПолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>КПППолучателя --> КПППолучателя <Порядок>2100 <Источник Имя="КПППолучателя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КПППолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование>СчетКонтрагента --> СчетКонтрагента <Порядок>2200 <Источник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>32 <Наименование>--> Оплачено <Порядок>2400 <Источник Имя="" Вид=""/> <Приемник Имя="Оплачено" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ГТДИмпорт <Наименование>ДокументСсылка.ПоступлениеТМЦИмпорт --> ДокументСсылка.ГТДИмпорт <Порядок>4400 <ПередВыгрузкой>КлючВыгружаемыхДанных = Источник.НомерДок + Источник.ДатаДок + Источник.НомерГТД; <ПослеЗагрузки>Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.09"); Объект.СчетУчетаРасчетовСКонтрагентомВал = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.29"); ЭтоКомиссия = Ложь; Если ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда ЭтоКомиссия = Истина; КонецЕсли; КонецЕсли; Для каждого СтрокаТЧ из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура); Документы.ГТДИмпорт.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Товары", СчетаУчета); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.ПоступлениеТМЦИмпорт <Приемник>ДокументСсылка.ГТДИмпорт <Свойства> <Группа> <Код>1 <Наименование>--> Товары <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>ТаможеннаяСтоимость --> ФактурнаяСтоимость <Порядок>500 <Источник Имя="ТаможеннаяСтоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ФактурнаяСтоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>СуммаПошлиныВал --> СуммаПошлины <Порядок>600 <Источник Имя="СуммаПошлиныВал" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПошлины" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.ПошлинаВВалюте=1 Тогда Значение = ОбъектКоллекции.СуммаПошлиныВал; Иначе Значение = ОбъектКоллекции.СуммаПошлиныРуб; КонецЕсли; <Свойство> <Код>8 <Наименование>СуммаНДСВал --> СуммаНДС <Порядок>700 <Источник Имя="СуммаНДСВал" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.НДСВВалюте=1 Тогда Значение = ОбъектКоллекции.СуммаНДСВал; Иначе Значение = ОбъектКоллекции.СуммаНДСРуб; КонецЕсли; <Свойство> <Код>23 <Наименование>--> НомерРаздела <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРаздела" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>--> СтранаПроисхождения <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство> <Код>34 <Наименование>--> ДокументПартии <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументПартии" Вид="Реквизит" Тип="ДокументСсылка.ПоступлениеТоваровУслуг"/> <КодПравилаКонвертации>ПоступлениеТоваровУслугИмпорт <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>10 <Наименование>ДатаДок --> Дата <Порядок>300 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>12 <Наименование>Комментарий --> Комментарий <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Валюта --> ВалютаДокумента <Порядок>600 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>14 <Наименование>Курс --> КурсДокумента <Порядок>700 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Кратность --> КратностьДокумента <Порядок>800 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>Таможня --> Контрагент <Порядок>900 <Источник Имя="Таможня" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>17 <Наименование>ДоговорТаможниРуб --> ДоговорКонтрагентаРегл <Порядок>1000 <Источник Имя="ДоговорТаможниРуб" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагентаРегл" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("Прочее", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Организация"); <Свойство> <Код>18 <Наименование>ДоговорТаможниВал --> ДоговорКонтрагента <Порядок>1100 <Источник Имя="ДоговорТаможниВал" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("Прочее", "ВидДоговора"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Организация"); <Свойство> <Код>19 <Наименование>ТаможенныйСборВал --> ТаможенныйСборВал <Порядок>1200 <Источник Имя="ТаможенныйСборВал" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ТаможенныйСборВал" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>ТаможенныйСборРуб --> ТаможенныйСбор <Порядок>1300 <Источник Имя="ТаможенныйСборРуб" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ТаможенныйСбор" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>--> КурсВзаиморасчетов <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.ДоговорТаможниВал.ВалютаВзаиморасчетов Тогда Значение = Источник.Курс; Иначе Значение = Источник.ДоговорТаможниВал.ВалютаВзаиморасчетов.Курс.Получить(Источник.ДатаДок); КонецЕсли; <Свойство> <Код>22 <Наименование>--> КратностьВзаиморасчетов <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если Источник.Валюта = Источник.ДоговорТаможниВал.ВалютаВзаиморасчетов Тогда Значение = Источник.Кратность; Иначе Значение = Источник.ДоговорТаможниВал.ВалютаВзаиморасчетов.Кратность.Получить(Источник.ДатаДок); КонецЕсли; Если Значение = 0 Тогда Значение = 1; КонецЕсли; <Свойство Поиск="true"> <Код>25 <Наименование>--> НомерГТД <Порядок>1600 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Группа> <Код>26 <Наименование>--> Разделы <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="Разделы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>27 <Наименование>--> ТаможеннаяСтоимость <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ТаможеннаяСтоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>--> СтавкаПошлины <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаПошлины" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>--> СтавкаНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>30 <Наименование>--> СуммаПошлины <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПошлины" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>--> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>--> ПошлинаВВалюте <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПошлинаВВалюте" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = Источник.ПошлинаВВалюте; <Свойство> <Код>33 <Наименование>--> НДСВВалюте <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НДСВВалюте" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = Источник.НДСВВалюте; <Значения/> <Правило> <Код>СчетНаОплатуПокупателю <Наименование>ДокументСсылка.АвансовыйОтчет --> ДокументСсылка.СчетНаОплатуПокупателю <Порядок>4450 <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.СчетНаОплатуПокупателю <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>100 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>150 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СчетНаОплатуПокупателюПоЗаявке <Наименование>ДокументСсылка.ЗаявкаПокупателя --> ДокументСсылка.СчетНаОплатуПокупателю <Порядок>4500 <ПослеЗагрузки>// Корректируем количество с учетом коэффициента Для каждого СтрокаТоваров Из Объект.Товары Цикл СтрокаТоваров.Количество = СтрокаТоваров.Количество * СтрокаТоваров.Коэффициент; Если СтрокаТоваров.Коэффициент <> 0 Тогда СтрокаТоваров.Цена = СтрокаТоваров.Цена / СтрокаТоваров.Коэффициент; КонецЕсли; КонецЦикла; <Источник>ДокументСсылка.ЗаявкаПокупателя <Приемник>ДокументСсылка.СчетНаОплатуПокупателю <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>100 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>150 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>200 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>350 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <Свойство> <Код>9 <Наименование>Автор --> Ответственный <Порядок>450 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>10 <Наименование>Валюта --> ВалютаДокумента <Порядок>500 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>Договор --> ДоговорКонтрагента <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>12 <Наименование>Кратность --> КратностьВзаиморасчетов <Порядок>600 <Источник Имя="Кратность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>Курс --> КурсВзаиморасчетов <Порядок>650 <Источник Имя="Курс" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>СуммаВзаиморасчетов --> СуммаДокумента <Порядок>700 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>СуммаВклНДС --> СуммаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>16 <Наименование>ЮрЛицо --> Организация <Порядок>800 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>17 <Наименование>ТабличнаяЧасть --> Товары <Порядок>850 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>19 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>22 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>250 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>23 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>СуммаНДС --> СуммаНДС <Порядок>350 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Цена --> Цена <Порядок>400 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>КомплектацияНоменклатуры <Наименование>ДокументСсылка.КомплектацияТМЦ --> ДокументСсылка.КомплектацияНоменклатуры <Порядок>4550 <ПослеЗагрузки>СведенияОНоменклатуре = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Объект.Номенклатура, Объект.Склад); Если СведенияОНоменклатуре.Свойство("СчетаУчета") Тогда СчетаУчета = СведенияОНоменклатуре.СчетаУчета; Если ЗначениеЗаполнено(СчетаУчета.СчетУчета) Тогда Объект.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; Если ЗначениеЗаполнено(СчетаУчета.СпособУчетаНДС) Тогда Объект.СпособУчетаНДС = СчетаУчета.СпособУчетаНДС; КонецЕсли; ИначеЕсли СведенияОНоменклатуре.Свойство("СчетУчета") Тогда СчетаУчета = СведенияОНоменклатуре; Если ЗначениеЗаполнено(СчетаУчета.СчетУчета) Тогда Объект.СчетУчета = СчетаУчета.СчетУчета; КонецЕсли; Если ЗначениеЗаполнено(СчетаУчета.СпособУчетаНДС) Тогда Объект.СпособУчетаНДС = СчетаУчета.СпособУчетаНДС; КонецЕсли; КонецЕсли; Для каждого СтрокаТЧ из Объект.Комплектующие Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Документы.КомплектацияНоменклатуры.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(Объект, СтрокаТЧ, "Комплектующие", СчетаУчета); КонецЦикла; Если Объект.Ответственный.Пустая() Тогда Объект.Ответственный = Пользователи.ТекущийПользователь(); КонецЕсли; <Источник>ДокументСсылка.КомплектацияТМЦ <Приемник>ДокументСсылка.КомплектацияНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>100 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>150 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство> <Код>7 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>8 <Наименование>Комплект --> Номенклатура <Порядок>400 <Источник Имя="Комплект" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>9 <Наименование>КоличествоКомп --> Количество <Порядок>450 <Источник Имя="КоличествоКомп" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Группа> <Код>11 <Наименование>ТабличнаяЧасть --> Комплектующие <Порядок>550 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Комплектующие" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>15 <Наименование>СуммовойКоэфф --> ДоляСтоимости <Порядок>150 <Источник Имя="СуммовойКоэфф" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ДоляСтоимости" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>--> ВидОперации <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийКомплектацияНоменклатуры"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.Разукомплектация Тогда Значение = "Разукомплектация"; Иначе Значение = "Комплектация"; КонецЕсли; <Свойство> <Код>16 <Наименование>--> НДСвСтоимостиТоваров <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="НДСвСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров"/> <ПередВыгрузкой>Значение = "ВключитьВСтоимость"; <Значения/> <Группа> <Код>Справочники <Наименование>Справочники <Порядок>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 <Источник>СправочникСсылка.ДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Свойства> <Свойство> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>Контрагенты <Наименование>СправочникСсылка.Контрагенты --> СправочникСсылка.Контрагенты <Порядок>700 <ПослеЗагрузки>Если Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ПустаяСсылка() Тогда Объект.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо; КонецЕсли; Если НЕ Объект.ЭтоГруппа Тогда Объект.ГоловнойКонтрагент = Объект.Ссылка; КонецЕсли; <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство> <Код>1 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>400 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>500 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Отключить="true"> <Код>7 <Наименование>ОсновнойДоговор --> ОсновнойДоговорКонтрагента <Порядок>700 <Источник Имя="ОсновнойДоговор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ОсновнойДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>8 <Наименование>ОсновнойСчет --> ОсновнойБанковскийСчет <Порядок>800 <Источник Имя="ОсновнойСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="ОсновнойБанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>9 <Наименование>Комментарий --> Комментарий <Порядок>900 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>--> НаименованиеПолное <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Значение = Источник.ЮрФизЛицо.ПолнНаименование; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>11 <Наименование>--> ИНН <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Если Найти(Источник.ЮрФизЛицо.ИНН, "\") <> 0 Тогда Значение = Лев(Источник.ЮрФизЛицо.ИНН, Найти(Источник.ЮрФизЛицо.ИНН, "\") - 1); Иначе Значение = СокрЛП(Источник.ЮрФизЛицо.ИНН); КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование>--> КПП <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Если Найти(Источник.ЮрФизЛицо.ИНН, "\") <> 0 Тогда Значение = Сред(Источник.ЮрФизЛицо.ИНН, Найти(Источник.ЮрФизЛицо.ИНН, "\") + 1); Иначе Значение = ""; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование>--> ГоловнойКонтрагент <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ГоловнойКонтрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПередВыгрузкой> Значение = 0; <Свойство> <Код>14 <Наименование>--> ЮридическоеФизическоеЛицо <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ЮридическоеФизическоеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮридическоеФизическоеЛицо"/> <ПередВыгрузкой>Значение = "ЮридическоеЛицо"; Если ПустоеЗначение(Источник.ЮрФизЛицо) = 0 Тогда Если Источник.ЮрФизЛицо.Вид() = "ФизЛица" Тогда Значение = "ФизическоеЛицо"; КонецЕсли; КонецЕсли; <Значения/> <Правило> <Код>Номенклатура <Наименование>СправочникСсылка.Номенклатура --> СправочникСсылка.Номенклатура <Порядок>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; КонецЕсли; <ПослеЗагрузки>Если Объект.РайонныйКоэффициент < 1 ИЛИ Объект.РайонныйКоэффициент > 3 Тогда Объект.РайонныйКоэффициент = 1; КонецЕсли; Объект.ГоловнаяОрганизация = Объект.Ссылка; Параметры.Вставить("Организация", Объект.Ссылка); <Источник>СправочникСсылка.СвоиЮрЛица <Приемник>СправочникСсылка.Организации <Свойства> <Свойство> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПрефиксНомеровДокументов --> Префикс <Порядок>150 <Источник Имя="ПрефиксНомеровДокументов" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Префикс" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>--> ИНН <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Найти(Источник.ИНН, "\") <> 0 Тогда Значение = Лев(Источник.ИНН, Найти(Источник.ИНН, "\") - 1); Иначе Значение = СокрЛП(Источник.ИНН); КонецЕсли; <Свойство> <Код>5 <Наименование>ДатаРегистрации --> ДатаРегистрации <Порядок>250 <Источник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>ОКВЭД --> КодОКВЭД <Порядок>350 <Источник Имя="ОКВЭД" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКВЭД" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ОКОНХ --> КодОКОНХ <Порядок>400 <Источник Имя="ОКОНХ" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКОНХ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ОКОПФ --> КодОКОПФ <Порядок>450 <Источник Имя="ОКОПФ" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКОПФ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ОКПО --> КодПоОКПО <Порядок>500 <Источник Имя="ОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>ОГРН --> ОГРН <Порядок>550 <Источник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование>ОКФС --> КодОКФС <Порядок>600 <Источник Имя="ОКФС" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКФС" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>НаименованиеПлательщикаПриПеречисленииНалогов --> НаименованиеПлательщикаПриПеречисленииВБюджет <Порядок>650 <Источник Имя="НаименованиеПлательщикаПриПеречисленииНалогов" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПлательщикаПриПеречисленииВБюджет" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование>Наименование --> НаименованиеСокращенное <Порядок>700 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="НаименованиеСокращенное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>ОфициальноеНаименование --> НаименованиеПолное <Порядок>750 <Источник Имя="ОфициальноеНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>15 <Наименование>--> КПП <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Найти(Источник.ИНН, "\") <> 0 Тогда Значение = Сред(Источник.ИНН, Найти(Источник.ИНН, "\") + 1); Иначе Значение = ""; КонецЕсли; <Свойство> <Код>18 <Наименование>--> ИндивидуальныйПредприниматель <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ИндивидуальныйПредприниматель" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <ПередВыгрузкой>Если Источник.ИндивидуальныйПредприниматель = 1 Тогда Значение = Источник; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>19 <Наименование>--> ЮридическоеФизическоеЛицо <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ЮридическоеФизическоеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮридическоеФизическоеЛицо"/> <ПередВыгрузкой>Значение = "ЮридическоеЛицо"; Если Источник.ИндивидуальныйПредприниматель = 1 Тогда Значение = "ФизическоеЛицо"; КонецЕсли; <Свойство> <Код>23 <Наименование>ОргПравФорма --> НаименованиеОКОПФ <Порядок>950 <Источник Имя="ОргПравФорма" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеОКОПФ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>24 <Наименование>ФормаСобственности --> НаименованиеОКФС <Порядок>1000 <Источник Имя="ФормаСобственности" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеОКФС" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>Кассы <Наименование>СправочникСсылка.Склады --> СправочникСсылка.Склады <Порядок>1100 <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>Код --> Код <Порядок>400 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Наименование --> Наименование <Порядок>500 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Касса " + Источник.Наименование; <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>--> ЭтоГруппа <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Склады <Наименование>СправочникСсылка.Склады --> СправочникСсылка.Склады <Порядок>1100 <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство> <Код>2 <Наименование>--> ТипСклада <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ТипСклада" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыСкладов"/> <ПередВыгрузкой>Если Источник.РозничныйСклад = 1 Тогда Значение = "РозничныйМагазин"; Иначе Значение = "ОптовыйСклад"; КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование>Код --> Код <Порядок>400 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Наименование --> Наименование <Порядок>500 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>6 <Наименование>--> ЭтоГруппа <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ФизическиеЛица <Наименование>СправочникСсылка.ФизЛица --> СправочникСсылка.ФизическиеЛица <Порядок>1300 <ПослеВыгрузки>ФИО = Источник.ПолнНаименование; Поз1 = Найти(ФИО, " "); Фамилия = Лев(ФИО, Поз1); ИО = Сред(ФИО, Поз1+1); Поз2 = Найти(ИО, " "); Имя = Лев(ИО, Поз2); Отчество= Сред(ИО, Поз2+1); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник, "ФизЛицо"); ИсходящиеДанные.ДобавитьЗначение(Фамилия, "Фамилия"); ИсходящиеДанные.ДобавитьЗначение(Имя, "Имя"); ИсходящиеДанные.ДобавитьЗначение(Отчество, "Отчество"); ИсходящиеДанные.ДобавитьЗначение(НачГода(ТекущаяДата()), "Период"); ИсходящиеДанные.ДобавитьЗначение("true", "Активность"); Если ПустаяСтрока(Фамилия) = 0 Тогда ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ФИОФизЛиц"); КонецЕсли; <Источник>СправочникСсылка.ФизЛица <Приемник>СправочникСсылка.ФизическиеЛица <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>300 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Родитель --> Родитель <Порядок>400 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>5 <Наименование>ИНН --> ИНН <Порядок>500 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат 1; КонецЕсли; <Свойство> <Код>6 <Наименование>ПолнНаименование --> ФИО <Порядок>550 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ФИО" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>КлассификаторСтранМира <Наименование>СправочникСсылка.ОКСМ --> СправочникСсылка.КлассификаторСтранМира <Порядок>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; Возврат 1; КонецЕсли; <Свойство> <Код>7 <Наименование>ТипЦен --> ТипЦен <Порядок>700 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат 1; КонецЕсли; <Свойство Поиск="true"> <Код>9 <Наименование>--> Организация <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат 1; КонецЕсли; Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Значение = ВходящиеДанные.Получить("Организация"); КонецЕсли; КонецЕсли; <Свойство Поиск="true"> <Код>10 <Наименование>--> ВидДоговора <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДоговоровКонтрагентов"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат 1; КонецЕсли; Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Значение = ВходящиеДанные.Получить("ВидДоговора"); КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование>--> РасчетыВУсловныхЕдиницах <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыВУсловныхЕдиницах" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 1 Тогда Отказ = 1; Возврат 1; КонецЕсли; Определено = 0; Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ВходящиеДанные.Получить("ВидДоговора")="СКомитентом") ИЛИ (ВходящиеДанные.Получить("ВидДоговора")="СКомиссионером") Тогда Значение = 0; Определено = 1; КонецЕсли; КонецЕсли; КонецЕсли; Если (Определено = 0) И (Источник.ВалютаВзаиморасчетов <> Константа.ВалютаБухУчета) Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>12 <Наименование>Код --> Код <Порядок>1200 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>Пользователи <Наименование>СправочникСсылка.Пользователи --> СправочникСсылка.Пользователи <Порядок>16650 <Источник>СправочникСсылка.Пользователи <Приемник>СправочникСсылка.Пользователи <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Группа> <Код>Перечисления <Наименование>Перечисления <Порядок>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 <Приемник>ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Свойства/> <Значения/> <Группа> <Код>Регистры сведений <Наименование>Регистры сведений <Порядок>4400 <Правило> <Код>ФИОФизЛиц <Наименование> --> РегистрСведенийЗапись.ФИОФизЛиц <Порядок>4300 <Приемник>РегистрСведенийЗапись.ФИОФизическихЛиц <Свойства> <Свойство> <Код>2 <Наименование>--> Фамилия <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Фамилия" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>3 <Наименование>--> Имя <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Имя" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>4 <Наименование>--> Отчество <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Отчество" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование>--> ФизическоеЛицо <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФизическоеЛицо" Вид="Измерение"/> <Свойство> <Код>6 <Наименование>--> Период <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>7 <Наименование>--> Активность <Порядок>550 <ПолучитьИзВходящихДанных>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 <Источник Имя="" Вид=""/> <Приемник Имя="ТипКорпуса" Вид="Ресурс" Тип="ПеречислениеСсылка.УдалитьТипыКорпусов"/> <Значения/> <ПравилаВыгрузкиДанных> <Правило Отключить="false"> <Код>ПоступлениеТМЦ <Наименование>ПоступлениеТМЦ <Порядок>50 <КодПравилаКонвертации>ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТМЦ <Правило Отключить="false"> <Код>ОприходованиеТМЦ <Наименование>ОприходованиеТМЦ <Порядок>100 <КодПравилаКонвертации>ОприходованиеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОприходованиеТМЦ <Правило Отключить="false"> <Код>Доверенность <Наименование>Доверенность <Порядок>150 <КодПравилаКонвертации>Доверенность <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Доверенность <Правило Отключить="false"> <Код>Реализация <Наименование>Реализация <Порядок>200 <КодПравилаКонвертации>РеализацияТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Реализация <Правило Отключить="false"> <Код>ПоступлениеТМЦРозница <Наименование>ПоступлениеТМЦРозница <Порядок>250 <КодПравилаКонвертации>ПоступлениеТоваровУслугРозница <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТМЦРозница <Правило Отключить="false"> <Код>РеализацияРозница <Наименование>РеализацияРозница <Порядок>300 <КодПравилаКонвертации>РеализацияРозница <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияРозница <Правило Отключить="false"> <Код>СписаниеТМЦ <Наименование>СписаниеТМЦ <Порядок>350 <КодПравилаКонвертации>СписаниеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СписаниеТМЦ <Правило Отключить="false"> <Код>КомплектацияТМЦ <Наименование>Комплектация ТМЦ <Порядок>400 <КодПравилаКонвертации>КомплектацияНоменклатуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.КомплектацияТМЦ <Правило Отключить="false"> <Код>ВозвратПоставщику <Наименование>ВозвратПоставщику <Порядок>450 <КодПравилаКонвертации>ВозвратТоваровПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратПоставщику <Правило Отключить="false"> <Код>ВозвратОтПокупателя <Наименование>ВозвратОтПокупателя <Порядок>500 <КодПравилаКонвертации>ВозвратТоваровОтПокупателя <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратОтПокупателя <Правило Отключить="false"> <Код>ИнвентаризацияТМЦ <Наименование>ИнвентаризацияТМЦ <Порядок>550 <КодПравилаКонвертации>ИнвентаризацияТоваровНаСкладе <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИнвентаризацияТМЦ <Правило Отключить="false"> <Код>ОтчетККМ <Наименование>ОтчетККМ <Порядок>600 <КодПравилаКонвертации>ОтчетОРозничныхПродажах <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетККМ <Правило Отключить="false"> <Код>ОтчетКомиссионера <Наименование>ОтчетКомиссионера <Порядок>650 <КодПравилаКонвертации>ОтчетКомиссионераОПродажах <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетКомиссионера <Правило Отключить="false"> <Код>ОтчетКомитенту <Наименование>ОтчетКомитенту <Порядок>700 <КодПравилаКонвертации>ОтчетКомитентуОПродажах <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетКомитенту <Правило Отключить="false"> <Код>ПеремещениеТМЦ <Наименование>ПеремещениеТМЦ <Порядок>750 <КодПравилаКонвертации>ПеремещениеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеремещениеТМЦ <Правило Отключить="false"> <Код>СтрокаВыпискиРасход <Наименование>СтрокаВыпискиРасход <Порядок>800 <КодПравилаКонвертации>ПлатежныйОрдерСписаниеДенежныхСредств <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СтрокаВыпискиРасход <Правило Отключить="false"> <Код>РКО <Наименование>РКО <Порядок>850 <КодПравилаКонвертации>РасходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РКО <Правило Отключить="false"> <Код>ПКО <Наименование>ПКО <Порядок>900 <КодПравилаКонвертации>ПриходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПКО <Правило Отключить="false"> <Код>СтрокаВыпискиПриход <Наименование>СтрокаВыпискиПриход <Порядок>950 <КодПравилаКонвертации>ПлатежноеПоручениеВходящее <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СтрокаВыпискиПриход <Правило Отключить="false"> <Код>СчетФактураВыданный <Наименование>СчетФактураВыданный <Порядок>1000 <КодПравилаКонвертации>СчетФактураВыданный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураВыданный <Правило Отключить="false"> <Код>СчетФактураПолученный <Наименование>СчетФактураПолученный <Порядок>1050 <КодПравилаКонвертации>СчетФактураПолученный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураПолученный <Правило Отключить="false"> <Код>АвансовыйОтчет <Наименование>АвансовыйОтчет <Порядок>1100 <КодПравилаКонвертации>АвансовыйОтчет <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.АвансовыйОтчет <Правило Отключить="false"> <Код>ПоступлениеТМЦИмпорт <Наименование>ПоступлениеТМЦИмпорт <Порядок>1150 <КодПравилаКонвертации>ПоступлениеТоваровУслугИмпорт <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТМЦИмпорт <Правило Отключить="false"> <Код>ГТДИмпорт <Наименование>ГТДИмпорт <Порядок>1200 <КодПравилаКонвертации>ГТДИмпорт <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Запрос = СоздатьОбъект("Запрос"); ВыбЮрЛицо = Параметры.ЮрЛицо; ТекстЗапроса = " |Период С ДатаНачала По ДатаОкончания; |ДатаДок = Документ.ПоступлениеТМЦИмпорт.ДатаДок; |НомерДок = Документ.ПоступлениеТМЦИмпорт.НомерДок; |Док = Документ.ПоступлениеТМЦИмпорт.ТекущийДокумент; |ЮрЛицо = Документ.ПоступлениеТМЦИмпорт.ЮрЛицо; |//Комментарий = Документ.ПоступлениеТМЦИмпорт.Комментарий; |Валюта = Документ.ПоступлениеТМЦИмпорт.Валюта; |Курс = Документ.ПоступлениеТМЦИмпорт.Курс; |Кратность = Документ.ПоступлениеТМЦИмпорт.Кратность; |ПошлинаВВалюте = Документ.ПоступлениеТМЦИмпорт.ПошлинаВВалюте; |НДСВВалюте = Документ.ПоступлениеТМЦИмпорт.НДСВВалюте; |Таможня = Документ.ПоступлениеТМЦИмпорт.Таможня; |ДоговорТаможниРуб = Документ.ПоступлениеТМЦИмпорт.ДоговорТаможниРуб; |ДоговорТаможниВал = Документ.ПоступлениеТМЦИмпорт.ДоговорТаможниВал; |ТаможенныйСборРуб = Документ.ПоступлениеТМЦИмпорт.ТаможенныйСборРуб; |ТаможенныйСборВал = Документ.ПоступлениеТМЦИмпорт.ТаможенныйСборВал; |ТаможенныйСборВал_Р = Документ.ПоступлениеТМЦИмпорт.ТаможенныйСборВал_Р; |Номенклатура = Документ.ПоступлениеТМЦИмпорт.Номенклатура; |СтавкаПошлины = Документ.ПоступлениеТМЦИмпорт.СтавкаПошлины; |СтавкаНДС = Документ.ПоступлениеТМЦИмпорт.СтавкаНДС; |Количество = Документ.ПоступлениеТМЦИмпорт.Количество; |Единица = Документ.ПоступлениеТМЦИмпорт.Единица; |Коэффициент = Документ.ПоступлениеТМЦИмпорт.Коэффициент; |Цена = Документ.ПоступлениеТМЦИмпорт.Цена; |Сумма = Документ.ПоступлениеТМЦИмпорт.Сумма; |НомерСтроки = Документ.ПоступлениеТМЦИмпорт.НомерСтроки; |СуммаПошлиныРуб = Документ.ПоступлениеТМЦИмпорт.СуммаПошлиныРуб; |СуммаНДСРуб = Документ.ПоступлениеТМЦИмпорт.СуммаНДСРуб; |ТаможеннаяСтоимость = Документ.ПоступлениеТМЦИмпорт.ТаможеннаяСтоимость; |СуммаПошлиныВал = Документ.ПоступлениеТМЦИмпорт.СуммаПошлиныВал; |СуммаНДСВал = Документ.ПоступлениеТМЦИмпорт.СуммаНДСВал; |НомерГТД = Документ.ПоступлениеТМЦИмпорт.Партия.ГТД; |СтранаПроисхождения = Документ.ПоступлениеТМЦИмпорт.Партия.СтранаПроисхождения; |Функция КоличествоСумма = Сумма(Количество); |Функция СуммаСумма = Сумма(Сумма); |Функция СуммаНДСРубСумма = Сумма(СуммаНДСРуб); |Функция СуммаПошлиныРубСумма = Сумма(СуммаПошлиныРуб); |Функция СуммаПошлиныВалСумма = Сумма(СуммаПошлиныВал); |Функция СуммаНДСВалСумма = Сумма(СуммаНДСВал); |Функция ТаможеннаяСтоимостьСумма= Сумма(ТаможеннаяСтоимость); |Группировка ДатаДок; |Группировка НомерДок; |Группировка НомерГТД; |Группировка СтавкаПошлины; |Группировка СтавкаНДС; |Группировка НомерСтроки; |"; Если ПустоеЗначение(ВыбЮрЛицо) = 0 Тогда ТекстЗапроса = ТекстЗапроса + " Условие (ЮрЛицо = ВыбЮрЛицо);"; КонецЕсли; ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.НоваяКолонка("ДатаДок"); ВыборкаДанных.НоваяКолонка("НомерДок"); ВыборкаДанных.НоваяКолонка("ЮрЛицо"); ВыборкаДанных.НоваяКолонка("Комментарий"); ВыборкаДанных.НоваяКолонка("Валюта"); ВыборкаДанных.НоваяКолонка("Курс"); ВыборкаДанных.НоваяКолонка("Кратность"); ВыборкаДанных.НоваяКолонка("Таможня"); ВыборкаДанных.НоваяКолонка("ДоговорТаможниРуб"); ВыборкаДанных.НоваяКолонка("ДоговорТаможниВал"); ВыборкаДанных.НоваяКолонка("ТаможенныйСборРуб"); ВыборкаДанных.НоваяКолонка("ТаможенныйСборВал"); ВыборкаДанных.НоваяКолонка("ТаможенныйСборВал_Р"); ВыборкаДанных.НоваяКолонка("НомерГТД"); ВыборкаДанных.НоваяКолонка("ПошлинаВВалюте"); ВыборкаДанных.НоваяКолонка("НДСВВалюте"); ВыборкаДанных.НоваяКолонка("Товары"); ВыборкаДанных.НоваяКолонка("Разделы"); Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка("ДатаДок")=1 Цикл Пока Запрос.Группировка("НомерДок")=1 Цикл Пока Запрос.Группировка("НомерГТД")=1 Цикл ВыборкаДанных.НоваяСтрока(); ВыборкаДанных.ДатаДок = Запрос.ДатаДок; ВыборкаДанных.НомерДок = Запрос.НомерДок; ВыборкаДанных.ЮрЛицо = Запрос.ЮрЛицо; ВыборкаДанных.Валюта = Запрос.Валюта; ВыборкаДанных.Курс = Запрос.Курс; ВыборкаДанных.Кратность = Запрос.Кратность; ВыборкаДанных.Таможня = Запрос.Таможня; ВыборкаДанных.ДоговорТаможниРуб = Запрос.ДоговорТаможниРуб; ВыборкаДанных.ДоговорТаможниВал = Запрос.ДоговорТаможниВал; ВыборкаДанных.ТаможенныйСборРуб = Запрос.ТаможенныйСборРуб; ВыборкаДанных.ТаможенныйСборВал = Запрос.ТаможенныйСборВал; ВыборкаДанных.ТаможенныйСборВал_Р = Запрос.ТаможенныйСборВал_Р; ВыборкаДанных.НомерГТД = Запрос.НомерГТД; ВыборкаДанных.ПошлинаВВалюте = Запрос.ПошлинаВВалюте; ВыборкаДанных.НДСВВалюте = Запрос.НДСВВалюте; ВыборкаДанных.Товары = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.Товары.НоваяКолонка("Номенклатура"); ВыборкаДанных.Товары.НоваяКолонка("Количество"); ВыборкаДанных.Товары.НоваяКолонка("ТаможеннаяСтоимость"); ВыборкаДанных.Товары.НоваяКолонка("НомерРаздела"); ВыборкаДанных.Товары.НоваяКолонка("Единица"); ВыборкаДанных.Товары.НоваяКолонка("Коэффициент"); ВыборкаДанных.Товары.НоваяКолонка("СуммаПошлиныВал"); ВыборкаДанных.Товары.НоваяКолонка("СуммаНДСВал"); ВыборкаДанных.Товары.НоваяКолонка("СуммаПошлиныРуб"); ВыборкаДанных.Товары.НоваяКолонка("СуммаНДСРуб"); ВыборкаДанных.Товары.НоваяКолонка("СтранаПроисхождения"); ВыборкаДанных.Товары.НоваяКолонка("ДокументПартии"); ВыборкаДанных.Разделы = СоздатьОбъект("ТаблицаЗначений"); ВыборкаДанных.Разделы.НоваяКолонка("СтавкаПошлины"); ВыборкаДанных.Разделы.НоваяКолонка("СтавкаНДС"); ВыборкаДанных.Разделы.НоваяКолонка("СуммаПошлины"); ВыборкаДанных.Разделы.НоваяКолонка("СуммаНДС"); ВыборкаДанных.Разделы.НоваяКолонка("ТаможеннаяСтоимость"); Пока Запрос.Группировка("СтавкаПошлины")=1 Цикл Пока Запрос.Группировка("СтавкаНДС")=1 Цикл ВыборкаДанных.Разделы.НоваяСтрока(); ВыборкаДанных.Разделы.СтавкаПошлины = Запрос.СтавкаПошлины; ВыборкаДанных.Разделы.СтавкаНДС = Запрос.СтавкаНДС; ВыборкаДанных.Разделы.ТаможеннаяСтоимость = Запрос.ТаможеннаяСтоимостьСумма; Если Запрос.ПошлинаВВалюте = 1 Тогда ВыборкаДанных.Разделы.СуммаПошлины = Запрос.СуммаПошлиныВалСумма; Иначе ВыборкаДанных.Разделы.СуммаПошлины = Запрос.СуммаПошлиныРубСумма; КонецЕсли; Если Запрос.НДСВВалюте = 1 Тогда ВыборкаДанных.Разделы.СуммаНДС = Запрос.СуммаНДСВалСумма; Иначе ВыборкаДанных.Разделы.СуммаНДС = Запрос.СуммаНДСРубСумма; КонецЕсли; НомерРаздела = ВыборкаДанных.Разделы.НомерСтроки; Пока Запрос.Группировка("НомерСтроки")=1 Цикл ВыборкаДанных.Товары.НоваяСтрока(); ВыборкаДанных.Товары.НомерРаздела = НомерРаздела; ВыборкаДанных.Товары.Номенклатура = Запрос.Номенклатура; ВыборкаДанных.Товары.Количество = Запрос.Количество; ВыборкаДанных.Товары.Единица = Запрос.Единица; ВыборкаДанных.Товары.Коэффициент = Запрос.Коэффициент; ВыборкаДанных.Товары.ТаможеннаяСтоимость = Запрос.ТаможеннаяСтоимость; ВыборкаДанных.Товары.СуммаПошлиныВал = Запрос.СуммаПошлиныВал; ВыборкаДанных.Товары.СуммаПошлиныРуб = Запрос.СуммаПошлиныРуб; ВыборкаДанных.Товары.СуммаНДСВал = Запрос.СуммаНДСВал; ВыборкаДанных.Товары.СуммаНДСРуб = Запрос.СуммаНДСРуб; ВыборкаДанных.Товары.СтранаПроисхождения = Запрос.СтранаПроисхождения; ВыборкаДанных.Товары.ДокументПартии = Запрос.Док; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; <Правило Отключить="false"> <Код>ПоступлениеДопРасходы <Наименование>ПоступлениеДопРасходы <Порядок>1250 <КодПравилаКонвертации>ПоступлениеДопРасходов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеДопРасходы <Правило Отключить="false"> <Код>КорректировкаДолга <Наименование>КорректировкаДолга <Порядок>1300 <КодПравилаКонвертации>КорректировкаДолга <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.КорректировкаДолга <Правило Отключить="false"> <Код>ПереоценкаРозница <Наименование>ПереоценкаРозница <Порядок>1350 <КодПравилаКонвертации>ПереоценкаТоваровВРознице <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПереоценкаРозница <Правило Отключить="false"> <Код>ПоступлениеПрочее <Наименование>ПоступлениеПрочее <Порядок>1400 <КодПравилаКонвертации>ПоступлениеТоваровУслугПрочее <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеПрочее <Правило Отключить="false"> <Код>РеализацияПрочее <Наименование>РеализацияПрочее <Порядок>1450 <КодПравилаКонвертации>РеализацияТоваровУслугПрочее <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияПрочее <Правило Отключить="false"> <Код>КонтактнаяИнформация <Наименование>Контактная информация контрагентов <Порядок>1500 <КодПравилаКонвертации>КонтактнаяИнформация <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>//контрагенты СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты"); СпрКонтрагенты.ВыбратьЭлементы(); Пока СпрКонтрагенты.ПолучитьЭлемент()=1 Цикл Если СпрКонтрагенты.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли; Если ПустоеЗначение(СпрКонтрагенты.ЮрФизЛицо) = 1 Тогда Продолжить; КонецЕсли; Если ПустоеЗначение(СпрКонтрагенты.ЮрФизЛицо.ЮрАдрес) = 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Объект", СпрКонтрагенты.ТекущийЭлемент()); ИсходящиеДанные.Установить("Тип", "Адрес"); ИсходящиеДанные.Установить("Вид", "ЮрАдресКонтрагента"); ИсходящиеДанные.Установить("Адрес", СпрКонтрагенты.ЮрФизЛицо.ЮрАдрес); ПолучитьСтруктуруАдреса(); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "КонтактнаяИнформация"); КонецЕсли; Если ПустоеЗначение(СпрКонтрагенты.ЮрФизЛицо.ФактАдрес) = 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Объект", СпрКонтрагенты.ТекущийЭлемент()); ИсходящиеДанные.Установить("Тип", "Адрес"); ИсходящиеДанные.Установить("Вид", "ФактАдресКонтрагента"); ИсходящиеДанные.Установить("Адрес", СпрКонтрагенты.ЮрФизЛицо.ФактАдрес); ПолучитьСтруктуруАдреса(); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "КонтактнаяИнформация"); КонецЕсли; Если ПустоеЗначение(СпрКонтрагенты.ЮрФизЛицо.Телефоны) = 0 Тогда ТекСтр = СокрЛП(СпрКонтрагенты.ЮрФизЛицо.Телефоны); Поле1 = ""; Поле2 = ""; Поле3 = ""; Поле4 = ""; // вырежем добавочный номер Поз = Найти(ВРЕГ(ТекСтр), "ДОБ."); Если Поз <> 0 Тогда Поле4 = СокрЛП(Сред(ТекСтр, Поз+4)); ТекСтр = СокрЛП(Лев(ТекСтр, Поз-1)); Если Прав(ТекСтр, 1) = "," Тогда ТекСтр = Лев(ТекСтр, СтрДлина(ТекСтр)-1); КонецЕсли; КонецЕсли; // вырежем код города Поз = Найти(ТекСтр, "("); Если Поз <> 0 Тогда Поле1 = СокрЛП(Лев(ТекСтр, Поз-1)); ТекСтр = СокрЛП(Сред(ТекСтр, Поз+1)); Поз = Найти(ТекСтр, ")"); Если Поз <> 0 Тогда Поле2 = СокрЛП(Лев(ТекСтр, Поз-1)); ТекСтр = СокрЛП(Сред(ТекСтр, Поз+1)); КонецЕсли; КонецЕсли; Поле3 = ТекСтр; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Объект", СпрКонтрагенты.ТекущийЭлемент()); ИсходящиеДанные.Установить("Тип", "Телефон"); ИсходящиеДанные.Установить("Вид", "ТелефонКонтрагента"); ИсходящиеДанные.Установить("Представление", СпрКонтрагенты.ЮрФизЛицо.Телефоны); ИсходящиеДанные.Установить("Поле1", Поле1); ИсходящиеДанные.Установить("Поле2", Поле2); ИсходящиеДанные.Установить("Поле3", Поле3); ИсходящиеДанные.Установить("Поле4", Поле4); ИсходящиеДанные.Установить("Поле5", ""); ИсходящиеДанные.Установить("Поле6", ""); ИсходящиеДанные.Установить("Поле7", ""); ИсходящиеДанные.Установить("Поле8", ""); ИсходящиеДанные.Установить("Поле9", ""); ИсходящиеДанные.Установить("ТипДома", ""); ИсходящиеДанные.Установить("ТипКвартиры", ""); ИсходящиеДанные.Установить("ТипКорпуса", ""); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "КонтактнаяИнформация"); КонецЕсли; КонецЦикла; //организации СпрОрганизации = СоздатьОбъект("Справочник.СвоиЮрЛица"); СпрОрганизации.ВыбратьЭлементы(); Пока СпрОрганизации.ПолучитьЭлемент()=1 Цикл Если ПустоеЗначение(СпрОрганизации.ЮрАдрес)=0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Объект", СпрОрганизации.ТекущийЭлемент()); ИсходящиеДанные.Установить("Тип", "Адрес"); ИсходящиеДанные.Установить("Вид", "ЮрАдресОрганизации"); ИсходящиеДанные.Установить("Адрес", СпрОрганизации.ЮрАдрес); ПолучитьСтруктуруАдреса(); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "КонтактнаяИнформация"); КонецЕсли; Если ПустоеЗначение(СпрОрганизации.ФактАдрес)=0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Объект", СпрОрганизации.ТекущийЭлемент()); ИсходящиеДанные.Установить("Тип", "Адрес"); ИсходящиеДанные.Установить("Вид", "ФактАдресОрганизации"); ИсходящиеДанные.Установить("Адрес", СпрОрганизации.ФактАдрес); ПолучитьСтруктуруАдреса(); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "КонтактнаяИнформация"); КонецЕсли; Если ПустоеЗначение(СпрОрганизации.Телефоны)=0 Тогда ТекСтр = СокрЛП(СпрОрганизации.Телефоны); Поле1 = ""; Поле2 = ""; Поле3 = ""; Поле4 = ""; // вырежем добавочный номер Поз = Найти(ВРЕГ(ТекСтр), "ДОБ."); Если Поз <> 0 Тогда Поле4 = СокрЛП(Сред(ТекСтр, Поз+4)); ТекСтр = СокрЛП(Лев(ТекСтр, Поз-1)); Если Прав(ТекСтр, 1) = "," Тогда ТекСтр = Лев(ТекСтр, СтрДлина(ТекСтр)-1); КонецЕсли; КонецЕсли; // вырежем код города Поз = Найти(ТекСтр, "("); Если Поз <> 0 Тогда Поле1 = СокрЛП(Лев(ТекСтр, Поз-1)); ТекСтр = СокрЛП(Сред(ТекСтр, Поз+1)); Поз = Найти(ТекСтр, ")"); Если Поз <> 0 Тогда Поле2 = СокрЛП(Лев(ТекСтр, Поз-1)); ТекСтр = СокрЛП(Сред(ТекСтр, Поз+1)); КонецЕсли; КонецЕсли; Поле3 = ТекСтр; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Объект", СпрОрганизации.ТекущийЭлемент()); ИсходящиеДанные.Установить("Тип", "Телефон"); ИсходящиеДанные.Установить("Вид", "ТелефонОрганизации"); ИсходящиеДанные.Установить("Представление", СпрОрганизации.Телефоны); ИсходящиеДанные.Установить("Поле1", Поле1); ИсходящиеДанные.Установить("Поле2", Поле2); ИсходящиеДанные.Установить("Поле3", Поле3); ИсходящиеДанные.Установить("Поле4", Поле4); ИсходящиеДанные.Установить("Поле5", ""); ИсходящиеДанные.Установить("Поле6", ""); ИсходящиеДанные.Установить("Поле7", ""); ИсходящиеДанные.Установить("Поле8", ""); ИсходящиеДанные.Установить("Поле9", ""); ИсходящиеДанные.Установить("ТипДома", ""); ИсходящиеДанные.Установить("ТипКвартиры", ""); ИсходящиеДанные.Установить("ТипКорпуса", ""); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "КонтактнаяИнформация"); КонецЕсли; КонецЦикла; <ПравилаОчисткиДанных/> <Алгоритмы> <Алгоритм Имя="ПолучитьСтруктуруАдреса" ИспользуетсяПриЗагрузке="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); КонецЕсли; ИсходящиеДанные.Установить("Представление", ТекПредставление); Иначе //Сообщить("Адрес: " + Адрес + " не соответствует требованиям МНС, "+ИсходящиеДанные.Получить("Объект")); ИсходящиеДанные.Установить("Представление", Адрес); КонецЕсли; <Запросы/>