<ПравилаОбмена> <ВерсияФормата РежимСовместимости="РежимСовместимостиСБСП21">2.01 <Ид>342e79c4-c70a-44c2-9bbf-076199f207d6 <Наименование>ДАЛИОНУправлениеМагазиномПРО --> БухгалтерияПредприятия 2.0 <ДатаВремяСоздания>2015-03-26T00:34:27 <Источник ВерсияПлатформы="8.0" ВерсияКонфигурации="1.2.19.04" СинонимКонфигурации=""ДАЛИОН:Управление магазином.ПРО", ред. 1.2">ДАЛИОНУправлениеМагазиномПРО <Приемник ВерсияПлатформы="8.0" ВерсияКонфигурации="2.0.51.6" СинонимКонфигурации="Бухгалтерия предприятия, редакция 2.0">БухгалтерияПредприятия <ПослеЗагрузкиПравилОбмена>Параметры.ТолькоПроведенные = Истина; Параметры.ВерсияПравилОбмена = "1.2.11.07 от 08.10.2010"; Параметры.КонфигурацияПриемник = "1С:Бухгалтерия, редакция 2.0"; Параметры.СписаниеИзИнвентаризации = "ПометитьНаУдаление"; <ПередВыгрузкойДанных>Параметры.СписокКонтрагентовБезИНН = Новый СписокЗначений; <ПослеВыгрузкиДанных>Если Параметры.СинхронизацияКонтрагентовПоИНН Тогда Если Параметры.СписокКонтрагентовБезИНН.Количество() > 0 Тогда Запрос = Новый Запрос; Запрос.УстановитьПараметр("СписокКонтрагентов", Параметры.СписокКонтрагентовБезИНН); Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | Контрагенты.Ссылка |ИЗ | Справочник.Контрагенты КАК Контрагенты |ГДЕ | Контрагенты.Ссылка В(&СписокКонтрагентов) |АВТОУПОРЯДОЧИВАНИЕ"; Выборка = Запрос.Выполнить().Выбрать(); ТабДок = Новый ТабличныйДокумент; Пока Выборка.Следующий() Цикл Ячейка = ТабДок.ПолучитьОбласть("R1C1"); Ячейка.Область("R1C1").СодержитЗначение = Истина; Ячейка.Область("R1C1").Значение = Выборка.Ссылка; Ячейка.Область("R1C1").Расшифровка = Выборка.Ссылка; Ячейка.Область("R1C1").ШиринаКолонки = 60; ТабДок.Вывести(Ячейка); КонецЦикла; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.ОтображатьСетку = Ложь; ТабДок.ТолькоПросмотр = Истина; ТабДок.Показать("Контрагенты с незаполненным ИНН:"); КонецЕсли; КонецЕсли; <ПередЗагрузкойДанных> //ТаблицаДокументов = Новый ТаблицаЗначений; // ТаблицаДокументов.Колонки.Добавить("Ссылка"); // ТаблицаДокументов.Колонки.Добавить("Действие"); // Параметры.Вставить("ТаблицаДокументов",ТаблицаДокументов); <ПослеЗагрузкиДанных> Для Каждого ТекСоответствие Из Параметры.СвязанныеДокументы Цикл ТекДокумент = ТекСоответствие.Ключ; СтруктураПолей = ТекСоответствие.Значение; НайденнаяСсылка = Документы[СтруктураПолей.ИмяМетаданныхДокумента].НайтиПоНомеру(СтруктураПолей.Номер, СтруктураПолей.Дата); Если НЕ НайденнаяСсылка.Пустая() Тогда ТекДокумент.ДокументОснование = НайденнаяСсылка; Попытка ТекДокумент.Записать(); Исключение Сообщить("Не удалось записать документ: " + ТекДокумент); Сообщить(ОписаниеОшибки()); КонецПопытки; КонецЕсли; КонецЦикла; //ТекстСообщенияОтмены = ""; // ТекстСообщенияОшибки = ""; // Для каждого СтрокаТч Из Параметры.ТаблицаДокументов Цикл // Попытка // ДокОбъект = СтрокаТч.Ссылка.ПолучитьОбъект(); // Если СтрокаТч.Ссылка.Проведен Тогда // ДокОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения); // КонецЕсли; // Если СтрокаТч.Действие = "Удаление" Тогда // ДокОбъект.ПометкаУдаления = Истина; // ДокОбъект.Записать(); // КонецЕсли; // ТекстСообщенияОтмены = ТекстСообщенияОтмены + Строка(СтрокаТч.Ссылка) + Символы.ПС; // Исключение // ТекстСообщенияОшибки = ТекстСообщенияОшибки + Строка(СтрокаТч.Ссылка) + " : "+ ОписаниеОшибки() + Символы.ПС; // КонецПопытки; // КонецЦикла; // Если Не ПустаяСтрока(ТекстСообщенияОтмены) Тогда // Сообщить("Отменено проведение документов:" + Символы.ПС + ТекстСообщенияОтмены); // КонецЕсли; // Если Не ПустаяСтрока(ТекстСообщенияОшибки) Тогда // Сообщить("Ошибки при отмене проведения: "+ Символы.ПС + ТекстСообщенияОшибки); // КонецЕсли; // Параметры.Удалить("ТаблицаДокументов"); <ПослеЗагрузкиОбъекта>//Если ИмяТипаОбъекта = "Документ" // И Объект.Метаданные().Проведение = Метаданные.СвойстваОбъектов.Проведение.Разрешить Тогда // Если Не ОбъектНайден Тогда // Объект.Записать(); // ОбъектМодифицирован = Ложь; // КонецЕсли; // НоваяСтрока = Параметры.ТаблицаДокументов.Добавить(); // НоваяСтрока.Ссылка = Объект.Ссылка; // Если ПараметрыОбъекта.Получить("Проведен") Тогда // НоваяСтрока.Действие = "Проведение"; // ИначеЕсли ПараметрыОбъекта.Получить("ПометкаУдаления") Тогда // НоваяСтрока.Действие = "Удаление"; // Иначе // НоваяСтрока.Действие = "Отмена"; // КонецЕсли; //КонецЕсли; <ПослеЗагрузкиПараметров>Параметры.СвязанныеДокументы = Новый Соответствие; <Параметры> <Параметр Имя="ВерсияПравилОбмена " Наименование="Версия правил обмена" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="КонфигурацияПриемник " Наименование="КонфигурацияПриемник" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="НеЗамещатьПриЗагрузке " Наименование="Не замещать при загрузке" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Булево" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="СверткаПоНДС " Наименование="Сворачивать по НДС" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Булево" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="СвязанныеДокументы " Наименование="СвязанныеДокументы" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Булево" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="СинхронизацияКонтрагентовПоИНН " Наименование="Синхронизация контрагентов по ИНН" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Булево" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="СинхронизацияФирмПоИНН " Наименование="Синхронизация фирм по ИНН" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Булево" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="СписаниеИзИнвентаризации " Наименование="Списание товаров из инвентаризации" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="СписокКонтрагентовБезИНН " Наименование="СписокКонтрагентовБезИНН" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="false" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="ТолькоПроведенные " Наименование="Только проведенные" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="Булево" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="Фирма " Наименование="Фирма" ИспользуетсяПриЗагрузке="false" УстанавливатьВДиалоге="true" ТипЗначения="СправочникСсылка.Фирмы" ПередаватьПараметрПриВыгрузке="false"/> <Обработки/> <ПравилаКонвертацииОбъектов> <Группа> <Код>Документы <Наименование>Документы <Порядок>50 <Правило> <Код>АктПересортицы <Наименование>ДокументСсылка.АктПересортицы --> ДокументСсылка.ОперацияБух <Порядок>50 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки> ТекСклад = ПараметрыОбъекта["Склад"]; Отказ = Ложь; УчетнаяПолитика = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитики(Объект.Дата, Отказ, Объект.Организация); СуммаОперации = 0; БУ = ПланыСчетов.Хозрасчетный.Товары.ПолучитьОбъект(); ВестиСкладскойУчетБУ = НЕ (БУ.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады, "ВидСубконто") = Неопределено); Для Каждого СтрокаДвижения Из Объект.Движения.Хозрасчетный Цикл Если ТипЗнч(СтрокаДвижения.СубконтоКт.Номенклатура) = Тип("СправочникСсылка.Номенклатура") Тогда ТекНоменклатура = СтрокаДвижения.СубконтоКт.Номенклатура; Иначе ТекНоменклатура = СтрокаДвижения.СубконтоДт.Номенклатура; КонецЕсли; СчетаУчета = БухгалтерскийУчет.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, ТекНоменклатура, ТекСклад); ХозрасчетныйСчетТоваров = СчетаУчета.СчетУчета; Если НЕ ЗначениеЗаполнено(ХозрасчетныйСчетТоваров) Тогда Сообщить("Для номенклатуры """ + ТекНоменклатура + """ не заполнен счет учета (бухгалтерский учет) товаров!"); КонецЕсли; Если НЕ ЗначениеЗаполнено(СтрокаДвижения.СчетКт) Тогда СтрокаДвижения.СчетКт = ХозрасчетныйСчетТоваров; СтрокаДвижения.КоличествоДт = NULL; КонецЕсли; Если НЕ ЗначениеЗаполнено(СтрокаДвижения.СчетДт) Тогда СтрокаДвижения.СчетДт = ХозрасчетныйСчетТоваров; СтрокаДвижения.КоличествоКт = NULL; КонецЕсли; Если НЕ ВестиСкладскойУчетБУ Тогда СтрокаДвижения.СубконтоКт.Удалить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады); СтрокаДвижения.СубконтоДт.Удалить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады); КонецЕсли; СтрокаДвижения.СуммаНУДт = СтрокаДвижения.Сумма; СтрокаДвижения.СуммаНУКт = СтрокаДвижения.Сумма; СуммаОперации = СуммаОперации + СтрокаДвижения.Сумма; КонецЦикла; // Посчитаем сумму документа вручную. Объект.СуммаОперации = СуммаОперации; <Источник>ДокументСсылка.АктПересортицы <Приемник>ДокументСсылка.ОперацияБух <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>СуммаДокумента --> СуммаОперации <Порядок>250 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаОперации" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>Фирма --> Организация <Порядок>300 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>27 <Наименование> --> Содержание <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Выгружен из ДАЛИОНа из документа Акт пересортицы №" + Источник.Номер + " от " + Источник.Дата; <Группа> <Код>17 <Наименование> --> Хозрасчетный <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Хозрасчетный" Вид="НаборДвиженийРегистраБухгалтерии"/> <ПередОбработкойВыгрузки>КоллекцияОбъектов = Новый ТаблицаЗначений; КоллекцияОбъектов.Колонки.Добавить("СчетКт"); КоллекцияОбъектов.Колонки.Добавить("СубконтоКт"); КоллекцияОбъектов.Колонки.Добавить("СчетДт"); КоллекцияОбъектов.Колонки.Добавить("СубконтоДт"); КоллекцияОбъектов.Колонки.Добавить("СубконтоСклад"); КоллекцияОбъектов.Колонки.Добавить("КоличествоДт"); КоллекцияОбъектов.Колонки.Добавить("КоличествоКт"); КоллекцияОбъектов.Колонки.Добавить("Сумма"); КоллекцияОбъектов.Колонки.Добавить("Содержание"); Выборка = РегистрыНакопления.ПартииНоменклатуры.ВыбратьПоРегистратору(Источник.Ссылка); Пока Выборка.Следующий() Цикл Если Выборка.ВидДвижения = ВидДвиженияНакопления.Расход Тогда НоваяСтрока = КоллекцияОбъектов.Добавить(); НоваяСтрока.СчетКт = "";//?(НЕ Источник.Склад.УчетОстатковПоЦенам, "ТоварыНаСкладах", ""); НоваяСтрока.СубконтоКт = Выборка.Номенклатура; НоваяСтрока.СубконтоСклад= Выборка.Склад; НоваяСтрока.КоличествоКт = Выборка.Количество; НоваяСтрока.СчетДт = "НедостачиИПотериОтПорчиЦенностей"; НоваяСтрока.Сумма = Выборка.Стоимость; НоваяСтрока.Содержание = "Выгружен из ДАЛИОНа из документа Акт пересортицы №" + Источник.Номер + " от " + Источник.Дата; ИначеЕсли Выборка.ВидДвижения = ВидДвиженияНакопления.Приход Тогда НоваяСтрока = КоллекцияОбъектов.Добавить(); НоваяСтрока.СчетДт = "";//?(НЕ Источник.Склад.УчетОстатковПоЦенам, "ТоварыНаСкладах", ""); НоваяСтрока.СубконтоДт = Выборка.Номенклатура; НоваяСтрока.СубконтоСклад= Выборка.Склад; НоваяСтрока.КоличествоДт = Выборка.Количество; НоваяСтрока.СчетКт = "ПрочиеДоходы"; НоваяСтрока.Сумма = Выборка.Стоимость; НоваяСтрока.Содержание = "Выгружен из ДАЛИОНа из документа Акт пересортицы №" + Источник.Номер + " от " + Источник.Дата; КонецЕсли; КонецЦикла; КоллекцияОбъектов.Свернуть("СубконтоСклад, СчетКт, СубконтоКт, СчетДт, СубконтоДт, Содержание", "КоличествоДт, КоличествоКт, Сумма"); <Свойство> <Код>18 <Наименование> --> СубконтоДт <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоДт" Вид="ВидыСубконтоСчета"/> <ПередВыгрузкой>Если НЕ ЗначениеЗаполнено(ОбъектКоллекции.СубконтоДт) Тогда Отказ = Истина; Иначе Значение = Новый ТаблицаЗначений; Значение.Колонки.Добавить("Ключ"); Значение.Колонки.Добавить("Значение"); // выгрузим номенклатуру НоваяСтрока = Значение.Добавить(); НоваяСтрока.Ключ="00001"; НоваяСтрока.Значение=ОбъектКоллекции.СубконтоДт; ИмяПКОВидСубконто="ВидыСубконтоХозрасчетные"; ВыгрузитьПоПравилу(ОбъектКоллекции.СубконтоДт,,,,"Номенклатура",,,); // выгрузим склад НоваяСтрока = Значение.Добавить(); НоваяСтрока.Ключ="00027"; НоваяСтрока.Значение=ОбъектКоллекции.СубконтоСклад; ИмяПКОВидСубконто="ВидыСубконтоХозрасчетные"; ВыгрузитьПоПравилу(ОбъектКоллекции.СубконтоСклад,,,,"Склады",,,); КонецЕсли; <Свойство> <Код>19 <Наименование> --> СубконтоКт <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="СубконтоКт" Вид="ВидыСубконтоСчета"/> <ПередВыгрузкой>Если НЕ ЗначениеЗаполнено(ОбъектКоллекции.СубконтоКт) Тогда Отказ = Истина; Иначе Значение = Новый ТаблицаЗначений; Значение.Колонки.ДОбавить("Ключ"); Значение.Колонки.ДОбавить("Значение"); // выгрузим номенклатуру НоваяСтрока = Значение.ДОбавить(); НоваяСтрока.Ключ="00001"; НоваяСтрока.Значение=ОбъектКоллекции.СубконтоКт; ИмяПКОВидСубконто="ВидыСубконтоХозрасчетные"; ВыгрузитьПоПравилу(ОбъектКоллекции.СубконтоКт,,,,"Номенклатура",,,); // выгрузим склад НоваяСтрока = Значение.Добавить(); НоваяСтрока.Ключ="00027"; НоваяСтрока.Значение=ОбъектКоллекции.СубконтоСклад; ИмяПКОВидСубконто="ВидыСубконтоХозрасчетные"; ВыгрузитьПоПравилу(ОбъектКоллекции.СубконтоСклад,,,,"Склады",,,); КонецЕсли; <Свойство> <Код>20 <Наименование> --> Содержание <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Содержание; <Свойство> <Код>21 <Наименование> --> КоличествоДт <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоДт" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.КоличествоДт; <Свойство> <Код>22 <Наименование> --> КоличествоКт <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="КоличествоКт" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.КоличествоКт; <Свойство> <Код>23 <Наименование> --> Сумма <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Ресурс" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Свойство> <Код>24 <Наименование> --> Период <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Период" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = Источник.Дата; <Свойство> <Код>25 <Наименование> --> СчетДт <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетДт" Вид="Свойство" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетДт; <Свойство> <Код>26 <Наименование> --> СчетКт <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКт" Вид="Свойство" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.СчетКт; <Свойство> <Код>28 <Наименование>Склад --> Склад <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="" Вид=""/> <КодПравилаКонвертации>Склады <ИмяПараметраДляПередачи>Склад <Значения/> <Правило> <Код>ВводОстатковВзаимоарасчеты <Наименование>ДокументСсылка.ВводОстатковВзаиморасчеты --> ДокументСсылка.ОперацияБух <Порядок>100 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>ДокументСсылка.ВводОстатковВзаиморасчеты <Приемник>ДокументСсылка.ОперацияБух <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Значения/> <Правило> <Код>ВводОстатковКасса <Наименование>ДокументСсылка.ВводОстатковКасса --> ДокументСсылка.ОперацияБух <Порядок>150 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>ДокументСсылка.ВводОстатковКасса <Приемник>ДокументСсылка.ОперацияБух <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Значения/> <Правило> <Код>ВводОстатковТовары <Наименование>ДокументСсылка.ВводОстатковТовары --> ДокументСсылка.ОперацияБух <Порядок>200 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>ДокументСсылка.ВводОстатковТовары <Приемник>ДокументСсылка.ОперацияБух <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Значения/> <Правило> <Код>ВозвратТоваровОтПокупателя <Наименование>ДокументСсылка.ВозвратТоваровОтПокупателя --> ДокументСсылка.ВозвратТоваровОтПокупателя <Порядок>250 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Если Объект.ДоговорКонтрагента.ВидДоговора <> Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда Сообщить("В документе """ + Объект + """ договор контрагента не является договором ""С покупателем"". Договор будет очищен."); Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.ПустаяСсылка(); КонецЕсли; Объект.ЗаполнитьСчетаУчетаРасчетов(); Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Истина); Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <Источник>ДокументСсылка.ВозвратТоваровОтПокупателя <Приемник>ДокументСсылка.ВозвратТоваровОтПокупателя <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Группа> <Код>3 <Наименование>Товары --> Товары <Порядок>150 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>4 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование> --> Номенклатура <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>6 <Наименование>Себестоимость --> Себестоимость <Порядок>350 <Источник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Себестоимость" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>400 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>8 <Наименование>Сумма --> Сумма <Порядок>500 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>СуммаНДС --> СуммаНДС <Порядок>550 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование>Цена --> Цена <Порядок>600 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>14 <Наименование>НомерГТД --> НомерГТД <Порядок>800 <Источник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство Отключить="true"> <Код>15 <Наименование>СтранаПроисхождения --> СтранаПроисхождения <Порядок>850 <Источник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство> <Код>16 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>200 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>17 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>250 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>18 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>20 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>400 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>450 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Склад --> Склад <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>23 <Наименование>СуммаВключаетНДС --> СуммаВключаетНДС <Порядок>550 <Источник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>24 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>600 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование>УчитыватьНДС --> УчитыватьНДС <Порядок>650 <Источник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>26 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>700 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>27 <Наименование>Проведен --> Проведен <Порядок>750 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>28 <Наименование>ДатаСчетаФактуры --> ДатаВходящегоСчетаФактуры <Порядок>800 <Источник Имя="ДатаСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>29 <Наименование>НомерСчетаФактуры --> НомерВходящегоСчетаФактуры <Порядок>850 <Источник Имя="НомерСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>Фирма --> Организация <Порядок>900 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>31 <Наименование> --> ВидОперации <Порядок>950 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровОтПокупателя"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>32 <Наименование> --> ПредъявленСчетФактура <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = (ЗначениеЗаполнено(Источник.ДатаСчетаФактуры)); <Свойство> <Код>33 <Наименование>КатегорияЦен --> ТипЦен <Порядок>1050 <Источник Имя="КатегорияЦен" Вид="Реквизит" Тип="СправочникСсылка.КатегорииЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Значения/> <Правило> <Код>ВозвратТоваровПоставщику <Наименование>ДокументСсылка.ВозвратТоваровПоставщику --> ДокументСсылка.ВозвратТоваровПоставщику <Порядок>300 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Если НалоговыйУчетУСН.ПрименениеУСН(Объект.Организация, Объект.Дата) Тогда Объект.НДСВключенВСтоимость = Истина; КонецЕсли; Объект.ЗаполнитьСчетаУчетаРасчетов(); Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Истина); Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00003") тогда //альбионика Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01"); СтрокаТЧ.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.03"); КонецЦикла; Иначе Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); СтрокаТЧ.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.03"); КонецЦикла; КонецЕсли; Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00006") //гурман или Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") //концепт трейд тогда Объект.УчитыватьНДС = Ложь; Объект.НДСВключенВСтоимость = Ложь; Объект.СуммаВключаетНДС = ложь; Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СтавкаНДС = перечисления.СтавкиНДС.БезНДС; СтрокаТЧ.суммаНДС = 0; КонецЦикла; КонецЕсли; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>ДокументСсылка.ВозвратТоваровПоставщику <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>200 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>5 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>7 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>350 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>400 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>10 <Наименование>СуммаВключаетНДС --> СуммаВключаетНДС <Порядок>500 <Источник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>11 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>550 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>УчитыватьНДС --> УчитыватьНДС <Порядок>600 <Источник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>13 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>650 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>14 <Наименование>Проведен --> Проведен <Порядок>700 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>15 <Наименование> --> ВидОперации <Порядок>750 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийВозвратТоваровПоставщику"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>16 <Наименование>Фирма --> Организация <Порядок>800 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>17 <Наименование>Товары --> Товары <Порядок>850 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>18 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>20 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>21 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>24 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>450 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>25 <Наименование>КоличествоМест --> КоличествоМест <Порядок>500 <Источник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>26 <Наименование>Коэффициент --> Коэффициент <Порядок>550 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование> --> СтатьяДоходовИРасходов <Порядок>1100 <Источник Имя="" Вид=""/> <Приемник Имя="СтатьяДоходовИРасходов" Вид="Реквизит" Тип="СправочникСсылка.ПрочиеДоходыИРасходы"/> <ПередВыгрузкой>Значение = "РазницыСтоимостиВозвратаИФактическойСтоимостиТоваров"; <Значения/> <Правило> <Код>ИнвентаризацияТоваровНаСкладе <Наименование>ДокументСсылка.ИнвентаризацияТовара --> ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Порядок>350 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Для Каждого СтрокаТЧ Из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчет.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); КонецЦикла; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Записать); Сообщить("Документ записан : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ЗАПИСАН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>ДокументСсылка.ИнвентаризацияТовара <Приемник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>200 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Фирма --> Организация <Порядок>300 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>7 <Наименование>Товары --> Товары <Порядок>350 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>8 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>10 <Наименование>Цена --> Цена <Порядок>150 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование> --> Сумма <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ОтчетОРозничныхПродажах <Наименование>ДокументСсылка.ОтчетКассовойСмены --> ДокументСсылка.ОтчетОРозничныхПродажах <Порядок>400 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, Истина); Объект.Счеткасса = ПланыСчетов.Хозрасчетный.НайтиПоКоду("50.02"); Объект.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000007"); Для Каждого СтрокаТЧ Из Объект.Оплата Цикл СтрокаТЧ.СчетУчетаРасчетов = СтрокаТЧ.ВидОплаты.СчетУчетаРасчетов; КонецЦикла; // Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00004") Тогда //гурмэ Для каждого СтрокаТЧ из Объект.Товары Цикл // // СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); // СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1"); // СтрокаТЧ.СчетУчетаНДСпоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03"); // СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1"); СтрокаТЧ.Субконто = Справочники.Номенклатурныегруппы.найтиПоКоду("БП0000003"); // КонецЦикла; // // //ИначеЕсли Объект.Организация = Справочники.Организации.НайтиПоКоду("00001") Тогда //калинка - старая // //Для каждого СтрокаТЧ из Объект.Товары Цикл // // СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); // СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1"); // СтрокаТЧ.СчетУчетаНДСпоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03"); // СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1"); // СтрокаТЧ.Субконто = Справочники.Номенклатурныегруппы.найтиПоКоду("БП0000003"); // // КонецЦикла; // //ИначеЕсли Объект.Организация = Справочники.Организации.НайтиПоКоду("00002") Тогда //ко // // Для каждого СтрокаТЧ из Объект.Товары Цикл // // СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); // СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.2"); // //СтрокаТЧ.СчетУчетаНДСпоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03"); // СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.2"); // СтрокаТЧ.Субконто = Справочники.Номенклатурныегруппы.найтиПоКоду("БП0000003"); // // КонецЦикла; // // //КонецЕсли; //КонецЕсли; //КонецЕсли; Для Каждого СтрокаТЧ из Объект.Оплата Цикл СтрокаТЧ.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03"); Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00001") Тогда СтрокаТЧ.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000100002"); Иначе СтрокаТЧ.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00100001"); КонецЕсли; КонецЦикла; Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") //КОНЦЕПТ ТРЕЙД //или Объект.Организация = Справочники.Организации.НайтиПоКоду("00006") //ГУРМАН тогда Объект.УчитыватьНДС = Ложь; //Объект.НДСВключенВСтоимость = Ложь; //Объект.СуммаВключаетНДС = ложь; Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СтавкаНДС = перечисления.СтавкиНДС.БезНДС; СтрокаТЧ.суммаНДС = 0; СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.2"); СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.2"); КонецЦикла; иНАЧЕ Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00006") //ГУРМАН тогда Объект.УчитыватьНДС = Ложь; //Объект.НДСВключенВСтоимость = Ложь; //Объект.СуммаВключаетНДС = ложь; Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СтавкаНДС = перечисления.СтавкиНДС.БезНДС; СтрокаТЧ.суммаНДС = 0; СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1"); СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1"); КонецЦикла; КонецЕсли; КонецЕсли; Для Каждого СтрокаТЧ из Объект.Оплата Цикл Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") Тогда СтрокаТЧ.ВидОплаты = справочники.ВидыОплатОрганизаций.НайтиПоНаименованию("Банковские карты"); СтрокаТЧ.Контрагент = справочники.Контрагенты.НайтиПоНаименованию("АКБ Форштадт"); СтрокаТЧ.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию("Эквайринг"); КонецЕсли; КонецЦикла; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>ДокументСсылка.ОтчетКассовойСмены <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Склад --> Склад <Порядок>250 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>СуммаВключаетНДС --> СуммаВключаетНДС <Порядок>300 <Источник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>7 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>350 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>УчитыватьНДС --> УчитыватьНДС <Порядок>400 <Источник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>10 <Наименование>Проведен --> Проведен <Порядок>500 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>Фирма --> Организация <Порядок>550 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>12 <Наименование> --> ВидОперации <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийОтчетОРозничныхПродажах"/> <ПередВыгрузкой>Значение = "ОтчетККМОПродажах"; <Свойство> <Код>13 <Наименование>КратностьВзаиморасчетов --> КратностьДокумента <Порядок>650 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>КурсВзаиморасчетов --> КурсДокумента <Порядок>700 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Группа> <Код>15 <Наименование>Товары --> Товары <Порядок>750 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуУслуг); ТабТоваров = КоллекцияОбъектов; // дополним товары услугами Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); Для Каждого СтрокаТЧ Из ТабТоваров Цикл НоваяСтрока = КоллекцияОбъектов.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТЧ); КонецЦикла; // дополним товары сертификатами Для Каждого СтрокаТЧ Из Источник.Сертификаты Цикл Если СтрокаТЧ.Количество > 0 Тогда НоваяСтрока = КоллекцияОбъектов.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТЧ); КонецЕсли; КонецЦикла; <ПередВыгрузкой>Если ОбъектКоллекции.Количество = 0 Тогда Отказ = Истина; КонецЕсли; <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>19 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СчетКасса <Порядок>800 <Источник Имя="" Вид=""/> <Приемник Имя="СчетКасса" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Если Константы.ВалютаРегламентированногоУчета.Получить() = Источник.ВалютаДокумента Тогда Значение = "50.01"; Иначе Значение = "50.21"; КонецЕсли; <Группа> <Код>26 <Наименование>Оплата --> Оплата <Порядок>850 <Источник Имя="Оплата" Вид="ТабличнаяЧасть"/> <Приемник Имя="Оплата" Вид="ТабличнаяЧасть"/> <ПередВыгрузкой>Если (ОбъектКоллекции.ВидОплаты.ТипОплаты = Перечисления.ТипыОплаты.Наличные) ИЛИ (ОбъектКоллекции.Сумма = 0) Тогда Отказ = Истина; КонецЕсли; <Свойство> <Код>27 <Наименование>ВидОплаты --> ВидОплаты <Порядок>50 <Источник Имя="ВидОплаты" Вид="Реквизит" Тип="СправочникСсылка.ВидыОплаты"/> <Приемник Имя="ВидОплаты" Вид="Реквизит" Тип="СправочникСсылка.ВидыОплатОрганизаций"/> <КодПравилаКонвертации>ВидыОплатОрганизаций <ПередВыгрузкой>ИсходящиеДанные = Источник.Фирма; <Свойство> <Код>28 <Наименование>Сумма --> СуммаОплаты <Порядок>100 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаОплаты" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>150 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>30 <Наименование>Контрагент --> Контрагент <Порядок>200 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Значения/> <Правило> <Код>ПеремещениеТоваров <Наименование>ДокументСсылка.ПеремещениеТоваров --> ДокументСсылка.ПеремещениеТоваров <Порядок>450 <ПередВыгрузкой>Если ЕстьРеквизитДокумента("ПеремещениеМеждуФирмами", Источник.Метаданные()) И Источник.ПеремещениеМеждуФирмами Тогда Отказ = Истина; КонецЕсли; //Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00003") тогда Для Каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01"); СтрокаТЧ.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01"); КонецЦикла; //Иначе //Если Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00016") // или Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00002") // // и НЕ Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00016") // или НЕ Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00002") // // Тогда // //сообщить("Объект.СкладОтправитель"); // Для каждого СтрокаТЧ Из Объект.Товары Цикл // СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); // СтрокаТЧ.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); // //КонецЦикла; //иначе // // Если Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00016") // или Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00002") // // и Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00016") // или Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00002") // //Тогда // сообщить("Объект.СкладОтправитель"); // Для каждого СтрокаТЧ Из Объект.Товары Цикл // СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); // СтрокаТЧ.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); // //КонецЦикла; //иначе // // Если НЕ Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00016") // или НЕ Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00002") // // и НЕ Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00016") // или НЕ Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00002") // // Тогда // сообщить("Объект.СкладОтправитель"); // Для каждого СтрокаТЧ Из Объект.Товары Цикл // СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); // СтрокаТЧ.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); // //КонецЦикла; //иначе // // Если НЕ Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00016") // или НЕ Объект.СкладОтправитель = Справочники.Склады.НайтиПоКоду("00002") // // и Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00016") // или Объект.СкладПолучатель = Справочники.Склады.НайтиПоКоду("00002") // // Тогда // сообщить("Объект.СкладОтправитель"); // Для каждого СтрокаТЧ Из Объект.Товары Цикл // СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); // СтрокаТЧ.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); // //КонецЦикла; //КонецЕсли; // КонецЕсли; // КонецЕсли; //КонецЕсли; //КонецЕсли; Иначе Для Каждого СтрокаТЧ Из Объект.Товары Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабЧастиРегл(СтрокаТЧ, "Товары", Истина); КонецЦикла; КонецЕсли; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>ДокументСсылка.ПеремещениеТоваров <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование> --> ВидОперации <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПеремещениеТоваров"/> <ПередВыгрузкой>Значение = "ТоварыПродукция"; <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>СкладПолучатель --> СкладПолучатель <Порядок>250 <Источник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>7 <Наименование>Проведен --> Проведен <Порядок>350 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Фирма --> Организация <Порядок>400 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>9 <Наименование>Склад --> СкладОтправитель <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>10 <Наименование>Товары --> Товары <Порядок>500 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>11 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>16 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПлатежноеПоручениеВходящее <Наименование>ДокументСсылка.ПлатежноеПоручение --> ДокументСсылка.ПлатежноеПоручениеВходящее <Порядок>500 <ПередВыгрузкой>Если Источник.ВидОперации <> Перечисления.ВидыОперацийПлатежноеПоручение.Входящее Тогда Отказ = Истина; КонецЕсли; Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПриВыгрузке>СтруктураВозможныхДокументов = Новый Структура; СтруктураВозможныхДокументов.Вставить("РасходнаяНакладная" , "РеализацияТоваровУслуг"); СтруктураВозможныхДокументов.Вставить("Счет" , "СчетНаОплатуПокупателю"); Выполнить(Алгоритмы.ЗаписатьУзелДокументОснование); <ПриЗагрузке>Выполнить(Алгоритмы.ПрочитатьУзелСвязанныхДокументов); <ПослеЗагрузки>УправлениеДенежнымиСредствами.ЗаполнитьСчетУчетаДенежныхСредств(Объект, "СчетБанк"); Если НЕ ЗначениеЗаполнено(Объект.СчетБанк) Тогда Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетБанк = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Объект.СчетБанк = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; КонецЕсли; Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЦикла; <Источник>ДокументСсылка.ПлатежноеПоручение <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование> --> ВидОперации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеДенежныхСредств"/> <ПередВыгрузкой>Если Источник.ВзаиморасчетыПодробно.Количество() > 0 И Источник.ВзаиморасчетыПодробно[0].ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда Значение = "ОплатаПокупателя"; Иначе Значение = "ВозвратОтПоставщика"; КонецЕсли; <Свойство> <Код>5 <Наименование>ДокументОснование --> ДокументОснование <Порядок>250 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>6 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование> --> НазначениеПлатежа <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой> Значение = СтрЗаменить(Источник.НазначениеПлатежа, Символы.ПС, " "); <Свойство> <Код>9 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>450 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>500 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>11 <Наименование>Проведен --> Проведен <Порядок>550 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование>ВходящаяДата --> ДатаВходящегоДокумента <Порядок>600 <Источник Имя="ВходящаяДата" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>13 <Наименование>ВходящийНомер --> НомерВходящегоДокумента <Порядок>650 <Источник Имя="ВходящийНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Группа> <Код>14 <Наименование>ВзаиморасчетыПодробно --> РасшифровкаПлатежа <Порядок>700 <Источник Имя="ВзаиморасчетыПодробно" Вид="ТабличнаяЧасть"/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>50 <Источник Имя="ДоговорКонтрагента" Вид="Измерение" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>16 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>19 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>250 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Сумма --> СуммаПлатежа <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СпособПогашенияЗадолженности <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <ПередВыгрузкой>Значение = "Автоматически"; <Свойство> <Код>22 <Наименование>БанковскийСчетКонтрагента --> СчетКонтрагента <Порядок>750 <Источник Имя="БанковскийСчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>23 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>800 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>24 <Наименование>Фирма --> Организация <Порядок>850 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Значения/> <Правило> <Код>ПоступлениеТоваровУслуг <Наименование>ДокументСсылка.ПриходнаяНакладная --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>550 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки> Если НалоговыйУчетУСН.ПрименениеУСН(Объект.Организация, Объект.Дата) Тогда Объект.НДСВключенВСтоимость = Истина; КонецЕсли; //Объект.ЗаполнитьСчетаУчетаРасчетов(); //Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Истина, Истина); //Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Услуги, "Услуги", Истина, Истина); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"); Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.02"); Если Объект.организация = Справочники.организации.НайтиПоКоду("00003") и Объект.Контрагент = Справочники.Контрагенты.НайтиПоКоду("221") Тогда //Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.найтиПоКоду("00100003") Тогда Сообщить("АЛЬБИОНИКА " + Объект + " Договор будет изменен на Договор с комитентом"); Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.найтиПоКоду("БП0000196"); //завести договор с комитентом в БП КонецЕсли; //Объект.ЗаполнитьСчетаУчетаРасчетов(); //Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Истина); //Объект.ЗаполнитьСчетаУчетаВТабЧастиУслуги(Истина); Если Объект.организация = Справочники.организации.НайтиПоКоду("00002") и Объект.Контрагент = Справочники.Контрагенты.НайтиПоКоду("215") тогда Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.найтиПоКоду("000100002"); Для каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.НеПринимаются; КонецЦикла; иначе Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); СтрокаТЧ.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НайтиПоКоду("19.03"); КонецЦикла; КонецЕсли; Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00002") ИЛИ Объект.Организация = Справочники.Организации.НайтиПоКоду("00003") Тогда Для каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; Для каждого СтрокаТЧ Из Объект.Услуги Цикл СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; КонецЕсли; Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00006") //гурман или Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") //концепт трейд тогда Объект.УчитыватьНДС = Ложь; Объект.НДСВключенВСтоимость = Ложь; Объект.СуммаВключаетНДС = ложь; Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СтавкаНДС = перечисления.СтавкиНДС.БезНДС; СтрокаТЧ.суммаНДС = 0; СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; КонецЕсли; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <Источник>ДокументСсылка.ПриходнаяНакладная <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Группа> <Код>3 <Наименование>Товары --> Товары <Порядок>150 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>4 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование> --> Номенклатура <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>6 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>7 <Наименование>Сумма --> Сумма <Порядок>450 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>СуммаНДС --> СуммаНДС <Порядок>500 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Цена --> Цена <Порядок>550 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Группа> <Код>15 <Наименование>Услуги --> Услуги <Порядок>200 <Источник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуУслуг); <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыУслуга); <Свойство> <Код>18 <Наименование>Содержание --> Содержание <Порядок>150 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>20 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Цена --> Цена <Порядок>350 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>250 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>24 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>300 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>25 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>26 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>27 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>450 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>РегистрироватьЗакупочныеЦены --> РегистрироватьЦеныПоставщика <Порядок>550 <Источник Имя="РегистрироватьЗакупочныеЦены" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="РегистрироватьЦеныПоставщика" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>30 <Наименование>Склад --> Склад <Порядок>600 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>31 <Наименование>СуммаВключаетНДС --> СуммаВключаетНДС <Порядок>650 <Источник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>32 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>700 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>33 <Наименование>УчитыватьНДС --> УчитыватьНДС <Порядок>750 <Источник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>34 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>800 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>35 <Наименование>Проведен --> Проведен <Порядок>850 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>36 <Наименование>Дата --> ДатаВходящегоДокумента <Порядок>900 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>37 <Наименование>ДатаСчетаФактуры --> ДатаВходящегоСчетаФактуры <Порядок>950 <Источник Имя="ДатаСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоСчетаФактуры" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>38 <Наименование>ВходящийНомер --> НомерВходящегоДокумента <Порядок>1000 <Источник Имя="ВходящийНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>39 <Наименование>НомерСчетаФактуры --> НомерВходящегоСчетаФактуры <Порядок>1050 <Источник Имя="НомерСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоСчетаФактуры" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>40 <Наименование>Фирма --> Организация <Порядок>1100 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>41 <Наименование> --> ВидОперации <Порядок>1150 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПоступлениеТоваровУслуг"/> <ПередВыгрузкой>Значение = "ПокупкаКомиссия"; <Свойство> <Код>42 <Наименование> --> ПредъявленСчетФактура <Порядок>1200 <Источник Имя="" Вид=""/> <Приемник Имя="ПредъявленСчетФактура" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = (ЗначениеЗаполнено(Источник.НомерСчетаФактуры)); <Свойство> <Код>43 <Наименование> --> СпособЗачетаАвансов <Порядок>1250 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Значение = "Автоматически" <Свойство> <Код>44 <Наименование> --> КодВидаОперации <Порядок>1300 <Источник Имя="" Вид=""/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "01"; <Значения/> <Правило> <Код>ПриходныйКассовыйОрдер_Прочий <Наименование>ДокументСсылка.ПриходныйКассовыйОрдер --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>600 <ПослеЗагрузки>// Установим курс и кратность документа Объект.КурсДокумента = ПараметрыОбъекта["КурсДокумента"]; Объект.КратностьДокумента = ПараметрыОбъекта["КратностьДокумента"]; Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ОперационнаяКасса; Объект.СубконтоКт1 = Объект.СтатьяДвиженияДенежныхСредств; Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00006") //гурман // или Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") //концепт трейд и Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПрочийПриход тогда Объект.РучнаяНастройка_УСН = Истина; // ДоходыЕНВД_УСН = Истина; Объект.Графа4_УСН = 0; Объект.Графа5_УСН = 0; КонецЕсли; Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ОперационнаяКасса; СтрокаПлатеж.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; КонецЦикла; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПриходныйКассовыйОрдер <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>Номер --> Комментарий <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>200 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>500 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>--> ВидОперации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <ПередВыгрузкой>Значение = "ПрочийПриход"; <Свойство> <Код>23 <Наименование>Фирма --> Организация <Порядок>800 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>24 <Наименование>КурсДокумента --> КурсДокумента <Порядок>850 <Источник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КурсДокумента <Свойство> <Код>25 <Наименование>КратностьДокумента --> КратностьДокумента <Порядок>900 <Источник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КратностьДокумента <Свойство> <Код>26 <Наименование>СтатьяДвиженияДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>950 <Источник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Значения/> <Правило> <Код>ПриходныйКассовыйОрдер <Наименование>ДокументСсылка.ПриходныйКассовыйОрдер --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>600 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); ВходящиеДанные = Новый Структура; Если Источник.Контрагент.ВидКонтрагента = Перечисления.ВидыКонтрагентов.ККМ Тогда ВыгрузитьПоПравилу(Источник,,,, "ПриходныйКассовыйОрдер_Прочий"); ВходящиеДанные.Вставить("Контрагент", Источник.ДокументОснование.Склад); Иначе ВходящиеДанные.Вставить("Контрагент", Источник.Контрагент); КонецЕсли; <ПриВыгрузке>СтруктураВозможныхДокументов = Новый Структура; СтруктураВозможныхДокументов.Вставить("ОтчетКассовойСмены" , "ОтчетОРозничныхПродажах"); СтруктураВозможныхДокументов.Вставить("РасходнаяНакладная" , "РеализацияТоваровУслуг"); СтруктураВозможныхДокументов.Вставить("Счет" , "СчетНаОплатуПокупателю"); Выполнить(Алгоритмы.ЗаписатьУзелДокументОснование); <ПриЗагрузке>Выполнить(Алгоритмы.ПрочитатьУзелСвязанныхДокументов); <ПослеЗагрузки>// Установим курс и кратность документа Объект.КурсДокумента = ПараметрыОбъекта["КурсДокумента"]; Объект.КратностьДокумента = ПараметрыОбъекта["КратностьДокумента"]; // Установим прочие реквизиты УправлениеДенежнымиСредствами.ЗаполнитьСчетУчетаДенежныхСредств(Объект, "СчетКасса"); Если НЕ ЗначениеЗаполнено(Объект.СчетКасса) Тогда Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; КонецЕсли; Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; СтрокаПлатеж.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; КонецЦикла; // доработка Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РозничнаяВыручка Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.ОперационнаяКасса; СтрокаТЧ = Объект.РасшифровкаПлатежа.Получить(0); Если Объект.Организация.ИНН = "7701972293" Тогда СтрокаТЧ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД; Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД; Иначе СтрокаТЧ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД; Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД; КонецЕсли; КонецЕсли; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; <Источник>ДокументСсылка.ПриходныйКассовыйОрдер <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>5 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>--> Контрагент <Порядок>300 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Если Источник.Контрагент.ВидКонтрагента = Перечисления.ВидыКонтрагентов.ККМ Тогда ИмяПКО = "Склады"; ИначеЕсли Источник.Контрагент.ВидКонтрагента = Перечисления.ВидыКонтрагентов.Сотрудник Тогда ИмяПКО = "ФизическиеЛица"; Иначе ИмяПКО = "Контрагенты"; КонецЕсли; <Свойство> <Код>7 <Наименование>Основание --> Основание <Порядок>350 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Приложение --> Приложение <Порядок>400 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ПринятоОт --> ПринятоОт <Порядок>450 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>500 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>550 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>--> ВидОперации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <ПередВыгрузкой>Если Источник.Контрагент.ВидКонтрагента = Перечисления.ВидыКонтрагентов.ККМ Тогда Значение = "РозничнаяВыручка"; ИначеЕсли Источник.Контрагент.ВидКонтрагента = Перечисления.ВидыКонтрагентов.Сотрудник Тогда Значение = "ВозвратОтПодотчетногоЛица"; Иначе Если Источник.ВзаиморасчетыПодробно.Количество() > 0 И Источник.ВзаиморасчетыПодробно[0].ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда Значение = "ОплатаПокупателя"; Иначе Значение = "ВозвратОтПоставщика"; КонецЕсли; КонецЕсли; <Группа> <Код>14 <Наименование>ВзаиморасчетыПодробно --> РасшифровкаПлатежа <Порядок>750 <Источник Имя="ВзаиморасчетыПодробно" Вид="ТабличнаяЧасть"/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>50 <Источник Имя="ДоговорКонтрагента" Вид="Измерение" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>16 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>19 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>250 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>Сумма --> СуммаПлатежа <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>25 <Наименование> --> СпособПогашенияЗадолженности <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <ПередВыгрузкой>Значение = "Автоматически"; <Свойство> <Код>22 <Наименование>Фирма --> Организация <Порядок>800 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>23 <Наименование>КурсДокумента --> КурсДокумента <Порядок>850 <Источник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КурсДокумента <Свойство> <Код>24 <Наименование>КратностьДокумента --> КратностьДокумента <Порядок>900 <Источник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КратностьДокумента <Свойство> <Код>26 <Наименование>СтатьяДвиженияДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>950 <Источник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Значения/> <Правило> <Код>РеализацияТоваровУслуг <Наименование>ДокументСсылка.РасходнаяНакладная --> ДокументСсылка.РеализацияТоваровУслуг <Порядок>650 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Если Объект.ДоговорКонтрагента.ВидДоговора <> Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда Сообщить("В документе """ + Объект + """ договор контрагента не является договором ""С покупателем"". Договор будет очищен."); Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.ПустаяСсылка(); КонецЕсли; Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01"); Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02"); Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Если Объект.организация = Справочники.организации.НайтиПоКоду("00003") и Объект.Контрагент = Справочники.Контрагенты.НайтиПоКоду("221") Тогда //Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.найтиПоКоду("00100003") Тогда Сообщить("АЛЬБИОНИКА " + Объект + " Договор будет изменен на Договор с комитентом"); Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.найтиПоКоду("БП0000196"); //завести договор с комитентом в БП КонецЕсли; //Объект.ЗаполнитьСчетаУчетаРасчетов(); //Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Истина); //Объект.ЗаполнитьСчетаУчетаВТабЧастиУслуги(Истина); Если Объект.организация = Справочники.организации.НайтиПоКоду("00003") и Объект.Контрагент = Справочники.Контрагенты.НайтиПоКоду("221") тогда Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.найтиПоКоду("БП0000196"); Для каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("43"); СтрокаТЧ.ПереданныеСчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("45.02"); КонецЦикла; иначе Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1"); СтрокаТЧ.СчетУчетаНДСпоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03"); СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1"); СтрокаТЧ.Субконто = Справочники.Номенклатурныегруппы.найтиПоКоду("БП0000003"); КонецЦикла; КонецЕсли; Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00006") //гурман или Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") //концепт трейд тогда Объект.УчитыватьНДС = Ложь; // Объект.НДСВключенВСтоимость = Ложь; Объект.СуммаВключаетНДС = ложь; Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.СтавкаНДС = перечисления.СтавкиНДС.БезНДС; СтрокаТЧ.суммаНДС = 0; СтрокаТЧ.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.2"); //СтрокаТЧ.СчетУчетаНДСпоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03"); СтрокаТЧ.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.2"); КонецЦикла; КонецЕсли; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <Источник>ДокументСсылка.РасходнаяНакладная <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Группа> <Код>3 <Наименование>Товары --> Товары <Порядок>150 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>4 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование> --> Номенклатура <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>6 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>300 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>7 <Наименование>Сумма --> Сумма <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>СуммаНДС --> СуммаНДС <Порядок>400 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Цена --> Цена <Порядок>450 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Группа> <Код>13 <Наименование>Услуги --> Услуги <Порядок>200 <Источник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуУслуг); <Свойство> <Код>14 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование> --> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыУслуга); <Свойство> <Код>16 <Наименование>Содержание --> Содержание <Порядок>150 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>18 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>Цена --> Цена <Порядок>350 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>21 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>250 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>22 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>300 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>23 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>24 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>25 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>450 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>500 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Склад --> Склад <Порядок>550 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>28 <Наименование>СуммаВключаетНДС --> СуммаВключаетНДС <Порядок>600 <Источник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>29 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>650 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>УчитыватьНДС --> УчитыватьНДС <Порядок>700 <Источник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>31 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>750 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>32 <Наименование>Проведен --> Проведен <Порядок>800 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>33 <Наименование> --> ВидОперации <Порядок>850 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРеализацияТоваров"/> <ПередВыгрузкой>Значение = "ПродажаКомиссия"; <Свойство> <Код>34 <Наименование>Фирма --> Организация <Порядок>900 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>35 <Наименование>КатегорияЦен --> ТипЦен <Порядок>950 <Источник Имя="КатегорияЦен" Вид="Реквизит" Тип="СправочникСсылка.КатегорииЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>36 <Наименование> --> СпособЗачетаАвансов <Порядок>1000 <Источник Имя="" Вид=""/> <Приемник Имя="СпособЗачетаАвансов" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыЗачетаАвансов"/> <ПередВыгрузкой>Значение = "Автоматически"; <Значения/> <Правило> <Код>РасходныйКассовыйОрдер <Наименование>ДокументСсылка.РасходныйКассовыйОрдер --> ДокументСсылка.РасходныйКассовыйОрдер <Порядок>700 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПриВыгрузке>СтруктураВозможныхДокументов = Новый Структура; СтруктураВозможныхДокументов.Вставить("ВозвратТоваровОтПокупателя" , "ВозвратТоваровОтПокупателя"); СтруктураВозможныхДокументов.Вставить("ОтчетКомитентуОПродажах" , "ОтчетКомитентуОПродажах"); СтруктураВозможныхДокументов.Вставить("ПриходнаяНакладная" , "ПоступлениеТоваровУслуг"); Выполнить(Алгоритмы.ЗаписатьУзелДокументОснование); <ПриЗагрузке>Выполнить(Алгоритмы.ПрочитатьУзелСвязанныхДокументов); <ПослеЗагрузки>// Установим курс и кратность документа Объект.КурсДокумента = ПараметрыОбъекта["КурсДокумента"]; Объект.КратностьДокумента = ПараметрыОбъекта["КратностьДокумента"]; // Установим прочие реквизиты УправлениеДенежнымиСредствами.ЗаполнитьСчетУчетаДенежныхСредств(Объект, "СчетКасса"); Если НЕ ЗначениеЗаполнено(Объект.СчетКасса) Тогда Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; КонецЕсли; Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если СтрокаПлатеж.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЦикла; //ДатаНачала = ДатаНачала("") Если Объект.Дата > '20150203000000' //Организация = Справочники.Организации.НайтиПоКоду("00006") //гурман //или Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") и Объект.ВидОперации = перечисления.ВидыОперацийРКО.ВзносНаличнымиВБанк//концепт трейд тогда Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("51"); Объект.Контрагент = ""; КонецЦикла; КонецЕсли; //Если Объект.Дата > '20150203000000' // //Организация = Справочники.Организации.НайтиПоКоду("00006") //гурман // //или Объект.Организация = Справочники.Организации.НайтиПоКоду("00005") // и Объект.ВидОперации = перечисления.ВидыОперацийРКО.ВыплатаЗаработнойПлатыПоВедомостям//концепт трейд // // тогда // //Объект.РучнаяНастройка_УСН = Истина; //Объект.РасходыЕНВД_УСН = Истина; //Объект.Графа6_УСН = Объект.СуммаДокумента; //Объект.Графа7_УСН = Объект.СуммаДокумента; //сообщить(Объект.Графа6_УСН); //сообщить(Объект.Графа7_УСН); //КонецЕсли; Если Объект.Организация = Справочники.организации.НайтиПоКоду("00006") тогда Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Объект.СчетОрганизации = справочники.БанковскиеСчета.НайтиПоКоду("00100742"); КонецЦикла; КонецЕсли; Если Объект.Организация = Справочники.организации.НайтиПоКоду("00005") тогда Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Объект.СчетОрганизации = справочники.БанковскиеСчета.НайтиПоКоду("00100741"); КонецЦикла; КонецЕсли; Если Объект.Организация = Справочники.организации.НайтиПоКоду("00002") тогда Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Объект.СчетОрганизации = справочники.БанковскиеСчета.НайтиПоКоду("00100489"); КонецЦикла; КонецЕсли; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 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 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>13 <Наименование>Проведен --> Проведен <Порядок>650 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>14 <Наименование>--> ВидОперации <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <ПередВыгрузкой>Если Источник.Контрагент.ВидКонтрагента = Перечисления.ВидыКонтрагентов.Сотрудник и Источник.Комментарий = "торговая выручка" Тогда Значение = "ВзносНаличнымиВБанк"; иначе еСЛИ Источник.СатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию("Выплата заработной платы") Тогда Значение = "ВыплатаЗаработнойПлатыПоВедомостям"; иначе еСЛИ Источник.СатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию("Возврат денежных средств покупателю") Тогда Значение = "ВозвратПокупателю"; иначе Если Источник.Контрагент.ВидКонтрагента = Перечисления.ВидыКонтрагентов.Сотрудник и НЕ Источник.Комментарий = "торговая выручка" тогда Значение = "ВыдачаПодотчетномуЛицу"; Иначе Если Источник.ВзаиморасчетыПодробно.Количество() > 0 И Источник.ВзаиморасчетыПодробно[0].ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда Значение = "ВозвратПокупателю"; Иначе Значение = "ОплатаПоставщику"; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; <Свойство> <Код>15 <Наименование>Фирма --> Организация <Порядок>750 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>16 <Наименование>ВзаиморасчетыПодробно --> РасшифровкаПлатежа <Порядок>800 <Источник Имя="ВзаиморасчетыПодробно" Вид="ТабличнаяЧасть"/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>17 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>50 <Источник Имя="ДоговорКонтрагента" Вид="Измерение" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>18 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>21 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>250 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>Сумма --> СуммаПлатежа <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> СпособПогашенияЗадолженности <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <ПередВыгрузкой>Значение = "Автоматически"; <Свойство> <Код>24 <Наименование>КурсДокумента --> <Порядок>850 <Источник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КурсДокумента <Свойство> <Код>25 <Наименование>КратностьДокумента --> <Порядок>900 <Источник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КратностьДокумента <Свойство> <Код>27 <Наименование>СатьяДвиженияДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>950 <Источник Имя="СатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Значения/> <Правило> <Код>СписаниеТоваров <Наименование>ДокументСсылка.СписаниеТоваров --> ДокументСсылка.СписаниеТоваров <Порядок>750 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Если Объект.Организация = Справочники.Организации.НайтиПоКоду("00003") тогда Для Каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01"); КонецЦикла; Иначе Если Объект.Склад = Справочники.Склады.НайтиПоКоду("00016") Тогда Для Каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.НЕПринимаются; КонецЦикла; Иначе Для Каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.НЕПринимаются; КонецЦикла; КонецЕсли; КонецЕсли; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <Источник>ДокументСсылка.СписаниеТоваров <Приемник>ДокументСсылка.СписаниеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Склад --> Склад <Порядок>200 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>5 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>250 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>7 <Наименование>Проведен --> Проведен <Порядок>350 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование> --> ВидОперации <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеТоваров"/> <ПередВыгрузкой>Значение = "ТоварыПродукция"; <Свойство> <Код>9 <Наименование>Фирма --> Организация <Порядок>450 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>10 <Наименование>Товары --> Товары <Порядок>500 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>11 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Значения/> <Правило> <Код>СчетФактураВыданный <Наименование>ДокументСсылка.СчетФактура --> ДокументСсылка.СчетФактураВыданный <Порядок>800 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки> Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <Источник>ДокументСсылка.СчетФактура <Приемник>ДокументСсылка.СчетФактураВыданный <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>200 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>5 <Наименование>ДокументОснование --> ДокументОснование <Порядок>250 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>6 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>8 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>400 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>10 <Наименование>Проведен --> Проведен <Порядок>500 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>11 <Наименование>Фирма --> Организация <Порядок>550 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>12 <Наименование> --> ДокументыОснования <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументыОснования" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокументов = Новый ТаблицаЗначений; ТабДокументов.Колонки.Добавить("ДокументОснование"); НоваяСтрока = ТабДокументов.Добавить(); НоваяСтрока.ДокументОснование = Источник.ДокументОснование; КоллекцияОбъектов = ТабДокументов; <Свойство> <Код>13 <Наименование> --> ДокументОснование <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>14 <Наименование> --> КодВидаОперации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="КодВидаОперации" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "01"; <Свойство> <Код>15 <Наименование> --> ВидСчетаФактуры <Порядок>700 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСчетаФактуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидСчетаФактурыВыставленного"/> <ПередВыгрузкой> Значение = "НаРеализацию"; <Значения/> <Правило> <Код>ПлатежноеПоручениеИсходящее_Платежка <Наименование>ДокументСсылка.ПлатежноеПоручение --> ДокументСсылка.ПлатежноеПоручениеИсходящее <Порядок>850 <ПередВыгрузкой>Если Источник.ВидОперации <> Перечисления.ВидыОперацийПлатежноеПоручение.Исходящее И Источник.ВидОперации <> Перечисления.ВидыОперацийПлатежноеПоручение.ПеречислениеНалога Тогда Отказ = Истина; КонецЕсли; Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПриВыгрузке>СтруктураВозможныхДокументов = Новый Структура; СтруктураВозможныхДокументов.Вставить("ВозвратТоваровОтПокупателя" , "ВозвратТоваровОтПокупателя"); СтруктураВозможныхДокументов.Вставить("ОтчетКомитентуОПродажах" , "ОтчетКомитентуОПродажах"); СтруктураВозможныхДокументов.Вставить("ПриходнаяНакладная" , "ПоступлениеТоваровУслуг"); Выполнить(Алгоритмы.ЗаписатьУзелДокументОснование); <ПриЗагрузке>Выполнить(Алгоритмы.ПрочитатьУзелСвязанныхДокументов); <ПослеЗагрузки>// заполним необходимые реквизиты для печ. форм. АвтоЗначенияРеквизитов = ФормированиеПечатныхФорм.СформироватьАвтоЗначенияРеквизитовПлательщикаПолучателя(Объект.Организация, Объект.СчетОрганизации, Объект.Контрагент, Объект.СчетКонтрагента, ); // получатель Объект.ТекстПолучателя = АвтоЗначенияРеквизитов.ТекстПолучателя; Объект.ИННПолучателя = АвтоЗначенияРеквизитов.ИННПолучателя; Объект.КПППолучателя = АвтоЗначенияРеквизитов.КПППолучателя; // плательщик Объект.ТекстПлательщика = АвтоЗначенияРеквизитов.ТекстПлательщика; Объект.ИННПлательщика = АвтоЗначенияРеквизитов.ИННПлательщика; Объект.КПППлательщика = АвтоЗначенияРеквизитов.КПППлательщика; <Источник>ДокументСсылка.ПлатежноеПоручение <Приемник>ДокументСсылка.ПлатежноеПоручение <Свойства> <Свойство Поиск="true"> <Код>3 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>10 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>2 <Наименование> --> ВидПлатежа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидПлатежа" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник.ВидПлатежа); <Свойство> <Код>22 <Наименование>Фирма --> Организация <Порядок>250 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>23 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>300 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>8 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>24 <Наименование>БанковскийСчетКонтрагента --> СчетКонтрагента <Порядок>400 <Источник Имя="БанковскийСчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>4 <Наименование>ДокументОснование --> ДокументОснование <Порядок>450 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>5 <Наименование>КодБК --> КодБК <Порядок>500 <Источник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодБК" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>КодОКАТО --> КодОКАТО <Порядок>550 <Источник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>Комментарий --> Комментарий <Порядок>600 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>НазначениеПлатежа --> НазначениеПлатежа <Порядок>650 <Источник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>Ответственный --> Ответственный <Порядок>700 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Свойство> <Код>12 <Наименование>ПоказательДаты --> ПоказательДаты <Порядок>750 <Источник Имя="ПоказательДаты" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ПоказательДаты" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>ПоказательНомера --> ПоказательНомера <Порядок>800 <Источник Имя="ПоказательНомера" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательНомера" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>ПоказательОснования --> ПоказательОснования <Порядок>850 <Источник Имя="ПоказательОснования" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательОснования" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>15 <Наименование>ПоказательПериода --> ПоказательПериода <Порядок>900 <Источник Имя="ПоказательПериода" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательПериода" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>16 <Наименование>ПоказательТипа --> ПоказательТипа <Порядок>950 <Источник Имя="ПоказательТипа" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоказательТипа" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>17 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>1000 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>18 <Наименование>СтатусСоставителя --> СтатусСоставителя <Порядок>1050 <Источник Имя="СтатусСоставителя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="СтатусСоставителя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>19 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>1100 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>ТекстПлательщика --> ТекстПлательщика <Порядок>1150 <Источник Имя="ТекстПлательщика" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстПлательщика" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>ТекстПолучателя --> ТекстПолучателя <Порядок>1200 <Источник Имя="ТекстПолучателя" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстПолучателя" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>27 <Наименование>Очередность --> ОчередностьПлатежа <Порядок>1250 <Источник Имя="Очередность" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ОчередностьПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование> --> СуммаНДС <Порядок>1350 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.ВзаиморасчетыПодробно.Итог("СуммаНДС"); <Значения/> <Правило> <Код>ПлатежноеПоручениеИсходящее_Списание <Наименование>ДокументСсылка.ПлатежноеПоручение --> ДокументСсылка.ПлатежноеПоручениеИсходящее <Порядок>900 <ПередВыгрузкой>Если Источник.ВидОперации <> Перечисления.ВидыОперацийПлатежноеПоручение.Исходящее И Источник.ВидОперации <> Перечисления.ВидыОперацийПлатежноеПоручение.ПеречислениеНалога Тогда Отказ = Истина; КонецЕсли; Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); ВходящиеДанные = Новый Структура; ВходящиеДанные.Вставить("ДокументОснование", Источник); <ПриВыгрузке>СтруктураВозможныхДокументов = Новый Структура; СтруктураВозможныхДокументов.Вставить("ВозвратТоваровОтПокупателя" , "ВозвратТоваровОтПокупателя"); СтруктураВозможныхДокументов.Вставить("ОтчетКомитентуОПродажах" , "ОтчетКомитентуОПродажах"); СтруктураВозможныхДокументов.Вставить("ПриходнаяНакладная" , "ПоступлениеТоваровУслуг"); СтруктураВозможныхДокументов.Вставить("ПлатежноеПоручение" , "ПлатежноеПоручение"); Выполнить(Алгоритмы.ЗаписатьУзелДокументОснование); <ПриЗагрузке>Выполнить(Алгоритмы.ПрочитатьУзелСвязанныхДокументов); <ПослеЗагрузки>УправлениеДенежнымиСредствами.ЗаполнитьСчетУчетаДенежныхСредств(Объект, "СчетБанк"); Если НЕ ЗначениеЗаполнено(Объект.СчетБанк) Тогда Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетБанк = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Объект.СчетБанк = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; КонецЕсли; Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЦикла; <Источник>ДокументСсылка.ПлатежноеПоручение <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>4 <Наименование> --> ВидОперации <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств"/> <ПередВыгрузкой>Если Источник.ВидОперации = Перечисления.ВидыОперацийПлатежноеПоручение.ПеречислениеНалога Тогда Значение = "ПеречислениеНалога"; Иначе Если Источник.ВзаиморасчетыПодробно.Количество() > 0 И Источник.ВзаиморасчетыПодробно[0].ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда Значение = "ВозвратПокупателю"; Иначе Значение = "ОплатаПоставщику"; КонецЕсли; КонецЕсли; <Свойство> <Код>9 <Наименование> --> НазначениеПлатежа <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="НазначениеПлатежа" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = СтрЗаменить(Источник.НазначениеПлатежа, Символы.ПС, " "); <Свойство> <Код>7 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>10 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>400 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>14 <Наименование>Проведен --> Проведен <Порядок>500 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>15 <Наименование>Фирма --> Организация <Порядок>550 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>16 <Наименование>ВходящаяДата --> ДатаВходящегоДокумента <Порядок>600 <Источник Имя="ВходящаяДата" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>17 <Наименование>ВходящийНомер --> НомерВходящегоДокумента <Порядок>650 <Источник Имя="ВходящийНомер" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>18 <Наименование>БанковскийСчетКонтрагента --> СчетКонтрагента <Порядок>700 <Источник Имя="БанковскийСчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>19 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>750 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Группа> <Код>20 <Наименование>ВзаиморасчетыПодробно --> РасшифровкаПлатежа <Порядок>800 <Источник Имя="ВзаиморасчетыПодробно" Вид="ТабличнаяЧасть"/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <Свойство> <Код>21 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>50 <Источник Имя="ДоговорКонтрагента" Вид="Измерение" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>22 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>100 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>150 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>25 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>250 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>26 <Наименование>СуммаНДС --> СуммаНДС <Порядок>300 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>27 <Наименование>Сумма --> СуммаПлатежа <Порядок>350 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование> --> СпособПогашенияЗадолженности <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <ПередВыгрузкой>Значение = "Автоматически"; <Свойство> <Код>29 <Наименование> --> ДокументОснование <Порядок>850 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <КодПравилаКонвертации>ПлатежноеПоручениеИсходящее_Платежка <Значения/> <Правило> <Код>РасходныйКассовыйОрдер_Инкассация <Наименование>ДокументСсылка.Инкассация --> ДокументСсылка.РасходныйКассовыйОрдер <Порядок>950 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>// Установим курс и кратность документа Объект.КурсДокумента = ПараметрыОбъекта["КурсДокумента"]; Объект.КратностьДокумента = ПараметрыОбъекта["КратностьДокумента"]; //Объект.СчетКасса =ПланыСчетов.Хозрасчетный.НайтиПоКоду("50.02"); // Установим прочие реквизиты УправлениеДенежнымиСредствами.ЗаполнитьСчетУчетаДенежныхСредств(Объект, "СчетКасса"); Если НЕ ЗначениеЗаполнено(Объект.СчетКасса) Тогда Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; КонецЕсли; Если Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПереводыВПути; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПереводыВПутиВал; КонецЕсли; Для Каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если СтрокаПлатеж.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЦикла; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <Источник>ДокументСсылка.Инкассация <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство> <Код>1 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>50 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>2 <Наименование>Выдать --> Выдать <Порядок>100 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Дата --> Дата <Порядок>150 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>4 <Наименование>ДокументОснование --> ДокументОснование <Порядок>200 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>5 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>6 <Наименование>Номер --> Номер <Порядок>300 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>// первые 3 символа - код торгового объекта, // потом 4 символа - код фирмы, // остальные 4 символа - порядковый номер док-та. // код инкассации будет формировать путем вырезания последнего символа // кода фирмы и добавления в конец кода буквы "И". КодДокумента = СокрЛП(Источник.Номер); Значение = Лев(КодДокумента, СтрДлина(КодДокумента)-5) + Прав(КодДокумента, 4) + "И"; <Свойство> <Код>7 <Наименование>Основание --> Основание <Порядок>350 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ПоДокументу --> ПоДокументу <Порядок>400 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>Приложение --> Приложение <Порядок>500 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>11 <Наименование>Проведен --> Проведен <Порядок>550 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>12 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>600 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>--> ВидОперации <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <ПередВыгрузкой>Значение = "Инкассация"; <Свойство> <Код>14 <Наименование>БанковскийСчет --> СчетОрганизации <Порядок>700 <Источник Имя="БанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="СчетОрганизации" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство> <Код>15 <Наименование>Фирма --> Организация <Порядок>750 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>16 <Наименование> --> РасшифровкаПлатежа <Порядок>900 <Источник Имя="" Вид=""/> <Приемник Имя="РасшифровкаПлатежа" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТабДокументов = Новый ТаблицаЗначений; ТабДокументов.Колонки.Добавить("Источник"); НоваяСтрока = ТабДокументов.Добавить(); НоваяСтрока.Источник = Источник; КоллекцияОбъектов = ТабДокументов; <Свойство> <Код>17 <Наименование> --> КратностьВзаиморасчетов <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.КратностьДокумента; <Свойство> <Код>18 <Наименование> --> КурсВзаиморасчетов <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.КурсДокумента; <Свойство> <Код>19 <Наименование> --> СуммаВзаиморасчетов <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаДокумента; <Свойство> <Код>20 <Наименование> --> СуммаПлатежа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлатежа" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = Источник.СуммаДокумента; <Свойство> <Код>21 <Наименование>КурсДокумента --> <Порядок>950 <Источник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КурсДокумента <Свойство> <Код>22 <Наименование>КратностьДокумента --> <Порядок>1000 <Источник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="" Вид=""/> <ИмяПараметраДляПередачи>КратностьДокумента <Значения/> <Правило> <Код>ОтчетКомитентуОПродажах <Наименование>ДокументСсылка.ОтчетКомитентуОПродажах --> ДокументСсылка.ОтчетКомитентуОПродажах <Порядок>1000 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>// установим курс и кратность док-та СтруктураКурса = МодульВалютногоУчета.ПолучитьКурсВалюты(Объект.ДоговорКонтрагента.ВалютаВзаиморасчетов, Объект.Дата); Объект.КурсВзаиморасчетов = СтруктураКурса.Курс; Объект.КратностьВзаиморасчетов = СтруктураКурса.Кратность; // установим счета СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.УдержатьВознаграждение Тогда Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; СчетаУчета = БухгалтерскийУчет.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Объект.УслугаПоВознаграждению); Объект.СчетУчетаНДСПоРеализации = СчетаУчета.СчетУчетаНДСПродажи; Объект.СчетДоходов = СчетаУчета.СчетДоходов; Если ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда Объект.СпособРасчетаКомиссионногоВознаграждения = Объект.ДоговорКонтрагента.СпособРасчетаКомиссионногоВознаграждения; Если Объект.ДоговорКонтрагента.СпособРасчетаКомиссионногоВознаграждения = Перечисления.СпособыРасчетаКомиссионногоВознаграждения.НеРассчитывается Тогда Объект.ПроцентКомиссионногоВознаграждения = 0; Иначе Объект.ПроцентКомиссионногоВознаграждения = Объект.ДоговорКонтрагента.ПроцентКомиссионногоВознаграждения; КонецЕсли; КонецЕсли; <Источник>ДокументСсылка.ОтчетКомитентуОПродажах <Приемник>ДокументСсылка.ОтчетКомитентуОПродажах <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Группа> <Код>3 <Наименование>Товары --> Товары <Порядок>150 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>4 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>5 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>6 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>150 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство Отключить="true"> <Код>7 <Наименование>КоличествоМест --> КоличествоМест <Порядок>200 <Источник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоМест" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>8 <Наименование>Коэффициент --> Коэффициент <Порядок>250 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>200 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>10 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>250 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>11 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>Контрагент --> Контрагент <Порядок>350 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>13 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>400 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>15 <Наименование>Проведен --> Проведен <Порядок>500 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>16 <Наименование>Фирма --> Организация <Порядок>550 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Значения/> <Правило> <Код>СчетНаОплатуПокупателю <Наименование>ДокументСсылка.Счет --> ДокументСсылка.СчетНаОплатуПокупателю <Порядок>1050 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Если Объект.ДоговорКонтрагента.ВидДоговора <> Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда Сообщить("В документе """ + Объект + """ договор контрагента не является договором ""С покупателем"". Договор будет очищен."); Объект.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.ПустаяСсылка(); КонецЕсли; <Источник>ДокументСсылка.Счет <Приемник>ДокументСсылка.СчетНаОплатуПокупателю <Свойства> <Свойство Поиск="true"> <Код>8 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>1 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>3 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>200 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>6 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>350 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>400 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>Склад --> Склад <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>11 <Наименование>СуммаВключаетНДС --> СуммаВключаетНДС <Порядок>550 <Источник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="СуммаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>12 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>600 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>УчитыватьНДС --> УчитыватьНДС <Порядок>650 <Источник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="УчитыватьНДС" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>32 <Наименование>КатегорияЦен --> ТипЦен <Порядок>700 <Источник Имя="КатегорияЦен" Вид="Реквизит" Тип="СправочникСсылка.КатегорииЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>33 <Наименование>Фирма --> Организация <Порядок>750 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>14 <Наименование>Товары --> Товары <Порядок>800 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>15 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Сумма --> Сумма <Порядок>150 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>200 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>19 <Наименование>СуммаНДС --> СуммаНДС <Порядок>250 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Группа> <Код>24 <Наименование>Услуги --> Услуги <Порядок>850 <Источник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуУслуг); <Свойство> <Код>25 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыУслуга); <Свойство> <Код>26 <Наименование>Содержание --> Содержание <Порядок>100 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>27 <Наименование>Количество --> Количество <Порядок>150 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>28 <Наименование>Цена --> Цена <Порядок>200 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>29 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>30 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>300 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>31 <Наименование>СуммаНДС --> СуммаНДС <Порядок>350 <Источник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНДС" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>34 <Наименование>БанковскийСчетКасса --> СтруктурнаяЕдиница <Порядок>900 <Источник Имя="БанковскийСчетКасса" Вид="Реквизит"/> <Приемник Имя="СтруктурнаяЕдиница" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <ПередВыгрузкой>Если ТипЗнч(Источник.БанковскийСчетКасса) = Тип("СправочникСсылка.Кассы") Тогда Отказ = Истина; КонецЕсли; <Значения/> <Правило> <Код>УстановкаЦенНоменклатуры <Наименование>ДокументСсылка.АктПереоценки --> ДокументСсылка.УстановкаЦенНоменклатуры <Порядок>1100 <ПередВыгрузкой>Если Источник.ВидОперации <> Перечисления.ВидыОперацийАктПереоценки.Переоценка Тогда Отказ = Истина; КонецЕсли; //Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки> Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; <Источник>ДокументСсылка.АктПереоценки <Приемник>ДокументСсылка.УстановкаЦенНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>КатегорияЦен --> ТипЦен <Порядок>300 <Источник Имя="КатегорияЦен" Вид="Реквизит" Тип="СправочникСсылка.КатегорииЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>11 <Наименование> --> Информация <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Информация" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = Строка(Источник.КатегорияЦен); <Группа> <Код>6 <Наименование>Товары --> Товары <Порядок>400 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>7 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Если ОбъектКоллекции.Номенклатура.Услуга Тогда Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыУслуга); Иначе Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); КонецЕсли; <Свойство> <Код>8 <Наименование>Цена --> Цена <Порядок>100 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>--> Валюта <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <ПередВыгрузкой>Значение = Источник.КатегорияЦен.ВалютаЦены; <Значения/> <Правило> <Код>АвансовыйОтчет <Наименование>ДокументСсылка.АвансовыйОтчет --> ДокументСсылка.АвансовыйОтчет <Порядок>1150 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Если НалоговыйУчетУСН.ПрименениеУСН(Объект.Организация, Объект.Дата) Тогда Объект.НДСВключенВСтоимость = Истина; КонецЕсли; Для Каждого СтрокаОплата Из Объект.ОплатаПоставщикам Цикл СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, СтрокаОплата.Контрагент, СтрокаОплата.ДоговорКонтрагента); Если СтрокаОплата.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаОплата.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; СтрокаОплата.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Иначе СтрокаОплата.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаОплата.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЦикла; Для Каждого СтрокаПрочее Из Объект.Прочее Цикл БухгалтерскийУчет.ЗаменитьСубконтоНУ(СтрокаПрочее.СчетЗатрат, СтрокаПрочее.СчетЗатратНУ, 3, СтрокаПрочее.Субконто3, СтрокаПрочее.СубконтоНУ3); КонецЦикла; <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.АвансовыйОтчет <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>7 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>ВалютаДокумента --> ВалютаДокумента <Порядок>150 <Источник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДокумента" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>КратностьДокумента --> КратностьДокумента <Порядок>250 <Источник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>КурсДокумента --> КурсДокумента <Порядок>300 <Источник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>НазначениеАванса --> НазначениеАванса <Порядок>350 <Источник Имя="НазначениеАванса" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НазначениеАванса" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>9 <Наименование>Проведен --> Проведен <Порядок>450 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>26 <Наименование>Контрагент --> ФизЛицо <Порядок>500 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="ФизЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>27 <Наименование>Фирма --> Организация <Порядок>550 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>10 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>600 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Группа> <Код>11 <Наименование>ВыданныеАвансы --> ВыданныеАвансы <Порядок>650 <Источник Имя="ВыданныеАвансы" Вид="ТабличнаяЧасть"/> <Приемник Имя="ВыданныеАвансы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>Сумма --> Сумма <Порядок>50 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>Документ --> ДокументАванса <Порядок>100 <Источник Имя="Документ" Вид="Реквизит" Тип="ДокументСсылка.РасходныйКассовыйОрдер"/> <Приемник Имя="ДокументАванса" Вид="Реквизит"/> <КодПравилаКонвертации>РасходныйКассовыйОрдер <Группа> <Код>14 <Наименование>ОплатаПоставщикам --> ОплатаПоставщикам <Порядок>700 <Источник Имя="ОплатаПоставщикам" Вид="ТабличнаяЧасть"/> <Приемник Имя="ОплатаПоставщикам" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>ДатаВходящегоДокумента --> ДатаВходящегоДокумента <Порядок>50 <Источник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>16 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>100 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>17 <Наименование>Контрагент --> Контрагент <Порядок>150 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>18 <Наименование>КратностьВзаиморасчетов --> КратностьВзаиморасчетов <Порядок>200 <Источник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КратностьВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>КурсВзаиморасчетов --> КурсВзаиморасчетов <Порядок>250 <Источник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КурсВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>20 <Наименование>НомерВходящегоДокумента --> НомерВходящегоДокумента <Порядок>300 <Источник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>Содержание --> Содержание <Порядок>350 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>22 <Наименование>Сумма --> Сумма <Порядок>400 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>23 <Наименование>СуммаВзаиморасчетов --> СуммаВзаиморасчетов <Порядок>450 <Источник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаВзаиморасчетов" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>24 <Наименование>ВидВходящегоДокумента --> ВидДокВходящий <Порядок>500 <Источник Имя="ВидВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>25 <Наименование>ОснованиеВзаиморасчетов --> Сделка <Порядок>550 <Источник Имя="ОснованиеВзаиморасчетов" Вид="Реквизит"/> <Приемник Имя="Сделка" Вид="Реквизит"/> <ПередВыгрузкой>Если ТипЗнч(ОбъектКоллекции.ОснованиеВзаиморасчетов) = Тип("ДокументСсылка.ПриходнаяНакладная") Тогда ИмяПКО = "ПоступлениеТоваровУслуг"; ИначеЕсли ТипЗнч(ОбъектКоллекции.ОснованиеВзаиморасчетов) = Тип("ДокументСсылка.ОтчетКомитентуОПродажах") Тогда ИмяПКО = "ОтчетКомитентуОПродажах"; Иначе ИмяПКО = ""; КонецЕсли; <Свойство> <Код>34 <Наименование> --> СпособПогашенияЗадолженности <Порядок>600 <Источник Имя="" Вид=""/> <Приемник Имя="СпособПогашенияЗадолженности" Вид="Реквизит" Тип="ПеречислениеСсылка.СпособыПогашенияЗадолженности"/> <ПередВыгрузкой>Значение = "Автоматически"; <Группа> <Код>28 <Наименование>ПрочиеРасходы --> Прочее <Порядок>750 <Источник Имя="ПрочиеРасходы" Вид="ТабличнаяЧасть"/> <Приемник Имя="Прочее" Вид="ТабличнаяЧасть"/> <Свойство> <Код>29 <Наименование>ВидВходящегоДокумента --> ВидДокВходящий <Порядок>50 <Источник Имя="ВидВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидДокВходящий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>30 <Наименование>ДатаВходящегоДокумента --> ДатаВходящегоДокумента <Порядок>100 <Источник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаВходящегоДокумента" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>31 <Наименование>НомерВходящегоДокумента --> НомерВходящегоДокумента <Порядок>150 <Источник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерВходящегоДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>32 <Наименование>Содержание --> Содержание <Порядок>200 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>33 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВыпускПродукции <Наименование>ДокументСсылка.УР_ВыпускПродукции --> ДокументСсылка.ОтчетПроизводстваЗаСмену <Порядок>1200 <ПередВыгрузкой>ВыгрузитьПоПравилу(Источник, Неопределено, Неопределено, Неопределено, "ТребованиеНакладная", , , ); Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Объект.СчетЗатрат = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство; //Для Каждого СтрокаТабличнойЧасти Из Объект.Продукция Цикл // Объект.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТабличнойЧасти, "Продукция", Истина); // СтрокаТабличнойЧасти.НоменклатурнаяГруппа = СтрокаТабличнойЧасти.Номенклатура.НоменклатурнаяГруппа; //КонецЦикла; //Объект.ИспользоватьМатериалы = Истина; Для каждого СтрокаТЧ из Объект.Продукция Цикл СтрокаТЧ.Счет = ПланыСчетов.Хозрасчетный.НайтиПоКоду("43"); СтрокаТЧ.Номенклатурнаягруппа = Справочники.Номенклатурныегруппы.найтиПоКоду("БП0000004"); КонецЦикла; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>ДокументСсылка.УР_ВыпускПродукции <Приемник>ДокументСсылка.ОтчетПроизводстваЗаСмену <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>УникальныйСимволДокумента = "В"; // В - выпуск продукции Выполнить(Алгоритмы.ПолучитьЦифровуюЧастьНомераДокумента); <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>СкладПриемник --> Склад <Порядок>300 <Источник Имя="СкладПриемник" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>14 <Наименование>Фирма --> Организация <Порядок>350 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>15 <Наименование>--> ПодразделениеЗатрат <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Значение = Новый Структура; Значение.Вставить("Фирма", Источник.Фирма); Значение.Вставить("Склад", Источник.СкладПриемник); <Группа> <Код>7 <Наименование>Товары --> Продукция <Порядок>450 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Продукция" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ИмяТЧ = "Товары"; ТабЧасть = Источник.Метаданные().ТабличныеЧасти[ИмяТЧ]; ВыбиратьСебестоимость = Ложь; Запрос = Новый Запрос; Запрос.УстановитьПараметр("Ссылка", Источник); ТекстЗапросаПоТоварам = "ВЫБРАТЬ | Товары.Номенклатура КАК Номенклатура, | Товары.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | Товары.Количество * Товары.Коэффициент КАК Количество, | ПартииНоменклатуры.Стоимость - ПартииНоменклатуры.СуммаНДС КАК Сумма, | ВЫБОР | КОГДА Товары.Количество * Товары.Коэффициент = 0 | ТОГДА 0 | ИНАЧЕ (ПартииНоменклатуры.Стоимость - ПартииНоменклатуры.СуммаНДС) / (Товары.Количество * Товары.Коэффициент) | КОНЕЦ КАК Цена, | Товары.СтавкаНДС КАК СтавкаНДС |ИЗ | Документ.УР_ВыпускПродукции.Товары КАК Товары | ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииНоменклатуры КАК ПартииНоменклатуры | ПО Товары.Ссылка = ПартииНоменклатуры.Регистратор | И Товары.ИдентификаторСтроки = ПартииНоменклатуры.ИдентификаторСтроки |ГДЕ | Товары.Ссылка = &Ссылка"; Если Параметры.СверткаПоНДС Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | ТабТоваров.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | СУММА(ТабТоваров.Количество) КАК Количество, | СУММА(ПартииНоменклатуры.Стоимость - ПартииНоменклатуры.СуммаНДС) КАК Сумма, | ТабТоваров.СтавкаНДС КАК СтавкаНДС |ИЗ | Документ.УР_ВыпускПродукции.Товары КАК ТабТоваров | ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииНоменклатуры КАК ПартииНоменклатуры | ПО ТабТоваров.Ссылка = ПартииНоменклатуры.Регистратор | И ТабТоваров.ИдентификаторСтроки = ПартииНоменклатуры.ИдентификаторСтроки |СГРУППИРОВАТЬ ПО ТабТоваров.Номенклатура.СтавкаНДС, ТабТоваров.СтавкаНДС"; ТекстЗапросаПоТоварам = "ВЫБРАТЬ | *, | ВЫБОР КОГДА(ТабТоваровСКоличеством.Количество = 0) ТОГДА 0 ИНАЧЕ (ТабТоваровСКоличеством.Сумма / ТабТоваровСКоличеством.Количество) КОНЕЦ КАК Цена | ИЗ (" + ТекстЗапросаПоТоварам + ") КАК ТабТоваровСКоличеством"; КонецЕсли; Запрос.Текст = ТекстЗапросаПоТоварам; КоллекцияОбъектов = Запрос.Выполнить().Выгрузить(); <Свойство Отключить="true"> <Код>8 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>9 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>10 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>--> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>12 <Наименование> --> СуммаПлановая <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлановая" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Свойство> <Код>13 <Наименование> --> ПлановаяСтоимость <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ПлановаяСтоимость" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Цена; <Значения/> <Правило> <Код>ТребованиеНакладная <Наименование>ДокументСсылка.УР_ВыпускПродукции --> ДокументСсылка.ТребованиеНакладная <Порядок>1250 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки> Объект.НДСвСтоимостиТоваров = Перечисления.ДействиеНДСВСтоимостиТоваров.НеИзменять; Объект.ДляСписанияНДСиспользоватьСчетИАналитикуУчетаЗатрат = Истина; Объект.СчетаУчетаЗатратВТаблице = Истина; Для Каждого СтрокаТЧ Из Объект.Материалы Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Материалы", Истина); СтрокаТЧ.СтатьяЗатрат = Справочники.СтатьиЗатрат.НайТиПоКоду("БП0000026"); СтрокаТЧ.НоменклатурнаяГруппа = Справочники.Номенклатурныегруппы.найтиПоКоду("БП0000005"); СтрокаТЧ.СчетЗатрат = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство; СтрокаТЧ.Счет = ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01"); СтрокаТЧ.ПодразделениеЗатрат = Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000004"); СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; Ин = 0; Попытка Объект.Записать(РежимЗаписиДокумента.Проведение); Сообщить("Документ проведен : "+ СокрЛП(Объект)); Ин = Ин + 1; Исключение Сообщить("ДОКУМЕНТ НЕ ПРОВЕДЕН : "+ ОписаниеОшибки(), СтатусСообщения.ОченьВажное); Сообщить(" "+СокрЛП(Объект)); КонецПопытки; //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>ДокументСсылка.УР_ВыпускПродукции <Приемник>ДокументСсылка.ТребованиеНакладная <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <ПередВыгрузкой>Значение = ?(ЗначениеЗаполнено(Источник.Дата), Источник.Дата - 1, Источник.Дата); <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>УникальныйСимволДокумента = "В"; // В - выпуск продукции Выполнить(Алгоритмы.ПолучитьЦифровуюЧастьНомераДокумента); <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>Фирма --> Организация <Порядок>350 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>13 <Наименование>--> ПодразделениеЗатрат <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Значение = Новый Структура; Значение.Вставить("Фирма", Источник.Фирма); Значение.Вставить("Склад", Источник.Склад); <Группа> <Код>8 <Наименование>Ингредиенты --> Материалы <Порядок>450 <Источник Имя="Ингредиенты" Вид="ТабличнаяЧасть"/> <Приемник Имя="Материалы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ИмяТЧ = "Ингредиенты"; ТабЧасть = Источник.Метаданные().ТабличныеЧасти[ИмяТЧ]; ВыбиратьСебестоимость = Ложь; Запрос = Новый Запрос; Запрос.УстановитьПараметр("Ссылка", Источник); ТекстЗапросаПоТоварам = "ВЫБРАТЬ | Товары.Номенклатура КАК Номенклатура, | Товары.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | Товары.Количество * Товары.Коэффициент КАК Количество, | Товары.ВсегоСтоимость КАК Сумма, | ВЫБОР | КОГДА Товары.Количество * Товары.Коэффициент = 0 | ТОГДА 0 | ИНАЧЕ Товары.ВсегоСтоимость / (Товары.Количество * Товары.Коэффициент) | КОНЕЦ КАК Цена |ИЗ | Документ.УР_ВыпускПродукции.Ингредиенты КАК Товары |ГДЕ | Товары.Ссылка = &Ссылка"; Если Параметры.СверткаПоНДС Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | ТабТоваров.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | СУММА(ТабТоваров.Количество) КАК Количество, | СУММА(ТабТоваров.Сумма) КАК Сумма |ИЗ | Документ.УР_ВыпускПродукции.Товары КАК ТабТоваров |СГРУППИРОВАТЬ ПО ТабТоваров.Номенклатура.СтавкаНДС"; ТекстЗапросаПоТоварам = "ВЫБРАТЬ | *, | ВЫБОР КОГДА(ТабТоваровСКоличеством.Количество = 0) ТОГДА 0 ИНАЧЕ (ТабТоваровСКоличеством.Сумма / ТабТоваровСКоличеством.Количество) КОНЕЦ КАК Цена | ИЗ (" + ТекстЗапросаПоТоварам + ") КАК ТабТоваровСКоличеством"; КонецЕсли; Запрос.Текст = ТекстЗапросаПоТоварам; КоллекцияОбъектов = Запрос.Выполнить().Выгрузить(); <Свойство Отключить="true"> <Код>9 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Свойство> <Код>10 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>11 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>--> Номенклатура <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Значения/> <Правило> <Код>АктРазделки <Наименование>ДокументСсылка.УР_АктРазделки --> ДокументСсылка.ОтчетПроизводстваЗаСмену <Порядок>1300 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПослеЗагрузки>Объект.ИспользоватьМатериалы = Истина; Объект.СчетЗатрат = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство; Для Каждого СтрокаТабличнойЧасти Из Объект.Продукция Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТабличнойЧасти, "Продукция", Истина); СтрокаТабличнойЧасти.НоменклатурнаяГруппа = СтрокаТабличнойЧасти.Номенклатура.НоменклатурнаяГруппа; КонецЦикла; Для Каждого СтрокаТабличнойЧасти Из Объект.Материалы Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТабличнойЧасти, "Материалы", Истина); СтрокаТабличнойЧасти.НоменклатурнаяГруппа = СтрокаТабличнойЧасти.Номенклатура.НоменклатурнаяГруппа; КонецЦикла; <Источник>ДокументСсылка.УР_АктРазделки <Приемник>ДокументСсылка.ОтчетПроизводстваЗаСмену <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>УникальныйСимволДокумента = "Р"; // Р - разукомплектация Выполнить(Алгоритмы.ПолучитьЦифровуюЧастьНомераДокумента); <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>Фирма --> Организация <Порядок>350 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>16 <Наименование>--> ПодразделениеЗатрат <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ПодразделениеЗатрат" Вид="Реквизит" Тип="СправочникСсылка.ПодразделенияОрганизаций"/> <КодПравилаКонвертации>ПодразделенияОрганизаций <ПередВыгрузкой>Значение = Новый Структура; Значение.Вставить("Фирма", Источник.Фирма); Значение.Вставить("Склад", Источник.Склад); <Группа> <Код>8 <Наименование> --> Продукция <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="Продукция" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров); <Свойство> <Код>9 <Наименование> --> Количество <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество; <Свойство> <Код>10 <Наименование>--> Номенклатура <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>11 <Наименование> --> ПлановаяСтоимость <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ПлановаяСтоимость" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Цена; <Свойство> <Код>12 <Наименование> --> СуммаПлановая <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаПлановая" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Сумма; <Группа> <Код>13 <Наименование> --> Материалы <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Материалы" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>ТаблицаМатериалов = Новый ТаблицаЗначений; ТаблицаМатериалов.Колонки.Добавить("Количество"); ТаблицаМатериалов.Колонки.Добавить("Сумма"); ТаблицаМатериалов.Колонки.Добавить("Цена"); ТаблицаМатериалов.Колонки.Добавить("СтавкаНДСНоменклатуры"); Если Параметры.СверткаПоНДС Тогда НоваяСтрока = ТаблицаМатериалов.Добавить(); НоваяСтрока.СтавкаНДСНоменклатуры = Источник.Сырье.СтавкаНДС; НоваяСтрока.Количество = Источник.КоличествоСырья * Источник.Коэффициент; НоваяСтрока.Сумма = Источник.СуммаСырья; НоваяСтрока.Цена = Источник.СуммаСырья / ?(НоваяСтрока.Количество = 0, 1, НоваяСтрока.Количество); Иначе ТаблицаМатериалов.Колонки.Добавить("Номенклатура"); НоваяСтрока = ТаблицаМатериалов.Добавить(); НоваяСтрока.Номенклатура = Источник.Сырье; НоваяСтрока.СтавкаНДСНоменклатуры = Источник.Сырье.СтавкаНДС; НоваяСтрока.Количество = Источник.КоличествоСырья * Источник.Коэффициент; НоваяСтрока.Сумма = Источник.СуммаСырья; НоваяСтрока.Цена = Источник.СуммаСырья / ?(НоваяСтрока.Количество = 0, 1, НоваяСтрока.Количество); КонецЕсли; КоллекцияОбъектов = ТаблицаМатериалов; <Свойство> <Код>14 <Наименование> --> Номенклатура <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>15 <Наименование> --> Количество <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество; <Значения/> <Правило> <Код>Prog_ВводОстатковТовары <Наименование>ДокументСсылка.ВводОстатковТовары --> ДокументСсылка.ОперацияБух <Порядок>1350 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); Если Источник.ПометкаУдаления = Истина Тогда Отказ = Истина; КонецЕсли; <ПослеЗагрузки>Для каждого ТС из Объект.МПЗПриобретенные Цикл ТС.Склад = ПараметрыОбъекта["СкладДляПодстановкиВТЧ"]; СчетаУчета = БухгалтерскийУчет.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, ТС.Номенклатура, ТС.Склад); ТС.СчетУчета = СчетаУчета.СчетУчета; Если НЕ ЗначениеЗаполнено(ТС.Партия) Тогда Док = Документы.ДокументРасчетовСКонтрагентом.СоздатьДокумент(); Док.Дата = Объект.дата; Док.Организация = Объект.Организация; Док.СуммаДокумента = ТС.Сумма; Док.Комментарий = "Создан автоматически на основании остатков из 1С:Далион"; Док.записать(); ТС.Партия = Док.Ссылка; КонецЕсли; КонецЦикла; <Источник>ДокументСсылка.ВводОстатковТовары <Приемник>ДокументСсылка.ВводНачальныхОстатков <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Номер --> Номер <Порядок>50 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Фирма --> Организация <Порядок>300 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>7 <Наименование>--> ОтражатьВБухгалтерскомУчете <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВБухгалтерскомУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = истина; <Свойство> <Код>8 <Наименование>--> ОтражатьВНалоговомУчете <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьВНалоговомУчете" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = истина; <Свойство> <Код>9 <Наименование>--> ОтражатьПоСпециальнымРегистрам <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражатьПоСпециальнымРегистрам" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = истина; <Свойство> <Код>20 <Наименование>Склад --> СкладДляПодстановкиВТЧ <Порядок>500 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="" Вид=""/> <КодПравилаКонвертации>Склады <ИмяПараметраДляПередачи>СкладДляПодстановкиВТЧ <Свойство> <Код>21 <Наименование>--> РазделУчета <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="РазделУчета" Вид="Реквизит" Тип="ПеречислениеСсылка.РазделыУчетаДляВводаОстатков"/> <ПередВыгрузкой>Значение = "Товары"; <Группа> <Код>11 <Наименование>Товары --> МПЗПриобретенные <Порядок>600 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="МПЗПриобретенные" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит"/> <Свойство> <Код>14 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>150 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>15 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>--> ОтражениеВУСН <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <ПередВыгрузкой>Значение = "Принимаются"; <Свойство> <Код>17 <Наименование>Сумма --> СуммаНУ <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаНУ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>--> СчетУчета <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="СчетУчета" Вид="Реквизит" Тип="ПланСчетовСсылка.Хозрасчетный"/> <ПередВыгрузкой>Значение = "ТоварыВРозничнойТорговле"; <Значения/> <Правило> <Код>Prog_ИнвентаризацияТоваровНаСкладе <Наименование>Документ: Инвентаризация товара <Порядок>1400 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); //Если // Источник.БП_ВыгружатьВСЕ = Истина // и = Источник.БП_НеВыгружать = Ложь // и = Источник.БП_ВыгружатьСписание = Ложь // // Тогда Если Источник.Проведен и НЕ источник.ПометкаУдаления Тогда ВыгрузитьПоПравилу(Источник,,,, "Prog_СозданиеОприходование_Инвентаризация"); ВыгрузитьПоПравилу(Источник,,,, "Prog_СозданиеСписаниеТМЦ_Инвентаризация"); Иначе Отказ = Истина; КонецЕсли; //Иначе // Если // Источник.БП_ВыгружатьВСЕ = Ложь // и = Источник.БП_НеВыгружать = Ложь // и = Источник.БП_ВыгружатьСписание = Истина // // Тогда // ВыгрузитьПоПравилу(Источник,,,, "Prog_СозданиеСписаниеТМЦ_Инвентаризация"); // Иначе // // Если // Источник.БП_ВыгружатьВСЕ = Ложь // и = Источник.БП_НеВыгружать = Истина // и = Источник.БП_ВыгружатьСписание = Ложь // // или // Источник.БП_ВыгружатьВСЕ = Ложь // и = Источник.БП_НеВыгружать = Ложь // и = Источник.БП_ВыгружатьСписание = Ложь // // Тогда // // Отказ = Истина; // // //КонецЕсли; //КонецЕсли; //КонецЕсли; //// //// //// //// //// //БП_ВыгружатьВСЕ //// //БП_НеВыгружать //// //БП_ВыгружатьСписание <ПослеЗагрузки>Для Каждого СтрокаТЧ Из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчет.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; Если Не ЗначениеЗаполнено(СТрокаТЧ.Цена) Тогда СтрокаТЧ.Цена = 0.01; СтрокаТЧ.Сумма = 0.01 * СтрокаТЧ.КоличествоУчет; КонецЕсли; КонецЦикла; Объект.Записать(); //Найти Списание тЦМ и присвоить основание - текущий документ Запрос = Новый Запрос(); Запрос.Текст = " |ВЫБРАТЬ | СписаниеТоваров.Ссылка |ИЗ | Документ.СписаниеТоваров КАК СписаниеТоваров |ГДЕ | СписаниеТоваров.Номер = &Номер | И СписаниеТоваров.Дата = &Дата"; Запрос.УстановитьПараметр("Номер", Объект.Номер); Запрос.УстановитьПараметр("Дата", Объект.Дата); ТаблицаРезультата = Запрос.Выполнить().Выбрать(); Если НЕ Запрос.Выполнить().Пустой() Тогда ТаблицаРезультата.Следующий(); Об = ТаблицаРезультата.Ссылка.ПолучитьОбъект(); Об.ИнвентаризацияТоваровНаСкладе = Объект.Ссылка; Попытка Об.Записать(режимЗаписиДокумента.Проведение); Исключение Об.Записать(режимЗаписиДокумента.Запись); КонецПопытки; КонецЕсли; // оприходывание тмц и присвоить основание - текущий документ Запрос = Новый Запрос(); Запрос.Текст = " |ВЫБРАТЬ | ОприходованиеТоваров.Ссылка |ИЗ | Документ.ОприходованиеТоваров КАК ОприходованиеТоваров |ГДЕ | ОприходованиеТоваров.Номер = &Номер | И ОприходованиеТоваров.Дата = &Дата"; Запрос.УстановитьПараметр("Номер", Объект.Номер); Запрос.УстановитьПараметр("Дата", Объект.Дата); ТаблицаРезультата = Запрос.Выполнить().Выбрать(); Если НЕ Запрос.Выполнить().Пустой() Тогда ТаблицаРезультата.Следующий(); Об = ТаблицаРезультата.Ссылка.ПолучитьОбъект(); Об.ИнвентаризацияТоваровНаСкладе = Объект.Ссылка; Попытка Об.Записать(режимЗаписиДокумента.Проведение); Исключение Об.Записать(режимЗаписиДокумента.Запись); КонецПопытки; КонецЕсли; <Источник>ДокументСсылка.ИнвентаризацияТовара <Приемник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>100 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>150 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Склад --> Склад <Порядок>250 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>11 <Наименование>Фирма --> Организация <Порядок>300 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>6 <Наименование>Товары --> Товары <Порядок>350 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваров) <Свойство> <Код>7 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Номенклатура --> Номенклатура <Порядок>150 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойНоменклатурыТовар); <Свойство> <Код>13 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>--> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>КоличествоУчет --> КоличествоУчет <Порядок>400 <Источник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>--> СуммаУчет <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <Свойство Отключить="true"> <Код>17 <Наименование>БП_ВыгружатьВСЕ --> <Порядок>400 <Источник Имя="БП_ВыгружатьВСЕ" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="" Вид=""/> <Свойство Отключить="true"> <Код>18 <Наименование>БП_ВыгружатьСписание --> <Порядок>450 <Источник Имя="БП_ВыгружатьСписание" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="" Вид=""/> <Свойство Отключить="true"> <Код>19 <Наименование>БП_НеВыгружать --> <Порядок>500 <Источник Имя="БП_НеВыгружать" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="" Вид=""/> <Значения/> <Правило> <Код>Prog_СозданиеОприходование_Инвентаризация <Наименование>Документ: Инвентаризация товара <Порядок>1450 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); Выполнить(Алгоритмы.ПолучитьТаблицуТоваровДляОприходования); Если НЕ ВходящиеДанные.Оприходование > 0 Тогда Отказ = Истина; КонецЕсли; <ПослеЗагрузки>Для Каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); СтрокаТЧ.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.БазоваяЕдиницаИзмерения; Если Не ЗначениеЗаполнено(СТрокаТЧ.Цена) Тогда СтрокаТЧ.Цена = 0.01; СтрокаТЧ.Сумма = 0.01 * СтрокаТЧ.Количество; КонецЕсли; КонецЦикла; Объект.СтатьяПрочихДоходовРасходов = Справочники.ПрочиеДоходыИРасходы.НайтиПоКоду("00037"); //Найти инвентаризацию Запрос = Новый Запрос(); Запрос.Текст = " |ВЫБРАТЬ | ИнвентаризацияТоваровНаСкладе.Ссылка |ИЗ | Документ.ИнвентаризацияТоваровНаСкладе КАК ИнвентаризацияТоваровНаСкладе |ГДЕ | ИнвентаризацияТоваровНаСкладе.Номер = &Номер | И ГОД(ИнвентаризацияТоваровНаСкладе.Дата) = &Дата"; Запрос.УстановитьПараметр("Номер", Объект.Номер); Запрос.УстановитьПараметр("Дата", Год(Объект.Дата)); ТаблицаРезультата = Запрос.Выполнить().Выгрузить(); Если ТаблицаРезультата.Количество()>0 Тогда Объект.ИнвентаризацияТоваровНаСкладе = ТаблицаРезультата[0].Ссылка; КонецЕсли; РежимЗаписи = "Проведение"; РежимПроведения = "Неоперативный"; <ПоследовательностьПолейПоиска>//Найти инвентаризацию Запрос = Новый Запрос(); Запрос.Текст = " |ВЫБРАТЬ | ОприходованиеТоваров.Ссылка |ИЗ | Документ.ОприходованиеТоваров КАК ОприходованиеТоваров |ГДЕ | ОприходованиеТоваров.ИнвентаризацияТоваровНаСкладе.Номер = &Номер | И ГОД(ОприходованиеТоваров.ИнвентаризацияТоваровНаСкладе.Дата) = &Дата И ОприходованиеТоваров.Проведен"; Запрос.УстановитьПараметр("Номер", СвойстваПоиска["Номер"]); Запрос.УстановитьПараметр("Дата", Год(СвойстваПоиска["Дата"])); ТаблицаРезультата = Запрос.Выполнить().Выгрузить(); Если ТаблицаРезультата.Количество()>0 Тогда СсылкаНаОбъект = ТаблицаРезультата[0].Ссылка; КонецЕсли; <Источник>ДокументСсылка.ИнвентаризацияТовара <Приемник>ДокументСсылка.ОприходованиеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>--> Комментарий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "" + Значение + " / Выгружено из ДУМ по инвентаризации №"+Источник.Номер + " от "+Источник.Дата; <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>150 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>350 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Фирма --> Организация <Порядок>400 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>8 <Наименование>Товары --> Товары <Порядок>450 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваровДляОприходования) <Свойство> <Код>10 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>--> Коэффициент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>13 <Наименование>Номенклатура --> Номенклатура <Порядок>250 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>14 <Наименование>--> Цена <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>--> Сумма <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>Prog_СозданиеСписаниеТМЦ_Инвентаризация <Наименование>Документ: Инвентаризация товара <Порядок>1500 <ПередВыгрузкой>//Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); Выполнить(Алгоритмы.ПолучитьТаблицуТоваровДляСписания); Если НЕ ВходящиеДанные.Списание > 0 Тогда Отказ = Истина; КонецЕсли; <ПослеЗагрузки>Для Каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.02"); СтрокаТЧ.ЕдиницаИзмерения = СтрокаТЧ.Номенклатура.БазоваяЕдиницаИзмерения; КонецЦикла; //Найти инвентаризацию Запрос = Новый Запрос(); Запрос.Текст = " |ВЫБРАТЬ | ИнвентаризацияТоваровНаСкладе.Ссылка |ИЗ | Документ.ИнвентаризацияТоваровНаСкладе КАК ИнвентаризацияТоваровНаСкладе |ГДЕ | ИнвентаризацияТоваровНаСкладе.Номер = &Номер | И ГОД(ИнвентаризацияТоваровНаСкладе.Дата) = &Дата"; Запрос.УстановитьПараметр("Номер", Объект.Номер); Запрос.УстановитьПараметр("Дата", Год(Объект.Дата)); ТаблицаРезультата = Запрос.Выполнить().Выгрузить(); Если ТаблицаРезультата.Количество()>0 Тогда Объект.ИнвентаризацияТоваровНаСкладе = ТаблицаРезультата[0].Ссылка; КонецЕсли; РежимЗаписи = "Проведение"; РежимПроведения = "Неоперативный"; <ПоследовательностьПолейПоиска>//Найти инвентаризацию Запрос = Новый Запрос(); Запрос.Текст = " |ВЫБРАТЬ | СписаниеТоваров.Ссылка |ИЗ | Документ.СписаниеТоваров КАК СписаниеТоваров |ГДЕ | СписаниеТоваров.Номер = &Номер | И ГОД(СписаниеТоваров.Дата) = &Дата"; Запрос.УстановитьПараметр("Номер", СвойстваПоиска["Номер"]); Запрос.УстановитьПараметр("Дата", Год(СвойстваПоиска["Дата"])); ТаблицаРезультата = Запрос.Выполнить().Выгрузить(); Если ТаблицаРезультата.Количество()>0 Тогда СсылкаНаОбъект = ТаблицаРезультата[0].Ссылка; КонецЕсли; <Источник>ДокументСсылка.ИнвентаризацияТовара <Приемник>ДокументСсылка.СписаниеТоваров <Свойства> <Свойство> <Код>1 <Наименование>--> ВидОперации <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийСписаниеТоваров"/> <ПередВыгрузкой>Значение = "ТоварыПродукция"; <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "" + Значение + " / Выгружено из ДАЛИОН по инвентаризации №"+Источник.Номер + " от "+Источник.Дата; <Свойство Поиск="true"> <Код>4 <Наименование>Номер --> Номер <Порядок>200 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Склад --> Склад <Порядок>350 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>8 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>400 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>Фирма --> Организация <Порядок>450 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Группа> <Код>9 <Наименование>Товары --> Товары <Порядок>500 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>Выполнить(Алгоритмы.ПолучитьТаблицуТоваровДляСписания); <Свойство> <Код>11 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>--> Коэффициент <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = 1; <Свойство> <Код>14 <Наименование>Номенклатура --> Номенклатура <Порядок>250 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>17 <Наименование>--> ОтражениеВУСН <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ОтражениеВУСН" Вид="Реквизит" Тип="ПеречислениеСсылка.ОтражениеВУСН"/> <ПередВыгрузкой>Значение = "Принимаются"; <Значения/> <Группа> <Код>Перечисления <Наименование>Перечисления <Порядок>100 <Правило> <Код>ПорядкиОкругления <Наименование>ПеречислениеСсылка.ПорядкиОкругления --> ПеречислениеСсылка.ПорядкиОкругления <Порядок>50 <Источник>ПеречислениеСсылка.ПорядкиОкругления <Приемник>ПеречислениеСсылка.ПорядкиОкругления <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Окр0_01 --> Окр0_01 <Порядок>50 <Источник>Окр0_01 <Приемник>Окр0_01 <Значение> <Код>2 <Наименование>Окр0_05 --> Окр0_05 <Порядок>100 <Источник>Окр0_05 <Приемник>Окр0_05 <Значение> <Код>3 <Наименование>Окр0_1 --> Окр0_1 <Порядок>150 <Источник>Окр0_1 <Приемник>Окр0_1 <Значение> <Код>4 <Наименование>Окр0_5 --> Окр0_5 <Порядок>200 <Источник>Окр0_5 <Приемник>Окр0_5 <Значение> <Код>5 <Наименование>Окр1 --> Окр1 <Порядок>250 <Источник>Окр1 <Приемник>Окр1 <Значение> <Код>6 <Наименование>Окр10 --> Окр10 <Порядок>300 <Источник>Окр10 <Приемник>Окр10 <Значение> <Код>7 <Наименование>Окр100 --> Окр100 <Порядок>350 <Источник>Окр100 <Приемник>Окр100 <Значение> <Код>8 <Наименование>Окр5 --> Окр5 <Порядок>400 <Источник>Окр5 <Приемник>Окр5 <Значение> <Код>9 <Наименование>Окр50 --> Окр50 <Порядок>450 <Источник>Окр50 <Приемник>Окр50 <Правило> <Код>СтавкиНДС <Наименование>ПеречислениеСсылка.СтавкиНДС --> ПеречислениеСсылка.СтавкиНДС <Порядок>100 <Источник>ПеречислениеСсылка.СтавкиНДС <Приемник>ПеречислениеСсылка.СтавкиНДС <Свойства/> <Значения> <Значение> <Код>1 <Наименование>БезНДС --> БезНДС <Порядок>50 <Источник>БезНДС <Приемник>БезНДС <Значение> <Код>2 <Наименование>НДС0 --> НДС0 <Порядок>100 <Источник>НДС0 <Приемник>НДС0 <Значение> <Код>3 <Наименование>НДС10 --> НДС10 <Порядок>150 <Источник>НДС10 <Приемник>НДС10 <Значение> <Код>4 <Наименование>НДС10_110 --> НДС10_110 <Порядок>200 <Источник>НДС10_110 <Приемник>НДС10_110 <Значение> <Код>5 <Наименование>НДС18 --> НДС18 <Порядок>250 <Источник>НДС18 <Приемник>НДС18 <Значение> <Код>6 <Наименование>НДС18_118 --> НДС18_118 <Порядок>300 <Источник>НДС18_118 <Приемник>НДС18_118 <Значение> <Код>7 <Наименование>НДС20 --> НДС20 <Порядок>350 <Источник>НДС20 <Приемник>НДС20 <Значение> <Код>8 <Наименование>НДС20_120 --> НДС20_120 <Порядок>400 <Источник>НДС20_120 <Приемник>НДС20_120 <Правило> <Код>ЮрФизЛицо <Наименование>ПеречислениеСсылка.ВидыКонтрагентов --> ПеречислениеСсылка.ЮрФизЛицо <Порядок>150 <Источник>ПеречислениеСсылка.ВидыКонтрагентов <Приемник>ПеречислениеСсылка.ЮрФизЛицо <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ККМ --> ЮрЛицо <Порядок>50 <Источник>ККМ <Приемник>ЮрЛицо <Значение> <Код>2 <Наименование>Организация --> ЮрЛицо <Порядок>100 <Источник>Организация <Приемник>ЮрЛицо <Значение> <Код>3 <Наименование>Сотрудник --> ФизЛицо <Порядок>150 <Источник>Сотрудник <Приемник>ФизЛицо <Значение> <Код>4 <Наименование>ЧастноеЛицо --> ФизЛицо <Порядок>200 <Источник>ЧастноеЛицо <Приемник>ФизЛицо <Правило> <Код>ВидыДоговоровКонтрагентов <Наименование>ПеречислениеСсылка.ВидыДоговоровКонтрагентов --> ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Порядок>200 <Источник>ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Приемник>ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Свойства/> <Значения> <Значение> <Код>1 <Наименование>СКомитентом --> СКомитентом <Порядок>50 <Источник>СКомитентом <Приемник>СКомитентом <Значение> <Код>2 <Наименование>СПокупателем --> СПокупателем <Порядок>100 <Источник>СПокупателем <Приемник>СПокупателем <Значение> <Код>3 <Наименование>СПоставщиком --> СПоставщиком <Порядок>150 <Источник>СПоставщиком <Приемник>СПоставщиком <Значение> <Код>4 <Наименование>КуплиПродажи --> СПоставщиком <Порядок>200 <Источник>КуплиПродажи <Приемник>СПоставщиком <Значение> <Код>5 <Наименование>Прочее --> Прочее <Порядок>250 <Источник>Прочее <Приемник>Прочее <Правило> <Код>ЮрФизЛицо00001 <Наименование>ПеречислениеСсылка.ЮрФизЛицо --> ПеречислениеСсылка.ЮрФизЛицо <Порядок>250 <Источник>ПеречислениеСсылка.ЮрФизЛицо <Приемник>ПеречислениеСсылка.ЮрФизЛицо <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ФизЛицо --> ФизЛицо <Порядок>50 <Источник>ФизЛицо <Приемник>ФизЛицо <Значение> <Код>2 <Наименование>ЮрЛицо --> ЮрЛицо <Порядок>100 <Источник>ЮрЛицо <Приемник>ЮрЛицо <Правило> <Код>ТипыОплат <Наименование>Перечисление: Типы оплаты <Порядок>300 <Источник>ПеречислениеСсылка.ТипыОплаты <Приемник>ПеречислениеСсылка.ТипыОплат <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Наличные --> Наличные <Порядок>50 <Источник>Наличные <Приемник>Наличные <Значение> <Код>2 <Наименование>БанковскиеКарты --> <Порядок>100 <Источник>БанковскиеКарты <Приемник>ПлатежнаяКарта <Значение> <Код>3 <Наименование>Прочие --> <Порядок>150 <Источник>Прочие <Группа> <Код>Справочники <Наименование>Справочники <Порядок>150 <Правило> <Код>Банки <Наименование>СправочникСсылка.Банки --> СправочникСсылка.Банки <Порядок>50 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.Банки <Приемник>СправочникСсылка.Банки <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>2 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>350 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>450 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Группа> <Код>6 <Наименование> --> <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Если Источник.ЭтоГруппа Тогда Отказ = Истина; КонецЕсли; <Свойство> <Код>7 <Наименование>Адрес --> Адрес <Порядок>150 <Источник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Адрес" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Город --> Город <Порядок>200 <Источник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Город" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>КоррСчет --> КоррСчет <Порядок>250 <Источник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КоррСчет" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>Телефоны --> Телефоны <Порядок>300 <Источник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Телефоны" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>БанковскиеСчета <Наименование>СправочникСсылка.БанковскиеСчета --> СправочникСсылка.БанковскиеСчета <Порядок>100 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчета <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Владелец --> Владелец <Порядок>50 <Источник Имя="Владелец" Вид="Свойство"/> <Приемник Имя="Владелец" Вид="Свойство"/> <ПередВыгрузкой>Если ТипЗнч(Источник.Владелец) = Тип("СправочникСсылка.Контрагенты") Тогда ИмяПКО = "Контрагенты"; Иначе ИмяПКО = "Организации"; КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Банк --> Банк <Порядок>150 <Источник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="Банк" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Свойство> <Код>4 <Наименование>БанкДляРасчетов --> БанкДляРасчетов <Порядок>200 <Источник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <Приемник Имя="БанкДляРасчетов" Вид="Реквизит" Тип="СправочникСсылка.Банки"/> <КодПравилаКонвертации>Банки <Свойство> <Код>5 <Наименование>ВидСчета --> ВидСчета <Порядок>250 <Источник Имя="ВидСчета" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ВидСчета" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ДатаЗакрытия --> ДатаЗакрытия <Порядок>300 <Источник Имя="ДатаЗакрытия" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаЗакрытия" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>ДатаОткрытия --> ДатаОткрытия <Порядок>350 <Источник Имя="ДатаОткрытия" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаОткрытия" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>8 <Наименование>МесяцПрописью --> МесяцПрописью <Порядок>400 <Источник Имя="МесяцПрописью" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="МесяцПрописью" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>9 <Наименование>НомерИДатаРазрешения --> НомерИДатаРазрешения <Порядок>450 <Источник Имя="НомерИДатаРазрешения" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерИДатаРазрешения" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>НомерСчета --> НомерСчета <Порядок>500 <Источник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НомерСчета" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>СуммаБезКопеек --> СуммаБезКопеек <Порядок>550 <Источник Имя="СуммаБезКопеек" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="СуммаБезКопеек" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>12 <Наименование>ТекстКорреспондента --> ТекстКорреспондента <Порядок>600 <Источник Имя="ТекстКорреспондента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстКорреспондента" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>13 <Наименование>ТекстНазначения --> ТекстНазначения <Порядок>650 <Источник Имя="ТекстНазначения" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ТекстНазначения" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>14 <Наименование>Наименование --> Наименование <Порядок>700 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>15 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>750 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>16 <Наименование>Валюта --> ВалютаДенежныхСредств <Порядок>800 <Источник Имя="Валюта" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Значения/> <Правило> <Код>Валюты <Наименование>СправочникСсылка.Валюты --> СправочникСсылка.Валюты <Порядок>150 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.Валюты <Приемник>СправочникСсылка.Валюты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>100 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПараметрыПрописиНаРусском --> ПараметрыПрописиНаРусском <Порядок>150 <Источник Имя="ПараметрыПрописиНаРусском" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПараметрыПрописиНаРусском" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ДоговорыКонтрагентов <Наименование>СправочникСсылка.ДоговорыКонтрагентов --> СправочникСсылка.ДоговорыКонтрагентов <Порядок>200 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.ДоговорыКонтрагентов <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование> --> ЭтоГруппа <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Владелец --> Владелец <Порядок>150 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>4 <Наименование>ВалютаВзаиморасчетов --> ВалютаВзаиморасчетов <Порядок>200 <Источник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаВзаиморасчетов" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>5 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>6 <Наименование>Наименование --> Наименование <Порядок>300 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>8 <Наименование>Фирма --> Организация <Порядок>400 <Источник Имя="Фирма" Вид="Реквизит" Тип="СправочникСсылка.Фирмы"/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <Свойство> <Код>9 <Наименование>КатегорияЦен --> ТипЦен <Порядок>450 <Источник Имя="КатегорияЦен" Вид="Реквизит" Тип="СправочникСсылка.КатегорииЦен"/> <Приемник Имя="ТипЦен" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <КодПравилаКонвертации>ТипыЦенНоменклатуры <Свойство> <Код>10 <Наименование>ВидДоговора --> ВидДоговора <Порядок>500 <Источник Имя="ВидДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДоговоровКонтрагентов"/> <Приемник Имя="ВидДоговора" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыДоговоровКонтрагентов"/> <КодПравилаКонвертации>ВидыДоговоровКонтрагентов <ПередВыгрузкой>Если Источник.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.КуплиПродажи Тогда Сообщить("У договора """ + Источник + """ установлен вид договора ""Купли/продажи"". Вид договора преобразован в ""С поставщиком"".", СтатусСообщения.Важное); КонецЕсли; <Значения/> <Правило> <Код>КлассификаторЕдиницИзмерения <Наименование>СправочникСсылка.КлассификаторЕдиницИзмерения --> СправочникСсылка.КлассификаторЕдиницИзмерения <Порядок>250 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.КлассификаторЕдиницИзмерения <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>100 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>КлассификаторСтранМира <Наименование>СправочникСсылка.КлассификаторСтранМира --> СправочникСсылка.КлассификаторСтранМира <Порядок>300 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.КлассификаторСтранМира <Приемник>СправочникСсылка.КлассификаторСтранМира <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>100 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Контрагенты <Наименование>СправочникСсылка.Контрагенты --> СправочникСсылка.Контрагенты <Порядок>350 <ПередВыгрузкой>Если Параметры.СинхронизацияКонтрагентовПоИНН И НЕ ЗначениеЗаполнено(Источник.ИНН) И НЕ Источник.ЭтоГруппа И Источник.ВидКонтрагента <> Перечисления.ВидыКонтрагентов.ККМ Тогда Отказ = Истина; КонецЕсли; Если Источник.ЭтоГруппа Тогда Отказ = Истина; КонецЕсли; Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПриВыгрузке> РеквизитыКонтрагента = СоздатьУзел("РеквизитыКонтрагента"); //УстановитьАтрибут(РеквизитыКонтрагента, "Наименование" , Источник.Наименование); УстановитьАтрибут(РеквизитыКонтрагента, "Комментарий" , Источник.Комментарий); Если НЕ Источник.ЭтоГруппа Тогда УстановитьАтрибут(РеквизитыКонтрагента, "НаименованиеПолное" , Источник.НаименованиеПолное); //УстановитьАтрибут(РеквизитыКонтрагента, "ИНН" , Источник.ИНН); УстановитьАтрибут(РеквизитыКонтрагента, "КодПоОКПО" , Источник.КодПоОКПО); УстановитьАтрибут(РеквизитыКонтрагента, "КПП" , Источник.КПП); УстановитьАтрибут(РеквизитыКонтрагента, "ЮрФизЛицо" , ?(Источник.ВидКонтрагента = Перечисления.ВидыКонтрагентов.Организация, "ЮрЛицо", "ФизЛицо")); КонецЕсли; ДобавитьПодчиненный(Приемник, РеквизитыКонтрагента); <ПриЗагрузке>Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если (ИмяУзла = "РеквизитыКонтрагента") И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда //Если НЕ ЗначениеЗаполнено(Объект.Наименование) ИЛИ НЕ ОбъектНайден Тогда // Объект.Наименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование"); //КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.Комментарий) ИЛИ НЕ ОбъектНайден Тогда Объект.Комментарий = одАтрибут(ФайлОбмена, одТипСтрока, "Комментарий"); КонецЕсли; Если НЕ Объект.ЭтоГруппа Тогда //Если НЕ ЗначениеЗаполнено(Объект.ИНН) ИЛИ НЕ ОбъектНайден Тогда // Объект.ИНН = одАтрибут(ФайлОбмена, одТипСтрока, "ИНН"); //КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.КодПоОКПО) ИЛИ НЕ ОбъектНайден Тогда Объект.КодПоОКПО = одАтрибут(ФайлОбмена, одТипСтрока, "КодПоОКПО"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.НаименованиеПолное) ИЛИ НЕ ОбъектНайден Тогда Объект.НаименованиеПолное = одАтрибут(ФайлОбмена, одТипСтрока, "НаименованиеПолное"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.КПП) ИЛИ НЕ ОбъектНайден Тогда Объект.КПП = одАтрибут(ФайлОбмена, одТипСтрока, "КПП"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.ЮрФизЛицо) ИЛИ НЕ ОбъектНайден Тогда ПолученныйАтрибут = одАтрибут(ФайлОбмена, одТипСтрока, "ЮрФизЛицо"); Если НЕ ЗначениеЗаполнено(ПолученныйАтрибут) Тогда ПолученныйАтрибут = "ЮрЛицо"; КонецЕсли; Объект.ЮрФизЛицо = Перечисления.ЮрФизЛицо[ПолученныйАтрибут]; КонецЕсли; КонецЕсли; ИначеЕсли (ИмяУзла = "РеквизитыКонтрагента") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Прервать; КонецЕсли; КонецЦикла; <ПослеЗагрузки>Если НЕ ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод(); КонецЕсли; <ПоследовательностьПолейПоиска> Если НЕ СвойстваПоиска["ЭтоГруппа"] Тогда Если НомерВариантаПоиска = 1 Тогда Если Параметры.СинхронизацияКонтрагентовПоИНН Тогда Если ЗначениеЗаполнено(СвойстваПоиска["ИНН"])Тогда СтрокаИменСвойствПоиска = "ИНН"; Иначе СтрокаИменСвойствПоиска = "Наименование"; КонецЕсли; Иначе СтрокаИменСвойствПоиска = "ЭтоГруппа, Код"; КонецЕсли; Иначе //Если Параметры.СинхронизацияКонтрагентовПоИНН Тогда // СтрокаИменСвойствПоиска = "ЭтоГруппа, Код, Наименование"; //КонецЕсли; КонецЕсли; Иначе СтрокаИменСвойствПоиска = "ЭтоГруппа, Код"; КонецЕсли; <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>50 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Число"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если Параметры.СинхронизацияКонтрагентовПоИНН И НЕ Источник.ЭтоГруппа Тогда Отказ = Истина; Иначе Значение = СтрЗаменить(Источник.Код, Символы.НПП, ""); КонецЕсли; <Свойство Поиск="true"> <Код>3 <Наименование>ИНН --> ИНН <Порядок>150 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>//Если Источник.ЭтоГруппа Тогда // Отказ = Истина; //КонецЕсли; <Свойство Отключить="true"> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>5 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>14 <Наименование> --> ГоловнойКонтрагент <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ГоловнойКонтрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <ПередВыгрузкой>Значение = Источник; <Группа> <Код>8 <Наименование> --> <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Если Источник.ЭтоГруппа Тогда Отказ = Истина; КонецЕсли; <Свойство Отключить="true"> <Код>9 <Наименование>КодПоОКПО --> КодПоОКПО <Порядок>200 <Источник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>10 <Наименование>КПП --> КПП <Порядок>300 <Источник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КПП" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>11 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>350 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>ОсновнойДоговорКонтрагента --> ОсновнойДоговорКонтрагента <Порядок>400 <Источник Имя="ОсновнойДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ОсновнойДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство Отключить="true"> <Код>13 <Наименование>ВидКонтрагента --> ЮрФизЛицо <Порядок>600 <Источник Имя="ВидКонтрагента" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыКонтрагентов"/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <КодПравилаКонвертации>ЮрФизЛицо <Значения/> <Правило> <Код>Номенклатура <Наименование>СправочникСсылка.Номенклатура --> СправочникСсылка.Номенклатура <Порядок>450 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>50 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Число"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = СтрЗаменить(Источник.Код, Символы.НПП, ""); <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>500 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>550 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Родитель --> Родитель <Порядок>600 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Группа> <Код>7 <Наименование> --> <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Если Источник.ЭтоГруппа Тогда Отказ = Истина; КонецЕсли; <Свойство> <Код>8 <Наименование>БазоваяЕдиницаИзмерения --> БазоваяЕдиницаИзмерения <Порядок>150 <Источник Имя="БазоваяЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="БазоваяЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <ПередВыгрузкой>Значение = Источник.БазоваяЕдиницаИзмерения.ЕдиницаПоКлассификатору; <Свойство> <Код>9 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>250 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>НомерГТД --> НомерГТД <Порядок>300 <Источник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <Приемник Имя="НомерГТД" Вид="Реквизит" Тип="СправочникСсылка.НомераГТД"/> <КодПравилаКонвертации>НомераГТД <Свойство> <Код>11 <Наименование>СтавкаНДС --> СтавкаНДС <Порядок>350 <Источник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <Свойство> <Код>12 <Наименование>СтранаПроисхождения --> СтранаПроисхождения <Порядок>400 <Источник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <Приемник Имя="СтранаПроисхождения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторСтранМира"/> <КодПравилаКонвертации>КлассификаторСтранМира <Свойство> <Код>13 <Наименование>Услуга --> Услуга <Порядок>450 <Источник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = (Источник.Услуга ИЛИ Источник.Сертификат); <Значения/> <Правило> <Код>НомераГТД <Наименование>СправочникСсылка.НомераГТД --> СправочникСсылка.НомераГТД <Порядок>500 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.НомераГТД <Приемник>СправочникСсылка.НомераГТД <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Комментарий --> Комментарий <Порядок>100 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Пользователи <Наименование>СправочникСсылка.Пользователи --> СправочникСсылка.Пользователи <Порядок>550 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.Пользователи <Приемник>СправочникСсылка.Пользователи <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>50 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>250 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Значения/> <Правило> <Код>Склады <Наименование>СправочникСсылка.Склады --> СправочникСсылка.Склады <Порядок>600 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>2 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Родитель --> Родитель <Порядок>300 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>7 <Наименование> --> <Порядок>450 <Источник Имя="" Вид=""/> <Приемник Имя="" Вид=""/> <ПередОбработкойВыгрузки>Если Источник.ЭтоГруппа Тогда Отказ = Истина; КонецЕсли; <Свойство> <Код>8 <Наименование> --> ВидСклада <Порядок>350 <Источник Имя="" Вид=""/> <Приемник Имя="ВидСклада" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыСкладов"/> <ПередВыгрузкой>Если Источник.УчетОстатковПоЦенам Тогда Значение = "Розничный"; Иначе Значение = "Оптовый"; КонецЕсли; <Свойство> <Код>9 <Наименование> --> ТипЦенРозничнойТорговли <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ТипЦенРозничнойТорговли" Вид="Реквизит" Тип="СправочникСсылка.ТипыЦенНоменклатуры"/> <ПередВыгрузкой>Значение = ПолучитьКатегориюЦенСклада(Источник); <Значения/> <Правило> <Код>СтатьиЗатрат <Наименование>СправочникСсылка.СтатьиЗатрат --> СправочникСсылка.СтатьиЗатрат <Порядок>650 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.СтатьиЗатрат <Приемник>СправочникСсылка.СтатьиЗатрат <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>1 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>50 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>100 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Родитель --> Родитель <Порядок>250 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиЗатрат"/> <КодПравилаКонвертации>СтатьиЗатрат <Значения/> <Правило> <Код>Организации <Наименование>СправочникСсылка.Фирмы --> СправочникСсылка.Организации <Порядок>750 <ПередВыгрузкой>Если Параметры.СинхронизацияФирмПоИНН И НЕ ЗначениеЗаполнено(Источник.ИНН) Тогда Отказ = Истина; КонецЕсли; Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <ПриВыгрузке>РеквизитыОрганизации = СоздатьУзел("РеквизитыОрганизации"); УстановитьАтрибут(РеквизитыОрганизации, "Наименование" , Источник.Наименование); УстановитьАтрибут(РеквизитыОрганизации, "КПП" , ПолучитьЗначениеПериодическогоРеквизита(Источник, "КПП", ТекущаяДата())); УстановитьАтрибут(РеквизитыОрганизации, "КодПоОКПО" , Источник.КодПоОКПО); УстановитьАтрибут(РеквизитыОрганизации, "КодПоОКАТО" , Источник.ОКАТО); УстановитьАтрибут(РеквизитыОрганизации, "ОГРН" , Источник.ОГРН); УстановитьАтрибут(РеквизитыОрганизации, "Префикс" , Источник.Префикс); УстановитьАтрибут(РеквизитыОрганизации, "ЮрФизЛицо" , Источник.ЮрФизЛицо); УстановитьАтрибут(РеквизитыОрганизации, "ДатаРегистрации" , Источник.ДатаРегистрации); ДобавитьПодчиненный(Приемник, РеквизитыОрганизации); <ПриЗагрузке>Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если (ИмяУзла = "РеквизитыОрганизации") И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда Если НЕ Параметры.НеЗамещатьПриЗагрузке ИЛИ НЕ ОбъектНайден Тогда Если НЕ ЗначениеЗаполнено(Объект.Наименование) ИЛИ НЕ ОбъектНайден Тогда Объект.Наименование = одАтрибут(ФайлОбмена, одТипСтрока, "Наименование"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.КПП) ИЛИ НЕ ОбъектНайден Тогда Объект.КПП = одАтрибут(ФайлОбмена, одТипСтрока, "КПП"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.КодПоОКПО) ИЛИ НЕ ОбъектНайден Тогда Объект.КодПоОКПО = одАтрибут(ФайлОбмена, одТипСтрока, "КодПоОКПО"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.КодПоОКАТО) ИЛИ НЕ ОбъектНайден Тогда Объект.КодПоОКАТО = одАтрибут(ФайлОбмена, одТипСтрока, "КодПоОКАТО"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.ОГРН) ИЛИ НЕ ОбъектНайден Тогда Объект.ОГРН = одАтрибут(ФайлОбмена, одТипСтрока, "ОГРН"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.Префикс) ИЛИ НЕ ОбъектНайден Тогда Объект.Префикс = одАтрибут(ФайлОбмена, одТипСтрока, "Префикс"); КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.ЮрФизЛицо) ИЛИ НЕ ОбъектНайден Тогда Объект.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо; КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.ДатаРегистрации) ИЛИ НЕ ОбъектНайден Тогда Объект.ДатаРегистрации = одАтрибут(ФайлОбмена, одТипДата, "ДатаРегистрации"); КонецЕсли; КонецЕсли; ИначеЕсли (ИмяУзла = "РеквизитыОрганизации") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Прервать; КонецЕсли; КонецЦикла; <ПоследовательностьПолейПоиска>Если НомерВариантаПоиска = 1 Тогда Если Параметры.СинхронизацияФирмПоИНН Тогда СтрокаИменСвойствПоиска = "ИНН"; Иначе СтрокаИменСвойствПоиска = "Код"; КонецЕсли; КонецЕсли; <Источник>СправочникСсылка.Фирмы <Приемник>СправочникСсылка.Организации <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Отключить="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>4 <Наименование>ИНН --> ИНН <Порядок>200 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>5 <Наименование>КодПоОКПО --> КодПоОКПО <Порядок>250 <Источник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКПО" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>9 <Наименование>ОКАТО --> КодПоОКАТО <Порядок>300 <Источник Имя="ОКАТО" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КодПоОКАТО" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>6 <Наименование>ОГРН --> ОГРН <Порядок>350 <Источник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ОГРН" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ОсновнойБанковскийСчет --> ОсновнойБанковскийСчет <Порядок>400 <Источник Имя="ОсновнойБанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <Приемник Имя="ОсновнойБанковскийСчет" Вид="Реквизит" Тип="СправочникСсылка.БанковскиеСчета"/> <КодПравилаКонвертации>БанковскиеСчета <Свойство Отключить="true"> <Код>8 <Наименование>Префикс --> Префикс <Порядок>450 <Источник Имя="Префикс" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Префикс" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>10 <Наименование>ДатаРегистрации --> ДатаРегистрации <Порядок>500 <Источник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство Отключить="true"> <Код>11 <Наименование>ЮрФизЛицо --> ЮрФизЛицо <Порядок>550 <Источник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <Приемник Имя="ЮрФизЛицо" Вид="Реквизит" Тип="ПеречислениеСсылка.ЮрФизЛицо"/> <КодПравилаКонвертации>ЮрФизЛицо00001 <Значения/> <Правило> <Код>СтавкиВНоменклатуру <Наименование>ПеречислениеСсылка.СтавкиНДС --> СправочникСсылка.Номенклатура <Порядок>800 <ПередВыгрузкой>Если ВходящиеДанные = Неопределено Тогда Отказ = Истина; Иначе Если ВходящиеДанные.СтавкаЗаполнена Тогда КлючВыгружаемыхДанных = СокрЛП(ВходящиеДанные.Услуга) + СОкрЛП(Источник); Иначе КлючВыгружаемыхДанных = СокрЛП(ВходящиеДанные.Услуга); КонецЕсли; Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); КонецЕсли; <Источник>ПеречислениеСсылка.СтавкиНДС <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>ИндексЗначенияПеречисления = Перечисления.СтавкиНДС.Индекс(Источник); Если ВходящиеДанные.Услуга Тогда Префикс = "у"; Иначе Префикс = ""; КонецЕсли; Если не ВходящиеДанные.СтавкаЗаполнена Тогда Значение = Префикс + "НЗ"; Иначе Значение = Префикс + Метаданные.Перечисления.СтавкиНДС.ЗначенияПеречисления[ИндексЗначенияПеречисления].Имя; КонецЕсли; <Свойство> <Код>2 <Наименование> --> Наименование <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>ИндексЗначенияПеречисления = Перечисления.СтавкиНДС.Индекс(Источник); Если ВходящиеДанные.Услуга Тогда ТекстНаименования = "Услуги с НДС "; Иначе ТекстНаименования = "Товары с НДС "; КонецЕсли; Если не ВходящиеДанные.СтавкаЗаполнена Тогда Значение = ТекстНаименования + " не заполнен"; Иначе Значение = ТекстНаименования + Метаданные.Перечисления.СтавкиНДС.ЗначенияПеречисления[ИндексЗначенияПеречисления].Синоним; КонецЕсли; <Свойство> <Код>3 <Наименование> --> БазоваяЕдиницаИзмерения <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="БазоваяЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <ПередВыгрузкой>Значение = Константы.ОсновнаяЕдиницаОКЕИ.Получить(); <Свойство> <Код>4 <Наименование> --> Услуга <Порядок>200 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <Свойство> <Код>5 <Наименование> --> СтавкаНДС <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="СтавкаНДС" Вид="Реквизит" Тип="ПеречислениеСсылка.СтавкиНДС"/> <КодПравилаКонвертации>СтавкиНДС <ПередВыгрузкой>Если ВходящиеДанные.СтавкаЗаполнена Тогда Значение = Источник; Иначе Значение = Перечисления.СтавкиНДС.ПустаяСсылка(); КонецЕсли; <Значения/> <Правило> <Код>ТипыЦенНоменклатуры <Наименование>СправочникСсылка.КатегорииЦен --> СправочникСсылка.ТипыЦенНоменклатуры <Порядок>850 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.КатегорииЦен <Приемник>СправочникСсылка.ТипыЦенНоменклатуры <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>1 <Наименование>ВалютаЦены --> ВалютаЦены <Порядок>100 <Источник Имя="ВалютаЦены" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <Приемник Имя="ВалютаЦены" Вид="Реквизит" Тип="СправочникСсылка.Валюты"/> <КодПравилаКонвертации>Валюты <Свойство> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>150 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Наименование --> Наименование <Порядок>200 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование> --> ЦенаВключаетНДС <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="ЦенаВключаетНДС" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = Истина; <Значения/> <Правило> <Код>ВидыОплатОрганизаций <Наименование>СправочникСсылка.ВидыОплаты --> СправочникСсылка.ВидыОплатОрганизаций <Порядок>900 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Источник>СправочникСсылка.ВидыОплаты <Приемник>СправочникСсылка.ВидыОплатОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Число"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = СокрЛП(ВходящиеДанные.Префикс) + Источник.Код; <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование> --> ЭтоГруппа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = Ложь; <Свойство> <Код>5 <Наименование>ТипОплаты --> ТипОплаты <Порядок>250 <Источник Имя="ТипОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОплаты"/> <Приемник Имя="ТипОплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ТипыОплат"/> <Свойство> <Код>6 <Наименование> --> Организация <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Организация" Вид="Реквизит" Тип="СправочникСсылка.Организации"/> <ПередВыгрузкой>Если ЗначениеЗаполнено(Источник.ДоговорКонтрагента) Тогда Значение = Источник.ДоговорКонтрагента.Фирма; Иначе Значение = ВходящиеДанные; КонецЕсли; <Свойство> <Код>7 <Наименование>ДоговорКонтрагента --> ДоговорКонтрагента <Порядок>350 <Источник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Свойство> <Код>8 <Наименование>Контрагент --> Контрагент <Порядок>400 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство> <Код>9 <Наименование>ПроцентКомиссии --> ПроцентБанковскойКомиссии <Порядок>450 <Источник Имя="ПроцентКомиссии" Вид="Реквизит" Тип="Число"/> <Приемник Имя="ПроцентБанковскойКомиссии" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВидыСубконтоХозрасчетные <Наименование> --> ПланВидовХарактеристикСсылка.ВидыСубконтоХозрасчетные <Порядок>950 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Приемник>ПланВидовХарактеристикСсылка.ВидыСубконтоХозрасчетные <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник; <Значения/> <Правило> <Код>ПодразделенияОрганизаций <Наименование> --> СправочникСсылка.ПодразделенияОрганизаций <Порядок>1000 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); <Приемник>СправочникСсылка.ПодразделенияОрганизаций <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Владелец <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Организации"/> <КодПравилаКонвертации>Организации <ПередВыгрузкой>Значение = Источник.Фирма; <Свойство Поиск="true"> <Код>2 <Наименование> --> Код <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>// сформируем код подразделения: // он будет состоять из полного кода склада и последний 4 символов кода фирмы. // Соответствующие коды расширяются до 5-и и 4-х символов соответственно. КодФирмы = Прав("0000" + СокрЛП(Источник.Фирма.Код), 4); КодСклада = Прав("00000" + СокрЛП(Источник.Склад.Код), 5); Значение = КодФирмы + КодСклада; <Свойство> <Код>3 <Наименование> --> Наименование <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Значение = Источник.Склад.Наименование; <Свойство> <Код>4 <Наименование> --> ПометкаУдаления <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <ПередВыгрузкой>Значение = Источник.Склад.ПометкаУдаления; <Значения/> <Правило> <Код>ФизическиеЛица <Наименование>СправочникСсылка.Контрагенты --> СправочникСсылка.ФизическиеЛица <Порядок>1050 <ПередВыгрузкой>Выполнить(Алгоритмы.ПередВыгрузкойОбъектаПКО); Если НЕ Источник.ЭтоГруппа И Источник.ВидКонтрагента <> Перечисления.ВидыКонтрагентов.Сотрудник Тогда Отказ = Истина; КонецЕсли; <ПоследовательностьПолейПоиска>Если НЕ СвойстваПоиска["ЭтоГруппа"] Тогда Если НомерВариантаПоиска = 1 Тогда Если ЗначениеЗаполнено(СвойстваПоиска["ИНН"])Тогда СтрокаИменСвойствПоиска = "ИНН"; Иначе СтрокаИменСвойствПоиска = "Наименование"; КонецЕсли; КонецЕсли; Иначе СтрокаИменСвойствПоиска = "ЭтоГруппа, Код"; КонецЕсли; <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.ФизическиеЛица <Свойства> <Свойство Поиск="true" Обязательное="true"> <Код>7 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>50 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <НеЗамещать>true <Код>1 <Наименование>ИНН --> ИНН <Порядок>100 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <НеЗамещать>true <Код>4 <Наименование>Наименование --> Наименование <Порядок>150 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <НеЗамещать>true <Код>2 <Наименование>Код --> Код <Порядок>200 <Источник Имя="Код" Вид="Свойство" Тип="Число"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <НеЗамещать>true <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство> <НеЗамещать>true <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <НеЗамещать>true <Код>6 <Наименование>Родитель --> Родитель <Порядок>350 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Значения/> <Правило> <Код>СтатьиДвиженияДенежныхСредств <Наименование>Справочник: Статьи движения денежных средств <Порядок>1100 <СинхронизироватьПоИдентификатору>true <Источник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование> --> ЭтоГруппа <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <ПравилаВыгрузкиДанных> <Группа Отключить="false"> <Код>Документы <Наименование>Документы <Порядок>50 <Правило Отключить="true"> <Код>АвансовыйОтчет <Наименование>Авансовый отчет <Порядок>50 <КодПравилаКонвертации>АвансовыйОтчет <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.АвансовыйОтчет <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>АктПереоценки <Наименование>Акт переоценки <Порядок>100 <КодПравилаКонвертации>УстановкаЦенНоменклатуры <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.АктПереоценки <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); Если Параметры.СверткаПоНДС Тогда Отказ = ИСтина; КонецЕсли; <Правило Отключить="true"> <Код>АктПересортицы <Наименование>Акт пересортицы <Порядок>150 <КодПравилаКонвертации>АктПересортицы <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.АктПересортицы <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>ВозвратТоваровОтПокупателя <Наименование>Возврат товаров от покупателя <Порядок>200 <КодПравилаКонвертации>ВозвратТоваровОтПокупателя <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратТоваровОтПокупателя <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>ВозвратТоваровПоставщику <Наименование>Возврат товаров поставщику <Порядок>250 <КодПравилаКонвертации>ВозвратТоваровПоставщику <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВозвратТоваровПоставщику <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="true"> <Код>УР_ВыпускПродукции <Наименование>Выпуск продукции <Порядок>300 <КодПравилаКонвертации>ВыпускПродукции <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.УР_ВыпускПродукции <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="true"> <Код>ИнвентаризацияТовара <Наименование>Инвентаризация товара <Порядок>350 <КодПравилаКонвертации>ИнвентаризацияТоваровНаСкладе <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИнвентаризацияТовара <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>ИнвентаризацияТовара00001 <Наименование>Инвентаризация товаров по складу ( авто создание документов) <Порядок>400 <КодПравилаКонвертации>Prog_ИнвентаризацияТоваровНаСкладе <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИнвентаризацияТовара <Правило Отключить="false"> <Код>Инкассация <Наименование>Инкассация <Порядок>450 <КодПравилаКонвертации>РасходныйКассовыйОрдер_Инкассация <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Инкассация <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>ОтчетКассовойСмены <Наименование>Отчет кассовой смены <Порядок>500 <КодПравилаКонвертации>ОтчетОРозничныхПродажах <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетКассовойСмены <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>ОтчетКомитентуОПродажах <Наименование>Отчет комитенту о продажах <Порядок>550 <КодПравилаКонвертации>ОтчетКомитентуОПродажах <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОтчетКомитентуОПродажах <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>ПеремещениеТоваров <Наименование>Перемещение товаров <Порядок>600 <КодПравилаКонвертации>ПеремещениеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеремещениеТоваров <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="true"> <Код>ПлатежноеПоручениеВх <Наименование>Платежное поручение входящее <Порядок>650 <КодПравилаКонвертации>ПлатежноеПоручениеВходящее <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПлатежноеПоручение <ПередВыгрузкойОбъекта>Если Объект.ВидОперации = Перечисления.ВидыОперацийПлатежноеПоручение.Входящее Тогда Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); Иначе Отказ = Истина; КонецЕсли; <Правило Отключить="true"> <Код>ПлатежноеПоручениеИсх <Наименование>Платежное поручение исходящее <Порядок>700 <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПлатежноеПоручение <ПередВыгрузкойОбъекта>Если Объект.ВидОперации = Перечисления.ВидыОперацийПлатежноеПоручение.Исходящее ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПлатежноеПоручение.ПеречислениеНалога Тогда Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); Если НЕ Отказ Тогда ВыгрузитьПоПравилу(Объект, , , , "ПлатежноеПоручениеИсходящее_Списание"); Отказ = Истина; КонецЕсли; Иначе Отказ = Истина; КонецЕсли; <Правило Отключить="false"> <Код>ПриходнаяНакладная <Наименование>Приходная накладная <Порядок>750 <КодПравилаКонвертации>ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриходнаяНакладная <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); Если Объект.ВидОперации = Перечисления.ВидыОперацийПриходнаяНакладная.ПодарочныеСертификаты Тогда//ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПриходнаяНакладная.Бонус Тогда Отказ = Истина; КонецЕсли; <Правило Отключить="false"> <Код>ПриходнаяНакладнаяБонус <Наименование>Приходная накладная с видом "Бонус" <Порядок>800 <КодПравилаКонвертации>ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриходнаяНакладная <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); Если Объект.ВидОперации <> Перечисления.ВидыОперацийПриходнаяНакладная.Бонус Тогда Отказ = Истина; КонецЕсли; <Правило Отключить="false"> <Код>ПриходныйКассовыйОрдер <Наименование>Приходный кассовый ордер <Порядок>850 <КодПравилаКонвертации>ПриходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриходныйКассовыйОрдер <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="true"> <Код>УР_АктРазделки <Наименование>Разукомплектация <Порядок>900 <КодПравилаКонвертации>АктРазделки <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.УР_АктРазделки <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>РасходнаяНакладная <Наименование>Расходная накладная <Порядок>950 <КодПравилаКонвертации>РеализацияТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РасходнаяНакладная <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>РасходныйКассовыйОрдер <Наименование>Расходный кассовый ордер <Порядок>1000 <КодПравилаКонвертации>РасходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РасходныйКассовыйОрдер <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>СписаниеТоваров <Наименование>Списание товаров <Порядок>1050 <КодПравилаКонвертации>СписаниеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СписаниеТоваров <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="true"> <Код>Счет <Наименование>Счет <Порядок>1100 <КодПравилаКонвертации>СчетНаОплатуПокупателю <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.Счет <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>СчетФактура <Наименование>Счет-фактура <Порядок>1150 <КодПравилаКонвертации>СчетФактураВыданный <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СчетФактура <ПередВыгрузкойОбъекта>Выполнить(Алгоритмы.ПередВыгрузкойОбъекта); <Правило Отключить="false"> <Код>ВводОстатковТовары <Наименование>Ввод начальных остатков по номенклатуре <Порядок>1200 <КодПравилаКонвертации>Prog_ВводОстатковТовары <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ВводОстатковТовары <ПередВыгрузкойОбъекта>//Выполнить(Алгоритмы.ПередВыгрузкойОбъекта) <Группа Отключить="false"> <Код>Справочники <Наименование>Справочники <Порядок>100 <Правило Отключить="true"> <Код>Банки <Наименование>Банки <Порядок>50 <КодПравилаКонвертации>Банки <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Банки <Правило Отключить="false"> <Код>БанковскиеСчета <Наименование>БанковскиеСчета <Порядок>100 <КодПравилаКонвертации>БанковскиеСчета <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.БанковскиеСчета <Правило Отключить="false"> <Код>ДоговорыКонтрагентов <Наименование>ДоговорыКонтрагентов <Порядок>150 <КодПравилаКонвертации>ДоговорыКонтрагентов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.ДоговорыКонтрагентов <Правило Отключить="false"> <Код>Контрагенты <Наименование>Контрагенты <Порядок>200 <КодПравилаКонвертации>Контрагенты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Контрагенты <Правило Отключить="true"> <Код>Номенклатура <Наименование>Номенклатура <Порядок>250 <КодПравилаКонвертации>Номенклатура <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Номенклатура <ПравилаОчисткиДанных/> <Алгоритмы> <Алгоритм Имя="ЗаписатьУзелДокументОснование" ИспользуетсяПриЗагрузке="false"> <Текст> Сч = 0; БылаЗапись = Ложь; Для Каждого ТекЭлемент Из СтруктураВозможныхДокументов Цикл Сч = Сч + 1; ТипДокумента = Тип("ДокументСсылка." + ТекЭлемент.Ключ); Если ЗначениеЗаполнено(Источник.ДокументОснование) И ТипЗнч(Источник.ДокументОснование) = ТипДокумента Тогда ДокДата = Источник.ДокументОснование.Дата; ДокНомер = Источник.ДокументОснование.Номер; ИмяМетаданныхДокумента = ТекЭлемент.Значение; Иначе ДокДата = Дата(1,1,1); ДокНомер = ""; ИмяМетаданныхДокумента = ""; КонецЕсли; Если (Не ПустаяСтрока(ИмяМетаданныхДокумента) ИЛИ Сч = СтруктураВозможныхДокументов.Количество()) И НЕ БылаЗапись Тогда ДокОснование = СоздатьУзел("ДокументОснование"); УстановитьАтрибут(ДокОснование, "Дата" , ДокДата); УстановитьАтрибут(ДокОснование, "Номер" , ДокНомер); УстановитьАтрибут(ДокОснование, "ИмяМетаданныхДокумента", ИмяМетаданныхДокумента); ДобавитьПодчиненный(Приемник, ДокОснование); БылаЗапись = Истина; КонецЕсли; КонецЦикла; <Алгоритм Имя="ОперацияПослеЗагрузкиДокумента" ИспользуетсяПриЗагрузке="true"> <Текст>Объект.Проведен = Истина; Попытка Объект.Записать(); Объект.Записать(РежимЗаписиДокумента.Проведение); Исключение //Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное); КонецПопытки <Алгоритм Имя="ПередВыгрузкойНоменклатурыТовар" ИспользуетсяПриЗагрузке="false"> <Текст>Если Параметры.СверткаПоНДС Тогда ИсходящиеДанные = Новый Структура("Услуга, СтавкаЗаполнена"); ИсходящиеДанные.Услуга = Ложь; Если ЗначениеЗаполнено(ОбъектКоллекции.СтавкаНДСНоменклатуры) Тогда Значение = ОбъектКоллекции.СтавкаНДСНоменклатуры; ИсходящиеДанные.СтавкаЗаполнена = Истина; Иначе Значение = Перечисления.СтавкиНДС.НДС18; ИсходящиеДанные.СтавкаЗаполнена = Ложь; КонецЕсли; ИмяПКО = "СтавкиВНоменклатуру"; Иначе Значение = ОбъектКоллекции.Номенклатура; ИмяПКО = "Номенклатура"; КонецЕсли; <Алгоритм Имя="ПередВыгрузкойНоменклатурыУслуга" ИспользуетсяПриЗагрузке="false"> <Текст>Если Параметры.СверткаПоНДС Тогда ИсходящиеДанные = Новый Структура("Услуга, СтавкаЗаполнена"); ИсходящиеДанные.Услуга = Истина; Если ЗначениеЗаполнено(ОбъектКоллекции.СтавкаНДСНоменклатуры) Тогда Значение = ОбъектКоллекции.СтавкаНДСНоменклатуры; ИсходящиеДанные.СтавкаЗаполнена = Истина; Иначе Значение = Перечисления.СтавкиНДС.НДС18; ИсходящиеДанные.СтавкаЗаполнена = Ложь; КонецЕсли; ИмяПКО = "СтавкиВНоменклатуру"; Иначе Значение = ОбъектКоллекции.Номенклатура; ИмяПКО = "Номенклатура"; КонецЕсли; <Алгоритм Имя="ПередВыгрузкойОбъекта" ИспользуетсяПриЗагрузке="false"> <Текст>Если ЗначениеЗаполнено(Параметры.Фирма) И ЕстьРеквизитДОкумента("Фирма", Объект.Метаданные()) И Объект.Фирма <> Параметры.Фирма Тогда Отказ = Истина; КонецЕсли; Если Параметры.СинхронизацияКонтрагентовПоИНН И ЕстьРеквизитДокумента("Контрагент", Объект.Метаданные()) И НЕ ЗначениеЗаполнено(Объект.Контрагент.ИНН) И Объект.Контрагент.ВидКонтрагента <> Перечисления.ВидыКонтрагентов.ККМ Тогда Сообщить("В документе """ + Объект + """ выбран контрагент с незаполненным ИНН. Документ не выгружен."); Параметры.СписокКонтрагентовБезИНН.Добавить(Объект.Контрагент); Отказ = Истина; КонецЕсли; Если Параметры.СинхронизацияФирмПоИНН Тогда НеВыгружатьЭтотОбъект = Ложь; Если ЕстьРеквизитДокумента("Фирма", Объект.Метаданные()) И НЕ ЗначениеЗаполнено(Объект.Фирма.ИНН) Тогда НеВыгружатьЭтотОбъект = Истина; ИначеЕсли ЕстьРеквизитДокумента("ФирмаПолучатель", Объект.Метаданные()) И НЕ ЗначениеЗаполнено(Объект.ФирмаПолучатель.ИНН) И ЕстьРеквизитДокумента("ПеремещениеМеждуФирмами", Объект.Метаданные()) И Объект.ПеремещениеМеждуФирмами Тогда НеВыгружатьЭтотОбъект = Истина; КонецЕсли; Если НеВыгружатьЭтотОбъект Тогда Сообщить("В документе """ + Объект + """ выбрана фирма с незаполненным ИНН. Документ не выгружен."); Отказ = Истина; КонецЕсли; КонецЕсли; Если Параметры.ТолькоПроведенные И Не Объект.Проведен Тогда Отказ = Истина; КонецЕсли; <Алгоритм Имя="ПередВыгрузкойОбъектаПКО" ИспользуетсяПриЗагрузке="false"> <Текст> НеЗамещатьОбъектПриЗагрузке = Параметры.НеЗамещатьПриЗагрузке; //НеЗамещатьОбъектПриЗагрузке = Ложь; <Алгоритм Имя="ПолучитьТаблицуТоваров" ИспользуетсяПриЗагрузке="false"> <Текст>ТабЧасть = Источник.Метаданные().ТабличныеЧасти.Товары; Если ТипЗнч(Источник) = Тип("ДокументСсылка.ОтчетКассовойСмены") Тогда ЗапросПоВозврату = Истина; Иначе ЗапросПоВозврату = Ложь; КонецЕсли; Если ТабЧасть.Реквизиты.Найти("Себестоимость") = Неопределено Тогда ВыбиратьСебестоимость = Ложь; Иначе ВыбиратьСебестоимость = Истина; КонецЕсли; Если ТабЧасть.Реквизиты.Найти("Сумма") = Неопределено Тогда ВыбиратьСумму = Ложь; Иначе ВыбиратьСумму = Истина; КонецЕсли; Если ТипЗнч(Источник) = Тип("ДокументСсылка.ИнвентаризацияТовара") Тогда ВыбиратьЦенуИзлишков = Истина; Иначе ВыбиратьЦенуИзлишков = Ложь; КонецЕсли; Если ТабЧасть.Реквизиты.Найти("СуммаНДС") = Неопределено Тогда ВыбиратьСуммуНДС = Ложь; Иначе ВыбиратьСуммуНДС = Истина; КонецЕсли; Если Источник.Метаданные().Имя = "УР_АктРазделки" Тогда ВыбиратьСебестоимостьИзРегистра = Истина; Иначе ВыбиратьСебестоимостьИзРегистра = Ложь; КонецЕсли; Если Источник.Метаданные().Имя = "ВозвратТоваровОтПокупателя" Тогда ВозвратТоваровОтПокупателя = Истина; Иначе ВозвратТоваровОтПокупателя = Ложь; КонецЕсли; Запрос = Новый Запрос; Запрос.УстановитьПараметр("Ссылка", Источник); Если ТипЗнч(Источник) <> Тип("ДокументСсылка.ИнвентаризацияТовара") Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | Товары.Номенклатура КАК Номенклатура, | Товары.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры," + ?(ВыбиратьЦенуИзлишков, " | Товары.Цена КАК Цена, | Товары.Цена * Товары.Количество * Товары.Коэффициент КАК Сумма,", "") + " | Товары.Количество * Товары.Коэффициент КАК Количество" + ?(ВыбиратьСумму, ", | Товары.Сумма КАК Сумма, | ВЫБОР КОГДА (Товары.Количество * Товары.Коэффициент = 0) ТОГДА 0 ИНАЧЕ (Товары.Сумма /(Товары.Количество * Товары.Коэффициент)) КОНЕЦ КАК Цена", "") + ?(ВыбиратьСебестоимость, ", | Товары.Себестоимость КАК Себестоимость", "") + ?(ВыбиратьСуммуНДС, ", | Товары.СуммаНДС КАК СуммаНДС, | Товары.СтавкаНДС КАК СтавкаНДС", "") + " |ИЗ Документ." + Источник.Метаданные().Имя + ".Товары КАК Товары |ГДЕ Товары.Ссылка = &Ссылка"; Иначе ТекстЗапросаПоТоварам = "ВЫБРАТЬ | Товары.Номенклатура КАК Номенклатура, | Товары.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры," + ?(ВыбиратьЦенуИзлишков, " | Товары.Цена КАК Цена, | Товары.КоличествоУчет КАК КоличествоУчет, | Товары.КоличествоУчет*Товары.Цена КАК СуммаУчет, | Товары.Цена * Товары.Количество * Товары.Коэффициент КАК Сумма,", "") + " | Товары.Количество * Товары.Коэффициент КАК Количество" + ?(ВыбиратьСумму, ", | Товары.Сумма КАК Сумма, | ВЫБОР КОГДА (Товары.Количество * Товары.Коэффициент = 0) ТОГДА 0 ИНАЧЕ (Товары.Сумма /(Товары.Количество * Товары.Коэффициент)) КОНЕЦ КАК Цена", "") + ?(ВыбиратьСебестоимость, ", | Товары.Себестоимость КАК Себестоимость", "") + ?(ВыбиратьСуммуНДС, ", | Товары.СуммаНДС КАК СуммаНДС, | Товары.СтавкаНДС КАК СтавкаНДС", "") + " |ИЗ Документ." + Источник.Метаданные().Имя + ".Товары КАК Товары |ГДЕ Товары.Ссылка = &Ссылка"; КонецЕсли; Если ЗапросПоВозврату Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | ТаблицаТоваров.Номенклатура, | ТаблицаТоваров.СтавкаНДСНоменклатуры, | СУММА(ТаблицаТоваров.Количество) КАК Количество" + ?(ВыбиратьСумму, ", | СУММА(ТаблицаТоваров.Сумма) КАК Сумма, | МАКСИМУМ(ТаблицаТоваров.Цена) КАК Цена", "") + ?(ВыбиратьСуммуНДС, ", | СУММА(ТаблицаТоваров.СуммаНДС) КАК СуммаНДС, | ТаблицаТоваров.СтавкаНДС КАК СтавкаНДС", "") + " |ИЗ | ( " + ТекстЗапросаПоТоварам + " | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | ТоварыВозврат.Номенклатура КАК Номенклатура, | ТоварыВозврат.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | -(ТоварыВозврат.Количество * ТоварыВозврат.Коэффициент) КАК Количество" + ?(ВыбиратьСумму, ", | -(ТоварыВозврат.Сумма) КАК Сумма, | ВЫБОР КОГДА (ТоварыВозврат.Количество * ТоварыВозврат.Коэффициент = 0) ТОГДА 0 ИНАЧЕ (ТоварыВозврат.Сумма /(ТоварыВозврат.Количество * ТоварыВозврат.Коэффициент)) КОНЕЦ КАК Цена", "") + ?(ВыбиратьСуммуНДС, ", | -ТоварыВозврат.СуммаНДС КАК СуммаНДС, | ТоварыВозврат.СтавкаНДС КАК СтавкаНДС", "") + " |ИЗ Документ." + Источник.Метаданные().Имя + ".ТоварыВозврат КАК ТоварыВозврат |ГДЕ ТоварыВозврат.Ссылка = &Ссылка) КАК ТаблицаТоваров | |СГРУППИРОВАТЬ ПО | Номенклатура, | СтавкаНДСНоменклатуры" + ?(ВыбиратьСуммуНДС, ", СтавкаНДС", ""); ИначеЕсли ВыбиратьСебестоимостьИзРегистра Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | Товары.Номенклатура КАК Номенклатура, | Товары.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | СУММА(ТаблицаСебестоимости.КоличествоПриход) КАК Количество, | СУММА(ТаблицаСебестоимости.СтоимостьПриход) КАК Сумма, | СУММА(ВЫБОР | КОГДА ТаблицаСебестоимости.КоличествоПриход = 0 | ТОГДА 0 | ИНАЧЕ ТаблицаСебестоимости.СтоимостьПриход / ТаблицаСебестоимости.КоличествоПриход | КОНЕЦ) КАК Цена |ИЗ | Документ.УР_АктРазделки.Товары КАК Товары | ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ | ПартииНоменклатурыОбороты.Номенклатура КАК Номенклатура, | СУММА(ПартииНоменклатурыОбороты.КоличествоПриход) КАК КоличествоПриход, | СУММА(ПартииНоменклатурыОбороты.СтоимостьПриход) КАК СтоимостьПриход | ИЗ | РегистрНакопления.ПартииНоменклатуры.Обороты(, , Авто, ) КАК ПартииНоменклатурыОбороты | ГДЕ | ПартииНоменклатурыОбороты.Регистратор = &Ссылка | СГРУППИРОВАТЬ ПО | ПартииНоменклатурыОбороты.Номенклатура) КАК ТаблицаСебестоимости | ПО Товары.Номенклатура = ТаблицаСебестоимости.Номенклатура |ГДЕ | Товары.Ссылка = &Ссылка | |СГРУППИРОВАТЬ ПО | Товары.Номенклатура, | Товары.Номенклатура.СтавкаНДС"; ВыбиратьСумму = Истина; ИначеЕсли ВозвратТоваровОтПокупателя Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | Товары.Номенклатура КАК Номенклатура, | Товары.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | Товары.Количество * Товары.Коэффициент КАК Количество" + ?(ВыбиратьСумму, ", | Товары.Сумма КАК Сумма, | ВЫБОР КОГДА (Товары.Количество * Товары.Коэффициент = 0) ТОГДА 0 ИНАЧЕ (Товары.Сумма /(Товары.Количество * Товары.Коэффициент)) КОНЕЦ КАК Цена", "") + ?(ВыбиратьСуммуНДС, ", | Товары.СуммаНДС КАК СуммаНДС, | Товары.СтавкаНДС КАК СтавкаНДС", "") + ", | ПартииНоменклатуры.Стоимость / ПартииНоменклатуры.Количество КАК Себестоимость |ИЗ Документ.ВозвратТоваровОтПокупателя.Товары КАК Товары | ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииНоменклатуры КАК ПартииНоменклатуры | ПО Товары.ИдентификаторСтроки = ПартииНоменклатуры.ИдентификаторСтроки | И Товары.Ссылка = ПартииНоменклатуры.Регистратор |ГДЕ Товары.Ссылка = &Ссылка"; КонецЕсли; Если Параметры.СверткаПоНДС Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | ТабТоваров.СтавкаНДСНоменклатуры КАК СтавкаНДСНоменклатуры," + ?(ВыбиратьЦенуИзлишков, " | СУММА(ТабТоваров.Сумма) КАК Сумма, | 0 КАК Цена,", "") + " | СУММА(ТабТоваров.Количество) КАК Количество" + ?(ВыбиратьСумму, ", | СУММА(ТабТоваров.Сумма) КАК Сумма", "") + ?(ВыбиратьСебестоимость, ", | СУММА(ТабТоваров.Себестоимость) КАК Себестоимость", "") + ?(ВыбиратьСуммуНДС, ", | СУММА(ТабТоваров.СуммаНДС) КАК СуммаНДС, | ТабТоваров.СтавкаНДС КАК СтавкаНДС", "") + " |ИЗ | (" + ТекстЗапросаПоТоварам + ") КАК ТабТоваров |СГРУППИРОВАТЬ ПО ТабТоваров.СтавкаНДСНоменклатуры" + ?(ВыбиратьСуммуНДС, ", ТабТоваров.СтавкаНДС", ""); Если ВыбиратьСумму Тогда ТекстЗапросаПоТоварам = "ВЫБРАТЬ | *, | ВЫБОР КОГДА(ТабТоваровСКоличеством.Количество = 0) ТОГДА 0 ИНАЧЕ (ТабТоваровСКоличеством.Сумма / ТабТоваровСКоличеством.Количество) КОНЕЦ КАК Цена | ИЗ (" + ТекстЗапросаПоТоварам + ") КАК ТабТоваровСКоличеством"; КонецЕсли; КонецЕсли; //Сообщить(ТекстЗапросаПоТоварам); Запрос.Текст = ТекстЗапросаПоТоварам; КоллекцияОбъектов = Запрос.Выполнить().Выгрузить(); <Алгоритм Имя="ПолучитьТаблицуТоваровДляОприходования" ИспользуетсяПриЗагрузке="false"> <Текст>ТабЧасть = Источник.Метаданные().ТабличныеЧасти.Товары; ЗапросПоТоварам = Новый Запрос(); ЗапросПоТоварам.УстановитьПараметр("ТекущийДокумент", Источник); ЗапросПоТоварам.Текст = "ВЫБРАТЬ | ИнвентаризацияТовараТовары.Номенклатура КАК Номенклатура, | ИнвентаризацияТовараТовары.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры, | ИнвентаризацияТовараТовары.Номенклатура.Код КАК Код, | ИнвентаризацияТовараТовары.Номенклатура.Артикул КАК Артикул, | ИнвентаризацияТовараТовары.Количество-(ИнвентаризацияТовараТовары.КоличествоУчет + ИнвентаризацияТовараТовары.КоличествоДопУчет)*ИнвентаризацияТовараТовары.КоэффициентУчет/ИнвентаризацияТовараТовары.Коэффициент КАК Количество, | ИнвентаризацияТовараТовары.Коэффициент, | ИнвентаризацияТовараТовары.КоэффициентУчет, | ИнвентаризацияТовараТовары.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ИнвентаризацияТовараТовары.ИдентификаторСтроки, | ИнвентаризацияТовараТовары.Цена * ИнвентаризацияТовараТовары.Коэффициент КАК Цена, | (ИнвентаризацияТовараТовары.Цена * ИнвентаризацияТовараТовары.Коэффициент)*(ИнвентаризацияТовараТовары.Количество-(ИнвентаризацияТовараТовары.КоличествоУчет + ИнвентаризацияТовараТовары.КоличествоДопУчет)*ИнвентаризацияТовараТовары.КоэффициентУчет/ИнвентаризацияТовараТовары.Коэффициент) КАК Сумма |ИЗ | Документ.ИнвентаризацияТовара.Товары КАК ИнвентаризацияТовараТовары | {ТаблицаЦенСклада} |ГДЕ | ИнвентаризацияТовараТовары.Ссылка = &ТекущийДокумент И (ИнвентаризацияТовараТовары.Количество-(ИнвентаризацияТовараТовары.КоличествоУчет + ИнвентаризацияТовараТовары.КоличествоДопУчет)*ИнвентаризацияТовараТовары.КоэффициентУчет/ИнвентаризацияТовараТовары.Коэффициент) > 0 | |УПОРЯДОЧИТЬ ПО | ИнвентаризацияТовараТовары.НомерСтроки"; ДополнитьТекстЗапросаУчетнымиЦенами(ЗапросПоТоварам, Источник.Склад, Ложь, "Оборот", "ИнвентаризацияТовараТовары", , "ТаблицаЦенСклада", "УчетнаяЦенаСклада", "УчетнаяСуммаСклада"); КоллекцияОбъектов = ЗапросПоТоварам.Выполнить().Выгрузить(); Если ТипЗнч(ВходящиеДанные) = Тип("Структура") Тогда ВходящиеДанные.Вставить("Оприходование",КоллекцияОбъектов.Количество()); Иначе ВходящиеДанные = Новый Структура("Оприходование",КоллекцияОбъектов.Количество()); КонецЕсли; <Алгоритм Имя="ПолучитьТаблицуТоваровДляСписания" ИспользуетсяПриЗагрузке="false"> <Текст>ТабЧасть = Источник.Метаданные().ТабличныеЧасти.Товары; ЗапросПоТоварам = Новый Запрос(); ЗапросПоТоварам.УстановитьПараметр("ТекущийДокумент", Источник); ЗапросПоТоварам.Текст = "ВЫБРАТЬ | ИнвентаризацияТовараТовары.Номенклатура КАК Номенклатура, | ИнвентаризацияТовараТовары.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры, | ИнвентаризацияТовараТовары.Номенклатура.Код КАК Код, | ИнвентаризацияТовараТовары.Номенклатура.Артикул КАК Артикул, | ИнвентаризацияТовараТовары.Номенклатура.СтавкаНДС КАК СтавкаНДС, | -(ИнвентаризацияТовараТовары.Количество-(ИнвентаризацияТовараТовары.КоличествоУчет + ИнвентаризацияТовараТовары.КоличествоДопУчет)*ИнвентаризацияТовараТовары.КоэффициентУчет/ИнвентаризацияТовараТовары.Коэффициент) КАК Количество, | ИнвентаризацияТовараТовары.Коэффициент, | ИнвентаризацияТовараТовары.КоэффициентУчет, | ИнвентаризацияТовараТовары.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ИнвентаризацияТовараТовары.ИдентификаторСтроки, | {УчетнаяЦенаСклада} * ИнвентаризацияТовараТовары.Коэффициент КАК Цена, | {УчетнаяСуммаСклада} КАК Сумма |ИЗ | Документ.ИнвентаризацияТовара.Товары КАК ИнвентаризацияТовараТовары | {ТаблицаЦенСклада} |ГДЕ | ИнвентаризацияТовараТовары.Ссылка = &ТекущийДокумент И (ИнвентаризацияТовараТовары.Количество-(ИнвентаризацияТовараТовары.КоличествоУчет + ИнвентаризацияТовараТовары.КоличествоДопУчет)*ИнвентаризацияТовараТовары.КоэффициентУчет/ИнвентаризацияТовараТовары.Коэффициент) < 0 | |УПОРЯДОЧИТЬ ПО | ИнвентаризацияТовараТовары.НомерСтроки"; ДополнитьТекстЗапросаУчетнымиЦенами(ЗапросПоТоварам, Источник.Склад, Ложь, "ОборотМинус", "ИнвентаризацияТовараТовары", , "ТаблицаЦенСклада", "УчетнаяЦенаСклада", "УчетнаяСуммаСклада"); КоллекцияОбъектов = ЗапросПоТоварам.Выполнить().Выгрузить(); Если ТипЗнч(ВходящиеДанные) = Тип("Структура") Тогда ВходящиеДанные.Вставить("Списание",КоллекцияОбъектов.Количество()); Иначе ВходящиеДанные = Новый Структура("Списание",КоллекцияОбъектов.Количество()); КонецЕсли; <Алгоритм Имя="ПолучитьТаблицуУслуг" ИспользуетсяПриЗагрузке="false"> <Текст>ТабЧасть = Источник.Метаданные().ТабличныеЧасти.Услуги; Если ТабЧасть.Реквизиты.Найти("Сумма") = Неопределено Тогда ВыбиратьСумму = Ложь; Иначе ВыбиратьСумму = Истина; КонецЕсли; Если ТабЧасть.Реквизиты.Найти("СуммаНДС") = Неопределено Тогда ВыбиратьСуммуНДС = Ложь; Иначе ВыбиратьСуммуНДС = Истина; КонецЕсли; Запрос = Новый Запрос; Запрос.УстановитьПараметр("Ссылка", Источник); ТекстЗапросаПоУслугам = "ВЫБРАТЬ | Услуги.Номенклатура КАК Номенклатура, | Услуги.Номенклатура.СтавкаНДС КАК СтавкаНДСНоменклатуры, | Услуги.Содержание КАК Содержание, | Услуги.Количество КАК Количество" + ?(ВыбиратьСумму, ", | Услуги.Сумма КАК Сумма, | ВЫБОР КОГДА (Услуги.Количество = 0) ТОГДА 0 ИНАЧЕ (Услуги.Сумма /(Услуги.Количество)) КОНЕЦ КАК Цена", "") + ?(ВыбиратьСуммуНДС, ", | Услуги.СуммаНДС КАК СуммаНДС, | Услуги.СтавкаНДС КАК СтавкаНДС", "") + " |ИЗ Документ." + Источник.Метаданные().Имя + ".Услуги КАК Услуги |ГДЕ Услуги.Ссылка = &Ссылка"; Если Параметры.СверткаПоНДС Тогда ТекстЗапросаПоУслугам = "ВЫБРАТЬ | ТабУслуг.СтавкаНДСНоменклатуры КАК СтавкаНДСНоменклатуры, | МАКСИМУМ("""") КАК Содержание, | СУММА(ТабУслуг.Количество) КАК Количество" + ?(ВыбиратьСумму, ", | СУММА(ТабУслуг.Сумма) КАК Сумма", "") + ?(ВыбиратьСуммуНДС, ", | СУММА(ТабУслуг.СуммаНДС) КАК СуммаНДС, | ТабУслуг.СтавкаНДС КАК СтавкаНДС", "") + " |ИЗ | (" + ТекстЗапросаПоУслугам + ") КАК ТабУслуг |СГРУППИРОВАТЬ ПО ТабУслуг.СтавкаНДСНоменклатуры" + ?(ВыбиратьСуммуНДС, ", ТабУслуг.СтавкаНДС", ""); Если ВыбиратьСумму Тогда ТекстЗапросаПоУслугам = "ВЫБРАТЬ | *, | ВЫБОР КОГДА(ТабУслугСКоличеством.Количество = 0) ТОГДА 0 ИНАЧЕ (ТабУслугСКоличеством.Сумма / ТабУслугСКоличеством.Количество) КОНЕЦ КАК Цена | ИЗ (" + ТекстЗапросаПоУслугам + ") КАК ТабУслугСКоличеством"; КонецЕсли; КонецЕсли; Запрос.Текст = ТекстЗапросаПоУслугам; КоллекцияОбъектов = Запрос.Выполнить().Выгрузить(); <Алгоритм Имя="ПолучитьЦифровуюЧастьНомераДокумента" ИспользуетсяПриЗагрузке="false"> <Текст>НомерДокумента = СокрЛП(Источник.Номер); ДлинаНомера = СтрДлина(НомерДокумента); ЧисловаяЧастьНомера = ""; Для Сч = 0 По ДлинаНомера Цикл ТекСимвол = Прав(НомерДокумента, 1); Если Найти("1234567890", ТекСимвол) = 0 Тогда Прервать; КонецЕсли; ЧисловаяЧастьНомера = ТекСимвол + ЧисловаяЧастьНомера; НомерДокумента = Лев(НомерДокумента, ДлинаНомера - СтрДлина(ЧисловаяЧастьНомера)); КонецЦикла; МаксДлинаПрефикса = 10-СтрДлина(Формат(Число(ЧисловаяЧастьНомера),"ЧГ=")); Если МаксДлинаПрефикса > 0 Тогда ПрефиксНомера = Лев(НомерДокумента, МаксДлинаПрефикса); Иначе ПрефиксНомера = ""; КонецЕсли; ЧисловаяЧастьНомера = Прав(ЧисловаяЧастьНомера, 10-СтрДлина(ПрефиксНомера)); // УникальныйСимволДокумента - передается в обработчиках перед использованием алгоритма Значение = ПрефиксНомера + УникальныйСимволДокумента + ЧисловаяЧастьНомера; <Алгоритм Имя="ПреобразоватьКодыСправочника" ИспользуетсяПриЗагрузке="true"> <Текст> ДлинаКода = Справочники[ИмяСправочника].СоздатьЭлемент().Метаданные().ДлинаКода; Выборка = Справочники[ИмяСправочника].Выбрать(); Сч = 0; Пока Выборка.Следующий() Цикл Если Сч % 10 = 0 Тогда Состояние("Справочник """ + ИмяСправочника + """: Обработано элементов " + Сч); КонецЕсли; Сч = Сч + 1; СправочникОбъект = Выборка.ПолучитьОбъект(); Если Прав(СправочникОбъект.Код, 1) <> " " Тогда Продолжить; КонецЕсли; Попытка ПреобразованныйКод = Число(СокрЛП(СправочникОбъект.Код)); Исключение // При выгрузке из ДАЛИОНа код всегда должен преобразовываться в число, // т.к. коды справочников "Контрагенты" и "Номенклатура" числовые. // Если такое преобразование невозможно, то этот элемент не из ДАЛИОНа. Продолжить; КонецПопытки; ПреобразованныйКод = СтрЗаменить(ПреобразованныйКод, Символы.НПП, ""); ПреобразованныйКод = Лев("00000000000", ДлинаКода - СтрДлина(ПреобразованныйКод)) + ПреобразованныйКод; СправочникОбъект.Код = ПреобразованныйКод; Попытка СправочникОбъект.Записать(); Исключение Сообщить("Ошибка при записи элемента """ + СправочникОбъект + """ справочника """ + ИмяСправочника + """."); Сообщить(ОписаниеОшибки()); ОшибкаПриПреобразовании = Истина; Конецпопытки; КонецЦикла; <Алгоритм Имя="ПрочитатьУзелСвязанныхДокументов" ИспользуетсяПриЗагрузке="true"> <Текст> Пока ФайлОбмена.Прочитать() Цикл ИмяУзла = ФайлОбмена.ЛокальноеИмя; ТипУзла = ФайлОбмена.ТипУзла; Если (ИмяУзла = "ДокументОснование") И (ТипУзла = одТипУзлаXML_НачалоЭлемента) Тогда Если НЕ Параметры.НеЗамещатьПриЗагрузке ИЛИ НЕ ОбъектНайден Тогда ДатаДокум = одАтрибут(ФайлОбмена, одТипДата , "Дата"); НомерДокум = одАтрибут(ФайлОбмена, одТипСтрока, "Номер"); ИмяМетаданныхДокумента = одАтрибут(ФайлОбмена, одТипСтрока, "ИмяМетаданныхДокумента"); Если НЕ ПустаяСтрока(ИмяМетаданныхДокумента) Тогда СтруктураПолейПоиска = Новый Структура; СтруктураПолейПоиска.Вставить("Номер" , НомерДокум); СтруктураПолейПоиска.Вставить("Дата" , ДатаДокум); СтруктураПолейПоиска.Вставить("ИмяМетаданныхДокумента", ИмяМетаданныхДокумента); Параметры.СвязанныеДокументы.Вставить(Объект, СтруктураПолейПоиска); КонецЕсли; КонецЕсли; ИначеЕсли (ИмяУзла = "ДокументОснование") И (ТипУзла = одТипУзлаXML_КонецЭлемента) Тогда Прервать; КонецЕсли; КонецЦикла; <Запросы/>