<ПравилаОбмена> <ВерсияФормата РежимСовместимости="РежимСовместимостиСБСП20">2.01 <Ид>b85ca9da-ca25-497e-b589-594cb8149e6b <Наименование>Торговля+Склад, редакция 9.2 --> УправлениеТорговлей <ДатаВремяСоздания>2019-02-26T12:45:50 <Источник ВерсияПлатформы="7.7" ВерсияКонфигурации="7.70.984" СинонимКонфигурации="">Торговля+Склад, редакция 9.2 <Приемник ВерсияПлатформы="8.0" ВерсияКонфигурации="11.4.7.108" СинонимКонфигурации="Управление торговлей, редакция 11">УправлениеТорговлей <ПередВыгрузкойДанных>БанковскиеВыпискиКФормированию = СоздатьОбъект("ТаблицаЗначений"); БанковскиеВыпискиКФормированию.НоваяКолонка("Дата"); БанковскиеВыпискиКФормированию.НоваяКолонка("БанковскийСчет"); БанковскиеВыпискиКФормированию.НоваяКолонка("ВидДвижения"); БанковскиеВыпискиКФормированию.НоваяКолонка("Сумма"); БанковскиеВыпискиКФормированию.НоваяКолонка("Документ"); Параметры.БанковскиеВыпискиКФормированию = БанковскиеВыпискиКФормированию; Параметры.РазделительТелефонов = ","; Параметры.ВариантКонтроляОстатков = -1; Параметры.ТабКонтрагентыСкладыНТТ = -1; Параметры.ИспользоватьУпаковки = -1; Параметры.НоменклатураСУпаковками = -1; Параметры.ДополнительныеРеквизитыНоменклатуры = -1; Параметры.ДополнительныеРеквизитыКонтрагентов = -1; Параметры.СтатистикаПоДоговорам_СортДоговор = -1; Параметры.СтатистикаПоДоговорам_СортКонтрагент = -1; Параметры.СоответствиеКонтрагентыЮрЛицо = -1; Параметры.ПервыеИПоследниеДокументыПоДоговорам = -1; Параметры.СтатистикаПоДвижениямДенежныхСредств = -1; Параметры.ТаблицаВзаиморасчетовСРозничнымиТочками = -1; Параметры.СтатистикаВозвратыОтПодотчетников = -1; Параметры.ПоследниеОтчетыКомитентамПоДоговорам = -1; Параметры.СтатистикаПерерасходовПодотчетников = -1; <ПередЗагрузкойДанных>Параметры.Вставить("ЗагруженыНовыеПользователи", Ложь); Параметры.Вставить("ЗагруженныНовыеШтрихКоды", Ложь); Параметры.Вставить("ЗагруженыПеремещения", Ложь); Параметры.Вставить("ЗагруженаСборкаРазборка", Ложь); Параметры.Вставить("ЗагруженыОрганизации", Ложь); Параметры.Вставить("ЗагруженыРасчетныеСчета", Ложь); Параметры.Вставить("ЗагруженыВалюты", Ложь); Параметры.Вставить("ЗагруженыКассы", Ложь); Параметры.Вставить("ЗагруженыВидыЦен", Ложь); Параметры.Вставить("ЗагруженыСклады", Ложь); Параметры.Вставить("ЗагруженыПричиныОтменыЗаказовКлиентов", Ложь); Параметры.Вставить("ЗагруженыПричиныОтменыЗаказовПоставщикам", Ложь); Параметры.Вставить("СписокЗагруженныхПартнеров", Новый Массив); Параметры.Вставить("СписокЗагруженныхВидовНоменклатуры", Новый Массив); Параметры.Вставить("МассивЗагруженныхСоглашений", Новый Массив); ДокументыДляПроведения = Новый ТаблицаЗначений; ДокументыДляПроведения.Колонки.Добавить("ДокументОбъект"); ДокументыДляПроведения.Колонки.Добавить("ДатаДокумента", Новый ОписаниеТипов("Дата")); Параметры.Вставить("ДокументыДляПроведения", ДокументыДляПроведения); <ПослеЗагрузкиДанных>Выполнить(Алгоритмы.УстановитьИспользованиеОпциональныхВозможностей); Если Параметры.ЗагруженыНовыеПользователи Тогда ПользователиСлужебный.ОбновитьСоставыГруппПользователей(Справочники.ГруппыПользователей.ВсеПользователи); КонецЕсли; //Обработаем загруженные соглашения клиентов //Заполним служебный реквизит Вариант расчета цен Для Каждого ЗагруженноеСоглашение Из Параметры.МассивЗагруженныхСоглашений Цикл Если ОбщегоНазначения.СсылкаСуществует(ЗагруженноеСоглашение.Ссылка) Тогда Соглашение = ЗагруженноеСоглашение.Ссылка.ПолучитьОбъект(); Иначе Соглашение = ЗагруженноеСоглашение; КонецЕсли; Соглашение.ЗаполнитьВариантРасчетаЦен(); Соглашение.ОбменДанными.Загрузка = Истина; Соглашение.Записать(); КонецЦикла; Выполнить(Алгоритмы.ОбновитьНаборыСвойствПартнеров); Выполнить(Алгоритмы.ОбновитьНаборыСвойствНоменклатуры); Выполнить(Алгоритмы.ПартнерыПослеЗаписи); Выполнить(Алгоритмы.ЗаполнитьНастройкиКонтроляОстатковУСкладов); Выполнить(Алгоритмы.ВыполнитьПроведениеДокументов); Константы.КонтролироватьУникальностьРабочегоНаименованияНоменклатурыИХарактеристик.Установить(Истина); ПараметрыПослеЗагрузкиДанных = ОбменДаннымиУТ.ПараметрыПослеЗагрузкиДанных(); ОбменДаннымиУТ.ПослеЗагрузкиДанных(ПараметрыПослеЗагрузкиДанных); <Параметры> <Параметр Имя="БанковскиеВыпискиКФормированию " Наименование="БанковскиеВыпискиКФормированию" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ВариантКонтроляОстатков " Наименование="ВариантКонтроляОстатков" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ДатаНачалаСценария " Наименование="ДатаНачалаСценария" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Дата" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ДатаОкончанияСценария " Наименование="ДатаОкончанияСценария" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Дата" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ДополнительныеРеквизитыКонтрагентов " Наименование="ДополнительныеРеквизитыКонтрагентов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ДополнительныеРеквизитыНоменклатуры " Наименование="ДополнительныеРеквизитыНоменклатуры" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ИспользоватьОстаткиПоПартиям " Наименование="ИспользоватьОстаткиПоПартиям" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ИспользоватьСоглашенияСКлиентами " Наименование="ИспользоватьСоглашенияСКлиентами" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ИспользоватьСоглашенияСПоставщиками " Наименование="ИспользоватьСоглашенияСПоставщиками" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ИспользоватьСтатусыВЗаказахКлиентов " Наименование="ИспользоватьСтатусыВЗаказахКлиентов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ИспользоватьСтатусыВЗаказахПоставщикам " Наименование="ИспользоватьСтатусыВЗаказахПоставщикам" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ИспользоватьУпаковки " Наименование="ИспользоватьУпаковки" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="КоличествоКонтрагентовДляЮрФизЛиц " Наименование="КоличествоКонтрагентовДляЮрФизЛиц" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="НезависимоВестиПартнеровИКонтрагентов " Наименование="НезависимоВестиПартнеровИКонтрагентов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="НоменклатураСУпаковками " Наименование="НоменклатураСУпаковками" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ПервыеИПоследниеДокументыПоДоговорам " Наименование="ПервыеДокументыПоДоговорам" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ПоследниеОтчетыКомитентамПоДоговорам " Наименование="ПоследниеОтчетыКомитентамПоДоговорам" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="РазделительТелефонов " Наименование="РазделительТелефонов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СоответствиеКонтрагентыЮрЛицо " Наименование="СоответствиеКонтрагентыЮрЛицо" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СписокНоменклатурыСНомерамиГТД " Наименование="СписокНоменклатурыСНомерамиГТД" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СтатистикаВозвратыОтПодотчетников " Наименование="СтатистикаВозвратыОтПодотчетников" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СтатистикаПерерасходовПодотчетников " Наименование="СтатистикаПерерасходовПодотчетников" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СтатистикаПоДвижениямДенежныхСредств " Наименование="СтатистикаПоДвижениямДенежныхСредств" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СтатистикаПоДоговорам_СортДоговор " Наименование="ПараметрыДоговоровКонтрагентов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СтатистикаПоДоговорам_СортКонтрагент " Наименование="ПараметрыДоговоровКонтрагентов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="Сценарий_ПереносДокументов " Наименование="Сценарий_ПереносДокументов" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="Сценарий_ПереносОстатков " Наименование="Сценарий_ПереносОстатков" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТабКонтрагентыСкладыНТТ " Наименование="ТабКонтрагентыСкладыНТТ" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТаблицаВзаиморасчетовСРозничнымиТочками " Наименование="ТаблицаВзаиморасчетовСРозничнымиТочками" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ЭтапПереноса " Наименование="ЭтапПереноса" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ЭтоПереходНаБазовуюВерсию " Наименование="ЭтоПереходНаБазовуюВерсию" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Число" ПередаватьПараметрПриВыгрузке="false"/> <Обработки/> <ПравилаКонвертацииОбъектов> <Правило> <Код>КонстантыНабор <Наименование>Набор констант: Набор констант <Порядок>50 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ИспользоватьПартнеровИКонтрагентов", 0); ВходящиеДанные.Установить("ИспользоватьПартнеровКакКонтрагентов", 1); Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 1 Тогда ВходящиеДанные.Установить("ИспользоватьПартнеровИКонтрагентов", 1); ВходящиеДанные.Установить("ИспользоватьПартнеровКакКонтрагентов", 0); КонецЕсли; ВходящиеДанные.Установить("ИспользоватьСтатусыЗаказовПоставщикам", Параметры.ИспользоватьСтатусыВЗаказахПоставщикам); <ПослеЗагрузки>Параметры.Вставить("ЗагруженыНастройки"); Отказ = Истина; Если Объект.ИспользоватьСтатусыЗаказовПоставщикам И Не Объект.ИспользоватьЗаказыПоставщикам Тогда Объект.ИспользоватьЗаказыПоставщикам = Истина; КонецЕсли; Если Объект.НеЗакрыватьЗаказыКлиентовБезПолнойОплаты И Не Объект.НеЗакрыватьЗаказыКлиентовБезПолнойОтгрузки Тогда Объект.ИспользоватьЗаказыКлиентов = Истина; КонецЕсли; ПереченьКонстант = Новый Массив; ПереченьКонстант.Добавить("ВалютаРегламентированногоУчета"); ПереченьКонстант.Добавить("ВалютаУправленческогоУчета"); ПереченьКонстант.Добавить("ДополнительнаяКолонкаПечатныхФормДокументов"); ПереченьКонстант.Добавить("ИспользоватьЗаказыКлиентов"); ПереченьКонстант.Добавить("ИспользоватьЗаказыПоставщикам"); ПереченьКонстант.Добавить("ИспользоватьКомиссиюПриЗакупках"); ПереченьКонстант.Добавить("ИспользоватьКомиссиюПриПродажах"); ПереченьКонстант.Добавить("ИспользоватьДоверенностиНаПолучениеТМЦ"); ПереченьКонстант.Добавить("ИспользоватьКоммерческиеПредложенияКлиентам"); ПереченьКонстант.Добавить("ИспользоватьРозничныеПродажи"); ПереченьКонстант.Добавить("ИспользоватьУпаковкиНоменклатуры"); ПереченьКонстант.Добавить("ИспользоватьДополнительныеРеквизитыИСведения"); ПереченьКонстант.Добавить("ИспользоватьАвтоматическиеСкидкиВПродажах"); ПереченьКонстант.Добавить("КонтролироватьОстаткиТоваровОрганизаций"); ПереченьКонстант.Добавить("ИспользоватьИмпортныеЗакупки"); ПереченьКонстант.Добавить("ИспользоватьПеремещениеТоваров"); ПереченьКонстант.Добавить("ИспользоватьСборкуРазборку"); ПереченьКонстант.Добавить("ИспользованиеСоглашенийСКлиентами"); ПереченьКонстант.Добавить("ИспользоватьИндивидуальныеСоглашенияСКлиентами"); ПереченьКонстант.Добавить("ИспользоватьСделкиСКлиентами"); ПереченьКонстант.Добавить("ИспользоватьТиповыеИИндивидуальныеСоглашенияСКлиентами"); ПереченьКонстант.Добавить("ИспользоватьТиповыеСоглашенияСКлиентами"); ПереченьКонстант.Добавить("ИспользоватьПартнеровИКонтрагентов"); ПереченьКонстант.Добавить("ИспользоватьПартнеровКакКонтрагентов"); ПереченьКонстант.Добавить("ИспользоватьСтатусыЗаказовПоставщикам"); ПереченьКонстант.Добавить("ИспользоватьСтатусыЗаказовНаВнутреннееПотребление"); ПереченьКонстант.Добавить("ИспользоватьСтатусыЗаказовНаПеремещение"); ПереченьКонстант.Добавить("ИспользоватьСтатусыЗаказовНаСборку"); ПереченьКонстант.Добавить("ИспользоватьСтатусыПеремещенийТоваров"); ПереченьКонстант.Добавить("ИспользоватьСтатусыРеализацийТоваровУслуг"); ПереченьКонстант.Добавить("ИспользоватьСтатусыСборокТоваров"); ПереченьКонстант.Добавить("ИспользоватьМногооборотнуюТару"); ПереченьКонстант.Добавить("ИспользоватьСоглашенияСКлиентами"); ПереченьКонстант.Добавить("НеЗакрыватьЗаказыКлиентовБезПолнойОплаты"); ПереченьКонстант.Добавить("НеЗакрыватьЗаказыКлиентовБезПолнойОтгрузки"); ПереченьКонстант.Добавить("ИспользоватьПодразделения"); ПереченьКонстант.Добавить("ИспользоватьНесколькоВидовНоменклатуры"); ПереченьКонстант.Добавить("ИспользоватьНаборы"); ПереченьКонстант.Добавить("ИспользоватьРасширенныеВозможностиЗаказаКлиента"); ПереченьКонстант.Добавить("ИспользоватьПострочнуюОтгрузкуВЗаказеКлиента"); ПереченьКонстант.Добавить("ИспользоватьДоговорыСКлиентами"); ПереченьКонстант.Добавить("ИспользоватьДоговорыСПоставщиками"); ПереченьКонстант.Добавить("ИспользоватьПричиныОтменыЗаказовПоставщикам"); ПереченьКонстант.Добавить("ИспользоватьПричиныОтменыЗаказовКлиентов"); Для Каждого Константа Из ПереченьКонстант Цикл КонстантаМенеджерЗначения = Константы[Константа].СоздатьМенеджерЗначения(); КонстантаМенеджерЗначения.Значение = Объект[Константа]; ЗаписатьОбъектВИБ(КонстантаМенеджерЗначения, ТипЗнч(КонстантаМенеджерЗначения)); КонецЦикла <НеЗапоминатьВыгруженные>true <Источник>КонстантыНабор <Приемник>КонстантыНабор <Свойства> <Свойство> <Код>2 <Наименование>ВалютаБухУчета --> ВалютаРегламентированногоУчета <Порядок>50 <Источник Имя="ВалютаБухУчета" Вид="Свойство" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаРегламентированногоУчета" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>3 <Наименование>ВалютаУпрУчета --> ВалютаУправленческогоУчета <Порядок>100 <Источник Имя="ВалютаУпрУчета" Вид="Свойство" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаУправленческогоУчета" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>8 <Наименование> --> ДополнительнаяКолонкаПечатныхФормДокументов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ДополнительнаяКолонкаПечатныхФормДокументов" Вид="Реквизит" Тип="ПеречислениеСсылка.ДополнительнаяКолонкаПечатныхФормДокументов"/> <ПередВыгрузкой>Если Константа.ПоказыватьАртикул = 1 Тогда Значение = "Артикул"; Иначе Значение = "НеВыводить"; КонецЕсли; <Свойство> <Код>4 <Наименование>--> ИспользоватьЗаказыКлиентов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьЗаказыКлиентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Если в системе есть хотя бы один документ "Заявка покупателя", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.ЗаявкаПокупателя"); Значение = ДокЗаявкаПокупателя.ВыбратьДокументы(); <Свойство> <Код>5 <Наименование>--> ИспользоватьЗаказыПоставщикам <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьЗаказыПоставщикам" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Если в системе есть хотя бы один документ "Заказ поставщику", то считается, что заказы поставщикам используются ДокЗаказПоставщику = СоздатьОбъект("Документ.ЗаказПоставщику"); Значение = ДокЗаказПоставщику.ВыбратьДокументы(); <Свойство> <Код>6 <Наименование>--> ИспользоватьКомиссиюПриЗакупках <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьКомиссиюПриЗакупках" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Устанавливаем ФО если в базе есть хотя бы один документ приема на комиссию Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриЗакупках) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.ПоступлениеТМЦ.ТекущийДокумент, Документ.ПоступлениеТМЦРозница.ТекущийДокумент; |КодОперации = Документ.ПоступлениеТМЦ.КодОперации, Документ.ПоступлениеТМЦРозница.КодОперации; |Группировка ТекущийДокумент; |Условие((КодОперации = Перечисление.КодыОпераций.ПриемНаРеализацию) |ИЛИ (КодОперации = Перечисление.КодыОпераций.ПриемНаРеализациюРозница)); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); <Свойство> <Код>7 <Наименование>--> ИспользоватьКомиссиюПриПродажах <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьКомиссиюПриПродажах" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Устанавливаем ФО если в базе есть хотя бы один документ передачи на комиссию Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриПродаже) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.Реализация.ТекущийДокумент, Документ.РеализацияРозница.ТекущийДокумент; |КодОперации = Документ.Реализация.КодОперации, Документ.РеализацияРозница.КодОперации; |Группировка ТекущийДокумент; |Условие(КодОперации = Перечисление.КодыОпераций.ПередачаНаРеализацию); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); <Свойство> <Код>9 <Наименование>--> ИспользоватьДоверенностиНаПолучениеТМЦ <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьДоверенностиНаПолучениеТМЦ" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Если в системе есть хотя бы один документ "Доверенность", то считается, что доверенности используются ДокДоверенность = СоздатьОбъект("Документ.Доверенность"); Значение = ДокДоверенность.ВыбратьДокументы(); <Свойство> <Код>10 <Наименование>--> ИспользоватьКоммерческиеПредложенияКлиентам <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьКоммерческиеПредложенияКлиентам" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Устанавливаем ФО если в базе есть хотя бы одна заявка покупателя с операцией "Неподтвержденная заявка" Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриЗакупках) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.ЗаявкаПокупателя.ТекущийДокумент; |ВидОперации = Документ.ЗаявкаПокупателя.ВидОперации; |Группировка ТекущийДокумент; |Условие(ВидОперации = Перечисление.ВидыОперацийЗаявок.Неподтвержденная); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); Иначе Значение = 0; КонецЕсли; <Свойство> <Код>11 <Наименование> --> ИспользоватьРозничныеПродажи <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьРозничныеПродажи" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Устанавливаем ФО если в базе есть хотя бы один отчет ККМ или продажа по принятой выручке Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриЗакупках) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.ОтчетККМ.ТекущийДокумент,Документ.РеализацияРозница.ТекущийДокумент,Документ.ЧекККМ.ТекущийДокумент; |КодОперации = Документ.РеализацияРозница.КодОперации; |Группировка ТекущийДокумент; |Условие((КодОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам) |ИЛИ (ПустоеЗначение(КодОперации) = 1)); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); <Свойство> <Код>12 <Наименование> --> ИспользоватьУпаковкиНоменклатуры <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьУпаковкиНоменклатуры" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Устанавливаем ФО если в базе есть единицы измерения, которые могли бы быть // выгружены по правилу конверации единиц измерения в упаковки номенклатуры Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; Если Параметры.ИспользоватьУпаковки = -1 Тогда УстновитьПараметрИспользоватьУпаковки(); КонецЕсли; Значение = Параметры.ИспользоватьУпаковки; <Свойство> <Код>13 <Наименование> --> ИспользоватьДополнительныеРеквизитыИСведения <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьДополнительныеРеквизитыИСведения" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если (ПустоеЗначение(Константа.ВидСвойстваКонтрагентов) = 0) ИЛИ (ПустоеЗначение(Константа.ВидСвойстваНоменклатуры) = 0) Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>15 <Наименование>--> ИспользоватьАвтоматическиеСкидкиВПродажах <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьАвтоматическиеСкидкиВПродажах" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Если в системе есть хотя бы один элемент справочника "Скидки", то считается, что скидки используются СпрСкидки = СоздатьОбъект("Справочник.Скидки"); Значение = СпрСкидки.ВыбратьЭлементы(); Иначе Значение = 0; КонецЕсли; <Свойство> <Код>14 <Наименование>КонтрольОтрицательныхОстатков --> КонтролироватьОстаткиТоваровОрганизаций <Порядок>700 <Источник Имя="КонтрольОтрицательныхОстатков" Вид="Свойство" Тип="ПеречислениеСсылка.СпособыКонтроляОстатковТМЦ"/> <Приемник Имя="КонтролироватьОстаткиТоваровОрганизаций" Вид="Реквизит" Тип="Булево"/> <ПриВыгрузке>Если Значение = Перечисление.СпособыКонтроляОстатковТМЦ.НеКонтролировать Тогда Значение = 0; ИначеЕсли (Значение = Перечисление.СпособыКонтроляОстатковТМЦ.ПоФирме) ИЛИ (Значение = Перечисление.СпособыКонтроляОстатковТМЦ.ПоЮрЛицу) Тогда Значение = 1; Иначе // Более сложная проверка ТабСоответствий = СоздатьОбъект("ТаблицаЗначений"); ТабСоответствий.НоваяКолонка("УпрАналитика"); ТабСоответствий.НоваяКолонка("ЮрЛицо"); ТабСоответствий.НоваяКолонка("Количество"); ТабЮрЛиц = СоздатьОбъект("ТаблицаЗначений"); СпрФирмы = СоздатьОбъект("Справочник.Фирмы"); СпрФирмы.ВыбратьЭлементы(); Пока СпрФирмы.ПолучитьЭлемент() = 1 Цикл ТабСоответствий.НоваяСтрока(); ТабСоответствий.УпрАналитика = СпрФирмы.УпрАналитика; ТабСоответствий.ЮрЛицо = СпрФирмы.ЮрЛицо; КонецЦикла; ТабСоответствий.Выгрузить(ТабЮрЛиц,,, "ЮрЛицо"); Значение = "1"; Если Значение = Перечисление.СпособыКонтроляОстатковТМЦ.ПоУпрАналитике Тогда ТабСоответствий.Свернуть("УпрАналитика,ЮрЛицо,Количество",""); ТабСоответствий.Заполнить(1,,, "Количество"); ТабСоответствий.Свернуть("УпрАналитика", "Количество"); // Если одна упр аналитика объединяет несколько юрлиц, то по отдельным юрлицам возможны отрицательные остатки Если ТабСоответствий.Итог("Количество") > ТабСоответствий.КоличествоСтрок() Тогда Значение = 0; КонецЕсли; ИначеЕсли Значение = Перечисление.СпособыКонтроляОстатковТМЦ.ПоКомпании Тогда ТабЮрЛиц.Свернуть("ЮрЛицо",""); // Если компания объединяет несколькоюрлиц, то по отдельным юрлицам возможны отрицательные остатки Если ТабЮрЛиц.КоличествоСтрок() > 1 Тогда Значение = 0; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>16 <Наименование>--> ИспользоватьИмпортныеЗакупки <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьИмпортныеЗакупки" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Устанавливаем ФО если в базе есть хотя бы один документ поступления по импорту Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьИмпортныеЗакупки) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.ПоступлениеТМЦИмпорт.ТекущийДокумент; |Группировка ТекущийДокумент; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); Иначе Значение = 0; КонецЕсли; <Свойство> <Код>17 <Наименование> --> ИспользоватьПеремещениеТоваров <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПеремещениеТоваров" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Если в системе есть хотя бы один документ "Перемещение ТМЦ", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.ПеремещениеТМЦ"); Значение = ДокЗаявкаПокупателя.ВыбратьДокументы(); <Свойство> <Код>18 <Наименование> --> ИспользоватьСборкуРазборку <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСборкуРазборку" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Если в системе есть хотя бы один документ "Комплектация ТМЦ", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.КомплектацияТМЦ"); Значение = ДокЗаявкаПокупателя.ВыбратьДокументы(); <Свойство> <Код>19 <Наименование>--> ИспользованиеСоглашенийСКлиентами <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользованиеСоглашенийСКлиентами" Вид="Реквизит" Тип="ПеречислениеСсылка.ИспользованиеСоглашенийСКлиентами"/> <ПередВыгрузкой>Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 тогда Значение = "ТиповыеИИндивидуальныеСоглашения"; Иначе Значение = "НеИспользовать"; КонецЕсли; <Свойство> <Код>20 <Наименование> --> ИспользоватьИндивидуальныеСоглашенияСКлиентами <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьИндивидуальныеСоглашенияСКлиентами" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>21 <Наименование>--> ИспользоватьСделкиСКлиентами <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСделкиСКлиентами" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Устанавливаем ФО если в базе есть хотя бы одна неподтвержденная заявка клиента Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьСделкиСКлиентами) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.ЗаявкаПокупателя.ТекущийДокумент; |ВидОперации = Документ.ЗаявкаПокупателя.ВидОперации; |Группировка ТекущийДокумент; |Условие(ВидОперации = Перечисление.ВидыОперацийЗаявок.Неподтвержденная); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); Иначе Значение = 0; КонецЕсли; <Свойство> <Код>22 <Наименование> --> ИспользоватьТиповыеИИндивидуальныеСоглашенияСКлиентами <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьТиповыеИИндивидуальныеСоглашенияСКлиентами" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>23 <Наименование> --> ИспользоватьТиповыеСоглашенияСКлиентами <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьТиповыеСоглашенияСКлиентами" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>24 <Наименование>--> ИспользоватьПартнеровИКонтрагентов <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПартнеровИКонтрагентов" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>25 <Наименование>--> ИспользоватьПартнеровКакКонтрагентов <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПартнеровКакКонтрагентов" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>27 <Наименование>--> ИспользоватьСтатусыЗаказовПоставщикам <Порядок>1300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСтатусыЗаказовПоставщикам" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>28 <Наименование> --> ИспользоватьСтатусыЗаказовНаВнутреннееПотребление <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСтатусыЗаказовНаВнутреннееПотребление" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>31 <Наименование> --> ИспользоватьСтатусыЗаказовНаПеремещение <Порядок>1500 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСтатусыЗаказовНаПеремещение" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>32 <Наименование> --> ИспользоватьСтатусыЗаказовНаСборку <Порядок>1550 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСтатусыЗаказовНаСборку" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>34 <Наименование> --> ИспользоватьСтатусыПеремещенийТоваров <Порядок>1650 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСтатусыПеремещенийТоваров" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>35 <Наименование> --> ИспользоватьСтатусыРеализацийТоваровУслуг <Порядок>1700 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСтатусыРеализацийТоваровУслуг" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>36 <Наименование> --> ИспользоватьСтатусыСборокТоваров <Порядок>1750 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСтатусыСборокТоваров" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>37 <Наименование>--> ИспользоватьМногооборотнуюТару <Порядок>1800 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьМногооборотнуюТару" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда Значение = 0; ВидНоменклатурыТара = Перечисление.ВидыНоменклатуры.Тара; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ИспользоватьМногооборотнуюТару) |Без итогов; |ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент; |ВидНоменклатуры = Справочник.Номенклатура.ВидНоменклатуры; |Группировка ТекущийЭлемент без упорядочивания без групп; |Условие(ВидНоменклатуры = ВидНоменклатурыТара); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда Если Запрос.Группировка() = 1 Тогда Значение = 1; КонецЕсли; КонецЕсли; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>38 <Наименование>--> ИспользоватьСоглашенияСКлиентами <Порядок>1850 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьСоглашенияСКлиентами" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>39 <Наименование>--> НеЗакрыватьЗаказыКлиентовБезПолнойОплаты <Порядок>1900 <Источник Имя="" Вид=""/> <Приемник Имя="НеЗакрыватьЗаказыКлиентовБезПолнойОплаты" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Если в системе есть хотя бы один документ "Заявка покупателя", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.ЗаявкаПокупателя"); ЕстьЗаказы = ДокЗаявкаПокупателя.ВыбратьДокументы(); Если ЕстьЗаказы = 1 Тогда Значение = Параметры.ИспользоватьСтатусыВЗаказахКлиентов; Иначе Значение = 0; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>40 <Наименование>--> НеЗакрыватьЗаказыКлиентовБезПолнойОтгрузки <Порядок>1950 <Источник Имя="" Вид=""/> <Приемник Имя="НеЗакрыватьЗаказыКлиентовБезПолнойОтгрузки" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Если в системе есть хотя бы один документ "Заявка покупателя", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.ЗаявкаПокупателя"); ЕстьЗаказы = ДокЗаявкаПокупателя.ВыбратьДокументы(); Если ЕстьЗаказы = 1 Тогда Значение = Параметры.ИспользоватьСтатусыВЗаказахКлиентов; Иначе Значение = 0; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>41 <Наименование>--> ИспользоватьПодразделения <Порядок>2000 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПодразделения" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда Значение = 1; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>42 <Наименование>--> ИспользоватьНесколькоВидовНоменклатуры <Порядок>2050 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьНесколькоВидовНоменклатуры" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>43 <Наименование>--> ИспользоватьНаборы <Порядок>2100 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьНаборы" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда Значение = 1; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>44 <Наименование>--> ИспользоватьРасширенныеВозможностиЗаказаКлиента <Порядок>2150 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьРасширенныеВозможностиЗаказаКлиента" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Если в системе есть хотя бы один документ "Заявка покупателя", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.ЗаявкаПокупателя"); ЕстьЗаказы = ДокЗаявкаПокупателя.ВыбратьДокументы(); Если ЕстьЗаказы = 1 Тогда Значение = Параметры.ИспользоватьСтатусыВЗаказахКлиентов; Иначе Значение = 0; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>45 <Наименование>--> ИспользоватьПострочнуюОтгрузкуВЗаказеКлиента <Порядок>2200 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПострочнуюОтгрузкуВЗаказеКлиента" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Если в системе есть хотя бы один документ "Заявка покупателя", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.ЗаявкаПокупателя"); ЕстьЗаказы = ДокЗаявкаПокупателя.ВыбратьДокументы(); Если ЕстьЗаказы = 1 Тогда Значение = Параметры.ИспользоватьСтатусыВЗаказахКлиентов; Иначе Значение = 0; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>46 <Наименование>--> ИспользоватьДоговорыСКлиентами <Порядок>2250 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьДоговорыСКлиентами" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда Значение = 1; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>47 <Наименование>--> ИспользоватьКомиссиюПриПродажахБазовая <Порядок>2300 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьКомиссиюПриПродажахБазовая" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда // Устанавливаем ФО если в базе есть хотя бы один документ передачи на комиссию Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриПродаже) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.Реализация.ТекущийДокумент, Документ.РеализацияРозница.ТекущийДокумент; |КодОперации = Документ.Реализация.КодОперации, Документ.РеализацияРозница.КодОперации; |Группировка ТекущийДокумент; |Условие(КодОперации = Перечисление.КодыОпераций.ПередачаНаРеализацию); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>48 <Наименование>--> ИспользоватьКомиссиюПриПродажахНеБазовая <Порядок>2350 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьКомиссиюПриПродажахНеБазовая" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Устанавливаем ФО если в базе есть хотя бы один документ передачи на комиссию Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриПродаже) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.Реализация.ТекущийДокумент, Документ.РеализацияРозница.ТекущийДокумент; |КодОперации = Документ.Реализация.КодОперации, Документ.РеализацияРозница.КодОперации; |Группировка ТекущийДокумент; |Условие(КодОперации = Перечисление.КодыОпераций.ПередачаНаРеализацию); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>49 <Наименование>--> ИспользоватьКомиссиюПриЗакупкахБазовая <Порядок>2400 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьКомиссиюПриЗакупкахБазовая" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда // Устанавливаем ФО если в базе есть хотя бы один документ приема на комиссию Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриЗакупках) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.ПоступлениеТМЦ.ТекущийДокумент, Документ.ПоступлениеТМЦРозница.ТекущийДокумент; |КодОперации = Документ.ПоступлениеТМЦ.КодОперации, Документ.ПоступлениеТМЦРозница.КодОперации; |Группировка ТекущийДокумент; |Условие((КодОперации = Перечисление.КодыОпераций.ПриемНаРеализацию) |ИЛИ (КодОперации = Перечисление.КодыОпераций.ПриемНаРеализациюРозница)); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>50 <Наименование>--> ИспользоватьКомиссиюПриЗакупкахНеБазовая <Порядок>2450 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьКомиссиюПриЗакупкахНеБазовая" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Устанавливаем ФО если в базе есть хотя бы один документ приема на комиссию Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ФОИспользоватьКомиссиюПриЗакупках) |ОбрабатыватьДокументы все; |Без итогов; |ТекущийДокумент = Документ.ПоступлениеТМЦ.ТекущийДокумент, Документ.ПоступлениеТМЦРозница.ТекущийДокумент; |КодОперации = Документ.ПоступлениеТМЦ.КодОперации, Документ.ПоступлениеТМЦРозница.КодОперации; |Группировка ТекущийДокумент; |Условие((КодОперации = Перечисление.КодыОпераций.ПриемНаРеализацию) |ИЛИ (КодОперации = Перечисление.КодыОпераций.ПриемНаРеализациюРозница)); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Значение = Запрос.Группировка(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>52 <Наименование>--> ИспользоватьДоговорыСПоставщиками <Порядок>2500 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьДоговорыСПоставщиками" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>53 <Наименование>--> ИспользоватьПричиныОтменыЗаказовКлиентов <Порядок>2550 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПричиныОтменыЗаказовКлиентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 0 Тогда // Если в системе есть хотя бы один документ "Заявка покупателя", то считается, что заказы клиентов используются ДокЗаявкаПокупателя = СоздатьОбъект("Документ.ЗаявкаПокупателя"); ЕстьЗаказы = ДокЗаявкаПокупателя.ВыбратьДокументы(); Если ЕстьЗаказы = 1 Тогда Значение = Параметры.ИспользоватьСтатусыВЗаказахКлиентов; Иначе Значение = 0; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>54 <Наименование>--> ИспользоватьПричиныОтменыЗаказовПоставщикам <Порядок>2600 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПричиныОтменыЗаказовПоставщикам" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>// Если в системе есть хотя бы один документ "Заказ поставщику", то считается, что заказы поставщикам используются ДокЗаказПоставщику = СоздатьОбъект("Документ.ЗаказПоставщику"); Значение = ДокЗаказПоставщику.ВыбратьДокументы(); <Значения/> <Группа> <Код>Перечисления <Наименование>Перечисления <Порядок>100 <Правило> <Код>ТипыНоменклатуры <Наименование>Перечисление: Виды номенклатуры <Порядок>50 <Источник>ПеречислениеСсылка.ВидыНоменклатуры <Приемник>ПеречислениеСсылка.ТипыНоменклатуры <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Услуга --> Услуга <Порядок>50 <Источник>Услуга <Приемник>Услуга <Значение> <Код>6 <Наименование>Работа --> Услуга <Порядок>100 <Источник>Работа <Приемник>Работа <Значение> <Код>2 <Наименование>Запчасть --> Товар <Порядок>150 <Источник>Запчасть <Приемник>Товар <Значение> <Код>3 <Наименование>Инвентарь --> Товар <Порядок>200 <Источник>Инвентарь <Приемник>Товар <Значение> <Код>4 <Наименование>Полуфабрикат --> Товар <Порядок>250 <Источник>Полуфабрикат <Приемник>Товар <Значение> <Код>5 <Наименование>Прочее --> Товар <Порядок>300 <Источник>Прочее <Приемник>Товар <Значение> <Код>7 <Наименование>Спецматериал --> Товар <Порядок>350 <Источник>Спецматериал <Приемник>Товар <Значение> <Код>8 <Наименование>Стройматериал --> Товар <Порядок>400 <Источник>Стройматериал <Приемник>Товар <Значение> <Код>9 <Наименование>Сырье --> Товар <Порядок>450 <Источник>Сырье <Приемник>Товар <Значение> <Код>10 <Наименование>Тара --> Товар <Порядок>500 <Источник>Тара <Приемник>МногооборотнаяТара <Значение> <Код>11 <Наименование>Топливо --> Товар <Порядок>550 <Источник>Топливо <Приемник>Товар <Правило> <Код>ТипыНоменклатурыБазовой <Наименование>Перечисление: Виды номенклатуры <Порядок>100 <Источник>ПеречислениеСсылка.ВидыНоменклатуры <Приемник>ПеречислениеСсылка.ТипыНоменклатуры <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Работа --> Работа <Порядок>50 <Источник>Работа <Приемник>Услуга <Значение> <Код>2 <Наименование>Услуга --> Услуга <Порядок>100 <Источник>Услуга <Приемник>Услуга <Значение> <Код>3 <Наименование>Запчасть --> Товар <Порядок>150 <Источник>Запчасть <Приемник>Товар <Значение> <Код>4 <Наименование>Инвентарь --> Товар <Порядок>200 <Источник>Инвентарь <Приемник>Товар <Значение> <Код>5 <Наименование>Полуфабрикат --> Товар <Порядок>250 <Источник>Полуфабрикат <Приемник>Товар <Значение> <Код>6 <Наименование>Прочее --> Товар <Порядок>300 <Источник>Прочее <Приемник>Товар <Значение> <Код>7 <Наименование>Спецматериал --> Товар <Порядок>350 <Источник>Спецматериал <Приемник>Товар <Значение> <Код>8 <Наименование>Стройматериал --> Товар <Порядок>400 <Источник>Стройматериал <Приемник>Товар <Значение> <Код>9 <Наименование>Сырье --> Товар <Порядок>450 <Источник>Сырье <Приемник>Товар <Значение> <Код>10 <Наименование>Тара --> Товар <Порядок>500 <Источник>Тара <Приемник>Товар <Значение> <Код>11 <Наименование>Топливо --> Товар <Порядок>550 <Источник>Топливо <Приемник>Товар <Правило> <Код>СтавкиНДС <Наименование>Перечисление: Ставки НДС <Порядок>100 <Источник>ПеречислениеСсылка.СтавкиНДС <Приемник>ПеречислениеСсылка.СтавкиНДС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>БезНДС --> БезНДС <Порядок>50 <Источник>БезНДС <Приемник>БезНДС <Значение> <Код>2 <Наименование>НДС10 --> НДС10 <Порядок>100 <Источник>НДС10 <Приемник>НДС10 <Значение> <Код>3 <Наименование>НДС10_110 --> НДС10_110 <Порядок>150 <Источник>НДС10_110 <Приемник>НДС10_110 <Значение> <Код>4 <Наименование>НДС18 --> НДС18 <Порядок>200 <Источник>НДС18 <Приемник>НДС18 <Значение> <Код>5 <Наименование>НДС18_118 --> НДС18_118 <Порядок>250 <Источник>НДС18_118 <Приемник>НДС18_118 <Значение> <Код>6 <Наименование>НДС16_67 --> БезНДС <Порядок>300 <Источник>НДС16_67 <Приемник>НДС18 <Значение> <Код>7 <Наименование>НДС20 --> БезНДС <Порядок>350 <Источник>НДС20 <Приемник>НДС18 <Значение> <Код>8 <Наименование>НДС20_120 --> БезНДС <Порядок>400 <Источник>НДС20_120 <Приемник>НДС18 <Значение> <Код>9 <Наименование>НДС9_09 --> БезНДС <Порядок>450 <Источник>НДС9_09 <Приемник>НДС18 <Правило> <Код>СпособыРасчетаКомиссионногоВознаграждения <Наименование>Перечисление: Способы расчета вознаграждения <Порядок>150 <Источник>ПеречислениеСсылка.СпособыРасчетаВознаграждения <Приемник>ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ПроцентОтПрибыли --> ПроцентОтРазностиСуммыПродажи <Порядок>50 <Источник>ПроцентОтПрибыли <Приемник>ПроцентОтРазностиСуммыПродажиИСуммыКомитента <Значение> <Код>2 <Наименование>ПроцентОтПродаж --> ПроцентОтСуммыПродажи <Порядок>100 <Источник>ПроцентОтПродаж <Приемник>ПроцентОтСуммыПродажи <Значение> <Код>3 <Наименование>Ручное --> НеРассчитывается <Порядок>150 <Источник>Ручное <Приемник>ПроцентОтРазностиСуммыПродажиИСуммыКомитента <Правило> <Код>РежимыККМ_ТипыКассККМ <Наименование>Перечисление: <Порядок>200 <Источник>ПеречислениеСсылка.РежимыККМ <Приемник>ПеречислениеСсылка.ТипыКассККМ <Свойства/> <Значения> <Значение> <Код>1 <Наименование>OffLine --> АвтономнаяККМ <Порядок>50 <Источник>OffLine <Приемник>АвтономнаяККМ <Значение> <Код>2 <Наименование>OnLine --> АвтономнаяККМ <Порядок>100 <Источник>OnLine <Приемник>АвтономнаяККМ <Значение> <Код>3 <Наименование>ФР --> ФискальныйРегистратор <Порядок>150 <Источник>ФР <Приемник>АвтономнаяККМ <Группа> <Код>Справочники <Наименование>Справочники <Порядок>150 <Группа> <Код>БазовыеКлассификаторы <Наименование>Базовые классификаторы <Порядок>50 <Группа> <Код>СправочникБанки <Наименование>Банки <Порядок>50 <Правило> <Код>Банки <Наименование>Справочник: Банки (классификатор БИК) <Порядок>50 <Источник>СправочникСсылка.Банки <Приемник>СправочникСсылка.КлассификаторБанков <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>8 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Родитель --> Родитель <Порядок>150 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>Банки <Свойство> <Код>5 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Адрес --> Адрес <Порядок>250 <Источник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>КоррСчет --> КоррСчет <Порядок>300 <Источник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Телефоны --> Телефоны <Порядок>350 <Источник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>Местонахождение --> Город <Порядок>400 <Источник Имя="Местонахождение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>НеизвестныйБанк <Наименование>Справочник: Банки (классификатор БИК) <Порядок>100 <Источник>СправочникСсылка.Банки <Приемник>СправочникСсылка.КлассификаторБанков <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "999999999"; <Свойство Поиск="true" Обязательное="true"> <Код>8 <Наименование>--> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПриВыгрузке>Значение = 0; <Свойство> <Код>5 <Наименование>--> Наименование <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Неизвестный банк"; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ЕдиницыИзмеренияПоиск <Наименование>Справочник: Классификатор единиц измерений <Порядок>100 <ПослеЗагрузки>Объект.Владелец = Справочники.НаборыУпаковок.БазовыеЕдиницыИзмерения; <НеСоздаватьЕслиНеНайден>true <Источник>СправочникСсылка.ОКЕИ <Приемник>СправочникСсылка.УпаковкиЕдиницыИзмерения <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Код <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Значения/> <Правило> <Код>ЕдиницыИзмерения <Наименование>Справочник: Классификатор единиц измерений <Порядок>150 <ПослеЗагрузки>Объект.Владелец = Справочники.НаборыУпаковок.БазовыеЕдиницыИзмерения; Объект.ТипИзмеряемойВеличины = Перечисления.ТипыИзмеряемыхВеличин.КоличествоШтук; <Источник>СправочникСсылка.ОКЕИ <Приемник>СправочникСсылка.УпаковкиЕдиницыИзмерения <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>5 <Наименование>--> Владелец <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>250 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>СтраныМира <Наименование>Справочник: Классификатор стран мира <Порядок>200 <Источник>СправочникСсылка.ОКСМ <Приемник>СправочникСсылка.СтраныМира <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Валюты <Наименование>Справочник: <Порядок>250 <ПослеЗагрузки>Параметры.ЗагруженыВалюты = Истина; <Источник>СправочникСсылка.Валюты <Приемник>СправочникСсылка.Валюты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>200 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>--> ЗагружаетсяИзИнтернета <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ЗагружаетсяИзИнтернета" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> СпособУстановкиКурса <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СпособУстановкиКурса" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыУстановкиКурсаВалюты"/> <ПередВыгрузкой>Значение = "ЗагрузкаИзИнтернета"; <Значения/> <Правило> <Код>КурсыВалют <Наименование>: <Порядок>300 <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.КурсыВалют <Свойства> <Свойство> <Код>1 <Наименование>--> Валюта <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Измерение" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>2 <Наименование>--> Кратность <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Кратность" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>3 <Наименование>--> Курс <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Курс" Вид="Ресурс" Тип="Число"/> <Свойство> <Код>4 <Наименование> --> Активность <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> Период <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <Значения/> <Группа> <Код>СтруктураПредприятия <Наименование>СтруктураПредприятия <Порядок>100 <Группа> <Код>ГруппаСклады <Наименование>ГруппаСклады <Порядок>50 <Правило> <Код>Склады <Наименование>Справочник: <Порядок>50 <ПослеЗагрузки>Параметры.ЗагруженыСклады = Истина; <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>8 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>4 <Наименование> --> УровеньОбслуживания <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="УровеньОбслуживания" Вид="Реквизит" Тип="ПеречислениеСсылка.УровниОбслуживания"/> <ПередВыгрузкой>Значение = "УровеньОбслуживания84_0"; <Свойство> <Код>5 <Наименование>РозничныйСклад --> ТипСклада <Порядок>200 <Источник Имя="РозничныйСклад" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ТипСклада" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыСкладов"/> <ПриВыгрузке>Значение = ?(Значение = 1, "РозничныйМагазин", "ОптовыйСклад"); <Свойство> <Код>10 <Наименование>РозничныйСклад --> РозничныйВидЦены <Порядок>250 <Источник Имя="РозничныйСклад" Вид="Реквизит" Тип="Число"/> <Приемник Имя="РозничныйВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ВидРозничнойЦеныДляСклада <ПриВыгрузке>Если Значение = 1 Тогда Значение = Источник; КонецЕсли; <Свойство> <Код>7 <Наименование>--> КонтролироватьОбеспечение <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КонтролироватьОбеспечение" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Константа.КонтрольОтрицательныхОстатков = Перечисление.СпособыКонтроляОстатковТМЦ.НеКонтролировать Тогда Значение = 0; Иначе Значение = 1; КонецЕсли; <Свойство> <Код>11 <Наименование> --> НастройкаАдресногоХранения <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НастройкаАдресногоХранения" Вид="Реквизит" Тип="ПеречислениеСсылка.НастройкиАдресногоХранения"/> <ПередВыгрузкой>Значение = "НеИспользовать"; <Свойство> <Код>9 <Наименование>МОЛ --> ТекущийОтветственный <Порядок>400 <Источник Имя="МОЛ" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ТекущийОтветственный" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>12 <Наименование> --> ВыборГруппы <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВыборГруппы" Вид="Реквизит" Тип="ПеречислениеСсылка.ВыборГруппыСкладов"/> <ПередВыгрузкой>Значение = "Запретить"; <Свойство> <Код>13 <Наименование>--> ИсточникИнформацииОЦенахДляПечати <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ИсточникИнформацииОЦенахДляПечати" Вид="Реквизит" Тип="ПеречислениеСсылка.ИсточникиИнформацииОЦенахДляПечати"/> <ПередВыгрузкой>Значение = "ПоСебестоимости"; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>550 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Склады_ПереносДанныхИзТиС <Наименование>Справочник: <Порядок>100 <ПослеЗагрузки>Параметры.ЗагруженыСклады = Истина; <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Неизвестный склад"; <Свойство Поиск="true" Обязательное="true"> <Код>7 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>3 <Наименование> --> УровеньОбслуживания <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="УровеньОбслуживания" Вид="Реквизит" Тип="ПеречислениеСсылка.УровниОбслуживания"/> <ПередВыгрузкой>Значение = "УровеньОбслуживания84_0"; <Свойство> <Код>4 <Наименование> --> ТипСклада <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ТипСклада" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыСкладов"/> <ПередВыгрузкой>Значение = "ОптовыйСклад"; <Свойство> <Код>6 <Наименование>--> КонтролироватьОбеспечение <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КонтролироватьОбеспечение" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Константа.КонтрольОтрицательныхОстатков = Перечисление.СпособыКонтроляОстатковТМЦ.НеКонтролировать Тогда Значение = 0; Иначе Значение = 1; КонецЕсли; <Свойство> <Код>8 <Наименование> --> ВыборГруппы <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВыборГруппы" Вид="Реквизит" Тип="ПеречислениеСсылка.ВыборГруппыСкладов"/> <ПередВыгрузкой>Значение = "Запретить"; <Свойство> <Код>9 <Наименование>--> ИсточникИнформацииОЦенахДляПечати <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ИсточникИнформацииОЦенахДляПечати" Вид="Реквизит" Тип="ПеречислениеСсылка.ИсточникиИнформацииОЦенахДляПечати"/> <ПередВыгрузкой>Значение = "ПоСебестоимости"; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Группа> <Код>ГруппаКассы <Наименование>ГруппаКассы <Порядок>100 <Правило> <Код>Кассы <Наименование>Справочник: <Порядок>50 <ПередВыгрузкой>Владелец = ВходящиеДанные.Получить("Владелец"); ВалютаДенежныхСредств = ВходящиеДанные.Получить("ВалютаДенежныхСредств"); КлючВыгружаемыхДанных = Источник.Наименование + ?(ПустоеЗначение(Владелец) = 0, Владелец.Код, "") + ?(ПустоеЗначение(ВалютаДенежныхСредств) = 0, ВалютаДенежныхСредств.Код, ""); <ПослеЗагрузки>Параметры.ЗагруженыКассы = Истина; <Источник>СправочникСсылка.Кассы <Приемник>СправочникСсылка.Кассы <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>--> Владелец <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>3 <Наименование>--> ВалютаДенежныхСредств <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование> --> РазрешитьПлатежиБезУказанияЗаявок <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="РазрешитьПлатежиБезУказанияЗаявок" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>Кассы_КассыККМ <Наименование>Справочник: <Порядок>100 <ПередВыгрузкой>Владелец = ВходящиеДанные.Получить("Владелец"); ВалютаДенежныхСредств = ВходящиеДанные.Получить("ВалютаДенежныхСредств"); Склад = ВходящиеДанные.Получить("Склад"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Владелец) = 0, Владелец.Код, "") + ?(ПустоеЗначение(ВалютаДенежныхСредств) = 0, ВалютаДенежныхСредств.Код, "") + ?(ПустоеЗначение(Склад) = 0, Склад.Код, ""); <Источник>СправочникСсылка.Кассы <Приемник>СправочникСсылка.КассыККМ <Свойства> <Свойство Поиск="true"> <Код>7 <Наименование>--> Владелец <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>5 <Наименование>--> ВалютаДенежныхСредств <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование>--> Склад <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>3 <Наименование>РежимККМ --> ТипКассы <Порядок>250 <Источник Имя="РежимККМ" Вид="Реквизит" Тип="ПеречислениеСсылка.РежимыККМ"/> <Приемник Имя="ТипКассы" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКассККМ"/> <КодПравилаКонвертации>РежимыККМ_ТипыКассККМ <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = Перечисление.РежимыККМ.OffLine; КонецЕсли; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Склады_КассыККМ <Наименование>Склады НТТ в кассы ККМ (автономные) <Порядок>150 <ПередВыгрузкой>Владелец = ВходящиеДанные.Получить("Владелец"); ВалютаДенежныхСредств = ВходящиеДанные.Получить("ВалютаДенежныхСредств"); КонтрагентДляВзаиморасчетов = ВходящиеДанные.Получить("КонтрагентДляВзаиморасчетов"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Владелец) = 0, Владелец.Код, "") + ?(ПустоеЗначение(ВалютаДенежныхСредств) = 0, ВалютаДенежныхСредств.Код, "") + ?(ПустоеЗначение(КонтрагентДляВзаиморасчетов) = 0, КонтрагентДляВзаиморасчетов.Код, ""); <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.КассыККМ <Свойства> <Свойство Поиск="true"> <Код>7 <Наименование>--> Владелец <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>5 <Наименование>--> ВалютаДенежныхСредств <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>КонтрагентДляВзаиморасчетов = ВходящиеДанные.Получить("КонтрагентДляВзаиморасчетов"); Значение = Значение + ?(ПустоеЗначение(КонтрагентДляВзаиморасчетов) = 0, " (" + КонтрагентДляВзаиморасчетов + ")", ""); <Свойство> <Код>4 <Наименование> --> Склад <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование> --> ТипКассы <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ТипКассы" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКассККМ"/> <ПередВыгрузкой>Значение = "АвтономнаяККМ"; <Свойство Отключить="true"> <Код>6 <Наименование>--> <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>СвоиЮрЛица_Организации <Наименование>Справочник: Собственные юридические лица <Порядок>150 <ПослеВыгрузки>ВыгрузитьПоПравилу(Источник,,,,"УчетнаяПолитикаОрганизаций"); <ПослеЗагрузки>Параметры.ЗагруженыОрганизации = Истина; <Источник>СправочникСсылка.СвоиЮрЛица <Приемник>СправочникСсылка.Организации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ИНН --> ИНН <Порядок>50 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ИндивидуальныйПредприниматель = 1 Тогда Значение = Лев(Источник.ИНН,12); Иначе Значение = Лев(Источник.ИНН,10); КонецЕсли; <Свойство Поиск="true"> <Код>10 <Наименование>--> КПП <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ИндивидуальныйПредприниматель = 0 Тогда Если Найти(Источник.ИНН, "\") <> 0 Тогда // найден разделитель Значение = Лев(Сред(Источник.ИНН, Найти(Источник.ИНН, "\") + 1), 9); Иначе Пусто = 1; КонецЕсли; Иначе Пусто = 1; КонецЕсли; <Свойство Поиск="true"> <Код>5 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>11 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>200 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>26 <Наименование>ПолнНаименование --> НаименованиеСокращенное <Порядок>250 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеСокращенное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>СвидетельствоДатаВыдачи --> СвидетельствоДатаВыдачи <Порядок>300 <Источник Имя="СвидетельствоДатаВыдачи" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="СвидетельствоДатаВыдачи" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>4 <Наименование>СвидетельствоСерияНомер --> СвидетельствоСерияНомер <Порядок>350 <Источник Имя="СвидетельствоСерияНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="СвидетельствоСерияНомер" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>ОГРН --> ОГРН <Порядок>400 <Источник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ОКАТО --> КодПоОКАТО <Порядок>450 <Источник Имя="ОКАТО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ОКПО --> КодПоОКПО <Порядок>500 <Источник Имя="ОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ПрефиксНомеровДокументов --> Префикс <Порядок>550 <Источник Имя="ПрефиксНомеровДокументов" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Префикс" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>--> ЮрФизЛицо <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПередВыгрузкой>Значение = ?(Источник.ИндивидуальныйПредприниматель = 0,"ЮрЛицо","ИндивидуальныйПредприниматель"); <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>650 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>27 <Наименование>ДатаРегистрации --> ДатаРегистрации <Порядок>700 <Источник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>28 <Наименование>--> РегистрацияВНалоговомОргане <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="РегистрацияВНалоговомОргане" Вид="Реквизит" Тип="СправочникСсылка.РегистрацииВНалоговомОргане"/> <КодПравилаКонвертации>РегистрацииВНалоговомОргане <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Код", Источник.КодИМНС); ИсходящиеДанные.Установить("НаименованиеИФНС", Источник.НаименованиеИМНС); ИсходящиеДанные.Установить("Владелец", Источник.ТекущийЭлемент()); ИсходящиеДанные.Установить("Наименование", Источник.НаименованиеИМНС); ИсходящиеДанные.Установить("АдресИМНС", Источник.АдресИМНС); Если Источник.ИндивидуальныйПредприниматель = 0 Тогда Если Найти(Источник.ИНН, "\") <> 0 Тогда ИсходящиеДанные.Установить("КПП", Лев(Сред(Источник.ИНН, Найти(Источник.ИНН, "\") + 1), 9)); Иначе ИсходящиеДанные.Установить("КПП", ""); КонецЕсли; Иначе ИсходящиеДанные.Установить("КПП", ""); КонецЕсли; Значение = ИсходящиеДанные; <Группа> <Код>13 <Наименование>--> КонтактнаяИнформация <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); КоллекцияОбъектов.НоваяКолонка("Тип"); Если ПустаяСтрока(Источник.ЮрАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ЮрАдрес); ВходящиеДанные.Установить("Вид", "ЮрАдресОрганизации"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ФактАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ФактАдрес); ВходящиеДанные.Установить("Вид", "ФактАдресОрганизации"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.Телефоны) = 0 Тогда ВходящиеДанные.Установить("Телефон", Источник.Телефоны); ВходящиеДанные.Установить("Родитель", "СправочникОрганизации"); ВыгрузитьТелефоны(); КонецЕсли; <Свойство> <Код>14 <Наименование>--> Вид <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыКонтактнойИнформации"; КонецЕсли; <Свойство> <Код>22 <Наименование> --> Тип <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Свойство> <Код>15 <Наименование> --> Город <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> ЗначенияПолей <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование> --> НомерТелефона <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование> --> НомерТелефонаБезКодов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> Представление <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование> --> Регион <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование> --> Страна <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>29 <Наименование>ОКВЭД --> КодОКВЭД <Порядок>850 <Источник Имя="ОКВЭД" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКВЭД" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>--> ЮридическоеФизическоеЛицо <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ЮридическоеФизическоеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮридическоеФизическоеЛицо"/> <ПередВыгрузкой>Значение = ?(Источник.ИндивидуальныйПредприниматель = 0,"ЮридическоеЛицо","ФизическоеЛицо"); <Значения/> <Правило> <Код>БанковскиеСчета_БанковскиеСчетаОрганизаций <Наименование>Справочник: Банковские счета <Порядок>200 <ПослеЗагрузки>Параметры.ЗагруженыРасчетныеСчета = Истина; <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчетаОрганизаций <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>НомерСчета --> НомерСчета <Порядок>50 <Источник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ЮрФизЛицо --> Владелец <Порядок>150 <Источник Имя="ЮрФизЛицо" Вид="Реквизит"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>Банк --> Банк <Порядок>200 <Источник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>Банки <Свойство> <Код>2 <Наименование>БанкДляРасчетов --> БанкДляРасчетов <Порядок>250 <Источник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>Банки <Свойство> <Код>6 <Наименование>ВалютаСчета --> ВалютаДенежныхСредств <Порядок>300 <Источник Имя="ВалютаСчета" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>7 <Наименование>МесяцПрописью --> ВариантВыводаМесяца <Порядок>350 <Источник Имя="МесяцПрописью" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВариантВыводаМесяца" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыВыводаМесяцаВДатеДокумента"/> <ПриВыгрузке>Значение = ?(Значение = 1, "Прописью", "Числом"); <Свойство> <Код>8 <Наименование>РеквизитыПлательщикаИлиПолучателя --> ТекстКорреспондента <Порядок>400 <Источник Имя="РеквизитыПлательщикаИлиПолучателя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстКорреспондента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>СуммаБез00Копеек --> ВыводитьСуммуБезКопеек <Порядок>450 <Источник Имя="СуммаБез00Копеек" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ВыводитьСуммуБезКопеек" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>--> ТипСчета <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ТипСчета" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыБанковскихСчетов"/> <ПередВыгрузкой>Значение = "Расчетный"; <Значения/> <Правило> <Код>СтруктураПредприятияПереносДанныхИзТиС <Наименование>: <Порядок>250 <Приемник>СправочникСсылка.СтруктураПредприятия <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Неизвестное подразделение"; <Свойство> <Код>2 <Наименование> --> ПометкаУдаления <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ОтветственныеЛицаОрганизаций <Наименование>: <Порядок>300 <Приемник>СправочникСсылка.ОтветственныеЛицаОрганизаций <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>--> Владелец <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>3 <Наименование>--> ОтветственноеЛицо <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОтветственноеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтветственныеЛицаОрганизаций"/> <Свойство Поиск="true"> <Код>1 <Наименование>--> ДатаНачала <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачала" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>5 <Наименование>--> ФизическоеЛицо <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ФизическоеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>2 <Наименование>--> ДатаОкончания <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаОкончания" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>4 <Наименование>--> ПравоПодписиПоДоверенности <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПравоПодписиПоДоверенности" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> Наименование <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>8 <Наименование>--> Должность <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Должность" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Значение = СокрЛП(ВходящиеДанные.Получить("ОтветственноеЛицо")); Иначе Отказ = 1; КонецЕсли; <Свойство Отключить="true"> <Код>9 <Наименование>--> ДолжностьСсылка <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ДолжностьСсылка" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>РегистрацииВНалоговомОргане <Наименование>: <Порядок>350 <ПослеЗагрузки>Организация = Объект.Владелец; НаборЗаписей = РегистрыСведений.РегистрацииВНалоговомОргане.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Организация.Установить(Организация); Запись = НаборЗаписей.Добавить(); Запись.Организация = Организация; Запись.РегистрацияВНалоговомОргане = Объект.Ссылка; НаборЗаписей.Записать(); <Приемник>СправочникСсылка.РегистрацииВНалоговомОргане <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Владелец <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>2 <Наименование>--> Код <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>--> КПП <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>--> Наименование <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>--> НаименованиеИФНС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеИФНС" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>6 <Наименование>--> КонтактнаяИнформация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); КоллекцияОбъектов.НоваяКолонка("Тип"); Если ПустаяСтрока(Источник.Получить("АдресИМНС")) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.Получить("АдресИМНС")); ВходящиеДанные.Установить("Вид", "АдресНалоговогоОргана"); ВыгрузитьСтрокуАдреса(); КонецЕсли; <Свойство> <Код>7 <Наименование>--> Вид <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <Свойство> <Код>8 <Наименование>--> Город <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>--> ЗначенияПолей <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>--> НомерТелефона <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>--> НомерТелефонаБезКодов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>--> Представление <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>--> Регион <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>--> Страна <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование>--> Тип <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Значения/> <Правило> <Код>УчетныеПолитикиОрганизаций <Наименование>: <Порядок>400 <Источник>СправочникСсылка.СвоиЮрЛица <Приемник>СправочникСсылка.УчетныеПолитикиОрганизаций <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>--> МетодОценкиСтоимостиТоваров <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="МетодОценкиСтоимостиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.МетодыОценкиСтоимостиТоваров"/> <ПередВыгрузкой>Если Источник.МетодРасчетаСебестоимости.Получить(ДатаНачала) = Перечисление.МетодыРасчетаСебестоимости.ПоСреднему Тогда Значение = "СредняяЗаМесяц"; Иначе Значение = "ФИФОВзвешеннаяОценка"; КонецЕсли; <Свойство> <Код>3 <Наименование>--> СистемаНалогообложения <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СистемаНалогообложения" Вид="Реквизит" Тип="ПеречислениеСсылка.СистемыНалогообложения"/> <ПередВыгрузкой>Если Источник.УчитыватьНДС = 1 Тогда Значение = "Общая"; Иначе Значение = "Упрощенная"; КонецЕсли; <Свойство> <Код>5 <Наименование>--> ПрименяетсяЕНВД <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПрименяетсяЕНВД" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Спр = СоздатьОбъект("Справочник.Склады"); Спр.ВыбратьЭлементы(); Значение = 0; Пока Спр.ПолучитьЭлемент() = 1 Цикл Если Спр.ОблагаетсяЕНВД = 1 Тогда Значение = 1; Прервать; КонецЕсли; КонецЦикла; <Свойство> <Код>6 <Наименование>--> ПравилоОтбораАвансовДляРегистрацииСчетовФактур <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилоОтбораАвансовДляРегистрацииСчетовФактур" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокРегистрацииСчетовФактурНаАванс"/> <ПередВыгрузкой>Значение = "КромеЗачтенныхВТечениеДня"; <Свойство> <Код>7 <Наименование>--> ВариантУчетаНДСПриИзмененииВидаДеятельности <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантУчетаНДСПриИзмененииВидаДеятельности" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыУчетаНДСПриИзмененииВидаДеятельностиНаНеоблагаемую"/> <ПередВыгрузкой>Значение = "ВключатьВСтоимость"; <Значения/> <Правило> <Код>УчетнаяПолитикаОрганизаций <Наименование>: <Порядок>450 <НеЗапоминатьВыгруженные>true <Источник>СправочникСсылка.СвоиЮрЛица <Приемник>РегистрСведенийЗапись.УчетнаяПолитикаОрганизаций <Свойства> <Свойство> <Код>1 <Наименование>--> Организация <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Измерение" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование>--> УчетнаяПолитика <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="УчетнаяПолитика" Вид="Ресурс" Тип="СправочникСсылка.УчетныеПолитикиОрганизаций"/> <КодПравилаКонвертации>УчетныеПолитикиОрганизаций <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>4 <Наименование>--> Активность <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> Период <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = НачГода(Параметры.ДатаНачалаСценария); <Значения/> <Группа> <Код>ГруппаНоменклатура <Наименование>Группа номенклатура <Порядок>150 <Группа> <Код>ГруппаНомераГТД <Наименование>Группа номера ГТД <Порядок>50 <Правило> <Код>Номенклатура_НомераГТД <Наименование>Справочник: <Порядок>50 <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.НомераГТД <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>НомерГТД --> Код <Порядок>50 <Источник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.ГТД"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Значение.Наименование; <Свойство Поиск="true"> <Код>1 <Наименование>СтранаПроисхождения --> СтранаПроисхождения <Порядок>100 <Источник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.ОКСМ"/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Значения/> <Правило> <Код>Партии_НомераГТД <Наименование>Справочник: Партии ТМЦ <Порядок>100 <ПередВыгрузкой>Если ПустоеЗначение(Источник.ГТД) = 1 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; КлючВыгружаемыхДанных = "" + ?(ПустоеЗначение(Источник.СтранаПроисхождения) = 0, Источник.СтранаПроисхождения.Код, "") + Источник.ГТД.Наименование; <Источник>СправочникСсылка.Партии <Приемник>СправочникСсылка.НомераГТД <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ГТД --> Код <Порядок>50 <Источник Имя="ГТД" Вид="Реквизит" Тип="СправочникСсылка.ГТД"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Значение.Наименование; <Свойство Поиск="true"> <Код>1 <Наименование>СтранаПроисхождения --> СтранаПроисхождения <Порядок>100 <Источник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.ОКСМ"/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <Свойство> <Код>3 <Наименование>ГТД --> ПометкаУдаления <Порядок>150 <Источник Имя="ГТД" Вид="Реквизит" Тип="СправочникСсылка.ГТД"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПриВыгрузке>Значение = Значение.ПометкаУдаления(); <Значения/> <Правило> <Код>НомераГТДИзВходящихДанных <Наименование>: <Порядок>150 <ПередВыгрузкой>Код = ВходящиеДанные.Получить("Код"); СтранаПроисхождения = ВходящиеДанные.Получить("СтранаПроисхождения"); КлючВыгружаемыхДанных = "" + ?(ПустоеЗначение(СтранаПроисхождения) = 0, СтранаПроисхождения.Код, "") + Код; <Приемник>СправочникСсылка.НомераГТД <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>--> Код <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>1 <Наименование>--> СтранаПроисхождения <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <КодПравилаКонвертации>СтраныМира <Свойство> <Код>3 <Наименование> --> ПометкаУдаления <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>Номенклатура <Наименование>Справочник: <Порядок>100 <ПередВыгрузкой>ЗначениеТипа = ""; Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда ИмяПКО = "ТипыНоменклатурыБазовой"; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И ((ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") ИЛИ (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар")) Тогда ЗначениеТипа = "Товар"; КонецЕсли; КонецЕсли; Иначе ИмяПКО = "ТипыНоменклатуры"; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И (ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") Тогда ЗначениеТипа = "Набор"; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар") Тогда ЗначениеТипа = "Товар"; КонецЕсли; КонецЕсли; КонецЕсли; Если (ЗначениеТипа = Перечисление.ВидыНоменклатуры.Тара) И (Параметры.ЭтоПереходНаБазовуюВерсию = 1) Тогда ЗначениеТипа = "Товар"; ИначеЕсли (ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений") Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И ((ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") ИЛИ (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар")) Тогда // обработка выше ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) Тогда ЗначениеТипа = ВходящиеДанные.Получить("ТипНоменклатуры"); Иначе ЗначениеТипа = Источник.ВидНоменклатуры; КонецЕсли; Иначе ЗначениеТипа = Источник.ВидНоменклатуры; КонецЕсли; КлючВыгружаемыхДанных = СокрЛП(Источник) + СокрЛП(ЗначениеТипа); <ПослеЗагрузки>Объект.КодДляПоиска = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Объект.Код, Истина); <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>6 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если (ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений") Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар") Тогда // Значение = Источник.Наименование + " (товар)"; КонецЕсли; КонецЕсли; <Свойство> <Код>1 <Наименование>Артикул --> Артикул <Порядок>200 <Источник Имя="Артикул" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Артикул" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ВидНоменклатуры --> ТипНоменклатуры <Порядок>250 <Источник Имя="ВидНоменклатуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыНоменклатуры"/> <Приемник Имя="ТипНоменклатуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНоменклатуры"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда ИмяПКО = "ТипыНоменклатурыБазовой"; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И ((ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") ИЛИ (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар")) Тогда Значение = "Товар"; ИмяПКО = ""; КонецЕсли; КонецЕсли; Иначе ИмяПКО = "ТипыНоменклатуры"; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И (ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") Тогда Значение = "Набор"; ИмяПКО = ""; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар") Тогда Значение = "Товар"; ИмяПКО = ""; КонецЕсли; КонецЕсли; КонецЕсли; Если (Значение = Перечисление.ВидыНоменклатуры.Тара) И (Параметры.ЭтоПереходНаБазовуюВерсию = 1) Тогда Значение = "Товар"; ИмяПКО = ""; ИначеЕсли (ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений") Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И ((ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") ИЛИ (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар")) Тогда // обработка выше ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) Тогда Значение = ВходящиеДанные.Получить("ТипНоменклатуры"); Иначе Значение = Источник.ВидНоменклатуры; КонецЕсли; Иначе Значение = Источник.ВидНоменклатуры; КонецЕсли; Если Источник.ЭтоГруппа() = 1 Тогда Значение = ""; КонецЕсли; <ПриВыгрузке>Если (Значение = Перечисление.ВидыНоменклатуры.Тара) И (Параметры.ЭтоПереходНаБазовуюВерсию = 1) Тогда Значение = "Товар"; ИначеЕсли ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры")) = 0) И (ВходящиеДанные.Получить("Владелец") = Источник) Тогда Значение = ВходящиеДанные.Получить("ТипНоменклатуры"); Иначе Значение = Источник.ВидНоменклатуры; КонецЕсли; КонецЕсли; <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>9 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>350 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ВидНоменклатуры --> ВидНоменклатуры <Порядок>400 <Источник Имя="ВидНоменклатуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыНоменклатуры"/> <Приемник Имя="ВидНоменклатуры" Вид="Реквизит" Тип="СправочникСсылка.ВидыНоменклатуры"/> <КодПравилаКонвертации>ВидыНоменклатуры <ПередВыгрузкой>Если (ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений") Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры")) = 0) И (ВходящиеДанные.Получить("Владелец") = Источник) Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", ВходящиеДанные.Получить("ТипНоменклатуры")); КонецЕсли; КонецЕсли; <Свойство> <Код>8 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>450 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>12 <Наименование>БазоваяЕдиница --> ЕдиницаИзмерения <Порядок>500 <Источник Имя="БазоваяЕдиница" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>ЕдиницыИзмерения <ПриВыгрузке>Если Источник.ЭтоГруппа() = 0 Тогда Значение = Значение.ОКЕИ; Иначе Пусто = 1; КонецЕсли; <Свойство> <Код>24 <Наименование>--> КоэффициентЕдиницыДляОтчетов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентЕдиницыДляОтчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>15 <Наименование>--> ИспользоватьУпаковки <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьУпаковки" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Если Параметры.ИспользоватьУпаковки = -1 Тогда УстновитьПараметрИспользоватьУпаковки(); КонецЕсли; Если Параметры.ИспользоватьУпаковки = 0 Тогда Значение = 0; Иначе Если Параметры.НоменклатураСУпаковками = -1 Тогда СформироватьСписокНоменклатурыСУпаковками(); КонецЕсли; Значение = ?(Параметры.НоменклатураСУпаковками.НайтиЗначение(Источник) = 0, 0, 1); КонецЕсли; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>11 <Наименование>--> НаборУпаковок <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="НаборУпаковок" Вид="Реквизит" Тип="СправочникСсылка.НаборыУпаковок"/> <ПередВыгрузкой>Если (Источник.ЭтоГруппа() = 0) И (Параметры.ИспользоватьУпаковки = 1) Тогда Значение = "ИндивидуальныйДляНоменклатуры"; Иначе Пусто = 1; КонецЕсли; <Свойство> <Код>13 <Наименование>--> ВестиУчетПоГТД <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ВестиУчетПоГТД" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Если ПустоеЗначение(Источник.НомерГТД) = 0 Тогда Значение = 1; Иначе Если ТипЗначенияСтр(Параметры.СписокНоменклатурыСНомерамиГТД) <> "СписокЗначений" Тогда // Выполнение общего запроса один раз за всю выгрузку Параметры.СписокНоменклатурыСНомерамиГТД = СоздатьОбъект("СписокЗначений"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЕстьНомераГТД) |Без итогов; |Партии = Справочник.Партии.ТекущийЭлемент; |Владелец = Справочник.Партии.Владелец; |ГТД = Справочник.Партии.ГТД; |Группировка Владелец без групп; |Условие(ПустоеЗначение(ГТД) = 0); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Результат = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(Результат,1,0); Результат.Выгрузить(Параметры.СписокНоменклатурыСНомерамиГТД,,, "Владелец"); КонецЕсли; Значение = ?(Параметры.СписокНоменклатурыСНомерамиГТД.НайтиЗначение(Источник) = 0, 0, 1); КонецЕсли; Иначе Пусто = 1; КонецЕсли; <Свойство> <Код>19 <Наименование>--> Качество <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Качество" Вид="Реквизит" Тип="ПеречислениеСсылка.ГрадацииКачества"/> <ПередВыгрузкой>Значение = "Новый"; <Свойство> <Код>20 <Наименование>--> ВариантОформленияПродажи <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантОформленияПродажи" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыОформленияПродажи"/> <ПередВыгрузкой>Значение = "РеализацияТоваровУслуг"; <Свойство> <Код>21 <Наименование>Комментарий --> Описание <Порядок>900 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Описание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>950 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>22 <Наименование>--> ИспользованиеХарактеристик <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользованиеХарактеристик" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыИспользованияХарактеристикНоменклатуры"/> <ПередВыгрузкой>Значение = "НеИспользовать"; <Группа> <Код>16 <Наименование>--> ДополнительныеРеквизиты <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ДополнительныеРеквизиты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("ВидСправочника", "СвойстваНоменклатуры"); ВыгрузитьДополнительныеРеквизиты(); <Свойство> <Код>18 <Наименование>--> Свойство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Свойство" Вид="Реквизит" Тип="ПланВидовХарактеристикСсылка.ДополнительныеРеквизитыИСведения"/> <КодПравилаКонвертации>ВидыСвойств_ДополнительныеРеквизитыИСведения <Свойство> <Код>17 <Наименование>--> Значение <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Значение" Вид="Реквизит"/> <КодПравилаКонвертации>ЗначенияСвойств_ЗначенияСвойствОбъектов <Свойство> <Код>25 <Наименование>--> ВесИспользовать <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ВесИспользовать" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>НоменклатураКомиссионноеВознаграждение <Наименование>Справочник: <Порядок>150 <ПередВыгрузкой>КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ВходящиеДанные.Получить("СтавкаНДС"); <ПослеЗагрузки>Объект.КодДляПоиска = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Объект.Код, Истина); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>6 <Наименование> --> ЭтоГруппа <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>3 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>СтавкаНДС = ВходящиеДанные.Получить("СтавкаНДС"); Если СтавкаНДС = Перечисление.СтавкиНДС.БезНДС Тогда Значение = Источник + " (" + СтавкаНДС + ")"; Иначе Значение = Источник + " (НДС " + СтавкаНДС + ")"; КонецЕсли; <Свойство Поиск="true"> <Код>8 <Наименование>--> СтавкаНДС <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>9 <Наименование> --> НаименованиеПолное <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>СтавкаНДС = ВходящиеДанные.Получить("СтавкаНДС"); Если СтавкаНДС = Перечисление.СтавкиНДС.БезНДС Тогда Значение = Источник + " (" + СтавкаНДС + ")"; Иначе Значение = Источник + " (НДС " + СтавкаНДС + ")"; КонецЕсли; <Свойство> <Код>10 <Наименование>--> ТипНоменклатуры <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ТипНоменклатуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНоменклатуры"/> <ПередВыгрузкой>Значение = "Услуга"; <Свойство> <Код>7 <Наименование>--> ВидНоменклатуры <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВидНоменклатуры" Вид="Реквизит" Тип="СправочникСсылка.ВидыНоменклатуры"/> <КодПравилаКонвертации>ВидыНоменклатуры <ПередВыгрузкой>Значение = Перечисление.ВидыНоменклатуры.Услуга; <Свойство> <Код>12 <Наименование> --> ЕдиницаИзмерения <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>ЕдиницыИзмеренияПоиск <ПередВыгрузкой>Значение = "шт."; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Код", "796"); <Свойство> <Код>21 <Наименование>--> ЕдиницаДляОтчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ЕдиницаДляОтчетов" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>ЕдиницыИзмеренияПоиск <ПередВыгрузкой>Значение = "шт."; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Код", "796"); <Свойство> <Код>22 <Наименование>--> КоэффициентЕдиницыДляОтчетов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="КоэффициентЕдиницыДляОтчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>14 <Наименование>--> ИспользоватьУпаковки <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьУпаковки" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>18 <Наименование>--> Качество <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Качество" Вид="Реквизит" Тип="ПеречислениеСсылка.ГрадацииКачества"/> <ПередВыгрузкой>Значение = "Новый"; <Свойство> <Код>19 <Наименование>--> ВариантОформленияПродажи <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантОформленияПродажи" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыОформленияПродажи"/> <ПередВыгрузкой>Значение = "РеализацияТоваровУслуг"; <Свойство> <Код>4 <Наименование>--> ПометкаУдаления <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>20 <Наименование>--> ИспользованиеХарактеристик <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользованиеХарактеристик" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыИспользованияХарактеристикНоменклатуры"/> <ПередВыгрузкой>Значение = "НеИспользовать"; <Значения/> <Правило> <Код>ВидыНоменклатуры <Наименование>Перечисление: Виды номенклатуры <Порядок>200 <ПослеЗагрузки>// Записываем объект не в режиме загрузки, чтобы обновить реквизиты Если Объект.ЭтоНовый() Тогда Объект.Записать(); КонецЕсли; <Источник>ПеречислениеСсылка.ВидыНоменклатуры <Приемник>СправочникСсылка.ВидыНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>--> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если (Значение = Перечисление.ВидыНоменклатуры.Тара) И (Параметры.ЭтоПереходНаБазовуюВерсию = 1) Тогда Значение = "Товар"; Иначе Значение = Строка(Источник); Если (ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений") Тогда Если ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0 Тогда Значение = Значение + " (" + Строка(ВходящиеДанные.Получить("ТипНоменклатуры")) + ")"; КонецЕсли КонецЕсли; КонецЕсли; <Свойство Поиск="true"> <Код>1 <Наименование>--> ТипНоменклатуры <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ТипНоменклатуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНоменклатуры"/> <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда ИмяПКО = "ТипыНоменклатурыБазовой"; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И ((ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") ИЛИ (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар")) Тогда Значение = "Товар"; ИмяПКО = ""; КонецЕсли; КонецЕсли; Иначе ИмяПКО = "ТипыНоменклатуры"; Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И (ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") Тогда Значение = "Набор"; ИмяПКО = ""; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар") Тогда Значение = "Товар"; ИмяПКО = ""; КонецЕсли; КонецЕсли; КонецЕсли; Если (Значение = Перечисление.ВидыНоменклатуры.Тара) И (Параметры.ЭтоПереходНаБазовуюВерсию = 1) Тогда Значение = "Товар"; ИмяПКО = ""; ИначеЕсли (ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений") Тогда Если (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) И ((ВходящиеДанные.Получить("ТипНоменклатуры") = "Набор") ИЛИ (ВходящиеДанные.Получить("ТипНоменклатуры") = "Товар")) Тогда // обработка выше ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("ТипНоменклатуры"))=0) Тогда Значение = ВходящиеДанные.Получить("ТипНоменклатуры"); Иначе Значение = Источник; КонецЕсли; Иначе Значение = Источник; КонецЕсли; <Свойство> <НеЗамещать>true <Код>3 <Наименование>--> ШаблонНаименованияДляПечатиНоменклатуры <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ШаблонНаименованияДляПечатиНоменклатуры" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "[Наименование]"; <Свойство> <НеЗамещать>true <Код>4 <Наименование>--> ШаблонНаименованияДляПечатиХарактеристики <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ШаблонНаименованияДляПечатиХарактеристики" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "[Наименование]"; <Свойство Поиск="true"> <НеЗамещать>true <Код>5 <Наименование>--> ВариантОформленияПродажи <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантОформленияПродажи" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыОформленияПродажи"/> <ПередВыгрузкой>Значение = "РеализацияТоваровУслуг"; <Свойство Поиск="true"> <Код>6 <Наименование>--> ИспользованиеХарактеристик <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользованиеХарактеристик" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыИспользованияХарактеристикНоменклатуры"/> <ПередВыгрузкой>Значение = "НеИспользовать"; <Значения/> <Правило> <Код>Единицы_УпаковкиНоменклатуры <Наименование>Справочник: Единицы измерения номенклатуры <Порядок>250 <ПередВыгрузкой>Если ((Источник.Коэффициент = 1) ИЛИ (Источник = Источник.Владелец.БазоваяЕдиница)) И (Источник.ОКЕИ = Источник.Владелец.БазоваяЕдиница.ОКЕИ) И (Источник.Вес = 0) Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>ЕдиницаДлины = Константы.ЕдиницаИзмеренияДлины.Получить(); Объект.ГлубинаЕдиницаИзмерения = ЕдиницаДлины; Объект.ШиринаЕдиницаИзмерения = ЕдиницаДлины; Объект.ВысотаЕдиницаИзмерения = ЕдиницаДлины; Объект.ОбъемЕдиницаИзмерения = Константы.ЕдиницаИзмеренияОбъема.Получить(); Объект.ВесЕдиницаИзмерения = Константы.ЕдиницаИзмеренияВеса.Получить(); Объект.ТипИзмеряемойВеличины = Перечисления.ТипыИзмеряемыхВеличин.Упаковка; Объект.ТипУпаковки = Перечисления.ТипыУпаковокНоменклатуры.Конечная; Если ПустаяСтрока(Объект.Владелец) Тогда Объект.Владелец = Справочники.НаборыУпаковок.БазовыеЕдиницыИзмерения; КонецЕсли; <Источник>СправочникСсылка.Единицы <Приемник>СправочникСсылка.УпаковкиЕдиницыИзмерения <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>Владелец --> Владелец <Порядок>50 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Владелец" Вид="Свойство"/> <Свойство Поиск="true"> <Код>5 <Наименование>ОКЕИ --> ЕдиницаИзмерения <Порядок>150 <Источник Имя="ОКЕИ" Вид="Реквизит" Тип="СправочникСсылка.ОКЕИ"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>ЕдиницыИзмерения <Свойство Поиск="true"> <Код>6 <Наименование>--> Наименование <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>// См. УТ11, модуль менеджера справочника "УпаковкиНоменклатуры", // функция СформироватьНаименование(ЕдиницаИзмерения, Коэффициент, ЕдиницаИзмеренияВладельца) Значение = СокрЛП(СокрЛП(Источник) + " (" + Формат(Источник.Коэффициент,"Ч..") + " " + СокрЛП(Источник.Владелец.БазоваяЕдиница) + ")"); <Свойство Поиск="true"> <Код>1 <Наименование>Вес --> Вес <Порядок>250 <Источник Имя="Вес" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Вес" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>--> Знаменатель <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Знаменатель" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>8 <Наименование>--> Числитель <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Числитель" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>Единицы_ШтрихкодыНоменклатуры <Наименование>: <Порядок>300 <ПослеЗагрузки>Параметры.ЗагруженныНовыеШтрихКоды = Истина; <Источник>СправочникСсылка.Единицы <Приемник>РегистрСведенийЗапись.ШтрихкодыНоменклатуры <Свойства> <Свойство> <Код>1 <Наименование>ШтрихКод --> Штрихкод <Порядок>50 <Источник Имя="ШтрихКод" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Штрихкод" Вид="Измерение" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Владелец --> Номенклатура <Порядок>100 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Ресурс" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>3 <Наименование> --> Упаковка <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Упаковка" Вид="Ресурс" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>4 <Наименование> --> Активность <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>ВариантыКомплектацииНоменклатуры <Наименование>Справочник: Состав комплектов <Порядок>350 <Приемник>СправочникСсылка.ВариантыКомплектацииНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Владелец <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Набор"); ИсходящиеДанные.Установить("Владелец", ВходящиеДанные.Получить("Владелец")); <Свойство Поиск="true"> <Код>3 <Наименование>--> Основной <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Основной" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>2 <Наименование> --> ПометкаУдаления <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>4 <Наименование> --> Наименование <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(ВходящиеДанные.Получить("Владелец")); <Свойство> <Код>10 <Наименование>--> ВариантПредставленияНабораВПечатныхФормах <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантПредставленияНабораВПечатныхФормах" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыПредставленияНаборовВПечатныхФормах"/> <Группа> <Код>5 <Наименование>--> Товары <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование> --> ДоляСтоимости <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДоляСтоимости" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>11 <Наименование>--> ВариантРасчетаЦеныНабора <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРасчетаЦеныНабора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРасчетаЦенНаборов"/> <ПередВыгрузкой>Значение = "ЦенаЗадаетсяЗаНаборРаспределяетсяПоЦенам"; <Свойство> <Код>12 <Наименование>--> ВариантПредставленияНабораВПечатныхФормах <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантПредставленияНабораВПечатныхФормах" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыПредставленияНаборовВПечатныхФормах"/> <ПередВыгрузкой>Значение = "ТолькоНабор"; <Свойство> <Код>13 <Наименование>--> Количество <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>14 <Наименование>--> КоличествоУпаковок <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>НоменклатураПоНаименованию <Наименование>: <Порядок>400 <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник; <Значения/> <Группа> <Код>ГруппаКонтрагенты <Наименование>Контрагенты <Порядок>200 <Группа> <Код>БанковскиеСчета <Наименование>БанковскиеСчета <Порядок>50 <Правило> <Код>БанковскиеСчета_БанковскиеСчетаКонтрагентов <Наименование>Справочник: Банковские счета <Порядок>50 <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчетаКонтрагентов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>НомерСчета --> НомерСчета <Порядок>50 <Источник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>7 <Наименование>ЮрФизЛицо --> Владелец <Порядок>100 <Источник Имя="ЮрФизЛицо" Вид="Реквизит"/> <Приемник Имя="Владелец" Вид="Свойство"/> <ПриВыгрузке>Если Значение.Вид() = "ЮрЛица" Тогда ИмяПКО = "ЮрЛица_Контрагенты"; ИначеЕсли Значение.Вид() = "ФизЛица" Тогда ИмяПКО = "ФизЛица_Контрагенты"; ИначеЕсли Значение.Вид() = "СвоиЮрЛица" Тогда ИмяПКО = "СвоиЮрЛица_Контрагенты"; КонецЕсли; Значение = Значение.ТекущийЭлемент(); <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Банк --> Банк <Порядок>200 <Источник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>Банки <Свойство> <Код>2 <Наименование>БанкДляРасчетов --> БанкДляРасчетов <Порядок>250 <Источник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>Банки <Свойство> <Код>6 <Наименование>ВалютаСчета --> ВалютаДенежныхСредств <Порядок>300 <Источник Имя="ВалютаСчета" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>БанковскиеСчетаКонтрагентовИзВходящихДанных <Наименование>Справочник: Банковские счета <Порядок>100 <ПередВыгрузкой>ВалютаДенежныхСредств = ВходящиеДанные.Получить("ВалютаДенежныхСредств"); <НеЗапоминатьВыгруженные>true <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчетаКонтрагентов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> НомерСчета <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "00000000000000000000"; <Свойство Поиск="true"> <Код>7 <Наименование>--> Владелец <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство Поиск="true"> <Код>6 <Наименование>--> ВалютаДенежныхСредств <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>4 <Наименование>--> Наименование <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Неизвестный счет контрагента"; <Свойство> <Код>5 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование> --> Банк <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>НеизвестныйБанк <ПередВыгрузкой>Значение = "1"; <Значения/> <Группа> <Код>Договоры <Наименование>Договоры <Порядок>100 <Правило> <Код>Договор_СоглашениеСПоставщиком <Наименование>Справочник: Договоры взаиморасчетов <Порядок>50 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ВходящиеДанные.Получить("НалогообложениеНДС") + ВходящиеДанные.Получить("ЦенаВключаетНДС") + ВходящиеДанные.Получить("ПорядокОплаты"); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСПоставщиками <Свойства> <Свойство Поиск="true"> <Код>19 <Наименование>Код --> Номер <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>7 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>11 <Наименование> --> ХозяйственнаяОперация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ЗакупкаУПоставщика"; <Свойство Поиск="true"> <Код>12 <Наименование>--> ЦенаВключаетНДС <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>15 <Наименование>--> ПорядокОплаты <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство> <Код>4 <Наименование>--> Партнер <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Владелец); ВыгрузитьКонтрагентаВПартнера(); <Свойство> <Код>16 <Наименование>Владелец --> Контрагент <Порядок>400 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>3 <Наименование>ВалютаВзаиморасчетов --> Валюта <Порядок>450 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>1 <Наименование>Наименование --> Наименование <Порядок>500 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Значение + " (закупка)"; <Свойство> <Код>9 <Наименование> --> Согласован <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>10 <Наименование> --> Статус <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСПоставщиками"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>17 <Наименование> --> ИспользуютсяДоговорыКонтрагентов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользуютсяДоговорыКонтрагентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>13 <Наименование>--> Менеджер <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>20 <Наименование> --> Дата <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>21 <Наименование> --> ДатаНачалаДействия <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачалаДействия" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>22 <Наименование>--> ВариантПриемкиТоваров <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантПриемкиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыПриемкиТоваров"/> <ПередВыгрузкой>Значение = "РазделенаПоЗаказамИНакладным"; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1050 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Договор_СоглашениеСПоставщикомПоИмпорту <Наименование>Справочник: Договоры взаиморасчетов <Порядок>100 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ВходящиеДанные.Получить("НалогообложениеНДС") + ВходящиеДанные.Получить("ЦенаВключаетНДС") + ВходящиеДанные.Получить("ПорядокОплаты"); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСПоставщиками <Свойства> <Свойство Поиск="true"> <Код>18 <Наименование>Код --> Номер <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>7 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>11 <Наименование> --> ХозяйственнаяОперация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ЗакупкаПоИмпорту"; <Свойство Поиск="true"> <Код>12 <Наименование>--> ЦенаВключаетНДС <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>15 <Наименование>--> ПорядокОплаты <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство> <Код>4 <Наименование>--> Партнер <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Владелец); ВыгрузитьКонтрагентаВПартнера(); <Свойство> <Код>16 <Наименование>Владелец --> Контрагент <Порядок>400 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>3 <Наименование>ВалютаВзаиморасчетов --> Валюта <Порядок>450 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>1 <Наименование>Наименование --> Наименование <Порядок>500 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Значение + " (закупка по импорту)"; <Свойство> <Код>9 <Наименование> --> Согласован <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>10 <Наименование> --> Статус <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСПоставщиками"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>17 <Наименование> --> ИспользуютсяДоговорыКонтрагентов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользуютсяДоговорыКонтрагентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>13 <Наименование>--> Менеджер <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>19 <Наименование> --> Дата <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>20 <Наименование> --> ДатаНачалаДействия <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачалаДействия" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>21 <Наименование> --> ВариантПриемкиТоваров <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантПриемкиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыПриемкиТоваров"/> <ПередВыгрузкой>Значение = "РазделенаПоЗаказамИНакладным"; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1050 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Договор_СоглашениеСКомитентом <Наименование>Справочник: Договоры взаиморасчетов <Порядок>150 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ВходящиеДанные.Получить("НалогообложениеНДС") + ВходящиеДанные.Получить("ЦенаВключаетНДС") + ВходящиеДанные.Получить("ПорядокОплаты") + ВходящиеДанные.Получить("СпособРасчетаВознаграждения"); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСПоставщиками <Свойства> <Свойство Поиск="true"> <Код>31 <Наименование>Код --> Номер <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>14 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>16 <Наименование> --> ХозяйственнаяОперация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПриемНаКомиссию"; <Свойство Поиск="true"> <Код>23 <Наименование>--> ЦенаВключаетНДС <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>27 <Наименование>--> ПорядокОплаты <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство Поиск="true"> <Код>35 <Наименование> --> СпособРасчетаВознаграждения <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("СпособРасчетаВознаграждения"); Если ПустоеЗначение(Значение) = 1 Тогда СформироватьСписокПоследнихОтчетовКомитетам(); ПоследниеОтчетыКомитентамПоДоговорам = Параметры.ПоследниеОтчетыКомитентамПоДоговорам; НайдСтрока = 0; Если ПоследниеОтчетыКомитентамПоДоговорам.НайтиЗначение(Источник, НайдСтрока, "Договор") = 1 Тогда Значение = ПоследниеОтчетыКомитентамПоДоговорам.ПолучитьЗначение(НайдСтрока, "СпособРасчета"); ИмяПКО = "СпособыРасчетаКомиссионногоВознаграждения"; Для НомСтроки = НайдСтрока По ПоследниеОтчетыКомитентамПоДоговорам.КоличествоСтрок() Цикл ПоследниеОтчетыКомитентамПоДоговорам.ПолучитьСтрокуПоНомеру(НомСтроки); Если ПоследниеОтчетыКомитентамПоДоговорам.Договор <> Источник Тогда Прервать; ИначеЕсли ПоследниеОтчетыКомитентамПоДоговорам.Организация = ВходящиеДанные.Получить("Организация") Тогда Значение = ПоследниеОтчетыКомитентамПоДоговорам.СпособРасчета; КонецЕсли; КонецЦикла; Иначе Значение = "НеРассчитывается"; КонецЕсли; Иначе ИмяПКО = "СпособыРасчетаКомиссионногоВознаграждения"; КонецЕсли; <Свойство> <Код>13 <Наименование>Наименование --> Наименование <Порядок>400 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Значение + " (комиссия)"; <Свойство> <Код>15 <Наименование>--> Партнер <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Владелец); ВыгрузитьКонтрагентаВПартнера(); <Свойство> <Код>28 <Наименование>Владелец --> Контрагент <Порядок>500 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>17 <Наименование>ВалютаВзаиморасчетов --> Валюта <Порядок>550 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>21 <Наименование> --> Согласован <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>22 <Наименование> --> Статус <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСПоставщиками"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>29 <Наименование> --> ИспользуютсяДоговорыКонтрагентов <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользуютсяДоговорыКонтрагентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>25 <Наименование>--> Менеджер <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>32 <Наименование> --> Дата <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>33 <Наименование> --> ДатаНачалаДействия <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачалаДействия" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>34 <Наименование> --> ВариантПриемкиТоваров <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантПриемкиТоваров" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыПриемкиТоваров"/> <ПередВыгрузкой>Значение = "РазделенаПоЗаказамИНакладным"; <Свойство> <Код>36 <Наименование> --> УдержатьВознаграждение <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="УдержатьВознаграждение" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>37 <Наименование> --> РегистрироватьЦеныПоставщика <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="РегистрироватьЦеныПоставщика" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>24 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Договор_СоглашениеСКлиентомИндивидуальное <Наименование>Справочник: Договоры взаиморасчетов <Порядок>200 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ВходящиеДанные.Получить("НалогообложениеНДС") + ВходящиеДанные.Получить("ЦенаВключаетНДС") + ВходящиеДанные.Получить("ПорядокОплаты"); <ПослеВыгрузки>Если ПустоеЗначение(Источник.Скидка) = 0 Тогда ВыгрузитьПоПравилу(Источник,,,,"ДействиеСкидокНаценок"); КонецЕсли; <ПослеЗагрузки>//Запомним загруженный объект для дальнейшей обработки, //после загрузки всех объектов Параметры.МассивЗагруженныхСоглашений.Добавить(Объект); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСКлиентами <Свойства> <Свойство Поиск="true"> <Код>20 <Наименование>Код --> Номер <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>6 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>9 <Наименование> --> Типовое <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Типовое" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>8 <Наименование>--> Соглашение <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомТиповое <ПередВыгрузкой>Значение = Источник; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("НалогообложениеНДС"), "НалогообложениеНДС"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("ЦенаВключаетНДС"), "ЦенаВключаетНДС"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("ПорядокОплаты"), "ПорядокОплаты"); <Свойство> <Код>1 <Наименование>Наименование --> Наименование <Порядок>250 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Значение + " (реализация)"; <Свойство> <Код>4 <Наименование>--> Партнер <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); Если ПустоеЗначение(ВходящиеДанные.Получить("Партнер")) = 0 Тогда ВходящиеДанные.Установить("Контрагент", ВходящиеДанные.Получить("Партнер")); Иначе ВходящиеДанные.Установить("Контрагент", Источник.Владелец); ИмяПКО = "Контрагенты_Партнеры"; КонецЕсли; ВыгрузитьКонтрагентаВПартнера(); <Свойство> <Код>17 <Наименование>Владелец --> Контрагент <Порядок>350 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>10 <Наименование>--> ХозяйственнаяОперация <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "РеализацияКлиенту"; <Свойство> <Код>12 <Наименование>ВалютаВзаиморасчетов --> Валюта <Порядок>450 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>--> ЦенаВключаетНДС <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>16 <Наименование>--> ПорядокОплаты <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство> <Код>7 <Наименование> --> Согласован <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>13 <Наименование> --> Статус <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСКлиентами"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>3 <Наименование>ТипЦен --> ВидЦен <Порядок>750 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ВидЦен" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <Свойство> <Код>18 <Наименование> --> ИспользуютсяДоговорыКонтрагентов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользуютсяДоговорыКонтрагентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <НеЗамещать>true <Код>14 <Наименование>--> Менеджер <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>21 <Наименование> --> Дата <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>22 <Наименование> --> ДатаНачалаДействия <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачалаДействия" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1000 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Договор_СоглашениеСКомиссионеромИндивидульное <Наименование>Справочник: Договоры взаиморасчетов <Порядок>250 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ВходящиеДанные.Получить("НалогообложениеНДС") + ВходящиеДанные.Получить("ЦенаВключаетНДС") + ВходящиеДанные.Получить("ПорядокОплаты"); <ПослеЗагрузки>//Запомним загруженный объект для дальнейшей обработки, //после загрузки всех объектов Параметры.МассивЗагруженныхСоглашений.Добавить(Объект); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСКлиентами <Свойства> <Свойство Поиск="true"> <Код>32 <Наименование>Код --> Номер <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>15 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>18 <Наименование> --> Типовое <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Типовое" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство Поиск="true"> <Код>24 <Наименование>--> Соглашение <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКомиссионеромТиповое <ПередВыгрузкой>Значение = Источник; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("НалогообложениеНДС"), "НалогообложениеНДС"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("ЦенаВключаетНДС"), "ЦенаВключаетНДС"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("ПорядокОплаты"), "ПорядокОплаты"); <Свойство> <Код>14 <Наименование>Наименование --> Наименование <Порядок>250 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Значение = Значение + " (комиссия)"; <Свойство> <Код>16 <Наименование>--> Партнер <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Владелец); ВыгрузитьКонтрагентаВПартнера(); <Свойство> <Код>29 <Наименование>Владелец --> Контрагент <Порядок>350 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>17 <Наименование>--> ХозяйственнаяОперация <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПередачаНаКомиссию"; <Свойство> <Код>19 <Наименование>ВалютаВзаиморасчетов --> Валюта <Порядок>450 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>20 <Наименование>--> ЦенаВключаетНДС <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>28 <Наименование>--> ПорядокОплаты <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство> <Код>21 <Наименование> --> Согласован <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>22 <Наименование> --> Статус <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСКлиентами"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>23 <Наименование>ТипЦен --> ВидЦен <Порядок>750 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ВидЦен" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <Свойство> <Код>30 <Наименование> --> ИспользуютсяДоговорыКонтрагентов <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользуютсяДоговорыКонтрагентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>26 <Наименование>--> Менеджер <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>33 <Наименование> --> Дата <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>34 <Наименование> --> ДатаНачалаДействия <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачалаДействия" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>35 <Наименование> --> СпособРасчетаВознаграждения <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <ПередВыгрузкой>Значение = "НеРассчитывается"; <Свойство> <Код>25 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1050 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Договор_СоглашениеСКлиентомТиповое <Наименование>Справочник: Договоры взаиморасчетов <Порядок>300 <ПередВыгрузкой>КлючВыгружаемыхДанных = Источник.ВалютаВзаиморасчетов.Код + ?(ПустоеЗначение(Источник.ТипЦен) = 0, Источник.ТипЦен.ЦенаВклНДС, "") + ВходящиеДанные.Получить("НалогообложениеНДС") + ВходящиеДанные.Получить("ЦенаВключаетНДС") + ВходящиеДанные.Получить("ПорядокОплаты"); <ПослеЗагрузки>//Запомним загруженный объект для дальнейшей обработки, //после загрузки всех объектов Параметры.МассивЗагруженныхСоглашений.Добавить(Объект); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСКлиентами <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ВалютаВзаиморасчетов --> Валюта <Порядок>50 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>4 <Наименование> --> Типовое <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Типовое" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство Поиск="true"> <Код>5 <Наименование>--> ЦенаВключаетНДС <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>11 <Наименование>--> ПорядокОплаты <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство Поиск="true"> <Код>8 <Наименование> --> ХозяйственнаяОперация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "РеализацияКлиенту"; <Свойство> <Код>6 <Наименование> --> Наименование <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Типовое (реализация)"; <Свойство> <Код>3 <Наименование> --> Статус <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСКлиентами"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>2 <Наименование> --> Комментарий <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос данных из ТиС"; <Свойство> <Код>12 <Наименование> --> ИспользуютсяДоговорыКонтрагентов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользуютсяДоговорыКонтрагентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>9 <Наименование>--> Менеджер <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>14 <Наименование> --> Дата <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата('01.01.1980'); <Свойство> <Код>7 <Наименование> --> ПометкаУдаления <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>Договор_СоглашениеСКомиссионеромТиповое <Наименование>Справочник: Договоры взаиморасчетов <Порядок>350 <ПередВыгрузкой>КлючВыгружаемыхДанных = Источник.ВалютаВзаиморасчетов.Код + ?(ПустоеЗначение(Источник.ТипЦен) = 0, Источник.ТипЦен.ЦенаВклНДС, "") + ВходящиеДанные.Получить("НалогообложениеНДС") + ВходящиеДанные.Получить("ЦенаВключаетНДС") + ВходящиеДанные.Получить("ПорядокОплаты"); <ПослеЗагрузки>//Запомним загруженный объект для дальнейшей обработки, //после загрузки всех объектов Параметры.МассивЗагруженныхСоглашений.Добавить(Объект); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСКлиентами <Свойства> <Свойство Поиск="true"> <Код>10 <Наименование>ВалютаВзаиморасчетов --> Валюта <Порядок>50 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>11 <Наименование> --> Типовое <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Типовое" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство Поиск="true"> <Код>12 <Наименование>--> ЦенаВключаетНДС <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство Поиск="true"> <Код>19 <Наименование>--> ПорядокОплаты <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство Поиск="true"> <Код>13 <Наименование> --> ХозяйственнаяОперация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПередачаНаКомиссию"; <Свойство> <Код>9 <Наименование> --> Наименование <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Типовое (комиссия)"; <Свойство> <Код>14 <Наименование> --> Статус <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСКлиентами"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>15 <Наименование> --> Комментарий <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос данных из ТиС"; <Свойство> <Код>20 <Наименование> --> ИспользуютсяДоговорыКонтрагентов <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользуютсяДоговорыКонтрагентов" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>17 <Наименование>--> Менеджер <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>22 <Наименование> --> Дата <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата('01.01.1980'); <Свойство> <Код>16 <Наименование> --> ПометкаУдаления <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>Договор_СоглашениеСКлиентомПоУмолчанию <Наименование>: <Порядок>400 <ПослеЗагрузки>Объект.Валюта = Константы.ВалютаРегламентированногоУчета.Получить(); //Запомним загруженный объект для дальнейшей обработки, //после загрузки всех объектов Параметры.МассивЗагруженныхСоглашений.Добавить(Объект); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСКлиентами <Свойства> <Свойство> <Код>1 <Наименование> --> Статус <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСКлиентами"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство Поиск="true"> <Код>2 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Типовые правила продаж"; <Свойство> <Код>3 <Наименование>--> ХозяйственнаяОперация <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "РеализацияКлиенту"; <Свойство> <Код>4 <Наименование> --> ПорядокОплаты <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <ПередВыгрузкой>Значение = "РасчетыВРубляхОплатаВРублях"; <Свойство> <Код>5 <Наименование> --> Типовое <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Типовое" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование> --> ЦенаВключаетНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <НеЗамещать>true <Код>8 <Наименование> --> Дата <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = ТекущаяДата(); <Значения/> <Правило> <Код>Договор_СоглашениеСКомиссионеромПоУмолчанию <Наименование>: <Порядок>450 <ПослеЗагрузки>Объект.Валюта = Константы.ВалютаРегламентированногоУчета.Получить(); //Запомним загруженный объект для дальнейшей обработки, //после загрузки всех объектов Параметры.МассивЗагруженныхСоглашений.Добавить(Объект); <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.СоглашенияСКлиентами <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Типовые правила продаж (комиссия)"; <Свойство> <НеЗамещать>true <Код>3 <Наименование> --> Дата <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = ТекущаяДата(); <Свойство> <Код>4 <Наименование> --> Статус <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСоглашенийСКлиентами"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>5 <Наименование> --> Типовое <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Типовое" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование> --> ХозяйственнаяОперация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПередачаНаКомиссию"; <Свойство> <Код>7 <Наименование> --> СпособРасчетаВознаграждения <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <ПередВыгрузкой>Значение = "НеРассчитывается"; <Свойство> <Код>9 <Наименование> --> ПорядокОплаты <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <ПередВыгрузкой>Значение = "РасчетыВРубляхОплатаВРублях"; <Свойство> <Код>10 <Наименование> --> ЦенаВключаетНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>Договоры_ДоговорыКонтрагентов <Наименование>Справочник: Договоры взаиморасчетов <Порядок>500 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ВходящиеДанные.Получить("ХозяйственнаяОперация") + ВходящиеДанные.Получить("ПорядокОплаты"); // Сформируем наименование и поместим во входящие данные ХозяйственнаяОперация = ВходящиеДанные.Получить("ХозяйственнаяОперация"); Если ХозяйственнаяОперация = "РеализацияКлиенту" Тогда Постфикс = "реализация"; ИначеЕсли ХозяйственнаяОперация = "ПередачаНаКомиссию" Тогда Постфикс = "передача на комиссию"; ИначеЕсли ХозяйственнаяОперация = "ЗакупкаУПоставщика" Тогда Постфикс = "закупка"; ИначеЕсли ХозяйственнаяОперация = "ПриемНаКомиссию" Тогда Постфикс = "прием на комиссию"; КонецЕсли; Наименование = Источник.Наименование + " (" + Постфикс + ")"; ВходящиеДанные.Установить("Наименование", Наименование); ВходящиеДанные.Установить("НаименованиеДляПечати", Наименование); <ПослеЗагрузки>Если Объект.ПорядокРасчетов = Перечисления.ПорядокРасчетов.ПоДоговорамКонтрагентов и ЗначениеЗаполнено(Объект.Дата) и ЗначениеЗаполнено(Объект.Номер) Тогда Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); Иначе Объект.ИдентификаторПлатежа = Неопределено; КонецЕсли; <Источник>СправочникСсылка.Договоры <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Свойства> <Свойство Поиск="true"> <Код>11 <Наименование>Код --> Номер <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>5 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>7 <Наименование>--> ПорядокОплаты <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <Свойство Поиск="true"> <Код>9 <Наименование>--> ХозяйственнаяОперация <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <Свойство> <Код>6 <Наименование>--> Партнер <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Владелец); ВыгрузитьКонтрагентаВПартнера(); <Свойство> <Код>4 <Наименование>Владелец --> Контрагент <Порядок>300 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>1 <Наименование>ВалютаВзаиморасчетов --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>2 <Наименование>--> Наименование <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>15 <Наименование>--> НаименованиеДляПечати <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеДляПечати" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> Статус <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыДоговоровКонтрагентов"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>10 <Наименование>--> Менеджер <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>12 <Наименование> --> Дата <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение"); <Свойство> <Код>13 <Наименование> --> ДатаНачалаДействия <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаНачалаДействия" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Источник); ОпределитьДатуНачалаДействияДоговораСоглашения(); Значение = ИсходящиеДанные.Получить("Значение");; <Свойство> <Код>14 <Наименование> --> ПорядокРасчетов <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокРасчетов" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокРасчетов"/> <ПередВыгрузкой>Значение = "ПоДоговорамКонтрагентов"; <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>750 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>16 <Наименование> --> ТипДоговора <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ТипДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыДоговоров"/> <ПередВыгрузкой>ХозяйственнаяОперация = ВходящиеДанные.Получить("ХозяйственнаяОперация"); Если ХозяйственнаяОперация = "РеализацияКлиенту" Тогда Значение = "СПокупателем"; ИначеЕсли ХозяйственнаяОперация = "ПередачаНаКомиссию" Тогда Значение = "СКомиссионером"; ИначеЕсли ХозяйственнаяОперация = "ЗакупкаУПоставщика" Тогда Значение = "СПоставщиком"; ИначеЕсли ХозяйственнаяОперация = "ПриемНаКомиссию" Тогда Значение = "СКомитентом"; ИначеЕсли ХозяйственнаяОперация ="ЗакупкаПоИмпорту" тогда Значение = "Импорт"; КонецЕсли; <Свойство> <Код>17 <Наименование>--> НалогообложениеНДС <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <ПередВыгрузкой>Значение = "ПродажаОблагаетсяНДС"; <Свойство> <Код>18 <Наименование>--> ЗакупкаПодДеятельность <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <ПередВыгрузкой>Значение = "ПродажаОблагаетсяНДС"; <Значения/> <Правило> <Код>ДействиеСкидокНаценок <Наименование>Справочник: Договоры взаиморасчетов <Порядок>550 <Источник>СправочникСсылка.Договоры <Приемник>РегистрСведенийЗапись.ДействиеСкидокНаценок <Свойства> <Свойство> <Код>1 <Наименование>--> Источник <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Источник" Вид="Измерение"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомИндивидуальное <ПередВыгрузкой>Значение = Источник.Ссылка; <Свойство> <Код>2 <Наименование>Скидка --> СкидкаНаценка <Порядок>100 <Источник Имя="Скидка" Вид="Реквизит" Тип="СправочникСсылка.Скидки"/> <Приемник Имя="СкидкаНаценка" Вид="Измерение" Тип="СправочникСсылка.СкидкиНаценки"/> <КодПравилаКонвертации>Скидки_СкидкиНаценки <Свойство> <Код>3 <Наименование>--> Статус <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Ресурс" Тип="ПеречислениеСсылка.СтатусыДействияСкидок"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>4 <Наименование>--> Активность <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> Период <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = '01.01.1980'; <Значения/> <Группа> <Код>Контрагенты <Наименование>Контрагенты <Порядок>150 <Правило> <Код>СвоиЮрЛица_Контрагенты <Наименование>Справочник: Сторонние юридические лица <Порядок>50 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ЮрФизЛицо", Источник.ТекущийЭлемент()); ОпределитьОсновногоКонтрагентаДляЮрФизЛица(); <ПослеЗагрузки>Выполнить(Алгоритмы.ГоловнойКонтрагент); <Источник>СправочникСсылка.СвоиЮрЛица <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ИНН --> ИНН <Порядок>50 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Лев(Значение,10); <Свойство Поиск="true"> <Код>7 <Наименование>ИНН --> КПП <Порядок>100 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник.ИНН; Если Найти(Значение, "\") <> 0 Тогда Значение = Лев(Сред(Значение, Найти(Значение, "\") + 1), 9); Иначе Пусто = 1; КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда Значение = Строка(ВходящиеДанные.Получить("ОсновнойКонтрагент")); КонецЕсли; <Свойство> <Код>6 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>200 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ОКПО --> КодПоОКПО <Порядок>250 <Источник Имя="ОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование> --> Партнер <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ОсновнойКонтрагент"); Если Значение = "НеизвестныйПартнер" Тогда Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда ИмяПКО = "ПартнерПереносДанныхИзТиС"; КонецЕсли; Иначе ИмяПКО = "Контрагенты_Партнеры"; КонецЕсли; <Свойство> <Код>8 <Наименование>ИндивидуальныйПредприниматель --> ЮрФизЛицо <Порядок>350 <Источник Имя="ИндивидуальныйПредприниматель" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПриВыгрузке>Значение = ?(Значение = 1, "ИндивидуальныйПредприниматель", "ЮрЛицо"); <Свойство> <Код>21 <Наименование>--> ЮридическоеФизическоеЛицо <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ЮридическоеФизическоеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮридическоеФизическоеЛицо"/> <ПередВыгрузкой>Значение = "ЮридическоеЛицо"; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>20 <Наименование>Комментарий --> ДополнительнаяИнформация <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ДополнительнаяИнформация" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>9 <Наименование>--> КонтактнаяИнформация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); КоллекцияОбъектов.НоваяКолонка("Тип"); Если ПустаяСтрока(Источник.ЮрАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ЮрАдрес); ВходящиеДанные.Установить("Вид", "ЮрАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ФактАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ФактАдрес); ВходящиеДанные.Установить("Вид", "ФактАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.Телефоны) = 0 Тогда ВходящиеДанные.Установить("Телефон", Источник.Телефоны); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьТелефоны(); КонецЕсли; <Свойство> <Код>11 <Наименование> --> Вид <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыКонтактнойИнформации"; КонецЕсли; <Свойство> <Код>12 <Наименование> --> Город <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> ЗначенияПолей <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> НомерТелефона <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование> --> НомерТелефонаБезКодов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> Представление <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование> --> Регион <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование> --> Страна <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> Тип <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Значения/> <Правило> <Код>ЮрЛица_Контрагенты <Наименование>Справочник: Сторонние юридические лица <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ЮрФизЛицо", Источник.ТекущийЭлемент()); ОпределитьОсновногоКонтрагентаДляЮрФизЛица(); <ПослеЗагрузки>Выполнить(Алгоритмы.ГоловнойКонтрагент); <Источник>СправочникСсылка.ЮрЛица <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ИНН --> ИНН <Порядок>50 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Значение = Лев(Значение,10); <Свойство Поиск="true"> <Код>6 <Наименование>ИНН --> КПП <Порядок>100 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник.ИНН; Если Найти(Значение, "\") <> 0 Тогда Значение = Лев(Сред(Значение, Найти(Значение, "\") + 1), 9); Иначе Пусто = 1; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда Значение = Строка(ВходящиеДанные.Получить("ОсновнойКонтрагент")); КонецЕсли; <Свойство> <Код>5 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>200 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ОКПО --> КодПоОКПО <Порядок>250 <Источник Имя="ОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование> --> Партнер <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ОсновнойКонтрагент"); Если Значение = "НеизвестныйПартнер" Тогда Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда Значение = Источник; ИмяПКО = "ЮрЛица_Партнеры"; КонецЕсли; Иначе ИмяПКО = "Контрагенты_Партнеры"; КонецЕсли; <Свойство> <Код>8 <Наименование> --> ЮрФизЛицо <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПередВыгрузкой>Значение = "ЮрЛицо"; <Свойство> <Код>21 <Наименование>--> ЮридическоеФизическоеЛицо <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ЮридическоеФизическоеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮридическоеФизическоеЛицо"/> <ПередВыгрузкой>Значение = "ЮридическоеЛицо"; <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>20 <Наименование>Комментарий --> ДополнительнаяИнформация <Порядок>500 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ДополнительнаяИнформация" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>9 <Наименование>--> КонтактнаяИнформация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); КоллекцияОбъектов.НоваяКолонка("Тип"); КоллекцияОбъектов.НоваяКолонка("АдресЭП"); КоллекцияОбъектов.НоваяКолонка("ДоменноеИмяСервера"); Если ПустаяСтрока(Источник.ЮрАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ЮрАдрес); ВходящиеДанные.Установить("Вид", "ЮрАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ФактАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ФактАдрес); ВходящиеДанные.Установить("Вид", "ФактАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.Телефоны) = 0 Тогда ВходящиеДанные.Установить("Телефон", Источник.Телефоны); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьТелефоны(); КонецЕсли; ОсновнойКонтрагент = ВходящиеДанные.Получить("ОсновнойКонтрагент"); Если ОсновнойКонтрагент <> "НеизвестныйПартнер" Тогда Если ПустаяСтрока(ОсновнойКонтрагент.ЭлПочта) = 0 Тогда ВходящиеДанные.Установить("ЭлектроннаяПочта", ОсновнойКонтрагент.ЭлПочта); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьЭлектроннуюПочту(); КонецЕсли; Если ПустоеЗначение(ОсновнойКонтрагент.Сайт) = 0 Тогда ВходящиеДанные.Установить("ВебСтраница", ОсновнойКонтрагент.Сайт.АдресСайта); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьВебСтраницу(); КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование>--> Вид <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыКонтактнойИнформации"; КонецЕсли; <Свойство> <Код>12 <Наименование> --> Город <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> ЗначенияПолей <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> НомерТелефона <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование> --> НомерТелефонаБезКодов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> Представление <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование> --> Регион <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование> --> Страна <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> Тип <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Свойство> <Код>22 <Наименование>--> АдресЭП <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="АдресЭП" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование>--> ДоменноеИмяСервера <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ДоменноеИмяСервера" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ФизЛица_Контрагенты <Наименование>Справочник: Сторонние юридические лица <Порядок>150 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ЮрФизЛицо", Источник.ТекущийЭлемент()); ОпределитьОсновногоКонтрагентаДляЮрФизЛица(); <ПослеЗагрузки>Выполнить(Алгоритмы.ГоловнойКонтрагент); <Источник>СправочникСсылка.ФизЛица <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ИНН --> ИНН <Порядок>50 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Значение = Лев(Значение, 12); <Свойство Поиск="true"> <Код>8 <Наименование> --> КПП <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Пусто = 1; <Свойство Поиск="true"> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда Значение = Строка(ВходящиеДанные.Получить("ОсновнойКонтрагент")); КонецЕсли; <Свойство> <Код>5 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>200 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>--> Партнер <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ОсновнойКонтрагент"); Если Значение = "НеизвестныйПартнер" Тогда Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда ИмяПКО = "ПартнерПереносДанныхИзТиС"; КонецЕсли; Иначе ИмяПКО = "Контрагенты_Партнеры"; КонецЕсли; <Свойство> <Код>7 <Наименование>--> ЮрФизЛицо <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПередВыгрузкой>Значение = "ФизЛицо"; <Свойство> <Код>21 <Наименование>--> ЮридическоеФизическоеЛицо <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ЮридическоеФизическоеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮридическоеФизическоеЛицо"/> <ПередВыгрузкой>Значение = "ФизическоеЛицо"; <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>20 <Наименование>Комментарий --> ДополнительнаяИнформация <Порядок>450 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ДополнительнаяИнформация" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>9 <Наименование>--> КонтактнаяИнформация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); КоллекцияОбъектов.НоваяКолонка("Тип"); КоллекцияОбъектов.НоваяКолонка("АдресЭП"); КоллекцияОбъектов.НоваяКолонка("ДоменноеИмяСервера"); Если ПустаяСтрока(Источник.ЮрАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ЮрАдрес); ВходящиеДанные.Установить("Вид", "ЮрАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ФактАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ФактАдрес); ВходящиеДанные.Установить("Вид", "ФактАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.Телефоны) = 0 Тогда ВходящиеДанные.Установить("Телефон", Источник.Телефоны); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьТелефоны(); КонецЕсли; ОсновнойКонтрагент = ВходящиеДанные.Получить("ОсновнойКонтрагент"); Если ОсновнойКонтрагент <> "НеизвестныйПартнер" Тогда Если ПустаяСтрока(ОсновнойКонтрагент.ЭлПочта) = 0 Тогда ВходящиеДанные.Установить("ЭлектроннаяПочта", ОсновнойКонтрагент.ЭлПочта); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьЭлектроннуюПочту(); КонецЕсли; Если ПустоеЗначение(ОсновнойКонтрагент.Сайт) = 0 Тогда ВходящиеДанные.Установить("ВебСтраница", ОсновнойКонтрагент.Сайт.АдресСайта); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьВебСтраницу(); КонецЕсли; КонецЕсли; <Свойство> <Код>11 <Наименование>--> Вид <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыКонтактнойИнформации"; КонецЕсли; <Свойство> <Код>12 <Наименование> --> Город <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> ЗначенияПолей <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> НомерТелефона <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование> --> НомерТелефонаБезКодов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> Представление <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование> --> Регион <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование> --> Страна <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> Тип <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Свойство> <Код>22 <Наименование>--> ДоменноеИмяСервера <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ДоменноеИмяСервера" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование>--> АдресЭП <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="АдресЭП" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>НеизвестныйКонтрагент <Наименование>Справочник: <Порядок>200 <ПослеЗагрузки>Выполнить(Алгоритмы.ГоловнойКонтрагент); <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Неизвестный контрагент"; <Свойство> <Код>3 <Наименование>--> ЮрФизЛицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <ПередВыгрузкой>Значение = "ЮрЛицо"; <Свойство> <Код>2 <Наименование> --> ПометкаУдаления <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>4 <Наименование>--> ДополнительнаяИнформация <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ДополнительнаяИнформация" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Не рекомендуется изменять наименование данного контрагента до окончания переноса данных из ТиС"; <Свойство> <Код>5 <Наименование>--> Партнер <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>ПартнерПереносДанныхИзТиС <ПередВыгрузкой>Значение = "НеизвестныйПартнер"; Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда ИмяПКО = "ПартнерПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>6 <Наименование>--> ЮридическоеФизическоеЛицо <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ЮридическоеФизическоеЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮридическоеФизическоеЛицо"/> <ПередВыгрузкой>Значение = "ЮридическоеЛицо"; <Значения/> <Группа> <Код>Партнеры <Наименование>Партнеры <Порядок>200 <Правило> <Код>Контрагенты_Партнеры <Наименование>Справочник: <Порядок>50 <ПередВыгрузкой>Если ТипЗначенияСтр(Источник) = "Строка" Тогда Возврат 1; КонецЕсли; Если Источник.ЭтоГруппа() = 1 Тогда Возврат 1; КонецЕсли; Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("Клиент", 0); ВходящиеДанные.Установить("Поставщик", 0); ВходящиеДанные.Установить("ПрочиеОтношения", 0); Если Параметры.СтатистикаПоДоговорам_СортКонтрагент = -1 Тогда СформироватьСтатистикуПоДоговорам(); КонецЕсли; СтатистикаПоДоговорам = Параметры.СтатистикаПоДоговорам_СортКонтрагент; НомерНайденнойСтроки = 0; Если СтатистикаПоДоговорам.НайтиЗначение(Источник, НомерНайденнойСтроки, "Контрагент") = 1 Тогда Для НомерСтроки = НомерНайденнойСтроки По СтатистикаПоДоговорам.КоличествоСтрок() Цикл СтатистикаПоДоговорам.ПолучитьСтрокуПоНомеру(НомерСтроки); Если СтатистикаПоДоговорам.Контрагент <> Источник Тогда Прервать; КонецЕсли; Если (СтатистикаПоДоговорам.ХозяйственнаяОперация = "РеализацияКлиенту") ИЛИ (СтатистикаПоДоговорам.ХозяйственнаяОперация = "ПередачаНаКомиссию") Тогда ВходящиеДанные.Установить("Клиент", 1); ИначеЕсли (СтатистикаПоДоговорам.ХозяйственнаяОперация = "ЗакупкаУПоставщика") ИЛИ (СтатистикаПоДоговорам.ХозяйственнаяОперация = "ПриемНаКомиссию") Тогда ВходящиеДанные.Установить("Поставщик", 1); КонецЕсли; КонецЦикла; КонецЕсли; Если (ВходящиеДанные.Получить("Клиент") = 0) И (ВходящиеДанные.Получить("Поставщик") = 0) Тогда ВходящиеДанные.Установить("ПрочиеОтношения", 1); КонецЕсли; <ПослеЗагрузки>Если Объект.ЭтоНовый() Тогда УстановитьОбменДаннымиЗагрузка(Объект); Объект.Записать(); УстановитьОбменДаннымиЗагрузка(Объект, Ложь); КонецЕсли; Если Параметры.СписокЗагруженныхПартнеров.Найти(Объект.Ссылка) = Неопределено Тогда Параметры.СписокЗагруженныхПартнеров.Добавить(Объект.Ссылка); КонецЕсли; <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Партнеры <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>100 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование> --> НаименованиеПолное <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если Источник.ЭтоГруппа() = 0 Тогда Если (Источник.ЮрФизЛицо.Вид() = "ЮрЛица") Или (Источник.ЮрФизЛицо.Вид() = "СвоиЮрЛица") Или (Источник.ЮрФизЛицо.Вид() = "ФизЛица") Тогда Значение = Источник.ЮрФизЛицо.ПолнНаименование; Иначе Отказ = 1; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>22 <Наименование>--> Клиент <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Клиент" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>23 <Наименование>--> Поставщик <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>24 <Наименование>--> ПрочиеОтношения <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПрочиеОтношения" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>25 <Наименование> --> ДатаРегистрации <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата('01.01.1980'); <Свойство> <Код>26 <Наименование>ЮрФизЛицо --> ЮрФизЛицо <Порядок>550 <Источник Имя="ЮрФизЛицо" Вид="Реквизит"/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.КомпанияЧастноеЛицо"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "Компания"; ИначеЕсли Значение.Вид() = "ФизЛица" Тогда Значение = "ЧастноеЛицо"; ИначеЕсли (Значение.Вид() = "ЮрЛица") Или (Значение.Вид() = "СвоиЮрЛица") Тогда Значение = "Компания"; КонецЕсли; <Группа> <Код>7 <Наименование> --> ДополнительныеРеквизиты <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ДополнительныеРеквизиты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("ВидСправочника", "СвойстваКонтрагентов"); ВыгрузитьДополнительныеРеквизиты(); <Свойство> <Код>9 <Наименование>--> Свойство <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Свойство" Вид="Реквизит" Тип="ПланВидовХарактеристикСсылка.ДополнительныеРеквизитыИСведения"/> <КодПравилаКонвертации>ВидыСвойств_ДополнительныеРеквизитыИСведения <Свойство> <Код>8 <Наименование>--> Значение <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Значение" Вид="Реквизит"/> <КодПравилаКонвертации>ЗначенияСвойств_ЗначенияСвойствОбъектов <Группа> <Код>10 <Наименование>--> КонтактнаяИнформация <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Тип"); КоллекцияОбъектов.НоваяКолонка("АдресЭП"); КоллекцияОбъектов.НоваяКолонка("ДоменноеИмяСервера"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); Если ПустаяСтрока(Источник.ЮрФизЛицо.ЮрАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ЮрФизЛицо.ЮрАдрес); ВходящиеДанные.Установить("Вид", "АдресПартнера"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ЮрФизЛицо.ФактАдрес) = 0 Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Фактический адрес"); Вид.Установить("Тип", "Адрес"); Вид.Установить("Родитель", "СправочникПартнеры"); ВходящиеДанные.Установить("Адрес", Источник.ЮрФизЛицо.ФактАдрес); ВходящиеДанные.Установить("Вид", Вид); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ЮрФизЛицо.Телефоны) = 0 Тогда ВходящиеДанные.Установить("Телефон", Источник.ЮрФизЛицо.Телефоны); ВходящиеДанные.Установить("Родитель", "СправочникПартнеры"); ВыгрузитьТелефоны(); КонецЕсли; Если ПустаяСтрока(Источник.ЭлПочта) = 0 Тогда ВходящиеДанные.Установить("ЭлектроннаяПочта", Источник.ЭлПочта); ВходящиеДанные.Установить("Родитель", "СправочникПартнеры"); ВыгрузитьЭлектроннуюПочту(); КонецЕсли; Если ПустоеЗначение(Источник.Сайт) = 0 Тогда ВходящиеДанные.Установить("ВебСтраница", Источник.Сайт.АдресСайта); ВходящиеДанные.Установить("Родитель", "СправочникПартнеры"); ВыгрузитьВебСтраницу(); КонецЕсли; <Свойство> <Код>12 <Наименование>--> Вид <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыКонтактнойИнформации"; КонецЕсли; <Свойство> <Код>14 <Наименование> --> Тип <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Свойство> <Код>11 <Наименование> --> АдресЭП <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="АдресЭП" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Представление <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование> --> ДоменноеИмяСервера <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДоменноеИмяСервера" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> Город <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование> --> ЗначенияПолей <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование> --> НомерТелефона <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> НомерТелефонаБезКодов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование> --> Регион <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование> --> Страна <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>ПартнерПереносДанныхИзТиС <Наименование>Справочник: <Порядок>100 <ПослеЗагрузки>Если Объект.ЭтоНовый() Тогда УстановитьОбменДаннымиЗагрузка(Объект); Объект.Записать(); УстановитьОбменДаннымиЗагрузка(Объект, Ложь); КонецЕсли; Если Параметры.СписокЗагруженныхПартнеров.Найти(Объект.Ссылка) = Неопределено Тогда Параметры.СписокЗагруженныхПартнеров.Добавить(Объект.Ссылка); КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Партнеры <Свойства> <Свойство Поиск="true"> <Код>17 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Неизвестный партнер"; <Свойство Поиск="true"> <Код>19 <Наименование> --> Комментарий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Создан при загрузке данных из ТиС"; <Свойство> <Код>18 <Наименование> --> НаименованиеПолное <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Неизвестный партнер"; <Свойство> <Код>21 <Наименование> --> Клиент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Клиент" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>22 <Наименование> --> Поставщик <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>23 <Наименование> --> ПрочиеОтношения <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПрочиеОтношения" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>24 <Наименование> --> ДатаРегистрации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата('01.01.1980'); <Свойство> <Код>25 <Наименование> --> ЮрФизЛицо <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.КомпанияЧастноеЛицо"/> <ПередВыгрузкой>Значение = "Компания"; <Значения/> <Правило> <Код>ЮрЛица_Партнеры <Наименование>Справочник: Сторонние юридические лица <Порядок>150 <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ЮрЛица <Приемник>СправочникСсылка.Партнеры <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПолнНаименование --> НаименованиеПолное <Порядок>100 <Источник Имя="ПолнНаименование" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> Клиент <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Клиент" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование> --> Поставщик <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование> --> ПрочиеОтношения <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПрочиеОтношения" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>8 <Наименование> --> ДатаРегистрации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата('01.01.1980'); <Свойство> <Код>21 <Наименование> --> ЮрФизЛицо <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.КомпанияЧастноеЛицо"/> <ПередВыгрузкой>Значение = "Компания"; <Группа> <Код>9 <Наименование> --> КонтактнаяИнформация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); КоллекцияОбъектов.НоваяКолонка("Тип"); Если ПустаяСтрока(Источник.ЮрАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ЮрАдрес); ВходящиеДанные.Установить("Вид", "ЮрАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ФактАдрес) = 0 Тогда ВходящиеДанные.Установить("Адрес", Источник.ФактАдрес); ВходящиеДанные.Установить("Вид", "ФактАдресКонтрагента"); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.Телефоны) = 0 Тогда ВходящиеДанные.Установить("Телефон", Источник.Телефоны); ВходящиеДанные.Установить("Родитель", "СправочникКонтрагенты"); ВыгрузитьТелефоны(); КонецЕсли; <Свойство> <Код>11 <Наименование> --> Вид <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыКонтактнойИнформации"; КонецЕсли; <Свойство> <Код>12 <Наименование> --> Город <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> ЗначенияПолей <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование> --> НомерТелефона <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> НомерТелефонаБезКодов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование> --> Представление <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование> --> Регион <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование> --> Страна <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование> --> Тип <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Значения/> <Группа> <Код>ГруппаФизическиеЛица <Наименование>ГруппаФизическиеЛица <Порядок>250 <Правило> <Код>ФизическиеЛица <Наименование>Справочник: Физические лица <Порядок>50 <ПослеВыгрузкиВФайл>Если (Источник.ЭтоГруппа() = 0) И (ПустаяСтрока(Источник.ДокументУдЛичность) = 0) Тогда ВыгрузитьПоПравилу(Источник,, ,, "ФизическиеЛица_ДокументыФизическихЛиц"); КонецЕсли; <ПоследовательностьПолейПоиска>Если СвойстваПоиска.Получить("ЭтоГруппа") Тогда СвойстваПоиска.Удалить("ИНН"); КонецЕсли; НомерВариантаПоиска = 10; <Источник>СправочникСсылка.ФизЛица <Приемник>СправочникСсылка.ФизическиеЛица <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>1 <Наименование>ИНН --> ИНН <Порядок>100 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>150 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Число"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Родитель --> Родитель <Порядок>200 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Группа> <Код>6 <Наименование> --> КонтактнаяИнформация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КонтактнаяИнформация" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Вид"); КоллекцияОбъектов.НоваяКолонка("Представление"); КоллекцияОбъектов.НоваяКолонка("Тип"); КоллекцияОбъектов.НоваяКолонка("АдресЭП"); КоллекцияОбъектов.НоваяКолонка("ДоменноеИмяСервера"); КоллекцияОбъектов.НоваяКолонка("Город"); КоллекцияОбъектов.НоваяКолонка("ЗначенияПолей"); КоллекцияОбъектов.НоваяКолонка("НомерТелефона"); КоллекцияОбъектов.НоваяКолонка("НомерТелефонаБезКодов"); КоллекцияОбъектов.НоваяКолонка("Регион"); КоллекцияОбъектов.НоваяКолонка("Страна"); Если ПустаяСтрока(Источник.ЮрАдрес) = 0 Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Юридический адрес"); Вид.Установить("Тип", "Адрес"); Вид.Установить("Родитель", "СправочникФизическиеЛица"); ВходящиеДанные.Установить("Адрес", Источник.ЮрАдрес); ВходящиеДанные.Установить("Вид", Вид); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.ФактАдрес) = 0 Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Фактический адрес"); Вид.Установить("Тип", "Адрес"); Вид.Установить("Родитель", "СправочникФизическиеЛица"); ВходящиеДанные.Установить("Адрес", Источник.ФактАдрес); ВходящиеДанные.Установить("Вид", Вид); ВыгрузитьСтрокуАдреса(); КонецЕсли; Если ПустаяСтрока(Источник.Телефоны) = 0 Тогда ВходящиеДанные.Установить("Телефон", Источник.Телефоны); ВходящиеДанные.Установить("Родитель", "СправочникФизическиеЛица"); ВыгрузитьТелефоны(); КонецЕсли; <Свойство> <Код>7 <Наименование> --> Вид <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Вид" Вид="Реквизит" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыКонтактнойИнформации"; КонецЕсли; <Свойство> <Код>8 <Наименование> --> Город <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> ЗначенияПолей <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ЗначенияПолей" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> НомерТелефона <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефона" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> НомерТелефонаБезКодов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НомерТелефонаБезКодов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Представление <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Представление" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование> --> Регион <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Регион" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование> --> Страна <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Страна" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование> --> Тип <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Значения/> <Правило> <Код>ФизическиеЛица_ДокументыФизическихЛиц <Наименование>: <Порядок>100 <ПередВыгрузкой>Список = глРазложитьДокУдостоверяющийЛичность(Источник.ДокументУдЛичность); Вид = ?(0 < Список.РазмерСписка(), Список.ПолучитьЗначение(1), ""); Серия = ?(1 < Список.РазмерСписка(), Список.ПолучитьЗначение(2), ""); Номер = ?(2 < Список.РазмерСписка(), Список.ПолучитьЗначение(3), ""); ДатаВыдачи = ?(3 < Список.РазмерСписка(), Список.ПолучитьЗначение(4), ""); КемВыдан = ?(4 < Список.РазмерСписка(), Список.ПолучитьЗначение(5), ""); Если Вид = "Паспорт гражданина России" Тогда Вид = "ПаспортРФ"; ИначеЕсли Вид = "Загранпаспорт гражданина РФ" Тогда Вид = "ЗагранпаспортРФ"; ИначеЕсли Вид = "Паспорт гражданина СССР" Тогда Вид = "ПаспортСССР"; ИначеЕсли Вид = "Загранпаспорт гр. СССР" Тогда Вид = "ЗагранпаспортСССР"; ИначеЕсли Вид = "Удостоверение личности офицера" Тогда Вид = "УдостоверениеОфицера"; ИначеЕсли Вид = "Военный билет солдата (матроса, сержанта, старшины)" Тогда Вид = "ВоенныйБилет"; ИначеЕсли Вид = "Военный билет офицера запаса" Тогда Вид = "ВоенныйБилетОфицераЗапаса"; ИначеЕсли Вид = "Паспорт Минморфлота" Тогда Вид = "ПаспортМинморфлота"; ИначеЕсли Вид = "Паспорт моряка" Тогда Вид = "ПаспортМоряка"; ИначеЕсли Вид = "Свидетельство о рождении" Тогда Вид = "СвидетельствоОРождении"; ИначеЕсли Вид = "Дипломатический паспорт гражданина РФ" Тогда Вид = "ДипломатическийПаспорт"; Иначе НаименованиеВида = Вид; Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", НаименованиеВида); КонецЕсли; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ДатаВыдачи", Дата(ДатаВыдачи)); ВходящиеДанные.Установить("ВидДокумента", Вид); ВходящиеДанные.Установить("КемВыдан", КемВыдан); ВходящиеДанные.Установить("Номер", Номер); ВходящиеДанные.Установить("Серия", Серия); <ПослеЗагрузки>ТекстСерия = НСтр("ru = ', серия: %1'"); ТекстНомер = НСтр("ru = ', № %1'"); ТекстДатаВыдачи = НСтр("ru = ', выдан: %1 года'"); ТекстСрокДействия = НСтр("ru = ', действует до: %1 года'"); ТекстКодПодразделения = НСтр("ru = ', № подр. %1'"); Если Объект.ВидДокумента.Пустая() Тогда Объект.Представление = ""; Иначе Объект.Представление = "" + Объект.ВидДокумента + ?(ЗначениеЗаполнено(Объект.Серия), СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСерия, Объект.Серия), "") + ?(ЗначениеЗаполнено(Объект.Номер), СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстНомер, Объект.Номер), "") + ?(ЗначениеЗаполнено(Объект.ДатаВыдачи), СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстДатаВыдачи, Формат(Объект.ДатаВыдачи,"ДФ='дд ММММ гггг'")), "") + ?(ЗначениеЗаполнено(Объект.СрокДействия), СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСрокДействия, Формат(Объект.СрокДействия,"ДФ='дд ММММ гггг'")), "") + ?(ЗначениеЗаполнено(Объект.КемВыдан), ", " + Объект.КемВыдан, "") + ?(ЗначениеЗаполнено(Объект.КодПодразделения) И Объект.ВидДокумента = Справочники.ВидыДокументовФизическихЛиц.ПаспортРФ, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстКодПодразделения, Объект.КодПодразделения), ""); КонецЕсли; <НеЗапоминатьВыгруженные>true <Приемник>РегистрСведенийЗапись.ДокументыФизическихЛиц <Свойства> <Свойство> <Код>2 <Наименование> --> Физлицо <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Физлицо" Вид="Измерение"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>3 <Наименование>--> ДатаВыдачи <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВыдачи" Вид="Ресурс" Тип="Дата"/> <Свойство> <Код>1 <Наименование>--> ВидДокумента <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидДокумента" Вид="Измерение" Тип="СправочникСсылка.ВидыДокументовФизическихЛиц"/> <ПриВыгрузке>Если ТипЗначенияСтр(Значение) <> "Строка" Тогда ИмяПКО = "ВидыДокументовФизическихЛиц"; КонецЕсли; <Свойство> <Код>4 <Наименование>--> КемВыдан <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КемВыдан" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>5 <Наименование>--> Номер <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>7 <Наименование>--> Серия <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Серия" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>8 <Наименование> --> ЯвляетсяДокументомУдостоверяющимЛичность <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ЯвляетсяДокументомУдостоверяющимЛичность" Вид="Ресурс" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>9 <Наименование> --> Активность <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>10 <Наименование> --> Период <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата('01.01.1900'); <Значения/> <Правило> <Код>ВидыДокументовФизическихЛиц <Наименование>: <Порядок>150 <Приемник>СправочникСсылка.ВидыДокументовФизическихЛиц <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование> --> ПометкаУдаления <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>БанковскиеСчета_БанковскиеСчетаФизЛиц <Наименование>Справочник: Банковские счета <Порядок>200 <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчетаКонтрагентов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>НомерСчета --> НомерСчета <Порядок>50 <Источник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>7 <Наименование>ЮрФизЛицо --> Владелец <Порядок>100 <Источник Имя="ЮрФизЛицо" Вид="Реквизит"/> <Приемник Имя="Владелец" Вид="Свойство"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Банк --> Банк <Порядок>200 <Источник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>Банки <Свойство> <Код>2 <Наименование>БанкДляРасчетов --> БанкДляРасчетов <Порядок>250 <Источник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторБанков"/> <КодПравилаКонвертации>Банки <Свойство> <Код>6 <Наименование>ВалютаСчета --> ВалютаДенежныхСредств <Порядок>300 <Источник Имя="ВалютаСчета" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ФИОФизическихЛиц <Наименование>Справочник: Физические лица <Порядок>250 <ПередВыгрузкой>Если (Источник.ЭтоГруппа() = 1) Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Фамилия) Тогда СтруктураФИО = ФизическиеЛицаКлиентСервер.ФамилияИмяОтчество(СокрЛП(Объект.ФизическоеЛицо)); ЗаполнитьЗначенияСвойств(Объект, СтруктураФИО); КонецЕсли; <НеЗапоминатьВыгруженные>true <Источник>СправочникСсылка.ФизЛица <Приемник>РегистрСведенийЗапись.ФИОФизическихЛиц <Свойства> <Свойство> <Код>1 <Наименование>--> ФизическоеЛицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ФизическоеЛицо" Вид="Измерение" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <ПередВыгрузкой>Значение = Источник; <Свойство> <Код>2 <Наименование>--> Активность <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство Отключить="true"> <Код>3 <Наименование>--> Фамилия <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Фамилия" Вид="Ресурс" Тип="Строка"/> <Свойство Отключить="true"> <Код>4 <Наименование>--> Имя <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Имя" Вид="Ресурс" Тип="Строка"/> <Свойство Отключить="true"> <Код>5 <Наименование>--> Отчество <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Отчество" Вид="Ресурс" Тип="Строка"/> <Свойство> <Код>6 <Наименование>--> Период <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата(1980,1,1); <Значения/> <Группа> <Код>ГруппаЦенообразование <Наименование>Ценообразование <Порядок>300 <Правило> <Код>ТипыЦен_ВидыЦен <Наименование>Справочник: Типы цен <Порядок>50 <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Валюта = ВходящиеДанные.Получить("Валюта"); Если ПустоеЗначение(Валюта) = 0 Тогда КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + Валюта.Код; КонецЕсли; Иначе Валюта = Источник.Валюта; КонецЕсли; <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); Параметры.ЗагруженыВидыЦен = Истина; <Источник>СправочникСсылка.ТипыЦен <Приемник>СправочникСсылка.ВидыЦен <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>Наименование --> Идентификатор <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Идентификатор" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Валюта = ВходящиеДанные.Получить("Валюта"); КонецЕсли; Если (ПустоеЗначение(Валюта) = 0) И (Валюта <> Источник.Валюта) Тогда Значение = Значение + " " + Валюта; КонецЕсли; // прототипом является функция "ПолучитьИдентификатор(СтрНаименование)" формы элемента справочника "ВидыЦен" УТ Разделители = " .,+,-,/,*,?,=,<,>,(,)%!@#$%&*""№:;{}[]?()\|/`~'^_"; Идентификатор = ""; БылСпецСимвол = 0; Для НомСимвола = 1 По СтрДлина(Значение) Цикл Символ = Сред(Значение, НомСимвола, 1); Если Найти(Разделители, Символ) <> 0 Тогда БылСпецСимвол = 1; ИначеЕсли БылСпецСимвол = 1 Тогда БылСпецСимвол = 0; Идентификатор = Идентификатор + ВРег(Символ); Иначе Идентификатор = Идентификатор + Символ; КонецЕсли; КонецЦикла; Значение = Идентификатор; <Свойство Поиск="true"> <Код>3 <Наименование>Валюта --> ВалютаЦены <Порядок>100 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаЦены" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Значение = ВходящиеДанные.Получить("Валюта"); КонецЕсли; Если ПустоеЗначение(Значение) = 1 Тогда Значение = Источник.Валюта; КонецЕсли; <Свойство> <Код>1 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(ВходящиеДанные) = 0 Тогда Валюта = ВходящиеДанные.Получить("Валюта"); КонецЕсли; Если (ПустоеЗначение(Валюта) = 0) И (Валюта <> Источник.Валюта) Тогда Значение = Значение + " " + Валюта; КонецЕсли; <Свойство> <Код>5 <Наименование>ЦенаВклНДС --> ЦенаВключаетНДС <Порядок>200 <Источник Имя="ЦенаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>4 <Наименование>--> СпособЗаданияЦены <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗаданияЦены" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗаданияЦен"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.БазовыйТипЦен) = 1 Тогда Значение = "Вручную"; Иначе Значение = "РассчитыватьПоФормуламОтДругихВидовЦен"; КонецЕсли; <Свойство> <Код>7 <Наименование> --> ИспользоватьПриПродаже <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПриПродаже" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>8 <Наименование> --> ОкруглятьВБольшуюСторону <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ОкруглятьВБольшуюСторону" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.ОкрТочно, 0, 1); <Свойство> <Код>11 <Наименование>--> Формула <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Формула" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.БазовыйТипЦен) = 0 Тогда НаименованиеБазовогоТипаЦен = Строка(Источник.БазовыйТипЦен); // прототипом является функция "ПолучитьИдентификатор(СтрНаименование)" формы элемента справочника "ВидыЦен" УТ Разделители = " .,+,-,/,*,?,=,<,>,(,)%!@#$%&*""№:;{}[]?()\|/`~'^_"; Идентификатор = ""; БылСпецСимвол = 0; Для НомСимвола = 1 По СтрДлина(НаименованиеБазовогоТипаЦен) Цикл Символ = Сред(НаименованиеБазовогоТипаЦен, НомСимвола, 1); Если Найти(Разделители, Символ) <> 0 Тогда БылСпецСимвол = 1; ИначеЕсли БылСпецСимвол = 1 Тогда БылСпецСимвол = 0; Идентификатор = Идентификатор + ВРег(Символ); Иначе Идентификатор = Идентификатор + Символ; КонецЕсли; КонецЦикла; Коэффициент = Строка(1 + Источник.Процент / 100); Значение = "[" + Идентификатор + "] * " + Коэффициент; Иначе Значение = ""; КонецЕсли; <Свойство> <Код>16 <Наименование>--> Статус <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыДействияВидовЦен"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Группа> <Код>9 <Наименование>--> ВлияющиеВидыЦен <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ВлияющиеВидыЦен" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВлияющийВидЦен"); Если ПустоеЗначение(Источник.БазовыйТипЦен) = 0 Тогда КоллекцияОбъектов.НоваяСтрока(); КонецЕсли; <Свойство> <Код>10 <Наименование>--> ВлияющийВидЦен <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВлияющийВидЦен" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПередВыгрузкой>Значение = Источник.БазовыйТипЦен; <Группа> <Код>12 <Наименование>--> ПравилаОкругленияЦены <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилаОкругленияЦены" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("НижняяГраницаДиапазонаЦен"); КоллекцияОбъектов.НоваяКолонка("ПсихологическоеОкругление"); КоллекцияОбъектов.НоваяКолонка("ТочностьОкругления"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.НижняяГраницаДиапазонаЦен = 0; КоллекцияОбъектов.ПсихологическоеОкругление = 0; Если (Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.ОкрТочно) Или (Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр0_01) Тогда КоллекцияОбъектов.ТочностьОкругления = 0.01; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр0_05 Тогда КоллекцияОбъектов.ТочностьОкругления = 0.05; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр0_10 Тогда КоллекцияОбъектов.ТочностьОкругления = 0.10; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр0_50 Тогда КоллекцияОбъектов.ТочностьОкругления = 0.50; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр1 Тогда КоллекцияОбъектов.ТочностьОкругления = 1; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр5 Тогда КоллекцияОбъектов.ТочностьОкругления = 5; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр10 Тогда КоллекцияОбъектов.ТочностьОкругления = 10; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр50 Тогда КоллекцияОбъектов.ТочностьОкругления = 50; ИначеЕсли Источник.ПорядокОкругления = Перечисление.ПорядкиОкругления.Окр100 Тогда КоллекцияОбъектов.ТочностьОкругления = 100; КонецЕсли; <Свойство> <Код>13 <Наименование>--> НижняяГраницаДиапазонаЦен <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НижняяГраницаДиапазонаЦен" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> ПсихологическоеОкругление <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ПсихологическоеОкругление" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> ТочностьОкругления <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ТочностьОкругления" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВидРозничнойЦеныДляСклада <Наименование>Справочник: Типы цен <Порядок>100 <ПередВыгрузкой>КодВалюты = ?(ПустоеЗначение(ВходящиеДанные) = 0, ВходящиеДанные.Получить("ВалютаЦены").Код, ""); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + КодВалюты; <ПослеЗагрузки>Объект.ВалютаЦены = Константы.ВалютаРегламентированногоУчета.Получить(); Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); Параметры.ЗагруженыВидыЦен = Истина; <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.ВидыЦен <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование> --> Идентификатор <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Идентификатор" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Розничные цены склада (" + Источник + ")"; // прототипом является функция "ПолучитьИдентификатор(СтрНаименование)" формы элемента справочника "ВидыЦен" УТ Разделители = " .,+,-,/,*,?,=,<,>,(,)%!@#$%&*""№:;{}[]?()\|/`~'^_"; Идентификатор = ""; БылСпецСимвол = 0; Для НомСимвола = 1 По СтрДлина(Значение) Цикл Символ = Сред(Значение, НомСимвола, 1); Если Найти(Разделители, Символ) <> 0 Тогда БылСпецСимвол = 1; ИначеЕсли БылСпецСимвол = 1 Тогда БылСпецСимвол = 0; Идентификатор = Идентификатор + ВРег(Символ); Иначе Идентификатор = Идентификатор + Символ; КонецЕсли; КонецЦикла; Значение = Идентификатор; <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Розничные цены склада (" + Источник + ")"; <Свойство Поиск="true"> <Код>3 <Наименование>--> ВалютаЦены <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаЦены" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>5 <Наименование> --> ЦенаВключаетНДС <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>4 <Наименование> --> СпособЗаданияЦены <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗаданияЦены" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗаданияЦен"/> <ПередВыгрузкой>Значение = "Вручную"; <Свойство> <Код>7 <Наименование> --> ИспользоватьПриПродаже <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ИспользоватьПриПродаже" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>8 <Наименование> --> ОкруглятьВБольшуюСторону <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ОкруглятьВБольшуюСторону" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>11 <Наименование>--> Формула <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Формула" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>16 <Наименование>--> Статус <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыДействияВидовЦен"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>2 <Наименование>--> ПометкаУдаления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Группа> <Код>12 <Наименование> --> ПравилаОкругленияЦены <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилаОкругленияЦены" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("НижняяГраницаДиапазонаЦен"); КоллекцияОбъектов.НоваяКолонка("ПсихологическоеОкругление"); КоллекцияОбъектов.НоваяКолонка("ТочностьОкругления"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.НижняяГраницаДиапазонаЦен = 0; КоллекцияОбъектов.ПсихологическоеОкругление = 0; КоллекцияОбъектов.ТочностьОкругления = 0.01; <Свойство> <Код>13 <Наименование> --> НижняяГраницаДиапазонаЦен <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НижняяГраницаДиапазонаЦен" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> ПсихологическоеОкругление <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ПсихологическоеОкругление" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> ТочностьОкругления <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ТочностьОкругления" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>Цены_УстановкаЦенНоменклатуры <Наименование>: <Порядок>150 <ПередВыгрузкой>КлючВыгружаемыхДанных = ВходящиеДанные.Получить("ВидЦены"); Если ПустоеЗначение(КлючВыгружаемыхДанных) = 1 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Отказ = Объект.ВидыЦен.Количество()=0 И Объект.Товары.Количество()=0; РежимЗаписи = "Проведение"; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.УстановкаЦенНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = ТекущаяДата(); <Свойство Поиск="true"> <Код>13 <Наименование> --> Комментарий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>ВидЦены = ВходящиеДанные.Получить("ВидЦены"); НаименованиеВидаЦены = Строка(ВидЦены); Валюта = ВходящиеДанные.Получить("Валюта"); Если (ПустоеЗначение(Валюта) = 0) И (Валюта <> ВидЦены.Валюта) Тогда НаименованиеВидаЦены = НаименованиеВидаЦены + " " + Валюта; КонецЕсли; Значение = "#Перенос цен из ТиС (" + НаименованиеВидаЦены + ")"; <Свойство> <Код>1 <Наименование> --> Согласован <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>2 <Наименование> --> Статус <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыУстановокЦенНоменклатуры"/> <ПередВыгрузкой>Значение = "Согласован"; <Свойство> <Код>4 <Наименование> --> Проведен <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>14 <Наименование>--> Ответственный <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Если ПустоеЗначение(глПользователь) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; Иначе Значение = глПользователь; КонецЕсли; <Группа> <Код>5 <Наименование>--> ВидыЦен <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидыЦен" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование>--> ВидЦены <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Валюта", ОбъектКоллекции.Валюта); <Группа> <Код>7 <Наименование>--> Товары <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>--> ВидЦены <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Валюта", ОбъектКоллекции.Валюта); <Свойство> <Код>11 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>10 <Наименование> --> Упаковка <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>9 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование> --> ЦенаИзмененаВручную <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаИзмененаВручную" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>УстановкаРозничныхЦенНоменклатуры <Наименование>: <Порядок>200 <ПередВыгрузкой>КлючВыгружаемыхДанных = ВходящиеДанные.Получить("ВидЦены"); Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>РежимЗаписи = "Проведение"; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.УстановкаЦенНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> Дата <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>13 <Наименование> --> Комментарий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос цен в розничных точках из ТиС (" + ВходящиеДанные.Получить("ВидЦены") + ")"; <Свойство> <Код>1 <Наименование> --> Согласован <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>2 <Наименование> --> Статус <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыУстановокЦенНоменклатуры"/> <ПередВыгрузкой>Значение = "Согласован"; <Свойство> <Код>4 <Наименование> --> Проведен <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>14 <Наименование>--> Ответственный <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Если ПустоеЗначение(глПользователь) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; Иначе Значение = глПользователь; КонецЕсли; <Группа> <Код>5 <Наименование>--> ВидыЦен <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидыЦен" Вид="ТабличнаяЧасть"/> <Свойство> <Код>6 <Наименование> --> ВидЦены <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ВидРозничнойЦеныДляСклада <Группа> <Код>7 <Наименование>--> Товары <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>8 <Наименование> --> ВидЦены <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ВидРозничнойЦеныДляСклада <Свойство> <Код>9 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>10 <Наименование> --> Упаковка <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>11 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> ЦенаИзмененаВручную <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаИзмененаВручную" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Правило> <Код>Скидки_СкидкиНаценки <Наименование>Справочник: <Порядок>250 <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <Источник>СправочникСсылка.Скидки <Приемник>СправочникСсылка.СкидкиНаценки <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Процент --> ЗначениеСкидкиНаценки <Порядок>100 <Источник Имя="Процент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЗначениеСкидкиНаценки" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>--> СпособПредоставления <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПредоставления" Вид="Реквизит"/> <ПередВыгрузкой>Значение = "Процент"; <Свойство> <Код>10 <Наименование>--> СпособПримененияСкидки <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПримененияСкидки" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПримененияСкидокНаценок"/> <ПередВыгрузкой>Значение = "ПрименитьВМоментРасчетаСкидокНаценок"; <Свойство> <Код>7 <Наименование>--> Управляемая <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Управляемая" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>9 <Наименование>--> УсловиеДляСкидкиКоличеством <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="УсловиеДляСкидкиКоличеством" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Группа> <Код>Прочее <Наименование>Прочее <Порядок>350 <Группа> <Код>Свойства <Наименование>Свойства <Порядок>50 <Правило> <Код>ВидыСвойств_ДополнительныеРеквизитыИСведения <Наименование>Справочник: Виды свойств <Порядок>100 <ПередВыгрузкой>Отказ = Источник.ЭтоГруппа(); <Источник>СправочникСсылка.ВидыСвойств <Приемник>ПланВидовХарактеристикСсылка.ДополнительныеРеквизитыИСведения <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>Наименование --> Заголовок <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Заголовок" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ЗначенияСвойств_ЗначенияСвойствОбъектов <Наименование>Справочник: Значения свойств <Порядок>150 <Источник>СправочникСсылка.ЗначенияСвойств <Приемник>СправочникСсылка.ЗначенияСвойствОбъектов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Владелец --> Владелец <Порядок>50 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.ВидыСвойств"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="ПланВидовХарактеристикСсылка.ДополнительныеРеквизитыИСведения"/> <КодПравилаКонвертации>ВидыСвойств_ДополнительныеРеквизитыИСведения <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ВидыКонтактнойИнформации <Наименование>: <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <Приемник>СправочникСсылка.ВидыКонтактнойИнформации <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>5 <Наименование> --> Родитель <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ВидыКонтактнойИнформации"/> <Свойство> <Код>2 <Наименование> --> Тип <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Тип" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыКонтактнойИнформации"/> <Свойство Обязательное="true"> <Код>6 <Наименование> --> ЭтоГруппа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>1 <Наименование>--> МожноИзменятьСпособРедактирования <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="МожноИзменятьСпособРедактирования" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если (Источник.Получить("Тип") = "Адрес") ИЛИ (Источник.Получить("Тип") = "Телефон") Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ДвиженияДС_СтатьиДвиженияДенежныхСредств <Наименование>Справочник: Движения денежных средств <Порядок>150 <ПередВыгрузкой>КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ВходящиеДанные.Получить("ХозяйственнаяОперация") + ВходящиеДанные.Получить("КорреспондирующийСчет") + ВходящиеДанные.Получить("ВидОплаты"); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Источник = "1" Тогда Значение = "По виду оплаты """ + ВходящиеДанные.Получить("ВидОплаты") + """"; Иначе Значение = Источник.Наименование; КонецЕсли; <Свойство Поиск="true"> <Код>5 <Наименование>--> КорреспондирующийСчет <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КорреспондирующийСчет" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>ХозяйственнаяОперация = ВходящиеДанные.Получить("ХозяйственнаяОперация"); Если (ХозяйственнаяОперация <> "ПрочееПоступлениеДенежныхСредств") И (ХозяйственнаяОперация <> "ПрочаяВыдачаДенежныхСредств") Тогда Значение = ""; КонецЕсли; Значение = СокрЛП(Значение); Если Значение <> "" Тогда // Форматируем счет согласно маске ПозТочки = Найти(Значение, "."); Если ПозТочки > 0 Тогда Счет = Прав("00" + ?(ПозТочки = 1, "", Лев(Значение, ПозТочки - 1)), 2) + "."; ОстСтрока = ?(ПозТочки < СтрДлина(Значение), Прав(Значение, СтрДлина(Значение) - ПозТочки), ""); Если ОстСтрока <> "" Тогда ПозТочки = Найти(ОстСтрока, "."); Если ПозТочки > 0 Тогда Счет = Счет + Прав("00" + ?(ПозТочки = 1, "", Лев(ОстСтрока, ПозТочки - 1)), 2); ОстСтрока = ?(ПозТочки < СтрДлина(ОстСтрока), Прав(ОстСтрока, СтрДлина(ОстСтрока) - ПозТочки), ""); Если ОстСтрока <> "" Тогда ПозТочки = Найти(ОстСтрока, "."); Если ПозТочки > 0 Тогда Счет = Счет + "." + Прав("0" + ?(ПозТочки = 1, "", Лев(ОстСтрока, ПозТочки - 1)), 1); Иначе Счет = Счет + "." + Лев(ОстСтрока, 1); КонецЕсли; КонецЕсли; Иначе Счет = Счет + Прав("00" + СокрЛП(Сред(ОстСтрока, 1, 2)), 2); Если СтрДлина(ОстСтрока) > 2 Тогда Счет = Счет + "." + Сред(ОстСтрока, 3, 1); КонецЕсли; КонецЕсли; КонецЕсли; Иначе Счет = Прав("00" + СокрЛП(Сред(Значение, 1, 2)), 2) + "."; Если СтрДлина(Значение) > 2 Тогда Счет = Счет + Прав("00" + СокрЛП(Сред(Значение, 3, 2)), 2); КонецЕсли; Если СтрДлина(Значение) > 4 Тогда Счет = Счет + "." + Сред(Значение, 5, 1); КонецЕсли; КонецЕсли; Значение = Счет; КонецЕсли; <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ПользовательПереносДанныхИзТиС <Наименование>: <Порядок>200 <ПослеЗагрузки>Если Объект.ЭтоНовый() Тогда Параметры.ЗагруженыНовыеПользователи = Истина; КонецЕсли; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.Пользователи <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "<Не указан>"; <Свойство> <Код>2 <Наименование> --> ПометкаУдаления <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>Пользователи <Наименование>Справочник: <Порядок>250 <ПослеЗагрузки>Если Объект.ЭтоНовый() Тогда Параметры.ЗагруженыНовыеПользователи = Истина; КонецЕсли; <Источник>СправочникСсылка.Пользователи <Приемник>СправочникСсылка.Пользователи <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Наименование --> Наименование <Порядок>50 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>100 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ПричиныОтменыЗаказовКлиентов <Наименование>: <Порядок>300 <ПослеЗагрузки>Параметры.ЗагруженыПричиныОтменыЗаказовКлиентов = Истина; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.ПричиныОтменыЗаказовКлиентов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Источник = "Выполнение" Тогда Значение = "#Оформление продажи в ТиС"; ИначеЕсли Источник = "Корректировка" Тогда Значение = "#Корректировка заявки в ТиС"; Иначе Значение = "#Отмена заявки в ТиС"; КонецЕсли; <Значения/> <Правило> <Код>ПричиныОтменыЗаказовПоставщикам <Наименование>: <Порядок>350 <ПослеЗагрузки>Параметры.ЗагруженыПричиныОтменыЗаказовПоставщикам = Истина; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.ПричиныОтменыЗаказовПоставщикам <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ?(Источник = "Выполнение", "#Оформление закупки в ТиС", "#Корректировка заказа в ТиС"); <Свойство> <Код>1 <Наименование> --> ИнициаторОтменыЗаказовПоставщикам <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ИнициаторОтменыЗаказовПоставщикам" Вид="Реквизит" Тип="ПеречислениеСсылка.ИнициаторОтменыЗаказовПоставщикам"/> <ПередВыгрузкой>Значение = "НашеПредприятие"; <Значения/> <Группа> <Код>Документы <Наименование>Документы <Порядок>200 <Группа> <Код>КассаИБанк <Наименование>КассаИБанк <Порядок>50 <Группа> <Код>ПоступлениеНаличныхДС <Наименование>ПоступлениеНаличныхДС <Порядок>50 <Правило> <Код>ПКО_ОплатаОтПокупателя <Наименование>Документ: Приходный кассовый ордер (оплата от покупателя) <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПКО <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>9 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>13 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>23 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПоступлениеОплатыОтКлиента"; <Свойство> <Код>22 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>600 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПоступлениеОплатыОтКлиента"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>6 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ПринятоОт --> ПринятоОт <Порядок>750 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>Автор --> Кассир <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Группа> <Код>14 <Наименование> --> РасшифровкаПлатежа <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>16 <Наименование>--> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>15 <Наименование>--> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>18 <Наименование>--> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>19 <Наименование>--> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>25 <Наименование>--> ОснованиеПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОснованиеПлатежа" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Отказ = 1; Иначе ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ДокОснование = Источник.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда ИсходящиеДанные.Установить("ДокументПоДоговору", ДокОснование); ОпределитьХозоперациюПоДокументуДоговора(); ХозоперацияДляДоговораПоДокументу = ИсходящиеДанные.Получить("ХозоперацияДляДоговораПоДокументу"); Если ПустоеЗначение(ХозоперацияДляДоговораПоДокументу) = 0 Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозоперацияДляДоговораПоДокументу); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ИсходящиеДанные.Получить("ХозяйственнаяОперация")) = 1 Тогда СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); КонецЕсли; ВыгрузитьДоговорВДоговор(); КонецЕсли; <Свойство> <Код>26 <Наименование>--> Заказ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Отказ = 1; Иначе ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ДокОснование = Источник.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда ИсходящиеДанные.Установить("ДокументПоДоговору", ДокОснование); ОпределитьХозоперациюПоДокументуДоговора(); ХозоперацияДляДоговораПоДокументу = ИсходящиеДанные.Получить("ХозоперацияДляДоговораПоДокументу"); Если ПустоеЗначение(ХозоперацияДляДоговораПоДокументу) = 0 Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозоперацияДляДоговораПоДокументу); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ИсходящиеДанные.Получить("ХозяйственнаяОперация")) = 1 Тогда СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); КонецЕсли; ВыгрузитьДоговорВДоговор(); КонецЕсли; <Свойство> <Код>27 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПоступлениеОплатыОтКлиента"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Значения/> <Правило> <Код>ПКО_ВозвратОтПоставщика <Наименование>Документ: Приходный кассовый ордер (возврат от поставщика) <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПКО <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>8 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>11 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>21 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВозвратДенежныхСредствОтПоставщика"; <Свойство> <Код>20 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>600 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратДенежныхСредствОтПоставщика"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>5 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПринятоОт --> ПринятоОт <Порядок>750 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>Автор --> Кассир <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Группа> <Код>13 <Наименование> --> РасшифровкаПлатежа <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>15 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>14 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>17 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>18 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>24 <Наименование> --> ОснованиеПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОснованиеПлатежа" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>25 <Наименование> --> Заказ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>26 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратДенежныхСредствОтПоставщика"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Значения/> <Правило> <Код>ПКО_ВозвратОтПодотчетника <Наименование>Документ: Приходный кассовый ордер (оплата от подотчетника) <Порядок>150 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПКО <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>8 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>11 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>23 <Наименование>ФизЛицо --> ПодотчетноеЛицо <Порядок>450 <Источник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>21 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВозвратДенежныхСредствОтПодотчетника"; <Свойство> <Код>20 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>600 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратДенежныхСредствОтПодотчетника"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>5 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПринятоОт --> ПринятоОт <Порядок>750 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>Автор --> Кассир <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Значения/> <Правило> <Код>ПКО_РозничнаяВыручка <Наименование>Документ: Приходный кассовый ордер (розничная выручка) <Порядок>200 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПКО <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>7 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>8 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>10 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>17 <Наименование>--> КассаККМ <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КассаККМ" Вид="Реквизит" Тип="СправочникСсылка.КассыККМ"/> <КодПравилаКонвертации>Склады_КассыККМ <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Источник.Валюта); ИсходящиеДанные.Установить("КонтрагентДляВзаиморасчетов", Источник.Контрагент); <Свойство> <Код>14 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПоступлениеДенежныхСредствИзКассыККМ"; <Свойство> <Код>4 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ПринятоОт --> ПринятоОт <Порядок>750 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Автор --> Кассир <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Значения/> <Правило> <Код>ПКО_ПрочееПоступление <Наименование>Документ: Приходный кассовый ордер (прочее поступление) <Порядок>250 <ПередВыгрузкой>Если ТолькоПолучитьУзелСсылки = 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ОпределитьКонтрагентаПрочегоДвиженияДС(); КонецЕсли; <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПКО <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>7 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>8 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>10 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>14 <Наименование>Сумма --> СуммаДокумента <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> ХозяйственнаяОперация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПрочееПоступлениеДенежныхСредств"; <Свойство> <Код>13 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>550 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочееПоступлениеДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>4 <Наименование>Основание --> Основание <Порядок>600 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Приложение --> Приложение <Порядок>650 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ПринятоОт --> ПринятоОт <Порядок>700 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Автор --> Кассир <Порядок>750 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>21 <Наименование>--> Контрагент <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>СвоиЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Группа> <Код>16 <Наименование> --> РасшифровкаПлатежа <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>17 <Наименование>--> ВалютаВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Валюта; <Свойство> <Код>19 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>20 <Наименование>--> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>22 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочееПоступлениеДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Значения/> <Правило> <Код>ОтчетККМ_ПКО_РозничнаяВыручка <Наименование>Приходный кассовый ордер (розничная выручка) из отчета ККМ <Порядок>300 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ОтчетККМ <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>7 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>8 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "Р", 11, "Справа"); КонецЕсли; <Свойство> <Код>10 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>17 <Наименование>Касса --> КассаККМ <Порядок>450 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="КассаККМ" Вид="Реквизит" Тип="СправочникСсылка.КассыККМ"/> <КодПравилаКонвертации>Кассы_КассыККМ <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); ИсходящиеДанные.ДобавитьЗначение(Источник.Склад, "Склад"); <Свойство> <Код>14 <Наименование> --> СуммаДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>15 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПоступлениеДенежныхСредствИзКассыККМ"; <Свойство> <Код>12 <Наименование>Автор --> Кассир <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Значения/> <Группа> <Код>РасходНаличныхДенежныхСредств <Наименование>РасходНаличныхДенежныхСредств <Порядок>100 <Правило> <Код>РКО_ОплатаПоставщику <Наименование>Документ: Расходный кассовый ордер (оплата поставщику) <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.РКО <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>9 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>16 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>15 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ОплатаПоставщику"; <Свойство> <Код>14 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>600 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ОплатаПоставщику"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>6 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПоДокументу --> ПоДокументу <Порядок>750 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Выдать --> Выдать <Порядок>800 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Автор --> Кассир <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Группа> <Код>17 <Наименование> --> РасшифровкаПлатежа <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>19 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>18 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>20 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>21 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>23 <Наименование> --> Заказ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ДокОснование = Источник.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда ИсходящиеДанные.Установить("ДокументПоДоговору", ДокОснование); ОпределитьХозоперациюПоДокументуДоговора(); ХозоперацияДляДоговораПоДокументу = ИсходящиеДанные.Получить("ХозоперацияДляДоговораПоДокументу"); Если ПустоеЗначение(ХозоперацияДляДоговораПоДокументу) = 0 Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозоперацияДляДоговораПоДокументу); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ИсходящиеДанные.Получить("ХозяйственнаяОперация")) = 1 Тогда СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("ЗакупкаУПоставщика"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПриемНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); КонецЕсли; ВыгрузитьДоговорВДоговор(); <Свойство> <Код>24 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ОплатаПоставщику"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Значения/> <Правило> <Код>РКО_ВозвратПокупателю <Наименование>Документ: Расходный кассовый ордер (возврат покупателю) <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.РКО <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>9 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>16 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>15 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВозвратОплатыКлиенту"; <Свойство> <Код>14 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>600 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратОплатыКлиенту"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>6 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПоДокументу --> ПоДокументу <Порядок>750 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Выдать --> Выдать <Порядок>800 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Автор --> Кассир <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Группа> <Код>17 <Наименование> --> РасшифровкаПлатежа <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>19 <Наименование>--> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>18 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>20 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>21 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>23 <Наименование> --> Заказ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>24 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ОплатаПоставщику"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Значения/> <Правило> <Код>РКО_ВыдачаПодотчетнику <Наименование>Документ: Расходный кассовый ордер (выдача подотчетнику) <Порядок>150 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.РКО <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>9 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>16 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>5 <Наименование>ФизЛицо --> ПодотчетноеЛицо <Порядок>450 <Источник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>15 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВыдачаДенежныхСредствПодотчетнику"; <Свойство> <Код>14 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>600 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВыдачаДенежныхСредствПодотчетнику"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>6 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПоДокументу --> ПоДокументу <Порядок>750 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Выдать --> Выдать <Порядок>800 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Автор --> Кассир <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Группа> <Код>17 <Наименование> --> РасшифровкаПлатежа <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>18 <Наименование>--> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>20 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>21 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>24 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВыдачаДенежныхСредствПодотчетнику"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Значения/> <Правило> <Код>РКО_ВыдачаПодотчетнику_ВО <Наименование>Документ: Расходный кассовый ордер (выдача подотчетнику) <Порядок>200 <Источник>ДокументСсылка.РКО <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>9 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>12 <Наименование> --> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование> --> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>16 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>5 <Наименование>ФизЛицо --> ПодотчетноеЛицо <Порядок>450 <Источник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>15 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>--> ХозяйственнаяОперация <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВыдачаДенежныхСредствПодотчетнику"; <Свойство> <Код>6 <Наименование>Основание --> Основание <Порядок>650 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Приложение --> Приложение <Порядок>700 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПоДокументу --> ПоДокументу <Порядок>750 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Выдать --> Выдать <Порядок>800 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Автор --> Кассир <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>22 <Наименование>ДатаДок --> ДатаАвансовогоОтчета <Порядок>900 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаАвансовогоОтчета" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>РКО_ВыдачаПодотчетнику_Поиск <Наименование>Документ: Расходный кассовый ордер (выдача подотчетнику) <Порядок>250 <Источник>ДокументСсылка.РКО <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Дата <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Дата('01.01.1980'); <Свойство Поиск="true"> <Код>2 <Наименование>--> Номер <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = ПривестиНомерКДлине("1", 11); <Свойство Поиск="true"> <Код>3 <Наименование> --> Валюта <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>4 <Наименование> --> ПодотчетноеЛицо <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство Поиск="true"> <Код>5 <Наименование> --> ХозяйственнаяОперация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <Свойство Поиск="true"> <Код>6 <Наименование>--> Организация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Значения/> <Правило> <Код>РКО_ПрочаяВыдача <Наименование>Документ: Расходный кассовый ордер (прочая выдача) <Порядок>300 <ПередВыгрузкой> Если ТолькоПолучитьУзелСсылки = 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ОпределитьКонтрагентаПрочегоДвиженияДС(); КонецЕсли; <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.РКО <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>8 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>11 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>15 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>14 <Наименование>Сумма --> СуммаДокумента <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование> --> ХозяйственнаяОперация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПрочаяВыдачаДенежныхСредств"; <Свойство> <Код>13 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>550 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочаяВыдачаДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>5 <Наименование>Основание --> Основание <Порядок>600 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Приложение --> Приложение <Порядок>650 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ПоДокументу --> ПоДокументу <Порядок>700 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Выдать --> Выдать <Порядок>750 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Автор --> Кассир <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>22 <Наименование>--> Контрагент <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>СвоиЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Группа> <Код>16 <Наименование> --> РасшифровкаПлатежа <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>17 <Наименование> --> ВалютаВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Валюта; <Свойство> <Код>18 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>19 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>23 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочаяВыдачаДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Значения/> <Группа> <Код>ПоступлениеБезналичныхДС <Наименование>Поступление безналичных денежных средств <Порядок>150 <Правило> <Код>ПБД_ОплатаОтПокупателя <Наименование>Документ: Строка выписки банка (приход, оплата от покупателя) <Порядок>50 <ПослеВыгрузки>ЗапомнитьПараметрыВыписки(); <ПослеЗагрузки>Если НЕ Объект.ЭтоНовый() Тогда СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Объект.Ссылка, "ДатаВходящегоДокумента,НомерВходящегоДокумента"); Если ЗначениеЗаполнено(СтарыеЗначения.ДатаВходящегоДокумента) Тогда Объект.ДатаВходящегоДокумента = СтарыеЗначения.ДатаВходящегоДокумента; КонецЕсли; Если ЗначениеЗаполнено(СтарыеЗначения.НомерВходящегоДокумента) Тогда Объект.НомерВходящегоДокумента = СтарыеЗначения.НомерВходящегоДокумента; КонецЕсли; КонецЕсли; Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаВыпискиПриход <Приемник>ДокументСсылка.ПоступлениеБезналичныхДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>400 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>13 <Наименование> --> ХозяйственнаяОперация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПоступлениеОплатыОтКлиента"; <Свойство> <Код>9 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>550 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПоступлениеОплатыОтКлиента"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>10 <Наименование>Сумма --> СуммаДокумента <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> ТипПлатежногоДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ТипПлатежногоДокумента" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыПлатежныхДокументов"/> <ПередВыгрузкой>Значение = "ПлатежноеПоручение"; <Свойство> <Код>22 <Наименование>ДатаДок --> ДатаВходящегоДокумента <Порядок>700 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>23 <Наименование> --> НомерВходящегоДокумента <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "-"; <Группа> <Код>14 <Наименование>--> РасшифровкаПлатежа <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>17 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>15 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>18 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>19 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>21 <Наименование> --> ОснованиеПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОснованиеПлатежа" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ДокОснование = Источник.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда ИсходящиеДанные.Установить("ДокументПоДоговору", ДокОснование); ОпределитьХозоперациюПоДокументуДоговора(); ХозоперацияДляДоговораПоДокументу = ИсходящиеДанные.Получить("ХозоперацияДляДоговораПоДокументу"); Если ПустоеЗначение(ХозоперацияДляДоговораПоДокументу) = 0 Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозоперацияДляДоговораПоДокументу); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ИсходящиеДанные.Получить("ХозяйственнаяОперация")) = 1 Тогда СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); КонецЕсли; ВыгрузитьДоговорВДоговор(); <Свойство> <Код>20 <Наименование> --> Заказ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ДокОснование = Источник.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда ИсходящиеДанные.Установить("ДокументПоДоговору", ДокОснование); ОпределитьХозоперациюПоДокументуДоговора(); ХозоперацияДляДоговораПоДокументу = ИсходящиеДанные.Получить("ХозоперацияДляДоговораПоДокументу"); Если ПустоеЗначение(ХозоперацияДляДоговораПоДокументу) = 0 Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозоперацияДляДоговораПоДокументу); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ИсходящиеДанные.Получить("ХозяйственнаяОперация")) = 1 Тогда СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); КонецЕсли; ВыгрузитьДоговорВДоговор(); <Свойство> <Код>24 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПоступлениеОплатыОтКлиента"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>25 <Наименование>--> ПроведеноБанком <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ПроведеноБанком" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>26 <Наименование>ДатаДок --> ДатаПроведенияБанком <Порядок>900 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПроведенияБанком" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>ПБД_ВозвратОтПоставщика <Наименование>Документ: Строка выписки банка (приход, возврат от поставщика) <Порядок>100 <ПослеВыгрузки>ЗапомнитьПараметрыВыписки(); <ПослеЗагрузки>Если НЕ Объект.ЭтоНовый() Тогда СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Объект.Ссылка, "ДатаВходящегоДокумента,НомерВходящегоДокумента"); Если ЗначениеЗаполнено(СтарыеЗначения.ДатаВходящегоДокумента) Тогда Объект.ДатаВходящегоДокумента = СтарыеЗначения.ДатаВходящегоДокумента; КонецЕсли; Если ЗначениеЗаполнено(СтарыеЗначения.НомерВходящегоДокумента) Тогда Объект.НомерВходящегоДокумента = СтарыеЗначения.НомерВходящегоДокумента; КонецЕсли; КонецЕсли; Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаВыпискиПриход <Приемник>ДокументСсылка.ПоступлениеБезналичныхДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>400 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>13 <Наименование> --> ХозяйственнаяОперация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВозвратДенежныхСредствОтПоставщика"; <Свойство> <Код>9 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>550 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратДенежныхСредствОтПоставщика"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>10 <Наименование>Сумма --> СуммаДокумента <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> ТипПлатежногоДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ТипПлатежногоДокумента" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыПлатежныхДокументов"/> <ПередВыгрузкой>Значение = "ПлатежноеПоручение"; <Свойство> <Код>21 <Наименование>ДатаДок --> ДатаВходящегоДокумента <Порядок>700 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>22 <Наименование> --> НомерВходящегоДокумента <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "-"; <Группа> <Код>14 <Наименование>--> РасшифровкаПлатежа <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>16 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>15 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>17 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>18 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>20 <Наименование> --> ОснованиеПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОснованиеПлатежа" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>19 <Наименование> --> Заказ <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>23 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратДенежныхСредствОтПоставщика"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>24 <Наименование>--> ПроведеноБанком <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ПроведеноБанком" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>25 <Наименование>ДатаДок --> ДатаПроведенияБанком <Порядок>900 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПроведенияБанком" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>ПБД_ПрочееПоступление <Наименование>Документ: Строка выписки банка (приход, прочее поступление) <Порядок>150 <ПередВыгрузкой>Если ТолькоПолучитьУзелСсылки = 0 Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ОпределитьКонтрагентаПрочегоДвиженияДС(); КонецЕсли; <ПослеВыгрузки>ЗапомнитьПараметрыВыписки(); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаВыпискиПриход <Приемник>ДокументСсылка.ПоступлениеБезналичныхДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>400 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>12 <Наименование> --> ХозяйственнаяОперация <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПрочееПоступлениеДенежныхСредств"; <Свойство> <Код>8 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>500 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочееПоступлениеДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>9 <Наименование>Сумма --> СуммаДокумента <Порядок>550 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ТипПлатежногоДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ТипПлатежногоДокумента" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыПлатежныхДокументов"/> <ПередВыгрузкой>Значение = "ПлатежноеПоручение"; <Свойство> <Код>18 <Наименование>--> Контрагент <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Группа> <Код>13 <Наименование>--> РасшифровкаПлатежа <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>14 <Наименование> --> ВалютаВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Валюта; <Свойство> <Код>16 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>17 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>19 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочееПоступлениеДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>20 <Наименование>--> ПроведеноБанком <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ПроведеноБанком" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>21 <Наименование>ДатаДок --> ДатаПроведенияБанком <Порядок>800 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПроведенияБанком" Вид="Реквизит" Тип="Дата"/> <Значения/> <Группа> <Код>СписаниеБезналичныхДС <Наименование>Списание безналичных денежных средств <Порядок>200 <Правило> <Код>СБД_ОплатаПоставщику <Наименование>Документ: Строка выписки банка (расход, оплата поставщику) <Порядок>50 <ПослеВыгрузки>ЗапомнитьПараметрыВыписки(); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаВыпискиРасход <Приемник>ДокументСсылка.СписаниеБезналичныхДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>400 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>18 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>12 <Наименование> --> ХозяйственнаяОперация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ОплатаПоставщику"; <Свойство> <Код>8 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>550 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ОплатаПоставщику"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>10 <Наименование>Сумма --> СуммаДокумента <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ТипПлатежногоДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ТипПлатежногоДокумента" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыПлатежныхДокументов"/> <ПередВыгрузкой>Значение = "ПлатежноеПоручение"; <Свойство> <Код>20 <Наименование>--> БанковскийСчетКонтрагента <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаКонтрагентов"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда ОсновнойСчет = Источник.Контрагент.ОсновнойСчет; Если ПустоеЗначение(ОсновнойСчет) = 0 Тогда Если ОсновнойСчет.ВалютаСчета = Источник.Валюта Тогда Значение = ОсновнойСчет; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "БанковскиеСчетаКонтрагентовИзВходящихДанных"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Источник.Контрагент); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Источник.Валюта); Иначе ИмяПКО = "БанковскиеСчета_БанковскиеСчетаКонтрагентов"; КонецЕсли; <Свойство> <Код>22 <Наименование>--> ВидПлатежа <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Если Значение = -1 Тогда Значение = "Электронно"; КонецЕсли; <Свойство> <Код>21 <Наименование>--> НазначениеПлатежа <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Если Значение = -1 Тогда СчетКонтрагента = Источник.Контрагент.ОсновнойСчет; Если ПустоеЗначение(СчетКонтрагента) = 0 Тогда Значение = СчетКонтрагента.Назначение; Иначе Значение = ""; КонецЕсли; КонецЕсли; <Свойство> <Код>23 <Наименование>--> ОчередностьПлатежа <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если Значение < 1 Тогда Значение = 6; КонецЕсли; <Группа> <Код>13 <Наименование>--> РасшифровкаПлатежа <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>15 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>14 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>16 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>17 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>19 <Наименование> --> Заказ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ДокОснование = Источник.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда ИсходящиеДанные.Установить("ДокументПоДоговору", ДокОснование); ОпределитьХозоперациюПоДокументуДоговора(); ХозоперацияДляДоговораПоДокументу = ИсходящиеДанные.Получить("ХозоперацияДляДоговораПоДокументу"); Если ПустоеЗначение(ХозоперацияДляДоговораПоДокументу) = 0 Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозоперацияДляДоговораПоДокументу); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ИсходящиеДанные.Получить("ХозяйственнаяОперация")) = 1 Тогда СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("ЗакупкаУПоставщика"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПриемНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); КонецЕсли; ВыгрузитьДоговорВДоговор(); <Свойство> <Код>24 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ОплатаПоставщику"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>25 <Наименование>--> ПроведеноБанком <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПроведеноБанком" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>26 <Наименование>ДатаДок --> ДатаПроведенияБанком <Порядок>1000 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПроведенияБанком" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>СБД_ВозвратПокупателю <Наименование>Документ: Строка выписки банка (расход, возврат покупателю) <Порядок>100 <ПослеВыгрузки>ЗапомнитьПараметрыВыписки(); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаВыпискиРасход <Приемник>ДокументСсылка.СписаниеБезналичныхДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>400 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>18 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>12 <Наименование> --> ХозяйственнаяОперация <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВозвратОплатыКлиенту"; <Свойство> <Код>8 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>550 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратОплатыКлиенту"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>10 <Наименование>Сумма --> СуммаДокумента <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ТипПлатежногоДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ТипПлатежногоДокумента" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыПлатежныхДокументов"/> <ПередВыгрузкой>Значение = "ПлатежноеПоручение"; <Свойство> <Код>20 <Наименование>--> БанковскийСчетКонтрагента <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаКонтрагентов"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда ОсновнойСчет = Источник.Контрагент.ОсновнойСчет; Если ПустоеЗначение(ОсновнойСчет) = 0 Тогда Если ОсновнойСчет.ВалютаСчета = Источник.Валюта Тогда Значение = ОсновнойСчет; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "БанковскиеСчетаКонтрагентовИзВходящихДанных"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Источник.Контрагент); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Источник.Валюта); Иначе ИмяПКО = "БанковскиеСчета_БанковскиеСчетаКонтрагентов"; КонецЕсли; <Свойство> <Код>21 <Наименование>--> ВидПлатежа <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Если Значение = -1 Тогда Значение = "Электронно"; КонецЕсли; <Свойство> <Код>22 <Наименование>--> НазначениеПлатежа <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Если Значение = -1 Тогда СчетКонтрагента = Источник.Контрагент.ОсновнойСчет; Если ПустоеЗначение(СчетКонтрагента) = 0 Тогда Значение = СчетКонтрагента.Назначение; Иначе Значение = ""; КонецЕсли; КонецЕсли; <Свойство> <Код>23 <Наименование>--> ОчередностьПлатежа <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если Значение < 1 Тогда Значение = 6; КонецЕсли; <Группа> <Код>13 <Наименование>--> РасшифровкаПлатежа <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>15 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>14 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>16 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>17 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>19 <Наименование> --> Заказ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>24 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратОплатыКлиенту"); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>25 <Наименование>--> ПроведеноБанком <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПроведеноБанком" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>26 <Наименование>ДатаДок --> ДатаПроведенияБанком <Порядок>1000 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПроведенияБанком" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>СБД_ПрочееСписание <Наименование>Документ: Строка выписки банка (расход, прочее списание) <Порядок>150 <ПередВыгрузкой>Если ТолькоПолучитьУзелСсылки = 0 Тогда ОпределитьКонтрагентаПрочегоДвиженияДС(); КонецЕсли; <ПослеВыгрузки>ЗапомнитьПараметрыВыписки(); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаВыпискиРасход <Приемник>ДокументСсылка.СписаниеБезналичныхДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>400 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>12 <Наименование> --> ХозяйственнаяОперация <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПрочаяВыдачаДенежныхСредств"; <Свойство> <Код>8 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>500 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочаяВыдачаДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>10 <Наименование>Сумма --> СуммаДокумента <Порядок>550 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ТипПлатежногоДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ТипПлатежногоДокумента" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыПлатежныхДокументов"/> <ПередВыгрузкой>Значение = "ПлатежноеПоручение"; <Свойство> <Код>18 <Наименование>--> Контрагент <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>19 <Наименование>--> БанковскийСчетКонтрагента <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаКонтрагентов"/> <ПриВыгрузке>Контрагент = ВходящиеДанные.Получить("Контрагент"); Если ПустоеЗначение(Значение) = 1 Тогда ОсновнойСчет = 0; Если Контрагент <> "1" Тогда ОсновнойСчет = Контрагент.ОсновнойСчет; КонецЕсли; Если ПустоеЗначение(ОсновнойСчет) = 0 Тогда Если ОсновнойСчет.ВалютаСчета = Источник.Валюта Тогда Значение = Контрагент.ОсновнойСчет; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "БанковскиеСчетаКонтрагентовИзВходящихДанных"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Контрагент); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Источник.Валюта); Иначе ИмяПКО = "БанковскиеСчета_БанковскиеСчетаКонтрагентов"; КонецЕсли; <Свойство> <Код>20 <Наименование>--> ВидПлатежа <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>--> НазначениеПлатежа <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <ПриВыгрузке>Если Значение = -1 Тогда Контрагент = ВходящиеДанные.Получить("Контрагент"); Если Контрагент <> "1" Тогда СчетКонтрагента = Контрагент.ОсновнойСчет; Если ПустоеЗначение(СчетКонтрагента) = 0 Тогда Значение = СчетКонтрагента.Назначение; КонецЕсли; КонецЕсли; КонецЕсли; Если Значение = -1 Тогда Значение = ""; КонецЕсли; <Свойство> <Код>22 <Наименование>--> ОчередностьПлатежа <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если Значение < 1 Тогда Значение = 6; КонецЕсли; <Группа> <Код>13 <Наименование>--> РасшифровкаПлатежа <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>14 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Валюта; <Свойство> <Код>16 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>17 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>23 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПрочаяВыдачаДенежныхСредств"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>24 <Наименование>--> ПроведеноБанком <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПроведеноБанком" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>25 <Наименование>ДатаДок --> ДатаПроведенияБанком <Порядок>1000 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПроведенияБанком" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>СБД_ПеречислениеНалога <Наименование>Документ: Строка выписки банка (расход, прочее списание) <Порядок>200 <ПослеВыгрузки>ЗапомнитьПараметрыВыписки(); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаВыпискиРасход <Приемник>ДокументСсылка.СписаниеБезналичныхДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>400 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>12 <Наименование> --> ХозяйственнаяОперация <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПеречислениеВБюджет"; <Свойство> <Код>8 <Наименование>ДвижениеДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>500 <Источник Имя="ДвижениеДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.ДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПеречислениеВБюджет"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>10 <Наименование>Сумма --> СуммаДокумента <Порядок>550 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ТипПлатежногоДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ТипПлатежногоДокумента" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыПлатежныхДокументов"/> <ПередВыгрузкой>Значение = "ПлатежноеПоручение"; <Свойство> <Код>17 <Наименование>--> Контрагент <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>18 <Наименование>--> БанковскийСчетКонтрагента <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаКонтрагентов"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаКонтрагентов <ПриВыгрузке>Контрагент = ВходящиеДанные.Получить("Контрагент"); Если ПустоеЗначение(Значение) = 1 Тогда ОсновнойСчет = 0; Если Контрагент <> "1" Тогда ОсновнойСчет = Контрагент.ОсновнойСчет; КонецЕсли; Если ПустоеЗначение(ОсновнойСчет) = 0 Тогда Если ОсновнойСчет.ВалютаСчета = Источник.Валюта Тогда Значение = Контрагент.ОсновнойСчет; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "БанковскиеСчетаКонтрагентовИзВходящихДанных"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Контрагент); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Источник.Валюта); Иначе ИмяПКО = "БанковскиеСчета_БанковскиеСчетаКонтрагентов"; КонецЕсли; <Свойство> <Код>19 <Наименование>--> ВидПлатежа <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>20 <Наименование>--> НазначениеПлатежа <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>--> ОчередностьПлатежа <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если Значение < 1 Тогда Значение = 6; КонецЕсли; <Свойство> <Код>22 <Наименование> --> СтатусСоставителя <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СтатусСоставителя" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.СтатусСоставителяПлДок; <Свойство> <Код>23 <Наименование> --> ПеречислениеВБюджет <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ПеречислениеВБюджет" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>24 <Наименование> --> ВидПеречисленияВБюджет <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПеречисленияВБюджет" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыПеречисленийВБюджет"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = ?(Значение.СтатусСоставителяПлДок = "08", "ИнойПлатеж", "НалоговыйПлатеж"); <Свойство> <Код>25 <Наименование> --> КодБК <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.КодБК; <Свойство> <Код>26 <Наименование> --> КодОКАТО <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.КодОКАТО; <Свойство> <Код>27 <Наименование> --> ПоказательОснования <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ПоказательОснования" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.ПоказательОснования; <Свойство> <Код>28 <Наименование> --> ПоказательПериода <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ПоказательПериода" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.ПоказательПериода; <Свойство> <Код>29 <Наименование> --> ПоказательДаты <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="ПоказательДаты" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.ПоказательДаты; <Свойство> <Код>30 <Наименование> --> ПоказательНомера <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ПоказательНомера" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.ПоказательНомера; <Свойство> <Код>31 <Наименование> --> ПоказательТипа <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="ПоказательТипа" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("ПлатежноеПоручение"); Значение = Значение.ПоказательТипа; <Группа> <Код>13 <Наименование>--> РасшифровкаПлатежа <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>15 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Валюта; <Свойство> <Код>16 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма; <Свойство> <Код>14 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Свойство> <Код>32 <Наименование> --> АналитикаРасходов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="АналитикаРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <ПередВыгрузкой>Значение = Источник.ЮрЛицо; <Свойство> <Код>33 <Наименование> --> Подразделение <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>34 <Наименование>--> СтатьяРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьяРасходов_НалоговыеПлатежи <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>35 <Наименование> --> ПериодВозникновенияРасхода <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПериодВозникновенияРасхода" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Источник.ДатаДок; <Свойство> <Код>36 <Наименование>--> СтатьяДвиженияДенежныхСредств <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <ПередВыгрузкой>Значение = Источник.ДвижениеДенежныхСредств; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПеречислениеВБюджет"); ИсходящиеДанные.Установить("КорреспондирующийСчет", Источник.Счет); ИсходящиеДанные.Установить("ВидОплаты", Источник.КодОперации); <Свойство> <Код>37 <Наименование>--> ПроведеноБанком <Порядок>1450 <Источник Имя="" Вид=""/> <Приемник Имя="ПроведеноБанком" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>38 <Наименование>ДатаДок --> ДатаПроведенияБанком <Порядок>1500 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаПроведенияБанком" Вид="Реквизит" Тип="Дата"/> <Значения/> <Группа> <Код>ПеремещениеНаличныхДС <Наименование>Перемещение наличных ДС <Порядок>250 <Правило> <Код>ПеремещениеДенегКасса_РасходныйКассовыйОрдер <Наименование>Документ: Перемещение денег (касса, расход) <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПеремещениеДенегКасса <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "П", 11, "Справа"); КонецЕсли; <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Касса --> Касса <Порядок>400 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>3 <Наименование>КассаПолучатель --> КассаПолучатель <Порядок>450 <Источник Имя="КассаПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="КассаПолучатель" Вид="Реквизит"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>10 <Наименование>Сумма --> СуммаДокумента <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Автор --> Кассир <Порядок>550 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>12 <Наименование> --> ХозяйственнаяОперация <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ВыдачаДенежныхСредствВДругуюКассу"; <Свойство> <Код>13 <Наименование> --> Основание <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Значения/> <Правило> <Код>ПеремещениеДенегКасса_ПриходныйКассовыйОрдер <Наименование>Документ: Перемещение денег (касса, приход) <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПеремещениеДенегКасса <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "П", 11, "Справа"); КонецЕсли; <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>КассаПолучатель --> Касса <Порядок>400 <Источник Имя="КассаПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); <Свойство> <Код>9 <Наименование>Сумма --> СуммаДокумента <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>Автор --> Кассир <Порядок>550 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Кассир" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>12 <Наименование> --> ХозяйственнаяОперация <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПоступлениеДенежныхСредствИзДругойКассы"; <Свойство> <Код>13 <Наименование>--> Основание <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник); <Свойство> <Код>14 <Наименование>Касса --> КассаОтправитель <Порядок>700 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="КассаОтправитель" Вид="Реквизит"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец") <Значения/> <Группа> <Код>Подотчетники <Наименование>Подотчетники <Порядок>100 <Правило> <Код>СтрокаАвансОтчетаТМЦ_ПоступлениеТоваровУслуг <Наименование>Документ: Строка аванс. отчета (закупка ТМЦ) <Порядок>50 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("НалогообложениеНДС", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); СФ = глНайтиСчетФактуру(Источник, "СчетФактураПолученный"); Если ПустоеЗначение(СФ) = 0 Тогда ВходящиеДанные.ДобавитьЗначение(СФ.Контрагент, "Контрагент"); ВходящиеДанные.ДобавитьЗначение(СФ.Договор, "Договор"); Иначе ВходящиеДанные.ДобавитьЗначение(0, "Контрагент"); ВходящиеДанные.ДобавитьЗначение(0, "Договор"); КонецЕсли; <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ПриобретениеТоваровУслуг.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СтрокаАвансОтчетаТМЦ <Приемник>ДокументСсылка.ПриобретениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "А", 11, "Справа"); КонецЕсли; <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>28 <Наименование>--> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Договор = ВходящиеДанные.Получить("Договор"); Если ПустоеЗначение(Значение) = 0 Тогда Значение = Договор.ВалютаВзаиморасчетов; Иначе Значение = Константа.ВалютаБухУчета; КонецЕсли; <Свойство> <Код>8 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>13 <Наименование>ФизЛицо --> ПодотчетноеЛицо <Порядок>500 <Источник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>25 <Наименование>--> Партнер <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <ПередВыгрузкой>Значение = "НеизвестныйПартнер"; Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда ИмяПКО = "ПартнерПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>23 <Наименование>--> Контрагент <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>СвоиЮрЛица_Контрагенты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда ВыгрузитьКонтрагентаВКонтрагента(); Иначе Значение = "1"; ИмяПКО = "НеизвестныйКонтрагент"; КонецЕсли; <Свойство> <Код>27 <Наименование>--> Соглашение <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("Договор"); Если ПустоеЗначение(Значение) = 0 Тогда Если Параметры.ИспользоватьСоглашенияСПоставщиками = 1 тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); Иначе Отказ = 1; КонецЕсли; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>38 <Наименование>--> Договор <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); Иначе Значение = 0; КонецЕсли; <Свойство> <Код>29 <Наименование>--> ХозяйственнаяОперация <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ЗакупкаЧерезПодотчетноеЛицо"; <Свойство> <Код>12 <Наименование>--> НалогообложениеНДС <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>11 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>850 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>31 <Наименование>--> СуммаДокумента <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>30 <Наименование>--> СуммаВзаиморасчетов <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>24 <Наименование>Автор --> Менеджер <Порядок>1000 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>26 <Наименование>--> Подразделение <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>9 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1100 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>10 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1150 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>40 <Наименование>--> ЗакупкаПодДеятельность <Порядок>1350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Группа> <Код>14 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1400 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>17 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>15 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>16 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>22 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>300 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>21 <Наименование>СуммаНДС --> СуммаНДС <Порядок>350 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>Сумма --> Сумма <Порядок>400 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>18 <Наименование>Партия --> НомерГТД <Порядок>500 <Источник Имя="Партия" Вид="Реквизит" Тип="СправочникСсылка.Партии"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>Партии_НомераГТД <Свойство> <Код>33 <Наименование>--> Склад <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник.Склад; <Свойство> <Код>39 <Наименование>--> КодСтроки <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>АвансовыйОтчет <Наименование>Документ: Авансовый отчет <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Параметры.Сценарий_ПереносОстатков = 1 Тогда ДатаНач = Параметры.ДатаНачалаСценария; Иначе ДатаНач = Дата(000,1,1); КонецЕсли; // Получаем таблицу полученных авансов Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ПолученныеАвансы) |Период с ДатаНач; |ТекущийДокумент = Регистр.ПодотчетныеЛица.ТекущийДокумент; |КредДокумент = Регистр.ПодотчетныеЛица.КредДокумент; |СуммаВал = Регистр.ПодотчетныеЛица.СуммаВал; |АвансовыйОтчет = Регистр.ПодотчетныеЛица.ТекущийДокумент.СтрокаАвансОтчетаОплата.АвансовыйОтчет, Регистр.ПодотчетныеЛица.ТекущийДокумент.СтрокаАвансОтчетаПрочее.АвансовыйОтчет, Регистр.ПодотчетныеЛица.ТекущийДокумент.СтрокаАвансОтчетаТМЦ.АвансовыйОтчет; |Функция СуммаВалРасход = Расход(СуммаВал); |Группировка ТекущийДокумент; |Группировка КредДокумент; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; ТабПолученныеАвансы = СоздатьОбъект("ТаблицаЗначений"); ТабПолученныеАвансы.НоваяКолонка("ДокументАванса"); ТабПолученныеАвансы.НоваяКолонка("Сумма"); Перерасход = 0; Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл Если Запрос.СуммаВалРасход > 0 Тогда Если Запрос.КредДокумент = Запрос.ТекущийДокумент Тогда Перерасход = Перерасход + Запрос.СуммаВалРасход; Иначе ТабПолученныеАвансы.НоваяСтрока(); ТабПолученныеАвансы.ДокументАванса = Запрос.КредДокумент; ТабПолученныеАвансы.Сумма = Запрос.СуммаВалРасход; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; ТабПолученныеАвансы.Свернуть("ДокументАванса", "Сумма"); ВходящиеДанные.Установить("ИтогоИзрасходовано", Запрос.СуммаВалРасход); ВходящиеДанные.Установить("ИтогоПолучено", ТабПолученныеАвансы.Итог("Сумма")); ВходящиеДанные.Установить("Перерасход", Перерасход); ВходящиеДанные.Установить("ПолученныеАвансы", ТабПолученныеАвансы); // Получаем таблицу оплат ТабОплатаПоставщикам = СоздатьОбъект("ТаблицаЗначений"); ТекстЗапроса = "//{{ЗАПРОС(Платежи) |Период с ДатаНач; |Без итогов; |АвансовыйОтчет = Документ.СтрокаАвансОтчетаОплата.АвансовыйОтчет; |Поставщик = Документ.СтрокаАвансОтчетаОплата.Контрагент; |Контрагент = Документ.СтрокаАвансОтчетаОплата.Контрагент; |ВалютаВзаиморасчетов = Документ.СтрокаАвансОтчетаОплата.Договор.ВалютаВзаиморасчетов; |Сумма = Документ.СтрокаАвансОтчетаОплата.Сумма; |СуммаВзаиморасчетов = Документ.СтрокаАвансОтчетаОплата.СуммаВзаиморасчетов; |Комментарий = Документ.СтрокаАвансОтчетаОплата.Содержание; |ДатаВходящегоДокумента = Документ.СтрокаАвансОтчетаОплата.ДатаДокВходящий; |НомерВходящегоДокумента = Документ.СтрокаАвансОтчетаОплата.НомерДокВходящий; |Группировка СтрокаДокумента; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Запрос.Выгрузить(ТабОплатаПоставщикам, 1, 0); ВходящиеДанные.Установить("ОплатаПоставщикам", ТабОплатаПоставщикам); // Получаем таблицу поступлений ТабЗакупкаЗаНаличныйРасчет = СоздатьОбъект("ТаблицаЗначений"); ТекстЗапроса = "//{{ЗАПРОС(Поступления) |Период с ДатаНач; |Без итогов; |ДокументПоступления = Документ.СтрокаАвансОтчетаТМЦ.ТекущийДокумент; |СуммаВклНДС = Документ.СтрокаАвансОтчетаТМЦ.СуммаВклНДС; |АвансовыйОтчет = Документ.СтрокаАвансОтчетаТМЦ.АвансовыйОтчет; |Сумма = Документ.СтрокаАвансОтчетаТМЦ.Сумма; |СуммаНДС = Документ.СтрокаАвансОтчетаТМЦ.СуммаНДС; |Группировка СтрокаДокумента; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Запрос.Выгрузить(ТабЗакупкаЗаНаличныйРасчет, 1, 0); ТабЗакупкаЗаНаличныйРасчет.ВыбратьСтроки(); Пока ТабЗакупкаЗаНаличныйРасчет.ПолучитьСтроку() = 1 Цикл ТабЗакупкаЗаНаличныйРасчет.Сумма = ТабЗакупкаЗаНаличныйРасчет.Сумма + ?(ТабЗакупкаЗаНаличныйРасчет.СуммаВклНДС = 0, ТабЗакупкаЗаНаличныйРасчет.СуммаНДС, 0); КонецЦикла; ТабЗакупкаЗаНаличныйРасчет.Свернуть("ДокументПоступления", "Сумма"); ВходящиеДанные.Установить("ЗакупкаЗаНаличныйРасчет", ТабЗакупкаЗаНаличныйРасчет); // Получаем таблицу прочих расходов ТабПрочиеРасходы = СоздатьОбъект("ТаблицаЗначений"); ТекстЗапроса = "//{{ЗАПРОС(ПрочиеРасходы) |Период с ДатаНач; |АвансовыйОтчет = Документ.СтрокаАвансОтчетаПрочее.АвансовыйОтчет; |Счет = Документ.СтрокаАвансОтчетаПрочее.Счет; |Комментарий = Документ.СтрокаАвансОтчетаПрочее.Содержание; |Сумма = Документ.СтрокаАвансОтчетаПрочее.Сумма; |СуммаНДС = Документ.СтрокаАвансОтчетаПрочее.СуммаНДС; |СуммаВклНДС = Документ.СтрокаАвансОтчетаПрочее.СуммаВклНДС; |ПериодВозникновенияРасхода = Документ.СтрокаАвансОтчетаПрочее.ДатаДок; |Группировка СтрокаДокумента; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Запрос.Выгрузить(ТабПрочиеРасходы, 1, 0); ТабПрочиеРасходы.ВыбратьСтроки(); Пока ТабПрочиеРасходы.ПолучитьСтроку() = 1 Цикл ТабПрочиеРасходы.Сумма = ТабПрочиеРасходы.Сумма + ?(ТабПрочиеРасходы.СуммаВклНДС = 0, ТабПрочиеРасходы.СуммаНДС, 0); КонецЦикла; ТабПрочиеРасходы.Свернуть("Комментарий,ПериодВозникновенияРасхода,Счет", "Сумма"); ВходящиеДанные.Установить("ПрочиеРасходы", ТабПрочиеРасходы); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.АвансовыйОтчет <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> Проведен <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПриВыгрузке>Значение = 1 - Значение; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>8 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>7 <Наименование>ФизЛицо --> ПодотчетноеЛицо <Порядок>400 <Источник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>6 <Наименование>НаименованиеАванса --> НазначениеАванса <Порядок>650 <Источник Имя="НаименованиеАванса" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НазначениеАванса" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Подразделение <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>11 <Наименование>НаЛистах --> КоличествоЛистов <Порядок>750 <Источник Имя="НаЛистах" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоЛистов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>ПриложеноДок --> КоличествоДокументов <Порядок>800 <Источник Имя="ПриложеноДок" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДокументов" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>20 <Наименование>--> ОплатаПоставщикам <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ОплатаПоставщикам" Вид="ТабличнаяЧасть"/> <Свойство> <Код>28 <Наименование> --> Поставщик <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>26 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>23 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>21 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> СуммаВзаиморасчетов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> Комментарий <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>24 <Наименование> --> ДатаВходящегоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>27 <Наименование> --> НомерВходящегоДокумента <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>33 <Наименование>--> ПрочиеРасходы <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ПрочиеРасходы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>34 <Наименование> --> Комментарий <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>36 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> АналитикаРасходов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="АналитикаРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <ПередВыгрузкой>Значение = Источник.ЮрЛицо; <Свойство> <Код>38 <Наименование>--> СтатьяРасходов <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьяРасходов_ПоступлениеУслуг <ПередВыгрузкой>Значение = ОбъектКоллекции.Счет; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "без указания счета"; КонецЕсли; <Свойство> <Код>39 <Наименование>--> Подразделение <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>АвансовыйОтчет_ВО <Наименование>Документ: Авансовый отчет (ввод остатков) <Порядок>150 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); // Получаем таблицу полученных авансов Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ПолученныеАвансы) |Период с (Дата(000,1,1)); |ТекущийДокумент = Регистр.ПодотчетныеЛица.ТекущийДокумент; |КредДокумент = Регистр.ПодотчетныеЛица.КредДокумент; |СуммаВал = Регистр.ПодотчетныеЛица.СуммаВал; |АвансовыйОтчет = Регистр.ПодотчетныеЛица.ТекущийДокумент.СтрокаАвансОтчетаОплата.АвансовыйОтчет, Регистр.ПодотчетныеЛица.ТекущийДокумент.СтрокаАвансОтчетаПрочее.АвансовыйОтчет, Регистр.ПодотчетныеЛица.ТекущийДокумент.СтрокаАвансОтчетаТМЦ.АвансовыйОтчет; |Функция СуммаВалРасход = Расход(СуммаВал); |Группировка ТекущийДокумент; |Группировка КредДокумент; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; ТабПолученныеАвансы = СоздатьОбъект("ТаблицаЗначений"); ТабПолученныеАвансы.НоваяКолонка("ДокументАванса"); ТабПолученныеАвансы.НоваяКолонка("Сумма"); Перерасход = 0; Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл Если Запрос.СуммаВалРасход > 0 Тогда Если Запрос.КредДокумент = Запрос.ТекущийДокумент Тогда Перерасход = Перерасход + Запрос.СуммаВалРасход; Иначе ТабПолученныеАвансы.НоваяСтрока(); ТабПолученныеАвансы.ДокументАванса = Запрос.КредДокумент; ТабПолученныеАвансы.Сумма = Запрос.СуммаВалРасход; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; ТабПолученныеАвансы.Свернуть("ДокументАванса", "Сумма"); ВходящиеДанные.ДобавитьЗначение(Запрос.СуммаВалРасход, "ИтогоИзрасходовано"); ВходящиеДанные.ДобавитьЗначение(ТабПолученныеАвансы.Итог("Сумма"), "ИтогоПолучено"); ВходящиеДанные.ДобавитьЗначение(Перерасход, "Перерасход"); ВходящиеДанные.ДобавитьЗначение(ТабПолученныеАвансы, "ПолученныеАвансы"); // Получаем таблицу оплат ТабОплатаПоставщикам = СоздатьОбъект("ТаблицаЗначений"); ТекстЗапроса = "//{{ЗАПРОС(Платежи) |Период с (Дата(000,1,1)); |Без итогов; |АвансовыйОтчет = Документ.СтрокаАвансОтчетаОплата.АвансовыйОтчет; |Поставщик = Документ.СтрокаАвансОтчетаОплата.Контрагент; |Контрагент = Документ.СтрокаАвансОтчетаОплата.Контрагент; |ВалютаВзаиморасчетов = Документ.СтрокаАвансОтчетаОплата.Договор.ВалютаВзаиморасчетов; |Сумма = Документ.СтрокаАвансОтчетаОплата.Сумма; |СуммаВзаиморасчетов = Документ.СтрокаАвансОтчетаОплата.СуммаВзаиморасчетов; |Комментарий = Документ.СтрокаАвансОтчетаОплата.Содержание; |ДатаВходящегоДокумента = Документ.СтрокаАвансОтчетаОплата.ДатаДокВходящий; |НомерВходящегоДокумента = Документ.СтрокаАвансОтчетаОплата.НомерДокВходящий; |Группировка СтрокаДокумента; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Запрос.Выгрузить(ТабОплатаПоставщикам, 1, 0); ВходящиеДанные.ДобавитьЗначение(ТабОплатаПоставщикам, "ОплатаПоставщикам"); // Получаем таблицу поступлений ТабЗакупкаЗаНаличныйРасчет = СоздатьОбъект("ТаблицаЗначений"); ТекстЗапроса = "//{{ЗАПРОС(Поступления) |Период с (Дата(000,1,1)); |Без итогов; |ДокументПоступления = Документ.СтрокаАвансОтчетаТМЦ.ТекущийДокумент; |СуммаВклНДС = Документ.СтрокаАвансОтчетаТМЦ.СуммаВклНДС; |АвансовыйОтчет = Документ.СтрокаАвансОтчетаТМЦ.АвансовыйОтчет; |Сумма = Документ.СтрокаАвансОтчетаТМЦ.Сумма; |СуммаНДС = Документ.СтрокаАвансОтчетаТМЦ.СуммаНДС; |Группировка СтрокаДокумента; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Запрос.Выгрузить(ТабЗакупкаЗаНаличныйРасчет, 1, 0); ТабЗакупкаЗаНаличныйРасчет.ВыбратьСтроки(); Пока ТабЗакупкаЗаНаличныйРасчет.ПолучитьСтроку() = 1 Цикл ТабЗакупкаЗаНаличныйРасчет.Сумма = ТабЗакупкаЗаНаличныйРасчет.Сумма + ?(ТабЗакупкаЗаНаличныйРасчет.СуммаВклНДС = 0, ТабЗакупкаЗаНаличныйРасчет.СуммаНДС, 0); КонецЦикла; ТабЗакупкаЗаНаличныйРасчет.Свернуть("ДокументПоступления", "Сумма"); ВходящиеДанные.ДобавитьЗначение(ТабЗакупкаЗаНаличныйРасчет, "ЗакупкаЗаНаличныйРасчет"); // Получаем таблицу прочих расходов ТабПрочиеРасходы = СоздатьОбъект("ТаблицаЗначений"); ТекстЗапроса = "//{{ЗАПРОС(ПрочиеРасходы) |Период с (Дата(000,1,1)); |АвансовыйОтчет = Документ.СтрокаАвансОтчетаПрочее.АвансовыйОтчет; |Счет = Документ.СтрокаАвансОтчетаПрочее.Счет; |Комментарий = Документ.СтрокаАвансОтчетаПрочее.Содержание; |Сумма = Документ.СтрокаАвансОтчетаПрочее.Сумма; |СуммаНДС = Документ.СтрокаАвансОтчетаПрочее.СуммаНДС; |СуммаВклНДС = Документ.СтрокаАвансОтчетаПрочее.СуммаВклНДС; |ПериодВозникновенияРасхода = Документ.СтрокаАвансОтчетаПрочее.ДатаДок; |Группировка СтрокаДокумента; |Условие(АвансовыйОтчет = Источник); |"//}}ЗАПРОС ; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Запрос.Выгрузить(ТабПрочиеРасходы, 1, 0); ТабПрочиеРасходы.ВыбратьСтроки(); Пока ТабПрочиеРасходы.ПолучитьСтроку() = 1 Цикл ТабПрочиеРасходы.Сумма = ТабПрочиеРасходы.Сумма + ?(ТабПрочиеРасходы.СуммаВклНДС = 0, ТабПрочиеРасходы.СуммаНДС, 0); КонецЦикла; ТабПрочиеРасходы.Свернуть("Комментарий,ПериодВозникновенияРасхода", "Сумма"); ВходящиеДанные.ДобавитьЗначение(ТабПрочиеРасходы, "ПрочиеРасходы"); <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.АвансовыйОтчет <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>11 <Наименование> --> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПриВыгрузке>Значение = 0; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование> --> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>8 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>7 <Наименование>ФизЛицо --> ПодотчетноеЛицо <Порядок>400 <Источник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>13 <Наименование>НаименованиеАванса --> НазначениеАванса <Порядок>450 <Источник Имя="НаименованиеАванса" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НазначениеАванса" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>НаЛистах --> КоличествоЛистов <Порядок>500 <Источник Имя="НаЛистах" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоЛистов" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование>ПриложеноДок --> КоличествоДокументов <Порядок>550 <Источник Имя="ПриложеноДок" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоДокументов" Вид="Реквизит" Тип="Строка"/> <Значения/> <Группа> <Код>Закупка <Наименование>Закупка <Порядок>150 <Группа> <Код>ПоступлениеИмпорт <Наименование>ПоступлениеИмпорт <Порядок>50 <Правило> <Код>ПоступлениеТМЦИмпорт_ПоступлениеТоваровУслуг <Наименование>Документ: Поступление ТМЦ (импорт) <Порядок>50 <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Товары = СоздатьОбъект("ТаблицаЗначений"); Источник.ВыгрузитьТабличнуюЧасть(Товары); ВходящиеДанные.Установить("СуммаДокумента", Товары.Итог("Сумма")); ВходящиеДанные.Установить("СуммаВзаиморасчетов", Товары.Итог("Сумма")); <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ПриобретениеТоваровУслуг.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПоступлениеТМЦИмпорт <Приемник>ДокументСсылка.ПриобретениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>8 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>9 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "И", 11, "Справа"); КонецЕсли; <Свойство> <Код>11 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>24 <Наименование>ЮрЛицо --> Организация <Порядок>250 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>21 <Наименование>--> ХозяйственнаяОперация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ЗакупкаПоИмпорту"; <Свойство> <Код>36 <Наименование>--> НалогообложениеНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <ПередВыгрузкой>Значение = "ПродажаНеОблагаетсяНДС"; <Свойство> <Код>40 <Наименование>--> ЗакупкаПодДеятельность <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <ПередВыгрузкой>Значение = "ПродажаНеОблагаетсяНДС"; <Свойство> <Код>2 <Наименование>Валюта --> Валюта <Порядок>450 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Свойство> <Код>32 <Наименование>Договор --> Договор <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаПоИмпорту"); ИсходящиеДанные.Установить("ПорядокОплаты", "РасчетыВВалютеОплатаВВалюте"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>12 <Наименование>Договор --> Соглашение <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщикомПоИмпорту <ПриВыгрузке>Если Параметры.ИспользоватьСоглашенияСПоставщиками = 1 тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаПоИмпорту"); ИсходящиеДанные.Установить("НалогообложениеНДС", "ПродажаНеОблагаетсяНДС"); ИсходящиеДанные.Установить("ЦенаВключаетНДС", 0); ИсходящиеДанные.Установить("ПорядокОплаты", "РасчетыВВалютеОплатаВВалюте"); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>3 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>650 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>23 <Наименование>Контрагент --> Партнер <Порядок>700 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>750 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>30 <Наименование>--> ЦенаВключаетНДС <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>34 <Наименование>--> СуммаДокумента <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>--> СуммаВзаиморасчетов <Порядок>900 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>1000 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>29 <Наименование>--> Подразделение <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>28 <Наименование>Автор --> Менеджер <Порядок>1100 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Группа> <Код>13 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1150 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>25 <Наименование>Количество --> КоличествоУпаковок <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>18 <Наименование>Цена --> Цена <Порядок>200 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Сумма --> СуммаСНДС <Порядок>400 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>--> Склад <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник.Склад; <Свойство> <Код>37 <Наименование>Сумма --> СуммаВзаиморасчетов <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>550 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>39 <Наименование>--> КодСтроки <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>ПоступлениеТМЦИмпорт_ТаможеннаяДекларацияИмпорт <Наименование>Документ: Поступление ТМЦ (импорт) <Порядок>100 <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; КодНомерГТД = ВходящиеДанные.Получить("КодНомераГТД"); Если СтрЧислоВхождений(КодНомерГТД,"/") > 2 Тогда НовыйКодГТД = ""; СимволСтроки = ""; Сч = 0; КоличествоНайденыхБлоков = 0; Пока КоличествоНайденыхБлоков < 3 Цикл НовыйКодГТД = НовыйКодГТД + СимволСтроки; СимволСтроки = Сред(КодНомерГТД,Сч,1); Если СимволСтроки = "/" Тогда КоличествоНайденыхБлоков = КоличествоНайденыхБлоков + 1; КонецЕсли; Сч = Сч + 1; КонецЦикла; КодНомераГТД = НовыйКодГТД; КонецЕсли; КодНомераГТД = Прав(КодНомераГТД, СтрДлина(КодНомераГТД)-1); НачальныйКодНомераГТД = КодНомерГТД; КлючВыгружаемыхДанных = СоздатьОбъект("СписокЗначений"); КлючВыгружаемыхДанных.Установить("Источник", Источник.ТекущийДокумент()); КлючВыгружаемыхДанных.Установить("НомерГТД", ВходящиеДанные.Получить("КодНомераГТД")); КлючВыгружаемыхДанных.Установить("СтранаПроисхождения", ВходящиеДанные.Получить("СтранаПроисхожденияНомераГТД")); КлючВыгружаемыхДанных = ЗначениеВСтрокуВнутр(КлючВыгружаемыхДанных); Товары = СоздатьОбъект("ТаблицаЗначений"); Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Упаковка"); Товары.НоваяКолонка("КоличествоУпаковок"); Товары.НоваяКолонка("Количество"); Товары.НоваяКолонка("ТаможеннаяСтоимость"); Товары.НоваяКолонка("СуммаНДС"); Товары.НоваяКолонка("СуммаПошлины"); Товары.НоваяКолонка("НомерРаздела"); Товары.НоваяКолонка("Склад"); Товары.НоваяКолонка("СтавкаНДС"); Товары.НоваяКолонка("СтавкаПошлины"); Товары.НоваяКолонка("НомерДляСФ"); Товары.НоваяКолонка("НомерГТД"); Товары.НоваяКолонка("СтранаПроисхождения"); НомерСтрокиПолногоРавенстваКода = -1; Если (КодНомераГТД = "") Тогда КодНомераГТД = НачальныйКодНомераГТД; КонецЕсли; Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку() = 1 Цикл Партия = Источник.Партия; НомерГТДСтроки = ?(ПустоеЗначение(Партия.ГТД) = 1, "", СокрЛП(Партия.ГТД.Наименование)); НачальныйНомерГТДСтроки = НомерГТДСтроки; СтранаПроисхожденияСтроки = ?(ПустоеЗначение(Партия.ГТД) = 1, "", Партия.СтранаПроисхождения); Если СтрЧислоВхождений(НомерГТДСтроки,"/") > 2 Тогда НовыйКодГТД = ""; СимволСтроки = ""; Сч = 0; КоличествоНайденыхБлоков = 0; Пока КоличествоНайденыхБлоков < 3 Цикл НовыйКодГТД = НовыйКодГТД + СимволСтроки; СимволСтроки = Сред(НомерГТДСтроки,Сч,1); Если СимволСтроки = "/" Тогда КоличествоНайденыхБлоков = КоличествоНайденыхБлоков + 1; КонецЕсли; Сч = Сч + 1; КонецЦикла; НомерГТДСтроки = НовыйКодГТД; КонецЕсли; НомерГТДСтроки = Прав(НомерГТДСтроки, СтрДлина(НомерГТДСтроки)-1); НомерРаздела = СтрЗаменить(СокрЛП(Партия.ГТД.Наименование), НомерГТДСтроки, ""); НомерРаздела = СтрЗаменить(НомерРаздела, "/", ""); Если (НачальныйНомерГТДСтроки = НачальныйКодНомераГТД) Тогда НомерСтрокиПолногоРавенстваКода = Источник.НомерСтроки; КонецЕсли; Если (КодНомераГТД = НомерГТДСтроки) Тогда Если (НомерСтрокиПолногоРавенстваКода = -1) Тогда Отказ = 1; // при выгрузке ранней строки данные уже выгружены КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = Источник.Номенклатура; Товары.Упаковка = Источник.Единица; Товары.КоличествоУпаковок = Источник.Количество; Товары.Количество = Источник.Количество*Источник.Коэффициент; Товары.ТаможеннаяСтоимость = Источник.ТаможеннаяСтоимость; Товары.Склад = Источник.Склад; Товары.СтавкаНДС = Источник.СтавкаНДС; Товары.СтавкаПошлины = Источник.СтавкаПошлины; Товары.СуммаНДС = Источник.СуммаНДСРуб; Товары.СуммаПошлины = Источник.СуммаПошлиныРуб; Товары.НомерДляСФ = НачальныйНомерГТДСтроки; Товары.НомерГТД = НачальныйНомерГТДСтроки; Товары.СтранаПроисхождения = СтранаПроисхожденияСтроки; Товары.НомерРаздела = Число(НомерРаздела); КонецЕсли; КонецЦикла; Разделы = СоздатьОбъект("ТаблицаЗначений"); Товары.Выгрузить(Разделы); Разделы.Свернуть("Склад,СтавкаНДС,СтавкаПошлины, НомерРаздела", "СуммаНДС,СуммаПошлины,ТаможеннаяСтоимость"); Разделы.Сортировать("НомерРаздела,СтавкаНДС,СтавкаПошлины,Склад"); Товары.Сортировать("НомерРаздела,Номенклатура"); ВходящиеДанные.Установить("Товары", Товары); ВходящиеДанные.Установить("Разделы", Разделы); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПоступлениеТМЦИмпорт <Приемник>ДокументСсылка.ТаможеннаяДекларацияИмпорт <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Ч = 0; М = 0; С = 0; Источник.ПолучитьВремя(Ч,М,С); ВремяЧислом = 3600*Ч+60*М+С+1; Если ВремяЧислом <= 3600*23+60*59+59 Тогда Ч=Цел(ВремяЧислом/3600); ВремяЧислом=ВремяЧислом-Ч*3600; М=Цел(ВремяЧислом/60); С=ВремяЧислом-М*60; ВремяДокСтр = Прав("00" + Строка(Ч), 2) + ":" + Прав("00" + Строка(М), 2) + ":" + Прав("00" + Строка(С), 2); Значение = ПолучитьДатуV8(Источник.ДатаДок, ВремяДокСтр); КонецЕсли; <Свойство Поиск="true"> <Код>42 <Наименование>--> НомерДекларации <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="НомерДекларации" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ВходящиеДанные.Получить("КодНомераГТД"); Если СтрЧислоВхождений(Значение,"/") > 2 Тогда НовыйКодГТД = ""; СимволСтроки = ""; Сч = 0; КоличествоНайденыхБлоков = 0; Пока КоличествоНайденыхБлоков < 3 Цикл НовыйКодГТД = НовыйКодГТД + СимволСтроки; СимволСтроки = Сред(Значение,Сч,1); Если СимволСтроки = "/" Тогда КоличествоНайденыхБлоков = КоличествоНайденыхБлоков + 1; КонецЕсли; Сч = Сч + 1; КонецЦикла; Значение = НовыйКодГТД; КонецЕсли; <Свойство Поиск="true"> <Код>1 <Наименование> --> Валюта <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Константа.ВалютаБухУчета; <Свойство> <Код>45 <Наименование> --> Статус <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыТаможенныхДеклараций"/> <ПередВыгрузкой>Значение = "ВыпущеноСТаможни"; <Свойство> <Код>9 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование> --> ВалютаВзаиморасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДоговорТаможниРуб) = 0 Тогда Значение = Источник.ДоговорТаможниРуб.ВалютаВзаиморасчетов; Иначе Значение = Константа.ВалютаБухУчета; КонецЕсли; <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>450 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>43 <Наименование>Контрагент --> Поставщик <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Поставщик" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <Свойство> <Код>3 <Наименование>Таможня --> Партнер <Порядок>550 <Источник Имя="Таможня" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>12 <Наименование>Таможня --> Контрагент <Порядок>600 <Источник Имя="Таможня" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>17 <Наименование> --> СуммаДокумента <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Товары = ВходящиеДанные.Получить("Товары"); Значение = Товары.Итог("СуммаНДС") + Товары.Итог("СуммаПошлины"); <Свойство> <Код>5 <Наименование> --> СуммаВзаиморасчетов <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Товары = ВходящиеДанные.Получить("Товары"); Значение = Товары.Итог("СуммаНДС") + Товары.Итог("СуммаПошлины"); <Свойство> <Код>18 <Наименование>Автор --> Менеджер <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>34 <Наименование> --> Подразделение <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>35 <Наименование>ДатаОплаты --> ДатаПлатежа <Порядок>900 <Источник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>40 <Наименование>ТаможенныйСборРуб --> ТаможенныйСбор <Порядок>950 <Источник Имя="ТаможенныйСборРуб" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ТаможенныйСбор" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = ?(ВходящиеДанные.Получить("НомерИтерации") = 1, Значение + Источник.ТаможенныйСборВал_Р, 0); <Свойство> <Код>46 <Наименование>--> СтатьяРасходовСбор <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяРасходовСбор" Вид="Реквизит" Тип="ПланВидовХарактеристикСсылка.СтатьиРасходов"/> <КодПравилаКонвертации>СтатьяРасходов_ТаможенныеСборы <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>41 <Наименование> --> АналитикаРасходовСбор <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="АналитикаРасходовСбор" Вид="Реквизит"/> <КодПравилаКонвертации>ПоступлениеТМЦИмпорт_ПоступлениеТоваровУслуг <ПередВыгрузкой>Значение = Источник.ТекущийДокумент(); <Свойство> <Код>56 <Наименование>ДоговорТаможниРуб --> Договор <Порядок>1150 <Источник Имя="ДоговорТаможниРуб" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ИсходящиеДанные.Установить("ПорядокОплаты", "РасчетыВРубляхОплатаВРублях"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>57 <Наименование>ДоговорТаможниРуб --> Соглашение <Порядок>1200 <Источник Имя="ДоговорТаможниРуб" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПриВыгрузке>Если Параметры.ИспользоватьСоглашенияСПоставщиками = 1 тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ИсходящиеДанные.Установить("ПорядокОплаты", "РасчетыВРубляхОплатаВРублях"); ИсходящиеДанные.Установить("НалогообложениеНДС", "ПродажаНеОблагаетсяНДС"); ИсходящиеДанные.Установить("ЦенаВключаетНДС", 1); ИсходящиеДанные.Установить("ПорядокОплаты", "РасчетыВРубляхОплатаВРублях"); ВыгрузитьДоговорВДоговор(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>58 <Наименование>--> НумероватьПоТоварам <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="НумероватьПоТоварам" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>22 <Наименование>--> Товары <Порядок>1300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>24 <Наименование>--> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>28 <Наименование> --> Упаковка <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>23 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование> --> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>--> СуммаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>--> Склад <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>37 <Наименование>--> ТаможеннаяСтоимость <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ТаможеннаяСтоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование>--> СуммаПошлины <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПошлины" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование>--> НомерРаздела <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРаздела" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>60 <Наименование>--> НомерДляСФ <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НомерДляСФ" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>59 <Наименование>--> НомерГТД <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТДИзВходящихДанных <ПередВыгрузкой>Значение = "1"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Код", ОбъектКоллекции.НомерГТД); ИсходящиеДанные.Установить("СтранаПроисхождения", ОбъектКоллекции.СтранаПроисхождения); <Свойство> <Код>61 <Наименование>--> СтранаПроисхождения <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.СтраныМира"/> <КодПравилаКонвертации>СтраныМира <Группа> <Код>48 <Наименование>--> Разделы <Порядок>1350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Разделы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>49 <Наименование>--> НомерРаздела <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРаздела" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>50 <Наименование> --> Склад <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>51 <Наименование> --> СтавкаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>52 <Наименование> --> СтавкаПошлины <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаПошлины" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>53 <Наименование> --> СуммаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>54 <Наименование> --> СуммаПошлины <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПошлины" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>55 <Наименование> --> ТаможеннаяСтоимость <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ТаможеннаяСтоимость" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеТМЦИмпорт_ПоступлениеТоваровУслуг_ВО <Наименование>Документ: Поступление ТМЦ (импорт) <Порядок>150 <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; <Источник>ДокументСсылка.ПоступлениеТМЦИмпорт <Приемник>ДокументСсылка.ПриобретениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "И", 11, "Справа"); КонецЕсли; <Свойство> <Код>9 <Наименование>--> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>--> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>3 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>12 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>14 <Наименование>--> ХозяйственнаяОперация <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ЗакупкаУПоставщика"; <Свойство> <Код>15 <Наименование>--> НалогообложениеНДС <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <ПередВыгрузкой>Значение = "ПродажаНаЭкспорт"; <Свойство> <Код>34 <Наименование>--> ЗакупкаПодДеятельность <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <ПередВыгрузкой>Значение = "ПродажаНеОблагаетсяНДС"; <Свойство> <Код>16 <Наименование>--> СуммаДокумента <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа не должна включать НДС, но она ее и не включает Значение = Источник.Итог("Сумма"); <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>800 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>850 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>19 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>900 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Значения/> <Группа> <Код>ПоступлениеПрочее <Наименование>ПоступлениеПрочее <Порядок>100 <Правило> <Код>ПоступлениеДопРасходы_ПоступлениеУслугВА <Наименование>Документ: Поступление (доп. расходы по ТМЦ) <Порядок>50 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("НалогообложениеНДС", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПоступлениеДопРасходы <Приемник>ДокументСсылка.ПриобретениеУслугПрочихАктивов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Валюта --> Валюта <Порядок>150 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Партнер <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>6 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>300 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>400 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>450 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>10 <Наименование>ДатаОплаты --> ДатаПлатежа <Порядок>500 <Источник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование>Договор --> Соглашение <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПриВыгрузке>Если Параметры.ИспользоватьСоглашенияСПоставщиками = 1 тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ВыгрузитьДоговорВСоглашение(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>600 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>650 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>14 <Наименование>ЮрЛицо --> Организация <Порядок>700 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>23 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>750 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>24 <Наименование>Автор --> Менеджер <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>25 <Наименование>--> НалогообложениеНДС <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>26 <Наименование>--> Подразделение <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>27 <Наименование>--> СуммаДокумента <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>30 <Наименование>Контрагент --> Контрагент <Порядок>1000 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>34 <Наименование>Договор --> Договор <Порядок>1050 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>35 <Наименование>--> ХозяйственнаяОперация <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ЗакупкаУПоставщика"; <Свойство> <Код>36 <Наименование>--> ЗакупкаПодДеятельность <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>38 <Наименование>--> ПорядокОплаты <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <ПередВыгрузкой>Значение = "РасчетыВРубляхОплатаВРублях"; <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Расходы <Порядок>1250 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Расходы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если (ПустоеЗначение(ОбъектКоллекции.Количество) = 1) Или (ОбъектКоллекции.Количество = 0) Тогда Значение = 1; КонецЕсли; <Свойство> <Код>17 <Наименование>Содержание --> Содержание <Порядок>100 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если (ПустоеЗначение(ОбъектКоллекции.Цена) = 1) Или (ОбъектКоллекции.Цена = 0) Тогда Значение = ОбъектКоллекции.Сумма; КонецЕсли; <Свойство> <Код>22 <Наименование>Сумма --> СуммаСНДС <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>28 <Наименование>ДокументПоставки --> АналитикаРасходов <Порядок>400 <Источник Имя="ДокументПоставки" Вид="Реквизит"/> <Приемник Имя="АналитикаРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>ПоступлениеТМЦ_ПоступлениеТоваровУслуг <ПриВыгрузке>ВидДокументаПоступления = Значение.Вид(); Если (ВидДокументаПоступления = "ОприходованиеТМЦ") ИЛИ (Параметры.Сценарий_ПереносОстатков = 1) И (Значение.ДатаДок < Параметры.ДатаНачалаСценария) Тогда Значение = Значение.Склад; ИмяПКО = "Склады"; ИначеЕсли ВидДокументаПоступления = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТМЦ_ПоступлениеТоваровУслуг"; ИначеЕсли ВидДокументаПоступления = "ПоступлениеТМЦИмпорт" Тогда ИмяПКО = "ПоступлениеТМЦИмпорт_ПоступлениеТоваровУслуг"; ИначеЕсли ВидДокументаПоступления = "ПоступлениеТМЦИмпорт" Тогда ИмяПКО = "ПоступлениеТМЦРозница_ПоступлениеТоваровУслуг"; КонецЕсли; <Свойство Отключить="true"> <Код>29 <Наименование>--> СтатьяРасходов <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьяРасходов_ДопРасходыНаПоступление <ПередВыгрузкой>Значение = "1"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Наименование", глНазваниеДокументаВЖурнале(Источник)); Если (ОбъектКоллекции.ДокументПоставки.Вид() = "ОприходованиеТМЦ") ИЛИ (Параметры.Сценарий_ПереносОстатков = 1) И (ОбъектКоллекции.ДокументПоставки.ДатаДок < Параметры.ДатаНачалаСценария) Тогда ИсходящиеДанные.Установить("АналитикаРасходов", "Склад"); Иначе ИсходящиеДанные.Установить("АналитикаРасходов", "ПриобретениеТоваровУслуг"); КонецЕсли; <Свойство> <Код>37 <Наименование>--> Подразделение <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>ПоступлениеПрочее_ПоступлениеУслугВА <Наименование>Документ: Поступление (доп. расходы по ТМЦ) <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("НалогообложениеНДС", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПоступлениеПрочее <Приемник>ДокументСсылка.ПриобретениеУслугПрочихАктивов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "П", 11, "Справа"); КонецЕсли; <Свойство> <Код>3 <Наименование>Валюта --> Валюта <Порядок>150 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Партнер <Порядок>250 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>6 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>300 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>400 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>450 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>10 <Наименование>ДатаОплаты --> ДатаПлатежа <Порядок>500 <Источник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование>Договор --> Соглашение <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПриВыгрузке>Если Параметры.ИспользоватьСоглашенияСПоставщиками = 1 тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ВыгрузитьДоговорВСоглашение(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>600 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>650 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>14 <Наименование>ЮрЛицо --> Организация <Порядок>700 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>25 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>750 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>26 <Наименование>Автор --> Менеджер <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>27 <Наименование>--> НалогообложениеНДС <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>28 <Наименование>--> Подразделение <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>29 <Наименование>--> СуммаДокумента <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>30 <Наименование>Контрагент --> Контрагент <Порядок>1000 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>34 <Наименование>Договор --> Договор <Порядок>1050 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>35 <Наименование>--> ХозяйственнаяОперация <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ЗакупкаУПоставщика"; <Свойство> <Код>38 <Наименование>--> ЗакупкаПодДеятельность <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>40 <Наименование>--> ПорядокОплаты <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ПорядокОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ПорядокОплатыПоСоглашениям"/> <ПередВыгрузкой>Значение = "РасчетыВРубляхОплатаВРублях"; <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Расходы <Порядок>1250 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Расходы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если (ПустоеЗначение(ОбъектКоллекции.Количество) = 1) Или (ОбъектКоллекции.Количество = 0) Тогда Значение = 1; КонецЕсли; <Свойство> <Код>17 <Наименование>Содержание --> Содержание <Порядок>100 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если (ПустоеЗначение(ОбъектКоллекции.Цена) = 1) Или (ОбъектКоллекции.Цена = 0) Тогда Значение = ОбъектКоллекции.Сумма; КонецЕсли; <Свойство> <Код>22 <Наименование>Сумма --> СуммаСНДС <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>36 <Наименование>--> АналитикаРасходов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="АналитикаРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <ПередВыгрузкой>Значение = Источник.ЮрЛицо; <Свойство> <Код>37 <Наименование>Счет --> СтатьяРасходов <Порядок>450 <Источник Имя="Счет" Вид="Реквизит"/> <Приемник Имя="СтатьяРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьяРасходов_ПоступлениеУслуг <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "<>"; КонецЕсли; <Свойство> <Код>39 <Наименование>--> Подразделение <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Значения/> <Правило> <Код>ЗаказПоставщику <Наименование>Документ: Заказ поставщику <Порядок>150 <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("НалогообложениеНДС", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); // Определяем дату переноса остатков по заказам Если ПустоеЗначение(Параметры.ДатаОкончанияСценария) = 0 Тогда ДатаОстатков = Параметры.ДатаОкончанияСценария; Иначе ДатаОстатков = ПолучитьДатуТА(); КонецЕсли; ДатаТА = ПолучитьДатуТА(); ДатаОстатков = ?((ПустоеЗначение(ДатаОстатков) = 0) И (ДатаОстатков < ДатаТА), ДатаОстатков,ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЗакрытиеЗаказа) |Период с (Источник.ТекущийДокумент()) по ДатаОстатков; |Заказ = Регистр.Заказы.ЗаказПоставщику; |Номенклатура = Регистр.Заказы.Номенклатура; |Количество = Регистр.Заказы.КоличествоПриход; |Функция КоличествоЗакрыто = Расход(Количество); |Группировка Документ; |Группировка Номенклатура без групп; |Условие(Заказ = Источник.ТекущийДокумент()); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ТабЗакрытиеЗаказа = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ТабЗакрытиеЗаказа, 0, 0); ТабЗакрытиеЗаказа.НоваяКолонка("ПричинаОтмены"); ТабЗакрытиеЗаказа.ВыбратьСтроки(); Пока ТабЗакрытиеЗаказа.ПолучитьСтроку() = 1 Цикл ТабЗакрытиеЗаказа.ПричинаОтмены = ?(ТабЗакрытиеЗаказа.Документ.Вид() = "ЗаказПоставщику", "Корректировка", "Выполнение"); КонецЦикла; ТабЗакрытиеЗаказа.Свернуть("Номенклатура,ПричинаОтмены", "КоличествоЗакрыто"); ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("Единица"); ТабТовары.НоваяКолонка("Коэффициент"); ТабТовары.НоваяКолонка("Количество"); ТабТовары.НоваяКолонка("Цена"); ТабТовары.НоваяКолонка("Сумма"); ТабТовары.НоваяКолонка("СтавкаНДС"); ТабТовары.НоваяКолонка("СуммаНДС"); ТабТовары.НоваяКолонка("ПричинаОтмены"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку() = 1 Цикл Номенклатура = Источник.Номенклатура; Количество = Источник.Количество*Источник.Коэффициент; КоличествоНеЗакрыто = Количество; СуммаНеЗакрыто = Источник.Сумма; СуммаНДСНеЗакрыто = Источник.СуммаНДС; // Получаем остаток закрытого заказа данной номенклатуры НайдСтрока = 0; Пока (ТабЗакрытиеЗаказа.НайтиЗначение(Номенклатура, НайдСтрока, "Номенклатура") = 1) И (КоличествоНеЗакрыто > 0) Цикл // Выделение строк и уменьшение закрытого остатка ТабЗакрытиеЗаказа.ПолучитьСтрокуПоНомеру(НайдСтрока); ТабТовары.НоваяСтрока(); ТабТовары.ПричинаОтмены = ТабЗакрытиеЗаказа.ПричинаОтмены; КоличествоЗачетЗакрытия = Мин(ТабЗакрытиеЗаказа.КоличествоЗакрыто, КоличествоНеЗакрыто); ТабТовары.Количество = Окр(КоличествоЗачетЗакрытия/Источник.Коэффициент, 3); ТабЗакрытиеЗаказа.КоличествоЗакрыто = ТабЗакрытиеЗаказа.КоличествоЗакрыто - КоличествоЗачетЗакрытия; КоличествоНеЗакрыто = КоличествоНеЗакрыто - КоличествоЗачетЗакрытия; ТабТовары.Сумма = ?(КоличествоНеЗакрыто = 0, СуммаНеЗакрыто, Окр(Источник.Сумма*КоличествоЗачетЗакрытия/Количество, 2)); ТабТовары.СуммаНДС = ?(КоличествоНеЗакрыто = 0, СуммаНДСНеЗакрыто, Окр(Источник.СуммаНДС*КоличествоЗачетЗакрытия/Количество, 2)); СуммаНеЗакрыто = СуммаНеЗакрыто - ТабТовары.Сумма; СуммаНДСНеЗакрыто = СуммаНДСНеЗакрыто - ТабТовары.СуммаНДС; Если ТабЗакрытиеЗаказа.КоличествоЗакрыто = 0 Тогда ТабЗакрытиеЗаказа.УдалитьСтроку(НайдСтрока); НайдСтрока = 0; КонецЕсли; ТабТовары.Номенклатура = Источник.Номенклатура; ТабТовары.Единица = Источник.Единица; ТабТовары.Коэффициент = Источник.Коэффициент; ТабТовары.Цена = Источник.Цена; ТабТовары.СтавкаНДС = ?(Источник.УчитыватьНДС = 0, Перечисление.СтавкиНДС.БезНДС, Источник.СтавкаНДС); КонецЦикла; Если (КоличествоНеЗакрыто > 0) И (Параметры.ИспользоватьСтатусыВЗаказахПоставщикам = 1) Тогда ТабТовары.НоваяСтрока(); ТабТовары.Количество = Окр(КоличествоНезакрыто/Источник.Коэффициент, 3);; ТабТовары.Сумма = СуммаНеЗакрыто; ТабТовары.СуммаНДС = СуммаНДСНеЗакрыто; ТабТовары.ПричинаОтмены = ""; ТабТовары.Номенклатура = Источник.Номенклатура; ТабТовары.Единица = Источник.Единица; ТабТовары.Коэффициент = Источник.Коэффициент; ТабТовары.Цена = Источник.Цена; ТабТовары.СтавкаНДС = ?(Источник.УчитыватьНДС = 0, Перечисление.СтавкиНДС.БезНДС, Источник.СтавкаНДС); КонецЕсли; КонецЦикла; Если ТабТовары.КоличествоСтрок() > 0 тогда ВходящиеДанные.Установить("Товары", ТабТовары); Иначе Отказ = 1; КонецЕсли; <ПослеЗагрузки>Объект.Приоритет = Справочники.Приоритеты.ПолучитьПриоритетПоУмолчанию(Объект.Приоритет); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчетОрганизации); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.ВалютаВзаиморасчетов,Объект.НалогообложениеНДС,ВалютаОплаты); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ЗаказПоставщику <Приемник>ДокументСсылка.ЗаказПоставщику <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>34 <Наименование> --> Склад <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады_ПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>16 <Наименование>Контрагент --> Партнер <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>8 <Наименование>Договор --> Соглашение <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("ЗакупкаУПоставщика"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПриемНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ВыгрузитьДоговорВСоглашение(); ВходящиеДанные.Установить("ХозяйственнаяОперация", ИсходящиеДанные.Получить("ХозяйственнаяОперация")); Если (Параметры.ИспользоватьСоглашенияСПоставщиками = 0) И (ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "ПриемНаКомиссию") тогда Отказ = 1; КонецЕсли; <Свойство> <Код>45 <Наименование>Договор --> Договор <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("ЗакупкаУПоставщика"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПриемНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>21 <Наименование>--> ХозяйственнаяОперация <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <Свойство> <Код>11 <Наименование>--> НалогообложениеНДС <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>47 <Наименование>--> ЗакупкаПодДеятельность <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>10 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>800 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>9 <Наименование>--> СуммаДокумента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>15 <Наименование>Автор --> Менеджер <Порядок>900 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>35 <Наименование>--> Подразделение <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>44 <Наименование>--> Согласован <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>13 <Наименование>ДатаДок --> ДатаСогласования <Порядок>1050 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаСогласования" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование>ДатаОтгрузки --> ЖелаемаяДатаПоступления <Порядок>1100 <Источник Имя="ДатаОтгрузки" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ЖелаемаяДатаПоступления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>20 <Наименование>--> Статус <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыЗаказовПоставщикам"/> <ПередВыгрузкой>Если ВходящиеДанные.Получить("Товары").НайтиЗначение("", 0, "ПричинаОтмены") = 1 Тогда Значение = "Подтвержден"; Иначе Значение = "Закрыт"; КонецЕсли; <Группа> <Код>22 <Наименование>--> Товары <Порядок>1250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>24 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>29 <Наименование> --> Упаковка <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <ПередВыгрузкой>Значение = ОбъектКоллекции.Единица; <Свойство> <Код>23 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество; <Свойство> <Код>33 <Наименование> --> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = ОбъектКоллекции.Количество*ОбъектКоллекции.Коэффициент; <Свойство> <Код>28 <Наименование> --> Цена <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>27 <Наименование> --> СуммаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> СуммаСНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>30 <Наименование> --> ДатаПоступления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПоступления" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Источник.ДатаОтгрузки; <Свойство> <Код>36 <Наименование> --> Отменено <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Отменено" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(ОбъектКоллекции.ПричинаОтмены) = 0, 1, 0); <Свойство> <Код>37 <Наименование> --> ПричинаОтмены <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПричинаОтмены" Вид="Реквизит" Тип="СправочникСсылка.ПричиныОтменыЗаказовПоставщикам"/> <КодПравилаКонвертации>ПричиныОтменыЗаказовПоставщикам <Свойство> <Код>38 <Наименование> --> Склад <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады_ПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>46 <Наименование> --> КодСтроки <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Группа> <Код>39 <Наименование>--> ЭтапыГрафикаОплаты <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтапыГрафикаОплаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа", "Число"); ТабТовары = ВходящиеДанные.Получить("Товары"); Если ТабТовары.НайтиЗначение("", 0, "ПричинаОтмены") = 1 Тогда КоллекцияОбъектов.НоваяСтрока(); ТабТовары.ВыбратьСтроки(); Пока ТабТовары.ПолучитьСтроку() = 1 Цикл Если ТабТовары.ПричинаОтмены = "" Тогда КоллекцияОбъектов.СуммаПлатежа = КоллекцияОбъектов.СуммаПлатежа + ТабТовары.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ТабТовары.СуммаНДС); КонецЕсли; КонецЦикла; КонецЕсли; <Свойство> <Код>40 <Наименование> --> ВариантОплаты <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыОплатыПоставщику"/> <ПередВыгрузкой>Значение = "КредитПослеПоступления"; <Свойство> <Код>41 <Наименование> --> ДатаПлатежа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Макс(Макс(Источник.ДатаОтгрузки, Источник.ДатаОплаты), Источник.ДатаДок); <Свойство> <Код>42 <Наименование> --> ПроцентПлатежа <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентПлатежа" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 100; <Свойство> <Код>43 <Наименование> --> СуммаПлатежа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПоступлениеТМЦ_ПоступлениеТоваровУслуг <Наименование>Документ: Поступление ТМЦ <Порядок>200 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("НалогообложениеНДС", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ПриобретениеТоваровУслуг.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчетОрганизации); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.ВалютаВзаиморасчетов,Объект.НалогообложениеНДС,ВалютаОплаты); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПоступлениеТМЦ <Приемник>ДокументСсылка.ПриобретениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>9 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>20 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>10 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>3 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>11 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>12 <Наименование>Договор --> Соглашение <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.Закупка Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); Если (Параметры.ИспользоватьСоглашенияСПоставщиками = 0) И (ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "ПриемНаКомиссию") тогда Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование>--> ХозяйственнаяОперация <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.Закупка Тогда Значение = "ЗакупкаУПоставщика"; Иначе Значение = "ПриемНаКомиссию"; КонецЕсли; <Свойство> <Код>14 <Наименование>--> НалогообложениеНДС <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>43 <Наименование>--> ЗакупкаПодДеятельность <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>15 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>800 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>19 <Наименование>--> СуммаДокумента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>900 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>Автор --> Менеджер <Порядок>950 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>35 <Наименование>--> Подразделение <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>21 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1050 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>22 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1100 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>40 <Наименование>Договор --> Договор <Порядок>1200 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.Закупка Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Группа> <Код>23 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1250 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>25 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>30 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>24 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>31 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>29 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>28 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>32 <Наименование>Партия --> НомерГТД <Порядок>500 <Источник Имя="Партия" Вид="Реквизит" Тип="СправочникСсылка.Партии"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>Партии_НомераГТД <Свойство> <Код>33 <Наименование>--> Склад <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник.Склад; <Свойство> <Код>41 <Наименование>--> КодСтроки <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>42 <Наименование>Сумма --> СуммаВзаиморасчетов <Порядок>650 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если ПустоеЗначение(Источник.Договор) = 0 Тогда ВалютаВзаиморасчетов = Источник.Договор.ВалютаВзаиморасчетов; Значение = глПересчет(Значение, Источник.Валюта, Источник.ДатаДок, ВалютаВзаиморасчетов, Источник.ДатаДок); КонецЕсли; <Значения/> <Правило> <Код>ПоступлениеТМЦ_ПоступлениеТоваровУслуг_ВО <Наименование>Документ: Поступление ТМЦ <Порядок>250 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); <ПослеЗагрузки>ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчетОрганизации); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.ВалютаВзаиморасчетов,Объект.НалогообложениеНДС,ВалютаОплаты); <Источник>ДокументСсылка.ПоступлениеТМЦ <Приемник>ДокументСсылка.ПриобретениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>9 <Наименование>--> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>--> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>19 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>10 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>3 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>11 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>13 <Наименование>--> ХозяйственнаяОперация <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.Закупка Тогда Значение = "ЗакупкаУПоставщика"; Иначе Значение = "ПриемНаКомиссию"; КонецЕсли; <Свойство> <Код>15 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>18 <Наименование>--> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>850 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1050 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>21 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1100 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>36 <Наименование>--> ЗакупкаПодДеятельность <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Значения/> <Правило> <Код>ВозвратПоставщику_ВозвратТоваровПоставщику <Наименование>Документ: Возврат поставщику <Порядок>300 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("НалогообложениеНДС", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ВозвратТоваровПоставщику.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(, Объект.БанковскийСчетОрганизации); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.Валюта, Объект.НалогообложениеНДС, ВалютаОплаты); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); <Источник>ДокументСсылка.ВозвратПоставщику <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>22 <Наименование>Контрагент --> Партнер <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>9 <Наименование>Договор --> Соглашение <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПоставщику) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПоставщикуИзРозницы) Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); Если (Параметры.ИспользоватьСоглашенияСПоставщиками = 0) И (ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "ПриемНаКомиссию") тогда Отказ = 1; КонецЕсли; <Свойство> <Код>24 <Наименование>--> ХозяйственнаяОперация <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Если (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПоставщику) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПоставщикуИзРозницы) Тогда Значение = "ВозвратТоваровПоставщику"; Иначе Значение = "ВозвратТоваровКомитенту"; КонецЕсли; <Свойство> <Код>21 <Наименование>--> НалогообложениеНДС <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>11 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>700 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>25 <Наименование> --> СуммаДокумента <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>20 <Наименование>Автор --> Менеджер <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>23 <Наименование> --> Подразделение <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>10 <Наименование>ДокОснование --> ДокументПоступления <Порядок>900 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументПоступления" Вид="Реквизит" Тип="ДокументСсылка.ПриобретениеТоваровУслуг"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Если (Параметры.Сценарий_ПереносОстатков = 1) И (Значение.ДатаДок < Параметры.ДатаНачалаСценария) Тогда Значение = 0; ИначеЕсли Значение.Вид() = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТМЦ_ПоступлениеТоваровУслуг"; ИначеЕсли Значение.Вид() = "ПоступлениеТМЦРозница" Тогда ИмяПКО = "ПоступлениеТМЦРозница_ПоступлениеТоваровУслуг"; Иначе Значение = 0; КонецЕсли; КонецЕсли; <Свойство> <Код>30 <Наименование>Договор --> Договор <Порядок>1000 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПоставщику Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>36 <Наименование>--> СпособКомпенсации <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="СпособКомпенсации" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыКомпенсацииВозвратовТоваров"/> <ПередВыгрузкой>Значение = "ВернутьДенежныеСредства"; <Группа> <Код>13 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1100 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>26 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>14 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <Свойство> <Код>15 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>19 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>18 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>37 <Наименование>--> ДокументПоступления <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументПоступления" Вид="Реквизит" Тип="ДокументСсылка.ПриобретениеТоваровУслуг"/> <ПередВыгрузкой>Значение = Источник.ДокОснование; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Если (Параметры.Сценарий_ПереносОстатков = 1) И (Значение.ДатаДок < Параметры.ДатаНачалаСценария) Тогда Значение = 0; ИначеЕсли Значение.Вид() = "ПоступлениеТМЦ" Тогда ИмяПКО = "ПоступлениеТМЦ_ПоступлениеТоваровУслуг"; ИначеЕсли Значение.Вид() = "ПоступлениеТМЦРозница" Тогда ИмяПКО = "ПоступлениеТМЦРозница_ПоступлениеТоваровУслуг"; Иначе Значение = 0; КонецЕсли; КонецЕсли; <Группа> <Код>31 <Наименование>--> РасшифровкаПлатежа <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.КодОперации <> Перечисление.КодыОпераций.ВозвратПоставщику Тогда Отказ = 1; Иначе КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВалютаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Заказ"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяСтрока(); КонецЕсли; <Свойство> <Код>32 <Наименование> --> ВалютаВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор.ВалютаВзаиморасчетов; <Свойство> <Код>33 <Наименование> --> Заказ <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратПоставщику Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>34 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>35 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Значения/> <Группа> <Код>Продажа <Наименование>Продажа <Порядок>200 <Группа> <Код>Заявки <Наименование>Заявки <Порядок>50 <Правило> <Код>ЗаявкаПокупателя_КоммерческоеПредложениеКлиенту <Наименование>Документ: Заявка покупателя <Порядок>50 <ПередВыгрузкой>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗаполнитьСоглашениеПоУмолчанию); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ЗаявкаПокупателя <Приемник>ДокументСсылка.КоммерческоеПредложениеКлиенту <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>7 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>9 <Наименование>Контрагент --> Партнер <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>16 <Наименование>Договор --> Соглашение <Порядок>450 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомИндивидуальное <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); ХозОперация = ИсходящиеДанные.Получить("ХозяйственнаяОперация"); ВходящиеДанные.Установить("ХозяйственнаяОперация", ХозОперация); Если Параметры.ИспользоватьСоглашенияСКлиентами = 0 тогда Если ХозОперация = "РеализацияКлиенту" Тогда ИмяПКО = "Договор_СоглашениеСКлиентомПоУмолчанию"; ИначеЕсли ХозОперация = "ПередачаНаКомиссию" Тогда ИмяПКО = "Договор_СоглашениеСКомиссионеромПоУмолчанию"; Иначе Отказ = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>15 <Наименование>--> ХозяйственнаяОперация <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <Свойство> <Код>12 <Наименование>--> НалогообложениеНДС <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>11 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>600 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>10 <Наименование> --> СуммаДокумента <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>17 <Наименование>Автор --> Менеджер <Порядок>700 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>8 <Наименование>Склад --> Склад <Порядок>750 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>13 <Наименование> --> Статус <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыКоммерческихПредложенийКлиентам"/> <ПередВыгрузкой>Значение = "Действует"; <Свойство> <Код>30 <Наименование> --> СкидкиРассчитаны <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СкидкиРассчитаны" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>31 <Наименование> --> Согласован <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>18 <Наименование>ТабличнаяЧасть --> Товары <Порядок>950 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>20 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>25 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>26 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>24 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>23 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>28 <Наименование> --> Активность <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Активность" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>29 <Наименование> --> ВидЦены <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПередВыгрузкой>Значение = Источник.ТипЦен; <Значения/> <Правило> <Код>ЗаявкаПокупателя_ЗаказКлиента <Наименование>Документ: Заявка покупателя <Порядок>100 <ПередВыгрузкой>Если ТипЗначенияСтр(ВходящиеДанные) <> "СписокЗначений" Тогда ВходящиеДанные = СоздатьОбъект("СписокЗначений"); КонецЕсли; ВходящиеДанные.Установить("НалогообложениеНДС", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); // Определяем дату переноса остатков по заказам Если ПустоеЗначение(Параметры.ДатаОкончанияСценария) = 0 Тогда ДатаОстатков = Параметры.ДатаОкончанияСценария; Иначе ДатаОстатков = ПолучитьДатуТА(); КонецЕсли; ДатаТА = ПолучитьДатуТА(); ДатаОстатков = ?((ПустоеЗначение(ДатаОстатков) = 0) И (ДатаОстатков < ДатаТА), ДатаОстатков,ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЗакрытиеЗаявки) |Период с (Источник.ТекущийДокумент()) по ДатаОстатков; |Заказ = Регистр.Заявки.ЗаявкаПокупателя; |Номенклатура = Регистр.Заявки.Номенклатура; |Количество = Регистр.Заявки.КоличествоРасход; |Функция КоличествоЗакрыто = Расход(Количество); |Группировка Документ; |Группировка Номенклатура без групп; |Условие(Заказ = Источник.ТекущийДокумент()); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ТабЗакрытиеЗаказа = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ТабЗакрытиеЗаказа, 0, 0); ТабЗакрытиеЗаказа.НоваяКолонка("ПричинаОтмены"); ТабЗакрытиеЗаказа.ВыбратьСтроки(); Пока ТабЗакрытиеЗаказа.ПолучитьСтроку() = 1 Цикл ПричинаОтмены = "Выполнение"; ВидДокумента = ТабЗакрытиеЗаказа.Документ.Вид(); Если ВидДокумента = "ЗаявкаПокупателя" Тогда ПричинаОтмены = "Корректировка"; ИначеЕсли ВидДокумента = "ОтменаЗаявок" Тогда ПричинаОтмены = "Отмена"; КонецЕсли; ТабЗакрытиеЗаказа.ПричинаОтмены = ПричинаОтмены; КонецЦикла; ТабЗакрытиеЗаказа.Свернуть("Номенклатура,ПричинаОтмены", "КоличествоЗакрыто"); ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("Единица"); ТабТовары.НоваяКолонка("Коэффициент"); ТабТовары.НоваяКолонка("Количество"); ТабТовары.НоваяКолонка("Цена"); ТабТовары.НоваяКолонка("Сумма"); ТабТовары.НоваяКолонка("СтавкаНДС"); ТабТовары.НоваяКолонка("СуммаНДС"); ТабТовары.НоваяКолонка("ПричинаОтмены"); Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку() = 1 Цикл Номенклатура = Источник.Номенклатура; Количество = Источник.Количество*Источник.Коэффициент; КоличествоНеЗакрыто = Количество; СуммаНеЗакрыто = Источник.Сумма; СуммаНДСНеЗакрыто = Источник.СуммаНДС; // Получаем остаток закрытого заказа данной номенклатуры НайдСтрока = 0; Пока (ТабЗакрытиеЗаказа.НайтиЗначение(Номенклатура, НайдСтрока, "Номенклатура") = 1) И (КоличествоНеЗакрыто > 0) Цикл // Выделение строк и уменьшение закрытого остатка ТабЗакрытиеЗаказа.ПолучитьСтрокуПоНомеру(НайдСтрока); ТабТовары.НоваяСтрока(); ТабТовары.ПричинаОтмены = ТабЗакрытиеЗаказа.ПричинаОтмены; КоличествоЗачетЗакрытия = Мин(ТабЗакрытиеЗаказа.КоличествоЗакрыто, КоличествоНеЗакрыто); ТабТовары.Количество = Окр(КоличествоЗачетЗакрытия/Источник.Коэффициент, 3); ТабЗакрытиеЗаказа.КоличествоЗакрыто = ТабЗакрытиеЗаказа.КоличествоЗакрыто - КоличествоЗачетЗакрытия; КоличествоНеЗакрыто = КоличествоНеЗакрыто - КоличествоЗачетЗакрытия; ТабТовары.Сумма = ?(КоличествоНеЗакрыто = 0, СуммаНеЗакрыто, Окр(Источник.Сумма*КоличествоЗачетЗакрытия/Количество, 2)); ТабТовары.СуммаНДС = ?(КоличествоНеЗакрыто = 0, СуммаНДСНеЗакрыто, Окр(Источник.СуммаНДС*КоличествоЗачетЗакрытия/Количество, 2)); СуммаНеЗакрыто = СуммаНеЗакрыто - ТабТовары.Сумма; СуммаНДСНеЗакрыто = СуммаНДСНеЗакрыто - ТабТовары.СуммаНДС; Если ТабЗакрытиеЗаказа.КоличествоЗакрыто = 0 Тогда ТабЗакрытиеЗаказа.УдалитьСтроку(НайдСтрока); НайдСтрока = 0; КонецЕсли; ТабТовары.Номенклатура = Источник.Номенклатура; ТабТовары.Единица = Источник.Единица; ТабТовары.Коэффициент = Источник.Коэффициент; ТабТовары.Цена = Источник.Цена; ТабТовары.СтавкаНДС = ?(Источник.УчитыватьНДС = 0, Перечисление.СтавкиНДС.БезНДС, Источник.СтавкаНДС); КонецЦикла; Если КоличествоНеЗакрыто > 0 Тогда ТабТовары.НоваяСтрока(); ТабТовары.Количество = Окр(КоличествоНезакрыто/Источник.Коэффициент, 3);; ТабТовары.Сумма = СуммаНеЗакрыто; ТабТовары.СуммаНДС = СуммаНДСНеЗакрыто; ТабТовары.ПричинаОтмены = ""; ТабТовары.Номенклатура = Источник.Номенклатура; ТабТовары.Единица = Источник.Единица; ТабТовары.Коэффициент = Источник.Коэффициент; ТабТовары.Цена = Источник.Цена; ТабТовары.СтавкаНДС = ?(Источник.УчитыватьНДС = 0, Перечисление.СтавкиНДС.БезНДС, Источник.СтавкаНДС); КонецЕсли; КонецЦикла; Если ТабТовары.КоличествоСтрок() > 0 тогда ВходящиеДанные.Установить("Товары", ТабТовары); Иначе Отказ = 1; КонецЕсли; <ПослеЗагрузки>Если Не ЗначениеЗаполнено(Объект.Валюта) Тогда Объект.Валюта = Константы.ВалютаУправленческогоУчета.Получить(); КонецЕсли; Объект.Приоритет = Справочники.Приоритеты.ПолучитьПриоритетПоУмолчанию(Объект.Приоритет); // Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ЗаказКлиента.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Если Объект.ПорядокРасчетов <> Перечисления.ПорядокРасчетов.ПоНакладным Тогда Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); Иначе Объект.ИдентификаторПлатежа = Неопределено; КонецЕсли; Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ЗаявкаПокупателя <Приемник>ДокументСсылка.ЗаказКлиента <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>14 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>9 <Наименование>Склад --> Склад <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "Склады_ПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>6 <Наименование>Контрагент --> Партнер <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>35 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>17 <Наименование>Договор --> Соглашение <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомИндивидуальное <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); ХозОперация = ИсходящиеДанные.Получить("ХозяйственнаяОперация"); ВходящиеДанные.Установить("ХозяйственнаяОперация", ХозОперация); Если Параметры.ИспользоватьСоглашенияСКлиентами = 0 тогда Если ХозОперация = "РеализацияКлиенту" Тогда ИмяПКО = "Договор_СоглашениеСКлиентомПоУмолчанию"; ИначеЕсли ХозОперация = "ПередачаНаКомиссию" Тогда ИмяПКО = "Договор_СоглашениеСКомиссионеромПоУмолчанию"; Иначе Отказ = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>45 <Наименование>Договор --> Договор <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>18 <Наименование>--> ХозяйственнаяОперация <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <Свойство> <Код>7 <Наименование>--> НалогообложениеНДС <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>8 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>10 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>19 <Наименование>Автор --> Менеджер <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>11 <Наименование>--> Статус <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыЗаказовКлиентов"/> <ПриВыгрузке>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Значение = "НеСогласован"; ИначеЕсли (ПустоеЗначение(ВходящиеДанные.Получить("Товары")) = 0) И (ВходящиеДанные.Получить("Товары").НайтиЗначение("", 0, "ПричинаОтмены") = 1) Тогда Значение = "КОтгрузке"; Иначе Значение = "Закрыт"; КонецЕсли; <Свойство> <Код>12 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>950 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>44 <Наименование>--> Согласован <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>16 <Наименование>ДатаДок --> ДатаСогласования <Порядок>1050 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаСогласования" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>41 <Наименование>ДатаОтгрузки --> ЖелаемаяДатаОтгрузки <Порядок>1150 <Источник Имя="ДатаОтгрузки" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ЖелаемаяДатаОтгрузки" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>46 <Наименование> --> СкидкиРассчитаны <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СкидкиРассчитаны" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>49 <Наименование>--> МаксимальныйКодСтроки <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="МаксимальныйКодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ПустоеЗначение(ВходящиеДанные.Получить("Товары")) = 0 Тогда Значение = ВходящиеДанные.Получить("Товары").КоличествоСтрок(); Иначе Отказ = 1; КонецЕсли; <Группа> <Код>21 <Наименование>--> Товары <Порядок>1350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>24 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>22 <Наименование> --> Упаковка <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <ПередВыгрузкой>Значение = ОбъектКоллекции.Единица; <Свойство> <Код>23 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество; <Свойство> <Код>33 <Наименование> --> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество*ОбъектКоллекции.Коэффициент; <Свойство> <Код>28 <Наименование> --> Цена <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>27 <Наименование> --> СуммаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование> --> СуммаСНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>29 <Наименование> --> ВидЦены <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПередВыгрузкой>Значение = Источник.ТипЦен; <Свойство> <Код>30 <Наименование> --> ДатаОтгрузки <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаОтгрузки" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Источник.ДатаОтгрузки; <Свойство> <Код>31 <Наименование> --> Склад <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник.Склад; Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "Склады_ПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>42 <Наименование> --> Отменено <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Отменено" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = ?(ПустоеЗначение(ОбъектКоллекции.ПричинаОтмены) = 0, 1, 0); <Свойство> <Код>43 <Наименование> --> ПричинаОтмены <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ПричинаОтмены" Вид="Реквизит" Тип="СправочникСсылка.ПричиныОтменыЗаказовКлиентов"/> <КодПравилаКонвертации>ПричиныОтменыЗаказовКлиентов <Свойство> <Код>47 <Наименование> --> КодСтроки <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Свойство> <Код>50 <Наименование>--> ВариантОбеспечения <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантОбеспечения" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыОбеспечения"/> <ПередВыгрузкой>Значение = "Требуется"; <Группа> <Код>36 <Наименование>--> ЭтапыГрафикаОплаты <Порядок>1400 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтапыГрафикаОплаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа", "Число"); Если ПустоеЗначение(ВходящиеДанные.Получить("Товары")) = 0 Тогда ТабТовары = ВходящиеДанные.Получить("Товары"); Если ТабТовары.НайтиЗначение("", 0, "ПричинаОтмены") = 1 Тогда КоллекцияОбъектов.НоваяСтрока(); ТабТовары.ВыбратьСтроки(); Пока ТабТовары.ПолучитьСтроку() = 1 Цикл Если ТабТовары.ПричинаОтмены = "" Тогда КоллекцияОбъектов.СуммаПлатежа = КоллекцияОбъектов.СуммаПлатежа + ТабТовары.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ТабТовары.СуммаНДС); КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; <Свойство> <Код>37 <Наименование> --> ВариантОплаты <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыОплатыКлиентом"/> <ПередВыгрузкой>Значение = "КредитПослеОтгрузки"; <Свойство> <Код>38 <Наименование> --> ДатаПлатежа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Макс(Макс(Источник.ДатаОтгрузки, Источник.ДатаОплаты), Источник.ДатаДок); <Свойство> <Код>39 <Наименование> --> ПроцентПлатежа <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентПлатежа" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 100; <Свойство> <Код>40 <Наименование> --> СуммаПлатежа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>Реализация_РеализацияТоваровУслуг <Наименование>Документ: Реализация <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); <ПослеЗагрузки>Объект.ДатаРаспоряжения = КонецДня(Объект.ДатаРаспоряжения); // Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.РеализацияТоваровУслуг.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчетОрганизации, Объект.Касса); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.ВалютаВзаиморасчетов,Объект.НалогообложениеНДС,ВалютаОплаты); <Источник>ДокументСсылка.Реализация <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>9 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>29 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>16 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>31 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>11 <Наименование>Договор --> Соглашение <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомИндивидуальное <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.Продажа Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПередачаНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); ХозОперация = ИсходящиеДанные.Получить("ХозяйственнаяОперация"); Если Параметры.ИспользоватьСоглашенияСКлиентами = 0 тогда Если ХозОперация = "РеализацияКлиенту" Тогда ИмяПКО = "Договор_СоглашениеСКлиентомПоУмолчанию"; ИначеЕсли ХозОперация = "ПередачаНаКомиссию" Тогда ИмяПКО = "Договор_СоглашениеСКомиссионеромПоУмолчанию"; Иначе Отказ = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>38 <Наименование>Договор --> Договор <Порядок>650 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.Продажа Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПередачаНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>13 <Наименование>КодОперации --> ХозяйственнаяОперация <Порядок>700 <Источник Имя="КодОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.КодыОпераций"/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПриВыгрузке>Если Значение = Перечисление.КодыОпераций.Продажа Тогда Значение = "РеализацияКлиенту"; Иначе Значение = "ПередачаНаКомиссию"; КонецЕсли; <Свойство> <Код>15 <Наименование>--> НалогообложениеНДС <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>14 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>800 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>34 <Наименование> --> СуммаДокумента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>30 <Наименование>Автор --> Менеджер <Порядок>900 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>32 <Наименование> --> Подразделение <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>1000 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>36 <Наименование>--> Статус <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыРеализацийТоваровУслуг"/> <ПередВыгрузкой>Значение = "Отгружено"; <Свойство> <Код>37 <Наименование>ДатаДок --> ДатаРаспоряжения <Порядок>1150 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаРаспоряжения" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>39 <Наименование> --> СкидкиРассчитаны <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СкидкиРассчитаны" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>40 <Наименование> --> Согласован <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>17 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1300 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>20 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>18 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>19 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>24 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>23 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>25 <Наименование> --> ВидЦены <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПередВыгрузкой>Значение = Источник.ТипЦен; <Свойство> <Код>27 <Наименование> --> Склад <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник.Склад; <Свойство> <Код>41 <Наименование> --> КодСтроки <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Значения/> <Правило> <Код>Реализация_РеализацияТоваровУслуг_ВО <Наименование>Документ: Реализация <Порядок>150 <ПослеЗагрузки>Объект.ДатаРаспоряжения = КонецДня(Объект.ДатаРаспоряжения); Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчетОрганизации, Объект.Касса); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.ВалютаВзаиморасчетов,Объект.НалогообложениеНДС,ВалютаОплаты); <Источник>ДокументСсылка.Реализация <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>9 <Наименование> --> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование> --> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>29 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>16 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>31 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>13 <Наименование>КодОперации --> ХозяйственнаяОперация <Порядок>650 <Источник Имя="КодОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.КодыОпераций"/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПриВыгрузке>Если Значение = Перечисление.КодыОпераций.Продажа Тогда Значение = "РеализацияКлиенту"; Иначе Значение = "ПередачаНаКомиссию"; КонецЕсли; <Свойство> <Код>14 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>33 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>950 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>ДатаДок --> ДатаРаспоряжения <Порядок>1150 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаРаспоряжения" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>36 <Наименование>Автор --> Автор <Порядок>1200 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Значения/> <Правило> <Код>ВозвратОтПокупателя_ВозвратТоваровОтКлиента <Наименование>Документ: Возврат от покупателя <Порядок>200 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); ЭтоВозвратОтРозничногоПокупателя = 0; ДокОснование = Источник.ДокОснование; Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателя Тогда Если ПустоеЗначение(ДокОснование) = 0 Тогда Если ДокОснование.Вид() = "ОтчетККМ" Тогда ЭтоВозвратОтРозничногоПокупателя = 1; ИначеЕсли ДокОснование.Вид() = "РеализацияРозница" Тогда Если ДокОснование.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда ЭтоВозвратОтРозничногоПокупателя = 1; КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателяЕНВД Тогда ЭтоВозвратОтРозничногоПокупателя = 1; КонецЕсли; ВходящиеДанные.Установить("ЭтоВозвратОтРозничногоПокупателя", ЭтоВозвратОтРозничногоПокупателя); <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ВозвратТоваровОтКлиента.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.Валюта,,Объект.Валюта); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ВозвратОтПокупателя <Приемник>ДокументСсылка.ВозвратТоваровОтКлиента <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>11 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>24 <Наименование>Контрагент --> Партнер <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>33 <Наименование>Договор --> Договор <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателя) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателяЕНВД) Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПередачаНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>9 <Наименование>Договор --> Соглашение <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомИндивидуальное <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателя) Или (Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателяЕНВД) Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратТоваровОтКлиента"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ВозвратОтКомиссионера"); ИмяПКО = "Договор_СоглашениеСКомиссионеромИндивидульное"; КонецЕсли; ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); ХозОперация = ИсходящиеДанные.Получить("ХозяйственнаяОперация"); Если Параметры.ИспользоватьСоглашенияСКлиентами = 0 тогда Если ХозОперация = "ВозвратТоваровОтКлиента" Тогда ИмяПКО = "Договор_СоглашениеСКлиентомПоУмолчанию"; ИначеЕсли ХозОперация = "ВозвратОтКомиссионера" Тогда ИмяПКО = "Договор_СоглашениеСКомиссионеромПоУмолчанию"; Иначе Отказ = 1; КонецЕсли; КонецЕсли; <Свойство> <Код>28 <Наименование>КодОперации --> ХозяйственнаяОперация <Порядок>650 <Источник Имя="КодОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.КодыОпераций"/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПриВыгрузке>Если Значение = Перечисление.КодыОпераций.ВозвратОтПокупателя Тогда Если ВходящиеДанные.Получить("ЭтоВозвратОтРозничногоПокупателя") = 0 Тогда Значение = "ВозвратТоваровОтКлиента"; Иначе Значение = "ВозвратОтРозничногоПокупателя"; КонецЕсли; ИначеЕсли Значение = Перечисление.КодыОпераций.ВозвратОтПокупателяЕНВД Тогда Значение = "ВозвратОтРозничногоПокупателя"; Иначе Значение = "ВозвратОтКомиссионера"; КонецЕсли; <Свойство> <Код>23 <Наименование>--> НалогообложениеНДС <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>10 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>27 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>22 <Наименование>Автор --> Менеджер <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>25 <Наименование> --> Подразделение <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>29 <Наименование>ДокОснование --> ДокументРеализации <Порядок>950 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументРеализации" Вид="Реквизит"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; ИначеЕсли Значение.Вид() = "Реализация" Тогда ИмяПКО = "Реализация_РеализацияТоваровУслуг"; ИначеЕсли Значение.Вид() = "РеализацияРозница" Тогда Если Значение.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда ИмяПКО = "РеализацияРозница_ОтчетОРозничныхПродажах"; Иначе ИмяПКО = "РеализацияРозница_РеализацияТоваровУслуг"; КонецЕсли; ИначеЕсли Значение.Вид() = "ОтчетККМ" Тогда ИмяПКО = "ОтчетККМ_ОтчетОРозничныхПродажах"; Иначе Значение = 0; КонецЕсли; <Группа> <Код>12 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1150 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>13 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>14 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>19 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>18 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>34 <Наименование> --> КодСтроки <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Свойство> <Код>40 <Наименование>--> ДокументРеализации <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументРеализации" Вид="Реквизит"/> <ПередВыгрузкой>Значение = Источник.ДокОснование; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; ИначеЕсли Значение.Вид() = "Реализация" Тогда ИмяПКО = "Реализация_РеализацияТоваровУслуг"; ИначеЕсли Значение.Вид() = "РеализацияРозница" Тогда Если Значение.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда ИмяПКО = "РеализацияРозница_ОтчетОРозничныхПродажах"; Иначе ИмяПКО = "РеализацияРозница_РеализацияТоваровУслуг"; КонецЕсли; ИначеЕсли Значение.Вид() = "ОтчетККМ" Тогда ИмяПКО = "ОтчетККМ_ОтчетОРозничныхПродажах"; Иначе Значение = 0; КонецЕсли; <Группа> <Код>35 <Наименование> --> РасшифровкаПлатежа <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Если Источник.КодОперации <> Перечисление.КодыОпераций.ВозвратОтПокупателя Тогда Отказ = 1; Иначе КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВалютаВзаиморасчетов"); КоллекцияОбъектов.НоваяКолонка("Заказ"); КоллекцияОбъектов.НоваяКолонка("Сумма"); КоллекцияОбъектов.НоваяКолонка("СуммаВзаиморасчетов"); КоллекцияОбъектов.НоваяСтрока(); КонецЕсли; <Свойство> <Код>36 <Наименование> --> ВалютаВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор.ВалютаВзаиморасчетов; <Свойство> <Код>37 <Наименование> --> Заказ <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателя Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПередачаНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>38 <Наименование> --> Сумма <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>39 <Наименование> --> СуммаВзаиморасчетов <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаВзаиморасчетов; <Значения/> <Правило> <Код>РеализацияПрочее_РеализацияУслугПрочихАктивов <Наименование>Документ: Реализация (ОС, НМА и пр.) <Порядок>250 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчетОрганизации); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.ВалютаВзаиморасчетов,Объект.НалогообложениеНДС,ВалютаОплаты); <Источник>ДокументСсылка.РеализацияПрочее <Приемник>ДокументСсылка.РеализацияУслугПрочихАктивов <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>9 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>26 <Наименование> --> ХозяйственнаяОперация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "РеализацияПрочихАктивов"; <Свойство> <Код>14 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>350 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>23 <Наименование>Контрагент --> Партнер <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>2 <Наименование>Договор --> Договор <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>24 <Наименование>Договор --> Соглашение <Порядок>550 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомИндивидуальное <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); Если Параметры.ИспользоватьСоглашенияСКлиентами = 0 тогда ИмяПКО = "Договор_СоглашениеСКлиентомПоУмолчанию"; КонецЕсли; <Свойство> <Код>27 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>650 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>ДатаОплаты --> ДатаПлатежа <Порядок>700 <Источник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <ПриВыгрузке>Значение = ?(ПустоеЗначение(Значение) = 1, Источник.ДатаДок, Значение); <Свойство> <Код>12 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>13 <Наименование>--> НалогообложениеНДС <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>25 <Наименование> --> СуммаДокумента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>28 <Наименование> --> Подразделение <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>10 <Наименование>Автор --> Менеджер <Порядок>950 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>1000 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Доходы <Порядок>1050 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Доходы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Количество) = 1 Тогда Значение = 1; КонецЕсли; <Свойство> <Код>17 <Наименование>Содержание --> Содержание <Порядок>100 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ПустоеЗначение(ОбъектКоллекции.Цена) = 1 Тогда Значение = ОбъектКоллекции.Сумма; КонецЕсли; <Свойство> <Код>22 <Наименование>Сумма --> СуммаСНДС <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = ОбъектКоллекции.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>29 <Наименование>--> СтатьяДоходов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходов" Вид="Реквизит" Тип="ПланВидовХарактеристикСсылка.СтатьиДоходов"/> <КодПравилаКонвертации>СтатьяДоходов_РеализацияУслуг <ПередВыгрузкой>Значение = "1"; <Значения/> <Группа> <Код>Комиссия <Наименование>Комиссия <Порядок>250 <Правило> <Код>ОтчетКомитенту <Наименование>Документ: Отчет комитенту <Порядок>50 <ПередВыгрузкой>НалогообложениеНДС = ""; Товары = СоздатьОбъект("ТаблицаЗначений"); Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Количество"); Товары.НоваяКолонка("КоличествоУпаковок"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Сумма"); Товары.НоваяКолонка("СтавкаНДС"); Товары.НоваяКолонка("СуммаСНДС"); Товары.НоваяКолонка("ЦенаПродажи"); Товары.НоваяКолонка("СуммаПродажи"); Товары.НоваяКолонка("СуммаВознаграждения"); Товары.НоваяКолонка("Покупатель"); Товары.НоваяКолонка("ДатаСчетаФактуры"); Рег = СоздатьОбъект("Регистр.РеализованныйТовар"); Рег.ВыбратьДвиженияДокумента(Источник.ТекущийДокумент()); Пока Рег.ПолучитьДвижение() = 1 Цикл ДатаКурса = Источник.ДатаДок; Если ПустоеЗначение(Рег.ДокПродажи) = 0 Тогда ДатаКурса = Рег.ДокПродажи.ДатаДок; КонецЕсли; КолСтрок = Источник.КоличествоСтрок(); РучнойРасчет = ?(Источник.СпособРасчета = Перечисление.СпособыРасчетаВознаграждения.Ручное, 1, 0); Если РучнойРасчет = 1 Тогда Если Рег.НомерСтроки() > КолСтрок Тогда Продолжить; КонецЕсли; КонецЕсли; Товары.НоваяСтрока(); Товары.Номенклатура = Рег.Номенклатура; Товары.Количество = Рег.Количество; Товары.КоличествоУпаковок = Рег.Количество; Если (Рег.ДокПродажи.Вид() = "Реализация") или (Рег.ДокПродажи.Вид() = "ВозвратОтПокупателя") Тогда Товары.Покупатель = Рег.ДокПродажи.Контрагент; Иначе Товары.Покупатель = Источник.Фирма.ЮрЛицо; КонецЕсли; Товары.ДатаСчетаФактуры = Рег.ДокПродажи.ДатаДок; Если РучнойРасчет = 1 Тогда Источник.ПолучитьСтрокуПоНомеру(Рег.НомерСтроки()); Товары.Цена = Источник.Цена/Источник.Коэффициент; Иначе Товары.Цена = глПересчет(Рег.Партия.ЗакупочнаяЦена, Источник.Договор.ВалютаВзаиморасчетов, ДатаКурса, Источник.Валюта, ДатаКурса); КонецЕсли; Товары.Сумма = Товары.Цена * Товары.Количество; Товары.СтавкаНДС = "БезНДС"; Товары.СуммаСНДС = Товары.Сумма; Товары.СуммаВознаграждения = глПересчет(Рег.Вознаграждение, Константа.ВалютаБухУчета, ДатаКурса, Источник.Валюта, ДатаКурса); Товары.СуммаПродажи = глПересчет(Рег.ПродСтоимость, Константа.ВалютаБухУчета, ДатаКурса, Источник.Валюта, ДатаКурса); Товары.СуммаПродажи = Окр(Товары.СуммаПродажи, 2); Товары.ЦенаПродажи = Окр(Товары.СуммаПродажи / Рег.Количество, 2); Если НалогообложениеНДС = "" Тогда Попытка НалогообложениеНДС = ?(Рег.ДокПродажи.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"); Исключение КонецПопытки; КонецЕсли; КонецЦикла; Товары.Свернуть("Номенклатура,Цена,СтавкаНДС,ЦенаПродажи,Покупатель,ДатаСчетаФактуры","Количество,КоличествоУпаковок,Сумма,СуммаСНДС,СуммаПродажи,СуммаВознаграждения"); ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("Товары", Товары); ВходящиеДанные.Установить("НалогообложениеНДС", ?(НалогообложениеНДС = "", "ПродажаОблагаетсяНДС", НалогообложениеНДС)); ВходящиеДанные.Установить("СуммаДокумента", Товары.Итог("СуммаПродажи")); ВходящиеДанные.Установить("СуммаВознаграждения", Товары.Итог("СуммаВознаграждения")); СтавкаНДСВознаграждения = Источник.СтавкаНДС; Если СтавкаНДСВознаграждения = Перечисление.СтавкиНДС.НДС10_110 Тогда СтавкаНДСВознаграждения = Перечисление.СтавкиНДС.НДС10; ИначеЕсли СтавкаНДСВознаграждения = Перечисление.СтавкиНДС.НДС18_118 Тогда СтавкаНДСВознаграждения = Перечисление.СтавкиНДС.НДС18; ИначеЕсли СтавкаНДСВознаграждения = Перечисление.СтавкиНДС.НДС20_120 Тогда СтавкаНДСВознаграждения = Перечисление.СтавкиНДС.НДС20; КонецЕсли; ВходящиеДанные.Установить("СтавкаНДСВознаграждения", СтавкаНДСВознаграждения); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчет, Объект.Касса); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.Валюта, Объект.НалогообложениеНДС, ВалютаОплаты); <Источник>ДокументСсылка.ОтчетКомитенту <Приемник>ДокументСсылка.ОтчетКомитенту <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>14 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Контрагент --> Партнер <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>26 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>10 <Наименование>Договор --> Соглашение <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСКомитентом <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", 1); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ИсходящиеДанные.Установить("СпособРасчетаВознаграждения", Источник.СпособРасчета); ВыгрузитьДоговорВСоглашение(); <Свойство> <Код>27 <Наименование>СпособРасчета --> СпособРасчетаВознаграждения <Порядок>550 <Источник Имя="СпособРасчета" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаВознаграждения"/> <Приемник Имя="СпособРасчетаВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <КодПравилаКонвертации>СпособыРасчетаКомиссионногоВознаграждения <Свойство> <Код>28 <Наименование>Процент --> ПроцентВознаграждения <Порядок>600 <Источник Имя="Процент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПроцентВознаграждения" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = ?(Источник.СпособРасчета = Перечисление.СпособыРасчетаВознаграждения.Ручное, 100, Значение); <Свойство> <Код>29 <Наименование>--> СтавкаНДСВознаграждения <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДСВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>9 <Наименование>ДатаОплаты --> ДатаПлатежа <Порядок>700 <Источник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>24 <Наименование>Автор --> Менеджер <Порядок>750 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>25 <Наименование> --> Подразделение <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>30 <Наименование>Договор --> Договор <Порядок>850 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); <Свойство> <Код>31 <Наименование> --> ЦенаВключаетНДС <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>32 <Наименование> --> УдержатьВознаграждение <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="УдержатьВознаграждение" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>33 <Наименование> --> Услуга <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>НоменклатураКомиссионноеВознаграждение <ПередВыгрузкой>Значение = "Комиссионное вознаграждение полученное"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("СтавкаНДС", ВходящиеДанные.Получить("СтавкаНДСВознаграждения")); <Свойство> <Код>34 <Наименование>--> НалогообложениеНДС <Порядок>1050 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>36 <Наименование>--> СуммаДокумента <Порядок>1100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>--> СуммаВознаграждения <Порядок>1150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>37 <Наименование> --> СуммаНДСВознаграждения <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДСВознаграждения" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 0; Рег = СоздатьОбъект("Регистр.КнигаПродаж"); Рег.ВыбратьДвиженияДокумента(Источник.ТекущийДокумент()); Пока Рег.ПолучитьДвижение() = 1 Цикл Рез = Значение + Рег.СуммаНДС; КонецЦикла; <Группа> <Код>15 <Наименование>--> Товары <Порядок>1250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>18 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>23 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> Количество <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> Цена <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>38 <Наименование> --> СтавкаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>42 <Наименование> --> СуммаСНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>43 <Наименование> --> ЦенаПродажи <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаПродажи" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>41 <Наименование> --> СуммаПродажи <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПродажи" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование> --> СуммаВознаграждения <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВознаграждения" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>48 <Наименование> --> ДатаСчетаФактуры <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>49 <Наименование> --> Покупатель <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Покупатель" Вид="Реквизит"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 тогда Если Значение.Вид() = "СвоиЮрЛица" тогда ИмяПКО = "СвоиЮрЛица_Контрагенты"; Иначе ВыгрузитьКонтрагентаВКонтрагента(); КонецЕсли; КонецЕсли; <Группа> <Код>44 <Наименование> --> ЭтапыГрафикаОплаты <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтапыГрафикаОплаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДатаПлатежа"); КоллекцияОбъектов.НоваяКолонка("ПроцентПлатежа"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>45 <Наименование> --> ДатаПлатежа <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Макс(Источник.ДатаОплаты, Источник.ДатаДок); <Свойство> <Код>46 <Наименование> --> ПроцентПлатежа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентПлатежа" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 100; <Свойство> <Код>47 <Наименование> --> СуммаПлатежа <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Товары = ВходящиеДанные.Получить("Товары"); Значение = Товары.Итог("СуммаПродажи"); <Свойство Отключить="true"> <Код>50 <Наименование>Фирма --> <Порядок>1350 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="" Вид=""/> <Значения/> <Правило> <Код>ОтчетКомиссионера <Наименование>Документ: Отчет комиссионера <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); ВходящиеДанные.Установить("СуммаДокумента", Источник.Итог("Сумма")); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); ВалютаОплаты = ДенежныеСредстваСервер.ПолучитьВалютуОплаты(Объект.ФормаОплаты, Объект.БанковскийСчет, Объект.Касса); Объект.ПорядокОплаты = Перечисления.ПорядокОплатыПоСоглашениям.ПолучитьПорядокОплатыПоУмолчанию(Объект.Валюта,Объект.НалогообложениеНДС,ВалютаОплаты); <Источник>ДокументСсылка.ОтчетКомиссионера <Приемник>ДокументСсылка.ОтчетКомиссионера <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>14 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Контрагент --> Партнер <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>25 <Наименование>Контрагент --> Контрагент <Порядок>450 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>10 <Наименование>Договор --> Соглашение <Порядок>500 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКомиссионеромИндивидульное <ПриВыгрузке>Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПередачаНаКомиссию"); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>13 <Наименование>--> НалогообложениеНДС <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>12 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>600 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ДатаОплаты --> ДатаПлатежа <Порядок>650 <Источник Имя="ДатаОплаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>8 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>700 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>750 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>23 <Наименование>Автор --> Менеджер <Порядок>800 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>24 <Наименование> --> Подразделение <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>31 <Наименование> --> СпособРасчетаВознаграждения <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СпособРасчетаВознаграждения" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения"/> <ПередВыгрузкой>Значение = "НеРассчитывается"; <Свойство> <Код>33 <Наименование>Договор --> Договор <Порядок>950 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПередачаНаКомиссию"); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>38 <Наименование>--> СуммаДокумента <Порядок>1000 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Группа> <Код>15 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1050 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>18 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>16 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>26 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = ОбъектКоллекции.Количество*ОбъектКоллекции.Коэффициент; <Свойство> <Код>22 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>21 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Сумма --> СуммаПродажи <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПродажи" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>28 <Наименование>СуммаНДС --> СуммаПродажиНДС <Порядок>500 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПродажиНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>Сумма --> СуммаСНДС <Порядок>550 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = ОбъектКоллекции.Сумма + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>30 <Наименование>Цена --> ЦенаПродажи <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаПродажи" Вид="Реквизит" Тип="Число"/> <Группа> <Код>34 <Наименование> --> ЭтапыГрафикаОплаты <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтапыГрафикаОплаты" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ДатаПлатежа"); КоллекцияОбъектов.НоваяКолонка("ПроцентПлатежа"); КоллекцияОбъектов.НоваяКолонка("СуммаПлатежа"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>35 <Наименование> --> ДатаПлатежа <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <ПередВыгрузкой>Значение = Источник.ДатаДок; <Свойство> <Код>36 <Наименование> --> ПроцентПлатежа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ПроцентПлатежа" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 100; <Свойство> <Код>37 <Наименование> --> СуммаПлатежа <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 1, 0, Источник.Итог("СуммаНДС")); <Значения/> <Группа> <Код>Склад <Наименование>Склад <Порядок>300 <Группа> <Код>Инвентаризация <Наименование>Инвентаризация <Порядок>50 <Правило> <Код>ИнвентаризацияТМЦ_ПересчетТоваров <Наименование>Документ: Инвентаризация ТМЦ <Порядок>50 <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ПересчетТоваров.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ИнвентаризацияТМЦ <Приемник>ДокументСсылка.ПересчетТоваров <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>13 <Наименование>ПометкаУдаления --> Проведен <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПриВыгрузке>Значение = 1 - Значение; <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>Автор --> Ответственный <Порядок>350 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>12 <Наименование> --> Статус <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыПересчетовТоваров"/> <ПередВыгрузкой>Значение = "Выполнено"; <Свойство> <Код>16 <Наименование>Автор --> Исполнитель <Порядок>450 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Исполнитель" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>18 <Наименование> --> УчетныеДанныеЗаполнены <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="УчетныеДанныеЗаполнены" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>7 <Наименование>ТабличнаяЧасть --> Товары <Порядок>650 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>11 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>8 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>9 <Наименование>Количество --> КоличествоУпаковокФакт <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковокФакт" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>Количество --> КоличествоФакт <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоФакт" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>10 <Наименование>КоличествоУчет --> КоличествоУпаковок <Порядок>250 <Источник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>КоличествоУчет --> Количество <Порядок>300 <Источник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Значения/> <Группа> <Код>КомплектацияТМЦ <Наименование>КомплектацияТМЦ <Порядок>100 <Правило> <Код>КомплектацияТМЦ_СборкаТоваров <Наименование>Документ: Комплектация ТМЦ <Порядок>50 <ПослеЗагрузки>Если НЕ(Константы.ИспользоватьСборкуРазборку.Получить()) Тогда Константы.ИспользоватьСборкуРазборку.Установить(Истина); КонецЕсли; Объект.ДатаРаспоряжения = КонецДня(Объект.ДатаРаспоряжения); // Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.СборкаТоваров.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий.Шапка); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий.ТЧ); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, Документы.СборкаТоваров.ПараметрыУказанияСерий(Объект).Шапка); Параметры.ЗагруженаСборкаРазборка = Истина; Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.КомплектацияТМЦ <Приемник>ДокументСсылка.СборкаТоваров <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Склад --> Склад <Порядок>350 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>11 <Наименование>Комплект --> Номенклатура <Порядок>400 <Источник Имя="Комплект" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>8 <Наименование>ЕдиницаКомп --> Упаковка <Порядок>450 <Источник Имя="ЕдиницаКомп" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <Свойство> <Код>10 <Наименование>КоличествоКомп --> КоличествоУпаковок <Порядок>500 <Источник Имя="КоличествоКомп" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>КоличествоКомп --> Количество <Порядок>550 <Источник Имя="КоличествоКомп" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*Источник.КоэффициентКомп; <Свойство> <Код>19 <Наименование> --> Подразделение <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>7 <Наименование>Автор --> Ответственный <Порядок>700 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>20 <Наименование> --> Статус <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыСборокТоваров"/> <ПередВыгрузкой>Значение = "СобраноРазобрано"; <Свойство> <НеЗамещать>true <Код>27 <Наименование>--> СборкаПодДеятельность <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СборкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <ПередВыгрузкой>Значение = "ПродажаОблагаетсяНДС"; <Свойство> <Код>17 <Наименование>ДатаДок --> ДатаРаспоряжения <Порядок>850 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаРаспоряжения" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>28 <Наименование>ПартияКомп --> НоменклатураОсновногоКомпонента <Порядок>950 <Источник Имя="ПартияКомп" Вид="Реквизит" Тип="СправочникСсылка.Партии"/> <Приемник Имя="НоменклатураОсновногоКомпонента" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПриВыгрузке>Если Источник.КодОперации = Перечисление.КодыОпераций.Разукомплектация Тогда Возврат 1; Иначе НомерГТД = Значение.ГТД; Если ПустаяСтрока(НомерГТД) = 0 Тогда Значение = ""; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = " |Номенклатура = Документ.КомплектацияТМЦ.Номенклатура; |ГТДПартии = Документ.КомплектацияТМЦ.Партия.ГТД; |ТекущийДокумент = Документ.КомплектацияТМЦ.ТекущийДокумент; |Группировка Номенклатура Без Групп; |Условие(ГТДПартии = НомерГТД); |Условие(ТекущийДокумент = Источник); |"; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат 1; КонецЕсли; Пока Запрос.Группировка(1) = 1 Цикл Значение = Запрос.Номенклатура; Прервать; КонецЦикла; Если Значение = "" Тогда Возврат 1; КонецЕсли; Иначе Возврат 1; КонецЕсли; КонецЕсли; <Группа> <Код>13 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1000 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>16 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>14 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>22 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>15 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>СуммовойКоэфф --> ДоляСтоимости <Порядок>250 <Источник Имя="СуммовойКоэфф" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ДоляСтоимости" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Если (Значение = 0) И (Источник.КодОперации = Перечисление.КодыОпераций.Разукомплектация) Тогда Значение = 1; КонецЕсли; <Свойство> <Код>26 <Наименование> --> КодСтроки <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="КодСтроки" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.НомерСтроки; <Значения/> <Правило> <Код>КомплектацияТМЦ_ПеремещениеТоваров <Наименование>Документ: Комплектация ТМЦ <Порядок>250 <ПослеЗагрузки>Если НЕ(Константы.ИспользоватьСборкуРазборку.Получить()) Тогда Константы.ИспользоватьСборкуРазборку.Установить(Истина); КонецЕсли; Объект.ДатаРаспоряжения = КонецДня(Объект.ДатаРаспоряжения); // Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ПеремещениеТоваров.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, Документы.ПеремещениеТоваров.ПараметрыУказанияСерий(Объект)); Параметры.ЗагруженыПеремещения = Истина; Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.КомплектацияТМЦ <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Ч = 0; М = 0; С = 0; Источник.ПолучитьВремя(Ч,М,С); ВремяЧислом = 3600*Ч+60*М+С+1; Если ВремяЧислом <= 3600*23+60*59+59 Тогда Ч=Цел(ВремяЧислом/3600); ВремяЧислом=ВремяЧислом-Ч*3600; М=Цел(ВремяЧислом/60); С=ВремяЧислом-М*60; ВремяДокСтр = Лев(Строка(Ч) + "00", 2) + ":" + Лев(Строка(М) + "00", 2) + ":" + Лев(Строка(С) + "00", 2); Значение = ПолучитьДатуV8(Источник.ДатаДок, ВремяДокСтр); КонецЕсли; <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "К", 11, "Справа"); КонецЕсли; <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>19 <Наименование> --> ХозяйственнаяОперация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПеремещениеТоваров"; <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>8 <Наименование>Склад --> СкладОтправитель <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>2 <Наименование>СкладПолучатель --> СкладПолучатель <Порядок>450 <Источник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>9 <Наименование> --> ВидЦены <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <Свойство> <Код>16 <Наименование> --> Подразделение <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>17 <Наименование> --> Статус <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыПеремещенийТоваров"/> <ПередВыгрузкой>Значение = "Принято"; <Свойство> <Код>7 <Наименование>Автор --> Ответственный <Порядок>650 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>18 <Наименование>ДатаДок --> ДатаРаспоряжения <Порядок>700 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаРаспоряжения" Вид="Реквизит" Тип="Дата"/> <Группа> <Код>11 <Наименование> --> Товары <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Номенклатура"); КоллекцияОбъектов.НоваяКолонка("Упаковка"); КоллекцияОбъектов.НоваяКолонка("КоличествоУпаковок"); КоллекцияОбъектов.НоваяКолонка("Количество"); Если Источник.КодОперации = Перечисление.КодыОпераций.Сборка Тогда КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Комплект; КоллекцияОбъектов.Упаковка = Источник.ЕдиницаКомп; КоллекцияОбъектов.КоличествоУпаковок = Источник.КоличествоКомп; КоллекцияОбъектов.Количество = Источник.КоличествоКомп*Источник.КоэффициентКомп; Иначе Источник.ВыбратьСтроки(); Пока Источник.ПолучитьСтроку() = 1 Цикл КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Номенклатура = Источник.Номенклатура; КоллекцияОбъектов.Упаковка = Источник.Единица; КоллекцияОбъектов.КоличествоУпаковок = Источник.Количество; КоллекцияОбъектов.Количество = Источник.Количество*Источник.Коэффициент; КонецЦикла; КонецЕсли; <Свойство> <Код>15 <Наименование>--> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>14 <Наименование> --> Упаковка <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>13 <Наименование> --> Количество <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>СписаниеТМЦ_СписаниеТоваров <Наименование>Документ: Списание ТМЦ <Порядок>150 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СписаниеТМЦ <Приемник>ДокументСсылка.СписаниеНедостачТоваров <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Склад --> Склад <Порядок>350 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>Автор --> Ответственный <Порядок>400 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>12 <Наименование> --> Подразделение <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>13 <Наименование>ЮрЛицо --> АналитикаРасходов <Порядок>500 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="АналитикаРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>15 <Наименование>--> СтатьяРасходов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьяРасходов_СписаниеНедостач <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>16 <Наименование>--> ИсточникИнформацииОЦенахДляПечати <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ИсточникИнформацииОЦенахДляПечати" Вид="Реквизит" Тип="ПеречислениеСсылка.ИсточникиИнформацииОЦенахДляПечати"/> <ПередВыгрузкой>Значение = "ПоСебестоимости"; <Группа> <Код>9 <Наименование>ТабличнаяЧасть --> Товары <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>11 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>10 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Значения/> <Правило> <Код>ОприходованиеТМЦ_ОприходованиеТоваров <Наименование>Документ: Оприходование ТМЦ <Порядок>200 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ОприходованиеТМЦ <Приемник>ДокументСсылка.ОприходованиеИзлишковТоваров <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>2 <Наименование>Склад --> Склад <Порядок>350 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>Автор --> Ответственный <Порядок>400 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>8 <Наименование>ТипЦен --> ВидЦены <Порядок>450 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <Свойство> <Код>16 <Наименование> --> Подразделение <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>17 <Наименование>ЮрЛицо --> АналитикаДоходов <Порядок>550 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="АналитикаДоходов" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>19 <Наименование>--> СтатьяДоходов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходов" Вид="Реквизит" Тип="ПланВидовХарактеристикСсылка.СтатьиДоходов"/> <КодПравилаКонвертации>СтатьяДоходов_ОприходованиеИзлишков <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>20 <Наименование>Валюта --> Валюта <Порядок>650 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Группа> <Код>10 <Наименование>ТабличнаяЧасть --> Товары <Порядок>700 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>11 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>15 <Наименование>Цена --> Цена <Порядок>150 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>Партия --> НомерГТД <Порядок>250 <Источник Имя="Партия" Вид="Реквизит" Тип="СправочникСсылка.Партии"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>Партии_НомераГТД <Значения/> <Правило> <Код>ПеремещениеТМЦ_ПеремещениеТоваров <Наименование>Документ: Перемещение ТМЦ <Порядок>250 <ПослеЗагрузки>Объект.ДатаРаспоряжения = КонецДня(Объект.ДатаРаспоряжения); // Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ПеремещениеТоваров.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Параметры.ЗагруженыПеремещения = Истина; Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПеремещениеТМЦ <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>20 <Наименование> --> ХозяйственнаяОперация <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "ПеремещениеТоваров"; <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>8 <Наименование>Склад --> СкладОтправитель <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>2 <Наименование>СкладПолучатель --> СкладПолучатель <Порядок>450 <Источник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>9 <Наименование>ТипЦен --> ВидЦены <Порядок>500 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <Свойство> <Код>15 <Наименование> --> Подразделение <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>16 <Наименование> --> Статус <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыПеремещенийТоваров"/> <ПередВыгрузкой>Значение = "Принято"; <Свойство> <Код>7 <Наименование>Автор --> Ответственный <Порядок>650 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>18 <Наименование>ДатаДок --> ДатаРаспоряжения <Порядок>700 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаРаспоряжения" Вид="Реквизит" Тип="Дата"/> <Группа> <Код>11 <Наименование>ТабличнаяЧасть --> Товары <Порядок>800 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>14 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ТипНоменклатуры", "Товар"); <Свойство> <Код>12 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>17 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>13 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Значения/> <Группа> <Код>ПрочиеДокументы <Наименование>Прочие документы <Порядок>350 <Правило> <Код>Доверенность_ДоверенностьНаПолучениеТоваров <Наименование>Документ: Доверенность <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.Доверенность <Приемник>ДокументСсылка.ДоверенностьВыданная <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>250 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>10 <Наименование>ДоверенноеЛицо --> ФизЛицо <Порядок>300 <Источник Имя="ДоверенноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизЛица"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>17 <Наименование>Контрагент --> Партнер <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>3 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>1 <Наименование>БанковскийСчет --> БанковскийСчет <Порядок>450 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>4 <Наименование>ПоДокументу --> ПоДокументу <Порядок>500 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ДатаДействия --> ДатаОкончанияДействия <Порядок>550 <Источник Имя="ДатаДействия" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаОкончанияДействия" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>8 <Наименование>Автор --> Ответственный <Порядок>600 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>19 <Наименование>--> Статус <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыДоверенностей"/> <ПередВыгрузкой>Значение = "Использована"; <Свойство> <Код>18 <Наименование>--> СрокДействия <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="СрокДействия" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ПустоеЗначение(Источник.ДатаДействия) = 0 Тогда Значение = Макс(0, Источник.ДатаДействия - Источник.ДатаДок); Иначе Значение = 0; КонецЕсли; <Свойство> <Код>20 <Наименование>ДокОснование --> ДокументОснование <Порядок>750 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>ЗаказПоставщику <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Если (Параметры.Сценарий_ПереносОстатков = 1) И (Значение.ДатаДок < Параметры.ДатаНачалаСценария) Тогда Значение = 0; КонецЕсли; КонецЕсли; <Группа> <Код>21 <Наименование>ТабличнаяЧасть --> Товары <Порядок>850 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>23 <Наименование>Количество --> КоличествоУпаковок <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>--> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>НоменклатураПоНаименованию <ПередВыгрузкой>СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура"); СпрНоменклатура.ВыбратьЭлементы(); Значение = 0; Пока СпрНоменклатура.ПолучитьЭлемент() = 1 Цикл Если СокрЛП(СпрНоменклатура.ПолнНаименование + " " + СпрНоменклатура.Артикул) = СокрЛП(ОбъектКоллекции.НаименованиеТМЦ) Тогда Значение = СпрНоменклатура.ТекущийЭлемент(); Прервать; КонецЕсли; КонецЦикла; Если Значение = 0 Тогда СпрНоменклатура.ВыбратьЭлементы(); Пока СпрНоменклатура.ПолучитьЭлемент() = 1 Цикл Если СокрЛП(СпрНоменклатура.ПолнНаименование) = СокрЛП(ОбъектКоллекции.НаименованиеТМЦ) Тогда Значение = СпрНоменклатура.ТекущийЭлемент(); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; Если Значение = 0 Тогда Отказ = 1; КонецЕсли; <Свойство> <Код>25 <Наименование>--> ТипДоверенности <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="ТипДоверенности" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыВыданныхДоверенностей"/> <ПередВыгрузкой>Значение = "НаПолучениеТоваров"; <Значения/> <Правило> <Код>КорректировкаДолга_СписаниеЗадолженности <Наименование>Документ: Корректировка долга <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.КорректировкаДолга <Приемник>ДокументСсылка.СписаниеЗадолженности <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>7 <Наименование>--> ХозяйственнаяОперация <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПриВыгрузке>Если Источник.СуммаВзаиморасчетов > 0 Тогда Значение = "СписаниеКредиторскойЗадолженности"; Иначе Значение = "СписаниеДебиторскойЗадолженности"; КонецЕсли; <Свойство> <Код>8 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>9 <Наименование> --> Подразделение <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>16 <Наименование>ЮрЛицо --> АналитикаДоходов <Порядок>500 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="АналитикаДоходов" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <ПриВыгрузке>Если Источник.СуммаВзаиморасчетов < 0 Тогда Значение = 0; КонецЕсли; <Свойство> <Код>17 <Наименование>ЮрЛицо --> АналитикаРасходов <Порядок>550 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="АналитикаРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <ПриВыгрузке>Если Источник.СуммаВзаиморасчетов > 0 Тогда Значение = 0; КонецЕсли; <Свойство> <Код>18 <Наименование>--> СтатьяДоходов <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходов" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьяДоходов_СписаниеКредиторскойЗадолженности <ПередВыгрузкой>Если Источник.СуммаВзаиморасчетов < 0 Тогда Пусто = 1; Иначе Значение = "1"; КонецЕсли; <Свойство> <Код>19 <Наименование>--> СтатьяРасходов <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяРасходов" Вид="Реквизит"/> <КодПравилаКонвертации>СтатьяРасходов_СписаниеДебиторскойЗадолженности <ПередВыгрузкой>Если Источник.СуммаВзаиморасчетов > 0 Тогда Пусто = 1; Иначе Значение = 1; КонецЕсли; <Группа> <Код>10 <Наименование> --> Задолженность <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="Задолженность" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>14 <Наименование> --> ТипРасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипРасчетов" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыРасчетовСПартнерами"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Покупатель Тогда Значение = "РасчетыСКлиентом"; Иначе Значение = "РасчетыСПоставщиком"; КонецЕсли; <Свойство> <Код>11 <Наименование> --> ВалютаВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.Договор; Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>12 <Наименование> --> Партнер <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Источник.Контрагент); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>13 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.Сумма * ?(Источник.Сумма < 0, -1, 1); <Свойство> <Код>15 <Наименование> --> Заказ <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Заказ" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПередВыгрузкой>Значение = Источник.Договор; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); СписокХозяйственныхОпераций = СоздатьОбъект("СписокЗначений"); Если Источник.ВидОперации = Перечисление.ВидыОперацийКоррДолга.Поставщик Тогда СписокХозяйственныхОпераций.ДобавитьЗначение("ЗакупкаУПоставщика"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПриемНаКомиссию"); Иначе СписокХозяйственныхОпераций.ДобавитьЗначение("РеализацияКлиенту"); СписокХозяйственныхОпераций.ДобавитьЗначение("ПередачаНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("СписокХозяйственныхОпераций", СписокХозяйственныхОпераций); ВыгрузитьДоговорВДоговор(); <Значения/> <Группа> <Код>Розница <Наименование>Розница <Порядок>400 <Группа> <Код>ПоступлениеТМЦРозница <Наименование>Поступление ТМЦ розница <Порядок>50 <Правило> <Код>ПоступлениеТМЦРозница_ПоступлениеТоваровУслуг <Наименование>Документ: Поступление ТМЦ (розница) <Порядок>50 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ПриобретениеТоваровУслуг.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПоступлениеТМЦРозница <Приемник>ДокументСсылка.ПриобретениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "Р", 11, "Справа"); КонецЕсли; <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>24 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>15 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>27 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>31 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>11 <Наименование>Договор --> Соглашение <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСПоставщиком <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.ЗакупкаРозница Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); КонецЕсли; ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); Если (Параметры.ИспользоватьСоглашенияСПоставщиками = 0) И (ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "ПриемНаКомиссию") тогда Отказ = 1; КонецЕсли; <Свойство> <Код>39 <Наименование>Договор --> Договор <Порядок>650 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); Если Источник.КодОперации = Перечисление.КодыОпераций.ЗакупкаРозница Тогда ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); Иначе ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); КонецЕсли; ВыгрузитьДоговорВДоговор(); <Свойство> <Код>30 <Наименование>--> ХозяйственнаяОперация <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.ЗакупкаРозница Тогда Значение = "ЗакупкаУПоставщика"; Иначе Значение = "ПриемНаКомиссию"; КонецЕсли; <Свойство> <Код>26 <Наименование>--> НалогообложениеНДС <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>41 <Наименование>--> ЗакупкаПодДеятельность <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>14 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>850 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>29 <Наименование>--> СуммаДокумента <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>4 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>950 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Автор --> Менеджер <Порядок>1000 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>28 <Наименование>--> Подразделение <Порядок>1050 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>9 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1100 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1150 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>40 <Наименование>--> Согласован <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>16 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1300 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>19 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>17 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>18 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>23 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>22 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>35 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>33 <Наименование>Партия --> НомерГТД <Порядок>500 <Источник Имя="Партия" Вид="Реквизит" Тип="СправочникСсылка.Партии"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>Партии_НомераГТД <Свойство> <Код>34 <Наименование>--> Склад <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник.Склад; <Значения/> <Правило> <Код>ПоступлениеТМЦРозница_ПоступлениеТоваровУслуг_ВО <Наименование>Документ: Поступление ТМЦ (розница) <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("ЗакупкаПодДеятельность", ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); <Источник>ДокументСсылка.ПоступлениеТМЦРозница <Приемник>ДокументСсылка.ПриобретениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "Р", 11, "Справа"); КонецЕсли; <Свойство> <Код>8 <Наименование>--> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>--> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>28 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>15 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>31 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>35 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>34 <Наименование>--> ХозяйственнаяОперация <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Если Источник.КодОперации = Перечисление.КодыОпераций.ЗакупкаРозница Тогда Значение = "ЗакупкаУПоставщика"; Иначе Значение = "ПриемНаКомиссию"; КонецЕсли; <Свойство> <Код>14 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>33 <Наименование>--> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>4 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>850 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>ДатаДокВходящий --> ДатаВходящегоДокумента <Порядок>1050 <Источник Имя="ДатаДокВходящий" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование>НомерДокВходящий --> НомерВходящегоДокумента <Порядок>1100 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>36 <Наименование>--> ЗакупкаПодДеятельность <Порядок>1200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ЗакупкаПодДеятельность" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Значения/> <Группа> <Код>РеализацияРозница <Наименование>Реализация розница <Порядок>100 <Правило> <Код>РеализацияРозница_ОтчетОРозничныхПродажах <Наименование>Документ: Реализация (розница) <Порядок>50 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.ОблагаетсяЕНВД = 1 Тогда ВходящиеДанные.ДобавитьЗначение("ПродажаОблагаетсяЕНВД", "НалогообложениеНДС"); Иначе ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); КонецЕсли; <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ОтчетОРозничныхПродажах.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.РеализацияРозница <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <Свойства> <Свойство Поиск="true"> <Код>5 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "Р", 11, "Справа"); КонецЕсли; <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>26 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Склад --> Склад <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>42 <Наименование>Склад --> КассаККМ <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="КассаККМ" Вид="Реквизит" Тип="СправочникСсылка.КассыККМ"/> <КодПравилаКонвертации>Склады_КассыККМ <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Источник.Валюта); ИсходящиеДанные.Установить("КонтрагентДляВзаиморасчетов", Источник.Контрагент); <Свойство> <Код>25 <Наименование>--> НалогообложениеНДС <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>31 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>550 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>38 <Наименование> --> СуммаДокумента <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>27 <Наименование> --> Подразделение <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>41 <Наименование>ТипЦен --> ВидЦены <Порядок>700 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = Источник.Склад; ИмяПКО = "ВидРозничнойЦеныДляСклада"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВалютаЦены", Источник.Валюта); КонецЕсли; <Свойство> <Код>43 <Наименование>Автор --> Ответственный <Порядок>850 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Группа> <Код>10 <Наименование>ТабличнаяЧасть --> Товары <Порядок>900 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>11 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>12 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>39 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>17 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>16 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>РеализацияРозница_РеализацияТоваровУслуг <Наименование>Документ: Реализация (розница) в реализацию товаров и услуг <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.ОблагаетсяЕНВД = 1 Тогда Налогообложение = "ПродажаОблагаетсяЕНВД"; Иначе Налогообложение = ?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"); КонецЕсли; ВходящиеДанные.Установить("НалогообложениеНДС", Налогообложение); <ПослеЗагрузки>Объект.ДатаРаспоряжения = КонецДня(Объект.ДатаРаспоряжения); // Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.РеализацияТоваровУслуг.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.РеализацияРозница <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "Р", 11, "Справа"); КонецЕсли; <Свойство> <Код>9 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>13 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>3 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>33 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>11 <Наименование>Договор --> Соглашение <Порядок>600 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКлиентомИндивидуальное <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ИсходящиеДанные.Установить("НалогообложениеНДС", ВходящиеДанные.Получить("НалогообложениеНДС")); ИсходящиеДанные.Установить("ЦенаВключаетНДС", Источник.СуммаВклНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВСоглашение(); Если Параметры.ИспользоватьСоглашенияСКлиентами = 0 тогда ИмяПКО = "Договор_СоглашениеСКлиентомПоУмолчанию"; КонецЕсли; <Свойство> <Код>36 <Наименование>Договор --> Договор <Порядок>650 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Источник.ЮрЛицо); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ИсходящиеДанные.Установить("ПорядокОплаты", ?(Значение.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях")); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>19 <Наименование> --> ХозяйственнаяОперация <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "РеализацияКлиенту"; <Свойство> <Код>16 <Наименование>--> НалогообложениеНДС <Порядок>750 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>20 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>800 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>18 <Наименование> --> СуммаДокумента <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>15 <Наименование>Автор --> Менеджер <Порядок>900 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Менеджер" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>ПользовательПереносДанныхИзТиС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>17 <Наименование> --> Подразделение <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>1000 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование>--> Статус <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыРеализацийТоваровУслуг"/> <ПередВыгрузкой>Значение = "Отгружено"; <Свойство> <Код>14 <Наименование>ДатаДок --> ДатаРаспоряжения <Порядок>1150 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаРаспоряжения" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>35 <Наименование> --> СкидкиРассчитаны <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="СкидкиРассчитаны" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>21 <Наименование>ТабличнаяЧасть --> Товары <Порядок>1250 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>24 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>22 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>23 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>28 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>27 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>32 <Наименование>Сумма --> СуммаСНДС <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение + ?(Источник.СуммаВклНДС = 1, 0, ОбъектКоллекции.СуммаНДС); <Свойство> <Код>29 <Наименование> --> ВидЦены <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПередВыгрузкой>Значение = Источник.ТипЦен; <Свойство> <Код>31 <Наименование> --> Склад <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <ПередВыгрузкой>Значение = Источник.Склад; <Значения/> <Правило> <Код>РеализацияРозница_РеализацияТоваровУслуг_ВО <Наименование>Документ: Реализация (розница) в реализацию товаров и услуг <Порядок>150 <ПослеЗагрузки>Объект.ДатаРаспоряжения = КонецДня(Объект.ДатаРаспоряжения); <Источник>ДокументСсылка.РеализацияРозница <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>6 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "Р", 11, "Справа"); КонецЕсли; <Свойство> <Код>9 <Наименование> --> Проведен <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование> --> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>13 <Наименование>Договор --> ВалютаВзаиморасчетов <Порядок>350 <Источник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.Договоры"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = 0; Иначе Значение = Значение.ВалютаВзаиморасчетов; КонецЕсли; <Свойство> <Код>12 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>3 <Наименование>Контрагент --> Партнер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>33 <Наименование>Контрагент --> Контрагент <Порядок>550 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>19 <Наименование> --> ХозяйственнаяОперация <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ХозяйственнаяОперация" Вид="Реквизит" Тип="ПеречислениеСсылка.ХозяйственныеОперации"/> <ПередВыгрузкой>Значение = "РеализацияКлиенту"; <Свойство> <Код>20 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>750 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>18 <Наименование> --> СуммаДокумента <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Свойство> <Код>5 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>950 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>ДатаДок --> ДатаРаспоряжения <Порядок>1150 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаРаспоряжения" Вид="Реквизит" Тип="Дата"/> <Значения/> <Правило> <Код>ОтчетККМ_ОтчетОРозничныхПродажах <Наименование>Документ: Отчет ККМ <Порядок>150 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Источник.ОблагаетсяЕНВД = 1 Тогда ВходящиеДанные.ДобавитьЗначение("ПродажаОблагаетсяЕНВД", "НалогообложениеНДС"); Иначе ВходящиеДанные.ДобавитьЗначение(?(Источник.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"), "НалогообложениеНДС"); КонецЕсли; <ПослеЗагрузки>// Обновление табличной части "Серии" ПараметрыУказанияСерий = Документы.ОтчетОРозничныхПродажах.ПараметрыУказанияСерий(Объект); НоменклатураСервер.ЗаполнитьСтатусыУказанияСерий(Объект, ПараметрыУказанияСерий); НоменклатураСервер.ОчиститьНеиспользуемыеСерии(Объект, ПараметрыУказанияСерий); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ОтчетККМ <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>13 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>3 <Наименование>Склад --> Склад <Порядок>400 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>10 <Наименование>Касса --> КассаККМ <Порядок>450 <Источник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <Приемник Имя="КассаККМ" Вид="Реквизит" Тип="СправочникСсылка.КассыККМ"/> <КодПравилаКонвертации>Кассы_КассыККМ <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(Источник.ЮрЛицо, "Владелец"); ИсходящиеДанные.ДобавитьЗначение(Источник.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(Источник.Склад, "Склад"); <Свойство> <Код>22 <Наименование>--> НалогообложениеНДС <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>23 <Наименование> --> Подразделение <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Подразделение" Вид="Реквизит" Тип="СправочникСсылка.СтруктураПредприятия"/> <КодПравилаКонвертации>СтруктураПредприятияПереносДанныхИзТиС <ПередВыгрузкой>Значение = "1"; <Свойство> <Код>11 <Наименование>СуммаВклНДС --> ЦенаВключаетНДС <Порядок>600 <Источник Имя="СуммаВклНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>12 <Наименование>ТипЦен --> ВидЦены <Порядок>650 <Источник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦен"/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ТипыЦен_ВидыЦен <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = Источник.Склад; ИмяПКО = "ВидРозничнойЦеныДляСклада"; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВалютаЦены", Источник.Валюта); КонецЕсли; <Свойство> <Код>8 <Наименование>Автор --> Ответственный <Порядок>700 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>24 <Наименование> --> СуммаДокумента <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>// Сумма документа должна включать НДС Значение = Источник.Итог("Сумма") + ?(Источник.СуммаВклНДС = 0, Источник.Итог("СуммаНДС"), 0); <Группа> <Код>14 <Наименование>ТабличнаяЧасть --> Товары <Порядок>800 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>17 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>15 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>16 <Наименование>Количество --> КоличествоУпаковок <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>Количество --> Количество <Порядок>200 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = Значение*ОбъектКоллекции.Коэффициент; <Свойство> <Код>21 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "БезНДС"; КонецЕсли; <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>26 <Наименование>--> Партнер <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПередВыгрузкой>Если ПустоеЗначение(Источник.Контрагент) = 0 Тогда Значение = Источник.Контрагент; Иначе ИмяПКО = ""; Значение = "РозничныйПокупатель"; КонецЕсли; <Свойство Поиск="true"> <Код>27 <Наименование>--> Продавец <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Продавец" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = Источник.Автор; <Значения/> <Правило> <Код>ПереоценкаРозница_УстановкаЦенНоменклатуры <Наименование>Документ: Переоценка (розница) <Порядок>200 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ВходящиеДанные.Установить("СписокНоменклатуры", СоздатьОбъект("СписокЗначений")); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.ПереоценкаРозница <Приемник>ДокументСсылка.УстановкаЦенНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Значение = ДобавитьКПрефиксу(Значение, "П", 11, "Справа"); КонецЕсли; <Свойство> <Код>5 <Наименование>Проведен --> Проведен <Порядок>150 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Автор --> Ответственный <Порядок>250 <Источник Имя="Автор" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = "1"; ИмяПКО = "ПользовательПереносДанныхИзТиС"; КонецЕсли; <Свойство> <Код>7 <Наименование> --> Статус <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Статус" Вид="Реквизит" Тип="ПеречислениеСсылка.СтатусыУстановокЦенНоменклатуры"/> <ПередВыгрузкой>Значение = "Согласован"; <Свойство> <Код>1 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование> --> Согласован <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Согласован" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Группа> <Код>8 <Наименование> --> ВидыЦен <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ВидыЦен" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("ВидЦены"); КоллекцияОбъектов.НоваяСтрока(); <Свойство> <Код>9 <Наименование>--> ВидЦены <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ВидРозничнойЦеныДляСклада <ПередВыгрузкой>Значение = Источник.Склад; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВалютаЦены", Источник.Валюта); <Группа> <Код>10 <Наименование>ТабличнаяЧасть --> Товары <Порядок>500 <Источник Имя="ТабличнаяЧасть" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>СписокНоменклатуры = ВходящиеДанные.Получить("СписокНоменклатуры"); Если СписокНоменклатуры.НайтиЗначение(ОбъектКоллекции.Номенклатура) = 0 Тогда СписокНоменклатуры.ДобавитьЗначение(ОбъектКоллекции.Номенклатура); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>12 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Свойство> <Код>13 <Наименование>Единица --> Упаковка <Порядок>100 <Источник Имя="Единица" Вид="Реквизит" Тип="СправочникСсылка.Единицы"/> <Приемник Имя="Упаковка" Вид="Реквизит" Тип="СправочникСсылка.УпаковкиЕдиницыИзмерения"/> <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <Свойство> <Код>11 <Наименование> --> ВидЦены <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидЦены" Вид="Реквизит" Тип="СправочникСсылка.ВидыЦен"/> <КодПравилаКонвертации>ВидРозничнойЦеныДляСклада <ПередВыгрузкой>Значение = Источник.Склад; <Свойство> <Код>14 <Наименование>ЦенаНовая --> Цена <Порядок>200 <Источник Имя="ЦенаНовая" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> ЦенаИзмененаВручную <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаИзмененаВручную" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Значения/> <Группа> <Код>СчетаФактуры <Наименование>СчетаФактуры <Порядок>450 <Правило> <Код>СчетФактураПолученный_СчетФактураПолученный <Наименование>Документ: Счет-фактура полученный <Порядок>50 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ДокументыОснования = СоздатьОбъект("ТаблицаЗначений"); ДокументыОснования.НоваяКолонка("ДокументОснование"); ДокументыОснования.НоваяСтрока(); ДокументыОснования.ДокументОснование = Источник.ДокОснование; ВходящиеДанные.Установить("ДокументыОснования", ДокументыОснования); <ПослеЗагрузки>Основание = Неопределено; Если Объект.ДокументыОснования.Количество() > 0 Тогда Основание = Объект.ДокументыОснования[0].ДокументОснование; КонецЕсли; Объект.КодВидаОперации = ""; Если ТипЗнч(Основание) = Тип("ДокументСсылка.ВозвратТоваровОтКлиента") Тогда Объект.КодВидаОперации = "03"; КонецЕсли; Если Объект.СоставленКомиссионеромОтИмениПродавца И Объект.Продавцы.Количество() > 1 Тогда Объект.КодВидаОперации = "27"; КонецЕсли; Если Объект.КодВидаОперации = "" Тогда Объект.КодВидаОперации = "01"; КонецЕсли; Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СчетФактураПолученный <Приемник>ДокументСсылка.СчетФактураПолученный <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДокВходящий --> Номер <Порядок>100 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 1 Тогда Значение = Источник.НомерДок; КонецЕсли; <Свойство> <Код>15 <Наименование>ДатаДок --> ДатаСоставления <Порядок>150 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаСоставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>10 <Наименование>Контрагент --> Контрагент <Порядок>200 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <ПередВыгрузкой>Если Источник.ДокОснование.Вид() = "ОтчетКомитенту" тогда Значение = Источник.ДокОснование.Контрагент; КонецЕсли; <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>300 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Проведен --> Проведен <Порядок>400 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>ЮрЛицо --> Организация <Порядок>450 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Группа> <Код>8 <Наименование>--> ДокументыОснования <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <Свойство> <Код>9 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>16 <Наименование>СпособПолучения --> ПолученВЭлектронномВиде <Порядок>700 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПолученВЭлектронномВиде" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.СпособПолучения = 2 Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>17 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>750 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>СчетФактураВыданный_СчетФактураВыданный <Наименование>Документ: Счет-фактура выданный <Порядок>100 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); ДокументыОснования = СоздатьОбъект("ТаблицаЗначений"); ДокументыОснования.НоваяКолонка("ДокументОснование"); ДокументыОснования.НоваяСтрока(); ДокументыОснования.ДокументОснование = Источник.ДокОснование; ВходящиеДанные.Установить("ДокументыОснования", ДокументыОснования); <ПослеЗагрузки>Объект.КодВидаОперации = Объект.КодВидаОперации(); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Объект.ИдентификаторПлатежа = ОбщегоНазначенияУТ.ПолучитьУникальныйИдентификаторПлатежа(Объект); <Источник>ДокументСсылка.СчетФактураВыданный <Приемник>ДокументСсылка.СчетФактураВыданный <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>Валюта --> Валюта <Порядок>150 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ДатаДок --> ДатаВыставления <Порядок>250 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>6 <Наименование>ДокОснование --> ДокументОснование <Порядок>300 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <ПриВыгрузке>Если ПустоеЗначение(Значение) = 0 Тогда Если Значение.Вид() = "РеализацияРозница" Тогда Если Значение.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда ИмяПКО = "РеализацияРозница_ОтчетОРозничныхПродажах"; ИначеЕсли Значение.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.Прочее Тогда ИмяПКО = "РеализацияРозница_РеализацияТоваровУслуг"; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>7 <Наименование>ЮрЛицо --> Организация <Порядок>350 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>11 <Наименование>Проведен --> Проведен <Порядок>550 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>600 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>Контрагент --> Контрагент <Порядок>650 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>НеизвестныйКонтрагент <Свойство> <Код>14 <Наименование>--> КППКонтрагента <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="КППКонтрагента" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>16 <Наименование>--> ДокументыОснования <Порядок>800 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <Свойство> <Код>17 <Наименование>--> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Значения/> <Правило> <Код>СчетФактураПолученный_СчетФактураКомитента <Наименование>Документ: СчетФактураПолученный <Порядок>150 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); СФВыд = ""; СуммаСФВыд = 0; СуммаНДССФВыд = 0; СуммаНПСФВыд = 0; ДокПодч = СоздатьОбъект("Документ"); ДокПодч.ВыбратьПодчиненныеДокументы(,,Источник.ДокОснование); Пока ДокПодч.ПолучитьДокумент()=1 Цикл Если (ДокПодч.Вид() = "СчетФактураВыданный") И (ДокПодч.Проведен() = 1) Тогда СФВыд = ДокПодч.ТекущийДокумент(); СуммаСФВыд = глСуммаСчетаФактуры(СФВыд, СуммаНДССФВыд, СуммаНПСФВыд); Прервать; КонецЕсли; КонецЦикла; Покупатели = СоздатьОбъект("ТаблицаЗначений"); Покупатели.НоваяКолонка("Покупатель"); Покупатели.НоваяКолонка("СчетФактураВыданный"); Покупатели.НоваяКолонка("СуммаНДС"); Покупатели.НоваяКолонка("СуммаСНДС"); Покупатели.НоваяСтрока(); Покупатели.Покупатель = Источник.Контрагент; Покупатели.СчетФактураВыданный = СФВыд; Покупатели.СуммаНДС = СуммаНДССФВыд; Покупатели.СуммаСНДС = СуммаСФВыд; ВходящиеДанные.Установить("Покупатели", Покупатели); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СчетФактураПолученный <Приемник>ДокументСсылка.СчетФактураКомитента <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДокВходящий --> Номер <Порядок>100 <Источник Имя="НомерДокВходящий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если ПустоеЗначение(Значение) = 1 Тогда Значение = Источник.НомерДок; КонецЕсли; <Свойство> <Код>3 <Наименование>ДатаДок --> ДатаСоставления <Порядок>150 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаСоставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>4 <Наименование>--> Комитент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комитент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <ПередВыгрузкой>Значение = Источник.ДокОснование.Контрагент; <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>5 <Наименование>Валюта --> Валюта <Порядок>250 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Проведен --> Проведен <Порядок>350 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>ЮрЛицо --> Организация <Порядок>400 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>9 <Наименование>СпособПолучения --> ПолученВЭлектронномВиде <Порядок>450 <Источник Имя="СпособПолучения" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПолученВЭлектронномВиде" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Если Источник.СпособПолучения = 2 Тогда Значение = 1; Иначе Значение = 0; КонецЕсли; <Свойство> <Код>10 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>500 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>13 <Наименование>--> Покупатели <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Покупатели" Вид="ТабличнаяЧасть"/> <Свойство> <Код>14 <Наименование>--> Покупатель <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Покупатель" Вид="Реквизит"/> <КодПравилаКонвертации>НеизвестныйКонтрагент <Свойство> <Код>15 <Наименование>--> СчетФактураВыданный <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СчетФактураВыданный" Вид="Реквизит"/> <КодПравилаКонвертации>СчетФактураВыданный_СчетФактураВыданный <Свойство> <Код>16 <Наименование>--> СуммаНДС <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>--> СуммаСНДС <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаСНДС" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>СчетФактураВыданный_СчетФактураКомиссионеру <Наименование>Документ: СчетФактураВыданный <Порядок>200 <ПередВыгрузкой>ВходящиеДанные = СоздатьОбъект("СписокЗначений"); Покупатели = СоздатьОбъект("ТаблицаЗначений"); Покупатели.НоваяКолонка("Покупатель"); Покупатели.НоваяСтрока(); Покупатели.Покупатель = Источник.Контрагент; ВходящиеДанные.Установить("Покупатели", Покупатели); <ПослеЗагрузки>Объект.КодВидаОперации = Объект.КодВидаОперации(); Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <Источник>ДокументСсылка.СчетФактураВыданный <Приемник>ДокументСсылка.СчетФактураКомиссионеру <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>НомерДок --> Номер <Порядок>100 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Валюта --> Валюта <Порядок>150 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ДатаДок --> ДатаВыставления <Порядок>250 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаВыставления" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>6 <Наименование>ЮрЛицо --> Организация <Порядок>300 <Источник Имя="ЮрЛицо" Вид="Реквизит" Тип="СправочникСсылка.СвоиЮрЛица"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство> <Код>7 <Наименование>ДокОснование --> ДокументОснование <Порядок>350 <Источник Имя="ДокОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>400 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>9 <Наименование>КодВидаОперации --> КодВидаОперации <Порядок>450 <Источник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>Контрагент --> Комиссионер <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Комиссионер" Вид="Реквизит"/> <КодПравилаКонвертации>НеизвестныйКонтрагент <Группа> <Код>12 <Наименование>--> Покупатели <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Покупатели" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование>--> Покупатель <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Покупатель" Вид="Реквизит"/> <КодПравилаКонвертации>НеизвестныйКонтрагент <Значения/> <Правило> <Код>ЗаписьКнигиПродаж <Наименование>Документ: Запись книги продаж <Порядок>500 <Источник>ДокументСсылка.ЗаписьКнигиПродаж <Приемник>ДокументСсылка.ЗаписьКнигиПродаж <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>ДатаДок --> Дата <Порядок>50 <Источник Имя="ДатаДок" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>ЗаписьДополнительногоЛиста --> ЗаписьДополнительногоЛиста <Порядок>100 <Источник Имя="ЗаписьДополнительногоЛиста" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ЗаписьДополнительногоЛиста" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Контрагент --> Контрагент <Порядок>200 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>НеизвестныйКонтрагент <Свойство> <Код>5 <Наименование>КорректируемыйПериод --> КорректируемыйПериод <Порядок>250 <Источник Имя="КорректируемыйПериод" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="КорректируемыйПериод" Вид="Реквизит" Тип="Дата"/> <Свойство Поиск="true"> <Код>6 <Наименование>НомерДок --> Номер <Порядок>300 <Источник Имя="НомерДок" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Число"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Проведен --> Проведен <Порядок>400 <Источник Имя="Проведен" Вид="Свойство" Тип="Число"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Значения/> <Группа> <Код>ПВХ <Наименование>Планы видов характеристик <Порядок>250 <Группа> <Код>СтатьиДоходов <Наименование>СтатьиДоходов <Порядок>400 <Правило> <Код>СтатьяДоходов_ОприходованиеИзлишков <Наименование>Статья расходов (допрасходы на поступление) <Порядок>50 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "СправочникСсылка.Организации"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиДоходов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> Наименование <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Оприходование излишков товаров"; <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>СтатьяДоходов_СписаниеКредиторскойЗадолженности <Наименование>Статья расходов (допрасходы на поступление) <Порядок>100 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "СправочникСсылка.Организации"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиДоходов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Наименование <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Списание кредиторской задолженности"; <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>2 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Правило> <Код>СтатьяДоходов_РеализацияУслуг <Наименование>Статья расходов (допрасходы на поступление) <Порядок>150 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "СправочникСсылка.Организации"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиДоходов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>--> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Услуги сторонним организациям" + ?(ПустоеЗначение(Источник) = 0, " (" + Источник + ")", ""); <ПриВыгрузке>Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если ВходящиеДанные.Получить("АналитикаРасходов") = "Склад" Тогда Значение = Значение + " (по складу)"; КонецЕсли; КонецЕсли; <Свойство Поиск="true" Обязательное="true"> <Код>2 <Наименование>--> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>3 <Наименование>--> ПометкаУдаления <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Значения/> <Группа> <Код>СтатьиРасходов <Наименование>СтатьиРасходов <Порядок>450 <Группа> <Код>НаНаправлениеДеятельности <Наименование>НаНаправлениеДеятельности <Порядок>50 <Правило> <Код>СтатьяРасходов_ПоступлениеУслуг <Наименование>Статья расходов (допрасходы на поступление) <Порядок>150 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "СправочникСсылка.Организации"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиРасходов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Услуги сторонних организаций" + ?(ПустоеЗначение(Источник) = 0, " (" + Источник + ")", ""); <ПриВыгрузке>Если ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений" Тогда Если ВходящиеДанные.Получить("АналитикаРасходов") = "Склад" Тогда Значение = Значение + " (по складу)"; КонецЕсли; КонецЕсли; <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование>--> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>1 <Наименование>--> ВариантРаспределенияРасходовРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовРегл" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>6 <Наименование>--> ВариантРаспределенияРасходовУпр <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовУпр" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>2 <Наименование>--> ПравилоРаспределенияНаСебестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилоРаспределенияНаСебестоимость" Вид="Реквизит" Тип="ПеречислениеСсылка.ПравилаРаспределенияНаСебестоимостьТоваров"/> <ПередВыгрузкой>Значение = "ПропорциональноКоличеству"; <Свойство> <Код>4 <Наименование>--> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> ТипРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ТипРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыРасходов"/> <ПередВыгрузкой>Значение = "ПродажаТоваров"; <Свойство> <Код>8 <Наименование>--> ВидДеятельностиРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиРасходов"/> <ПередВыгрузкой>Значение = "ОсновнаяДеятельность"; <Значения/> <Правило> <Код>СтатьяРасходов_СписаниеНедостач <Наименование>Статья расходов (допрасходы на поступление) <Порядок>250 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "СправочникСсылка.Организации"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиРасходов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> Наименование <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Списание недостач товаров"; <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>1 <Наименование>--> ВариантРаспределенияРасходовРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовРегл" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>6 <Наименование>--> ВариантРаспределенияРасходовУпр <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовУпр" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>2 <Наименование> --> ПравилоРаспределенияНаСебестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилоРаспределенияНаСебестоимость" Вид="Реквизит" Тип="ПеречислениеСсылка.ПравилаРаспределенияНаСебестоимостьТоваров"/> <ПередВыгрузкой>Значение = "ПропорциональноКоличеству"; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> ТипРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ТипРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыРасходов"/> <ПередВыгрузкой>Значение = "ПродажаТоваров"; <Свойство> <Код>8 <Наименование>--> ВидДеятельностиРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиРасходов"/> <ПередВыгрузкой>Значение = "ОсновнаяДеятельность"; <Значения/> <Правило> <Код>СтатьяРасходов_НалоговыеПлатежи <Наименование>Статья расходов (допрасходы на поступление) <Порядок>300 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "СправочникСсылка.Организации"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиРасходов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> Наименование <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Налоговые платежи"; <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>1 <Наименование>--> ВариантРаспределенияРасходовРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовРегл" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>6 <Наименование>--> ВариантРаспределенияРасходовУпр <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовУпр" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>2 <Наименование> --> ПравилоРаспределенияНаСебестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилоРаспределенияНаСебестоимость" Вид="Реквизит" Тип="ПеречислениеСсылка.ПравилаРаспределенияНаСебестоимостьТоваров"/> <ПередВыгрузкой>Значение = "ПропорциональноКоличеству"; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> ТипРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ТипРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыРасходов"/> <ПередВыгрузкой>Значение = "ПродажаТоваров"; <Свойство> <Код>8 <Наименование>--> ВидДеятельностиРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиРасходов"/> <ПередВыгрузкой>Значение = "ОсновнаяДеятельность"; <Значения/> <Правило> <Код>СтатьяРасходов_СписаниеДебиторскойЗадолженности <Наименование>Статья расходов (допрасходы на поступление) <Порядок>350 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "СправочникСсылка.Организации"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиРасходов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> Наименование <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "Списание дебиторской задолженности"; <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>1 <Наименование>--> ВариантРаспределенияРасходовРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовРегл" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>6 <Наименование>--> ВариантРаспределенияРасходовУпр <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовУпр" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаНаправленияДеятельности"; <Свойство> <Код>2 <Наименование> --> ПравилоРаспределенияНаСебестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилоРаспределенияНаСебестоимость" Вид="Реквизит" Тип="ПеречислениеСсылка.ПравилаРаспределенияНаСебестоимостьТоваров"/> <ПередВыгрузкой>Значение = "ПропорциональноКоличеству"; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> ТипРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ТипРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыРасходов"/> <ПередВыгрузкой>Значение = "ПродажаТоваров"; <Свойство> <Код>8 <Наименование>--> ВидДеятельностиРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиРасходов"/> <ПередВыгрузкой>Значение = "ОсновнаяДеятельность"; <Значения/> <Группа> <Код>НаСебестоимость <Наименование>НаСебестоимость <Порядок>100 <Правило> <Код>СтатьяРасходов_ДопРасходыНаПоступление <Наименование>Статья расходов (допрасходы на поступление) <Порядок>200 <ПередВыгрузкой>КлючВыгружаемыхДанных = ВходящиеДанные.Получить("Наименование") + ВходящиеДанные.Получить("АналитикаРасходов"); <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", ?(ВходящиеДанные.Получить("АналитикаРасходов") = "Склад", "СправочникСсылка.Склады", "ДокументСсылка.ПриобретениеТоваровУслуг")); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиРасходов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>--> Наименование <Порядок>50 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПриВыгрузке>Если ВходящиеДанные.Получить("АналитикаРасходов") = "Склад" Тогда Значение = Значение + " (по складу)"; КонецЕсли; <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование> --> ЭтоГруппа <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>1 <Наименование>--> ВариантРаспределенияРасходовРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовРегл" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаСебестоимостьТоваров"; <Свойство> <Код>6 <Наименование>--> ВариантРаспределенияРасходовУпр <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовУпр" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаСебестоимостьТоваров"; <Свойство> <Код>2 <Наименование> --> ПравилоРаспределенияНаСебестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилоРаспределенияНаСебестоимость" Вид="Реквизит" Тип="ПеречислениеСсылка.ПравилаРаспределенияНаСебестоимостьТоваров"/> <ПередВыгрузкой>Значение = "ПропорциональноСебестоимости"; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> ТипРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ТипРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыРасходов"/> <ПередВыгрузкой>Значение = "ПродажаТоваров"; <Свойство> <Код>8 <Наименование>--> ВидДеятельностиРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиРасходов"/> <ПередВыгрузкой>Значение = "ОсновнаяДеятельность"; <Значения/> <Правило> <Код>СтатьяРасходов_ТаможенныеСборы <Наименование>Статья расходов (таможенная пошлина в рублях) <Порядок>400 <ПриВыгрузке>УзелТипов = СоздатьУзел("Типы"); ЗаписатьЭлемент(УзелТипов, "Тип", "ДокументСсылка.ПоступлениеТоваровУслуг"); ДобавитьПодчиненный(Приемник, УзелТипов); <ПослеЗагрузки>Выполнить(Алгоритмы.УстановитьЗначениеРеквизитаУпорядочивания); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.СтатьиРасходов <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> Наименование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос данных из ТиС (таможенные сборы)"; <Свойство> <Код>1 <Наименование>--> ВариантРаспределенияРасходовРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовРегл" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаСебестоимостьТоваров"; <Свойство> <Код>5 <Наименование>--> ВариантРаспределенияРасходовУпр <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВариантРаспределенияРасходовУпр" Вид="Реквизит" Тип="ПеречислениеСсылка.ВариантыРаспределенияРасходов"/> <ПередВыгрузкой>Значение = "НаСебестоимостьТоваров"; <Свойство> <Код>2 <Наименование> --> ПравилоРаспределенияНаСебестоимость <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПравилоРаспределенияНаСебестоимость" Вид="Реквизит" Тип="ПеречислениеСсылка.ПравилаРаспределенияНаСебестоимостьТоваров"/> <ПередВыгрузкой>Значение = "ПропорциональноСебестоимости"; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>6 <Наименование>--> ТипРасходов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ТипРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыРасходов"/> <ПередВыгрузкой>Значение = "ПродажаТоваров"; <Свойство> <Код>7 <Наименование>--> ВидДеятельностиРасходов <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидДеятельностиРасходов" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДеятельностиРасходов"/> <ПередВыгрузкой>Значение = "ОсновнаяДеятельность"; <Значения/> <Группа> <Код>ВводНачальныхОстатков <Наименование>ВводНачальныхОстатков <Порядок>300 <Группа> <Код>ТМЦ <Наименование>ТМЦ <Порядок>50 <Правило> <Код>ВводОстатков_ОстаткиТоваровНаСкладах <Наименование>Ввод остатков (остатки собственных товаров на складах) <Порядок>50 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); Склад = ВходящиеДанные.Получить("Склад"); КлючВыгружаемыхДанных = "" + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ?(ПустоеЗначение(Склад) = 0, Склад.Код, ""); Если Параметры.ИспользоватьОстаткиПоПартиям = 1 тогда Партнер = ВходящиеДанные.Получить("Партнер"); Договор = ВходящиеДанные.Получить("Договор"); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(Партнер) = 0, Партнер.Код, "") + ?(ПустоеЗначение(Договор) = 0, Договор.Код, ""); ДатаСчетаФактуры = СокрЛП(ВходящиеДанные.Получить("ДатаСчетаФактуры")); НомерСчетаФактуры = СокрЛП(ВходящиеДанные.Получить("НомерСчетаФактуры")); КлючВыгружаемыхДанных = КлючВыгружаемыхДанных + ?(ПустоеЗначение(ДатаСчетаФактуры) = 0, ДатаСчетаФактуры, "") + ?(ПустоеЗначение(НомерСчетаФактуры) = 0, НомерСчетаФактуры, ""); КонецЕсли; <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Выполнить(Алгоритмы.ЗаполнитьКонтрагента); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиСобственныхТоваров"; <Свойство Поиск="true"> <Код>7 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>23 <Наименование>--> Партнер <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <Свойство Поиск="true"> <Код>24 <Наименование>--> Договор <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Договор" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>Если ПустоеЗначение(ВходящиеДанные.Получить("Договор")) = 1 Тогда Отказ = 1; Иначе ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение("Организация",ВходящиеДанные.Получить("Организация")); ИсходящиеДанные.ДобавитьЗначение("ХозяйственнаяОперация","ЗакупкаУПоставщика"); ИсходящиеДанные.ДобавитьЗначение("Договор",Значение); ВыгрузитьДоговорВДоговор(); КонецЕсли; <Свойство Поиск="true"> <Код>28 <Наименование>--> Валюта <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>5 <Наименование>--> Склад <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство Поиск="true"> <Код>14 <Наименование>--> Комментарий <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; Если ПустаяСтрока(СокрЛП(ВходящиеДанные.Получить("НомерСчетаФактуры"))) = 0 Тогда Значение = Значение + ", партия " + ВходящиеДанные.Получить("НомерСчетаФактуры") + " от " + ВходящиеДанные.Получить("ДатаСчетаФактуры"); КонецЕсли; <Свойство> <Код>2 <Наименование>--> Дата <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>30 <Наименование>--> ОтражатьВОперативномУчете <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>4 <Наименование>--> Проведен <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>3 <Наименование>--> ПометкаУдаления <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>15 <Наименование>--> Ответственный <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>6 <Наименование>--> Товары <Порядок>650 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>9 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>8 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование> --> СуммаБезНДС <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаБезНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> СуммаНДС <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование> --> СтавкаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>21 <Наименование> --> СуммаРегл <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование> --> НДСРегл <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НДСРегл" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> НомерГТД <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТДИзВходящихДанных <ПриВыгрузке>ИсходящиеДанные = Значение; <Значения/> <Правило> <Код>ВводОстатков_ОстаткиТоваровПринятыеНаКомиссию <Наименование>Ввод остатков (остатки товаров, принятых на комиссию) <Порядок>100 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); Склад = ВходящиеДанные.Получить("Склад"); Партнер = ВходящиеДанные.Получить("Партнер"); Соглашение = ВходящиеДанные.Получить("СоглашениеСКомитентом"); КлючВыгружаемыхДанных = "" + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ?(ПустоеЗначение(Склад) = 0, Склад.Код, "") + ?(ПустоеЗначение(Партнер) = 0, Партнер.Код, "") + ?(ПустоеЗначение(Соглашение) = 0, Соглашение.Код, ""); <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Выполнить(Алгоритмы.ЗаполнитьКонтрагента); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиТоваровПолученныхНаКомиссию"; <Свойство Поиск="true"> <Код>12 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>5 <Наименование>--> Склад <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство Поиск="true"> <Код>13 <Наименование> --> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство Поиск="true"> <Код>17 <Наименование>--> Валюта <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>18 <Наименование>--> НалогообложениеНДС <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство Поиск="true"> <Код>15 <Наименование>--> Партнер <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство Поиск="true"> <Код>16 <Наименование>--> СоглашениеСКомитентом <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СоглашениеСКомитентом" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСПоставщиками"/> <КодПравилаКонвертации>Договор_СоглашениеСКомитентом <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("Организация"), "Организация"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("НалогообложениеНДС"), "НалогообложениеНДС"); ИсходящиеДанные.ДобавитьЗначение("ПриемНаКомиссию", "ХозяйственнаяОперация"); ВыгрузитьДоговорВСоглашение(); <Свойство> <Код>2 <Наименование>--> Дата <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>21 <Наименование>--> ОтражатьВОперативномУчете <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>4 <Наименование>--> Проведен <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>3 <Наименование>--> ПометкаУдаления <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>14 <Наименование>--> Ответственный <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>6 <Наименование>--> Товары <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>8 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>7 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование> --> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> НомерГТД <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТДИзВходящихДанных <ПриВыгрузке>ИсходящиеДанные = Значение; <Свойство> <Код>20 <Наименование>--> СтавкаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Значения/> <Правило> <Код>ВводОстатков_ОстаткиТоваровПереданныхНаКомиссию <Наименование>Ввод остатков (остатки товаров, переданных на комиссию) <Порядок>150 <ПередВыгрузкой>Организация = ВходящиеДанные.Получить("Организация"); Склад = ВходящиеДанные.Получить("Склад"); Партнер = ВходящиеДанные.Получить("Партнер"); Соглашение = ВходящиеДанные.Получить("СоглашениеСКомитентом"); НалогообложениеНДС = ВходящиеДанные.Получить("НалогообложениеНДС"); КлючВыгружаемыхДанных = "" + ?(ПустоеЗначение(Организация) = 0, Организация.Код, "") + ?(ПустоеЗначение(Склад) = 0, Склад.Код, "") + ?(ПустоеЗначение(Партнер) = 0, Партнер.Код, "") + ?(ПустоеЗначение(Соглашение) = 0, Соглашение.Код, "") + НалогообложениеНДС; Если ПустоеЗначение(ВходящиеДанные.Получить("Валюта")) = 1 Тогда Отказ = 1; КонецЕсли; <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); Выполнить(Алгоритмы.ЗаполнитьКонтрагента); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиТоваровПереданныхНаКомиссию"; <Свойство Поиск="true"> <Код>10 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>5 <Наименование>--> Склад <Порядок>150 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство Поиск="true"> <Код>11 <Наименование>--> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство Поиск="true"> <Код>13 <Наименование>--> Партнер <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство Поиск="true"> <Код>24 <Наименование>--> Валюта <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство Поиск="true"> <Код>14 <Наименование>--> СоглашениеСКомиссионером <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="СоглашениеСКомиссионером" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСКлиентами"/> <КодПравилаКонвертации>Договор_СоглашениеСКомиссионеромИндивидульное <ПриВыгрузке>Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("Организация"), "Организация"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("НалогообложениеНДС"), "НалогообложениеНДС"); ИсходящиеДанные.ДобавитьЗначение("ПередачаНаКомиссию", "ХозяйственнаяОперация"); ВыгрузитьДоговорВСоглашение(); Иначе Отказ = 1; КонецЕсли; <Свойство> <Код>22 <Наименование>--> НалогообложениеНДС <Порядок>400 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="НалогообложениеНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыНалогообложенияНДС"/> <Свойство> <Код>2 <Наименование>--> Дата <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>25 <Наименование>--> ОтражатьВОперативномУчете <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>4 <Наименование>--> Проведен <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>3 <Наименование>--> ПометкаУдаления <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>12 <Наименование>--> Ответственный <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>6 <Наименование>--> Товары <Порядок>700 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>8 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>7 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>--> КоличествоУпаковок <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоУпаковок" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>--> Цена <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>--> Сумма <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>--> НомерГТД <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТДИзВходящихДанных <ПриВыгрузке>ИсходящиеДанные = Значение; <Свойство> <Код>17 <Наименование>--> НДСРегл <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НДСРегл" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>--> СтавкаНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Свойство> <Код>19 <Наименование>--> СуммаБезНДС <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаБезНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>--> СуммаНДС <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>--> СуммаРегл <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Группа> <Код>ДенежныеСредства <Наименование>ДенежныеСредства <Порядок>100 <Правило> <Код>ВводОстатков_ДСВКассах <Наименование>Ввод остатков (остатки ДС в удаленных розничных точках) <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиВКассах"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>12 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>3 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> Кассы <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Кассы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>10 <Наименование> --> Касса <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Касса" Вид="Реквизит" Тип="СправочникСсылка.Кассы"/> <КодПравилаКонвертации>Кассы <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ОбъектКоллекции.Организация, "Владелец"); ИсходящиеДанные.ДобавитьЗначение(ОбъектКоллекции.Валюта, "ВалютаДенежныхСредств"); <Свойство> <Код>9 <Наименование> --> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> СуммаРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводОстатков_ДСВБанке <Наименование>Ввод остатков (остатки ДС в банке) <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиНаБанковскихСчетах"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>12 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>3 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> БанковскиеСчета <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="БанковскиеСчета" Вид="ТабличнаяЧасть"/> <Свойство> <Код>9 <Наименование> --> БанковскийСчет <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчетаОрганизаций"/> <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <Свойство> <Код>10 <Наименование> --> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> СуммаРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводОстатков_ВыручкаВРозничныхТочках <Наименование>Ввод остатков (остатки ДС в кассах) <Порядок>150 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиВАвтономныхКассахККМПоРозничнойВыручке"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>12 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>3 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> КассыККМ <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КассыККМ" Вид="ТабличнаяЧасть"/> <Свойство> <Код>9 <Наименование>--> КассаККМ <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="КассаККМ" Вид="Реквизит" Тип="СправочникСсылка.КассыККМ"/> <КодПравилаКонвертации>Склады_КассыККМ <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("Организация"), "Владелец"); ИсходящиеДанные.ДобавитьЗначение(ОбъектКоллекции.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(ОбъектКоллекции.КонтрагентДляВзаиморасчетов, "КонтрагентДляВзаиморасчетов"); <Свойство> <Код>10 <Наименование> --> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> СуммаРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводОстатков_ВыручкаВРозничныхТочкахКОформлению <Наименование>: <Порядок>200 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиВАвтономныхКассахККМКОформлениюОтчетовОРозничныхПродажах"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>12 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>3 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> КассыККМ <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="КассыККМ" Вид="ТабличнаяЧасть"/> <Свойство> <Код>10 <Наименование> --> КассаККМ <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="КассаККМ" Вид="Реквизит" Тип="СправочникСсылка.КассыККМ"/> <КодПравилаКонвертации>Склады_КассыККМ <ПередВыгрузкой>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ВходящиеДанные.Получить("Организация"), "Владелец"); ИсходящиеДанные.ДобавитьЗначение(ОбъектКоллекции.Валюта, "ВалютаДенежныхСредств"); ИсходящиеДанные.ДобавитьЗначение(ОбъектКоллекции.КонтрагентДляВзаиморасчетов, "КонтрагентДляВзаиморасчетов"); <Свойство> <Код>9 <Наименование> --> Сумма <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> СуммаРегл <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Группа> <Код>ВзаиморасчетыСПодотчетниками <Наименование>Взаиморасчеты с подотчетниками <Порядок>150 <Правило> <Код>ВводОстатков_ЗадолженностьПодотчетников <Наименование>Ввод остатков (задолженность подотчетника) <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>4 <Наименование>--> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиЗадолженностиПодотчетников"; <Свойство Поиск="true"> <Код>1 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <Свойство Поиск="true"> <Код>16 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>--> Префикс <Порядок>250 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Префикс" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>--> ОтражатьВОперативномУчете <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>8 <Наименование>--> Проведен <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> ПометкаУдаления <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>2 <Наименование>--> Ответственный <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>9 <Наименование>--> РасчетыСПодотчетниками <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПодотчетниками" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование> --> ПодотчетноеЛицо <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ПодотчетноеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>10 <Наименование> --> Валюта <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>15 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>--> СуммаРегл <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Группа> <Код>ВзаиморасчетыСКлиентами <Наименование>ВзаиморасчетыСКлиентами <Порядок>200 <Правило> <Код>ВводОстатков_ЗадолженностьКлиентовПоДоговорам <Наименование>: <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиЗадолженностиКлиентов"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Задолженность клиентов"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>21 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>9 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>16 <Наименование>--> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>13 <Наименование> --> ВалютаВзаиморасчетов <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование> --> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> ДатаПлатежа <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>17 <Наименование> --> ДатаРасчетногоДокумента <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>18 <Наименование> --> НомерРасчетногоДокумента <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>19 <Наименование>--> ОбъектРасчетов <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъектРасчетов" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", ВходящиеДанные.Получить("Организация")); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>20 <Наименование>--> СуммаРегл <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводОстатков_ЗадолженностьКомиссионеровПоДоговорам <Наименование>: <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиЗадолженностиКлиентов"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Задолженность Комиссионеров"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>21 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>9 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>13 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>10 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>17 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ДатаПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>18 <Наименование> --> ДатаРасчетногоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>19 <Наименование> --> НомерРасчетногоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>16 <Наименование>--> ОбъектРасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъектРасчетов" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", ВходящиеДанные.Получить("Организация")); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПередачаНаКомиссию"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>20 <Наименование>--> СуммаРегл <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводОстатков_АвансыКлиентовПоДоговорамПродажи <Наименование>: <Порядок>150 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиПоАвансамКлиентов"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Авансы по договорам продажи"; <Свойство> <Код>4 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>17 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>11 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>10 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>9 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>12 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> СуммаРегл <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> ДатаРасчетногоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование> --> НомерРасчетногоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>16 <Наименование>--> ОбъектРасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъектРасчетов" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", ВходящиеДанные.Получить("Организация")); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "РеализацияКлиенту"); ВыгрузитьДоговорВДоговор(); <Значения/> <Правило> <Код>ВводОстатков_АвансыКлиентовПрочее <Наименование>: <Порядок>200 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиПоАвансамКлиентов"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Авансы прочие"; <Свойство> <Код>4 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>14 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>12 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>11 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> СуммаРегл <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Группа> <Код>ВзаиморасчетыСПоставщиками <Наименование>ВзаиморасчетыСПоставщиками <Порядок>250 <Правило> <Код>ВводОстатков_ЗадолженностьПоставщикамПоДоговорам <Наименование>: <Порядок>50 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиЗадолженностиПередПоставщиками"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Задолженность поставщикам"; <Свойство> <Код>4 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>18 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>14 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>12 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>9 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>16 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> ДатаПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>11 <Наименование> --> ДатаРасчетногоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование> --> НомерРасчетногоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>15 <Наименование>--> ОбъектРасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъектРасчетов" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", ВходящиеДанные.Получить("Организация")); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>17 <Наименование>--> СуммаРегл <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводОстатков_ЗадолженностьПередКомитентамиПоДогово <Наименование>: <Порядок>100 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиЗадолженностиПередПоставщиками"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Задолженность Комитентам"; <Свойство> <Код>5 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>19 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>7 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>8 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>9 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>13 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>10 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>17 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> ДатаПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаПлатежа" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>12 <Наименование> --> ДатаРасчетногоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>14 <Наименование> --> НомерРасчетногоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>16 <Наименование>--> ОбъектРасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъектРасчетов" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", ВходящиеДанные.Получить("Организация")); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ПриемНаКомиссию"); ВыгрузитьДоговорВДоговор(); <Свойство> <Код>18 <Наименование>--> СуммаРегл <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВводОстатков_АвансыПоставщикамПоДоговорамПокупки <Наименование>: <Порядок>150 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиПоАвансамПоставщикам"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Авансы постащикам"; <Свойство> <Код>4 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>17 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>11 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>12 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>ЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>13 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование> --> СуммаРегл <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование> --> ДатаРасчетногоДокумента <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ДатаРасчетногоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование> --> НомерРасчетногоДокумента <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="НомерРасчетногоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>16 <Наименование>--> ОбъектРасчетов <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОбъектРасчетов" Вид="Реквизит"/> <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <ПриВыгрузке>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", ВходящиеДанные.Получить("Организация")); ИсходящиеДанные.Установить("ХозяйственнаяОперация", "ЗакупкаУПоставщика"); ВыгрузитьДоговорВДоговор(); <Значения/> <Правило> <Код>ВводОстатков_АвансыПоставщикамПрочее <Наименование>: <Порядок>200 <ПослеЗагрузки>Выполнить(Алгоритмы.ЗапомнитьДокументДляПроведения); <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ДокументСсылка.ВводОстатков <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование> --> ТипОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ТипОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОперацийВводаОстатков"/> <ПередВыгрузкой>Значение = "ОстаткиПоАвансамПоставщикам"; <Свойство Поиск="true"> <Код>2 <Наименование>--> Организация <Порядок>100 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>СвоиЮрЛица_Организации <Свойство Поиск="true"> <Код>1 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "#Перенос остатков из ТиС - Авансы прочие"; <Свойство> <Код>4 <Наименование>--> Дата <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>17 <Наименование>--> ОтражатьВОперативномУчете <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВОперативномУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>5 <Наименование>--> Проведен <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>6 <Наименование>--> ПометкаУдаления <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = 0; <Свойство> <Код>7 <Наименование>--> Ответственный <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <ПередВыгрузкой>Значение = глПользователь; <Группа> <Код>8 <Наименование>--> РасчетыСПартнерами <Порядок>450 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="РасчетыСПартнерами" Вид="ТабличнаяЧасть"/> <Свойство> <Код>16 <Наименование> --> Партнер <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Партнер" Вид="Реквизит" Тип="СправочникСсылка.Партнеры"/> <КодПравилаКонвертации>Контрагенты_Партнеры <ПриВыгрузке>ВходящиеДанные = ?(ТипЗначенияСтр(ВходящиеДанные) = "СписокЗначений", ВходящиеДанные, СоздатьОбъект("СписокЗначений")); ВходящиеДанные.Установить("Контрагент", Значение); ВыгрузитьКонтрагентаВПартнера(); Значение = ВходящиеДанные.Получить("Партнер"); <Свойство> <Код>11 <Наименование> --> Контрагент <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>СвоиЮрЛица_Контрагенты <ПриВыгрузке>ВыгрузитьКонтрагентаВКонтрагента(); <Свойство> <Код>12 <Наименование> --> ВалютаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>9 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование> --> СуммаРегл <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаРегл" Вид="Реквизит" Тип="Число"/> <Значения/> <ПравилаВыгрузкиДанных> <Правило Отключить="false"> <Код>КонстантыНабор <Наименование>Настройки параметров учета <Порядок>1 <КодПравилаКонвертации>КонстантыНабор <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>КонстантыНабор <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Группа Отключить="false"> <Код>Справочники <Наименование>Справочники <Порядок>100 <Группа Отключить="false"> <Код>БазовыеКлассификаторы <Наименование>Базовые классификаторы <Порядок>50 <Правило Отключить="false"> <Код>Банки <Наименование>Банки <Порядок>50 <КодПравилаКонвертации>Банки <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Банки <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ОКЕИ <Наименование>Единицы измерения <Порядок>100 <КодПравилаКонвертации>ЕдиницыИзмерения <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ОКЕИ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ОКСМ <Наименование>Страны мира <Порядок>150 <КодПравилаКонвертации>СтраныМира <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ОКСМ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>Валюты <Наименование>Валюты <Порядок>200 <КодПравилаКонвертации>Валюты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Валюты <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>КурсыВалют <Наименование>Курсы валют <Порядок>250 <КодПравилаКонвертации>КурсыВалют <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Валюты <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>ТабДат = СоздатьОбъект("ТаблицаЗначений"); ТабДат.НоваяКолонка("Дата"); // Самая ранняя дата - днем раньше даты начала выгрузки чтобы на момент ввода остатков были все курсы ТабДат.НоваяСтрока(); ТабДат.Дата = Параметры.ДатаНачалаСценария - 1; КурсПериодический = СоздатьОбъект("Периодический"); КурсПериодический.ИспользоватьОбъект("Курс", Объект); КурсПериодический.ВыбратьЗначения(Параметры.ДатаНачалаСценария, Параметры.ДатаОкончанияСценария); Пока КурсПериодический.ПолучитьЗначение() = 1 Цикл ТабДат.НоваяСтрока(); ТабДат.Дата = КурсПериодический.ДатаЗнач; КонецЦикла; КратностьПериодический = СоздатьОбъект("Периодический"); КратностьПериодический.ИспользоватьОбъект("Курс", Объект); КратностьПериодический.ВыбратьЗначения(); Пока КратностьПериодический.ПолучитьЗначение() = 1 Цикл ТабДат.НоваяСтрока(); ТабДат.Дата = КратностьПериодический.ДатаЗнач; КонецЦикла; ТабДат.Свернуть("Дата",""); Если (Параметры.ЭтапПереноса = 1) И (Параметры.Сценарий_ПереносДокументов = 1) Тогда ТабДат.ВыбратьСтроки(); Пока ТабДат.ПолучитьСтроку() = 1 Цикл Запись = СоздатьОбъект("СписокЗначений"); Запись.Установить("Валюта", Объект); Запись.Установить("Курс", Объект.Курс.Получить(ТабДат.Дата)); Запись.Установить("Кратность", Объект.Кратность.Получить(ТабДат.Дата)); Запись.Установить("Период", ТабДат.Дата); ВыгрузитьПоПравилу(,, Запись,, "КурсыВалют"); КонецЦикла; Иначе ТабДат.Сортировать("-Дата"); ТабДат.ВыбратьСтроки(); Пока ТабДат.ПолучитьСтроку() = 1 Цикл Запись = СоздатьОбъект("СписокЗначений"); Запись.Установить("Валюта", Объект); Запись.Установить("Курс", Объект.Курс.Получить(ТабДат.Дата)); Запись.Установить("Кратность", Объект.Кратность.Получить(ТабДат.Дата)); Запись.Установить("Период", ТабДат.Дата); ВыгрузитьПоПравилу(,, Запись,, "КурсыВалют"); Прервать; КонецЦикла КонецЕсли; Возврат 1; <Группа Отключить="false"> <Код>СтруктураПредприятия <Наименование>Структура предприятия <Порядок>100 <Правило Отключить="false"> <Код>СвоиЮрЛицаВОрганизации <Наименование>Собственные юридические лица <Порядок>50 <КодПравилаКонвертации>СвоиЮрЛица_Организации <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СвоиЮрЛица <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>Склады <Наименование>Склады <Порядок>100 <КодПравилаКонвертации>Склады <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Склады <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ЭтоГруппа() = 1 Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>БанковскиеСчетаОрганизаций <Наименование>Банковские счета организаций <Порядок>150 <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаОрганизаций <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.БанковскиеСчета <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ЮрФизЛицо.Вид() <> "СвоиЮрЛица" Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>КассыВКассыОбычные <Наименование>Кассы <Порядок>200 <КодПравилаКонвертации>Кассы <СпособОтбораДанных>ПроизвольныйАлгоритм <ОбъектВыборки>СправочникСсылка.Кассы <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; // Выгрузка первой очереди: выгружаем все сочетания, использованные в остатках ДатаНач = 0; Если Параметры.ЭтапПереноса = 2 Тогда ДатаНач = Параметры.ДатаНачалаСценария; ИначеЕсли ПустоеЗначение(Параметры.ЭтапПереноса) = 1 Тогда // Использование расширенного режима Если ПустоеЗначение(ДатаНачала) = 0 Тогда ДатаНач = ДатаНачала; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ДатаНач) = 1 Тогда ДатаНач = ТекущаяДата(); КонецЕсли; ДатаНач = ДатаНач - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиДСВКассах) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Касса.Фирма.ЮрЛицо; |Касса = Регистр.Касса.Касса; |Валюта = Регистр.Касса.Валюта; |СуммаВал = Регистр.Касса.СуммаВал; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Группировка Касса без групп все; |Группировка Организация; |Группировка Валюта; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); СписокВыгрузкиВторойОчереди = СоздатьОбъект("СписокЗначений"); Пока Запрос.Группировка(1) = 1 Цикл Выгружена = 0; Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда Выгружена = 1; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Запрос.Организация); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Запрос.Валюта); ВыгрузитьПоПравилу(Запрос.Касса,, ИсходящиеДанные,, "Кассы"); КонецЕсли; КонецЦикла; КонецЦикла; Если Выгружена = 0 Тогда СписокВыгрузкиВторойОчереди.ДобавитьЗначение(Запрос.Касса); КонецЕсли; КонецЦикла; // Выгрузка второй очереди: определяем реквизиты методом анализа данных Если СписокВыгрузкиВторойОчереди.РазмерСписка() > 0 Тогда Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(КассыВКассы) |Без итогов; |Период с (Дата('01.01.0001')); |Касса = Регистр.Касса.Касса; |Организация = Регистр.Касса.Фирма.ЮрЛицо; |Валюта = Регистр.Касса.Валюта; |СуммаУпр = Регистр.Касса.СуммаУпр; |Функция СуммаУпрПриход = Приход(СуммаУпр); |Функция СуммаУпрРасход = Расход(СуммаУпр); |Группировка Касса без групп все; |Группировка Организация; |Группировка Валюта; |Условие (Касса В СписокВыгрузкиВторойОчереди); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Результат = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(Результат, 0, 0); Результат.НоваяКолонка("Оборот"); Результат.ВыбратьСтроки(); Пока Результат.ПолучитьСтроку() = 1 Цикл Результат.Оборот = Результат.СуммаУпрПриход + Результат.СуммаУпрРасход; КонецЦикла; Результат.Сортировать("*Касса,-Оборот"); ТекущаяКасса = 0; Результат.ВыбратьСтроки(); Пока Результат.ПолучитьСтроку() = 1 Цикл Если Результат.Касса <> ТекущаяКасса Тогда ТекущаяКасса = Результат.Касса; ОпределенаВалюта = 1; ОпределенаОрганизация = 1; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если Результат.Оборот <> 0 Тогда ИсходящиеДанные.Установить("Владелец", Результат.Организация); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Результат.Валюта); Иначе ФирмаПользователя = глЗначениеПоУмолчанию("ОсновнаяФирма"); Если ПустоеЗначение(ФирмаПользователя) = 0 Тогда ИсходящиеДанные.Установить("Владелец", ФирмаПользователя.ЮрЛицо); Иначе ОпределенаОрганизация = 0; КонецЕсли; ВалютаПользователя = глЗначениеПоУмолчанию("ОсновнаяВалютаВзаиморасчетов"); Если ПустоеЗначение(ВалютаПользователя) = 0 Тогда ИсходящиеДанные.Установить("ВалютаДенежныхСредств", ВалютаПользователя); Иначе ОпределенаВалюта = 0; КонецЕсли; КонецЕсли; Если (ОпределенаВалюта = 1) И (ОпределенаОрганизация = 1) Тогда ВыгрузитьПоПравилу(Результат.Касса,, ИсходящиеДанные,, "Кассы"); Иначе Если ОпределенаВалюта = 1 Тогда ОкончаниеСообщения = "организацию"; ИначеЕсли ОпределенаОрганизация = 1 Тогда ОкончаниеСообщения = "валюту хранения денежных средств"; Иначе ОкончаниеСообщения = "организацию и валюту хранения денежных средств"; КонецЕсли; Сообщить("Касса """ + Результат.Касса + """ не будет перенесена в УТ: не удалось определить " + ОкончаниеСообщения + ".", "."); КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Возврат 1; <Правило Отключить="false"> <Код>КассыВКассыККМ <Наименование>Кассы в кассы ККМ <Порядок>250 <КодПравилаКонвертации>Кассы_КассыККМ <СпособОтбораДанных>ПроизвольныйАлгоритм <ОбъектВыборки>СправочникСсылка.Кассы <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; // Выгрузка первой очереди: выгружаем все сочетания, использованные в остатках ДатаНач = 0; Если Параметры.ЭтапПереноса = 2 Тогда ДатаНач = Параметры.ДатаНачалаСценария; ИначеЕсли ПустоеЗначение(Параметры.ЭтапПереноса) = 1 Тогда // Использование расширенного режима Если ПустоеЗначение(ДатаНачала) = 0 Тогда ДатаНач = ДатаНачала; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ДатаНач) = 1 Тогда ДатаНач = ТекущаяДата(); КонецЕсли; ДатаНач = ДатаНач - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОборотыПоКассамККМ) |Период с (Дата('01.01.01')); |Без итогов; |Касса = Регистр.Касса.Касса; |Организация = Регистр.Касса.Фирма.ЮрЛицо; |Валюта = Регистр.Касса.Валюта; |СуммаУпр = Регистр.Касса.СуммаУпр; |ТекущийДокумент = Регистр.Касса.ТекущийДокумент; |Склад = Регистр.Касса.ТекущийДокумент.ОтчетККМ.Склад; |РежимККМ = Регистр.Касса.Касса.РежимККМ; |Функция Оборот = Приход(СуммаУпр); |Группировка Касса без групп; |Группировка Организация; |Группировка Валюта; |Группировка Склад; |Условие(ТекущийДокумент.Вид() = ""ОтчетККМ""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ОборотыПоКассам = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ОборотыПоКассам, 0, 0); ОборотыПоКассам.Сортировать("*Касса,-Оборот"); СписокВсехЭлементов = СоздатьОбъект("СписокЗначений"); Пока Запрос.Группировка() = 1 Цикл Если СписокВсехЭлементов.Принадлежит(Запрос.Касса) = 0 Тогда СписокВсехЭлементов.ДобавитьЗначение(Запрос.Касса); КонецЕсли; КонецЦикла; // Добавляем к выгрузке все оставшиеся кассы ККМ ТекстЗапроса = "//{{ЗАПРОС(ВсеКассыККМ) |Без итогов; |КассаККМ = Справочник.Кассы.ТекущийЭлемент; |РежимККМ = Справочник.Кассы.РежимККМ; |Группировка КассаККМ без групп; |Условие(ПустоеЗначение(РежимККМ) = 0); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если СписокВсехЭлементов.Принадлежит(Запрос.КассаККМ) = 0 Тогда СписокВсехЭлементов.ДобавитьЗначение(Запрос.КассаККМ); КонецЕсли; КонецЦикла; ТекстЗапроса = "//{{ЗАПРОС(ОстаткиВКассахККМ) |Период с ДатаНач по ДатаНач; |Без итогов; |Касса = Регистр.Касса.Касса; |Организация = Регистр.Касса.Фирма.ЮрЛицо; |Валюта = Регистр.Касса.Валюта; |СуммаВал = Регистр.Касса.СуммаВал; |ТекущийДокумент = Регистр.Касса.ТекущийДокумент; |Склад = Регистр.Касса.ТекущийДокумент.ОтчетККМ.Склад; |Функция КонСумма = КонОст(СуммаВал); |Группировка Касса без групп; |Группировка Организация; |Группировка Валюта; |Группировка Склад; |Условие(ТекущийДокумент.Вид() = ""ОтчетККМ""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); СписокВыгрузкиВторойОчереди = СоздатьОбъект("СписокЗначений"); Пока Запрос.Группировка() = 1 Цикл ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Запрос.Организация); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", Запрос.Валюта); ИсходящиеДанные.Установить("Склад", Запрос.Склад); ВыгрузитьПоПравилу(Запрос.Касса,, ИсходящиеДанные,, "Кассы_КассыККМ"); НомерЗнач = СписокВсехЭлементов.НайтиЗначение(Запрос.Касса); Если НомерЗнач > 0 Тогда СписокВсехЭлементов.УдалитьЗначение(НомерЗнач); КонецЕсли; КонецЦикла; // Выгрузка второй очереди: определяем реквизиты методом анализа данных Для НомерЗначения = 1 По СписокВсехЭлементов.РазмерСписка() Цикл Касса = СписокВсехЭлементов.ПолучитьЗначение(НомерЗначения); Оборот = 0; НайдСтрока = 0; Если ОборотыПоКассам.НайтиЗначение(Касса, НайдСтрока, "Касса") = 1 Тогда Оборот = ОборотыПоКассам.ПолучитьЗначение(НайдСтрока, "Оборот"); КонецЕсли; Если Оборот <> 0 Тогда ОборотыПоКассам.ПолучитьСтрокуПоНомеру(НайдСтрока); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ОборотыПоКассам.Организация); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", ОборотыПоКассам.Валюта); ИсходящиеДанные.Установить("Склад", ОборотыПоКассам.Склад); ВыгрузитьПоПравилу(Касса,, ИсходящиеДанные,, "Кассы_КассыККМ"); ИначеЕсли ПустоеЗначение(Касса.РежимККМ) = 0 Тогда Сообщить("Касса """ + Касса + """ не будет перенесена в УТ как касса ККМ: не удалось найти данные о розничных продажах по кассе.", "."); КонецЕсли; КонецЦикла; Возврат 1; <Правило Отключить="false"> <Код>УдаленныеРозничныеТочкиВКассыККМ <Наименование>Кассы ККМ для удаленных розничных точек <Порядок>300 <КодПравилаКонвертации>Склады_КассыККМ <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; ДатаНач = 0; Если Параметры.ЭтапПереноса = 2 Тогда ДатаНач = Параметры.ДатаНачалаСценария; ИначеЕсли ПустоеЗначение(Параметры.ЭтапПереноса) = 1 Тогда // Использование расширенного режима Если ПустоеЗначение(ДатаНачала) = 0 Тогда ДатаНач = ДатаНачала; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ДатаНач) = 1 Тогда ДатаНач = ТекущаяДата(); КонецЕсли; ДатаНач = ДатаНач - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Если Параметры.ТабКонтрагентыСкладыНТТ = -1 Тогда СформироватьТаблицуКонтрагентовСкладовНТТ(); КонецЕсли; ТабКонтрагентыСкладыНТТ = Параметры.ТабКонтрагентыСкладыНТТ; Если ТабКонтрагентыСкладыНТТ.КоличествоСтрок() > 0 Тогда СписокКонтрагентовСкладовНТТ = СоздатьОбъект("СписокЗначений"); ТабКонтрагентыСкладыНТТ.Выгрузить(СписокКонтрагентовСкладовНТТ,,, "Контрагент"); Иначе Возврат 1; КонецЕсли; СписокВсехЭлементов = СоздатьОбъект("СписокЗначений"); ТабКонтрагентыСкладыНТТ.ВыбратьСтроки(); Пока ТабКонтрагентыСкладыНТТ.ПолучитьСтроку() = 1 Цикл Если СписокВсехЭлементов.НайтиЗначение(ТабКонтрагентыСкладыНТТ.Склад) = 0 Тогда СписокВсехЭлементов.ДобавитьЗначение(ТабКонтрагентыСкладыНТТ.Склад); КонецЕсли; КонецЦикла; ТабВыгруженныхВариантов = СоздатьОбъект("ТаблицаЗначений"); ТабВыгруженныхВариантов.НоваяКолонка("Контрагент"); ТабВыгруженныхВариантов.НоваяКолонка("Организация"); ТабВыгруженныхВариантов.НоваяКолонка("Склад"); ТабВыгруженныхВариантов.НоваяКолонка("Валюта"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ДСВУдаленныхРозничныхТочках) |Без итогов; |Период с ДатаНач по ДатаНач; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |Контрагент = Регистр.Покупатели.Договор.Владелец; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Покупатели.СуммаВал; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Группировка Организация; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(Контрагент в СписокКонтрагентовСкладовНТТ); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл СписокНайденныхСкладовНТТ = СоздатьОбъект("СписокЗначений"); ТабКонтрагентыСкладыНТТ.ВыбратьСтроки(); Пока ТабКонтрагентыСкладыНТТ.ПолучитьСтроку() = 1 Цикл Если ТабКонтрагентыСкладыНТТ.Контрагент = Запрос.Контрагент Тогда СписокНайденныхСкладовНТТ.ДобавитьЗначение(ТабКонтрагентыСкладыНТТ.Склад); КонецЕсли; КонецЦикла; СкладНТТ = 0; Если СписокНайденныхСкладовНТТ.РазмерСписка() = 1 Тогда СкладНТТ = СписокНайденныхСкладовНТТ.ПолучитьЗначение(1); Иначе ДокументРеализации = 0; Если Запрос.РасчетныйДокумент.Вид() = "РеализацияРозница" Тогда ДокументРеализации = Запрос.РасчетныйДокумент; ИначеЕсли (Запрос.РасчетныйДокумент.Вид() = "ВозвратОтПокупателя") ИЛИ (Запрос.РасчетныйДокумент.Вид() = "ПКО") Тогда ДокОснование = Запрос.РасчетныйДокумент.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда Если ДокОснование.Вид() = "РеализацияРозница" Тогда ДокументРеализации = ДокОснование; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ДокументРеализации) = 0 Тогда Если ДокументРеализации.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда СкладНТТ = ДокументРеализации.Склад; КонецЕсли; КонецЕсли; Если ПустоеЗначение(СкладНТТ) = 1 Тогда Продолжить; КонецЕсли; КонецЕсли; ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Контрагент = Запрос.Контрагент; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.Склад = СкладНТТ; ТабВыгруженныхВариантов.Валюта = Запрос.Валюта; КонецЦикла; ТабВыгруженныхВариантов.Свернуть("Контрагент,Организация,Склад,Валюта", ""); ТабВыгруженныхВариантов.ВыбратьСтроки(); Пока ТабВыгруженныхВариантов.ПолучитьСтроку() = 1 Цикл НомерЗнач = СписокВсехЭлементов.НайтиЗначение(ТабВыгруженныхВариантов.Склад); Если НомерЗнач > 0 Тогда СписокВсехЭлементов.УдалитьЗначение(НомерЗнач); КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", ТабВыгруженныхВариантов.Организация); ИсходящиеДанные.Установить("ВалютаДенежныхСредств", ТабВыгруженныхВариантов.Валюта); ИсходящиеДанные.Установить("КонтрагентДляВзаиморасчетов", ТабВыгруженныхВариантов.Контрагент); ВыгрузитьПоПравилу(ТабВыгруженныхВариантов.Склад,, ИсходящиеДанные,, "Склады_КассыККМ"); КонецЦикла; Возврат 1; <Правило Отключить="false"> <Код>ВыгружатьОтветственныхЛиц <Наименование>Ответственные лица организаций <Порядок>350 <КодПравилаКонвертации>ОтветственныеЛицаОрганизаций <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СвоиЮрЛица <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>ВыбДата = ?(Число(Параметры.ДатаНачалаСценария)=0,ТекущаяДата(),Параметры.ДатаНачалаСценария); СписокВыгружаемыхДолжностей = СоздатьОбъект("СписокЗначений"); СписокВыгружаемыхДолжностей.ДобавитьЗначение("Руководитель","Руководитель"); СписокВыгружаемыхДолжностей.ДобавитьЗначение("ГлБухгалтер","ГлавныйБухгалтер"); СписокВыгружаемыхДолжностей.ДобавитьЗначение("Кассир","Кассир"); Для А = 1 по СписокВыгружаемыхДолжностей.РазмерСписка() Цикл ДолжностьПриемника = ""; ДолжностьИсточника = СписокВыгружаемыхДолжностей.ПолучитьЗначение(А, ДолжностьПриемника); ВыбФизЛицо = Объект.ПолучитьАтрибут(ДолжностьИсточника).Получить(ВыбДата); Если ВыбФизЛицо = ПолучитьПустоеЗначение("Справочник.ФизЛица") Тогда Продолжить; КонецЕсли; //Выгрузим историю ПериодРуководства = СоздатьОбъект("Периодический"); ПериодРуководства.ИспользоватьОбъект(ДолжностьИсточника,Объект); ПериодРуководства.ОбратныйПорядок(); ПериодРуководства.ВыбратьЗначения(ВыбДата,ТекущаяДата()); ПредыдущаяДата = ""; Пока ПериодРуководства.ПолучитьЗначение() = 1 Цикл ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Объект); ИсходящиеДанные.Установить("ДатаНачала", ПериодРуководства.ДатаЗнач); Если Число(ПредыдущаяДата) = 0 Тогда ИсходящиеДанные.Установить("ДатаОкончания", ""); ПредыдущаяДата = ПериодРуководства.ДатаЗнач; Иначе ИсходящиеДанные.Установить("ДатаОкончания", ПредыдущаяДата - 1); ПредыдущаяДата = ПериодРуководства.ДатаЗнач; КонецЕсли; ИсходящиеДанные.Установить("ОтветственноеЛицо", ДолжностьПриемника); ИсходящиеДанные.Установить("ФизическоеЛицо", ПериодРуководства.Значение); ИсходящиеДанные.Установить("Наименование", ПериодРуководства.Значение.Наименование); ВыгрузитьПоПравилу( , , ИсходящиеДанные,, "ОтветственныеЛицаОрганизаций"); КонецЦикла; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Объект); ИсходящиеДанные.Установить("ОтветственноеЛицо", ДолжностьПриемника); ИсходящиеДанные.Установить("ФизическоеЛицо", ВыбФизЛицо); ИсходящиеДанные.Установить("Наименование", ВыбФизЛицо.Наименование); ИсходящиеДанные.Установить("ДатаНачала", ВыбДата); Если Число(ПредыдущаяДата) = 0 Тогда ИсходящиеДанные.Установить("ДатаОкончания", ""); ВыгрузитьПоПравилу( , , ИсходящиеДанные,, "ОтветственныеЛицаОрганизаций"); ИначеЕсли (ПредыдущаяДата <> ВыбДата) Тогда ИсходящиеДанные.Установить("ДатаОкончания", ПредыдущаяДата - 1); ВыгрузитьПоПравилу( , , ИсходящиеДанные, , "ОтветственныеЛицаОрганизаций"); КонецЕсли; КонецЦикла; <Группа Отключить="false"> <Код>ГруппаНоменклатура <Наименование>Номенклатура <Порядок>150 <Правило Отключить="false"> <Код>КомплектацииНоменклатуры <Наименование>Состав комплектов <Порядок>1 <КодПравилаКонвертации>ВариантыКомплектацииНоменклатуры <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Комплектации) |Обрабатывать НеПомеченныеНаУдаление; |Владелец = Справочник.Комплектация.Владелец; |Номенклатура = Справочник.Комплектация.Номенклатура; |Количество = Справочник.Комплектация.Количество; |ЦеновойКоэфф = Справочник.Комплектация.ЦеновойКоэфф; |Группировка Владелец без групп; |Группировка Номенклатура без групп; |Группировка ЦеновойКоэфф; |Группировка Количество; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Владелец", Запрос.Владелец); Товары = СоздатьОбъект("ТаблицаЗначений"); Товары.НоваяКолонка("ДоляСтоимости"); Товары.НоваяКолонка("Количество"); Товары.НоваяКолонка("КоличествоУпаковок"); Товары.НоваяКолонка("Номенклатура"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Товары.НоваяСтрока(); Товары.ДоляСтоимости = Запрос.ЦеновойКоэфф; Товары.Количество = Запрос.Количество; Товары.КоличествоУпаковок = Запрос.Количество; Товары.Номенклатура = Запрос.Номенклатура; КонецЦикла; КонецЦикла; КонецЦикла; ИсходящиеДанные.Установить("Товары", Товары); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВариантыКомплектацииНоменклатуры"); КонецЦикла; <Правило Отключить="false"> <Код>НоменклатураВНоменклатуру <Наименование>Номенклатура <Порядок>50 <КодПравилаКонвертации>Номенклатура <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Номенклатура <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ЕдиницыВУпаковки <Наименование>Единицы измерения номенклатуры <Порядок>100 <Описание>Вместо базовых единиц измерения в УТ11 используются соответствующие им единицы измерения из классификатора. <КодПравилаКонвертации>Единицы_УпаковкиНоменклатуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Единицы <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>Единицы_ШтрихкодыНоменклатуры <Наименование>Штрихкоды номенклатуры <Порядок>150 <КодПравилаКонвертации>Единицы_ШтрихкодыНоменклатуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Единицы <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если ПустаяСтрока(Объект.ШтрихКод) = 1 Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>ПартииВНомераГТД <Наименование>Номера ГТД из партий номенклатуры <Порядок>200 <КодПравилаКонвертации>Партии_НомераГТД <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Партии <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>Номенклатура_НомераГТД <Наименование>Номера ГТД из номенклатуры <Порядок>250 <КодПравилаКонвертации>Номенклатура_НомераГТД <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Номенклатура <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если (ПустоеЗначение(Объект.НомерГТД) = 1) ИЛИ (ПустоеЗначение(Объект.СтранаПроисхождения) = 1) Тогда Возврат 1; КонецЕсли; <Группа Отключить="false"> <Код>ГруппаКонтрагентыИФизлица <Наименование>Контрагенты и физические лица <Порядок>200 <Правило Отключить="false"> <Код>ФизЛица <Наименование>Физические лица <Порядок>50 <КодПравилаКонвертации>ФизическиеЛица <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ФизЛица <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>Контрагенты <Наименование>Контрагенты в партнеров <Порядок>100 <КодПравилаКонвертации>Контрагенты_Партнеры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Контрагенты <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ЭтоГруппа() = 1 Тогда Отказ = 1; КонецЕсли; Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда ОсновнойКонтрагентДляЮрлица = 0; СформироватьСоответствиеКонтрагентовИЮрЛиц(); НомерНайденнойСтроки = 0; СоответствиеКонтрагентыЮрЛицо = Параметры.СоответствиеКонтрагентыЮрЛицо; Если СоответствиеКонтрагентыЮрЛицо.НайтиЗначение(Объект.ЮрФизЛицо, НомерНайденнойСтроки, "ЮрФизЛицо") = 1 Тогда ОсновнойКонтрагентДляЮрлица = СоответствиеКонтрагентыЮрЛицо.ПолучитьЗначение(НомерНайденнойСтроки, "Контрагент"); КонецЕсли; Если ОсновнойКонтрагентДляЮрлица <> Объект.ТекущийЭлемент() Тогда Отказ = 1; КонецЕсли; КонецЕсли; <Правило Отключить="false"> <Код>СторонниеЮрЛицаКонтрагентов <Наименование>Сторонние юридические лица - контрагенты <Порядок>150 <КодПравилаКонвертации>ЮрЛица_Контрагенты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ЮрЛица <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ЭтоГруппа() = 1 Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>СвоиЮрЛицаКонтрагентов <Наименование>Собственные юридические лица - контрагенты <Порядок>200 <КодПравилаКонвертации>СвоиЮрЛица_Контрагенты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Контрагенты <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Отказ = 1; Если ПустоеЗначение(Объект.ЮрФизЛицо) = 0 Тогда Если (Объект.ЮрФизЛицо.Вид() = "СвоиЮрЛица") И (Объект.ЭтоГруппа() = 0) Тогда Объект = Объект.ЮрФизЛицо; Отказ = 0; КонецЕсли; КонецЕсли; <Правило Отключить="false"> <Код>ФизЛицаКонтрагентов <Наименование>Физические лица - контрагенты <Порядок>250 <КодПравилаКонвертации>ФизЛица_Контрагенты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Контрагенты <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Отказ = 1; Если ПустоеЗначение(Объект.ЮрФизЛицо) = 0 Тогда Если (Объект.ЮрФизЛицо.Вид() = "ФизЛица") И (Объект.ЭтоГруппа() = 0) Тогда Объект = Объект.ЮрФизЛицо; Отказ = 0; КонецЕсли; КонецЕсли; <Правило Отключить="false"> <Код>ДоговорыВСоглашения <Наименование>Договоры взаиморасчетов в соглашения <Порядок>300 <СпособОтбораДанных>ПроизвольныйАлгоритм <ОбъектВыборки>СправочникСсылка.Договоры <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; // Получим список всех договоров Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ВсеДоговоры) |Без итогов; |ТекущийЭлемент = Справочник.Договоры.ТекущийЭлемент; |Группировка ТекущийЭлемент без групп; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); СписокВсехЭлементов = СоздатьОбъект("СписокЗначений"); Пока Запрос.Группировка() = 1 Цикл СписокВсехЭлементов.ДобавитьЗначение(Запрос.ТекущийЭлемент); КонецЦикла; ТабВыгруженныхВариантов = СоздатьОбъект("ТаблицаЗначений"); ТабВыгруженныхВариантов.НоваяКолонка("Договор"); ТабВыгруженныхВариантов.НоваяКолонка("Организация"); ТабВыгруженныхВариантов.НоваяКолонка("ХозяйственнаяОперация"); ТабВыгруженныхВариантов.НоваяКолонка("НалогообложениеНДС"); // Определяем дату остатков и начинаем запоминать ссылки на договор ДатаНач = 0; Если Параметры.ЭтапПереноса = 2 Тогда ДатаНач = Параметры.ДатаНачалаСценария; ИначеЕсли ПустоеЗначение(Параметры.ЭтапПереноса) = 1 Тогда // Использование расширенного режима Если ПустоеЗначение(ДатаНачала) = 0 Тогда ДатаНач = ДатаНачала; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ДатаНач) = 1 Тогда ДатаНач = ТекущаяДата(); КонецЕсли; ДатаНач = ДатаНач - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); // Анализируем остатки товаров, принятых на комиссию в разрезе договоров комитентов ТекстЗапроса = "//{{ЗАПРОС(ОстаткиТоваровНаКомиссии) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.ПартииНаличие.Фирма.ЮрЛицо; |МОЛ = Регистр.ПартииНаличие.МОЛ; |Номенклатура = Регистр.ПартииНаличие.Номенклатура; |СтатусПартии = Регистр.ПартииНаличие.СтатусПартии; |СтранаПроисхождения = Регистр.ПартииНаличие.Партия.СтранаПроисхождения; |ГТД = Регистр.ПартииНаличие.Партия.ГТД; |РекКоличество = Регистр.ПартииНаличие.Количество; |Партнер = Регистр.ПартииНаличие.Партия.Поставщик; |СоглашениеСКомитентом = Регистр.ПартииНаличие.Партия.ДоговорПоставщика; |ПриходныйДокумент = Регистр.ПартииНаличие.Партия.ПриходныйДокумент; |ЦенаПрод = Регистр.ОстаткиТМЦ.ЦенаПрод; |Функция Количество = КонОст(РекКоличество); |Группировка Номенклатура упорядочить по Номенклатура.Код без групп; |Группировка Организация упорядочить по Организация.Код; |Группировка МОЛ упорядочить по МОЛ.Код без групп; |Группировка ЦенаПрод; |Группировка Партнер без групп; |Группировка СоглашениеСКомитентом без групп; |Группировка ПриходныйДокумент; |Группировка СтранаПроисхождения; |Группировка ГТД; |Условие(СтатусПартии = глСП.Т_Принятый); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если Запрос.Количество > 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.СоглашениеСКомитентом; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "ПриемНаКомиссию"; Попытка УчитыватьНДС = Запрос.ПриходныйДокумент.УчитыватьНДС; Исключение УчитыватьНДС = 0; КонецПопытки; ТабВыгруженныхВариантов.НалогообложениеНДС = ?(УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"); КонецЕсли; КонецЦикла; // Анализируем остатки товаров, переданных на комиссию в разрезе договоров с комиссионерами Если Параметры.ИспользоватьСоглашенияСКлиентами = 1 тогда СписокСтатусов = СоздатьОбъект("СписокЗначений"); СписокСтатусов.ДобавитьЗначение(глСП.Т_Купленный); СписокСтатусов.ДобавитьЗначение(глСП.Т_Тара); СписокСтатусов.ДобавитьЗначение(глСП.М_Запчасть); СписокСтатусов.ДобавитьЗначение(глСП.М_Инвентарь); СписокСтатусов.ДобавитьЗначение(глСП.М_Полуфабрикат); СписокСтатусов.ДобавитьЗначение(глСП.М_Прочее); СписокСтатусов.ДобавитьЗначение(глСП.М_Стройматериал); СписокСтатусов.ДобавитьЗначение(глСП.М_Сырье); СписокСтатусов.ДобавитьЗначение(глСП.М_Тара); СписокСтатусов.ДобавитьЗначение(глСП.М_Топливо); СписокСтатусов.ДобавитьЗначение(глСП.М_Спецматериал); СписокСтатусов.ДобавитьЗначение(глСП.Продукция); СписокСтатусов.ДобавитьЗначение(глСП.Полуфабрикат); СписокСтатусов.ДобавитьЗначение(глСП.Т_ВРознице); СписокСтатусов.ДобавитьЗначение(глСП.Т_Принятый); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиПереданныхТоваров) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.ПартииОтданные.Фирма.ЮрЛицо; |Номенклатура = Регистр.ПартииОтданные.Номенклатура; |СтатусПартии = Регистр.ПартииОтданные.СтатусПартии; |СтранаПроисхождения = Регистр.ПартииОтданные.Партия.СтранаПроисхождения; |ГТД = Регистр.ПартииОтданные.Партия.ГТД; |СуммаУпр = Регистр.ПартииОтданные.СуммаУпр; |Количество = Регистр.ПартииОтданные.Количество; |Партнер = Регистр.ПартииОтданные.Договор.Владелец; |СоглашениеСКомиссионером = Регистр.ПартииОтданные.Договор; |ДокументПередачи = Регистр.ПартииОтданные.ДокументПередачи; |Функция СуммаУпрКонОст = КонОст(СуммаУпр); |Функция КоличествоКонОст = КонОст(Количество); |Группировка Организация; |Группировка Партнер без групп; |Группировка СоглашениеСКомиссионером без групп; |Группировка ДокументПередачи; |Группировка Номенклатура без групп; |Группировка СтранаПроисхождения; |Группировка ГТД; |Условие(СтатусПартии в СписокСтатусов); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если Запрос.КоличествоКонОст > 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.СоглашениеСКомиссионером; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "ПередачаНаКомиссию"; Попытка УчитыватьНДС = Запрос.ДокументПередачи.УчитыватьНДС; Исключение УчитыватьНДС = 0; КонецПопытки; ТабВыгруженныхВариантов.НалогообложениеНДС = ?(УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"); КонецЕсли; КонецЦикла; ТабВыгруженныхВариантов.Свернуть("Договор,Организация,ХозяйственнаяОперация,НалогообложениеНДС", ""); ТабВыгруженныхВариантов.ВыбратьСтроки(); Пока ТабВыгруженныхВариантов.ПолучитьСтроку() = 1 Цикл НомерЗнач = СписокВсехЭлементов.НайтиЗначение(ТабВыгруженныхВариантов.Договор); Если НомерЗнач > 0 Тогда СписокВсехЭлементов.УдалитьЗначение(НомерЗнач); КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", ТабВыгруженныхВариантов.Договор); ИсходящиеДанные.Установить("Организация", ТабВыгруженныхВариантов.Организация); ИсходящиеДанные.Установить("ХозяйственнаяОперация", ТабВыгруженныхВариантов.ХозяйственнаяОперация); ИсходящиеДанные.Установить("НалогообложениеНДС", ТабВыгруженныхВариантов.НалогообложениеНДС); ВыгрузитьДоговорВСоглашение( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); ВыгрузитьПоПравилу(ТабВыгруженныхВариантов.Договор,, ИсходящиеДанные,, ИсходящиеДанные.Получить("ИмяПКО")); КонецЦикла; КонецЕсли; // Выгрузка второй очереди Для НомерЗначения = 1 По СписокВсехЭлементов.РазмерСписка() Цикл Договор = СписокВсехЭлементов.ПолучитьЗначение(НомерЗначения); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Договор); ВыгрузитьДоговорВСоглашение(); ОписаниеОшибкиСтр = ИсходящиеДанные.Получить("Ошибка"); ХозОперация = ИсходящиеДанные.Получить("ХозяйственнаяОперация"); Если ПустоеЗначение(ОписаниеОшибкиСтр) = 1 Тогда Если (((ХозОперация = "ЗакупкаУПоставщика") ИЛИ (ХозОперация = "ЗакупкаПоИмпорту")) И (Параметры.ИспользоватьСоглашенияСПоставщиками = 1)) ИЛИ (((ХозОперация = "РеализацияКлиенту") ИЛИ (ХозОперация = "ПередачаНаКомиссию")) И (Параметры.ИспользоватьСоглашенияСКлиентами = 1)) ИЛИ (ХозОперация = "ПриемНаКомиссию") тогда ВыгрузитьПоПравилу(Договор,, ИсходящиеДанные,, ИсходящиеДанные.Получить("ИмяПКО")); КонецЕсли; Иначе Сообщить("По договору """ + Договор + """ не будет сформировано соглашение в УТ: " + ОписаниеОшибкиСтр + "."); КонецЕсли; КонецЦикла; Возврат 1; <Правило Отключить="false"> <Код>ДоговорыВДоговоры <Наименование>Договоры взаиморасчетов в договоры контрагентов <Порядок>350 <КодПравилаКонвертации>Договоры_ДоговорыКонтрагентов <СпособОтбораДанных>ПроизвольныйАлгоритм <ОбъектВыборки>СправочникСсылка.Договоры <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; // Получим список всех договоров Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ВсеДоговоры) |Без итогов; |ТекущийЭлемент = Справочник.Договоры.ТекущийЭлемент; |Группировка ТекущийЭлемент без групп; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); СписокВсехЭлементов = СоздатьОбъект("СписокЗначений"); Пока Запрос.Группировка() = 1 Цикл СписокВсехЭлементов.ДобавитьЗначение(Запрос.ТекущийЭлемент); КонецЦикла; ТабВыгруженныхВариантов = СоздатьОбъект("ТаблицаЗначений"); ТабВыгруженныхВариантов.НоваяКолонка("Договор"); ТабВыгруженныхВариантов.НоваяКолонка("Организация"); ТабВыгруженныхВариантов.НоваяКолонка("ХозяйственнаяОперация"); ТабВыгруженныхВариантов.НоваяКолонка("ПорядокОплаты"); // Определяем дату остатков и начинаем запоминать ссылки на договор ДатаНач = 0; Если Параметры.ЭтапПереноса = 2 Тогда ДатаНач = Параметры.ДатаНачалаСценария; ИначеЕсли ПустоеЗначение(Параметры.ЭтапПереноса) = 1 Тогда // Использование расширенного режима Если ПустоеЗначение(ДатаНачала) = 0 Тогда ДатаНач = ДатаНачала; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ДатаНач) = 1 Тогда ДатаНач = ТекущаяДата(); КонецЕсли; ДатаНач = ДатаНач - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); // Анализируем задолженность клиентов по договорам ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьКлиентовПоДоговорам) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |Контрагент = Регистр.Покупатели.Договор.Владелец; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Покупатели.СуммаВал; |Договор = Регистр.Покупатели.Договор; |Код = Регистр.Покупатели.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() <> ""ОтчетКомиссионера""); |"//}}ЗАПРОС ; Если Параметры.ТабКонтрагентыСкладыНТТ = -1 Тогда СформироватьТаблицуКонтрагентовСкладовНТТ(); КонецЕсли; Если Параметры.ТабКонтрагентыСкладыНТТ.КоличествоСтрок() > 0 Тогда СписокКонтрагентовСкладовНТТ = СоздатьОбъект("СписокЗначений"); Параметры.ТабКонтрагентыСкладыНТТ.Выгрузить(СписокКонтрагентовСкладовНТТ,,, "Контрагент"); ТекстЗапроса = ТекстЗапроса + "Условие(НЕ (Контрагент в СписокКонтрагентовСкладовНТТ));"; КонецЕсли; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.Договор; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "РеализацияКлиенту"; КонецЕсли; КонецЦикла; // Анализируем задолженность комиссионеров по договорам ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьКомиссионеровПоДоговорам) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |Контрагент = Регистр.Покупатели.Договор.Владелец; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Покупатели.СуммаВал; |Договор = Регистр.Покупатели.Договор; |Код = Регистр.Покупатели.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() = ""ОтчетКомиссионера""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.Договор; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "ПередачаНаКомиссию"; КонецЕсли; КонецЦикла; // Анализируем авансы клиентов по договорам продажи Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(АвансыКлиентовПоДоговорам) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |Контрагент = Регистр.Покупатели.Договор.Владелец; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |СуммаВал = Регистр.Покупатели.СуммаВал; |СуммаРуб = Регистр.Покупатели.СуммаРуб; |Договор = Регистр.Покупатели.Договор; |Код = Регистр.Покупатели.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка Валюта; |Группировка РасчетныйДокумент; |"//}}ЗАПРОС ; Если Параметры.ТабКонтрагентыСкладыНТТ.КоличествоСтрок() > 0 Тогда СписокКонтрагентовСкладовНТТ = СоздатьОбъект("СписокЗначений"); Параметры.ТабКонтрагентыСкладыНТТ.Выгрузить(СписокКонтрагентовСкладовНТТ,,, "Контрагент"); ТекстЗапроса = ТекстЗапроса + "Условие(НЕ (Контрагент в СписокКонтрагентовСкладовНТТ));"; КонецЕсли; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл // Пропускаем взаиморасчеты, не связанные с договорами продажи ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Запрос.Организация); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ВыгрузитьДоговорВДоговор(); Если ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "РеализацияКлиенту" Тогда Продолжить; КонецЕсли; Если Запрос.СуммаВалКонОст < 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.Договор; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "РеализацияКлиенту"; КонецЕсли; КонецЦикла; // Анализируем задолженность перед поставщиками по договорам ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьПередПоставщикамиПоДоговорам) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |Контрагент = Регистр.Поставщики.Договор.Владелец; |РасчетныйДокумент = Регистр.Поставщики.КредДокумент; |Валюта = Регистр.Поставщики.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Поставщики.СуммаВал; |Договор = Регистр.Поставщики.Договор; |Код = Регистр.Поставщики.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() <> ""ОтчетКомитенту""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если Запрос.СуммаВалКонОст < 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.Договор; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "ЗакупкаУПоставщика"; КонецЕсли; КонецЦикла; // Анализируем задолженность перед комитентами по договорам ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьПередКомитентамиПоДоговорам) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |Контрагент = Регистр.Поставщики.Договор.Владелец; |РасчетныйДокумент = Регистр.Поставщики.КредДокумент; |Валюта = Регистр.Поставщики.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Поставщики.СуммаВал; |Договор = Регистр.Поставщики.Договор; |Код = Регистр.Поставщики.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() = ""ОтчетКомитенту""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если Запрос.СуммаВалКонОст < 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.Договор; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "ПриемНаКомиссию"; КонецЕсли; КонецЦикла; // Анализируем авансы поставщикам по договорам покупки ТекстЗапроса = "//{{ЗАПРОС(АвансыПоставщикамПоДоговорам) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |Контрагент = Регистр.Поставщики.Договор.Владелец; |Валюта = Регистр.Поставщики.Договор.ВалютаВзаиморасчетов; |РасчетныйДокумент = Регистр.Поставщики.КредДокумент; |СуммаВал = Регистр.Поставщики.СуммаВал; |СуммаРуб = Регистр.Поставщики.СуммаРуб; |Договор = Регистр.Поставщики.Договор; |Код = Регистр.Поставщики.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка Валюта; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл // Пропускаем взаиморасчеты, не связанные с договорами покупки ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Запрос.Организация); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ВыгрузитьДоговорВДоговор(); Если ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "ЗакупкаУПоставщика" Тогда Продолжить; КонецЕсли; Если Запрос.СуммаВалКонОст > 0 Тогда ТабВыгруженныхВариантов.НоваяСтрока(); ТабВыгруженныхВариантов.Договор = Запрос.Договор; ТабВыгруженныхВариантов.Организация = Запрос.Организация; ТабВыгруженныхВариантов.ХозяйственнаяОперация = "ЗакупкаУПоставщика"; КонецЕсли; КонецЦикла; ТабВыгруженныхВариантов.Свернуть("Договор,Организация,ХозяйственнаяОперация", ""); ТабВыгруженныхВариантов.ВыбратьСтроки(); Пока ТабВыгруженныхВариантов.ПолучитьСтроку() = 1 Цикл НомерЗнач = СписокВсехЭлементов.НайтиЗначение(ТабВыгруженныхВариантов.Договор); Если НомерЗнач > 0 Тогда СписокВсехЭлементов.УдалитьЗначение(НомерЗнач); КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", ТабВыгруженныхВариантов.Договор); ИсходящиеДанные.Установить("Организация", ТабВыгруженныхВариантов.Организация); ИсходящиеДанные.Установить("ХозяйственнаяОперация", ТабВыгруженныхВариантов.ХозяйственнаяОперация); ВыгрузитьДоговорВДоговор(); ВыгрузитьПоПравилу(ТабВыгруженныхВариантов.Договор,, ИсходящиеДанные,, "Договоры_ДоговорыКонтрагентов"); КонецЦикла; // Выгрузка второй очереди Для НомерЗначения = 1 По СписокВсехЭлементов.РазмерСписка() Цикл Договор = СписокВсехЭлементов.ПолучитьЗначение(НомерЗначения); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Договор); ВыгрузитьДоговорВДоговор(); ОписаниеОшибкиСтр = ИсходящиеДанные.Получить("Ошибка"); Если ПустоеЗначение(ОписаниеОшибкиСтр) = 1 Тогда ВыгрузитьПоПравилу(Договор,, ИсходящиеДанные,, "Договоры_ДоговорыКонтрагентов"); Иначе Сообщить("Договор """ + Договор + """ не будет перенесен в УТ: " + ОписаниеОшибкиСтр + "."); КонецЕсли; КонецЦикла; Возврат 1; <Правило Отключить="false"> <Код>БанковскиеСчетаКонтрагентов <Наименование>Банковские счета контрагентов <Порядок>400 <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаКонтрагентов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.БанковскиеСчета <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ЮрФизЛицо.Вид() <> "ЮрЛицо" Тогда СформироватьСоответствиеКонтрагентовИЮрЛиц(); НомерНайденнойСтроки = 0; СоответствиеКонтрагентыЮрЛицо = Параметры.СоответствиеКонтрагентыЮрЛицо; Если СоответствиеКонтрагентыЮрЛицо.НайтиЗначение(Объект.ЮрФизЛицо, НомерНайденнойСтроки, "ЮрФизЛицо") = 0 Тогда Возврат 1; КонецЕсли; КонецЕсли; <Правило Отключить="false"> <Код>БанковскиеСчетаФизЛиц <Наименование>Банковские счета физических лиц <Порядок>450 <КодПравилаКонвертации>БанковскиеСчета_БанковскиеСчетаФизЛиц <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.БанковскиеСчета <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ЮрФизЛицо.Вид() <> "ФизЛица" Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ФИОФизическихЛиц <Наименование>ФИО физических лиц <Порядок>500 <КодПравилаКонвертации>ФИОФизическихЛиц <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ФизЛица <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Группа Отключить="false"> <Код>Ценообразование <Наименование>Ценообразование <Порядок>250 <Правило Отключить="false"> <Код>ТипыЦен <Наименование>Типы цен <Порядок>50 <КодПравилаКонвертации>ТипыЦен_ВидыЦен <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ТипыЦен <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ПоследниеЦеныНоменклатурыОбщие <Наименование>Последние цены номенклатуры <Порядок>100 <КодПравилаКонвертации>Цены_УстановкаЦенНоменклатуры <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; Товары = СоздатьОбъект("ТаблицаЗначений"); Товары.НоваяКолонка("ВидЦены"); Товары.НоваяКолонка("Валюта"); Товары.НоваяКолонка("Номенклатура"); Товары.НоваяКолонка("Цена"); Товары.НоваяКолонка("Упаковка"); Товары.НоваяКолонка("ПроцентСкидкиНаценки"); ВидыЦен = СоздатьОбъект("ТаблицаЗначений"); ВидыЦен.НоваяКолонка("ВидЦены"); ВидыЦен.НоваяКолонка("Валюта"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЦеныНоменклатуры) |Номенклатура = Справочник.Цены.Владелец; |ВидЦены = Справочник.Цены.ТипЦен; |РекЦена = Справочник.Цены.Цена; |Упаковка = Справочник.Цены.Единица; |Валюта = Справочник.Цены.Валюта; |Функция Цена = Сумма(РекЦена); |Группировка ВидЦены; |Группировка Валюта; |Группировка Номенклатура без групп; |Группировка Упаковка; |Условие(РекЦена > 0); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл ВидыЦен.УдалитьСтроки(); Товары.УдалитьСтроки(); ВидыЦен.НоваяСтрока(); ВидыЦен.ВидЦены = Запрос.ВидЦены; ВидыЦен.Валюта = Запрос.Валюта; Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Товары.НоваяСтрока(); Товары.ВидЦены = Запрос.ВидЦены; Товары.Валюта = Запрос.Валюта; Товары.Номенклатура = Запрос.Номенклатура; Товары.Цена = Запрос.Цена; Товары.Упаковка = Запрос.Упаковка; КонецЦикла; КонецЦикла; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ВидЦены", Запрос.ВидЦены); ИсходящиеДанные.Установить("Валюта", Запрос.Валюта); ИсходящиеДанные.Установить("ВидыЦен", ВидыЦен); ИсходящиеДанные.Установить("Товары", Товары); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "Цены_УстановкаЦенНоменклатуры"); КонецЦикла; КонецЦикла; <Правило Отключить="false"> <Код>ПоследниеЦеныНоменклатурыВРозничныхТочках <Наименование>Последние цены номенклатуры в розничных точках <Порядок>150 <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; ДатаНач = 0; Если ПустоеЗначение(Параметры.ЭтапПереноса) = 0 Тогда // Переход по сценарию Если Параметры.Сценарий_ПереносОстатков = 1 Тогда ДатаНач = Параметры.ДатаНачалаСценария; КонецЕсли; Иначе // Переход в расширенном режиме Если ПустоеЗначение(ДатаНачала) = 0 Тогда ДатаНач = ДатаНачала; КонецЕсли; КонецЕсли; ДатаТА = ПолучитьДатуТА(); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); Если ПустоеЗначение(ДатаНач) = 0 Тогда ДатаНач = ДатаНач - 1; ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач,ДатаТА); ИсходящиеДанные.Установить("ДатаНач", ДатаНач); ВыгрузитьПоследниеЦеныНоменклатурыВРозничныхТочках(); КонецЕсли; НоваяДатаНач = ТекущаяДата(); НоваяДатаНач = ?(НоваяДатаНач < ДатаТА, НоваяДатаНач, ДатаТА); Если ДатаНач <> НоваяДатаНач Тогда ИсходящиеДанные.Установить("ДатаНач", НоваяДатаНач); ВыгрузитьПоследниеЦеныНоменклатурыВРозничныхТочках(); КонецЕсли; <Правило Отключить="false"> <Код>Скидки <Наименование>Скидки <Порядок>200 <КодПравилаКонвертации>Скидки_СкидкиНаценки <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Скидки <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Группа Отключить="false"> <Код>Прочие <Наименование>Прочие <Порядок>300 <Правило Отключить="false"> <Код>ДвиженияДенежныхСредств <Наименование>Движения денежных средств <Порядок>50 <КодПравилаКонвертации>ДвиженияДС_СтатьиДвиженияДенежныхСредств <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ДвиженияДенежныхСредств <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Параметры.СтатистикаПоДвижениямДенежныхСредств = -1 Тогда Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ДвижениеДенежныхСредств) |Без итогов; |Период с (Дата('01.01.0001')); |Счет = Регистр.Касса.ТекущийДокумент.ПКО.Счет, | Регистр.Касса.ТекущийДокумент.РКО.Счет, | Регистр.Касса.ТекущийДокумент.СтрокаВыпискиПриход.Счет, | Регистр.Касса.ТекущийДокумент.СтрокаВыпискиРасход.Счет; |ДвижениеДенежныхСредств = Регистр.Банк.ДвижениеДенежныхСредств, | Регистр.Касса.ДвижениеДенежныхСредств; |СуммаУпр = Регистр.Банк.СуммаУпр, | Регистр.Касса.СуммаУпр; |КодОперации = Регистр.Банк.КодОперации, | Регистр.Касса.КодОперации; |Функция СуммаУпрПриход = Приход(СуммаУпр); |Функция СуммаУпрРасход = Расход(СуммаУпр); |Группировка ДвижениеДенежныхСредств; |Группировка КодОперации; |Группировка Счет без групп; |Условие( (КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателяВал) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщикаВал) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСумм) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСуммВал) | ИЛИ (КодОперации = Перечисление.КодыОпераций.Прочее) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ПрочееВал) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ОплатаПоставщикуВал) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателюВал) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВыдачаПодотчет) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВыдачаПодотчетВал)); |Условие (ПустоеЗначение(ДвижениеДенежныхСредств) = 0); |"//}}ЗАПРОС ; Параметры.СтатистикаПоДвижениямДенежныхСредств = СоздатьОбъект("ТаблицаЗначений"); СтатистикаПоДвижениямДенежныхСредств = Параметры.СтатистикаПоДвижениямДенежныхСредств; СтатистикаПоДвижениямДенежныхСредств.НоваяКолонка("ДвижениеДенежныхСредств"); СтатистикаПоДвижениямДенежныхСредств.НоваяКолонка("Оборот"); СтатистикаПоДвижениямДенежныхСредств.НоваяКолонка("Счет"); Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл Если (Запрос.КодОперации = Перечисление.КодыОпераций.Прочее) ИЛИ (Запрос.КодОперации = Перечисление.КодыОпераций.ПрочееВал) Тогда Если Запрос.СуммаУпрПриход <> 0 Тогда СтатистикаПоДвижениямДенежныхСредств.НоваяСтрока(); СтатистикаПоДвижениямДенежныхСредств.ДвижениеДенежныхСредств = Запрос.ДвижениеДенежныхСредств; СтатистикаПоДвижениямДенежныхСредств.Оборот = Запрос.СуммаУпрПриход; СтатистикаПоДвижениямДенежныхСредств.Счет = Запрос.Счет; КонецЕсли; Если Запрос.СуммаУпрРасход <> 0 Тогда СтатистикаПоДвижениямДенежныхСредств.НоваяСтрока(); СтатистикаПоДвижениямДенежныхСредств.ДвижениеДенежныхСредств = Запрос.ДвижениеДенежныхСредств; СтатистикаПоДвижениямДенежныхСредств.Оборот = Запрос.СуммаУпрРасход; СтатистикаПоДвижениямДенежныхСредств.Счет = Запрос.Счет; КонецЕсли; Иначе СтатистикаПоДвижениямДенежныхСредств.НоваяСтрока(); СтатистикаПоДвижениямДенежныхСредств.ДвижениеДенежныхСредств = Запрос.ДвижениеДенежныхСредств; СтатистикаПоДвижениямДенежныхСредств.Оборот = Запрос.СуммаУпрПриход + Запрос.СуммаУпрРасход; КонецЕсли; КонецЦикла; СтатистикаПоДвижениямДенежныхСредств.Свернуть("ДвижениеДенежныхСредств,Счет", "Оборот"); СтатистикаПоДвижениямДенежныхСредств.Сортировать("ДвижениеДенежныхСредств,-Оборот"); КонецЕсли; НайденнаяСтрока = 0; СтатистикаПоДвижениямДенежныхСредств = Параметры.СтатистикаПоДвижениямДенежныхСредств; Если СтатистикаПоДвижениямДенежныхСредств.НайтиЗначение(Объект, НайденнаяСтрока, "ДвижениеДенежныхСредств") = 0 Тогда Сообщить("Вид движения денежных средств """ + Объект + """ не будет перенесен в УТ: не удалось определить хозяйственную операцию.", "."); Возврат 1; Иначе ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("КорреспондирующийСчет", СтатистикаПоДвижениямДенежныхСредств.ПолучитьЗначение(НайденнаяСтрока, "Счет")); КонецЕсли; <Правило Отключить="false"> <Код>ЗначенияСвойств <Наименование>Значения свойств <Порядок>100 <КодПравилаКонвертации>ЗначенияСвойств_ЗначенияСвойствОбъектов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ЗначенияСвойств <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>Пользователи <Наименование>Пользователи <Порядок>150 <КодПравилаКонвертации>Пользователи <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Пользователи <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 1) Тогда Возврат 1; КонецЕсли; <Группа Отключить="false"> <Код>Остатки <Наименование>Остатки <Порядок>150 <Группа Отключить="false"> <Код>ТМЦ <Наименование>ТМЦ <Порядок>50 <Правило Отключить="false"> <Код>ОстаткиТоваровНаСкладах <Наименование>Остатки собственных и комиссионных товаров <Порядок>50 <КодПравилаКонвертации>ВводОстатков_ОстаткиТоваровНаСкладах <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); // Остатки товаров на складах Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиТоваровНаСкладах) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.ОстаткиТМЦ.Фирма.ЮрЛицо; |Склад = Регистр.ОстаткиТМЦ.Склад; |МОЛ = Регистр.ОстаткиТМЦ.Склад.МОЛ; |Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура; |РекКоличество = Регистр.ОстаткиТМЦ.Количество; |ЦенаПрод = Регистр.ОстаткиТМЦ.ЦенаПрод; |Функция Количество = КонОст(РекКоличество); |Группировка Номенклатура упорядочить по Номенклатура.Код без групп; |Группировка Организация упорядочить по Организация.Код; |Группировка МОЛ упорядочить по МОЛ.Код без групп; |Группировка Склад упорядочить по Склад.Код; |Группировка ЦенаПрод; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ТабОстаткиНаСкладах = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ТабОстаткиНаСкладах,1,0); // Удаляем отрицательные остатки КоличествоСтрок = ТабОстаткиНаСкладах.КоличествоСтрок(); Для ОбратныйИндекс = 1 По КоличествоСтрок Цикл НомерСтроки = КоличествоСтрок - ОбратныйИндекс + 1; Если ТабОстаткиНаСкладах.ПолучитьЗначение(НомерСтроки, "Количество") <= 0 Тогда ТабОстаткиНаСкладах.УдалитьСтроку(НомерСтроки); КонецЕсли; КонецЦикла; // Остатки собственных товаров СписокСтатусов = СоздатьОбъект("СписокЗначений"); СписокСтатусов.ДобавитьЗначение(глСП.Т_Купленный); СписокСтатусов.ДобавитьЗначение(глСП.Т_Тара); СписокСтатусов.ДобавитьЗначение(глСП.М_Запчасть); СписокСтатусов.ДобавитьЗначение(глСП.М_Инвентарь); СписокСтатусов.ДобавитьЗначение(глСП.М_Полуфабрикат); СписокСтатусов.ДобавитьЗначение(глСП.М_Прочее); СписокСтатусов.ДобавитьЗначение(глСП.М_Стройматериал); СписокСтатусов.ДобавитьЗначение(глСП.М_Сырье); СписокСтатусов.ДобавитьЗначение(глСП.М_Тара); СписокСтатусов.ДобавитьЗначение(глСП.М_Топливо); СписокСтатусов.ДобавитьЗначение(глСП.М_Спецматериал); СписокСтатусов.ДобавитьЗначение(глСП.Продукция); СписокСтатусов.ДобавитьЗначение(глСП.Полуфабрикат); СписокСтатусов.ДобавитьЗначение(глСП.Т_ВРознице); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиСобственныхТоваров) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.ПартииНаличие.Фирма.ЮрЛицо; |МОЛ = Регистр.ПартииНаличие.МОЛ; |Номенклатура = Регистр.ПартииНаличие.Номенклатура; |СтатусПартии = Регистр.ПартииНаличие.СтатусПартии; |СтранаПроисхождения = Регистр.ПартииНаличие.Партия.СтранаПроисхождения;"; Если Параметры.ИспользоватьОстаткиПоПартиям = 1 Тогда ТекстЗапроса = ТекстЗапроса + " |Партнер = Регистр.ПартииНаличие.Партия.Поставщик; |ДоговорСПоставщиком = Регистр.ПартииНаличие.Партия.ДоговорПоставщика; |ПриходныйДокумент = Регистр.ПартииНаличие.Партия.ПриходныйДокумент;"; КонецЕсли; ТекстЗапроса = ТекстЗапроса + " |ГТД = Регистр.ПартииНаличие.Партия.ГТД; |СуммаУпр = Регистр.ПартииНаличие.СуммаУпр; |СуммаРуб = Регистр.ПартииНаличие.СуммаРуб; |СуммаБезНДС = Регистр.ПартииНаличие.СуммаБезНДС; |РекКоличество = Регистр.ПартииНаличие.Количество; |ЦенаПрод = Регистр.ОстаткиТМЦ.ЦенаПрод; |Функция Сумма = КонОст(СуммаУпр); |Функция Количество = КонОст(РекКоличество); |Функция СуммаРегл = КонОст(СуммаРуб); |Функция СуммаРеглБезНДС = КонОст(СуммаБезНДС); |Группировка Номенклатура упорядочить по Номенклатура.Код без групп; |Группировка Организация упорядочить по Организация.Код; |Группировка МОЛ упорядочить по МОЛ.Код без групп; |Группировка ЦенаПрод;"; Если Параметры.ИспользоватьОстаткиПоПартиям = 1 Тогда ТекстЗапроса = ТекстЗапроса + " |Группировка Партнер без групп; |Группировка ДоговорСПоставщиком без Групп; |Группировка ПриходныйДокумент;"; КонецЕсли; ТекстЗапроса = ТекстЗапроса + " |Группировка СтранаПроисхождения; |Группировка ГТД; |Условие(СтатусПартии в СписокСтатусов); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ТабОстаткиПартийНаСкладах = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ТабОстаткиПартийНаСкладах,0,1); // Удаляем отрицательные остатки КоличествоСтрок = ТабОстаткиПартийНаСкладах.КоличествоСтрок(); Для ОбратныйИндекс = 1 По КоличествоСтрок Цикл НомерСтроки = КоличествоСтрок - ОбратныйИндекс + 1; Если ТабОстаткиПартийНаСкладах.ПолучитьЗначение(НомерСтроки, "Количество") <= 0 Тогда ТабОстаткиПартийНаСкладах.УдалитьСтроку(НомерСтроки); КонецЕсли; КонецЦикла; ТабОстатковРез = СоздатьОбъект("ТаблицаЗначений"); ТабОстатковРез.НоваяКолонка("Организация"); ТабОстатковРез.НоваяКолонка("Склад"); ТабОстатковРез.НоваяКолонка("Поставщик"); ТабОстатковРез.НоваяКолонка("ДоговорСПоставщиком"); ТабОстатковРез.НоваяКолонка("ПриходныйДокумент"); ТабОстатковРез.НоваяКолонка("Склад"); ТабОстатковРез.НоваяКолонка("Номенклатура"); ТабОстатковРез.НоваяКолонка("НомерГТД"); ТабОстатковРез.НоваяКолонка("Количество"); ТабОстатковРез.НоваяКолонка("Цена"); ТабОстатковРез.НоваяКолонка("Сумма"); //Сумма в валюте управленческого учета ТабОстатковРез.НоваяКолонка("СуммаБезНДС"); //Сумма без НДС, в валюте управленческого учета ТабОстатковРез.НоваяКолонка("СуммаНДС"); //Сумма НДС, в валюте управленческого учета ТабОстатковРез.НоваяКолонка("СтавкаНДС"); //Ставка НДС, будем определять по след. алгоритму: НДСРегл*100/СуммаРегл //Вычисляем значение и округляем его до 10, если полученное значение от 0.1 до 14.9 то это ставка 10 проц., если от 15 до 20 то это ставка 18 процентов. ТабОстатковРез.НоваяКолонка("СуммаРегл"); //Сумма с НДС в валюте регламентированного(бухгалтерского) учета ТабОстатковРез.НоваяКолонка("СуммаРеглБезНДС"); //Сумма без НДС в валюте регламентированного(бухгалтерского) учета ТабОстатковРез.НоваяКолонка("НДСРегл"); //Сумма НДС в валюте регламентированного(бухгалтерского) учета // Консолидация двух таблиц остатков в одну ТабОстаткиПартийНаСкладах.ВыбратьСтроки(); Пока ТабОстаткиПартийНаСкладах.ПолучитьСтроку() = 1 Цикл Если ТабОстаткиПартийНаСкладах.Сумма <= 0 Тогда Сообщить("Некорректный суммовой остаток """ + ТабОстаткиПартийНаСкладах.Номенклатура + """ (организация: " + ТабОстаткиПартийНаСкладах.Организация + "; МОЛ: " + ТабОстаткиПартийНаСкладах.МОЛ + "; цена продажи: " + ТабОстаткиПартийНаСкладах.ЦенаПрод + "; страна происхождения: " + ТабОстаткиПартийНаСкладах.СтранаПроисхождения + "; ГТД: " + ТабОстаткиПартийНаСкладах.ГТД + ") по регистру ""Партии товаров"" равный " + ТабОстаткиПартийНаСкладах.Сумма + " | Информацию по данному остатку необходимо проверить и при небходимости перенести в УТ вручную.", "."); Продолжить; КонецЕсли; ОсталосьСписатьКоличество = ТабОстаткиПартийНаСкладах.Количество; ДанныеРаспределения = СоздатьОбъект("СписокЗначений"); ДанныеРаспределения.Установить("СтрокаТовара", ТабОстаткиПартийНаСкладах); ДанныеРаспределения.Установить("ОсталосьСписатьКоличество", ОсталосьСписатьКоличество); ДанныеРаспределения.Установить("ТабОстаткиНаСкладах", ТабОстаткиНаСкладах); ДанныеРаспределения.Установить("ТабОстатковРез", ТабОстатковРез); ДанныеРаспределения.Установить("ВидОстатков", "СобственныеТовары"); НомерГТД = 0; Если ПустоеЗначение(ТабОстаткиПартийНаСкладах.ГТД) = 0 Тогда НомерГТД = СоздатьОбъект("СписокЗначений"); НомерГТД.Установить("СтранаПроисхождения", ТабОстаткиПартийНаСкладах.СтранаПроисхождения); НомерГТД.Установить("Код", СокрЛП(ТабОстаткиПартийНаСкладах.ГТД.Наименование)); КонецЕсли; ДанныеРаспределения.Установить("НомерГТД", НомерГТД); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ДанныеРаспределения", ДанныеРаспределения); ВыполнитьРаспределениеОстатковТоваровПоСкладам( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); ДанныеРаспределения = ИсходящиеДанные.Получить("ДанныеРаспределения"); // Наличие нераспределенного остатка является ошибкой ОсталосьСписатьКоличество = ДанныеРаспределения.Получить("ОсталосьСписатьКоличество"); Если ОсталосьСписатьКоличество > 0 Тогда Сообщить("Остаток """ + ТабОстаткиПартийНаСкладах.Номенклатура + """ (организация: " + ТабОстаткиПартийНаСкладах.Организация + "; МОЛ: " + ТабОстаткиПартийНаСкладах.МОЛ + "; цена продажи: " + ТабОстаткиПартийНаСкладах.ЦенаПрод + "; страна происхождения: " + ТабОстаткиПартийНаСкладах.СтранаПроисхождения + "; ГТД: " + ТабОстаткиПартийНаСкладах.ГТД + ") по регистру ""Партии товаров""" + " превышает соответствующий остаток по регистру ""Остатки ТМЦ"" на " + ОсталосьСписатьКоличество + " " + ТабОстаткиПартийНаСкладах.Номенклатура.БазоваяЕдиница + " | Информацию по данному остатку необходимо проверить и при небходимости перенести в УТ вручную.", "."); Продолжить; КонецЕсли; КонецЦикла; // Выгрузка документов Если ТабОстатковРез.КоличествоСтрок() > 0 Тогда ТабОстатковРез.Свернуть("Организация,Склад,Поставщик,ДоговорСПоставщиком,ПриходныйДокумент,Номенклатура,НомерГТД,Цена,СтавкаНДС","Количество,Сумма,СуммаБезНДС,СуммаНДС,СуммаРегл,СуммаРеглБезНДС,НДСРегл"); ТабОстатковРез.Сортировать("Организация,Склад,Поставщик,ДоговорСПоставщиком,ПриходныйДокумент,Номенклатура"); ТабОстатковРез.ВыбратьСтроки(); ТекОрганизация = 0; ТекСклад = 0; ТекПоставщик = 0; ТекДоговорСПоставщиком = 0; ТекПриходныйДокумент = 0; ТабТовары = 0; Пока ТабОстатковРез.ПолучитьСтроку() = 1 Цикл Если (ТекОрганизация <> ТабОстатковРез.Организация) Или (ТекСклад <> ТабОстатковРез.Склад) Или ((ТекПоставщик <> ТабОстатковРез.Поставщик) Или (ТекДоговорСПоставщиком <> ТабОстатковРез.ДоговорСПоставщиком) Или (ТекПриходныйДокумент <> ТабОстатковРез.ПриходныйДокумент)) И (Параметры.ИспользоватьОстаткиПоПартиям = 1) Тогда Если ТабТовары <> 0 Тогда ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ОстаткиТоваровНаСкладах"); КонецЕсли; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ТекОрганизация = ТабОстатковРез.Организация; ТекСклад = ТабОстатковРез.Склад; Если Параметры.ИспользоватьОстаткиПоПартиям = 1 Тогда ТекПоставщик = ТабОстатковРез.Поставщик; ТекДоговорСПоставщиком = ТабОстатковРез.ДоговорСПоставщиком; ТекПриходныйДокумент = ТабОстатковРез.ПриходныйДокумент; ИсходящиеДанные.Установить("Партнер", ТекПоставщик); ИсходящиеДанные.Установить("Договор", ТекДоговорСПоставщиком); СФ = глНайтиСчетФактуру(ТекПриходныйДокумент,"СчетФактураПолученный"); Если СФ = "" Тогда ИсходящиеДанные.Установить("ПредъявленСчетФактура", 0); ИсходящиеДанные.Установить("ДатаСчетаФактуры", ТекПриходныйДокумент.ДатаДок); ИсходящиеДанные.Установить("НомерСчетаФактуры", ТекПриходныйДокумент.НомерДок); Иначе ИсходящиеДанные.Установить("ПредъявленСчетФактура", 1); Если ПустаяСтрока(СокрЛП(СФ.НомерДокВходящий)) = 1 Тогда ИсходящиеДанные.Установить("ДатаСчетаФактуры", СФ.ДатаДок); ИсходящиеДанные.Установить("НомерСчетаФактуры", СФ.НомерДок); Иначе ИсходящиеДанные.Установить("ДатаСчетаФактуры", СФ.ДатаДокВходящий); ИсходящиеДанные.Установить("НомерСчетаФактуры", СФ.НомерДокВходящий); КонецЕсли; КонецЕсли; КонецЕсли; ИсходящиеДанные.Установить("Дата", ДатаНач); ИсходящиеДанные.Установить("Валюта", Константа.ВалютаУпрУчета); ИсходящиеДанные.Установить("Организация", ТекОрганизация); ИсходящиеДанные.Установить("Склад", ТекСклад); ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("НомерГТД"); ТабТовары.НоваяКолонка("Количество"); ТабТовары.НоваяКолонка("КоличествоУпаковок"); ТабТовары.НоваяКолонка("Цена"); ТабТовары.НоваяКолонка("Сумма"); ТабТовары.НоваяКолонка("СуммаБезНДС"); ТабТовары.НоваяКолонка("СуммаНДС"); ТабТовары.НоваяКолонка("СтавкаНДС"); ТабТовары.НоваяКолонка("СуммаРегл"); ТабТовары.НоваяКолонка("НДСРегл"); ИсходящиеДанные.Установить("Товары", ТабТовары); КонецЕсли; ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = ТабОстатковРез.Номенклатура; ТабТовары.НомерГТД = ТабОстатковРез.НомерГТД; ТабТовары.Количество = ТабОстатковРез.Количество; ТабТовары.КоличествоУпаковок = ТабОстатковРез.Количество; ТабТовары.Цена = ТабОстатковРез.Цена; ТабТовары.Сумма = ТабОстатковРез.Сумма; ТабТовары.СуммаБезНДС = ТабОстатковРез.СуммаБезНДС; ТабТовары.СуммаНДС = ТабОстатковРез.СуммаНДС; ТабТовары.СтавкаНДС = ТабОстатковРез.СтавкаНДС; ТабТовары.СуммаРегл = ТабОстатковРез.СуммаРегл; ТабТовары.НДСРегл = ТабОстатковРез.НДСРегл; КонецЦикла; Если ТабТовары.КоличествоСтрок() > 0 Тогда ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ОстаткиТоваровНаСкладах"); КонецЕсли; КонецЕсли; // Остатки комиссионных товаров ТекстЗапроса = "//{{ЗАПРОС(ОстаткиТоваровНаКомиссии) |Период с ДатаНач по ДатаНач; |Без итогов; |Организация = Регистр.ПартииНаличие.Фирма.ЮрЛицо; |МОЛ = Регистр.ПартииНаличие.МОЛ; |Номенклатура = Регистр.ПартииНаличие.Номенклатура; |СтавкаНДС = Регистр.ПартииНаличие.Номенклатура.СтавкаНДС; |СтатусПартии = Регистр.ПартииНаличие.СтатусПартии; |СтранаПроисхождения = Регистр.ПартииНаличие.Партия.СтранаПроисхождения; |ГТД = Регистр.ПартииНаличие.Партия.ГТД; |РекКоличество = Регистр.ПартииНаличие.Количество; |Партнер = Регистр.ПартииНаличие.Партия.Поставщик; |СоглашениеСКомитентом = Регистр.ПартииНаличие.Партия.ДоговорПоставщика; |ПриходныйДокумент = Регистр.ПартииНаличие.Партия.ПриходныйДокумент; |ЦенаПрод = Регистр.ОстаткиТМЦ.ЦенаПрод; |Функция Количество = КонОст(РекКоличество); |Группировка Номенклатура упорядочить по Номенклатура.Код без групп; |Группировка СтавкаНДС; |Группировка Организация упорядочить по Организация.Код; |Группировка МОЛ упорядочить по МОЛ.Код без групп; |Группировка ЦенаПрод; |Группировка Партнер без групп; |Группировка СоглашениеСКомитентом без групп; |Группировка ПриходныйДокумент; |Группировка СтранаПроисхождения; |Группировка ГТД; |Условие(СтатусПартии = глСП.Т_Принятый); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Запрос.Выгрузить(ТабОстаткиПартийНаСкладах,0,1); // Удаляем отрицательные остатки КоличествоСтрок = ТабОстаткиПартийНаСкладах.КоличествоСтрок(); Для ОбратныйИндекс = 1 По КоличествоСтрок Цикл НомерСтроки = КоличествоСтрок - ОбратныйИндекс + 1; Если ТабОстаткиПартийНаСкладах.ПолучитьЗначение(НомерСтроки, "Количество") <= 0 Тогда ТабОстаткиПартийНаСкладах.УдалитьСтроку(НомерСтроки); КонецЕсли; КонецЦикла; ТабОстатковРез = СоздатьОбъект("ТаблицаЗначений"); ТабОстатковРез.НоваяКолонка("Организация"); ТабОстатковРез.НоваяКолонка("Склад"); ТабОстатковРез.НоваяКолонка("Номенклатура"); ТабОстатковРез.НоваяКолонка("СтавкаНДС"); ТабОстатковРез.НоваяКолонка("НомерГТД"); ТабОстатковРез.НоваяКолонка("Количество"); ТабОстатковРез.НоваяКолонка("Партнер"); ТабОстатковРез.НоваяКолонка("СоглашениеСКомитентом"); ТабОстатковРез.НоваяКолонка("УчитыватьНДС"); ТабОстаткиПартийНаСкладах.ВыбратьСтроки(); Пока ТабОстаткиПартийНаСкладах.ПолучитьСтроку() = 1 Цикл ОсталосьСписатьКоличество = ТабОстаткиПартийНаСкладах.Количество; ДанныеРаспределения = СоздатьОбъект("СписокЗначений"); ДанныеРаспределения.Установить("СтрокаТовара", ТабОстаткиПартийНаСкладах); ДанныеРаспределения.Установить("ОсталосьСписатьКоличество", ОсталосьСписатьКоличество); ДанныеРаспределения.Установить("ТабОстаткиНаСкладах", ТабОстаткиНаСкладах); ДанныеРаспределения.Установить("ТабОстатковРез", ТабОстатковРез); ДанныеРаспределения.Установить("ВидОстатков", "КомиссионныеТовары"); НомерГТД = 0; Если ПустоеЗначение(ТабОстаткиПартийНаСкладах.ГТД) = 0 Тогда НомерГТД = СоздатьОбъект("СписокЗначений"); НомерГТД.Установить("СтранаПроисхождения", ТабОстаткиПартийНаСкладах.СтранаПроисхождения); НомерГТД.Установить("Код", СокрЛП(ТабОстаткиПартийНаСкладах.ГТД.Наименование)); КонецЕсли; ДанныеРаспределения.Установить("НомерГТД", НомерГТД); Попытка УчитыватьНДС = ТабОстаткиПартийНаСкладах.ПриходныйДокумент.УчитыватьНДС; Исключение УчитыватьНДС = 0; КонецПопытки; ДанныеРаспределения.Установить("УчитыватьНДС", УчитыватьНДС); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ДанныеРаспределения", ДанныеРаспределения); ВыполнитьРаспределениеОстатковТоваровПоСкладам( ИсходящиеДанные,,,,,,,, ВыборкаДанных,,,, ИмяПКО,,,, Правило,,,,,,,,,,,,,,,,, Отказ); ДанныеРаспределения = ИсходящиеДанные.Получить("ДанныеРаспределения"); // Наличие нераспределенного остатка является ошибкой ОсталосьСписатьКоличество = ДанныеРаспределения.Получить("ОсталосьСписатьКоличество"); Если ОсталосьСписатьКоличество > 0 Тогда Сообщить("Остаток """ + ТабОстаткиПартийНаСкладах.Номенклатура + """ (организация: " + ТабОстаткиПартийНаСкладах.Организация + "; МОЛ: " + ТабОстаткиПартийНаСкладах.МОЛ + "; цена продажи: " + ТабОстаткиПартийНаСкладах.ЦенаПрод + "; страна происхождения: " + ТабОстаткиПартийНаСкладах.СтранаПроисхождения + "; ГТД: " + ТабОстаткиПартийНаСкладах.ГТД + "; комитент: " + ТабОстаткиПартийНаСкладах.Партнер + "; договор: " + ТабОстаткиПартийНаСкладах.СоглашениеСКомитентом + ") по регистру ""Партии товаров"" равный " + ТабОстаткиПартийНаСкладах.Количество + " + " превышает соответствующий остаток по регистру ""Остатки ТМЦ"" на " + ОсталосьСписатьКоличество + " " + ТабОстаткиПартийНаСкладах.Номенклатура.БазоваяЕдиница + " | Информацию по данному остатку необходимо проверить и при небходимости перенести в УТ вручную.", "."); Продолжить; КонецЕсли; КонецЦикла; // Выгрузка документов Если ТабОстатковРез.КоличествоСтрок() > 0 Тогда ТабОстатковРез.Свернуть("Организация,Склад,Партнер,СоглашениеСКомитентом,УчитыватьНДС,Номенклатура,СтавкаНДС,НомерГТД","Количество"); ТабОстатковРез.Сортировать("Организация,Склад,Партнер,СоглашениеСКомитентом,УчитыватьНДС,Номенклатура"); ТабОстатковРез.ВыбратьСтроки(); ТекОрганизация = 0; ТекСклад = 0; ТекПартнер = 0; ТекСоглашениеСКомитентом = 0; ТекУчитыватьНДС = -1; ТабТовары = 0; Пока ТабОстатковРез.ПолучитьСтроку() = 1 Цикл Если (ТекОрганизация <> ТабОстатковРез.Организация) Или (ТекСклад <> ТабОстатковРез.Склад) Или (ТекПартнер <> ТабОстатковРез.Партнер) Или (ТекСоглашениеСКомитентом <> ТабОстатковРез.СоглашениеСКомитентом) Или (ТекУчитыватьНДС <> ТабОстатковРез.УчитыватьНДС) Тогда Если ТабТовары <> 0 Тогда ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ОстаткиТоваровПринятыеНаКомиссию"); КонецЕсли; ТекОрганизация = ТабОстатковРез.Организация; ТекСклад = ТабОстатковРез.Склад; ТекПартнер = ТабОстатковРез.Партнер; ТекСоглашениеСКомитентом = ТабОстатковРез.СоглашениеСКомитентом; ТекУчитыватьНДС = ТабОстатковРез.УчитыватьНДС; ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("СтавкаНДС"); ТабТовары.НоваяКолонка("НомерГТД"); ТабТовары.НоваяКолонка("Количество"); ТабТовары.НоваяКолонка("КоличествоУпаковок"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Дата", ДатаНач); ИсходящиеДанные.Установить("Организация", ТекОрганизация); ИсходящиеДанные.Установить("Склад", ТекСклад); ИсходящиеДанные.Установить("Партнер", ТекПартнер); ИсходящиеДанные.Установить("СоглашениеСКомитентом", ТекСоглашениеСКомитентом); Валюта = ?(ПустоеЗначение(ТекСоглашениеСКомитентом) = 0, ТекСоглашениеСКомитентом.ВалютаВзаиморасчетов, Константа.ВалютаУпрУчета); ИсходящиеДанные.Установить("Валюта", Валюта); ИсходящиеДанные.Установить("НалогообложениеНДС", ?(ТекУчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС")); ИсходящиеДанные.Установить("Товары", ТабТовары); КонецЕсли; ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = ТабОстатковРез.Номенклатура; ТабТовары.СтавкаНДС = ТабОстатковРез.СтавкаНДС; ТабТовары.НомерГТД = ТабОстатковРез.НомерГТД; ТабТовары.Количество = ТабОстатковРез.Количество; ТабТовары.КоличествоУпаковок = ТабОстатковРез.Количество; КонецЦикла; Если ТабТовары.КоличествоСтрок() > 0 Тогда ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ОстаткиТоваровПринятыеНаКомиссию"); КонецЕсли; КонецЕсли; <Правило Отключить="false"> <Код>ОстаткиТоваровПереданныхНаКомиссию <Наименование>Остатки товаров, переданных на комиссию <Порядок>150 <КодПравилаКонвертации>ВводОстатков_ОстаткиТоваровПереданныхНаКомиссию <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; СписокСтатусов = СоздатьОбъект("СписокЗначений"); СписокСтатусов.ДобавитьЗначение(глСП.Т_Купленный); СписокСтатусов.ДобавитьЗначение(глСП.Т_Тара); СписокСтатусов.ДобавитьЗначение(глСП.М_Запчасть); СписокСтатусов.ДобавитьЗначение(глСП.М_Инвентарь); СписокСтатусов.ДобавитьЗначение(глСП.М_Полуфабрикат); СписокСтатусов.ДобавитьЗначение(глСП.М_Прочее); СписокСтатусов.ДобавитьЗначение(глСП.М_Стройматериал); СписокСтатусов.ДобавитьЗначение(глСП.М_Сырье); СписокСтатусов.ДобавитьЗначение(глСП.М_Тара); СписокСтатусов.ДобавитьЗначение(глСП.М_Топливо); СписокСтатусов.ДобавитьЗначение(глСП.М_Спецматериал); СписокСтатусов.ДобавитьЗначение(глСП.Продукция); СписокСтатусов.ДобавитьЗначение(глСП.Полуфабрикат); СписокСтатусов.ДобавитьЗначение(глСП.Т_ВРознице); СписокСтатусов.ДобавитьЗначение(глСП.Т_Принятый); ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиПереданныхТоваров) |Период с ДатаНач по ДатаНач; |Организация = Регистр.ПартииОтданные.Фирма.ЮрЛицо; |Номенклатура = Регистр.ПартииОтданные.Номенклатура; |СтатусПартии = Регистр.ПартииОтданные.СтатусПартии; |СтранаПроисхождения = Регистр.ПартииОтданные.Партия.СтранаПроисхождения; |ГТД = Регистр.ПартииОтданные.Партия.ГТД; |СуммаУпр = Регистр.ПартииОтданные.СуммаУпр; |СуммаРуб = Регистр.ПартииОтданные.СуммаРуб; |СуммаБезНДС = Регистр.ПартииОтданные.СуммаБезНДС; |Количество = Регистр.ПартииОтданные.Количество; |Партнер = Регистр.ПартииОтданные.Договор.Владелец; |СоглашениеСКомиссионером = Регистр.ПартииОтданные.Договор; |ДокументПередачи = Регистр.ПартииОтданные.ДокументПередачи; |Функция СуммаУпрКонОст = КонОст(СуммаУпр); |Функция СуммаРеглСНДСКонОст = КонОст(СуммаРуб); |Функция СуммаРеглКонОст = КонОст(СуммаБезНДС); |Функция КоличествоКонОст = КонОст(Количество); |Группировка Организация; |Группировка Партнер без групп; |Группировка СоглашениеСКомиссионером без групп; |Группировка ДокументПередачи; |Группировка Номенклатура без групп; |Группировка СтранаПроисхождения; |Группировка ГТД; |Условие(СтатусПартии в СписокСтатусов); |"//}}ЗАПРОС ; ВалютаУпр = Константа.ВалютаУпрУчета; КурсВалютыУпр = глКурсДляВалюты(ВалютаУпр, ДатаНач); Если КурсВалютыУпр = 0 Тогда КоэффициентПересчетаВВалютуУпр = 0; Иначе КоэффициентПересчетаВВалютуУпр = глКратностьДляВалюты(ВалютаУпр, ДатаНач) / КурсВалютыУпр; КонецЕсли; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл ТабТоварыУчНДС = СоздатьОбъект("ТаблицаЗначений"); ТабТоварыУчНДС.НоваяКолонка("Номенклатура"); ТабТоварыУчНДС.НоваяКолонка("Количество"); ТабТоварыУчНДС.НоваяКолонка("КоличествоУпаковок"); ТабТоварыУчНДС.НоваяКолонка("Цена"); ТабТоварыУчНДС.НоваяКолонка("Сумма"); ТабТоварыУчНДС.НоваяКолонка("НомерГТД"); ТабТоварыУчНДС.НоваяКолонка("СтавкаНДС"); ТабТоварыУчНДС.НоваяКолонка("НДСРегл"); ТабТоварыУчНДС.НоваяКолонка("СуммаБезНДС"); ТабТоварыУчНДС.НоваяКолонка("СуммаНДС"); ТабТоварыУчНДС.НоваяКолонка("СуммаРегл"); // Копируем структуру таблицы ТабТоварыНеУчНДС = СоздатьОбъект("ТаблицаЗначений"); ТабТоварыНеУчНДС.Загрузить(ТабТоварыУчНДС); Пока Запрос.Группировка(4) = 1 Цикл Попытка УчитыватьНДС = Запрос.ДокументПередачи.УчитыватьНДС; Исключение УчитыватьНДС = 0; КонецПопытки; ТабТовары = ?(УчитыватьНДС = 1, ТабТоварыУчНДС, ТабТоварыНеУчНДС); Пока Запрос.Группировка(5) = 1 Цикл Пока Запрос.Группировка(6) = 1 Цикл Пока Запрос.Группировка(7) = 1 Цикл Если Запрос.СуммаУпрКонОст <= 0 Тогда Сообщить("Некорректный суммовой остаток """ + Запрос.Номенклатура + """ (организация: " + Запрос.Организация + "; комиссионер: " + Запрос.Партнер + "; договор комиссии: " + Запрос.СоглашениеСКомиссионером + "; документ передачи: " + Запрос.ДокументПередачи + "; страна происхождения: " + Запрос.СтранаПроисхождения + "; ГТД: " + Запрос.ГТД + ") по регистру ""Партии отданные"" равный " + Запрос.СуммаУпрКонОст + " | Информацию по данному остатку необходимо проверить и при небходимости перенести в УТ вручную.", "."); Продолжить; КонецЕсли; Если Запрос.КоличествоКонОст > 0 Тогда ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = Запрос.Номенклатура; ТабТовары.Количество = Запрос.КоличествоКонОст; ТабТовары.КоличествоУпаковок = Запрос.КоличествоКонОст; ТабТовары.Цена = ?(Запрос.КоличествоКонОст = 0, 0, Запрос.СуммаУпрКонОст / Запрос.КоличествоКонОст); ТабТовары.Сумма = Запрос.СуммаУпрКонОст; ТабТовары.СуммаРегл = Запрос.СуммаРеглКонОст; ТабТовары.НДСРегл = Запрос.СуммаРеглСНДСКонОст - Запрос.СуммаРеглКонОст; Если ТабТовары.СуммаРегл > 0 Тогда ПроцентНДС = Окр(((ТабТовары.НДСРегл*100)/ТабТовары.СуммаРегл),-1); Иначе ПроцентНДС = 0; КонецЕсли; Если ПроцентНДС = 20 Тогда ТабТовары.СтавкаНДС = "НДС18"; ИначеЕсли ПроцентНДС = 10 Тогда ТабТовары.СтавкаНДС = "НДС10"; Иначе ТабТовары.СтавкаНДС = "БезНДС"; КонецЕсли; ТабТовары.СуммаНДС = ТабТовары.НДСРегл * КоэффициентПересчетаВВалютуУпр; ТабТовары.СуммаБезНДС = ТабТовары.Сумма - ТабТовары.СуммаНДС; Если ПустоеЗначение(Запрос.ГТД) = 0 Тогда НомерГТД = СоздатьОбъект("СписокЗначений"); НомерГТД.ДобавитьЗначение(Запрос.СтранаПроисхождения, "СтранаПроисхождения"); НомерГТД.ДобавитьЗначение(СокрЛП(Запрос.ГТД.Наименование), "Код"); ТабТовары.НомерГТД = НомерГТД; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; Если (ТабТоварыУчНДС.КоличествоСтрок() > 0) ИЛИ (ТабТоварыНеУчНДС.КоличествоСтрок() > 0) Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Партнер, "Партнер"); ИсходящиеДанные.ДобавитьЗначение(Запрос.СоглашениеСКомиссионером, "СоглашениеСКомиссионером"); ИсходящиеДанные.ДобавитьЗначение(ВалютаУпр, "Валюта"); Если ТабТоварыУчНДС.КоличествоСтрок() > 0 Тогда ТабТоварыУчНДС.Свернуть("Номенклатура,НомерГТД,Цена,СтавкаНДС", "Количество,КоличествоУпаковок,Сумма,НДСРегл,СуммаБезНДС,СуммаНДС,СуммаРегл"); ИсходящиеДанные.Установить("НалогообложениеНДС", "ПродажаОблагаетсяНДС"); ИсходящиеДанные.Установить("Товары", ТабТоварыУчНДС); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ОстаткиТоваровПереданныхНаКомиссию"); КонецЕсли; Если ТабТоварыНеУчНДС.КоличествоСтрок() > 0 Тогда ТабТоварыНеУчНДС.Свернуть("Номенклатура,НомерГТД,Цена,СтавкаНДС", "Количество,КоличествоУпаковок,Сумма,НДСРегл,СуммаБезНДС,СуммаНДС,СуммаРегл"); ИсходящиеДанные.Установить("НалогообложениеНДС", "ПродажаНеОблагаетсяНДС"); ИсходящиеДанные.Установить("Товары", ТабТоварыНеУчНДС); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ОстаткиТоваровПереданныхНаКомиссию"); КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; <Группа Отключить="false"> <Код>ВзаиморасчетыСКлиентами <Наименование>Взаиморасчеты с клиентами <Порядок>100 <Правило Отключить="false"> <Код>ЗадолженностьКлиентовПоДоговорам <Наименование>Задолженность клиентов по договорам <Порядок>50 <КодПравилаКонвертации>ВводОстатков_ЗадолженностьКлиентовПоДоговорам <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьКлиентовПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |Контрагент = Регистр.Покупатели.Договор.Владелец; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Покупатели.СуммаВал; |СуммаРуб = Регистр.Покупатели.СуммаРуб; |Договор = Регистр.Покупатели.Договор; |Код = Регистр.Покупатели.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() <> ""ОтчетКомиссионера""); |"//}}ЗАПРОС ; Если Параметры.ТабКонтрагентыСкладыНТТ = -1 Тогда СформироватьТаблицуКонтрагентовСкладовНТТ(); КонецЕсли; Если Параметры.ТабКонтрагентыСкладыНТТ.КоличествоСтрок() > 0 Тогда СписокКонтрагентовСкладовНТТ = СоздатьОбъект("СписокЗначений"); Параметры.ТабКонтрагентыСкладыНТТ.Выгрузить(СписокКонтрагентовСкладовНТТ,,, "Контрагент"); ТекстЗапроса = ТекстЗапроса + "Условие(НЕ (Контрагент в СписокКонтрагентовСкладовНТТ));"; КонецЕсли; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаПлатежа"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.РасчетныйДокумент = Запрос.Договор; ТабРасчетыСПартнерами.НомерРасчетногоДокумента = ?(ПустоеЗначение(Запрос.Договор) = 0, Запрос.Код, 0); ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = Запрос.СуммаРубКонОст; // Определяем дату платежа Если ПустоеЗначение(Запрос.РасчетныйДокумент) = 0 Тогда Если (Запрос.РасчетныйДокумент.Вид() = "Реализация") ИЛИ (Запрос.РасчетныйДокумент.Вид() = "РеализацияПрочее") ИЛИ (Запрос.РасчетныйДокумент.Вид() = "РеализацияРозница") Тогда ТабРасчетыСПартнерами.ДатаПлатежа = Запрос.РасчетныйДокумент.ДатаОплаты; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ТабРасчетыСПартнерами.ДатаПлатежа) = 1 Тогда ТабРасчетыСПартнерами.ДатаПлатежа = ДатаНачала - 1; КонецЕсли; // Определяем дату договора ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ОпределитьДатуНачалаДействияДоговораСоглашения(); ТабРасчетыСПартнерами.ДатаРасчетногоДокумента = ИсходящиеДанные.Получить("Значение"); КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ЗадолженностьКлиентовПоДоговорам"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>ЗадолженностьКомиссионеровПоДоговорам <Наименование>Задолженность комиссионеров по договорам <Порядок>100 <КодПравилаКонвертации>ВводОстатков_ЗадолженностьКомиссионеровПоДоговорам <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьКомиссионеровПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |Контрагент = Регистр.Покупатели.Договор.Владелец; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Покупатели.СуммаВал; |СуммаРуб = Регистр.Покупатели.СуммаРуб; |Договор = Регистр.Покупатели.Договор; |Код = Регистр.Покупатели.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() = ""ОтчетКомиссионера""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаПлатежа"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.РасчетныйДокумент = Запрос.Договор; ТабРасчетыСПартнерами.НомерРасчетногоДокумента = ?(ПустоеЗначение(Запрос.Договор) = 0, Запрос.Код, 0); ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = Запрос.СуммаРубКонОст; ТабРасчетыСПартнерами.ДатаПлатежа = ?(ПустоеЗначение(Запрос.РасчетныйДокумент.ДатаОплаты) = 0, Запрос.РасчетныйДокумент.ДатаОплаты, ДатаНачала - 1); // Определяем дату договора ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ОпределитьДатуНачалаДействияДоговораСоглашения(); ТабРасчетыСПартнерами.ДатаРасчетногоДокумента = ИсходящиеДанные.Получить("Значение"); КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ЗадолженностьКомиссионеровПоДоговорам"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>АвансыКлиентовПоДоговорамПродажи <Наименование>Авансы клиентов по договорам продажи <Порядок>150 <КодПравилаКонвертации>ВводОстатков_АвансыКлиентовПоДоговорамПродажи <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(АвансыКлиентовПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |Контрагент = Регистр.Покупатели.Договор.Владелец; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |СуммаВал = Регистр.Покупатели.СуммаВал; |СуммаРуб = Регистр.Покупатели.СуммаРуб; |Договор = Регистр.Покупатели.Договор; |Код = Регистр.Покупатели.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка Валюта; |Группировка РасчетныйДокумент; |"//}}ЗАПРОС ; Если Параметры.ТабКонтрагентыСкладыНТТ = -1 Тогда СформироватьТаблицуКонтрагентовСкладовНТТ(); КонецЕсли; Если Параметры.ТабКонтрагентыСкладыНТТ.КоличествоСтрок() > 0 Тогда СписокКонтрагентовСкладовНТТ = СоздатьОбъект("СписокЗначений"); Параметры.ТабКонтрагентыСкладыНТТ.Выгрузить(СписокКонтрагентовСкладовНТТ,,, "Контрагент"); ТекстЗапроса = ТекстЗапроса + "Условие(НЕ (Контрагент в СписокКонтрагентовСкладовНТТ));"; КонецЕсли; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаПлатежа"); Пока Запрос.Группировка(2) = 1 Цикл // Пропускаем взаиморасчеты, не связанные с договорами продажи ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Запрос.Организация); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ВыгрузитьДоговорВДоговор(); Если ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "РеализацияКлиенту" Тогда Продолжить; КонецЕсли; Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст < 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.РасчетныйДокумент = Запрос.Договор; ТабРасчетыСПартнерами.НомерРасчетногоДокумента = ?(ПустоеЗначение(Запрос.Договор) = 0, Запрос.Код, 0); ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = - Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = - Запрос.СуммаРубКонОст; // Определяем дату договора ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ОпределитьДатуНачалаДействияДоговораСоглашения(); ТабРасчетыСПартнерами.ДатаРасчетногоДокумента = ИсходящиеДанные.Получить("Значение"); КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_АвансыКлиентовПоДоговорамПродажи"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>АвансыКлиентовПрочее <Наименование>Авансы клиентов (прочее) <Порядок>200 <КодПравилаКонвертации>ВводОстатков_АвансыКлиентовПоДоговорамПродажи <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(АвансыКлиентовПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |Контрагент = Регистр.Покупатели.Договор.Владелец; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |СуммаВал = Регистр.Покупатели.СуммаВал; |СуммаРуб = Регистр.Покупатели.СуммаРуб; |Договор = Регистр.Покупатели.Договор; |Код = Регистр.Покупатели.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка Валюта; |Группировка РасчетныйДокумент; |"//}}ЗАПРОС ; Если Параметры.ТабКонтрагентыСкладыНТТ = -1 Тогда СформироватьТаблицуКонтрагентовСкладовНТТ(); КонецЕсли; Если Параметры.ТабКонтрагентыСкладыНТТ.КоличествоСтрок() > 0 Тогда СписокКонтрагентовСкладовНТТ = СоздатьОбъект("СписокЗначений"); Параметры.ТабКонтрагентыСкладыНТТ.Выгрузить(СписокКонтрагентовСкладовНТТ,,, "Контрагент"); ТекстЗапроса = ТекстЗапроса + "Условие(НЕ (Контрагент в СписокКонтрагентовСкладовНТТ));"; КонецЕсли; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаПлатежа"); Пока Запрос.Группировка(2) = 1 Цикл // Пропускаем взаиморасчеты, связанные с договорами продажи ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Запрос.Организация); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ВыгрузитьДоговорВДоговор(); Если ИсходящиеДанные.Получить("ХозяйственнаяОперация") = "РеализацияКлиенту" Тогда Продолжить; КонецЕсли; Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст < 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = - Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = - Запрос.СуммаРубКонОст; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_АвансыКлиентовПрочее"); КонецЕсли; КонецЦикла; <Группа Отключить="false"> <Код>ВзаиморасчетыСПоставщиками <Наименование>Взаиморасчеты с поставщиками <Порядок>150 <Правило Отключить="false"> <Код>ЗадолженностьПоставщикамПоДоговорам <Наименование>Задолженность перед поставщиками по договорам <Порядок>50 <КодПравилаКонвертации>ВводОстатков_ЗадолженностьПоставщикамПоДоговорам <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьПередПоставщикамиПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |Контрагент = Регистр.Поставщики.Договор.Владелец; |РасчетныйДокумент = Регистр.Поставщики.КредДокумент; |Валюта = Регистр.Поставщики.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Поставщики.СуммаВал; |СуммаРуб = Регистр.Поставщики.СуммаРуб; |Договор = Регистр.Поставщики.Договор; |Код = Регистр.Поставщики.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() <> ""ОтчетКомитенту""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаПлатежа"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст < 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.РасчетныйДокумент = Запрос.Договор; ТабРасчетыСПартнерами.НомерРасчетногоДокумента = ?(ПустоеЗначение(Запрос.Договор) = 0, Запрос.Код, 0); ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = - Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = - Запрос.СуммаРубКонОст; // Определяем дату платежа Если ПустоеЗначение(Запрос.РасчетныйДокумент) = 0 Тогда Если (Запрос.РасчетныйДокумент.Вид() = "ПоступлениеДопРасходы") ИЛИ (Запрос.РасчетныйДокумент.Вид() = "ПоступлениеПрочее") ИЛИ (Запрос.РасчетныйДокумент.Вид() = "ПоступлениеТМЦ") ИЛИ (Запрос.РасчетныйДокумент.Вид() = "ПоступлениеТМЦРозница") Тогда ТабРасчетыСПартнерами.ДатаПлатежа = Запрос.РасчетныйДокумент.ДатаОплаты; ИначеЕсли Запрос.РасчетныйДокумент.Вид() = "ПоступлениеТМЦИмпорт" Тогда Если Запрос.Контрагент <> Запрос.РасчетныйДокумент.Таможня Тогда ТабРасчетыСПартнерами.ДатаПлатежа = Запрос.РасчетныйДокумент.ДатаОплаты; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ТабРасчетыСПартнерами.ДатаПлатежа) = 1 Тогда ТабРасчетыСПартнерами.ДатаПлатежа = ДатаНачала - 1; КонецЕсли; // Определяем дату договора ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ОпределитьДатуНачалаДействияДоговораСоглашения(); ТабРасчетыСПартнерами.ДатаРасчетногоДокумента = ИсходящиеДанные.Получить("Значение"); КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ЗадолженностьПоставщикамПоДоговорам"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>ЗадолженностьПередКомитентамиПоДоговорам <Наименование>Задолженность перед комитентами по договорам <Порядок>100 <КодПравилаКонвертации>ВводОстатков_ЗадолженностьПередКомитентамиПоДогово <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ЗадолженностьПередКомитентамиПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |Контрагент = Регистр.Поставщики.Договор.Владелец; |РасчетныйДокумент = Регистр.Поставщики.КредДокумент; |Валюта = Регистр.Поставщики.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Поставщики.СуммаВал; |СуммаРуб = Регистр.Поставщики.СуммаРуб; |Договор = Регистр.Поставщики.Договор; |Код = Регистр.Поставщики.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(РасчетныйДокумент.Вид() = ""ОтчетКомитенту""); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаПлатежа"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст < 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.РасчетныйДокумент = Запрос.Договор; ТабРасчетыСПартнерами.НомерРасчетногоДокумента = ?(ПустоеЗначение(Запрос.Договор) = 0, Запрос.Код, 0); ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = - Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = - Запрос.СуммаРубКонОст; ТабРасчетыСПартнерами.ДатаПлатежа = ?(ПустоеЗначение(Запрос.РасчетныйДокумент.ДатаОплаты) = 0, Запрос.РасчетныйДокумент.ДатаОплаты, ДатаНачала - 1); // Определяем дату договора ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ОпределитьДатуНачалаДействияДоговораСоглашения(); ТабРасчетыСПартнерами.ДатаРасчетногоДокумента = ИсходящиеДанные.Получить("Значение"); КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента,ДатаПлатежа"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ЗадолженностьПередКомитентамиПоДогово"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>АвансыПоставщикамПоДоговорамПокупки <Наименование>Авансы поставщикам по договорам покупки <Порядок>150 <КодПравилаКонвертации>ВводОстатков_АвансыПоставщикамПоДоговорамПокупки <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(АвансыПоставщикамПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |Контрагент = Регистр.Поставщики.Договор.Владелец; |Валюта = Регистр.Поставщики.Договор.ВалютаВзаиморасчетов; |РасчетныйДокумент = Регистр.Поставщики.КредДокумент; |СуммаВал = Регистр.Поставщики.СуммаВал; |СуммаРуб = Регистр.Поставщики.СуммаРуб; |Договор = Регистр.Поставщики.Договор; |Код = Регистр.Поставщики.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка Валюта; |Группировка РасчетныйДокумент; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); Пока Запрос.Группировка(2) = 1 Цикл // Пропускаем взаиморасчеты, не связанные с договорами покупки ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Запрос.Организация); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ВыгрузитьДоговорВДоговор(); Если ИсходящиеДанные.Получить("ХозяйственнаяОперация") <> "ЗакупкаУПоставщика" Тогда Продолжить; КонецЕсли; Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.РасчетныйДокумент = Запрос.Договор; ТабРасчетыСПартнерами.НомерРасчетногоДокумента = ?(ПустоеЗначение(Запрос.Договор) = 0, Запрос.Код, 0); ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = Запрос.СуммаРубКонОст; // Определяем дату договора ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ОпределитьДатуНачалаДействияДоговораСоглашения(); ТабРасчетыСПартнерами.ДатаРасчетногоДокумента = ИсходящиеДанные.Получить("Значение"); КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов,РасчетныйДокумент,НомерРасчетногоДокумента,ДатаРасчетногоДокумента"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_АвансыПоставщикамПоДоговорамПокупки"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>АвансыПоставщикамПрочее <Наименование>Авансы поставщикам (прочее) <Порядок>200 <КодПравилаКонвертации>ВводОстатков_АвансыПоставщикамПрочее <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(АвансыПоставщикамПоДоговорам) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |Контрагент = Регистр.Поставщики.Договор.Владелец; |Валюта = Регистр.Поставщики.Договор.ВалютаВзаиморасчетов; |РасчетныйДокумент = Регистр.Поставщики.КредДокумент; |СуммаВал = Регистр.Поставщики.СуммаВал; |СуммаРуб = Регистр.Поставщики.СуммаРуб; |Договор = Регистр.Поставщики.Договор; |Код = Регистр.Поставщики.Договор.Код; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка Валюта; |Группировка РасчетныйДокумент; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПартнерами = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПартнерами.НоваяКолонка("Партнер"); ТабРасчетыСПартнерами.НоваяКолонка("Контрагент"); ТабРасчетыСПартнерами.НоваяКолонка("ВалютаВзаиморасчетов"); ТабРасчетыСПартнерами.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПартнерами.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПартнерами.НоваяКолонка("Сумма"); ТабРасчетыСПартнерами.НоваяКолонка("СуммаРегл"); Пока Запрос.Группировка(2) = 1 Цикл // Пропускаем взаиморасчеты, связанные с договорами покупки ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Организация", Запрос.Организация); ИсходящиеДанные.Установить("Договор", Запрос.Договор); ИсходящиеДанные.Установить("ОбъектРасчетов", Запрос.Договор); ВыгрузитьДоговорВДоговор(); Если ИсходящиеДанные.Получить("ХозяйственнаяОперация") = "ЗакупкаУПоставщика" Тогда Продолжить; КонецЕсли; Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Пока Запрос.Группировка(5) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабРасчетыСПартнерами.НоваяСтрока(); ТабРасчетыСПартнерами.Партнер = Запрос.Контрагент; ТабРасчетыСПартнерами.Контрагент = Запрос.Контрагент; ТабРасчетыСПартнерами.ВалютаВзаиморасчетов = Запрос.Валюта; ТабРасчетыСПартнерами.Сумма = Запрос.СуммаВалКонОст; ТабРасчетыСПартнерами.СуммаРегл = Запрос.СуммаРубКонОст; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; ТабРасчетыСПартнерами.Свернуть("Партнер,Контрагент,ВалютаВзаиморасчетов", "Сумма,СуммаРегл"); Если ТабРасчетыСПартнерами.КоличествоСтрок() > 0 Тогда ТабРасчетыСПартнерами.Сортировать("Партнер,Контрагент,ВалютаВзаиморасчетов"); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПартнерами, "РасчетыСПартнерами"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_АвансыПоставщикамПрочее"); КонецЕсли; КонецЦикла; <Группа Отключить="false"> <Код>ВзаиморасчетыСПодотчетниками <Наименование>Взаиморасчеты с подотчетниками <Порядок>200 <Правило Отключить="false"> <Код>ЗадолженностьПодотчетников <Наименование>Задолженность подотчетников <Порядок>50 <КодПравилаКонвертации>ВводОстатков_ЗадолженностьПодотчетников <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиДолговПодотчетниковНаличные) |Период с ДатаНач по ДатаНач; |Организация = Регистр.ПодотчетныеЛица.Фирма.ЮрЛицо; |ПодотчетноеЛицо = Регистр.ПодотчетныеЛица.ФизЛицо; |РасчетныйДокумент = Регистр.ПодотчетныеЛица.КредДокумент; |Валюта = Регистр.ПодотчетныеЛица.Валюта; |СуммаВал = Регистр.ПодотчетныеЛица.СуммаВал; |СуммаРуб = Регистр.ПодотчетныеЛица.СуммаРуб; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка ПодотчетноеЛицо без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Пока Запрос.Группировка(1) = 1 Цикл ТабРасчетыСПодотчетниками = СоздатьОбъект("ТаблицаЗначений"); ТабРасчетыСПодотчетниками.НоваяКолонка("ПодотчетноеЛицо"); ТабРасчетыСПодотчетниками.НоваяКолонка("ДатаРасчетногоДокумента"); ТабРасчетыСПодотчетниками.НоваяКолонка("НомерРасчетногоДокумента"); ТабРасчетыСПодотчетниками.НоваяКолонка("РасчетныйДокумент"); ТабРасчетыСПодотчетниками.НоваяКолонка("Валюта"); ТабРасчетыСПодотчетниками.НоваяКолонка("Сумма"); ТабРасчетыСПодотчетниками.НоваяКолонка("СуммаРегл"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабРасчетыСПодотчетниками.НоваяСтрока(); ТабРасчетыСПодотчетниками.ПодотчетноеЛицо = Запрос.ПодотчетноеЛицо; ТабРасчетыСПодотчетниками.Валюта = Запрос.Валюта; ТабРасчетыСПодотчетниками.Сумма = Запрос.СуммаВалКонОст; ТабРасчетыСПодотчетниками.СуммаРегл = Запрос.СуммаРубКонОст; Если Запрос.РасчетныйДокумент.Вид() = "РКО" Тогда ТабРасчетыСПодотчетниками.ДатаРасчетногоДокумента = Запрос.РасчетныйДокумент.ДатаДок; ТабРасчетыСПодотчетниками.НомерРасчетногоДокумента = ПривестиНомерКДлине(Запрос.РасчетныйДокумент.НомерДок, 11); ТабРасчетыСПодотчетниками.РасчетныйДокумент = Запрос.РасчетныйДокумент; Иначе ТабРасчетыСПодотчетниками.ДатаРасчетногоДокумента = Дата('01.01.1980'); ТабРасчетыСПодотчетниками.НомерРасчетногоДокумента = ПривестиНомерКДлине("1", 11); КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецЦикла; Если ТабРасчетыСПодотчетниками.КоличествоСтрок() > 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация.ПрефиксНомеровДокументов, "Префикс"); ИсходящиеДанные.ДобавитьЗначение(ТабРасчетыСПодотчетниками, "РасчетыСПодотчетниками"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ЗадолженностьПодотчетников"); КонецЕсли; КонецЦикла; <Группа Отключить="false"> <Код>ДенежныеСредства <Наименование>Денежные средства <Порядок>250 <Правило Отключить="false"> <Код>ДСВКассах <Наименование>Остатки ДС в кассах <Порядок>50 <КодПравилаКонвертации>ВводОстатков_ДСВКассах <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиДСВКассах) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Касса.Фирма.ЮрЛицо; |Касса = Регистр.Касса.Касса; |Валюта = Регистр.Касса.Валюта; |СуммаВал = Регистр.Касса.СуммаВал; |СуммаРуб = Регистр.Касса.СуммаРуб; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Касса; |Группировка Валюта; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабКассы = СоздатьОбъект("ТаблицаЗначений"); ТабКассы.НоваяКолонка("Касса"); ТабКассы.НоваяКолонка("Сумма"); ТабКассы.НоваяКолонка("СуммаРегл"); ТабКассы.НоваяКолонка("Валюта"); ТабКассы.НоваяКолонка("Организация"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабКассы.НоваяСтрока(); ТабКассы.Касса = Запрос.Касса; ТабКассы.Сумма = Запрос.СуммаВалКонОст; ТабКассы.СуммаРегл = Запрос.СуммаРубКонОст; ТабКассы.Валюта = Запрос.Валюта; ТабКассы.Организация = Запрос.Организация; КонецЕсли; КонецЦикла; КонецЦикла; Если ТабКассы.КоличествоСтрок() > 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабКассы, "Кассы"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ДСВКассах"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>ДСВБанке <Наименование>Остатки ДС в банке <Порядок>100 <КодПравилаКонвертации>ВводОстатков_ДСВБанке <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиДСВБанке) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Банк.Фирма.ЮрЛицо; |БанковскийСчет = Регистр.Банк.БанковскийСчет; |СуммаВал = Регистр.Банк.СуммаВал; |СуммаРуб = Регистр.Банк.СуммаРуб; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка БанковскийСчет; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Пока Запрос.Группировка(1) = 1 Цикл ТабБанковскиеСчета = СоздатьОбъект("ТаблицаЗначений"); ТабБанковскиеСчета.НоваяКолонка("БанковскийСчет"); ТабБанковскиеСчета.НоваяКолонка("Сумма"); ТабБанковскиеСчета.НоваяКолонка("СуммаРегл"); Пока Запрос.Группировка(2) = 1 Цикл Если Запрос.СуммаВалКонОст > 0 Тогда ТабБанковскиеСчета.НоваяСтрока(); ТабБанковскиеСчета.БанковскийСчет = Запрос.БанковскийСчет; ТабБанковскиеСчета.Сумма = Запрос.СуммаВалКонОст; ТабБанковскиеСчета.СуммаРегл = Запрос.СуммаРубКонОст; КонецЕсли; КонецЦикла; Если ТабБанковскиеСчета.КоличествоСтрок() > 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.ДобавитьЗначение(ДатаНач, "Дата"); ИсходящиеДанные.ДобавитьЗначение(Запрос.Организация, "Организация"); ИсходящиеДанные.ДобавитьЗначение(ТабБанковскиеСчета, "БанковскиеСчета"); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ДСВБанке"); КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>ВыручкаВУдаленныхРозничныхТочках <Наименование>Остатки выручки в удаленных розничных точках <Порядок>150 <КодПравилаКонвертации>ВводОстатков_ВыручкаВРозничныхТочках <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); // Взаиморасчеты по документам могут быть развернутыми, // поэтому сворачиваем их вручную после получения развернутых данных СформироватьТаблицуВзаиморасчетовСРозницей(); ТаблицаВзаиморасчетов = Параметры.ТаблицаВзаиморасчетовСРозничнымиТочками; ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений"); ТаблицаОстатков.НоваяКолонка("Организация"); ТаблицаОстатков.НоваяКолонка("КассаККМ"); ТаблицаОстатков.НоваяКолонка("КонтрагентДляВзаиморасчетов"); ТаблицаОстатков.НоваяКолонка("Валюта"); ТаблицаОстатков.НоваяКолонка("Сумма"); ТаблицаОстатков.НоваяКолонка("СуммаРегл"); // Фильтрация положительных остатков ТаблицаВзаиморасчетов.ВыбратьСтроки(); Пока ТаблицаВзаиморасчетов.ПолучитьСтроку() = 1 Цикл Если ТаблицаВзаиморасчетов.Сумма > 0 Тогда ТаблицаОстатков.НоваяСтрока(); ТаблицаОстатков.Организация = ТаблицаВзаиморасчетов.Организация; ТаблицаОстатков.КассаККМ = ТаблицаВзаиморасчетов.КассаККМ; ТаблицаОстатков.КонтрагентДляВзаиморасчетов = ТаблицаВзаиморасчетов.КонтрагентДляВзаиморасчетов; ТаблицаОстатков.Валюта = ТаблицаВзаиморасчетов.Валюта; ТаблицаОстатков.Сумма = ТаблицаВзаиморасчетов.Сумма; ТаблицаОстатков.СуммаРегл = ТаблицаВзаиморасчетов.СуммаРегл; КонецЕсли; КонецЦикла; КоличествоСтрок = ТаблицаОстатков.КоличествоСтрок(); Если КоличествоСтрок = 0 Тогда Возврат 1; КонецЕсли; // Фиктивная строка для алгоритма группировки ТаблицаОстатков.НоваяСтрока(); ТаблицаОстатков.Организация = -1; ТабКассыККМ = 0; ТекущаяОрганизация = 0; ТаблицаОстатков.ВыбратьСтроки(); Пока ТаблицаОстатков.ПолучитьСтроку() = 1 Цикл Если ТаблицаОстатков.Организация <> ТекущаяОрганизация Тогда Если ТекущаяОрганизация <> 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Дата", ДатаНач); ИсходящиеДанные.Установить("Организация", ТекущаяОрганизация); ИсходящиеДанные.Установить("КассыККМ", ТабКассыККМ); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ВыручкаВРозничныхТочках"); КонецЕсли; ТабКассыККМ = СоздатьОбъект("ТаблицаЗначений"); ТабКассыККМ.НоваяКолонка("КассаККМ"); ТабКассыККМ.НоваяКолонка("КонтрагентДляВзаиморасчетов"); ТабКассыККМ.НоваяКолонка("Сумма"); ТабКассыККМ.НоваяКолонка("СуммаРегл"); ТабКассыККМ.НоваяКолонка("Валюта"); ТабКассыККМ.НоваяКолонка("Организация"); ТекущаяОрганизация = ТаблицаОстатков.Организация; КонецЕсли; Если ТаблицаОстатков.Организация <> -1 Тогда ТабКассыККМ.НоваяСтрока(); ТабКассыККМ.КассаККМ = ТаблицаОстатков.КассаККМ; ТабКассыККМ.КонтрагентДляВзаиморасчетов = ТаблицаОстатков.КонтрагентДляВзаиморасчетов; ТабКассыККМ.Сумма = ТаблицаОстатков.Сумма; ТабКассыККМ.СуммаРегл = ТаблицаОстатков.СуммаРегл; ТабКассыККМ.Валюта = ТаблицаОстатков.Валюта; ТабКассыККМ.Организация = ТаблицаОстатков.Организация; Иначе Прервать; КонецЕсли; КонецЦикла; <Правило Отключить="false"> <Код>ВыручкаВУдаленныхРозничныхТочкахКОформлению <Наименование>Остатки выручки в удаленных розничных точках к оформлению <Порядок>200 <КодПравилаКонвертации>ВводОстатков_ВыручкаВРозничныхТочкахКОформлению <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); // Взаиморасчеты по документам могут быть развернутыми, // поэтому сворачиваем их вручную после получения развернутых данных СформироватьТаблицуВзаиморасчетовСРозницей(); ТаблицаВзаиморасчетов = Параметры.ТаблицаВзаиморасчетовСРозничнымиТочками; ТаблицаОстатков = СоздатьОбъект("ТаблицаЗначений"); ТаблицаОстатков.НоваяКолонка("Организация"); ТаблицаОстатков.НоваяКолонка("КассаККМ"); ТаблицаОстатков.НоваяКолонка("КонтрагентДляВзаиморасчетов"); ТаблицаОстатков.НоваяКолонка("Валюта"); ТаблицаОстатков.НоваяКолонка("Сумма"); ТаблицаОстатков.НоваяКолонка("СуммаРегл"); // Фильтрация отрицательных остатков ТаблицаВзаиморасчетов.ВыбратьСтроки(); Пока ТаблицаВзаиморасчетов.ПолучитьСтроку() = 1 Цикл Если ТаблицаВзаиморасчетов.Сумма < 0 Тогда ТаблицаОстатков.НоваяСтрока(); ТаблицаОстатков.Организация = ТаблицаВзаиморасчетов.Организация; ТаблицаОстатков.КассаККМ = ТаблицаВзаиморасчетов.КассаККМ; ТаблицаОстатков.КонтрагентДляВзаиморасчетов = ТаблицаВзаиморасчетов.КонтрагентДляВзаиморасчетов; ТаблицаОстатков.Валюта = ТаблицаВзаиморасчетов.Валюта; ТаблицаОстатков.Сумма = - ТаблицаВзаиморасчетов.Сумма; ТаблицаОстатков.СуммаРегл = - ТаблицаВзаиморасчетов.СуммаРегл; КонецЕсли; КонецЦикла; КоличествоСтрок = ТаблицаОстатков.КоличествоСтрок(); Если КоличествоСтрок = 0 Тогда Возврат 1; КонецЕсли; // Фиктивная строка для алгоритма группировки ТаблицаОстатков.НоваяСтрока(); ТаблицаОстатков.Организация = -1; ТабКассыККМ = 0; ТекущаяОрганизация = 0; ТаблицаОстатков.ВыбратьСтроки(); Пока ТаблицаОстатков.ПолучитьСтроку() = 1 Цикл Если ТаблицаОстатков.Организация <> ТекущаяОрганизация Тогда Если ТекущаяОрганизация <> 0 Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Дата", ДатаНач); ИсходящиеДанные.Установить("Организация", ТекущаяОрганизация); ИсходящиеДанные.Установить("КассыККМ", ТабКассыККМ); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "ВводОстатков_ВыручкаВРозничныхТочкахКОформлению"); КонецЕсли; ТабКассыККМ = СоздатьОбъект("ТаблицаЗначений"); ТабКассыККМ.НоваяКолонка("КассаККМ"); ТабКассыККМ.НоваяКолонка("КонтрагентДляВзаиморасчетов"); ТабКассыККМ.НоваяКолонка("Сумма"); ТабКассыККМ.НоваяКолонка("СуммаРегл"); ТабКассыККМ.НоваяКолонка("Валюта"); ТабКассыККМ.НоваяКолонка("Организация"); ТекущаяОрганизация = ТаблицаОстатков.Организация; КонецЕсли; Если ТаблицаОстатков.Организация <> -1 Тогда ТабКассыККМ.НоваяСтрока(); ТабКассыККМ.КассаККМ = ТаблицаОстатков.КассаККМ; ТабКассыККМ.КонтрагентДляВзаиморасчетов = ТаблицаОстатков.КонтрагентДляВзаиморасчетов; ТабКассыККМ.Сумма = ТаблицаОстатков.Сумма; ТабКассыККМ.СуммаРегл = ТаблицаОстатков.СуммаРегл; ТабКассыККМ.Валюта = ТаблицаОстатков.Валюта; ТабКассыККМ.Организация = ТаблицаОстатков.Организация; Иначе Прервать; КонецЕсли; КонецЦикла; <Группа Отключить="false"> <Код>Заказы <Наименование>Заказы и заявки <Порядок>300 <Правило Отключить="false"> <Код>ОстаткиЗаказовПоставщикам <Наименование>Остатки заказов поставщикам <Порядок>50 <КодПравилаКонвертации>ЗаказПоставщику <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 2) Тогда Возврат 1; Иначе // Определяем дату переноса остатков по заказам Если ПустоеЗначение(Параметры.ДатаОкончанияСценария) = 0 Тогда ДатаОстатков = Параметры.ДатаОкончанияСценария; Иначе ДатаОстатков = ПолучитьДатуТА(); КонецЕсли; КонецЕсли; ДатаТА = ПолучитьДатуТА(); ДатаОстатков = ?(ДатаОстатков < ДатаТА, ДатаОстатков, ДатаТА); // Определяем заказы с остатками на дату начала Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиЗаказов) |Период с ДатаОстатков по ДатаОстатков; |Заказ = Регистр.Заказы.ЗаказПоставщику; |Количество = Регистр.Заказы.КоличествоПриход; |Функция КоличествоКонОст = КонОст(Количество); |Условие (Количество > 0); |Группировка Заказ; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ЭтоВыгрузкаОстатков", 1); Пока Запрос.Группировка(1) = 1 Цикл ВыгрузитьПоПравилу(Запрос.Заказ,, ИсходящиеДанные,, "ЗаказПоставщику"); КонецЦикла; <Правило Отключить="false"> <Код>ОстаткиПоЗаявкамПокупателей <Наименование>Остатки по заявкам покупателей <Порядок>100 <КодПравилаКонвертации>ЗаявкаПокупателя_ЗаказКлиента <СпособОтбораДанных>ПроизвольныйАлгоритм <ПередОбработкойПравила>Если Параметры.ЭтапПереноса = 2 Тогда ДатаОстатков = Параметры.ДатаНачалаСценария; ИначеЕсли ПустоеЗначение(Параметры.ЭтапПереноса) = 1 Тогда // Использование расширенного режима Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; Иначе ДатаОстатков = ДатаНачала; КонецЕсли; Иначе Возврат 1; КонецЕсли; ДатаОстатков = ДатаОстатков - 1; ДатаТА = ПолучитьДатуТА(); ДатаОстатков = ?(ДатаОстатков < ДатаТА, ДатаОстатков, ДатаТА); // Определяем заказы с остатками на дату начала Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ОстаткиЗаявок) |Период с ДатаОстатков по ДатаОстатков; |Заказ = Регистр.Заявки.ЗаявкаПокупателя; |ВидОперации = Регистр.Заявки.ЗаявкаПокупателя.ВидОперации; |Количество = Регистр.Заявки.КоличествоРасход; |Функция КоличествоКонОст = КонОст(Количество); |Условие (ВидОперации <> Перечисление.ВидыОперацийЗаявок.Неподтвержденная); |Условие (Количество > 0); |Группировка Заказ; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ЭтоВыгрузкаОстатков", 1); Пока Запрос.Группировка(1) = 1 Цикл ВыгрузитьПоПравилу(Запрос.Заказ,, ИсходящиеДанные,, "ЗаявкаПокупателя_ЗаказКлиента"); КонецЦикла; <Группа Отключить="false"> <Код>Документы <Наименование>Документы <Порядок>200 <Группа Отключить="false"> <Код>КассаИБанк <Наименование>Касса и банк <Порядок>50 <Правило Отключить="false"> <Код>ПриходныйКассовыйОрдер <Наименование>Приходный кассовый ордер <Порядок>50 <КодПравилаКонвертации>ПКО_ОплатаОтПокупателя <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПКО <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя Тогда ИмяПКО = "ПКО_ОплатаОтПокупателя"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда ИмяПКО = "ПКО_ВозвратОтПоставщика"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСумм Тогда ИмяПКО = "ПКО_ВозвратОтПодотчетника"; ИначеЕсли (Объект.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручка) ИЛИ (Объект.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЕНВД) ИЛИ (Объект.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЗаПринятые) ИЛИ (Объект.КодОперации = Перечисление.КодыОпераций.РозничнаяВыручкаЗаПринятыеЕНВД) Тогда ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ПКО", Объект); ОпределитьРозничныйСкладПоДаннымПКО(); Склад = ИсходящиеДанные.Получить("Склад"); Если ПустоеЗначение(Склад) = 0 Тогда ИмяПКО = "ПКО_РозничнаяВыручка"; ИсходящиеДанные.Установить("КассаККМ", Склад); Иначе // Выгружаем как обычную оплату от покупателя ИмяПКО = "ПКО_ОплатаОтПокупателя"; КонецЕсли; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.Прочее Тогда ИмяПКО = "ПКО_ПрочееПоступление"; Иначе Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>РасходныйКассовыйОрдер <Наименование>Расходный кассовый ордер <Порядок>100 <КодПравилаКонвертации>РКО_ОплатаПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РКО <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда ИмяПКО = "РКО_ОплатаПоставщику"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда ИмяПКО = "РКО_ВозвратПокупателю"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.ВыдачаПодотчет Тогда ИмяПКО = "РКО_ВыдачаПодотчетнику"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.Прочее Тогда ИмяПКО = "РКО_ПрочаяВыдача"; Иначе Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>СтрокаВыпискиПриход <Наименование>Строка выписки банка (приход) <Порядок>150 <КодПравилаКонвертации>ПБД_ОплатаОтПокупателя <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СтрокаВыпискиПриход <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.КодОперации = Перечисление.КодыОпераций.ОплатаОтПокупателя Тогда ИмяПКО = "ПБД_ОплатаОтПокупателя"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыОтПоставщика Тогда ИмяПКО = "ПБД_ВозвратОтПоставщика"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.Прочее Тогда ИмяПКО = "ПБД_ПрочееПоступление"; Иначе Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>СтрокаВыпискиРасход <Наименование>Строка выписки банка (расход) <Порядок>200 <КодПравилаКонвертации>СБД_ОплатаПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СтрокаВыпискиРасход <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("ПлатежноеПоручение", 0); ИсходящиеДанные.Установить("БанковскийСчетКонтрагента", 0); ИсходящиеДанные.Установить("ВидПлатежа", "Электронно"); ИсходящиеДанные.Установить("НазначениеПлатежа", -1); ИсходящиеДанные.Установить("ОчередностьПлатежа", 6); ДокОснование = Объект.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда Если ДокОснование.Вид() = "ПлатежноеПоручение" Тогда ИсходящиеДанные.Установить("ПлатежноеПоручение", ДокОснование); ИсходящиеДанные.Установить("Контрагент", ДокОснование.Контрагент); ИсходящиеДанные.Установить("БанковскийСчетКонтрагента", ДокОснование.СчетКонтрагента); ИсходящиеДанные.Установить("ВидПлатежа", ДокОснование.ВидПлатежа); ИсходящиеДанные.Установить("НазначениеПлатежа", ДокОснование.Назначение); ИсходящиеДанные.Установить("ОчередностьПлатежа", ДокОснование.Очередность); КонецЕсли; КонецЕсли; Если Объект.КодОперации = Перечисление.КодыОпераций.ОплатаПоставщику Тогда ИмяПКО = "СБД_ОплатаПоставщику"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.ВозвратОплатыПокупателю Тогда ИмяПКО = "СБД_ВозвратПокупателю"; ИначеЕсли Объект.КодОперации = Перечисление.КодыОпераций.Прочее Тогда Если ИсходящиеДанные.Получить("ПлатежноеПоручение") = 0 Тогда ИмяПКО = "СБД_ПрочееСписание"; Иначе ИмяПКО = "СБД_ПеречислениеНалога"; КонецЕсли; Иначе Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>ПеремещениеДенегКасса <Наименование>Перемещение денег (касса) <Порядок>250 <КодПравилаКонвертации>ПеремещениеДенегКасса_ПриходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеремещениеДенегКасса <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.Касса = Объект.КассаПолучатель Тогда Сообщить("Документ """ + Объект + """ не будет перенесен в УТ: нет фактического перемещения денежных средств для отражения в УТ.", "."); Отказ = 1; КонецЕсли; <Группа Отключить="false"> <Код>Подотчетники <Наименование>Подотчетники <Порядок>100 <Правило Отключить="false"> <Код>АвансовыйОтчет <Наименование>Авансовый отчет <Порядок>50 <КодПравилаКонвертации>АвансовыйОтчет <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.АвансовыйОтчет <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Группа Отключить="false"> <Код>Закупка <Наименование>Закупка <Порядок>150 <Правило Отключить="false"> <Код>ЗаказПоставщику <Наименование>Заказ поставщику <Порядок>50 <КодПравилаКонвертации>ЗаказПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ЗаказПоставщику <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеТМЦОпт <Наименование>Поступление ТМЦ (купля-продажа, комиссия) <Порядок>100 <КодПравилаКонвертации>ПоступлениеТМЦ_ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТМЦ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеТМЦИмпорт <Наименование>Поступление ТМЦ (импорт) <Порядок>150 <КодПравилаКонвертации>ПоступлениеТМЦИмпорт_ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТМЦИмпорт <ПередОбработкойПравила>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>ТабНомеровГТД = СоздатьОбъект("ТаблицаЗначений"); ТабНомеровГТД.НоваяКолонка("НомерГТД"); ТабНомеровГТД.НоваяКолонка("СтранаПроисхождения"); Объект.ВыбратьСтроки(); Пока Объект.ПолучитьСтроку() = 1 Цикл Партия = Объект.Партия; ТабНомеровГТД.НоваяСтрока(); Если ПустоеЗначение(Партия) = 0 Тогда ТабНомеровГТД.НомерГТД = Партия.ГТД; ТабНомеровГТД.СтранаПроисхождения = Партия.СтранаПроисхождения; КонецЕсли; КонецЦикла; ТабНомеровГТД.Свернуть("НомерГТД,СтранаПроисхождения", ""); НомерИтерации = 1; ТабНомеровГТД.ВыбратьСтроки(); Пока ТабНомеровГТД.ПолучитьСтроку() = 1 Цикл ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("НомерИтерации", НомерИтерации); ИсходящиеДанные.Установить("КодНомераГТД", ?(ПустоеЗначение(ТабНомеровГТД.НомерГТД) = 1, "", СокрЛП(ТабНомеровГТД.НомерГТД.Наименование))); ИсходящиеДанные.Установить("СтранаПроисхожденияНомераГТД", ?(ПустоеЗначение(ТабНомеровГТД.НомерГТД) = 1, "", ТабНомеровГТД.СтранаПроисхождения)); ВыгрузитьПоПравилу(Объект,, ИсходящиеДанные,, "ПоступлениеТМЦИмпорт_ТаможеннаяДекларацияИмпорт"); НомерИтерации = НомерИтерации + 1; КонецЦикла; <Правило Отключить="false"> <Код>ВозвратПоставщику <Наименование>Возврат поставщику (купля-продажа, комиссия) <Порядок>200 <КодПравилаКонвертации>ВозвратПоставщику_ВозвратТоваровПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратПоставщику <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеДопРасходы <Наименование>Поступление (доп., трансп., внереал. расходы по ТМЦ) <Порядок>250 <КодПравилаКонвертации>ПоступлениеДопРасходы_ПоступлениеУслугВА <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеДопРасходы <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ПоступлениеПрочее <Наименование>Поступление (услуги и пр.) <Порядок>400 <КодПравилаКонвертации>ПоступлениеПрочее_ПоступлениеУслугВА <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеПрочее <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ОтчетКомитенту <Наименование>Отчет комитенту <Порядок>450 <КодПравилаКонвертации>ОтчетКомитенту <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетКомитенту <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>СчетФактураПолученныйКомитента <Наименование>Счет-фактура полученный от комитента <Порядок>500 <КодПравилаКонвертации>СчетФактураПолученный_СчетФактураКомитента <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураПолученный <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.СФНаАванс = 1 Тогда Возврат 1; Иначе ДокОснование = Объект.ДокОснование; Если ПустоеЗначение(ДокОснование) = 1 Тогда Возврат 1; ИначеЕсли ДокОснование.Вид() <> "ОтчетКомитенту" Тогда Возврат 1; КонецЕсли; КонецЕсли; <Правило Отключить="false"> <Код>СчетФактураПолученный <Наименование>Счет-фактура полученный <Порядок>500 <КодПравилаКонвертации>СчетФактураПолученный_СчетФактураПолученный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураПолученный <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.СФНаАванс = 1 Тогда Возврат 1; Иначе ДокОснование = Объект.ДокОснование; Если ПустоеЗначение(ДокОснование) = 1 Тогда Возврат 1; ИначеЕсли ДокОснование.Вид() = "ОтчетКомитенту" Тогда // Действует другое ПКО Возврат 1; ИначеЕсли (ДокОснование.Вид() <> "ПоступлениеТМЦ") И (ДокОснование.Вид() <> "ПоступлениеДопРасходы") И (ДокОснование.Вид() <> "ПоступлениеТМЦРозница") И (ДокОснование.Вид() <> "ПоступлениеПрочее") И (ДокОснование.Вид() <> "СтрокаАвансОтчетаТМЦ") И (ДокОснование.Вид() <> "ВозвратОтПокупателя") Тогда Возврат 1; КонецЕсли; КонецЕсли; <Группа Отключить="false"> <Код>Продажа <Наименование>Продажа <Порядок>200 <Правило Отключить="false"> <Код>НеподтвержденнаяЗаявкаПокупателя <Наименование>Неподтвержденная заявка <Порядок>50 <КодПравилаКонвертации>ЗаявкаПокупателя_КоммерческоеПредложениеКлиенту <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ЗаявкаПокупателя <ПередОбработкойПравила>Если Параметры.ЭтоПереходНаБазовуюВерсию = 1 Тогда Отказ = 1; КонецЕсли; Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если (Объект.ВидОперации <> Перечисление.ВидыОперацийЗаявок.Неподтвержденная) Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>ЗаявкаПокупателя <Наименование>Заявка (на склад, на поставку) <Порядок>100 <КодПравилаКонвертации>ЗаявкаПокупателя_ЗаказКлиента <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ЗаявкаПокупателя <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ВидОперации = Перечисление.ВидыОперацийЗаявок.Неподтвержденная Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>ОптоваяРеализация <Наименование>Реализация (купля-продажа, комиссия) <Порядок>150 <КодПравилаКонвертации>Реализация_РеализацияТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Реализация <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ВозвратОтПокупателя <Наименование>Возврат от покупателя (купля-продажа, комиссия) <Порядок>200 <КодПравилаКонвертации>ВозвратОтПокупателя_ВозвратТоваровОтКлиента <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратОтПокупателя <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>РеализацияПрочее <Наименование>Реализация (ОС, НМА и пр.) <Порядок>250 <КодПравилаКонвертации>РеализацияПрочее_РеализацияУслугПрочихАктивов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияПрочее <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ОтчетКомиссионера <Наименование>Отчет комиссионера <Порядок>300 <КодПравилаКонвертации>ОтчетКомиссионера <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетКомиссионера <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>СчетФактураВыданный <Наименование>Счет-фактура выданный <Порядок>350 <КодПравилаКонвертации>СчетФактураВыданный_СчетФактураВыданный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураВыданный <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.СФНаАванс = 1 Тогда Возврат 1; Иначе ДокОснование = Объект.ДокОснование; Если ПустоеЗначение(ДокОснование) = 1 Тогда Возврат 1; ИначеЕсли ДокОснование.Вид() = "РеализацияРозница" Тогда Если ДокОснование.ВидОперации <> Перечисление.ВидыОперацийРеализацияРозница.Прочее Тогда Возврат 1; КонецЕсли; ИначеЕсли ДокОснование.Вид() = "ОтчетКомиссионера" Тогда // Действует другое ПКО Возврат 1; ИначеЕсли (ДокОснование.Вид() <> "ВозвратПоставщику") И (ДокОснование.Вид() <> "ОтчетКомитенту") И (ДокОснование.Вид() <> "Реализация") И (ДокОснование.Вид() <> "РеализацияПрочее") И (ДокОснование.Вид() <> "РеализацияРозница") Тогда Возврат 1; КонецЕсли; КонецЕсли; <Правило Отключить="false"> <Код>СчетФактураВыданныйКомиссионеру <Наименование>Счет-фактура выданный комиссионеру <Порядок>350 <КодПравилаКонвертации>СчетФактураВыданный_СчетФактураКомиссионеру <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактураВыданный <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.СФНаАванс = 1 Тогда Возврат 1; Иначе ДокОснование = Объект.ДокОснование; Если ПустоеЗначение(ДокОснование) = 1 Тогда Возврат 1; ИначеЕсли ДокОснование.Вид() <> "ОтчетКомиссионера" Тогда Возврат 1; КонецЕсли; КонецЕсли; <Группа Отключить="false"> <Код>Розница <Наименование>Розничная торговля <Порядок>250 <Правило Отключить="false"> <Код>ПоступлениеТМЦРозница <Наименование>Поступление в розницу (купля-продажа, комиссия) <Порядок>50 <КодПравилаКонвертации>ПоступлениеТМЦРозница_ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТМЦРозница <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ПродажиПоПринятойВыручке <Наименование>Продажи по принятой выручке <Порядок>100 <КодПравилаКонвертации>РеализацияРозница_ОтчетОРозничныхПродажах <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияРозница <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ВидОперации <> Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>ПрочаяРозничнаяРеализация <Наименование>Прочая розничная реализация <Порядок>150 <КодПравилаКонвертации>РеализацияРозница_РеализацияТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеализацияРозница <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПередВыгрузкойОбъекта>Если Объект.ВидОперации <> Перечисление.ВидыОперацийРеализацияРозница.Прочее Тогда Отказ = 1; КонецЕсли; <Правило Отключить="false"> <Код>ОтчетККМ <Наименование>Отчет ККМ <Порядок>200 <КодПравилаКонвертации>ОтчетККМ_ОтчетОРозничныхПродажах <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетККМ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПослеВыгрузкиОбъекта>// Перенос денег из кассы ККМ в операционную кассу ВыгрузитьПоПравилу(Объект,,,, "ОтчетККМ_ПКО_РозничнаяВыручка"); <Правило Отключить="false"> <Код>ПереоценкаРозница <Наименование>Переоценка (розница) <Порядок>250 <КодПравилаКонвертации>ПереоценкаРозница_УстановкаЦенНоменклатуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПереоценкаРозница <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Группа Отключить="false"> <Код>Склад <Наименование>Склад <Порядок>300 <Правило Отключить="true"> <Код>ИнвентаризацияТМЦ <Наименование>Инвентаризация (по складу, по рознице) <Порядок>50 <КодПравилаКонвертации>ИнвентаризацияТМЦ_ПересчетТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИнвентаризацияТМЦ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>СписаниеТМЦ <Наименование>Списание ТМЦ <Порядок>100 <КодПравилаКонвертации>СписаниеТМЦ_СписаниеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СписаниеТМЦ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ОприходованиеТМЦ <Наименование>Оприходование ТМЦ <Порядок>150 <КодПравилаКонвертации>ОприходованиеТМЦ_ОприходованиеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОприходованиеТМЦ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>ПеремещениеТМЦ <Наименование>Перемещение ТМЦ <Порядок>200 <КодПравилаКонвертации>ПеремещениеТМЦ_ПеремещениеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеремещениеТМЦ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>КомплектацияТМЦ <Наименование>Комплектация (разукомплектация) ТМЦ <Порядок>250 <КодПравилаКонвертации>КомплектацияТМЦ_СборкаТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.КомплектацияТМЦ <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПослеВыгрузкиОбъекта>Если Объект.Склад <> Объект.СкладПолучатель Тогда ВыгрузитьПоПравилу(Объект,, ИсходящиеДанные,, "КомплектацияТМЦ_ПеремещениеТоваров"); КонецЕсли; <Группа Отключить="false"> <Код>ПрочиеДокументы <Наименование>Прочее <Порядок>350 <Правило Отключить="false"> <Код>Доверенность <Наименование>Доверенность <Порядок>50 <КодПравилаКонвертации>Доверенность_ДоверенностьНаПолучениеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Доверенность <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <Правило Отключить="false"> <Код>КорректировкаДолга <Наименование>Корректировка долга (покупателя, поставщика) <Порядок>100 <КодПравилаКонвертации>КорректировкаДолга_СписаниеЗадолженности <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.КорректировкаДолга <ПередОбработкойПравила>Если (ПустоеЗначение(Параметры.ЭтапПереноса) = 0) И (Параметры.ЭтапПереноса <> 3) Тогда Возврат 1; КонецЕсли; <ПравилаОчисткиДанных/> <Алгоритмы> <Группа Имя="Выгрузка"> <Группа Имя="_КонтактнаяИнформация"> <Алгоритм Имя="ВыгрузитьВебСтраницу" ИспользуетсяПриЗагрузке="false"> <Текст>ВебСтраница = СокрЛП(ВходящиеДанные.Получить("ВебСтраница")); Родитель = ВходящиеДанные.Получить("Родитель"); Если (Родитель = "СправочникПартнеры") Или (Родитель = "СправочникКонтрагенты") Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Сайт"); Вид.Установить("Тип", "ВебСтраница"); Вид.Установить("Родитель", Родитель); КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Вид = Вид; КоллекцияОбъектов.Тип = "ВебСтраница"; КоллекцияОбъектов.Представление = ВебСтраница; Стр = ВебСтраница; // Вырежем имя протокола Поз = Найти(Стр, "://"); Если Поз <> 0 Тогда ЛевЧасть = НРег(Лев(Стр, Поз-1)); Если (ЛевЧасть = "http") ИЛИ (ЛевЧасть = "https") Тогда Стр = Сред(Стр, Поз + 3); КонецЕсли; КонецЕсли; // Вырежем слева www Если НРег(Лев(Стр, 4)) = "www." Тогда Стр = Сред(Стр, 5); КонецЕсли; Поз = Найти(Стр, "/"); КоллекцияОбъектов.ДоменноеИмяСервера = ?(Поз = 0, Стр, Лев(Стр, Поз-1)); <Алгоритм Имя="ВыгрузитьСтрокуАдреса" ИспользуетсяПриЗагрузке="false"> <Текст>Адрес = ВходящиеДанные.Получить("Адрес"); КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Тип = "Адрес"; КоллекцияОбъектов.Вид = ВходящиеДанные.Получить("Вид"); Если глАдресСоответствуетТребованиямМНС(Адрес) = 1 Тогда ЗначенияПолей = СоздатьОбъект("СписокЗначений");; ЗначенияПолей.Установить("Регион", ""); ЗначенияПолей.Установить("Район", ""); ЗначенияПолей.Установить("Город", ""); ЗначенияПолей.Установить("НаселенныйПункт", ""); ЗначенияПолей.Установить("Улица", ""); ЗначенияПолей.Установить("Дом", ""); ЗначенияПолей.Установить("Корпус", ""); ЗначенияПолей.Установить("Квартира", ""); ЗначенияПолей.Установить("КодСтраны", "643"); ЗначенияПолей.Установить("Индекс", ""); ЗначенияПолей.Установить("ТипДома", "дом"); ЗначенияПолей.Установить("ТипКорпуса", "корпус"); ЗначенияПолей.Установить("ТипКвартиры", "кв."); ЗначенияПолей.Установить("Представление", ""); // Получение полей адреса АдресСписком = глРазложить(Адрес); Попытка ЗначенияПолей.Установить("Индекс", АдресСписком.ПолучитьЗначение(2)); ЗначенияПолей.Установить("Регион", АдресСписком.ПолучитьЗначение(3)); ЗначенияПолей.Установить("Район", АдресСписком.ПолучитьЗначение(4)); ЗначенияПолей.Установить("Город", АдресСписком.ПолучитьЗначение(5)); ЗначенияПолей.Установить("НаселенныйПункт", АдресСписком.ПолучитьЗначение(6)); ЗначенияПолей.Установить("Улица", АдресСписком.ПолучитьЗначение(7)); ЗначенияПолей.Установить("Дом", АдресСписком.ПолучитьЗначение(8)); ЗначенияПолей.Установить("Корпус", АдресСписком.ПолучитьЗначение(9)); ЗначенияПолей.Установить("Квартира", АдресСписком.ПолучитьЗначение(10)); Исключение КонецПопытки; КоллекцияОбъектов.Город = ЗначенияПолей.Получить("Город"); КоллекцияОбъектов.Регион = ЗначенияПолей.Получить("Регион"); КоллекцияОбъектов.Страна = ЗначенияПолей.Получить("Страна"); Представление = ""; Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Индекс"))) = 0, ", " + СокрЛП(ЗначенияПолей.Получить("Индекс")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Регион"))) = 0, ", " + СокрЛП(ЗначенияПолей.Получить("Регион")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Район"))) = 0, ", " + СокрЛП(ЗначенияПолей.Получить("Район")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Город"))) = 0, ", " + СокрЛП(ЗначенияПолей.Получить("Город")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("НаселенныйПункт"))) = 0, ", " + СокрЛП(ЗначенияПолей.Получить("НаселенныйПункт")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Улица"))) = 0, ", " + СокрЛП(ЗначенияПолей.Получить("Улица")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Дом"))) = 0, ", " + ЗначенияПолей.Получить("ТипДома") + " № " + СокрЛП(ЗначенияПолей.Получить("Дом")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Корпус"))) = 0, ", " + ЗначенияПолей.Получить("ТипКорпуса") + " " + СокрЛП(ЗначенияПолей.Получить("Корпус")), ""); Представление = Представление + ?(ПустоеЗначение(СокрЛП(ЗначенияПолей.Получить("Квартира"))) = 0, ", " + ЗначенияПолей.Получить("ТипКвартиры") + " " + СокрЛП(ЗначенияПолей.Получить("Квартира")), ""); Если СтрДлина(Представление) > 2 Тогда Представление = Сред(Представление, 3); КонецЕсли; ЗначенияПолей.Установить("Представление", Представление); КоллекцияОбъектов.ЗначенияПолей = ""; Для Номер = 1 По ЗначенияПолей.РазмерСписка() Цикл Ключ = ""; Значение = ЗначенияПолей.ПолучитьЗначение(Номер, Ключ); КоллекцияОбъектов.ЗначенияПолей = КоллекцияОбъектов.ЗначенияПолей + ?(ПустоеЗначение(Значение) = 0, Ключ + "=" + Значение + Симв(10), ""); КонецЦикла; КоллекцияОбъектов.ЗначенияПолей = Лев(КоллекцияОбъектов.ЗначенияПолей, СтрДлина(КоллекцияОбъектов.ЗначенияПолей) - 1); КоллекцияОбъектов.Представление = Представление; Иначе КоллекцияОбъектов.Представление = Адрес; КонецЕсли; <Алгоритм Имя="ВыгрузитьТелефоны" ИспользуетсяПриЗагрузке="false"> <Текст>СписокТелефонов = глРазложить(ВходящиеДанные.Получить("Телефон"), Параметры.РазделительТелефонов); Для Номер = 1 По СписокТелефонов.РазмерСписка() Цикл Телефон = СокрЛП(СписокТелефонов.ПолучитьЗначение(Номер)); Родитель = ВходящиеДанные.Получить("Родитель"); Если Родитель = "СправочникОрганизации" Тогда Вид = "ТелефонОрганизации"; Если Номер > 1 Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Телефон " + (Номер - 1)); КонецЕсли; ИначеЕсли Родитель = "СправочникПартнеры" Тогда Вид = "ТелефонПартнера"; Если Номер > 1 Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Телефон " + (Номер - 1)); КонецЕсли; ИначеЕсли Родитель = "СправочникКонтрагенты" Тогда Вид = "ТелефонКонтрагента"; Если Номер > 1 Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Телефон " + (Номер - 1)); КонецЕсли; ИначеЕсли Родитель = "СправочникФизическиеЛица" Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Телефон"); Если Номер > 1 Тогда Вид.Установить("Наименование", "Телефон " + (Номер - 1)); КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(Вид) = "СписокЗначений" Тогда Вид.Установить("Тип", "Телефон"); Вид.Установить("Родитель", Родитель); КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Вид = Вид; КоллекцияОбъектов.Тип = "Телефон"; КоллекцияОбъектов.Представление = Телефон; КоллекцияОбъектов.ЗначенияПолей = "НомерТелефона=" + Телефон + Симв(10); КоллекцияОбъектов.НомерТелефона = Телефон; КонецЦикла; <Алгоритм Имя="ВыгрузитьЭлектроннуюПочту" ИспользуетсяПриЗагрузке="false"> <Текст>СписокЭлектроннойПочты = глРазложить(ВходящиеДанные.Получить("ЭлектроннаяПочта"), Параметры.РазделительТелефонов); Для Номер = 1 По СписокЭлектроннойПочты.РазмерСписка() Цикл ЭлектроннаяПочта = СокрЛП(СписокЭлектроннойПочты.ПолучитьЗначение(Номер)); Родитель = ВходящиеДанные.Получить("Родитель"); Если (Родитель = "СправочникПартнеры") Или (Родитель = "СправочникКонтрагенты") Тогда Вид = "EmailПартнера"; Если Номер > 1 Тогда Вид = СоздатьОбъект("СписокЗначений"); Вид.Установить("Наименование", "Email " + (Номер - 1)); КонецЕсли; КонецЕсли; Если ТипЗначенияСтр(Вид) = "СписокЗначений" Тогда Вид.Установить("Тип", "АдресЭлектроннойПочты"); Вид.Установить("Родитель", Родитель); КонецЕсли; КоллекцияОбъектов.НоваяСтрока(); КоллекцияОбъектов.Вид = Вид; КоллекцияОбъектов.Тип = "АдресЭлектроннойПочты"; КоллекцияОбъектов.Представление = ЭлектроннаяПочта; КоллекцияОбъектов.АдресЭП = ЭлектроннаяПочта; Поз = Найти(ЭлектроннаяПочта, "@"); Если Поз <> 0 Тогда КоллекцияОбъектов.ДоменноеИмяСервера = Сред(ЭлектроннаяПочта, Поз+1); КонецЕсли; КонецЦикла; <Алгоритм Имя="ВыгрузитьДоговорВДоговор" ИспользуетсяПриЗагрузке="false"> <Текст>// Определяются дополнительные параметры методом анализа данных ИсходящиеДанные = ?(ТипЗначенияСтр(ИсходящиеДанные) = "СписокЗначений", ИсходящиеДанные, СоздатьОбъект("СписокЗначений")); ВыгружаемыйДоговор = ИсходящиеДанные.Получить("Договор"); Если ПустоеЗначение(ВыгружаемыйДоговор) = 1 Тогда ВыгружаемыйДоговор = ?(ПустоеЗначение(Значение) = 0, Значение, Объект); КонецЕсли; Организация = ИсходящиеДанные.Получить("Организация"); ХозяйственнаяОперация = ИсходящиеДанные.Получить("ХозяйственнаяОперация"); СписокХозяйственныхОпераций = ИсходящиеДанные.Получить("СписокХозяйственныхОпераций"); СписокХозяйственныхОпераций = ?(ТипЗначенияСтр(СписокХозяйственныхОпераций) = "СписокЗначений", СписокХозяйственныхОпераций, СоздатьОбъект("СписокЗначений")); ПорядокОплаты = ИсходящиеДанные.Получить("ПорядокОплаты"); Если (ПустоеЗначение(Организация) = 1) ИЛИ (ПустоеЗначение(ХозяйственнаяОперация) = 1) ИЛИ (ПустоеЗначение(ПорядокОплаты) = 1) Тогда Если Параметры.СтатистикаПоДоговорам_СортДоговор = -1 Тогда СформироватьСтатистикуПоДоговорам(); КонецЕсли; Если (ПустоеЗначение(Организация) = 1) ИЛИ (ПустоеЗначение(ХозяйственнаяОперация) = 1) Тогда СписокХозоперацийЗадан = 0; Если СписокХозяйственныхОпераций.РазмерСписка() > 0 Тогда ХозяйственнаяОперацияПоУмолчанию = СписокХозяйственныхОпераций.ПолучитьЗначение(1); СписокХозоперацийЗадан = 1; Иначе ХозяйственнаяОперацияПоУмолчанию = "РеализацияКлиенту"; КонецЕсли; // Отбираем из статистики записи только по данному договору, удовлетворяющие переданным критериям СтатистикаПоТекущемуДоговору = СоздатьОбъект("ТаблицаЗначений"); СтатистикаПоТекущемуДоговору.НоваяКолонка("Организация"); СтатистикаПоТекущемуДоговору.НоваяКолонка("ХозяйственнаяОперация"); СтатистикаПоТекущемуДоговору.НоваяКолонка("Оборот"); НомерНайденнойСтроки = 0; СтатистикаПоВсемДоговорам = Параметры.СтатистикаПоДоговорам_СортДоговор; Если СтатистикаПоВсемДоговорам.НайтиЗначение(ВыгружаемыйДоговор, НомерНайденнойСтроки, "Договор") = 1 Тогда Для НомерСтроки = НомерНайденнойСтроки По СтатистикаПоВсемДоговорам.КоличествоСтрок() Цикл СтатистикаПоВсемДоговорам.ПолучитьСтрокуПоНомеру(НомерСтроки); Если СтатистикаПоВсемДоговорам.Договор <> ВыгружаемыйДоговор Тогда Прервать; КонецЕсли; Если ((ПустоеЗначение(Организация) = 1) ИЛИ (СтатистикаПоВсемДоговорам.Организация = Организация)) И ((ПустоеЗначение(ХозяйственнаяОперация) = 1) ИЛИ (СтатистикаПоВсемДоговорам.ХозяйственнаяОперация = ХозяйственнаяОперация)) И ((СписокХозяйственныхОпераций.РазмерСписка() = 0) ИЛИ (СписокХозяйственныхОпераций.НайтиЗначение(СтатистикаПоВсемДоговорам.ХозяйственнаяОперация) <> 0)) Тогда СтатистикаПоТекущемуДоговору.НоваяСтрока(); СтатистикаПоТекущемуДоговору.Организация = СтатистикаПоВсемДоговорам.Организация; СтатистикаПоТекущемуДоговору.ХозяйственнаяОперация = СтатистикаПоВсемДоговорам.ХозяйственнаяОперация; СтатистикаПоТекущемуДоговору.Оборот = СтатистикаПоВсемДоговорам.Оборот; КонецЕсли; КонецЦикла; КонецЕсли; Если СтатистикаПоТекущемуДоговору.КоличествоСтрок() > 0 Тогда СтатистикаПоТекущемуДоговору.Сортировать("Оборот-"); СтатистикаПоТекущемуДоговору.ПолучитьСтрокуПоНомеру(1); Организация = СтатистикаПоТекущемуДоговору.Организация; ХозяйственнаяОперация = СтатистикаПоТекущемуДоговору.ХозяйственнаяОперация; КонецЕсли; Если ПустоеЗначение(Организация) = 1 Тогда ФирмаПользователя = глЗначениеПоУмолчанию("ОсновнаяФирма"); Если ПустоеЗначение(ФирмаПользователя) = 0 Тогда Организация = ФирмаПользователя.ЮрЛицо; Иначе ИсходящиеДанные.Установить("Ошибка", "не удалось определить организацию"); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ХозяйственнаяОперация) = 1 Тогда ХозяйственнаяОперация = ХозяйственнаяОперацияПоУмолчанию; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ПорядокОплаты) = 1 Тогда ПоследниеДокументыПоДоговорам = Параметры.ПервыеИПоследниеДокументыПоДоговорам; НомерНайденнойСтроки = 0; Если ПоследниеДокументыПоДоговорам.НайтиЗначение(ВыгружаемыйДоговор, НомерНайденнойСтроки, "Договор") = 1 Тогда ПоследниеДокументыПоДоговорам.ПолучитьСтрокуПоНомеру(НомерНайденнойСтроки); ПоследнийДокументПоДоговору = ПоследниеДокументыПоДоговорам.ПоследнийДокумент; Если ВыгружаемыйДоговор.ВалютаВзаиморасчетов <> Константа.ВалютаБухУчета Тогда ПорядокОплаты = ?(ПоследнийДокументПоДоговору.Вид() = "ПоступлениеТМЦИмпорт", "РасчетыВВалютеОплатаВВалюте", "РасчетыВВалютеОплатаВРублях"); Иначе ПорядокОплаты = "РасчетыВРубляхОплатаВРублях"; КонецЕсли; Иначе ПорядокОплаты = ?(ВыгружаемыйДоговор.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях"); КонецЕсли; КонецЕсли; КонецЕсли; ИсходящиеДанные.Установить("Организация", Организация); ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозяйственнаяОперация); ИсходящиеДанные.Установить("ПорядокОплаты", ПорядокОплаты); ИсходящиеДанные.Установить("ОбъектРасчетов", ВыгружаемыйДоговор); <Алгоритм Имя="ВыгрузитьДоговорВСоглашение" ИспользуетсяПриЗагрузке="false"> <Текст>// Выбирается ПКО для объекта или значения свойства // Определяются дополнительные параметры методом анализа данных ИсходящиеДанные = ?(ТипЗначенияСтр(ИсходящиеДанные) = "СписокЗначений", ИсходящиеДанные, СоздатьОбъект("СписокЗначений")); ВыгружаемыйДоговор = ИсходящиеДанные.Получить("Договор"); Если ПустоеЗначение(ВыгружаемыйДоговор) = 1 Тогда ВыгружаемыйДоговор = ?(ПустоеЗначение(Значение) = 0, Значение, Объект); КонецЕсли; Организация = ИсходящиеДанные.Получить("Организация"); ХозяйственнаяОперация = ИсходящиеДанные.Получить("ХозяйственнаяОперация"); СписокХозяйственныхОпераций = ИсходящиеДанные.Получить("СписокХозяйственныхОпераций"); СписокХозяйственныхОпераций = ?(ТипЗначенияСтр(СписокХозяйственныхОпераций) = "СписокЗначений", СписокХозяйственныхОпераций, СоздатьОбъект("СписокЗначений")); НалогообложениеНДС = ИсходящиеДанные.Получить("НалогообложениеНДС"); ЦенаВключаетНДС = ИсходящиеДанные.Получить("ЦенаВключаетНДС"); ПорядокОплаты = ИсходящиеДанные.Получить("ПорядокОплаты"); Если (ЦенаВключаетНДС <> 1) И (ЦенаВключаетНДС <> 0) Тогда ЦенаВключаетНДС = -1; КонецЕсли; Если (ПустоеЗначение(Организация) = 1) ИЛИ (ПустоеЗначение(ХозяйственнаяОперация) = 1) ИЛИ (ПустоеЗначение(НалогообложениеНДС) = 1) ИЛИ (ЦенаВключаетНДС = -1) ИЛИ (ПустоеЗначение(ПорядокОплаты) = 1) Тогда Если Параметры.СтатистикаПоДоговорам_СортДоговор = -1 Тогда СформироватьСтатистикуПоДоговорам(); КонецЕсли; Если (ПустоеЗначение(Организация) = 1) ИЛИ (ПустоеЗначение(ХозяйственнаяОперация) = 1) Тогда СписокХозоперацийЗадан = 0; Если СписокХозяйственныхОпераций.РазмерСписка() > 0 Тогда ХозяйственнаяОперацияПоУмолчанию = СписокХозяйственныхОпераций.ПолучитьЗначение(1); СписокХозоперацийЗадан = 1; Иначе ХозяйственнаяОперацияПоУмолчанию = "РеализацияКлиенту"; КонецЕсли; // Отбираем из статистики записи только по данному договору, удовлетворяющие переданным критериям СтатистикаПоТекущемуДоговору = СоздатьОбъект("ТаблицаЗначений"); СтатистикаПоТекущемуДоговору.НоваяКолонка("Организация"); СтатистикаПоТекущемуДоговору.НоваяКолонка("ХозяйственнаяОперация"); СтатистикаПоТекущемуДоговору.НоваяКолонка("Оборот"); НомерНайденнойСтроки = 0; СтатистикаПоВсемДоговорам = Параметры.СтатистикаПоДоговорам_СортДоговор; Если СтатистикаПоВсемДоговорам.НайтиЗначение(ВыгружаемыйДоговор, НомерНайденнойСтроки, "Договор") = 1 Тогда Для НомерСтроки = НомерНайденнойСтроки По СтатистикаПоВсемДоговорам.КоличествоСтрок() Цикл СтатистикаПоВсемДоговорам.ПолучитьСтрокуПоНомеру(НомерСтроки); Если СтатистикаПоВсемДоговорам.Договор <> ВыгружаемыйДоговор Тогда Прервать; КонецЕсли; Если ((ПустоеЗначение(Организация) = 1) ИЛИ (СтатистикаПоВсемДоговорам.Организация = Организация)) И ((ПустоеЗначение(ХозяйственнаяОперация) = 1) ИЛИ (СтатистикаПоВсемДоговорам.ХозяйственнаяОперация = ХозяйственнаяОперация)) И ((СписокХозяйственныхОпераций.РазмерСписка() = 0) ИЛИ (СписокХозяйственныхОпераций.НайтиЗначение(СтатистикаПоВсемДоговорам.ХозяйственнаяОперация) <> 0)) Тогда СтатистикаПоТекущемуДоговору.НоваяСтрока(); СтатистикаПоТекущемуДоговору.Организация = СтатистикаПоВсемДоговорам.Организация; СтатистикаПоТекущемуДоговору.ХозяйственнаяОперация = СтатистикаПоВсемДоговорам.ХозяйственнаяОперация; СтатистикаПоТекущемуДоговору.Оборот = СтатистикаПоВсемДоговорам.Оборот; КонецЕсли; КонецЦикла; КонецЕсли; Если СтатистикаПоТекущемуДоговору.КоличествоСтрок() > 0 Тогда СтатистикаПоТекущемуДоговору.Сортировать("Оборот-"); СтатистикаПоТекущемуДоговору.ПолучитьСтрокуПоНомеру(1); Организация = СтатистикаПоТекущемуДоговору.Организация; ХозяйственнаяОперация = СтатистикаПоТекущемуДоговору.ХозяйственнаяОперация; КонецЕсли; Если ПустоеЗначение(Организация) = 1 Тогда ФирмаПользователя = глЗначениеПоУмолчанию("ОсновнаяФирма"); Если ПустоеЗначение(ФирмаПользователя) = 0 Тогда Организация = ФирмаПользователя.ЮрЛицо; Иначе ИсходящиеДанные.Установить("Ошибка", "не удалось определить организацию"); КонецЕсли; КонецЕсли; Если ПустоеЗначение(ХозяйственнаяОперация) = 1 Тогда ХозяйственнаяОперация = ХозяйственнаяОперацияПоУмолчанию; КонецЕсли; КонецЕсли; Если (ПустоеЗначение(НалогообложениеНДС) = 1) ИЛИ (ЦенаВключаетНДС = -1) ИЛИ (ПустоеЗначение(ПорядокОплаты) = 1) Тогда ПоследниеДокументыПоДоговорам = Параметры.ПервыеИПоследниеДокументыПоДоговорам; НомерНайденнойСтроки = 0; Если ПоследниеДокументыПоДоговорам.НайтиЗначение(ВыгружаемыйДоговор, НомерНайденнойСтроки, "Договор") = 1 Тогда ПоследниеДокументыПоДоговорам.ПолучитьСтрокуПоНомеру(НомерНайденнойСтроки); ПоследнийДокументПоДоговору = ПоследниеДокументыПоДоговорам.ПоследнийДокумент; Если ПоследнийДокументПоДоговору.Вид() = "ПоступлениеТМЦИмпорт" Тогда Если ПустоеЗначение(НалогообложениеНДС) = 1 Тогда НалогообложениеНДС = "ПродажаНаЭкспорт"; КонецЕсли; Если ЦенаВключаетНДС = -1 Тогда ЦенаВключаетНДС = 1; КонецЕсли; Если ПустоеЗначение(ПорядокОплаты) = 1 Тогда ПорядокОплаты = ?(ВыгружаемыйДоговор.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВВалюте"); КонецЕсли; Иначе Если ПустоеЗначение(НалогообложениеНДС) = 1 Тогда НалогообложениеНДС = ?(ПоследниеДокументыПоДоговорам.ПоследнийДокумент.УчитыватьНДС = 1, "ПродажаОблагаетсяНДС", "ПродажаНеОблагаетсяНДС"); Если ПоследнийДокументПоДоговору.Вид() = "РеализацияРозница" Тогда Если ПоследнийДокументПоДоговору.ОблагаетсяЕНВД = 1 Тогда НалогообложениеНДС = "ПродажаОблагаетсяЕНВД"; КонецЕсли; КонецЕсли; КонецЕсли; Если ЦенаВключаетНДС = -1 Тогда ЦенаВключаетНДС = ПоследниеДокументыПоДоговорам.ПоследнийДокумент.СуммаВклНДС; КонецЕсли; Если ПустоеЗначение(ПорядокОплаты) = 1 Тогда ПорядокОплаты = ?(ВыгружаемыйДоговор.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях"); КонецЕсли; КонецЕсли; Иначе Если ПустоеЗначение(НалогообложениеНДС) = 1 Тогда НалогообложениеНДС = "ПродажаОблагаетсяНДС"; КонецЕсли; Если ЦенаВключаетНДС = -1 Тогда ЦенаВключаетНДС = 1; КонецЕсли; Если ПустоеЗначение(ПорядокОплаты) = 1 Тогда ПорядокОплаты = ?(ВыгружаемыйДоговор.ВалютаВзаиморасчетов = Константа.ВалютаБухУчета, "РасчетыВРубляхОплатаВРублях", "РасчетыВВалютеОплатаВРублях"); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; Если ХозяйственнаяОперация = "РеализацияКлиенту" Тогда ИмяПКО = "Договор_СоглашениеСКлиентомИндивидуальное"; ИначеЕсли ХозяйственнаяОперация = "ПередачаНаКомиссию" Тогда ИмяПКО = "Договор_СоглашениеСКомиссионеромИндивидульное"; ИначеЕсли ХозяйственнаяОперация = "ЗакупкаУПоставщика" Тогда ИмяПКО = "Договор_СоглашениеСПоставщиком"; ИначеЕсли ХозяйственнаяОперация = "ЗакупкаПоИмпорту" Тогда ИмяПКО = "Договор_СоглашениеСПоставщикомПоИмпорту"; ИначеЕсли ХозяйственнаяОперация = "ПриемНаКомиссию" Тогда ИмяПКО = "Договор_СоглашениеСКомитентом"; КонецЕсли; ИсходящиеДанные.Установить("ИмяПКО", ИмяПКО); ИсходящиеДанные.Установить("Организация", Организация); ИсходящиеДанные.Установить("ХозяйственнаяОперация", ХозяйственнаяОперация); ИсходящиеДанные.Установить("НалогообложениеНДС", НалогообложениеНДС); ИсходящиеДанные.Установить("ЦенаВключаетНДС", ЦенаВключаетНДС); ИсходящиеДанные.Установить("ПорядокОплаты", ПорядокОплаты); <Алгоритм Имя="ВыгрузитьДополнительныеРеквизиты" ИспользуетсяПриЗагрузке="false"> <Текст>КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); КоллекцияОбъектов.НоваяКолонка("Значение"); КоллекцияОбъектов.НоваяКолонка("Свойство"); // Не допреквизиты, если они не используются Если (ПустоеЗначение(Константа.ВидСвойстваКонтрагентов) = 1) И (ПустоеЗначение(Константа.ВидСвойстваНоменклатуры) = 1) ИЛИ (Источник.ЭтоГруппа() = 1) Тогда Возврат 0; КонецЕсли; ВидСправочника = ВходящиеДанные.Получить("ВидСправочника"); ТабДополнительныеРеквизиты = ?(ВидСправочника = "СвойстваНоменклатуры", Параметры.ДополнительныеРеквизитыНоменклатуры, Параметры.ДополнительныеРеквизитыКонтрагентов); Если ТабДополнительныеРеквизиты = -1 Тогда ТабДополнительныеРеквизиты = СоздатьОбъект("ТаблицаЗначений"); ТабДополнительныеРеквизиты.НоваяКолонка("Номенклатура"); ТабДополнительныеРеквизиты.НоваяКолонка("КоллекцияОбъектов"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(СвойстваНоменклатурыКонтрагентов) |ВидСвойства = Справочник.#.ВидСвойства; |ЗначениеСвойства = Справочник.#.ЗначениеСвойства; |Владелец = Справочник.#.Владелец; |Функция Счётчик = Счётчик(); |Группировка Владелец упорядочить по Владелец.Код без групп; |Группировка ВидСвойства упорядочить по ВидСвойства.Код без групп; |Группировка ЗначениеСвойства без групп; |"//}}ЗАПРОС ; ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#", ВидСправочника); Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабДополнительныеРеквизиты.НоваяСтрока(); ТабДополнительныеРеквизиты.Номенклатура = Запрос.Владелец; ТабДополнительныеРеквизиты.КоллекцияОбъектов = СоздатьОбъект("ТаблицаЗначений"); ТабДополнительныеРеквизиты.КоллекцияОбъектов.НоваяКолонка("Значение"); ТабДополнительныеРеквизиты.КоллекцияОбъектов.НоваяКолонка("Свойство"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл ТабДополнительныеРеквизиты.КоллекцияОбъектов.НоваяСтрока(); ТабДополнительныеРеквизиты.КоллекцияОбъектов.Значение = Запрос.ЗначениеСвойства; ТабДополнительныеРеквизиты.КоллекцияОбъектов.Свойство = Запрос.ВидСвойства; Прервать; КонецЦикла; КонецЦикла; КонецЦикла; КонецЕсли; Если ВидСправочника = "СвойстваНоменклатуры" Тогда Параметры.ДополнительныеРеквизитыНоменклатуры = ТабДополнительныеРеквизиты; Иначе Параметры.ДополнительныеРеквизитыКонтрагентов = ТабДополнительныеРеквизиты; КонецЕсли; НомерСтроки = 0; Если ТабДополнительныеРеквизиты.НайтиЗначение(Источник, НомерСтроки, "Номенклатура") = 1 Тогда КоллекцияОбъектов = ТабДополнительныеРеквизиты.ПолучитьЗначение(НомерСтроки, "КоллекцияОбъектов"); КонецЕсли; <Алгоритм Имя="ВыгрузитьКонтрагентаВКонтрагента" ИспользуетсяПриЗагрузке="false"> <Текст>Если ПустоеЗначение(Значение) = 0 Тогда Если Значение = "1" Тогда ИмяПКО = "НеизвестныйКонтрагент"; Иначе ВидЮрЛица = Значение.ЮрФизЛицо.Вид(); Если ВидЮрЛица = "ЮрЛица" Тогда ИмяПКО = "ЮрЛица_Контрагенты"; ИначеЕсли ВидЮрЛица = "СвоиЮрЛица" Тогда ИмяПКО = "СвоиЮрЛица_Контрагенты"; ИначеЕсли ВидЮрЛица = "ФизЛица" Тогда ИмяПКО = "ФизЛица_Контрагенты"; КонецЕсли; Значение = Значение.ЮрФизЛицо.ТекущийЭлемент(); КонецЕсли; Иначе Значение = 0; КонецЕсли; <Алгоритм Имя="ВыгрузитьКонтрагентаВПартнера" ИспользуетсяПриЗагрузке="false"> <Текст>Контрагент = ВходящиеДанные.Получить("Контрагент"); ВходящиеДанные.Установить("Партнер", Контрагент); Если Параметры.НезависимоВестиПартнеровИКонтрагентов = 0 Тогда Если ТипЗначенияСтр(Контрагент) = "Справочник" Тогда Если Контрагент.Вид() = "Контрагенты" Тогда ВходящиеДанные.Установить("ЮрФизЛицо", Контрагент.ЮрФизЛицо); ОпределитьОсновногоКонтрагентаДляЮрФизЛица(); ВходящиеДанные.Установить("Партнер", ВходящиеДанные.Получить("ОсновнойКонтрагент")); КонецЕсли; КонецЕсли; КонецЕсли; <Алгоритм Имя="ВыгрузитьПоследниеЦеныНоменклатурыВРозничныхТочках" ИспользуетсяПриЗагрузке="false"> <Текст>ДатаНач = ИсходящиеДанные.Получить("ДатаНач"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ПоследниеЦеныВРозничныхТочках) |Период с ДатаНач по ДатаНач; |Склад = Регистр.ОстаткиТМЦ.Склад; |Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура; |ЦенаПрод = Регистр.ОстаткиТМЦ.ЦенаПрод; |Количество = Регистр.ОстаткиТМЦ.Количество; |РозничныйСклад = Регистр.ОстаткиТМЦ.Склад.РозничныйСклад; |Упаковка = Регистр.ОстаткиТМЦ.Номенклатура.БазоваяЕдиница; |Функция КоличествоКонОст = КонОст(Количество); |Группировка Склад; |Группировка Номенклатура без групп; |Группировка Упаковка; |Группировка ЦенаПрод без групп; |Условие(ЦенаПрод <> 0); |Условие(РозничныйСклад <> 0); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл ТабТовары = СоздатьОбъект("ТаблицаЗначений"); ТабТовары.НоваяКолонка("Номенклатура"); ТабТовары.НоваяКолонка("ВидЦены"); ТабТовары.НоваяКолонка("Упаковка"); ТабТовары.НоваяКолонка("Цена"); Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл МаксОстаток = 0; Цена = 0; Пока Запрос.Группировка(4) = 1 Цикл Если Запрос.КоличествоКонОст > МаксОстаток Тогда Цена = Запрос.ЦенаПрод; МаксОстаток = Запрос.КоличествоКонОст; КонецЕсли; КонецЦикла; Если Цена > 0 Тогда ТабТовары.НоваяСтрока(); ТабТовары.Номенклатура = Запрос.Номенклатура; ТабТовары.ВидЦены = Запрос.Склад; ТабТовары.Упаковка = Запрос.Упаковка; ТабТовары.Цена = Цена; КонецЕсли; КонецЦикла; КонецЦикла; Если ТабТовары.КоличествоСтрок() > 0 Тогда ТабВидыЦен = СоздатьОбъект("ТаблицаЗначений"); ТабВидыЦен.НоваяКолонка("ВидЦены"); ТабВидыЦен.НоваяСтрока(); ТабВидыЦен.ВидЦены = Запрос.Склад; ИсходящиеДанные = СоздатьОбъект("СписокЗначений"); ИсходящиеДанные.Установить("Дата", ДатаНач); ИсходящиеДанные.Установить("ВидЦены", Запрос.Склад); ИсходящиеДанные.Установить("ВидыЦен", ТабВидыЦен); ИсходящиеДанные.Установить("Товары", ТабТовары); ВыгрузитьПоПравилу(,, ИсходящиеДанные,, "УстановкаРозничныхЦенНоменклатуры"); КонецЕсли; КонецЦикла; <Алгоритм Имя="ВыполнитьРаспределениеОстатковТоваровПоСкладам" ИспользуетсяПриЗагрузке="false"> <Текст>ДанныеРаспределения = ИсходящиеДанные.Получить("ДанныеРаспределения"); ВидОстатков = ДанныеРаспределения.Получить("ВидОстатков"); СтрокаТовара = ДанныеРаспределения.Получить("СтрокаТовара"); ТабОстаткиНаСкладах = ДанныеРаспределения.Получить("ТабОстаткиНаСкладах"); ТабОстатковРез = ДанныеРаспределения.Получить("ТабОстатковРез"); ОсталосьСписатьКоличество = ДанныеРаспределения.Получить("ОсталосьСписатьКоличество"); Если ВидОстатков = "СобственныеТовары" Тогда ОсталосьСписатьСумма = СтрокаТовара.Сумма; ОсталосьСписатьСуммаРегл = СтрокаТовара.СуммаРегл; ОсталосьСписатьСуммаРеглБезНДС = СтрокаТовара.СуммаРеглБезНДС; КонецЕсли; НомерНачСтроки = 0; Если ТабОстаткиНаСкладах.НайтиЗначение(СтрокаТовара.Номенклатура, НомерНачСтроки, "Номенклатура") = 1 Тогда // Формируем таблицу подбора для распределения остатка ТабПодбораОстатков = СоздатьОбъект("ТаблицаЗначений"); ТабПодбораОстатков.НоваяКолонка("Склад"); ТабПодбораОстатков.НоваяКолонка("Количество"); ТабПодбораОстатков.НоваяКолонка("РавенствоМОЛ"); ТабПодбораОстатков.НоваяКолонка("РавенствоПродЦены"); ТабПодбораОстатков.НоваяКолонка("НомерСтрокиТабОстатковНаСкладах"); ТабПодбораОстатков.НоваяКолонка("ИзменилсяОстаток"); ГруппировкаНачалась = 0; Для НомерНачСтроки = НомерНачСтроки По ТабОстаткиНаСкладах.КоличествоСтрок() Цикл ТабОстаткиНаСкладах.ПолучитьСтрокуПоНомеру(НомерНачСтроки); Если ТабОстаткиНаСкладах.Номенклатура <> СтрокаТовара.Номенклатура Тогда Прервать; КонецЕсли; // Пропуск выборки до начала подходящей группы строк // и прерывание выборки в конце группы подходящих строк Если СтрокаТовара.Организация <> ТабОстаткиНаСкладах.Организация Тогда Если ГруппировкаНачалась = 1 Тогда Прервать; Иначе Продолжить; КонецЕсли; КонецЕсли; ГруппировкаНачалась = 1; ТабПодбораОстатков.НоваяСтрока(); ТабПодбораОстатков.Склад = ТабОстаткиНаСкладах.Склад; ТабПодбораОстатков.Количество = ТабОстаткиНаСкладах.Количество; ТабПодбораОстатков.НомерСтрокиТабОстатковНаСкладах = ТабОстаткиНаСкладах.НомерСтроки; ТабПодбораОстатков.РавенствоМОЛ = ?(ТабОстаткиНаСкладах.МОЛ = СтрокаТовара.МОЛ, 1, 0); ТабПодбораОстатков.РавенствоПродЦены = ?(ТабОстаткиНаСкладах.ЦенаПрод = СтрокаТовара.ЦенаПрод, 1, 0); ТабПодбораОстатков.ИзменилсяОстаток = 0; КонецЦикла; Если ТабПодбораОстатков.КоличествоСтрок() > 0 Тогда // Выполняем списание из таблицы подбора и одновременно наполняем результирующую таблицу ТабПодбораОстатков.Сортировать("-РавенствоМОЛ,-РавенствоПродЦены,Склад"); ТабПодбораОстатков.ВыбратьСтроки(); Пока ТабПодбораОстатков.ПолучитьСтроку() = 1 Цикл Если ОсталосьСписатьКоличество = 0 Тогда Прервать; КонецЕсли; ТабОстатковРез.НоваяСтрока(); ТабОстатковРез.Организация = СтрокаТовара.Организация; ТабОстатковРез.Склад = ТабПодбораОстатков.Склад; ТабОстатковРез.Номенклатура = СтрокаТовара.Номенклатура; ТабОстатковРез.НомерГТД = ДанныеРаспределения.Получить("НомерГТД"); ТабОстатковРез.Количество = Мин(ОсталосьСписатьКоличество, ТабПодбораОстатков.Количество); ОсталосьСписатьКоличество = ОсталосьСписатьКоличество - ТабОстатковРез.Количество; Если ВидОстатков = "СобственныеТовары" Тогда Если Параметры.ИспользоватьОстаткиПоПартиям = 1 Тогда ТабОстатковРез.Поставщик = СтрокаТовара.Партнер; ТабОстатковРез.ДоговорСПоставщиком = СтрокаТовара.ДоговорСПоставщиком; ТабОстатковРез.ПриходныйДокумент = СтрокаТовара.ПриходныйДокумент; КонецЕсли; ТабОстатковРез.Сумма = Окр(ОсталосьСписатьСумма / ?(ОсталосьСписатьКоличество = 0, 1, 1 + ОсталосьСписатьКоличество/ТабОстатковРез.Количество), 2); //Расчитаем остальные суммы и вычислим СтавкуНДС ТабОстатковРез.СуммаРегл = Окр(ОсталосьСписатьСуммаРегл / ?(ОсталосьСписатьКоличество = 0, 1, 1 + ОсталосьСписатьКоличество/ТабОстатковРез.Количество), 2); ТабОстатковРез.СуммаРеглБезНДС = Окр(ОсталосьСписатьСуммаРеглБезНДС / ?(ОсталосьСписатьКоличество = 0, 1, 1 + ОсталосьСписатьКоличество/ТабОстатковРез.Количество), 2); ТабОстатковРез.СуммаБезНДС = Окр(((ТабОстатковРез.Сумма*ТабОстатковРез.СуммаРеглБезНДС)/ТабОстатковРез.СуммаРегл),2); ТабОстатковРез.СуммаНДС = ТабОстатковРез.Сумма - ТабОстатковРез.СуммаБезНДС; ТабОстатковРез.НДСРегл = ТабОстатковРез.СуммаРегл - ТабОстатковРез.СуммаРеглБезНДС; ПроцентНДС = Окр(((ТабОстатковРез.НДСРегл*100)/ТабОстатковРез.СуммаРеглБезНДС),-1); Если ПроцентНДС = 20 Тогда ТабОстатковРез.СтавкаНДС = "НДС18"; ИначеЕсли ПроцентНДС = 10 Тогда ТабОстатковРез.СтавкаНДС = "НДС10"; Иначе ТабОстатковРез.СтавкаНДС = "БезНДС"; КонецЕсли; ТабОстатковРез.Цена = Окр(ТабОстатковРез.Сумма / ТабОстатковРез.Количество, 2); ОсталосьСписатьСумма = ОсталосьСписатьСумма - ТабОстатковРез.Сумма; ОсталосьСписатьСуммаРегл = ОсталосьСписатьСуммаРегл - ТабОстатковРез.СуммаРегл; ОсталосьСписатьСуммаРеглБезНДС = ОсталосьСписатьСуммаРеглБезНДС - ТабОстатковРез.СуммаРеглБезНДС; Иначе ТабОстатковРез.Партнер = СтрокаТовара.Партнер; ТабОстатковРез.СоглашениеСКомитентом = СтрокаТовара.СоглашениеСКомитентом; ТабОстатковРез.УчитыватьНДС = ДанныеРаспределения.Получить("УчитыватьНДС"); ТабОстатковРез.СтавкаНДС = СтрокаТовара.СтавкаНДС; КонецЕсли; ТабПодбораОстатков.ИзменилсяОстаток = 1; ТабПодбораОстатков.Количество = ТабПодбораОстатков.Количество - ТабОстатковРез.Количество; КонецЦикла; // Заносим изменения остатков в таблицу остатков, удаляем нулевые строки ТабПодбораОстатков.Сортировать("-ИзменилсяОстаток,-НомерСтрокиТабОстатковНаСкладах"); ТабПодбораОстатков.ВыбратьСтроки(); Пока ТабПодбораОстатков.ПолучитьСтроку() = 1 Цикл Если ТабПодбораОстатков.ИзменилсяОстаток = 0 Тогда Прервать; КонецЕсли; Если ТабПодбораОстатков.Количество = 0 Тогда ТабОстаткиНаСкладах.УдалитьСтроку(ТабПодбораОстатков.НомерСтрокиТабОстатковНаСкладах); Иначе ТабОстаткиНаСкладах.ПолучитьСтрокуПоНомеру(ТабПодбораОстатков.НомерСтрокиТабОстатковНаСкладах); ТабОстаткиНаСкладах.Количество = ТабПодбораОстатков.Количество; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; ДанныеРаспределения.Установить("ОсталосьСписатьКоличество", ОсталосьСписатьКоличество); ИсходящиеДанные.Установить("ДанныеРаспределения", ДанныеРаспределения); <Алгоритм Имя="ЗапомнитьПараметрыВыписки" ИспользуетсяПриЗагрузке="false"> <Текст>Если Источник.Проведен() = 1 Тогда БанковскиеВыпискиКФормированию = Параметры.БанковскиеВыпискиКФормированию; НомерСтр = 0; Если БанковскиеВыпискиКФормированию.НайтиЗначение(Источник.ТекущийДокумент(), НомерСтр, "Документ") = 0 Тогда БанковскиеВыпискиКФормированию.НоваяСтрока(); БанковскиеВыпискиКФормированию.Дата = Источник.ДатаДок; БанковскиеВыпискиКФормированию.БанковскийСчет = Источник.БанковскийСчет; БанковскиеВыпискиКФормированию.Документ = Источник.ТекущийДокумент(); БанковскиеВыпискиКФормированию.Сумма = Источник.Сумма; БанковскиеВыпискиКФормированию.ВидДвижения = ?(Источник.Вид() = "СтрокаВыпискиПриход", "Приход", "Расход"); КонецЕсли; КонецЕсли; <Алгоритм Имя="ОпределитьДатуНачалаДействияДоговораСоглашения" ИспользуетсяПриЗагрузке="false"> <Текст>Договор = ИсходящиеДанные.Получить("Договор"); Если ПустоеЗначение(Договор) = 0 Тогда Если Параметры.ПервыеИПоследниеДокументыПоДоговорам = -1 Тогда СформироватьСтатистикуПоДоговорам(); КонецЕсли; НайдСтрока = 0; ПервыеИПоследниеДокументыПоДоговору = Параметры.ПервыеИПоследниеДокументыПоДоговорам; Если ПервыеИПоследниеДокументыПоДоговору.НайтиЗначение(Договор, НайдСтрока, "Договор") > 0 Тогда ПервыйДокумент = ПервыеИПоследниеДокументыПоДоговору.ПолучитьЗначение(НайдСтрока, "ПервыйДокумент"); Значение = ПервыйДокумент.ДатаДок; Иначе Значение = ТекущаяДата(); КонецЕсли; Иначе Значение = ТекущаяДата(); КонецЕсли; ИсходящиеДанные.Установить("Значение", Значение); <Алгоритм Имя="ОпределитьКонтрагентаПрочегоДвиженияДС" ИспользуетсяПриЗагрузке="false"> <Текст>Контрагент = "1"; ДокОснование = Источник.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда Попытка Контрагент = ДокОснование.Контрагент; Исключение КонецПопытки; КонецЕсли; Если Контрагент = "1" Тогда Если ПустоеЗначение(Источник.Субконто1) = 0 Тогда Если Источник.Субконто1.Вид() = "Контрагенты" Тогда Контрагент = Источник.Субконто1; КонецЕсли; КонецЕсли; Если Контрагент = "1" Тогда Если ПустоеЗначение(Источник.Субконто2) = 0 Тогда Если Источник.Субконто2.Вид() = "Контрагенты" Тогда Значение = Источник.Субконто2; КонецЕсли; КонецЕсли; Если Контрагент = "1" Тогда Если ПустоеЗначение(Источник.Субконто3) = 0 Тогда Если Источник.Субконто3.Вид() = "Контрагенты" Тогда Значение = Источник.Субконто3; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; ВходящиеДанные.Установить("Контрагент", Контрагент); <Алгоритм Имя="ОпределитьОсновногоКонтрагентаДляЮрФизЛица" ИспользуетсяПриЗагрузке="false"> <Текст>ОсновнойКонтрагент = "НеизвестныйПартнер"; СформироватьСоответствиеКонтрагентовИЮрЛиц(); НомерНайденнойСтроки = 0; СоответствиеКонтрагентыЮрЛицо = Параметры.СоответствиеКонтрагентыЮрЛицо; Если СоответствиеКонтрагентыЮрЛицо.НайтиЗначение(ВходящиеДанные.Получить("ЮрФизЛицо"), НомерНайденнойСтроки, "ЮрФизЛицо") = 1 Тогда ОсновнойКонтрагент = СоответствиеКонтрагентыЮрЛицо.ПолучитьЗначение(НомерНайденнойСтроки, "Контрагент"); КонецЕсли; ВходящиеДанные.Установить("ОсновнойКонтрагент", ОсновнойКонтрагент); <Алгоритм Имя="ОпределитьРозничныйСкладПоДаннымПКО" ИспользуетсяПриЗагрузке="false"> <Текст>ПКО = ИсходящиеДанные.Получить("ПКО"); Контрагент = ПКО.Контрагент; ДокОснование = ПКО.ДокОснование; СкладНТТ = 0; Если Параметры.ТабКонтрагентыСкладыНТТ = -1 Тогда СформироватьТаблицуКонтрагентовСкладовНТТ(); КонецЕсли; ТабКонтрагентыСкладыНТТ = Параметры.ТабКонтрагентыСкладыНТТ; СписокНайденныхСкладовНТТ = СоздатьОбъект("СписокЗначений"); ТабКонтрагентыСкладыНТТ.ВыбратьСтроки(); Пока ТабКонтрагентыСкладыНТТ.ПолучитьСтроку() = 1 Цикл Если ТабКонтрагентыСкладыНТТ.Контрагент = Контрагент Тогда СписокНайденныхСкладовНТТ.ДобавитьЗначение(ТабКонтрагентыСкладыНТТ.Склад); КонецЕсли; КонецЦикла; Если СписокНайденныхСкладовНТТ.РазмерСписка() = 1 Тогда СкладНТТ = СписокНайденныхСкладовНТТ.ПолучитьЗначение(1); ИначеЕсли ПустоеЗначение(ДокОснование) = 0 Тогда Если ДокОснование.Вид() = "РеализацияРозница" Тогда Если ДокОснование.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда СкладНТТ = ДокОснование.Склад; КонецЕсли; КонецЕсли; КонецЕсли; ИсходящиеДанные.Установить("Склад", СкладНТТ); <Алгоритм Имя="ОпределитьСкладПоМОЛ" ИспользуетсяПриЗагрузке="false"> <Текст>Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(СкладПоМОЛ) |Без итогов; |Склад = Справочник.Склады.ТекущийЭлемент; |МОЛ = Справочник.Склады.МОЛ; |Группировка Склад; |Условие(МОЛ = ИсходящиеДанные.Получить(""МОЛ"")); |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; Склад = 0; Пока Запрос.Группировка() = 1 Цикл Склад = Запрос.Склад; Прервать; КонецЦикла; ИсходящиеДанные.ДобавитьЗначение(Склад, "Склад"); <Алгоритм Имя="ОпределитьХозоперациюПоДокументуДоговора" ИспользуетсяПриЗагрузке="false"> <Текст>ДокументПоДоговору = ИсходящиеДанные.Получить("ДокументПоДоговору"); Если ДокументПоДоговору.Вид() = "Реализация" Тогда Если ДокументПоДоговору.КодОперации = Перечисление.КодыОпераций.Продажа Тогда Хозоперация = "РеализацияКлиенту"; Иначе Хозоперация = "ПередачаНаКомиссию"; КонецЕсли; ИначеЕсли ДокументПоДоговору.Вид() = "ВозвратОтПокупателя" Тогда Если ДокументПоДоговору.КодОперации = Перечисление.КодыОпераций.ВозвратОтПокупателя Тогда Хозоперация = "РеализацияКлиенту"; Иначе Хозоперация = "ПередачаНаКомиссию"; КонецЕсли; ИначеЕсли ДокументПоДоговору.Вид() = "ВозвратПоставщику" Тогда Если ДокументПоДоговору.КодОперации = Перечисление.КодыОпераций.ВозвратПоставщику Тогда Хозоперация = "ЗакупкаУПоставщика"; Иначе Хозоперация = "ПриемНаКомиссию"; КонецЕсли; ИначеЕсли ДокументПоДоговору.Вид() = "ОтчетКомиссионера" Тогда Хозоперация = "ПередачаНаКомиссию"; ИначеЕсли ДокументПоДоговору.Вид() = "ОтчетКомитенту" Тогда Хозоперация = "ПриемНаКомиссию"; КонецЕсли; ИсходящиеДанные.Установить("ХозоперацияДляДоговораПоДокументу", Хозоперация); <Алгоритм Имя="ПередатьСписокПравилВКонтекст" ИспользуетсяПриЗагрузке="false"> <Текст>Если ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда РезультатСписок = СоздатьОбъект("СписокЗначений"); РезультатСписок.Установить("ПравилаВыгрузкиСписок", ПравилаВыгрузкиСписок); Возврат ЗначениеВСтрокуВнутр(РезультатСписок); КонецЕсли; <Алгоритм Имя="СформироватьСоответствиеКонтрагентовИЮрЛиц" ИспользуетсяПриЗагрузке="false"> <Текст>Если Параметры.СоответствиеКонтрагентыЮрЛицо = -1 Тогда Параметры.СоответствиеКонтрагентыЮрЛицо = СоздатьОбъект("ТаблицаЗначений"); СоответствиеКонтрагентыЮрЛицо = Параметры.СоответствиеКонтрагентыЮрЛицо; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(СформироватьСоответствиеКонтрагентЮрЛицо) |Без итогов; |ЮрФизЛицо = Справочник.Контрагенты.ЮрФизЛицо; |Контрагент = Справочник.Контрагенты.ТекущийЭлемент; |Группировка Контрагент без групп; |Группировка ЮрФизЛицо; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Запрос.Выгрузить(СоответствиеКонтрагентыЮрЛицо,1,0); // Заполняем статистику по количеству контрагентов по юрфизлицам Параметры.КоличествоКонтрагентовДляЮрФизЛиц = СоздатьОбъект("ТаблицаЗначений"); КоличествоКонтрагентовДляЮрФизЛиц = Параметры.КоличествоКонтрагентовДляЮрФизЛиц; СоответствиеКонтрагентыЮрЛицо.Выгрузить(КоличествоКонтрагентовДляЮрФизЛиц); КоличествоКонтрагентовДляЮрФизЛиц.НоваяКолонка("Количество"); КоличествоКонтрагентовДляЮрФизЛиц.Заполнить(1,,, "Количество"); КоличествоКонтрагентовДляЮрФизЛиц.Свернуть("ЮрФизЛицо", "Количество"); КонецЕсли; <Алгоритм Имя="СформироватьСписокНоменклатурыСУпаковками" ИспользуетсяПриЗагрузке="false"> <Текст>Параметры.НоменклатураСУпаковками = СоздатьОбъект("СписокЗначений"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(СписокЕдиницИзмерения) |Без итогов; |ТекущийЭлемент = Справочник.Единицы.ТекущийЭлемент; |Владелец = Справочник.Единицы.Владелец; |Вес = Справочник.Единицы.Вес; |Коэффициент = Справочник.Единицы.Коэффициент; |ОКЕИ = Справочник.Единицы.ОКЕИ; |Группировка Владелец упорядочить по Владелец.Код; |Группировка ТекущийЭлемент; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); ТабЕдиницИзмерения = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ТабЕдиницИзмерения, 1, 0); ТекстЗапроса = "//{{ЗАПРОС(СписокНоменклатуры) |ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент; |БазоваяЕдиница = Справочник.Номенклатура.БазоваяЕдиница; |ОКЕИ = Справочник.Номенклатура.БазоваяЕдиница.ОКЕИ; |Группировка ТекущийЭлемент без групп упорядочить по ТекущийЭлемент.Код; |"//}}ЗАПРОС ; // Сопоставление данных о номенклатуре и единицах измерения Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка() = 1 Цикл НомерНачальнойСтроки = 0; Если ТабЕдиницИзмерения.НайтиЗначение(Запрос.ТекущийЭлемент, НомерНачальнойСтроки, "Владелец") = 1 Тогда Для НомерСтроки = НомерНачальнойСтроки По ТабЕдиницИзмерения.КоличествоСтрок() Цикл ТабЕдиницИзмерения.ПолучитьСтрокуПоНомеру(НомерСтроки); Если ТабЕдиницИзмерения.Владелец <> Запрос.ТекущийЭлемент Тогда Прервать; КонецЕсли; Если НЕ (((ТабЕдиницИзмерения.Коэффициент = 1) ИЛИ (ТабЕдиницИзмерения.ТекущийЭлемент = Запрос.БазоваяЕдиница)) И (ТабЕдиницИзмерения.ОКЕИ = Запрос.ОКЕИ) И (ТабЕдиницИзмерения.Вес = 0)) Тогда Параметры.НоменклатураСУпаковками.ДобавитьЗначение(Запрос.ТекущийЭлемент); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; <Алгоритм Имя="СформироватьСписокПоследнихОтчетовКомитетам" ИспользуетсяПриЗагрузке="false"> <Текст>Если Параметры.ПоследниеОтчетыКомитентамПоДоговорам = -1 Тогда Параметры.ПоследниеОтчетыКомитентамПоДоговорам = СоздатьОбъект("ТаблицаЗначений"); ПоследниеОтчетыКомитентамПоДоговорам = Параметры.ПоследниеОтчетыКомитентамПоДоговорам; ПоследниеОтчетыКомитентамПоДоговорам.НоваяКолонка("Договор"); ПоследниеОтчетыКомитентамПоДоговорам.НоваяКолонка("Организация"); ПоследниеОтчетыКомитентамПоДоговорам.НоваяКолонка("Документ"); ПоследниеОтчетыКомитентамПоДоговорам.НоваяКолонка("СпособРасчета"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ПоследниеОтчетыКомитентам) |Обрабатывать НеПомеченныеНаУдаление; |ТекущийДокумент = Документ.ОтчетКомитенту.ТекущийДокумент; |СпособРасчета = Документ.ОтчетКомитенту.СпособРасчета; |Организация = Документ.ОтчетКомитенту.ЮрЛицо; |Договор = Документ.ОтчетКомитенту.Договор; |Группировка Договор; |Группировка Организация; |Группировка ТекущийДокумент; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл ПоследниеОтчетыКомитентамПоДоговорам.НоваяСтрока(); ПоследниеОтчетыКомитентамПоДоговорам.Договор = Запрос.Договор; ПоследниеОтчетыКомитентамПоДоговорам.Организация = Запрос.Организация; Пока Запрос.Группировка(3) = 1 Цикл ПоследниеОтчетыКомитентамПоДоговорам.Документ = Запрос.ТекущийДокумент; ПоследниеОтчетыКомитентамПоДоговорам.СпособРасчета = Запрос.СпособРасчета; КонецЦикла; КонецЦикла; КонецЦикла; КонецЕсли; <Алгоритм Имя="СформироватьСтатистикуВозвратовОтПодотчетников" ИспользуетсяПриЗагрузке="false"> <Текст>СтатистикаВозвратыОтПодотчетников = Параметры.СтатистикаВозвратыОтПодотчетников; Если СтатистикаВозвратыОтПодотчетников = -1 Тогда ДатаНач = ДатаНачала; ДатаКон = ДатаОкончания; ДатаТА = ПолучитьДатуТА(); Если ПустоеЗначение(ДатаКон) = 0 Тогда ДатаКон = ?(ДатаКон < ДатаТА, ДатаКон,ДатаТА); Иначе ДатаКон = ДатаТА; КонецЕсли; Если ПустоеЗначение(ДатаНач) = 0 Тогда ДатаНач = Дата('01.01.0001'); КонецЕсли; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ВозвратОтПодотчетникаПоНесколькимРКО) |Без итогов; |Период с ДатаНач по ДатаКон; |ПКО = Регистр.ПодотчетныеЛица.ТекущийДокумент; |РКО = Регистр.ПодотчетныеЛица.КредДокумент; |КодОперации = Регистр.ПодотчетныеЛица.КодОперации; |СуммаУпр = Регистр.ПодотчетныеЛица.СуммаУпр; |Функция СуммаРасх = Расход(СуммаУпр); |Группировка ПКО; |Группировка РКО; |Условие(ПКО.Вид() = ""ПКО""); |Условие(РКО.Вид() = ""РКО""); |Условие((КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСумм) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВозвратПодотчетныхСуммВал)); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Параметры.СтатистикаВозвратыОтПодотчетников = СоздатьОбъект("ТаблицаЗначений"); СтатистикаВозвратыОтПодотчетников = Параметры.СтатистикаВозвратыОтПодотчетников; Запрос.Выгрузить(СтатистикаВозвратыОтПодотчетников, 1, 0); СтатистикаВозвратыОтПодотчетников.Сортировать("ПКО,РКО", "-СуммаРасх"); КонецЕсли; <Алгоритм Имя="СформироватьСтатистикуПерерасходовПодотчетников" ИспользуетсяПриЗагрузке="false"> <Текст>СтатистикаПерерасходовПодотчетников = Параметры.СтатистикаПерерасходовПодотчетников; Если СтатистикаПерерасходовПодотчетников = -1 Тогда ДатаНач = ДатаНачала; ДатаКон = ДатаОкончания; ДатаТА = ПолучитьДатуТА(); Если ПустоеЗначение(ДатаКон) = 0 Тогда ДатаКон = ?(ДатаКон < ДатаТА, ДатаКон,ДатаТА); Иначе ДатаКон = ДатаТА; КонецЕсли; Если ПустоеЗначение(ДатаНач) = 0 Тогда ДатаНач = Дата('01.01.0001'); КонецЕсли; Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ПерерасходыПодотчетниковНесколькимРКО) |Без итогов; |Период с ДатаНач по ДатаКон; |РКО = Регистр.ПодотчетныеЛица.ТекущийДокумент; |КредДокумент= Регистр.ПодотчетныеЛица.КредДокумент; |КодОперации = Регистр.ПодотчетныеЛица.КодОперации; |СуммаУпр = Регистр.ПодотчетныеЛица.СуммаУпр; |Функция СуммаПрих = Приход(СуммаУпр); |Группировка РКО; |Группировка КредДокумент; |Условие(РКО.Вид() = ""РКО""); |Условие((КредДокумент.Вид() = ""СтрокаАвансОтчетаОплата"") | ИЛИ (КредДокумент.Вид() = ""СтрокаАвансОтчетаПрочее"") | ИЛИ (КредДокумент.Вид() = ""СтрокаАвансОтчетаТМЦ"")); |Условие((КодОперации = Перечисление.КодыОпераций.ВыдачаПодотчет) | ИЛИ (КодОперации = Перечисление.КодыОпераций.ВыдачаПодотчетВал)); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Параметры.СтатистикаПерерасходовПодотчетников = СоздатьОбъект("ТаблицаЗначений"); СтатистикаПерерасходовПодотчетников = Параметры.СтатистикаПерерасходовПодотчетников; Запрос.Выгрузить(СтатистикаПерерасходовПодотчетников, 1, 0); СтатистикаПерерасходовПодотчетников.Сортировать("РКО,КредДокумент", "-СуммаПрих"); КонецЕсли; <Алгоритм Имя="СформироватьСтатистикуПоДоговорам" ИспользуетсяПриЗагрузке="false"> <Текст>СписокВидовПоследнихДокументов = СоздатьОбъект("СписокЗначений"); СписокВидовПоследнихДокументов.ДобавитьЗначение("ПоступлениеДопРасходы"); СписокВидовПоследнихДокументов.ДобавитьЗначение("ПоступлениеПрочее"); СписокВидовПоследнихДокументов.ДобавитьЗначение("ПоступлениеТМЦ"); СписокВидовПоследнихДокументов.ДобавитьЗначение("ПоступлениеТМЦИмпорт"); СписокВидовПоследнихДокументов.ДобавитьЗначение("ПоступлениеТМЦРозница"); СписокВидовПоследнихДокументов.ДобавитьЗначение("СтрокаАвансОтчетаТМЦ"); СписокВидовПоследнихДокументов.ДобавитьЗначение("СтрокаАвансОтчетаПрочее"); СписокВидовПоследнихДокументов.ДобавитьЗначение("Реализация"); СписокВидовПоследнихДокументов.ДобавитьЗначение("РеализацияПрочее"); СписокВидовПоследнихДокументов.ДобавитьЗначение("РеализацияРозница"); СписокВидовПоследнихДокументов.ДобавитьЗначение("ОтчетКомиссионера"); СписокВидовАнализируемыхДокументов = СоздатьОбъект("СписокЗначений"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ВозвратПоставщику"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ВозвратОтПокупателя"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ОтчетКомиссионера"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ОтчетКомитенту"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ПоступлениеПрочее"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ПоступлениеДопРасходы"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ПоступлениеТМЦ"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ПоступлениеТМЦИмпорт"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("ПоступлениеТМЦРозница"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("Реализация"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("РеализацияПрочее"); СписокВидовАнализируемыхДокументов.ДобавитьЗначение("РеализацияРозница"); Параметры.СтатистикаПоДоговорам_СортДоговор = СоздатьОбъект("ТаблицаЗначений"); Параметры.СтатистикаПоДоговорам_СортКонтрагент = СоздатьОбъект("ТаблицаЗначений"); Параметры.ПервыеИПоследниеДокументыПоДоговорам = СоздатьОбъект("ТаблицаЗначений"); СтатистикаПоДоговорам = Параметры.СтатистикаПоДоговорам_СортДоговор; СтатистикаПоДоговорам.НоваяКолонка("Организация"); СтатистикаПоДоговорам.Новаяколонка("Договор"); СтатистикаПоДоговорам.НоваяКолонка("Контрагент"); СтатистикаПоДоговорам.Новаяколонка("Оборот"); СтатистикаПоДоговорам.НоваяКолонка("ХозяйственнаяОперация"); ПервыеИПоследниеДокументыПоДоговорам = Параметры.ПервыеИПоследниеДокументыПоДоговорам; ПервыеИПоследниеДокументыПоДоговорам.НоваяКолонка("Договор"); ПервыеИПоследниеДокументыПоДоговорам.НоваяКолонка("ПервыйДокумент"); ПервыеИПоследниеДокументыПоДоговорам.НоваяКолонка("ПоследнийДокумент"); ПервыеИПоследниеДокументыПоДоговорам.НоваяКолонка("Документы"); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ВзаиморасчетыСПоставщиками) |Период с (Дата('01.01.0001')); |Договор = Регистр.Поставщики.Договор; |Организация = Регистр.Поставщики.Фирма.ЮрЛицо; |КредДокумент = Регистр.Поставщики.КредДокумент; |СуммаУпр = Регистр.Поставщики.СуммаУпр; |Контрагент = Регистр.Поставщики.Договор.Владелец; |Функция СуммаУпрПриход = Приход(СуммаУпр); |Функция СуммаУпрРасход = Расход(СуммаУпр); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка КредДокумент упорядочить по КредДокумент.ДатаДок, КредДокумент.ВремяДок; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); // Обрабатываем результат запроса, вычисляя вид договора и оборот, равный приход + расход Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл ПервыеИПоследниеДокументыПоДоговорам.НоваяСтрока(); ПервыеИПоследниеДокументыПоДоговорам.Договор = Запрос.Договор; ПервыеИПоследниеДокументыПоДоговорам.Документы = СоздатьОбъект("ТаблицаЗначений"); ТабСортировкиПоследнихДокументов = ПервыеИПоследниеДокументыПоДоговорам.Документы; ТабСортировкиПоследнихДокументов.НоваяКолонка("Документ"); Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл КредДокумент = Запрос.КредДокумент; Если ПустоеЗначение(КредДокумент) = 0 Тогда ВидДокумента = КредДокумент.Вид(); Иначе Продолжить; КонецЕсли; Если СписокВидовАнализируемыхДокументов.Принадлежит(ВидДокумента) = 1 Тогда СтатистикаПоДоговорам.НоваяСтрока(); СтатистикаПоДоговорам.Организация = Запрос.Организация; СтатистикаПоДоговорам.Договор = Запрос.Договор; СтатистикаПоДоговорам.Контрагент = Запрос.Контрагент; СтатистикаПоДоговорам.Оборот = Запрос.СуммаУпрПриход + Запрос.СуммаУпрРасход; ТекХозОперация = ?(ВидДокумента = "ОтчетКомитенту", "ПриемНаКомиссию", "ЗакупкаУПоставщика"); СтатистикаПоДоговорам.ХозяйственнаяОперация = ТекХозОперация; КонецЕсли; Если СписокВидовПоследнихДокументов.Принадлежит(ВидДокумента) = 1 Тогда ТабСортировкиПоследнихДокументов.НоваяСтрока(); ТабСортировкиПоследнихДокументов.Документ = КредДокумент; КонецЕсли; КонецЦикла; КонецЦикла; Если ТабСортировкиПоследнихДокументов.КоличествоСтрок() = 0 Тогда ПервыеИПоследниеДокументыПоДоговорам.УдалитьСтроку(ПервыеИПоследниеДокументыПоДоговорам.НомерСтроки); КонецЕсли; КонецЦикла; КонецЦикла; ТекстЗапроса = "//{{ЗАПРОС(ВзаиморасчетыСПокупателями) |Период с (Дата('01.01.0001')); |Договор = Регистр.Покупатели.Договор; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |КредДокумент = Регистр.Покупатели.КредДокумент; |СуммаУпр = Регистр.Покупатели.СуммаУпр; |Контрагент = Регистр.Покупатели.Договор.Владелец; |Функция СуммаУпрПриход = Приход(СуммаУпр); |Функция СуммаУпрРасход = Расход(СуммаУпр); |Группировка Организация; |Группировка Договор без групп; |Группировка Контрагент без групп; |Группировка КредДокумент упорядочить по КредДокумент.ДатаДок, КредДокумент.ВремяДок; |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл НайденнаяСтрока = 0; Если ПервыеИПоследниеДокументыПоДоговорам.НайтиЗначение(Запрос.Договор, НайденнаяСтрока, "Договор") = 0 Тогда ПервыеИПоследниеДокументыПоДоговорам.НоваяСтрока(); ПервыеИПоследниеДокументыПоДоговорам.Договор = Запрос.Договор; ПервыеИПоследниеДокументыПоДоговорам.Документы = СоздатьОбъект("ТаблицаЗначений"); ТабСортировкиПоследнихДокументов = ПервыеИПоследниеДокументыПоДоговорам.Документы; ТабСортировкиПоследнихДокументов.НоваяКолонка("Документ"); Иначе ПервыеИПоследниеДокументыПоДоговорам.ПолучитьСтрокуПоНомеру(НайденнаяСтрока); ТабСортировкиПоследнихДокументов = ПервыеИПоследниеДокументыПоДоговорам.Документы; КонецЕсли; Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл КредДокумент = Запрос.КредДокумент; Если ПустоеЗначение(КредДокумент) = 0 Тогда ВидДокумента = КредДокумент.Вид(); Иначе Продолжить; КонецЕсли; Если СписокВидовАнализируемыхДокументов.Принадлежит(ВидДокумента) = 1 Тогда СтатистикаПоДоговорам.НоваяСтрока(); СтатистикаПоДоговорам.Организация = Запрос.Организация; СтатистикаПоДоговорам.Договор = Запрос.Договор; СтатистикаПоДоговорам.Контрагент = Запрос.Контрагент; СтатистикаПоДоговорам.Оборот = Запрос.СуммаУпрПриход + Запрос.СуммаУпрРасход; ТекХозОперация = ?(ВидДокумента = "ОтчетКомиссионера", "ПередачаНаКомиссию", "РеализацияКлиенту"); СтатистикаПоДоговорам.ХозяйственнаяОперация = ТекХозОперация; КонецЕсли; Если СписокВидовПоследнихДокументов.НайтиЗначение(ВидДокумента) > 0 Тогда ТабСортировкиПоследнихДокументов.НоваяСтрока(); ТабСортировкиПоследнихДокументов.Документ = КредДокумент; КонецЕсли; КонецЦикла; КонецЦикла; Если ТабСортировкиПоследнихДокументов.КоличествоСтрок() = 0 Тогда ПервыеИПоследниеДокументыПоДоговорам.УдалитьСтроку(ПервыеИПоследниеДокументыПоДоговорам.НомерСтроки); КонецЕсли; КонецЦикла; КонецЦикла; // Сохранение статистики в двух видах: с сортировкой по договорам и по контрагентам СтатистикаПоДоговорам.Свернуть("Договор,Контрагент,Организация,ХозяйственнаяОперация", "Оборот"); СтатистикаПоДоговорам.Сортировать("*Договор"); СтатистикаПоДоговорам.Выгрузить(Параметры.СтатистикаПоДоговорам_СортКонтрагент); Параметры.СтатистикаПоДоговорам_СортКонтрагент.Сортировать("*Контрагент"); // Перечень документов, не участвующих во взаиморасчетах СписокКодовОпераций = СоздатьОбъект("СписокЗначений"); СписокКодовОпераций.ДобавитьЗначение(Перечисление.КодыОпераций.ПриемНаРеализацию); СписокКодовОпераций.ДобавитьЗначение(Перечисление.КодыОпераций.ВозвратКомитенту); СписокКодовОпераций.ДобавитьЗначение(Перечисление.КодыОпераций.ПриемНаРеализациюРозница); СписокКодовОпераций.ДобавитьЗначение(Перечисление.КодыОпераций.ПередачаНаРеализацию); СписокКодовОпераций.ДобавитьЗначение(Перечисление.КодыОпераций.ВозвратОтРеализатора); ТекстЗапроса = "//{{ЗАПРОС(ДокументыБезВзаиморасчетов) |ТекущийДокумент = Документ.ВозвратОтПокупателя.ТекущийДокумент, | Документ.ВозвратПоставщику.ТекущийДокумент, | Документ.ЗаказПоставщику.ТекущийДокумент, | Документ.ЗаявкаПокупателя.ТекущийДокумент, | Документ.ПоступлениеТМЦ.ТекущийДокумент, | Документ.ПоступлениеТМЦРозница.ТекущийДокумент, | Документ.Реализация.ТекущийДокумент, | Документ.РеализацияРозница.ТекущийДокумент; |КодОперации = Документ.ВозвратОтПокупателя.КодОперации, | Документ.ВозвратПоставщику.КодОперации, | Документ.ПоступлениеТМЦ.КодОперации, | Документ.ПоступлениеТМЦРозница.КодОперации, | Документ.Реализация.КодОперации, | Документ.РеализацияРозница.КодОперации; |Договор = Документ.ВозвратОтПокупателя.Договор, | Документ.ВозвратПоставщику.Договор, | Документ.ЗаказПоставщику.Договор, | Документ.ЗаявкаПокупателя.Договор, | Документ.ПоступлениеТМЦ.Договор, | Документ.ПоступлениеТМЦРозница.Договор, | Документ.Реализация.Договор, | Документ.РеализацияРозница.Договор; |Группировка Договор без групп; |Группировка ТекущийДокумент; |Условие((КодОперации В СписокКодовОпераций) | ИЛИ (ТекущийДокумент.Вид() = ""ЗаказПоставщику"") | ИЛИ (ТекущийДокумент.Вид() = ""ЗаявкаПокупателя"")); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл НайдСтрока = 0; Если ПервыеИПоследниеДокументыПоДоговорам.НайтиЗначение(Запрос.Договор, НайдСтрока, "Договор") = 1 Тогда ТабСортировкиПоследнихДокументов = ПервыеИПоследниеДокументыПоДоговорам.ПолучитьЗначение(НайдСтрока, "Документы"); Иначе ПервыеИПоследниеДокументыПоДоговорам.НоваяСтрока(); ПервыеИПоследниеДокументыПоДоговорам.Договор = Запрос.Договор; ПервыеИПоследниеДокументыПоДоговорам.Документы = СоздатьОбъект("ТаблицаЗначений"); ТабСортировкиПоследнихДокументов = ПервыеИПоследниеДокументыПоДоговорам.Документы; ТабСортировкиПоследнихДокументов.НоваяКолонка("Документ"); КонецЕсли; Пока Запрос.Группировка(2) = 1 Цикл ТабСортировкиПоследнихДокументов.НоваяСтрока(); ТабСортировкиПоследнихДокументов.Документ = Запрос.ТекущийДокумент; КонецЦикла; КонецЦикла; // Фильтрация последних документов по договорам и заполнение первых документов по договорам ПервыеИПоследниеДокументыПоДоговорам.ВыбратьСтроки(); Пока ПервыеИПоследниеДокументыПоДоговорам.ПолучитьСтроку() = 1 Цикл ТабСортировки = ПервыеИПоследниеДокументыПоДоговорам.Документы; ТабСортировки.Сортировать("Документ", 1); ПервыеИПоследниеДокументыПоДоговорам.ПервыйДокумент = ТабСортировки.ПолучитьЗначение(1, "Документ"); ПервыеИПоследниеДокументыПоДоговорам.ПоследнийДокумент = ТабСортировки.ПолучитьЗначение(ТабСортировки.КоличествоСтрок(), "Документ"); КонецЦикла; <Алгоритм Имя="СформироватьТаблицуВзаиморасчетовСРозницей" ИспользуетсяПриЗагрузке="false"> <Текст>Если Параметры.ТаблицаВзаиморасчетовСРозничнымиТочками <> -1 Тогда Возврат 1; КонецЕсли; Параметры.ТаблицаВзаиморасчетовСРозничнымиТочками = СоздатьОбъект("ТаблицаЗначений"); ТаблицаВзаиморасчетовСРозничнымиТочками = Параметры.ТаблицаВзаиморасчетовСРозничнымиТочками; ТаблицаВзаиморасчетовСРозничнымиТочками.НоваяКолонка("Организация"); ТаблицаВзаиморасчетовСРозничнымиТочками.НоваяКолонка("КассаККМ"); ТаблицаВзаиморасчетовСРозничнымиТочками.НоваяКолонка("КонтрагентДляВзаиморасчетов"); ТаблицаВзаиморасчетовСРозничнымиТочками.НоваяКолонка("Валюта"); ТаблицаВзаиморасчетовСРозничнымиТочками.НоваяКолонка("Сумма"); ТаблицаВзаиморасчетовСРозничнымиТочками.НоваяКолонка("СуммаРегл"); Если Параметры.ТабКонтрагентыСкладыНТТ = -1 Тогда СформироватьТаблицуКонтрагентовСкладовНТТ(); КонецЕсли; ТабКонтрагентыСкладыНТТ = Параметры.ТабКонтрагентыСкладыНТТ; Если ТабКонтрагентыСкладыНТТ.КоличествоСтрок() > 0 Тогда СписокКонтрагентовСкладовНТТ = СоздатьОбъект("СписокЗначений"); ТабКонтрагентыСкладыНТТ.Выгрузить(СписокКонтрагентовСкладовНТТ,,, "Контрагент"); Иначе Возврат 1; КонецЕсли; Если ПустоеЗначение(ДатаНачала) = 1 Тогда Возврат 1; КонецЕсли; ДатаНач = ДатаНачала - 1; ДатаТА = ПолучитьДатуТА(); ДатаНач = ?(ДатаНач < ДатаТА, ДатаНач, ДатаТА); Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(ДСВУдаленныхРозничныхТочках) |Период с ДатаНач по ДатаНач; |Организация = Регистр.Покупатели.Фирма.ЮрЛицо; |РасчетныйДокумент = Регистр.Покупатели.КредДокумент; |Контрагент = Регистр.Покупатели.Договор.Владелец; |Валюта = Регистр.Покупатели.Договор.ВалютаВзаиморасчетов; |СуммаВал = Регистр.Покупатели.СуммаВал; |СуммаРуб = Регистр.Покупатели.СуммаРуб; |Функция СуммаВалКонОст = КонОст(СуммаВал); |Функция СуммаРубКонОст = КонОст(СуммаРуб); |Группировка Организация; |Группировка Контрагент без групп; |Группировка РасчетныйДокумент; |Группировка Валюта; |Условие(Контрагент в СписокКонтрагентовСкладовНТТ); |"//}}ЗАПРОС ; Запрос.Выполнить(ТекстЗапроса); Пока Запрос.Группировка(1) = 1 Цикл Пока Запрос.Группировка(2) = 1 Цикл Пока Запрос.Группировка(3) = 1 Цикл Пока Запрос.Группировка(4) = 1 Цикл СписокНайденныхСкладовНТТ = СоздатьОбъект("СписокЗначений"); ТабКонтрагентыСкладыНТТ.ВыбратьСтроки(); Пока ТабКонтрагентыСкладыНТТ.ПолучитьСтроку() = 1 Цикл Если ТабКонтрагентыСкладыНТТ.Контрагент = Запрос.Контрагент Тогда СписокНайденныхСкладовНТТ.ДобавитьЗначение(ТабКонтрагентыСкладыНТТ.Склад); КонецЕсли; КонецЦикла; СкладНТТ = 0; Если СписокНайденныхСкладовНТТ.РазмерСписка() = 1 Тогда СкладНТТ = СписокНайденныхСкладовНТТ.ПолучитьЗначение(1); Иначе ДокументРеализации = 0; Если Запрос.РасчетныйДокумент.Вид() = "РеализацияРозница" Тогда ДокументРеализации = Запрос.РасчетныйДокумент; ИначеЕсли (Запрос.РасчетныйДокумент.Вид() = "ВозвратОтПокупателя") ИЛИ (Запрос.РасчетныйДокумент.Вид() = "ПКО") Тогда ДокОснование = Запрос.РасчетныйДокумент.ДокОснование; Если ПустоеЗначение(ДокОснование) = 0 Тогда Если ДокОснование.Вид() = "РеализацияРозница" Тогда ДокументРеализации = ДокОснование; КонецЕсли; КонецЕсли; КонецЕсли; Если ПустоеЗначение(ДокументРеализации) = 0 Тогда Если ДокументРеализации.ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам Тогда СкладНТТ = ДокументРеализации.Склад; КонецЕсли; КонецЕсли; Если ПустоеЗначение(СкладНТТ) = 1 Тогда Сообщить("Остаток задолженности контрагента """ + Запрос.Контрагент + """ по документу """ + Запрос.РасчетныйДокумент + """ в сумме " + Запрос.СуммаВалКонОст + " " + Запрос.Валюта + " необходимо перенести в УТ вручную: | данная задолженность относится к контрагенту, через которого велись взаиморасчеты с несколькими удаленными розничными точками, | при этом по документу расчетов не удается определить конкретную розничную точку, к которой относится данная задолженность."); Продолжить; КонецЕсли; КонецЕсли; ТаблицаВзаиморасчетовСРозничнымиТочками.НоваяСтрока(); ТаблицаВзаиморасчетовСРозничнымиТочками.Организация = Запрос.Организация; ТаблицаВзаиморасчетовСРозничнымиТочками.КассаККМ = СкладНТТ; ТаблицаВзаиморасчетовСРозничнымиТочками.КонтрагентДляВзаиморасчетов = Запрос.Контрагент; ТаблицаВзаиморасчетовСРозничнымиТочками.Валюта = Запрос.Валюта; ТаблицаВзаиморасчетовСРозничнымиТочками.Сумма = Запрос.СуммаВалКонОст; ТаблицаВзаиморасчетовСРозничнымиТочками.СуммаРегл = Запрос.СуммаРубКонОст; КонецЦикла; КонецЦикла; КонецЦикла; КонецЦикла; // Сворачивам по ключевым полям ТаблицаВзаиморасчетовСРозничнымиТочками.Свернуть("Организация,КассаККМ,КонтрагентДляВзаиморасчетов,Валюта", "Сумма,СуммаРегл"); ТаблицаВзаиморасчетовСРозничнымиТочками.Сортировать("Организация,КассаККМ,КонтрагентДляВзаиморасчетов,Валюта"); <Алгоритм Имя="СформироватьТаблицуКонтрагентовСкладовНТТ" ИспользуетсяПриЗагрузке="false"> <Текст>Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(КонтрагентыСкладыНТТ) |Без итогов; |ВидОперации = Документ.РеализацияРозница.ВидОперации; |Контрагент = Документ.РеализацияРозница.Контрагент; |Склад = Документ.РеализацияРозница.Склад; |Группировка Контрагент без групп; |Группировка Склад; |Условие(ВидОперации = Перечисление.ВидыОперацийРеализацияРозница.ОтчетПоПродажам); |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Отказ = 1; Возврат Отказ; КонецЕсли; ТабКонтрагентыСкладыНТТ = СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ТабКонтрагентыСкладыНТТ,0,0); Параметры.ТабКонтрагентыСкладыНТТ = ТабКонтрагентыСкладыНТТ; <Алгоритм Имя="УстновитьПараметрИспользоватьУпаковки" ИспользуетсяПриЗагрузке="false"> <Текст>ИспользоватьУпаковки = 0; СпрЕдиницы = СоздатьОбъект("Справочник.Единицы"); СпрЕдиницы.ВыбратьЭлементы(0); Пока СпрЕдиницы.ПолучитьЭлемент() = 1 Цикл ЭтоУпаковка = 1; Если (СпрЕдиницы.Вес = 0) И (ПустоеЗначение(СпрЕдиницы.ШтрихКод) = 1) И ((СпрЕдиницы.Коэффициент = 1) ИЛИ (СпрЕдиницы.ТекущийЭлемент() = СпрЕдиницы.Владелец.БазоваяЕдиница)) И (СпрЕдиницы.ОКЕИ = СпрЕдиницы.Владелец.БазоваяЕдиница.ОКЕИ) Тогда ЭтоУпаковка = 0; КонецЕсли; Если ЭтоУпаковка = 1 Тогда ИспользоватьУпаковки = 1; Прервать; КонецЕсли; КонецЦикла; Параметры.ИспользоватьУпаковки = ИспользоватьУпаковки; <Группа Имя="Загрузка"> <Алгоритм Имя="ВыполнитьПроведениеДокументов" ИспользуетсяПриЗагрузке="true"> <Текст>ДокументыДляПроведения = Параметры.ДокументыДляПроведения; ДокументыДляПроведения.Сортировать("ДатаДокумента"); Для Каждого Строка Из ДокументыДляПроведения Цикл Документ = Строка.ДокументОбъект; Если Не Документ.ЭтоНовый() Тогда // Переполучаем объект, т.к. он мог быть изменен ДокументОбъект = Документ.Ссылка.ПолучитьОбъект(); УстановитьОбменДаннымиЗагрузка(ДокументОбъект, Ложь); Попытка Если ДокументОбъект.ПроверитьЗаполнение() Тогда ДокументОбъект.ДополнительныеСвойства.Вставить("ОтключитьМеханизмРегистрацииОбъектов", Истина); ДокументОбъект.ДополнительныеСвойства.Вставить("НеПроверятьДатыЗапретаИзмененияДанных"); // выполняем попытку проведения документа ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение); КонецЕсли; Исключение КонецПопытки; КонецЕсли; КонецЦикла; <Алгоритм Имя="ГоловнойКонтрагент" ИспользуетсяПриЗагрузке="true"> <Текст>Если Не ЗначениеЗаполнено(Объект.ГоловнойКонтрагент) Тогда Объект.ГоловнойКонтрагент = Объект.Ссылка; ИначеЕсли Объект.ГоловнойКонтрагент <> Объект.Ссылка Тогда Объект.ОбособленноеПодразделение = Истина; КонецЕсли; <Параметры>Объект <Алгоритм Имя="ЗаполнитьКонтрагента" ИспользуетсяПриЗагрузке="true"> <Текст>Если ЗначениеЗаполнено(Объект.Партнер) Тогда Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 | Контрагенты.Ссылка |ИЗ | Справочник.Контрагенты КАК Контрагенты |ГДЕ | Контрагенты.Партнер = &Партнер | И НЕ Контрагенты.ПометкаУдаления"; Запрос.УстановитьПараметр("Партнер", Объект.Партнер); Результат = Запрос.Выполнить(); Если Не Результат.Пустой() Тогда Объект.Контрагент = Результат.Выгрузить().Получить(0).Ссылка; КонецЕсли; КонецЕсли; <Параметры>Объект <Алгоритм Имя="ЗаполнитьНастройкиКонтроляОстатковУСкладов" ИспользуетсяПриЗагрузке="true"> <Текст>// Определим склады, у которых не заполнена настройка контроля остатков Запрос = Новый Запрос(" |ВЫБРАТЬ | Склады.Ссылка, | Склады.КонтролироватьОбеспечение КАК КонтролироватьОбеспечение |ИЗ | Справочник.Склады КАК Склады | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НастройкаКонтроляОбеспечения КАК НастройкаКонтроляОбеспечения | ПО (НастройкаКонтроляОбеспечения.Склад = Склады.Ссылка) |ГДЕ | (НЕ Склады.ЭтоГруппа) | И НастройкаКонтроляОбеспечения.Склад ЕСТЬ NULL"); ВыборкаСкладов = Запрос.Выполнить().Выбрать(); Пока ВыборкаСкладов.Следующий() Цикл МенеджерЗаписи = РегистрыСведений.НастройкаКонтроляОбеспечения.СоздатьМенеджерЗаписи(); МенеджерЗаписи.Склад = ВыборкаСкладов.Ссылка; МенеджерЗаписи.Контролировать = ВыборкаСкладов.КонтролироватьОбеспечение; МенеджерЗаписи.Записать(); КонецЦикла; <Алгоритм Имя="ЗаполнитьСоглашениеПоУмолчанию" ИспользуетсяПриЗагрузке="true"> <Параметры>Объект <Алгоритм Имя="ЗапомнитьДокументДляПроведения" ИспользуетсяПриЗагрузке="true"> <Текст>ДокументыДляПроведения = Параметры.ДокументыДляПроведения; Если Объект.Проведен И ДокументыДляПроведения.Найти(Объект, "ДокументОбъект") = Неопределено Тогда Объект.Проведен = Ложь; НоваяСтрока = ДокументыДляПроведения.Добавить(); НоваяСтрока.ДокументОбъект = Объект; НоваяСтрока.ДатаДокумента = Объект.Дата; КонецЕсли; <Алгоритм Имя="ОбновитьНаборыСвойствНоменклатуры" ИспользуетсяПриЗагрузке="true"> <Текст>ОбщиеСвойстваНоменклатуры = Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_Номенклатура_Общие.ПолучитьОбъект(); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | НоменклатураДополнительныеРеквизиты.Свойство |ИЗ | Справочник.Номенклатура.ДополнительныеРеквизиты КАК НоменклатураДополнительныеРеквизиты |ГДЕ | (НЕ НоменклатураДополнительныеРеквизиты.Свойство В | (ВЫБРАТЬ РАЗЛИЧНЫЕ | Т.Свойство | ИЗ | Справочник.НаборыДополнительныхРеквизитовИСведений.ДополнительныеРеквизиты КАК Т | ГДЕ | Т.Ссылка В ИЕРАРХИИ (ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Справочник_Номенклатура)))) |"; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл Если ОбщиеСвойстваНоменклатуры.ДополнительныеРеквизиты.Найти(Выборка.Свойство, "Свойство") = Неопределено Тогда НовоеСвойство = ОбщиеСвойстваНоменклатуры.ДополнительныеРеквизиты.Добавить(); НовоеСвойство.Свойство = Выборка.Свойство; КонецЕсли; КонецЦикла; ОбщиеСвойстваНоменклатуры.Записать(); <Алгоритм Имя="ОбновитьНаборыСвойствПартнеров" ИспользуетсяПриЗагрузке="true"> <Текст>ОбщиеСвойстваПартнеров = Справочники.НаборыДополнительныхРеквизитовИСведений.Справочник_Партнеры_Общие.ПолучитьОбъект(); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | ПартнерыДополнительныеРеквизиты.Свойство КАК Свойство |ИЗ | Справочник.Партнеры.ДополнительныеРеквизиты КАК ПартнерыДополнительныеРеквизиты |ГДЕ | (НЕ ПартнерыДополнительныеРеквизиты.Свойство.ЭтоДополнительноеСведение)"; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл Если ОбщиеСвойстваПартнеров.ДополнительныеРеквизиты.Найти(Выборка.Свойство, "Свойство") = Неопределено Тогда НовоеСвойство = ОбщиеСвойстваПартнеров.ДополнительныеРеквизиты.Добавить(); НовоеСвойство.Свойство = Выборка.Свойство; КонецЕсли; КонецЦикла; ОбщиеСвойстваПартнеров.Записать(); <Алгоритм Имя="ПартнерыПослеЗаписи" ИспользуетсяПриЗагрузке="true"> <Текст>Если Параметры.СписокЗагруженныхПартнеров.Количество() > 0 Тогда Для Каждого Партнер Из Параметры.СписокЗагруженныхПартнеров Цикл // Обновление иерархии ПартнерыИКонтрагенты.ЗаписатьИерархиюПартнера(Партнер); КонецЦикла; КонецЕсли; <Алгоритм Имя="УстановитьЗначениеРеквизитаУпорядочивания" ИспользуетсяПриЗагрузке="true"> <Текст>// Вычислим новое значение для порядка элемента Информация = НастройкаПорядкаЭлементов.ПолучитьИнформациюДляПеремещения(Объект.Ссылка.Метаданные()); Если Объект.РеквизитДопУпорядочивания = 0 Тогда Объект.РеквизитДопУпорядочивания = НастройкаПорядкаЭлементовСлужебный.ПолучитьНовоеЗначениеРеквизитаДопУпорядочивания( Информация, ?(Информация.ЕстьРодитель, Объект.Родитель, Неопределено), ?(Информация.ЕстьВладелец, Объект.Владелец, Неопределено)); КонецЕсли; <Параметры>Объект <Алгоритм Имя="УстановитьИспользованиеОпциональныхВозможностей" ИспользуетсяПриЗагрузке="true"> <Текст>ПереченьКонстант = Новый Структура; ПереченьЗеркальныхКонстант = Новый Структура; // Валюты Запрос = Новый Запрос(" |ВЫБРАТЬ | КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Валюты.Ссылка) КАК КоличествоВалют |ИЗ | Справочник.Валюты КАК Валюты"); КоличествоВалют = 0; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда КоличествоВалют = Выборка.КоличествоВалют; КонецЕсли; Если КоличествоВалют > 1 Тогда ПереченьКонстант.Вставить("ИспользоватьНесколькоВалют"); ПереченьЗеркальныхКонстант.Вставить("НеИспользоватьНесколькоВалют"); КонецЕсли; // Склады Запрос = Новый Запрос(" |ВЫБРАТЬ | КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Склады.Ссылка) КАК КоличествоСкладов |ИЗ | Справочник.Склады КАК Склады"); КоличествоСкладов = 0; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда КоличествоСкладов = Выборка.КоличествоСкладов; КонецЕсли; Если КоличествоСкладов > 1 Тогда ПереченьКонстант.Вставить("ИспользоватьНесколькоСкладов"); ПереченьЗеркальныхКонстант.Вставить("НеИспользоватьНесколькоСкладов"); КонецЕсли; // Организации Запрос = Новый Запрос("ВЫБРАТЬ | КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Организации.Ссылка) КАК КоличествоОрганизаций |ИЗ | Справочник.Организации КАК Организации |ГДЕ | Организации.Ссылка <> ЗНАЧЕНИЕ(Справочник.Организации.УправленческаяОрганизация)"); КоличествоОрганизаций = 0; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда КоличествоОрганизаций = Выборка.КоличествоОрганизаций; КонецЕсли; Если КоличествоОрганизаций > 1 Тогда ПереченьКонстант.Вставить("ИспользоватьНесколькоОрганизаций"); ПереченьЗеркальныхКонстант.Вставить("НеИспользоватьНесколькоОрганизаций"); ПереченьКонстант.Вставить("ИспользоватьНесколькоКасс"); ПереченьКонстант.Вставить("ИспользоватьНесколькоКассККМ"); ПереченьКонстант.Вставить("ИспользоватьНесколькоРасчетныхСчетов"); ПереченьКонстант.Вставить("ИспользоватьНесколькоРасчетныхСчетовКасс"); КонецЕсли; // Кассы Запрос = Новый Запрос(" |ВЫБРАТЬ | КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Кассы.Ссылка) КАК КоличествоКасс |ИЗ | Справочник.Кассы КАК Кассы"); КоличествоКасс = 0; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда КоличествоКасс = Выборка.КоличествоКасс; КонецЕсли; Если КоличествоКасс > 1 Тогда ПереченьКонстант.Вставить("ИспользоватьНесколькоКасс"); ПереченьКонстант.Вставить("ИспользоватьНесколькоРасчетныхСчетовКасс"); КонецЕсли; // Кассы ККМ Запрос = Новый Запрос(" |ВЫБРАТЬ | КОЛИЧЕСТВО(РАЗЛИЧНЫЕ КассыККМ.Ссылка) КАК КоличествоКасс |ИЗ | Справочник.КассыККМ КАК КассыККМ"); КоличествоКасс = 0; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда КоличествоКасс = Выборка.КоличествоКасс; КонецЕсли; Если КоличествоКасс > 1 Тогда ПереченьКонстант.Вставить("ИспользоватьНесколькоКассККМ"); ПереченьКонстант.Вставить("ИспользоватьНесколькоРасчетныхСчетовКасс"); КонецЕсли; // Расчетные счета Запрос = Новый Запрос(" |ВЫБРАТЬ | КОЛИЧЕСТВО(РАЗЛИЧНЫЕ РасчетныеСчета.Ссылка) КАК КоличествоРасчетныхСчетов |ИЗ | Справочник.БанковскиеСчетаОрганизаций КАК РасчетныеСчета"); КоличествоРасчетныхСчетов = 0; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда КоличествоРасчетныхСчетов = Выборка.КоличествоРасчетныхСчетов; КонецЕсли; Если КоличествоРасчетныхСчетов > 1 Тогда ПереченьКонстант.Вставить("ИспользоватьНесколькоРасчетныхСчетов"); ПереченьКонстант.Вставить("ИспользоватьНесколькоРасчетныхСчетовКасс"); КонецЕсли; // Виды цен Запрос = Новый Запрос(" |ВЫБРАТЬ | КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВидыЦен.Ссылка) КАК КоличествоВидовЦен |ИЗ | Справочник.ВидыЦен КАК ВидыЦен"); КоличествоВидовЦен = 0; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда КоличествоВидовЦен = Выборка.КоличествоВидовЦен; КонецЕсли; Если КоличествоВидовЦен > 1 Тогда ПереченьКонстант.Вставить("ИспользоватьНесколькоВидовЦен"); КонецЕсли; ПереченьКонстант.Вставить("ИспользоватьПартнеровКакКонтрагентов"); ПереченьКонстант.Вставить("ИспользоватьТиповыеСоглашенияСКлиентами"); ПереченьКонстант.Вставить("ИспользоватьТиповыеИИндивидуальныеСоглашенияСКлиентами"); ПереченьКонстант.Вставить("ИспользоватьИндивидуальныеСоглашенияСКлиентами"); ПереченьКонстант.Вставить("ИспользоватьСоглашенияСКлиентами"); Для Каждого Константа Из ПереченьКонстант Цикл КонстантаМенеджерЗначения = Константы[Константа.Ключ].СоздатьМенеджерЗначения(); КонстантаМенеджерЗначения.Значение = Истина; ЗаписатьОбъектВИБ(КонстантаМенеджерЗначения, ТипЗнч(КонстантаМенеджерЗначения)); КонецЦикла; Для Каждого Константа Из ПереченьЗеркальныхКонстант Цикл КонстантаМенеджерЗначения = Константы[Константа.Ключ].СоздатьМенеджерЗначения(); КонстантаМенеджерЗначения.Значение = Ложь; ЗаписатьОбъектВИБ(КонстантаМенеджерЗначения, ТипЗнч(КонстантаМенеджерЗначения)); КонецЦикла; <Запросы/>