<ПравилаОбмена> <ВерсияФормата РежимСовместимости="">2.01 <Ид>7858904a-ac3a-452a-a527-648345ef4abc <Наименование>БИТ_УМЦ --> БП 3.0 <ДатаВремяСоздания>2014-04-11T16:14:25 <Источник ВерсияПлатформы="8.0" ВерсияКонфигурации="2.0.8.22" СинонимКонфигурации="БИТ:Управление медицинским центром">БИТУправлениеМедицинскимЦентром <Приемник ВерсияПлатформы="8.0" ВерсияКонфигурации="3.0.28.12" СинонимКонфигурации="Бухгалтерия предприятия, редакция 3.0">БухгалтерияПредприятия <ПослеЗагрузкиПравилОбмена>Выборка = РегистрыСведений.НастройкаОбмена.Выбрать(); Пока Выборка.Следующий() Цикл Если (СокрЛП(Выборка.НазваниеОбъекта) = "Контрагенты") Тогда Параметры.Контрагенты = СокрЛП(Выборка.ПолеСопоставления); ИначеЕсли (СокрЛП(Выборка.НазваниеОбъекта) = "КонтрагентыГруппы") Тогда Параметры.КонтрагентыГруппы = СокрЛП(Выборка.ПолеСопоставления); ИначеЕсли (СокрЛП(Выборка.НазваниеОбъекта) = "Номенклатура") Тогда Параметры.Номенклатура = СокрЛП(Выборка.ПолеСопоставления); ИначеЕсли (СокрЛП(Выборка.НазваниеОбъекта) = "НоменклатураГруппы") Тогда Параметры.НоменклатураГруппы = СокрЛП(Выборка.ПолеСопоставления); ИначеЕсли (СокрЛП(Выборка.НазваниеОбъекта) = "СтатьиДвиженияДенежныхСредств") Тогда Параметры.СтатьиДвиженияДенежныхСредств = СокрЛП(Выборка.ПолеСопоставления); ИначеЕсли (СокрЛП(Выборка.НазваниеОбъекта) = "Склады") Тогда Параметры.Склады = СокрЛП(Выборка.ПолеСопоставления); ИначеЕсли (СокрЛП(Выборка.НазваниеОбъекта) = "Кассы") Тогда Параметры.Кассы = СокрЛП(Выборка.ПолеСопоставления); КонецЕсли; КонецЦикла; <Параметры> <Параметр Имя="Доки " Наименование="Доки" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="false" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="false"/> <Параметр Имя="Кассы " Наименование="Кассы" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="Контрагенты " Наименование="Контрагенты" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="КонтрагентыГруппы " Наименование="КонтрагентыГруппы" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="Номенклатура " Наименование="Номенклатура" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="НоменклатураГруппы " Наименование="НоменклатураГруппы" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="Склады " Наименование="Склады" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Параметр Имя="СтатьиДвиженияДенежныхСредств " Наименование="СтатьиДвиженияДенежныхСредств" ИспользуетсяПриЗагрузке="true" УстанавливатьВДиалоге="true" ТипЗначения="Строка" ПередаватьПараметрПриВыгрузке="true"/> <Обработки/> <ПравилаКонвертацииОбъектов> <Группа> <Код>Документы <Наименование>Документы <Порядок>50 <Правило> <Код>РеализацияТоваровУслуг <Наименование>ДокументСсылка.ОказаниеУслуг --> ДокументСсылка.РеализацияТоваровИУслуг <Порядок>50 <ПередВыгрузкой>// Документ не выгружается, если ничего не продали по нему Отказ = Истина; Если Источник.Проведен И (Источник.ВидОперации = Перечисления.ВидыОперацийОказанияУслуг.ПродажаКлиенту Или Источник.ВидОперации.Пустая()) Тогда Если ЗначениеЗаполнено(Источник.Документ) Тогда Для Каждого Строка из Источник.Работы Цикл Если Строка.Сумма > 0 Тогда Если (ЗначениеЗаполнено(Источник.Документ) И Строка.НеОплачиваетсяПолисом) ИЛИ НЕ ЗначениеЗаполнено(Источник.Документ) Тогда Отказ = Ложь; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; Если Отказ Тогда Для Каждого Строка из Источник.Материалы Цикл Если Строка.Сумма > 0 Тогда Если (ЗначениеЗаполнено(Источник.Документ) И Строка.НеОплачиваетсяПолисом) ИЛИ НЕ ЗначениеЗаполнено(Источник.Документ) Тогда Отказ = Ложь; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Если Отказ Тогда Для Каждого Строка из Источник.Товары Цикл Если Строка.Сумма > 0 Тогда Если (ЗначениеЗаполнено(Источник.Документ) И Строка.НеОплачиваетсяПолисом) ИЛИ НЕ ЗначениеЗаполнено(Источник.Документ) Тогда Отказ = Ложь; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Если Отказ Тогда Для Каждого Строка из Источник.Сертификаты Цикл Если Строка.Сумма > 0 И Строка.Сертификат.ВидСертификата.ТипСертификата = Перечисления.ТипыСертификатов.НаУслуги Тогда Если (ЗначениеЗаполнено(Источник.Документ) И Строка.НеОплачиваетсяПолисом) ИЛИ НЕ ЗначениеЗаполнено(Источник.Документ) Тогда Отказ = Ложь; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Иначе Отказ = Ложь; КонецЕсли; КонецЕсли; <ПослеВыгрузки>ТЗПродажи = Новый ТаблицаЗначений(); ТЗПродажи.Колонки.Добавить("Номенклатура"); ТЗПродажи.Колонки.Добавить("Количество"); ТЗПродажи.Колонки.Добавить("Коэффициент"); ТЗПродажи.Колонки.Добавить("Цена"); ТЗПродажи.Колонки.Добавить("Сумма"); // Реквизиты, которые пойдут в шапку ТЗПродажи.Колонки.Добавить("Дата"); ТЗПродажи.Колонки.Добавить("Ответственный"); ТЗПродажи.Колонки.Добавить("Склад", Новый ОписаниеТипов("СправочникСсылка.Склады")); // Формирование таблицы проданной номенклатуры мсТЧ = Новый Массив; мсТЧ.Добавить(Новый Структура("Имя,ТЧ","Работы" ,Источник.Работы)); мсТЧ.Добавить(Новый Структура("Имя,ТЧ","Материалы" ,Источник.Материалы)); мсТЧ.Добавить(Новый Структура("Имя,ТЧ","Товары" ,Источник.Товары)); Для Каждого элТЧ из мсТЧ Цикл Для Каждого СтрокаИсточник Из элТЧ.ТЧ Цикл Если СтрокаИсточник.Сумма > 0 Тогда Если (Не СтрокаИсточник.НеОплачиваетсяПолисом И ЗначениеЗаполнено(Источник.Документ)) Тогда Продолжить; КонецЕсли; СтрПродажи = ТЗПродажи.Добавить(); ЗаполнитьЗначенияСвойств(СтрПродажи, СтрокаИсточник); Если элТЧ.Имя <> "Работы" Тогда СтрПродажи.Количество = СтрокаИсточник.Количество * СтрокаИсточник.Коэффициент; Если СтрокаИсточник.Коэффициент <> 0 И СтрокаИсточник.Количество<>0 Тогда СтрПродажи.Цена = СтрПродажи.Сумма / (СтрокаИсточник.Коэффициент * СтрокаИсточник.Количество); КонецЕсли; КонецЕсли; СтрПродажи.Коэффициент = 1; СтрПродажи.Дата = КонецДня(Источник.Дата); Если СтрПродажи.Склад.Пустая() Тогда Если элТЧ.Имя = "Товары" Тогда СтрПродажи.Склад = Источник.Склад; ИначеЕсли элТЧ.Имя = "Материалы" Тогда СтрПродажи.Склад = Источник.СкладМатериалов; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; // Добавление продаж абонементов Для Каждого СтрокаИсточник Из Источник.Сертификаты Цикл Если (Не СтрокаИсточник.НеОплачиваетсяПолисом И ЗначениеЗаполнено(Источник.Документ)) Тогда СтрПродажи = ТЗПродажи.Добавить(); СтрПродажи.Номенклатура = СтрокаИсточник.Сертификат.ВидСертификата.Номенклатура; СтрПродажи.Количество = 1; СтрПродажи.Коэффициент = 1; СтрПродажи.Цена = СтрокаИсточник.Сумма; СтрПродажи.Сумма = СтрокаИсточник.Сумма; // СтрПродажи.Склад = Источник.Склад; СтрПродажи.Дата = КонецДня(Источник.Дата); КонецЕсли; КонецЦикла; Если ПустаяСтрока(Параметры.Доки) Тогда Параметры.Доки = ЗначениеВСтрокуВнутр(ТЗПродажи); Иначе ТабДоки = ЗначениеИзСтрокиВнутр (Параметры.Доки); Для Каждого СтрокаИсточник Из ТЗПродажи Цикл ЗаполнитьЗначенияСвойств(ТабДоки.Добавить(),СтрокаИсточник); КонецЦикла; Параметры.Доки = ЗначениеВСтрокуВнутр(ТабДоки); КонецЕсли; Отказ = Истина; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>5 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>6 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>350 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>7 <Наименование>--> Контрагент <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Значения/> <Правило> <Код>РеализацияТоваровУслугСводно <Наименование>ДокументСсылка.ОказаниеУслуг --> ДокументСсылка.РеализацияТоваровИУслуг <Порядок>100 <ПослеЗагрузки>ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; МетаданныеДокумента = Объект.Метаданные(); Объект.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); Объект.КурсВзаиморасчетов = 1; Объект.КратностьВзаиморасчетов = 1; Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; ИмяНастройки = "битСуммаВключаетНДС"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СуммаВключаетНДС = ЗначениеНастройки; // Свертка табличных частей ИмяТЧ = "Товары"; Выполнить(Алгоритмы.СверткаТаблицыПоКоличествуИСумме); ИмяТЧ = "Услуги"; Выполнить(Алгоритмы.СверткаТаблицыПоКоличествуИСумме); // Контрагент ИмяНастройки = "битКонтрагентКлиент"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; Если ЗначениеЗаполнено(Объект.Контрагент) Тогда мДоговор = Неопределено; мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем; мОсновнойДоговор = Объект.Контрагент.ОсновнойДоговорКонтрагента; Если Не мОсновнойДоговор.Пустая() И мОсновнойДоговор.Организация = Объект.Организация И мОсновнойДоговор.ВидДоговора = мВидДоговора Тогда Объект.ДоговорКонтрагента = мОсновнойДоговор; Иначе Выполнить(Алгоритмы.ПоискДоговора); Если Не ЗначениеЗаполнено(мДоговор) Тогда Выполнить(Алгоритмы.ДобавлениеДоговора); КонецЕсли; Объект.ДоговорКонтрагента = мДоговор; КонецЕсли; КонецЕсли; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; // Табличные части Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Для Каждого Строка из Объект.Товары Цикл // НДС Строка.СтавкаНДС = Строка.Номенклатура.СтавкаНДС; ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(Строка, Объект.СуммаВключаетНДС);//, Объект); Если Строка.Количество <> 0 Тогда Строка.Цена = Строка.Сумма / Строка.Количество; КонецЕсли; КонецЦикла; Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Услуги"); Для Каждого Строка из Объект.Услуги Цикл // НДС Строка.СтавкаНДС = Строка.Номенклатура.СтавкаНДС; ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(Строка, Объект.СуммаВключаетНДС); Если Строка.Количество <> 0 Тогда Строка.Цена = Строка.Сумма / Строка.Количество; КонецЕсли; КонецЦикла; СуммаДокумента = Объект.Товары.Итог("Сумма") + Объект.Услуги.Итог("Сумма"); Объект.Записать(); <НеЗапоминатьВыгруженные>true <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство Отключить="true"> <Код>3 <Наименование>Ответственный --> Ответственный <Порядок>150 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство Отключить="true"> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>7 <Наименование> --> Товары <Порядок>500 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>8 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Коэффициент --> Коэффициент <Порядок>100 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование>Номенклатура --> Номенклатура <Порядок>150 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>11 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>12 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование> --> Комментарий <Порядок>550 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + ". Реализация."; <Группа> <Код>14 <Наименование> --> Услуги <Порядок>600 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>15 <Наименование>Номенклатура --> Номенклатура <Порядок>50 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>16 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>Цена --> Цена <Порядок>150 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>18 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство Поиск="true"> <Код>19 <Наименование>--> Контрагент <Порядок>650 <Источник Имя="" Вид=""/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Значения/> <Правило> <Код>ТребованиеНакладная <Наименование>ДокументСсылка.ОказаниеУслуг --> ДокументСсылка.ТребованиеНакладная <Порядок>150 <ПередВыгрузкой>// Документ не выгруажется, если нет материалов, списанных без продажи клиенту Отказ = Истина; Если Источник.Проведен Тогда Для Каждого Строка из Источник.Материалы Цикл Если Строка.Сумма = 0 Тогда Если (ЗначениеЗаполнено(Источник.Документ) И Строка.НеОплачиваетсяПолисом) ИЛИ НЕ ЗначениеЗаполнено(Источник.Документ) Тогда Отказ = Ложь; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; <ПослеВыгрузки> ТЗСписание = Новый ТаблицаЗначений(); ТЗСписание.Колонки.Добавить("Номенклатура"); ТЗСписание.Колонки.Добавить("Количество"); ТЗСписание.Колонки.Добавить("Коэффициент"); // Реквизиты, которые пойдут в шапку ТЗСписание.Колонки.Добавить("Дата"); ТЗСписание.Колонки.Добавить("Ответственный"); ТЗСписание.Колонки.Добавить("Склад"); Для Каждого СтрокаИсточник Из Источник.Материалы Цикл Если СтрокаИсточник.Сумма = 0 Тогда Если (ЗначениеЗаполнено(Источник.Документ) И СтрокаИсточник.НеОплачиваетсяПолисом) ИЛИ НЕ ЗначениеЗаполнено(Источник.Документ) Тогда СтрСписание = ТЗСписание.Добавить(); ЗаполнитьЗначенияСвойств(СтрСписание, СтрокаИсточник); СтрСписание.Количество = СтрокаИсточник.Количество * СтрокаИсточник.Коэффициент; СтрСписание.Коэффициент = 1; СтрСписание.Дата = КонецДня(Источник.Дата); Если СтрСписание.Склад.Пустая() Тогда СтрСписание.Склад = Источник.СкладМатериалов; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Если ПустаяСтрока(Параметры.Доки) Тогда Параметры.Доки = ЗначениеВСтрокуВнутр(ТЗСписание); Иначе ТабДоки = ЗначениеИзСтрокиВнутр (Параметры.Доки); Для Каждого СтрокаИсточник Из ТЗСписание Цикл ЗаполнитьЗначенияСвойств(ТабДоки.Добавить(),СтрокаИсточник); КонецЦикла; Параметры.Доки = ЗначениеВСтрокуВнутр(ТабДоки); КонецЕсли; Отказ = Истина; <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.ТребованиеНакладная <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true"> <Код>2 <Наименование>Ответственный --> Ответственный <Порядок>150 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство Поиск="true"> <Код>3 <Наименование>СкладМатериалов --> Склад <Порядок>300 <Источник Имя="СкладМатериалов" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>4 <Наименование>Материалы --> Материалы <Порядок>350 <Источник Имя="Материалы" Вид="ТабличнаяЧасть"/> <Приемник Имя="Материалы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>5 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ЕдиницаИзмерения.ЕдиницаПоКлассификатору; <Свойство> <Код>6 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество * ОбъектКоллекции.Коэффициент; <Свойство> <Код>7 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Значения/> <Правило> <Код>ТребованиеНакладнаяСводно <Наименование>ДокументСсылка.ОказаниеУслуг --> ДокументСсылка.ТребованиеНакладная <Порядок>200 <ПослеЗагрузки>//Объект.ОтражатьВНалоговомУчете = Истина; //СтруктураНастроек = ВосстановитьЗначение("битСтруктураНастроекЗагрузкиДанных"); ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОрганизация",Объект.Организация); ИмяНастройки = "битСчетУчетаСписанияМатериалов"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СчетЗатрат = ЗначениеНастройки; //СтруктураНастроек.Свойство("битСчетУчетаСписанияМатериалов",Объект.СчетЗатрат); //Объект.СчетЗатратНУ = БухгалтерскийУчет.ПреобразоватьСчетаБУвСчетНУ(Новый Структура("СчетБУ", Объект.СчетЗатрат), "НУ", Ложь, Объект.Дата); // Свертка табличных частей ИмяТЧ = "Материалы"; Выполнить(Алгоритмы.СверткаТаблицыПоКоличествуИСумме); // Подстановка статьи затрат в шапку Если ЗначениеЗаполнено(Объект.СчетЗатрат) Тогда // БУ ВидыСубконто = Объект.СчетЗатрат.ВидыСубконто; Для сч = 0 по ВидыСубконто.Количество()-1 Цикл Если ВидыСубконто[сч].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда ИмяНастройки = "битСтатьяЗатратСписанияМатериаловНаРаботы"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект["Субконто"+Строка(сч+1)] = ЗначениеНастройки; //СтруктураНастроек.Свойство("битСтатьяЗатратСписанияМатериаловНаРаботы",Объект["Субконто"+Строка(сч+1)]); Прервать; КонецЕсли; КонецЦикла; // НУ //ВидыСубконто = Объект.СчетЗатратНУ.ВидыСубконто; //Для сч = 0 по ВидыСубконто.Количество()-1 Цикл // Если ВидыСубконто[сч].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда // СтруктураНастроек.Свойство("битСтатьяЗатратСписанияМатериаловНаРаботы",Объект["СубконтоНУ"+Строка(сч+1)]); // Прервать; // КонецЕсли; //КонецЦикла; КонецЕсли; Для Каждого Строка из Объект.Материалы Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Строка.Номенклатура, Объект.Склад); Строка.Счет = СчетаУчета.СчетУчета; // Строка.СчетНУ = СчетаУчета.СчетУчетаНУ; // Строка.Склад = Объект.Склад; КонецЦикла; //try // Объект.Записать(РежимЗаписиДокумента.Проведение); //except // Сообщить("Невозможно провести документ "+Объект.Ссылка); //endtry; Объект.Записать(); <НеЗапоминатьВыгруженные>true <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.ТребованиеНакладная <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true"> <Код>2 <Наименование>Ответственный --> Ответственный <Порядок>150 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство Поиск="true"> <Код>3 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>4 <Наименование> --> Материалы <Порядок>350 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Материалы" Вид="ТабличнаяЧасть"/> <Свойство> <Код>5 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>6 <Наименование>Коэффициент --> Коэффициент <Порядок>100 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Номенклатура --> Номенклатура <Порядок>150 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство Поиск="true"> <Код>8 <Наименование> --> Комментарий <Порядок>400 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + ". Списание материалов на работы."; <Значения/> <Правило> <Код>РозничнаяВыручкаНаличные <Наименование>Розничная наличная выручка <Порядок>250 <ПередВыгрузкой>Отказ = Не (Источник.Проведен И (Источник.ПолученоНаличными - Источник.Сдача)>0); <ПослеВыгрузки>ТЗОплата = Новый ТаблицаЗначений(); // Реквизиты, которые пойдут в шапку ТЗОплата.Колонки.Добавить("Сумма"); ТЗОплата.Колонки.Добавить("Дата"); ТЗОплата.Колонки.Добавить("Ответственный"); СтрОплата = ТЗОплата.Добавить(); СтрОплата.Дата = КонецДня(Источник.Дата); Если НЕ Источник.СдачуВДепозит Тогда СтрОплата.Сумма = Источник.ПолученоНаличными - Источник.Сдача; Иначе СтрОплата.Сумма = Источник.ПолученоНаличными; Конецесли; Если Источник.ВидОперации = Перечисления.ВидыОперацийОказанияУслуг.ВозвратКлиенту Тогда СтрОплата.Сумма = -СтрОплата.Сумма; КонецЕсли; Если ПустаяСтрока(Параметры.Доки) Тогда Параметры.Доки = ЗначениеВСтрокуВнутр(ТЗОплата); Иначе ТабДоки = ЗначениеИзСтрокиВнутр (Параметры.Доки); Для Каждого СтрокаИсточник Из ТЗОплата Цикл ЗаполнитьЗначенияСвойств(ТабДоки.Добавить(),СтрокаИсточник); КонецЦикла; Параметры.Доки = ЗначениеВСтрокуВнутр(ТабДоки); КонецЕсли; Отказ = Истина; <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Отключить="true" Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true"> <Код>2 <Наименование>Ответственный --> Ответственный <Порядок>250 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство Отключить="true"> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>300 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>4 <Наименование>Проведен --> Проведен <Порядок>350 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>СтатьяДвиженияДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>400 <Источник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Значения/> <Правило> <Код>РозничнаяВыручкаНаличныеСводно <Наименование> --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>300 <ПослеЗагрузки>//СтруктураНастроек = ВосстановитьЗначение("битСтруктураНастроекЗагрузкиДанных"); Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; //Объект.ОтражатьВНалоговомУчете = Истина; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя; ИмяНастройки = "битКонтрагентКлиент"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; //СтруктураНастроек.Свойство("битКонтрагентКлиент",Объект.Контрагент); // Организация ИмяНастройки = "битОрганизация"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОрганизация",Объект.Организация); мПрименениеУСН = УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата); // НДС и контрагент клиента, если надо. ИмяНастройки = "битКонтрагентКлиент"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; //СтруктураНастроек.Свойство("битКонтрагентКлиент",Объект.Контрагент); Если ЗначениеЗаполнено(Объект.Контрагент) Тогда мДоговор = Неопределено; мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем; мОсновнойДоговор = Объект.Контрагент.ОсновнойДоговорКонтрагента; Если Не мОсновнойДоговор.Пустая() И мОсновнойДоговор.Организация = Объект.Организация И мОсновнойДоговор.ВидДоговора = мВидДоговора Тогда Объект.ДоговорКонтрагента = мОсновнойДоговор; Иначе Выполнить(Алгоритмы.ПоискДоговора); Если Не ЗначениеЗаполнено(мДоговор) Тогда Выполнить(Алгоритмы.ДобавлениеДоговора); КонецЕсли; Объект.ДоговорКонтрагента = мДоговор; КонецЕсли; КонецЕсли; Если мПрименениеУСН Тогда Объект.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; Иначе ИмяНастройки = "битОсновнаяСтавкаНДС"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СтавкаНДС = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); КонецЕсли; Если Объект.РасшифровкаПлатежа.Количество()=0 Тогда СтрокаПлатеж = Объект.РасшифровкаПлатежа.Добавить() Иначе СтрокаПлатеж = Объект.РасшифровкаПлатежа[0]; КонецЕсли; СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СтрокаПлатеж.ДоговорКонтрагента = Объект.ДоговорКонтрагента; СтрокаПлатеж.СуммаПлатежа = Объект.СуммаДокумента; СтрокаПлатеж.КурсВзаиморасчетов = 1; СтрокаПлатеж.КратностьВзаиморасчетов = 1; СтрокаПлатеж.СуммаВзаиморасчетов = Объект.СуммаДокумента; СтрокаПлатеж.СтавкаНДС = Объект.СтавкаНДС; СтрокаПлатеж.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; ЗначениеСтавкиНДС = УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтрокаПлатеж.СтавкаНДС); СтрокаПлатеж.СуммаНДС = СтрокаПлатеж.СуммаПлатежа * ЗначениеСтавкиНДС / (100 + ЗначениеСтавкиНДС); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Объект.Записать(); <НеЗапоминатьВыгруженные>true <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование> --> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + ". Розничная выручка."; <Свойство> <Код>3 <Наименование>Сумма --> СуммаДокумента <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>РозничнаяВыручкаНаличныеСводноРасход <Наименование> --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>350 <ПослеЗагрузки>Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю; ИмяНастройки = "битКонтрагентКлиент"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; // Организация ИмяНастройки = "битОрганизация"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; мПрименениеУСН = УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата); // НДС и контрагент клиента, если надо. ИмяНастройки = "битКонтрагентКлиент"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; Если ЗначениеЗаполнено(Объект.Контрагент) Тогда мДоговор = Неопределено; мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем; мОсновнойДоговор = Объект.Контрагент.ОсновнойДоговорКонтрагента; Если Не мОсновнойДоговор.Пустая() И мОсновнойДоговор.Организация = Объект.Организация И мОсновнойДоговор.ВидДоговора = мВидДоговора Тогда Объект.ДоговорКонтрагента = мОсновнойДоговор; Иначе Выполнить(Алгоритмы.ПоискДоговора); Если Не ЗначениеЗаполнено(мДоговор) Тогда Выполнить(Алгоритмы.ДобавлениеДоговора); КонецЕсли; Объект.ДоговорКонтрагента = мДоговор; КонецЕсли; КонецЕсли; Если мПрименениеУСН Тогда Объект.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; Иначе ИмяНастройки = "битОсновнаяСтавкаНДС"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СтавкаНДС = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); КонецЕсли; Если Объект.РасшифровкаПлатежа.Количество()=0 Тогда СтрокаПлатеж = Объект.РасшифровкаПлатежа.Добавить() Иначе СтрокаПлатеж = Объект.РасшифровкаПлатежа[0]; КонецЕсли; СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СтрокаПлатеж.ДоговорКонтрагента = Объект.ДоговорКонтрагента; СтрокаПлатеж.СуммаПлатежа = Объект.СуммаДокумента; СтрокаПлатеж.КурсВзаиморасчетов = 1; СтрокаПлатеж.КратностьВзаиморасчетов = 1; СтрокаПлатеж.СуммаВзаиморасчетов = Объект.СуммаДокумента; СтрокаПлатеж.СтавкаНДС = Объект.СтавкаНДС; СтрокаПлатеж.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; ЗначениеСтавкиНДС = УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтрокаПлатеж.СтавкаНДС); СтрокаПлатеж.СуммаНДС = СтрокаПлатеж.СуммаПлатежа * ЗначениеСтавкиНДС / (100 + ЗначениеСтавкиНДС); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Объект.Записать(); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>4 <Наименование>--> Комментарий <Порядок>200 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + ". Розничная выручка."; <Свойство> <Код>12 <Наименование>Сумма --> СуммаДокумента <Порядок>600 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВозвратТоваровОтПокупателя <Наименование>ДокументСсылка.ОказаниеУслуг --> ДокументСсылка.РеализацияТоваровИУслуг <Порядок>400 <ПередВыгрузкой>// Документ не выгружается, если ничего не продали по нему Отказ = Истина; Если Источник.Проведен И Источник.ВидОперации = Перечисления.ВидыОперацийОказанияУслуг.ВозвратКлиенту Тогда БезПолиса = Не ЗначениеЗаполнено(Источник.Документ); Если Отказ Тогда Для Каждого Строка из Источник.Материалы Цикл Если Строка.Сумма > 0 Тогда Если БезПолиса Или Строка.НеОплачиваетсяПолисом Тогда Отказ = Ложь; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; Если Отказ Тогда Для Каждого Строка из Источник.Товары Цикл Если Строка.Сумма > 0 Тогда Если БезПолиса Или Строка.НеОплачиваетсяПолисом Тогда Отказ = Ложь; Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЕсли; <ПослеВыгрузки>ТЗПродажи = Новый ТаблицаЗначений(); ТЗПродажи.Колонки.Добавить("Номенклатура"); ТЗПродажи.Колонки.Добавить("Количество"); ТЗПродажи.Колонки.Добавить("Коэффициент"); ТЗПродажи.Колонки.Добавить("Цена"); ТЗПродажи.Колонки.Добавить("Сумма"); // Реквизиты, которые пойдут в шапку ТЗПродажи.Колонки.Добавить("Дата"); ТЗПродажи.Колонки.Добавить("Ответственный"); ТЗПродажи.Колонки.Добавить("Склад", Новый ОписаниеТипов("СправочникСсылка.Склады")); // Формирование таблицы проданной номенклатуры мсТЧ = Новый Массив; мсТЧ.Добавить(Новый Структура("Имя,ТЧ","Материалы" ,Источник.Материалы)); мсТЧ.Добавить(Новый Структура("Имя,ТЧ","Товары" ,Источник.Товары)); БезПолиса = Не ЗначениеЗаполнено(Источник.Документ); Для Каждого элТЧ из мсТЧ Цикл Для Каждого СтрокаИсточник Из элТЧ.ТЧ Цикл Если СтрокаИсточник.Сумма > 0 И (БезПолиса Или СтрокаИсточник.НеОплачиваетсяПолисом) Тогда СтрПродажи = ТЗПродажи.Добавить(); ЗаполнитьЗначенияСвойств(СтрПродажи, СтрокаИсточник); СтрПродажи.Количество = СтрокаИсточник.Количество * СтрокаИсточник.Коэффициент; Если СтрокаИсточник.Коэффициент <> 0 И СтрокаИсточник.Количество<>0 Тогда СтрПродажи.Цена = СтрПродажи.Сумма / (СтрокаИсточник.Коэффициент * СтрокаИсточник.Количество); КонецЕсли; СтрПродажи.Коэффициент = 1; СтрПродажи.Дата = КонецДня(Источник.Дата); Если СтрПродажи.Склад.Пустая() Тогда Если элТЧ.Имя = "Товары" Тогда СтрПродажи.Склад = Источник.Склад; ИначеЕсли элТЧ.Имя = "Материалы" Тогда СтрПродажи.Склад = Источник.СкладМатериалов; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; // Добавление продаж абонементов Для Каждого СтрокаИсточник Из Источник.Сертификаты Цикл Если СтрокаИсточник.Сумма > 0 И (БезПолиса Или СтрокаИсточник.НеОплачиваетсяПолисом) Тогда СтрПродажи = ТЗПродажи.Добавить(); СтрПродажи.Номенклатура = СтрокаИсточник.Сертификат.ВидСертификата.Номенклатура; СтрПродажи.Количество = 1; СтрПродажи.Коэффициент = 1; СтрПродажи.Цена = СтрокаИсточник.Сумма; СтрПродажи.Сумма = СтрокаИсточник.Сумма; СтрПродажи.Дата = КонецДня(Источник.Дата); КонецЕсли; КонецЦикла; Если ПустаяСтрока(Параметры.Доки) Тогда Параметры.Доки = ЗначениеВСтрокуВнутр(ТЗПродажи); Иначе ТабДоки = ЗначениеИзСтрокиВнутр (Параметры.Доки); Для Каждого СтрокаИсточник Из ТЗПродажи Цикл ЗаполнитьЗначенияСвойств(ТабДоки.Добавить(),СтрокаИсточник); КонецЦикла; Параметры.Доки = ЗначениеВСтрокуВнутр(ТабДоки); КонецЕсли; Отказ = Истина; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.ВозвратТоваровОтПокупателя <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>9 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство Поиск="true"> <Код>10 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>500 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ВозвратТоваровОтПокупателяСводно <Наименование>ДокументСсылка.ОказаниеУслуг --> ДокументСсылка.РеализацияТоваровИУслуг <Порядок>450 <ПослеЗагрузки>ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; МетаданныеДокумента = Объект.Метаданные(); Объект.ВидОперации = Перечисления.ВидыОперацийВозвратТоваровОтПокупателя.ПродажаКомиссия; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); Объект.КурсВзаиморасчетов = 1; Объект.КратностьВзаиморасчетов = 1; ИмяНастройки = "битСуммаВключаетНДС"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СуммаВключаетНДС = ЗначениеНастройки; // Свертка табличных частей ИмяТЧ = "Товары"; Выполнить(Алгоритмы.СверткаТаблицыПоКоличествуИСумме); // Контрагент ИмяНастройки = "битКонтрагентКлиент"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; Если ЗначениеЗаполнено(Объект.Контрагент) Тогда мДоговор = Неопределено; мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем; мОсновнойДоговор = Объект.Контрагент.ОсновнойДоговорКонтрагента; Если Не мОсновнойДоговор.Пустая() И мОсновнойДоговор.Организация = Объект.Организация И мОсновнойДоговор.ВидДоговора = мВидДоговора Тогда Объект.ДоговорКонтрагента = мОсновнойДоговор; Иначе Выполнить(Алгоритмы.ПоискДоговора); Если Не ЗначениеЗаполнено(мДоговор) Тогда Выполнить(Алгоритмы.ДобавлениеДоговора); КонецЕсли; Объект.ДоговорКонтрагента = мДоговор; КонецЕсли; КонецЕсли; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; // Табличные части Документы.ВозвратТоваровОтПокупателя.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Для Каждого Строка из Объект.Товары Цикл // НДС Строка.СтавкаНДС = Строка.Номенклатура.СтавкаНДС; ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(Строка, Объект.СуммаВключаетНДС); Если Строка.Количество <> 0 Тогда Строка.Цена = Строка.Сумма / Строка.Количество; КонецЕсли; КонецЦикла; СуммаДокумента = Объект.Товары.Итог("Сумма"); Объект.Записать(); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОказаниеУслуг <Приемник>ДокументСсылка.ВозвратТоваровОтПокупателя <Свойства> <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>--> Комментарий <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + ". Возвраты."; <Свойство Поиск="true"> <Код>9 <Наименование>Склад --> Склад <Порядок>450 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Группа> <Код>11 <Наименование>--> Товары <Порядок>550 <ПолучитьИзВходящихДанных>true <Источник Имя="" Вид=""/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>13 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>14 <Наименование>Сумма --> Сумма <Порядок>150 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Цена --> Цена <Порядок>200 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ИнвентаризацияТоваровНаСкладе <Наименование>ДокументСсылка.ИнвентаризацияТоваров --> ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Порядок>500 <ПередВыгрузкой>Отказ = Источник.ПометкаУдаления; <ПослеЗагрузки>//СтруктураНастроек = ВосстановитьЗначение("битСтруктураНастроекЗагрузкиДанных"); //СтруктураНастроек.Свойство("битОрганизация",Объект.Организация); ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ИнвентаризацияТоваров <Приемник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Ответственный --> Ответственный <Порядок>150 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>Склад --> Склад <Порядок>250 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>13 <Наименование>Комментарий --> Комментарий <Порядок>300 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " Инвентаризация №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'") + " " + Источник.Комментарий; <Группа> <Код>6 <Наименование>Товары --> Товары <Порядок>350 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>11 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество * ОбъектКоллекции.Коэффициент; <Свойство> <Код>10 <Наименование>КоличествоУчет --> КоличествоУчет <Порядок>150 <Источник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="КоличествоУчет" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.КоличествоУчет * ОбъектКоллекции.Коэффициент; <Свойство> <Код>9 <Наименование>Номенклатура --> Номенклатура <Порядок>250 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>7 <Наименование>Сумма --> Сумма <Порядок>300 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>8 <Наименование>СуммаУчет --> СуммаУчет <Порядок>350 <Источник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаУчет" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.Количество = 0 Тогда Значение = ОбъектКоллекции.СуммаУчет; Иначе Значение = ОбъектКоллекции.КоличествоУчет * ОбъектКоллекции.Сумма / ОбъектКоллекции.Количество; КонецЕсли; <Свойство> <Код>12 <Наименование>Цена --> Цена <Порядок>400 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.Количество = 0 Тогда Значение = ОбъектКоллекции.Цена; Иначе Значение = ОбъектКоллекции.Сумма / ОбъектКоллекции.Количество; Если ОбъектКоллекции.Коэффициент <> 0 Тогда Значение = Значение / ОбъектКоллекции.Коэффициент; КонецЕсли; КонецЕсли; <Значения/> <Правило> <Код>ОприходованиеТоваров <Наименование>ДокументСсылка.ОприходованиеТоваров --> ДокументСсылка.ОприходованиеТоваров <Порядок>550 <ПослеЗагрузки>//СтруктураНастроек = ВосстановитьЗначение("битСтруктураНастроекЗагрузкиДанных"); ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОрганизация",Объект.Организация); ИмяНастройки = "битСтатьяДоходовДокументовОприходованияТоваров"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СтатьяПрочихДоходовРасходов = ЗначениеНастройки; //СтруктураНастроек.Свойство("битСтатьяДоходовДокументовОприходованияТоваров",Объект.СтатьяПрочихДоходовРасходов); //Объект.ОтражатьВНалоговомУчете = Истина; Для Каждого Строка из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Строка.Номенклатура, Объект.Склад); Строка.СчетУчета = СчетаУчета.СчетУчета; //Строка.СчетУчетаНУ = СчетаУчета.СчетУчетаНУ; КонецЦикла; Объект.Записать(); <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ОприходованиеТоваров <Приемник>ДокументСсылка.ОприходованиеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true" Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Ответственный --> Ответственный <Порядок>150 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>350 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " Оприходование товаров №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'") + " " + Источник.Комментарий; <Группа> <Код>8 <Наименование>Товары --> Товары <Порядок>450 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>13 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ЕдиницаИзмерения.ЕдиницаПоКлассификатору; <Свойство> <Код>14 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество * ОбъектКоллекции.Коэффициент; <Свойство> <Код>12 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>10 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.Количество = 0 Тогда Значение = ОбъектКоллекции.Цена; Иначе Значение = ОбъектКоллекции.Сумма / ОбъектКоллекции.Количество; Если ОбъектКоллекции.Коэффициент <> 0 Тогда Значение = Значение / ОбъектКоллекции.Коэффициент; КонецЕсли; КонецЕсли; <Значения/> <Правило> <Код>СписаниеТоваров <Наименование>ДокументСсылка.СписаниеТоваров --> ДокументСсылка.СписаниеТоваров <Порядок>600 <ПередВыгрузкой>Отказ = Не (Источник.Проведен и не Источник.ПометкаУдаления); <ПослеЗагрузки>ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; Для Каждого Строка из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Строка.Номенклатура, Объект.Склад); Строка.СчетУчета = СчетаУчета.СчетУчета; КонецЦикла; Объект.Записать(); //try // Объект.Записать(РежимЗаписиДокумента.Проведение); //except // Сообщить("Невозможно провести документ "+Объект.Ссылка); //endtry; <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.СписаниеТоваров <Приемник>ДокументСсылка.СписаниеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true" Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Ответственный --> Ответственный <Порядок>150 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>Склад --> Склад <Порядок>300 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>12 <Наименование>Комментарий --> Комментарий <Порядок>350 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " Списание товаров №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'") + " " + Источник.Комментарий; <Группа> <Код>7 <Наименование>Товары --> Товары <Порядок>400 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>8 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ЕдиницаИзмерения.ЕдиницаПоКлассификатору; <Свойство> <Код>9 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество * ОбъектКоллекции.Коэффициент; <Свойство> <Код>10 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Значения/> <Правило> <Код>ПеремещениеТоваров <Наименование>ДокументСсылка.ПеремещениеМатериалов --> ДокументСсылка.ПеремещениеТоваров <Порядок>650 <ПередВыгрузкой>Отказ = Не Источник.Проведен; <ПослеЗагрузки>ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; Для Каждого Строка из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Строка.Номенклатура, Объект.СкладОтправитель); Строка.СчетУчета = СчетаУчета.СчетУчета; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Строка.Номенклатура, Объект.СкладПолучатель); Строка.НовыйСчетУчета = СчетаУчета.СчетУчета; КонецЦикла; Объект.Записать(); <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ПеремещениеМатериалов <Приемник>ДокументСсылка.ПеремещениеТоваров <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство Отключить="true" Поиск="true"> <Код>2 <Наименование>Номер --> Номер <Порядок>100 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Ответственный --> Ответственный <Порядок>150 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>5 <Наименование>Проведен --> Проведен <Порядок>250 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>6 <Наименование>СкладОтправитель --> СкладОтправитель <Порядок>300 <Источник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладОтправитель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>7 <Наименование>СкладПолучатель --> СкладПолучатель <Порядок>350 <Источник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="СкладПолучатель" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>13 <Наименование>Комментарий --> Комментарий <Порядок>400 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " Перемещение товаров №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'") + " " + Источник.Комментарий; <Группа> <Код>8 <Наименование>Товары --> Товары <Порядок>450 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>12 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ЕдиницаИзмерения.ЕдиницаПоКлассификатору; <Свойство> <Код>11 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество * ОбъектКоллекции.Коэффициент; <Свойство> <Код>10 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Значения/> <Правило> <Код>ПоступлениеТоваровУслуг <Наименование>ДокументСсылка.ПоступлениеТоваровУслуг --> ДокументСсылка.ПоступлениеТоваровУслуг <Порядок>700 <ПередВыгрузкой>Отказ = Не Источник.Проведен; <ПослеЗагрузки>Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); Объект.КурсВзаиморасчетов = 1; Объект.КратностьВзаиморасчетов = 1; Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; ИмяНастройки = "битСуммаВключаетНДС"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СуммаВключаетНДС = ЗначениеНастройки; ИмяНастройки = "битОрганизация"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; // Договор контрагента мДоговор = Неопределено; мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком; мОсновнойДоговор = Объект.Контрагент.ОсновнойДоговорКонтрагента; Если Не мОсновнойДоговор.Пустая() И мОсновнойДоговор.Организация = Объект.Организация И мОсновнойДоговор.ВидДоговора = мВидДоговора Тогда Объект.ДоговорКонтрагента = мОсновнойДоговор; Иначе Выполнить(Алгоритмы.ПоискДоговора); Если Не ЗначениеЗаполнено(мДоговор) Тогда Выполнить(Алгоритмы.ДобавлениеДоговора); КонецЕсли; Объект.ДоговорКонтрагента = мДоговор; КонецЕсли; Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Услуги"); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Для Каждого Строка из Объект.Товары Цикл // НДС Строка.СтавкаНДС = Строка.Номенклатура.СтавкаНДС; ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(Строка, Объект.СуммаВключаетНДС); КонецЦикла; Для Каждого Строка из Объект.Услуги Цикл // НДС Строка.СтавкаНДС = Строка.Номенклатура.СтавкаНДС; ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(Строка, Объект.СуммаВключаетНДС); КонецЦикла; СчетаРасчетов = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); try Объект.СчетУчетаРасчетовСКонтрагентом = СчетаРасчетов.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансам = СчетаРасчетов.СчетАвансов; except; endtry; Объект.Записать(); <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ПоступлениеТоваровУслуг <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>Контрагент --> Контрагент <Порядок>100 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Отключить="true" Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>150 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Ответственный --> Ответственный <Порядок>200 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Отключить="true"> <Код>6 <Наименование>Проведен --> Проведен <Порядок>300 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>7 <Наименование>Склад --> Склад <Порядок>350 <Источник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Склад" Вид="Реквизит" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство> <Код>8 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>400 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>16 <Наименование>Комментарий --> Комментарий <Порядок>450 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " Поступление №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'") + " " + Источник.Комментарий; <Группа> <Код>9 <Наименование>Товары --> Товары <Порядок>500 <Источник Имя="Товары" Вид="ТабличнаяЧасть"/> <Приемник Имя="Товары" Вид="ТабличнаяЧасть"/> <Свойство> <Код>14 <Наименование>ЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>50 <Источник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.ЕдиницыИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.ЕдиницаИзмерения.ЕдиницаПоКлассификатору; <Свойство> <Код>13 <Наименование>Количество --> Количество <Порядок>100 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Значение = ОбъектКоллекции.Количество * ОбъектКоллекции.Коэффициент; <Свойство> <Код>12 <Наименование>Коэффициент --> Коэффициент <Порядок>150 <Источник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Коэффициент" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>11 <Наименование>Номенклатура --> Номенклатура <Порядок>200 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>10 <Наименование>Сумма --> Сумма <Порядок>250 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>15 <Наименование>Цена --> Цена <Порядок>300 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <ПередВыгрузкой>Если ОбъектКоллекции.Количество = 0 Тогда Значение = ОбъектКоллекции.Цена; Иначе Значение = ОбъектКоллекции.Сумма / ОбъектКоллекции.Количество; Если ОбъектКоллекции.Коэффициент <> 0 Тогда Значение = Значение / ОбъектКоллекции.Коэффициент; КонецЕсли; КонецЕсли; <Группа> <Код>17 <Наименование>Услуги --> Услуги <Порядок>550 <Источник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>18 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>19 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>20 <Наименование>Содержание --> Содержание <Порядок>150 <Источник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Содержание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>21 <Наименование>Сумма --> Сумма <Порядок>200 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>22 <Наименование>Цена --> Цена <Порядок>250 <Источник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Цена" Вид="Реквизит" Тип="Число"/> <Значения/> <Правило> <Код>ПриходныйКассовыйОрдер <Наименование>ДокументСсылка.ПриходныйКассовыйОрдер --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>750 <ПередВыгрузкой>Отказ = НЕ Источник.Проведен; <ПослеЗагрузки>//СтруктураНастроек = ВосстановитьЗначение("битСтруктураНастроекЗагрузкиДанных"); Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; //Объект.ОтражатьВНалоговомУчете = Истина; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); // Организация ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОрганизация",Объект.Организация); мПрименениеУСН = УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата); ИмяНастройки = "битОсновнаяСтавкаНДС"; Выполнить(Алгоритмы.ПолучитьНастройку); ОсновнаяСтавкаНДС = ЗначениеНастройки; // НДС и контрагент клиента, если надо. Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя Тогда Если Не ЗначениеЗаполнено(Объект.Контрагент) Тогда ИмяНастройки = "битКонтрагентКлиент"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; //СтруктураНастроек.Свойство("битКонтрагентКлиент",Объект.Контрагент); Если мПрименениеУСН Тогда Объект.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; Иначе Объект.СтавкаНДС = ОсновнаяСтавкаНДС; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); КонецЕсли; Иначе Объект.СтавкаНДС = ОсновнаяСтавкаНДС; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); КонецЕсли; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПоставщика Тогда Объект.СтавкаНДС = ОсновнаяСтавкаНДС; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); Иначе Объект.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; КонецЕсли; Если ТипЗнч(Объект.Контрагент) = Тип("СправочникСсылка.Контрагенты") И Не ЗначениеЗаполнено(Объект.ДоговорКонтрагента) и ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.ДоговорКонтрагента = Объект.Контрагент.ОсновнойДоговорКонтрагента; Если Объект.ДоговорКонтрагента.Пустая() Тогда мДоговор = Неопределено; Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПоставщика Тогда мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком; Иначе мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.Спокупателем; КонецЕсли; Выполнить(Алгоритмы.ПоискДоговора); Если Не ЗначениеЗаполнено(мДоговор) Тогда Выполнить(Алгоритмы.ДобавлениеДоговора); КонецЕсли; Объект.ДоговорКонтрагента = мДоговор; КонецЕсли; КонецЕсли; // Подстановка счета учета прочего прихода Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПрочийПриход И Не ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) Тогда ИмяНастройки = "битСчетУчетаПрочегоПриходаПКО"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СчетУчетаРасчетовСКонтрагентом = ЗначениеНастройки; //СтруктураНастроек.Свойство("битСчетУчетаПрочегоПриходаПКО",Объект.СчетУчетаРасчетовСКонтрагентом); Конецесли; Если Объект.РасшифровкаПлатежа.Количество()=0 Тогда СтрокаПлатеж = Объект.РасшифровкаПлатежа.Добавить() Иначе СтрокаПлатеж = Объект.РасшифровкаПлатежа[0]; КонецЕсли; СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СтрокаПлатеж.ДоговорКонтрагента = Объект.ДоговорКонтрагента; СтрокаПлатеж.СуммаПлатежа = Объект.СуммаДокумента; СтрокаПлатеж.КурсВзаиморасчетов = 1; СтрокаПлатеж.КратностьВзаиморасчетов = 1; СтрокаПлатеж.СуммаВзаиморасчетов = Объект.СуммаДокумента; СтрокаПлатеж.СтавкаНДС = Объект.СтавкаНДС; СтрокаПлатеж.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; ЗначениеСтавкиНДС = УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтрокаПлатеж.СтавкаНДС); СтрокаПлатеж.СуммаНДС = СтрокаПлатеж.СуммаПлатежа * ЗначениеСтавкиНДС / (100 + ЗначениеСтавкиНДС); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПоставщика тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; Объект.Записать(); //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ПриходныйКассовыйОрдер <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Свойства> <Свойство> <Код>1 <Наименование>ВидОперации --> ВидОперации <Порядок>50 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <КодПравилаКонвертации>ВидыОперацийПКО <Свойство Поиск="true"> <Код>2 <Наименование>Дата --> Дата <Порядок>100 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>3 <Наименование>ДокументОснование --> ДокументОснование <Порядок>150 <Источник Имя="ДокументОснование" Вид="Реквизит"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>4 <Наименование>Комментарий --> Комментарий <Порядок>200 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " ПКО №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'") + " " + Источник.Комментарий; <Свойство Отключить="true" Поиск="true"> <Код>5 <Наименование>Номер --> Номер <Порядок>250 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>6 <Наименование>НомерЧекаККМ --> НомерЧекаККМ <Порядок>300 <Источник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>7 <Наименование>Основание --> Основание <Порядок>350 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>8 <Наименование>Ответственный --> Ответственный <Порядок>400 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>9 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>450 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>10 <Наименование>Приложение --> Приложение <Порядок>500 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>11 <Наименование>ПринятоОт --> ПринятоОт <Порядок>550 <Источник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПринятоОт" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>12 <Наименование>Проведен --> Проведен <Порядок>600 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>650 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>14 <Наименование>ВидОперации --> ВидОперации <Порядок>700 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийПКО"/> <КодПравилаКонвертации>ВидыОперацийПКО <Свойство> <Код>15 <Наименование>Клиент --> Контрагент <Порядок>750 <Источник Имя="Клиент" Вид="Реквизит"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <ПриВыгрузке>Если ТипЗнч(Значение) <> Тип("СправочникСсылка.Контрагенты") Тогда Значение = Справочники.Контрагенты.ПустаяССылка(); КонецЕсли <Свойство> <Код>16 <Наименование>СтатьяДвиженияДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>850 <Источник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Значения/> <Правило> <Код>РасходныйКассовыйОрдер <Наименование>ДокументСсылка.ПриходныйКассовыйОрдер --> ДокументСсылка.ПриходныйКассовыйОрдер <Порядок>800 <ПередВыгрузкой>Отказ = НЕ Источник.Проведен; Если Источник.ВидОперации = Перечисления.ВидыОперацийРКО.ПеремещениеВКассу Тогда Отказ = Истина; КонецЕсли; <ПослеЗагрузки>//СтруктураНастроек = ВосстановитьЗначение("битСтруктураНастроекЗагрузкиДанных"); Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; //Объект.ОтражатьВНалоговомУчете = Истина; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); // Организация ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОрганизация",Объект.Организация); мПрименениеУСН = УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата); // НДС контрагент, , если надо. мЕстьКонтрагент = (Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ОплатаПоставщику ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю); ИмяНастройки = "битОсновнаяСтавкаНДС"; Выполнить(Алгоритмы.ПолучитьНастройку); ОсновнаяСтавкаНДС = ЗначениеНастройки; Если мЕстьКонтрагент Тогда Если Не ЗначениеЗаполнено(Объект.Контрагент) Тогда ИмяНастройки = "битКонтрагентКлиент"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Контрагент = ЗначениеНастройки; //СтруктураНастроек.Свойство("битКонтрагентКлиент",Объект.Контрагент); Если мПрименениеУСН Тогда Объект.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; Иначе Объект.СтавкаНДС = ОсновнаяСтавкаНДС; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); КонецЕсли; Иначе Объект.СтавкаНДС = ОсновнаяСтавкаНДС; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); КонецЕсли; Иначе Объект.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС; КонецЕсли; Если мЕстьКонтрагент И Не ЗначениеЗаполнено(Объект.ДоговорКонтрагента) И ЗначениеЗаполнено(Объект.Контрагент) Тогда Объект.ДоговорКонтрагента = Объект.Контрагент.ОсновнойДоговорКонтрагента; Если Объект.ДоговорКонтрагента.Пустая() Тогда мДоговор = Неопределено; Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю Тогда мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем; Иначе мВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком; КонецЕсли; Выполнить(Алгоритмы.ПоискДоговора); Если Не ЗначениеЗаполнено(мДоговор) Тогда Выполнить(Алгоритмы.ДобавлениеДоговора); КонецЕсли; Объект.ДоговорКонтрагента = мДоговор; КонецЕсли; КонецЕсли; // Подстановка счета учета прочего расхода Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ПрочийРасход И Не ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) Тогда ИмяНастройки = "битСчетУчетаПрочегоПриходаРКО"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СчетУчетаРасчетовСКонтрагентом = ЗначениеНастройки; //СтруктураНастроек.Свойство("битСчетУчетаПрочегоПриходаРКО",Объект.СчетУчетаРасчетовСКонтрагентом); Конецесли; Если Объект.РасшифровкаПлатежа.Количество()=0 Тогда СтрокаПлатеж = Объект.РасшифровкаПлатежа.Добавить(); Иначе СтрокаПлатеж = Объект.РасшифровкаПлатежа[0]; КонецЕсли; СтрокаПлатеж.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически; СтрокаПлатеж.ДоговорКонтрагента = Объект.ДоговорКонтрагента; СтрокаПлатеж.СуммаПлатежа = Объект.СуммаДокумента; СтрокаПлатеж.КурсВзаиморасчетов = 1; СтрокаПлатеж.КратностьВзаиморасчетов = 1; СтрокаПлатеж.СуммаВзаиморасчетов = Объект.СуммаДокумента; СтрокаПлатеж.СтавкаНДС = Объект.СтавкаНДС; СтрокаПлатеж.СтатьяДвиженияДенежныхСредств = Объект.СтатьяДвиженияДенежныхСредств; ЗначениеСтавкиНДС = УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтрокаПлатеж.СтавкаНДС); СтрокаПлатеж.СуммаНДС = СтрокаПлатеж.СуммаПлатежа * ЗначениеСтавкиНДС / (100 + ЗначениеСтавкиНДС); Если мЕстьКонтрагент Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); // Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; Объект.Записать(); //Объект.Записать(РежимЗаписиДокумента.ОтменаПроведения); <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.РасходныйКассовыйОрдер <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Свойства> <Свойство> <Код>1 <Наименование>ВидОперации --> ВидОперации <Порядок>50 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <КодПравилаКонвертации>ВидыОперацийРКО <Свойство> <Код>2 <Наименование>Выдать --> Выдать <Порядок>100 <Источник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Выдать" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Дата --> Дата <Порядок>150 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>4 <Наименование>ДокументОснование --> ДокументОснование <Порядок>200 <Источник Имя="ДокументОснование" Вид="Реквизит" Тип="ДокументСсылка.ПоступлениеТоваровУслуг"/> <Приемник Имя="ДокументОснование" Вид="Реквизит"/> <Свойство> <Код>5 <Наименование> --> Комментарий <Порядок>250 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " РКО №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'") + " " + Источник.Комментарий; <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>300 <Источник Имя="Контрагент" Вид="Реквизит"/> <Приемник Имя="Контрагент" Вид="Реквизит"/> <Свойство Отключить="true" Поиск="true"> <Код>7 <Наименование>Номер --> Номер <Порядок>350 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>8 <Наименование>НомерЧекаККМ --> НомерЧекаККМ <Порядок>400 <Источник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Приемник Имя="НомерЧекаККМ" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Основание --> Основание <Порядок>450 <Источник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Основание" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>10 <Наименование>Ответственный --> Ответственный <Порядок>500 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>11 <Наименование>ПоДокументу --> ПоДокументу <Порядок>550 <Источник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПоДокументу" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>12 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>600 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>13 <Наименование>Приложение --> Приложение <Порядок>650 <Источник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Приложение" Вид="Реквизит" Тип="Строка"/> <Свойство Отключить="true"> <Код>14 <Наименование>Проведен --> Проведен <Порядок>700 <Источник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Приемник Имя="Проведен" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>15 <Наименование>СтатьяДвиженияДенежныхСредств --> СтатьяДвиженияДенежныхСредств <Порядок>750 <Источник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Приемник Имя="СтатьяДвиженияДенежныхСредств" Вид="Реквизит" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство> <Код>16 <Наименование>СуммаДокумента --> СуммаДокумента <Порядок>800 <Источник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Приемник Имя="СуммаДокумента" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>17 <Наименование>ВидОперации --> ВидОперации <Порядок>850 <Источник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <Приемник Имя="ВидОперации" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыОперацийРКО"/> <КодПравилаКонвертации>ВидыОперацийРКО <Значения/> <Правило> <Код>ЗарплатаКВыплатеОрганизаций <Наименование>Документ: Начисление зарплаты <Порядок>850 <ПередВыгрузкой>Отказ = НЕ Источник.Проведен; <ПослеЗагрузки>// Заполняем организацию ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; // Заполняем месяц начисления Объект.ПериодРегистрации = НачалоМесяца(Объект.ПериодРегистрации); Объект.СуммаДокумента = Объект.Зарплата.Итог("Сумма"); <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.НачислениеЗарплаты <Приемник>ДокументСсылка.ВедомостьНаВыплатуЗарплаты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Дата --> Дата <Порядок>50 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>2 <Наименование>КраткийСоставДокумента --> КраткийСоставДокумента <Порядок>100 <Источник Имя="КраткийСоставДокумента" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="КраткийСоставДокумента" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>3 <Наименование>Номер --> Номер <Порядок>150 <Источник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Номер" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>4 <Наименование>Ответственный --> Ответственный <Порядок>200 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Группа> <Код>6 <Наименование>Начисления --> Зарплата <Порядок>300 <Источник Имя="Начисления" Вид="ТабличнаяЧасть"/> <Приемник Имя="Зарплата" Вид="ТабличнаяЧасть"/> <Свойство Отключить="true"> <Код>7 <Наименование>--> ВыплаченностьЗарплаты <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="ВыплаченностьЗарплаты" Вид="Реквизит" Тип="ПеречислениеСсылка.ВыплаченностьЗарплаты"/> <Свойство Отключить="true"> <Код>8 <Наименование>--> КомпенсацияЗаЗадержкуЗарплаты <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="КомпенсацияЗаЗадержкуЗарплаты" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>10 <Наименование>Результат --> Сумма <Порядок>150 <Источник Имя="Результат" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>9 <Наименование>Сотрудник --> ФизическоеЛицо <Порядок>200 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизическоеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Группа Отключить="true"> <Код>11 <Наименование>Удержания --> Зарплата <Порядок>400 <Источник Имя="Удержания" Вид="ТабличнаяЧасть"/> <Приемник Имя="Зарплата" Вид="ТабличнаяЧасть"/> <ПередОбработкойВыгрузки>НеОчищать = Истина; <Свойство> <Код>12 <Наименование>Сотрудник --> ФизическоеЛицо <Порядок>50 <Источник Имя="Сотрудник" Вид="Реквизит" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="ФизическоеЛицо" Вид="Реквизит" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство> <Код>13 <Наименование>Результат --> Сумма <Порядок>100 <Источник Имя="Результат" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <ПриВыгрузке>Значение = 0 - Значение; <Свойство> <Код>14 <Наименование>НачалоПериода --> ПериодРегистрации <Порядок>450 <Источник Имя="НачалоПериода" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ПериодРегистрации" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>15 <Наименование>--> Комментарий <Порядок>500 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + " Начисление зарплаты №"+СокрЛП(Источник.Номер) + " от " + Формат(Источник.Дата,"ДФ='dd.MM.yy'"); <Значения/> <Правило> <Код>РеестрОказанныхУслуг <Наименование>Документ: Реестр оказанных услуг по соглашениям <Порядок>900 <ПередВыгрузкой>Отказ = Не Источник.Проведен; <ПослеЗагрузки>ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; МетаданныеДокумента = Объект.Метаданные(); //Объект.ОтражатьВНалоговомУчете = Истина; Объект.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия; Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); Объект.КурсВзаиморасчетов = 1; Объект.КратностьВзаиморасчетов = 1; Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; ИмяНастройки = "битСуммаВключаетНДС"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СуммаВключаетНДС = ЗначениеНастройки; ИмяНастройки = "битСуммаВключаетНДС"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СуммаВключаетНДС = ЗначениеНастройки; // Свертка табличных частей ИмяТЧ = "Товары"; Выполнить(Алгоритмы.СверткаТаблицыПоКоличествуИСумме); ИмяТЧ = "Услуги"; Выполнить(Алгоритмы.СверткаТаблицыПоКоличествуИСумме); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; // Табличные части Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Услуги"); Для Каждого Строка из Объект.Товары Цикл // НДС Строка.СтавкаНДС = Строка.Номенклатура.СтавкаНДС; ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(Строка, Объект.СуммаВключаетНДС);//, Объект); Если Строка.Количество <> 0 Тогда Строка.Цена = Строка.Сумма / Строка.Количество; КонецЕсли; КонецЦикла; Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Услуги"); Для Каждого Строка из Объект.Услуги Цикл // НДС Строка.СтавкаНДС = Строка.Номенклатура.СтавкаНДС; ОбработкаТабличныхЧастейКлиентСервер.РассчитатьСуммуНДСТабЧасти(Строка, Объект.СуммаВключаетНДС); Если Строка.Количество <> 0 Тогда Строка.Цена = Строка.Сумма / Строка.Количество; КонецЕсли; КонецЦикла; СуммаДокумента = Объект.Товары.Итог("Сумма") + Объект.Услуги.Итог("Сумма"); Объект.Записать(); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.РеестрОказанныхУслугПоСоглашениям <Приемник>ДокументСсылка.РеализацияТоваровУслуг <Свойства> <Группа> <Код>1 <Наименование>Услуги --> Услуги <Порядок>50 <Источник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Приемник Имя="Услуги" Вид="ТабличнаяЧасть"/> <Свойство> <Код>2 <Наименование>Количество --> Количество <Порядок>50 <Источник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Количество" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>3 <Наименование>Номенклатура --> Номенклатура <Порядок>100 <Источник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Номенклатура" Вид="Реквизит" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство> <Код>4 <Наименование>Сумма --> Сумма <Порядок>150 <Источник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Приемник Имя="Сумма" Вид="Реквизит" Тип="Число"/> <Свойство> <Код>5 <Наименование>--> Комментарий <Порядок>100 <Источник Имя="" Вид=""/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Значение = "Загружен из " + Метаданные.Синоним + ". Реестр оказанных услуг."; <Свойство> <Код>6 <Наименование>Контрагент --> Контрагент <Порядок>150 <Источник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Контрагент" Вид="Реквизит" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Отключить="true"> <Код>7 <Наименование>Ответственный --> Ответственный <Порядок>200 <Источник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Ответственный" Вид="Реквизит" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство Поиск="true"> <Код>8 <Наименование>Дата --> Дата <Порядок>250 <Источник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Приемник Имя="Дата" Вид="Свойство" Тип="Дата"/> <Свойство> <Код>9 <Наименование>Соглашение --> ДоговорКонтрагента <Порядок>300 <Источник Имя="Соглашение" Вид="Реквизит" Тип="СправочникСсылка.СоглашенияСтрахования"/> <Приемник Имя="ДоговорКонтрагента" Вид="Реквизит" Тип="СправочникСсылка.ДоговорыКонтрагентов"/> <КодПравилаКонвертации>ДоговорыКонтрагентов <Значения/> <Группа> <Код>Справочники <Наименование>Справочники <Порядок>100 <Правило> <Код>Пользователи <Наименование>СправочникСсылка.Пользователи --> СправочникСсылка.Пользователи <Порядок>50 <НеЗамещать>true <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>СправочникСсылка.Пользователи <Приемник>СправочникСсылка.Пользователи <Свойства> <Свойство Отключить="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Отключить="true"> <Код>3 <Наименование>Родитель --> Родитель <Порядок>150 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Пользователи"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Пользователи"/> <КодПравилаКонвертации>Пользователи <Свойство Отключить="true" Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>200 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Склады <Наименование>СправочникСсылка.Склады --> СправочникСсылка.Склады <Порядок>100 <ПослеЗагрузки>ТипСклада = Перечисления.ТипыСкладов.ОптовыйСклад; <ПоследовательностьПолейПоиска>Если НомерВариантаПоиска = 1 Тогда Соответствие = СокрЛП(Параметры.Склады); Если ЗначениеЗаполнено(Соответствие) И (Соответствие <> "Не сопоставлять") Тогда Запрос = Новый Запрос; Если Соответствие = "Внешний код" Тогда Соответствие = "Код"; КонецЕсли; Запрос.УстановитьПараметр("ПолеПоиска", СвойстваПоиска.Получить(Соответствие)); Запрос.Текст = " | ВЫБРАТЬ | Склады.Ссылка | ИЗ | Справочник.Склады КАК Склады | ГДЕ | Склады." + Соответствие + " = &ПолеПоиска"; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда СсылкаНаОбъект = Выборка.Ссылка; ПрекратитьПоиск = Истина; ОбъектНайден = Истина; Иначе СсылкаНаОбъект = Неопределено; КонецЕсли; Иначе ПрекратитьПоиск = Истина; КонецЕсли; КонецЕсли; <НеЗамещать>true <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если НЕ ПустаяСтрока(Источник.ВнешнийКод) Тогда Если (Параметры.Склады = "Внешний код") Тогда Значение = СокрЛП(Источник.ВнешнийКод); Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Родитель --> Родитель <Порядок>150 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Склады"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Склады"/> <КодПравилаКонвертации>Склады <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>200 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Номенклатура <Наименование>СправочникСсылка.Номенклатура --> СправочникСсылка.Номенклатура <Порядок>150 <ПослеЗагрузки>ИмяНастройки = "битГруппаНовойНоменклатуры"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Если Не ЗначениеЗаполнено(Объект.Родитель) Тогда Объект.Родитель = ЗначениеНастройки; КонецЕсли; Если Не Объект.ЭтоГруппа Тогда Если Не ЗначениеЗаполнено(Объект.СтавкаНДС) Тогда ИмяНастройки = "битОсновнаяСтавкаНДС"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.СтавкаНДС = ЗначениеНастройки; //СтруктураНастроек.Свойство("битОсновнаяСтавкаНДС",Объект.СтавкаНДС); КонецЕсли; Если Объект.ЭтоНовый() Тогда ИмяНастройки = "битНоменклатурнаяГруппаНовойНоменклатуры"; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.НоменклатурнаяГруппа = ЗначениеНастройки; //СтруктураНастроек.Свойство("битНоменклатурнаяГруппаНовойНоменклатуры",Объект.НоменклатурнаяГруппа); КонецЕсли; КонецЕсли; <ПоследовательностьПолейПоиска>Если НомерВариантаПоиска = 1 Тогда Если СвойстваПоиска.Получить("ЭтоГруппа") Тогда Соответствие = СокрЛП(Параметры.НоменклатураГруппы); Иначе Соответствие = СокрЛП(Параметры.Номенклатура); КонецЕсли; Если ЗначениеЗаполнено(Соответствие) И (Соответствие <> "Не сопоставлять") Тогда Запрос = Новый Запрос; Если Соответствие = "Внешний код" Тогда Соответствие = "Код"; КонецЕсли; Запрос.УстановитьПараметр("ПолеПоиска", СвойстваПоиска.Получить(Соответствие)); Запрос.Текст = " | ВЫБРАТЬ | Номенклатура.Ссылка | ИЗ | Справочник.Номенклатура КАК Номенклатура | ГДЕ | Номенклатура." + Соответствие + " = &ПолеПоиска"; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда СсылкаНаОбъект = Выборка.Ссылка; ПрекратитьПоиск = Истина; ОбъектНайден = Истина; Иначе СсылкаНаОбъект = Неопределено; КонецЕсли; Иначе ПрекратитьПоиск = Истина; КонецЕсли; КонецЕсли; <НеЗамещать>true <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.Номенклатура <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если НЕ ПустаяСтрока(Источник.ВнешнийКод) Тогда Если (Источник.ЭтоГруппа И Параметры.НоменклатураГруппы = "Внешний код") ИЛИ (НЕ Источник.ЭтоГруппа И Параметры.Номенклатура = "Внешний код") Тогда Значение = СокрЛП(Источник.ВнешнийКод); Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Родитель --> Родитель <Порядок>150 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Номенклатура"/> <КодПравилаКонвертации>Номенклатура <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>200 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>ВидНоменклатуры --> Услуга <Порядок>250 <Источник Имя="ВидНоменклатуры" Вид="Реквизит" Тип="ПеречислениеСсылка.ВидыНоменклатуры"/> <Приемник Имя="Услуга" Вид="Реквизит" Тип="Булево"/> <ПередВыгрузкой>Значение = (Источник.ВидНоменклатуры <> Перечисления.ВидыНоменклатуры.Материал); <Свойство> <Код>6 <Наименование>БазоваяЕдиницаИзмерения --> ЕдиницаИзмерения <Порядок>300 <Источник Имя="БазоваяЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <Приемник Имя="ЕдиницаИзмерения" Вид="Реквизит" Тип="СправочникСсылка.КлассификаторЕдиницИзмерения"/> <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство Поиск="true"> <Код>8 <Наименование>Артикул --> Артикул <Порядок>450 <Источник Имя="Артикул" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Артикул" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>9 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>500 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Значения/> <Правило> <Код>Контрагенты <Наименование>СправочникСсылка.Контрагенты --> СправочникСсылка.Контрагенты <Порядок>200 <ПослеЗагрузки>//СтруктураНастроек = ВосстановитьЗначение("битСтруктураНастроекЗагрузкиДанных"); ИмяНастройки = "битГруппаНовыхКонтрагентов"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Родитель = ЗначениеНастройки; //СтруктураНастроек.Свойство("битГруппаНовыхКонтрагентов",Объект.Родитель); Если (Объект.ЭтоГруппа = ЛОЖЬ) Тогда Объект.ГоловнойКонтрагент = Объект.Ссылка; КонецЕсли; <ПоследовательностьПолейПоиска>Если НомерВариантаПоиска = 1 Тогда Если СвойстваПоиска.Получить("ЭтоГруппа") Тогда Соответствие = СокрЛП(Параметры.КонтрагентыГруппы); Иначе Соответствие = СокрЛП(Параметры.Контрагенты); КонецЕсли; Если ЗначениеЗаполнено(Соответствие) Тогда Если Соответствие <> "Не сопоставлять" Тогда Запрос = Новый Запрос; Если Соответствие = "Внешний код" Тогда Соответствие = "Код"; КонецЕсли; Запрос.УстановитьПараметр("ПолеПоиска", СвойстваПоиска.Получить(Соответствие)); Запрос.Текст = " | ВЫБРАТЬ | Контрагенты.Ссылка | ИЗ | Справочник.Контрагенты КАК Контрагенты | ГДЕ | Контрагенты." + Соответствие + " = &ПолеПоиска"; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда СсылкаНаОбъект = Выборка.Ссылка; ПрекратитьПоиск = Истина; ОбъектНайден = Истина; Иначе СсылкаНаОбъект = Неопределено; КонецЕсли; Иначе ПрекратитьПоиск = Истина; КонецЕсли; КонецЕсли; КонецЕсли; <НеЗамещать>true <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Контрагенты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой> Если НЕ ПустаяСтрока(Источник.ВнешнийКод) Тогда Если (Источник.ЭтоГруппа И Параметры.КонтрагентыГруппы = "Внешний код") ИЛИ (НЕ Источник.ЭтоГруппа И Параметры.Контрагенты = "Внешний код") Тогда Значение = СокрЛП(Источник.ВнешнийКод); Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; ДлинаКода = 9; Пока СтрДлина(Значение) < ДлинаКода Цикл Значение = "0" + Значение; КонецЦикла; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>Родитель --> Родитель <Порядок>150 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true" Обязательное="true"> <Код>4 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>200 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>5 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>250 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>6 <Наименование>ИНН --> ИНН <Порядок>300 <Источник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ИНН" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>7 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>350 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>КлассификаторЕдиницИзмерения <Наименование>СправочникСсылка.КлассификаторЕдиницИзмерения --> СправочникСсылка.КлассификаторЕдиницИзмерения <Порядок>300 <СинхронизироватьПоИдентификатору>true <Источник>СправочникСсылка.КлассификаторЕдиницИзмерения <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Свойства> <Свойство> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>150 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>200 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>СтатьиДвиженияДенежныхСредств <Наименование>СправочникСсылка.СтатьиДвиженияДенежныхСредств --> СправочникСсылка.СтатьиДвиженияДенежныхСредств <Порядок>350 <ПоследовательностьПолейПоиска>Если НомерВариантаПоиска = 1 Тогда Соответствие = СокрЛП(Параметры.СтатьиДвиженияДенежныхСредств); Если ЗначениеЗаполнено(Соответствие) И (Соответствие <> "Не сопоставлять") Тогда Запрос = Новый Запрос; Если Соответствие = "Внешний код" Тогда Соответствие = "Код"; КонецЕсли; Запрос.УстановитьПараметр("ПолеПоиска", СвойстваПоиска.Получить(Соответствие)); Запрос.Текст = " | ВЫБРАТЬ | СтатьиДвиженияДенежныхСредств.Ссылка | ИЗ | Справочник.СтатьиДвиженияДенежныхСредств КАК СтатьиДвиженияДенежныхСредств | ГДЕ | СтатьиДвиженияДенежныхСредств." + Соответствие + " = &ПолеПоиска"; Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда СсылкаНаОбъект = Выборка.Ссылка; ПрекратитьПоиск = Истина; ОбъектНайден = Истина; Иначе СсылкаНаОбъект = Неопределено; КонецЕсли; Иначе ПрекратитьПоиск = Истина; КонецЕсли; КонецЕсли; <НеЗамещать>true <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование> --> Код <Порядок>50 <Источник Имя="" Вид=""/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если НЕ ПустаяСтрока(Источник.ВнешнийКод) Тогда Если (Параметры.СтатьиДвиженияДенежныхСредств = "Внешний код") Тогда Значение = СокрЛП(Источник.ВнешнийКод); Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; Иначе Значение = СокрЛП(Источник.Код); КонецЕсли; <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>150 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>4 <Наименование>Родитель --> Родитель <Порядок>200 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.СтатьиДвиженияДенежныхСредств"/> <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <Свойство Поиск="true" Обязательное="true"> <Код>5 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>250 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>Валюты <Наименование>СправочникСсылка.Валюты --> СправочникСсылка.Валюты <Порядок>400 <СинхронизироватьПоИдентификатору>true <Источник>СправочникСсылка.Валюты <Приемник>СправочникСсылка.Валюты <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство> <Код>3 <Наименование>НаименованиеПолное --> НаименованиеПолное <Порядок>150 <Источник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="НаименованиеПолное" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>4 <Наименование>ПараметрыПрописиНаРусском --> ПараметрыПрописиНаРусском <Порядок>200 <Источник Имя="ПараметрыПрописиНаРусском" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="ПараметрыПрописиНаРусском" Вид="Реквизит" Тип="Строка"/> <Свойство> <Код>5 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>250 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ФизическиеЛица <Наименование>Справочник: Сотрудники <Порядок>450 <ПослеЗагрузки>Если НЕ Объект.ЭтоГруппа Тогда Объект.Записать(); МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Объект.Наименование, " "); КоличествоПодстрок = МассивПодстрок.Количество(); Фамилия = ?(КоличествоПодстрок > 0, МассивПодстрок[0], ""); Имя = ?(КоличествоПодстрок > 1, МассивПодстрок[1], ""); Отчество= ?(КоличествоПодстрок > 2, МассивПодстрок[2], ""); Запрос = Новый Запрос; ТекстЗапроса = " ВЫБРАТЬ | ФИОФизическихЛиц.ФизическоеЛицо | ИЗ | РегистрСведений.ФИОФизическихЛиц КАК ФИОФизическихЛиц | ГДЕ | ФИОФизическихЛиц.ФизическоеЛицо = &ФизЛицо"; Запрос.Текст = ТекстЗапроса; Запрос.УстановитьПараметр("ФизЛицо", Объект.Ссылка); Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Количество() = 0 Тогда НаборЗаписей = РегистрыСведений.ФИОФизическихЛиц.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.ФизическоеЛицо.Установить(Объект.Ссылка); НаборЗаписей.Прочитать(); НоваяЗапись = НаборЗаписей.Добавить(); НоваяЗапись.Фамилия = Фамилия; НоваяЗапись.Имя = Имя; НоваяЗапись.Отчество = Отчество; НоваяЗапись.ФизическоеЛицо = Объект.Ссылка; НоваяЗапись.Период = '19000101'; НаборЗаписей.Записать(); КонецЕсли; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Сотрудники <Приемник>СправочникСсылка.ФизическиеЛица <Свойства> <Свойство Отключить="true" Поиск="true"> <Код>2 <Наименование>Код --> Код <Порядок>50 <Источник Имя="Код" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Код" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>8 <Наименование>ЭтоГруппа --> ЭтоГруппа <Порядок>100 <Источник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Свойство> <Код>1 <Наименование>ДатаРождения --> ДатаРождения <Порядок>150 <Источник Имя="ДатаРождения" Вид="Реквизит" Тип="Дата"/> <Приемник Имя="ДатаРождения" Вид="Реквизит" Тип="Дата"/> <Свойство> <Код>7 <Наименование>Родитель --> Родитель <Порядок>200 <Источник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.Сотрудники"/> <Приемник Имя="Родитель" Вид="Свойство" Тип="СправочникСсылка.ФизическиеЛица"/> <КодПравилаКонвертации>ФизическиеЛица <Свойство Отключить="true"> <Код>3 <Наименование>Комментарий --> Комментарий <Порядок>250 <Источник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Приемник Имя="Комментарий" Вид="Реквизит" Тип="Строка"/> <Свойство Поиск="true"> <Код>4 <Наименование> --> Наименование <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <ПередВыгрузкой>Если НЕ Источник.ЭтоГруппа Тогда Значение = СокрЛП(Источник.Фамилия) + " " + СокрЛП(Источник.Имя) + " " + СокрЛП(Источник.Отчество); КонецЕсли; <Свойство Поиск="true"> <Код>9 <Наименование>--> ФИО <Порядок>300 <Источник Имя="" Вид=""/> <Приемник Имя="ФИО" Вид="Реквизит" Тип="Строка"/> <ПередВыгрузкой>Если НЕ Источник.ЭтоГруппа Тогда Значение = СокрЛП(Источник.Фамилия) + " " + СокрЛП(Источник.Имя) + " " + СокрЛП(Источник.Отчество); КонецЕсли; <Свойство> <Код>5 <Наименование>Пол --> Пол <Порядок>350 <Источник Имя="Пол" Вид="Реквизит" Тип="ПеречислениеСсылка.ПолФизическихЛиц"/> <Приемник Имя="Пол" Вид="Реквизит" Тип="ПеречислениеСсылка.ПолФизическогоЛица"/> <КодПравилаКонвертации>ПолФизическихЛиц <Свойство> <Код>6 <Наименование>ПометкаУдаления --> ПометкаУдаления <Порядок>400 <Источник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Приемник Имя="ПометкаУдаления" Вид="Свойство" Тип="Булево"/> <Значения/> <Правило> <Код>ДоговорыКонтрагентов <Наименование>Справочник: Соглашения страхования <Порядок>500 <ПередВыгрузкой>Отказ = Источник.ПометкаУдаления; <ПослеЗагрузки>ИмяНастройки = "битОрганизация"; ЗначениеНастройки = ""; Выполнить(Алгоритмы.ПолучитьНастройку); Объект.Организация = ЗначениеНастройки; Объект.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить(); Объект.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком; <НеЗамещать>true <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <Источник>СправочникСсылка.СоглашенияСтрахования <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Свойства> <Свойство Поиск="true"> <Код>1 <Наименование>Владелец --> Владелец <Порядок>50 <Источник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <Приемник Имя="Владелец" Вид="Свойство" Тип="СправочникСсылка.Контрагенты"/> <КодПравилаКонвертации>Контрагенты <Свойство Поиск="true"> <Код>2 <Наименование>Наименование --> Наименование <Порядок>100 <Источник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Приемник Имя="Наименование" Вид="Свойство" Тип="Строка"/> <Свойство Поиск="true" Обязательное="true"> <Код>3 <Наименование>--> ЭтоГруппа <Порядок>150 <Источник Имя="" Вид=""/> <Приемник Имя="ЭтоГруппа" Вид="Свойство" Тип="Булево"/> <Значения/> <Группа> <Код>Регистры сведений <Наименование>Регистры сведений <Порядок>150 <Группа> <Код>Перечисления <Наименование>Перечисления <Порядок>200 <Правило> <Код>ВидыОперацийПКО <Наименование>ПеречислениеСсылка.ВидыОперацийПКО --> ПеречислениеСсылка.ВидыОперацийПКО <Порядок>100 <Источник>ПеречислениеСсылка.ВидыОперацийПКО <Приемник>ПеречислениеСсылка.ВидыОперацийПКО <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ОплатаОтКлиента --> ОплатаПокупателя <Порядок>50 <Источник>ОплатаОтКлиента <Приемник>ОплатаПокупателя <Значение> <Код>2 <Наименование>ПолучениеДенежныхСредствОтСотрудника --> ВозвратДе <Порядок>100 <Источник>ПолучениеДенежныхСредствОтСотрудника <Приемник>ВозвратОтПодотчетногоЛица <Значение> <Код>3 <Наименование>ПриходДенежныхСредствОтКонтрагента --> ОплатаПокуп <Порядок>150 <Источник>ПриходДенежныхСредствОтКонтрагента <Приемник>ВозвратОтПоставщика <Значение> <Код>4 <Наименование>ПрочееПоступлениеДенежныхСредств --> ПриходДенежны <Порядок>200 <Источник>ПрочееПоступлениеДенежныхСредств <Приемник>ПрочийПриход <Значение> <Код>5 <Наименование>ПолучениеНаличныхВБанке --> ПриходДенежныхСредствП <Порядок>250 <Источник>ПолучениеНаличныхВБанке <Приемник>ПолучениеНаличныхВБанке <Правило> <Код>ВидыОперацийРКО <Наименование>ПеречислениеСсылка.ВидыОперацийРКО --> ПеречислениеСсылка.ВидыОперацийРКО <Порядок>150 <Источник>ПеречислениеСсылка.ВидыОперацийРКО <Приемник>ПеречислениеСсылка.ВидыОперацийРКО <Свойства/> <Значения> <Значение> <Код>1 <Наименование>ВыдачаДенежныхСредствСотруднику --> РасходДенежных <Порядок>50 <Источник>ВыдачаДенежныхСредствСотруднику <Приемник>ВыплатаЗаработнойПлатыРаботнику <Значение> <Код>2 <Наименование>ПрочийРасходДенежныхСредств --> РасходДенежныхСред <Порядок>100 <Источник>ПрочийРасходДенежныхСредств <Приемник>ПрочийРасход <Значение> <Код>3 <Наименование>РасчетыСКлиентами --> ВозвратДенежныхСредствПокупа <Порядок>150 <Источник>РасчетыСКлиентами <Приемник>ВозвратПокупателю <Значение> <Код>4 <Наименование>РасчетыСКонтрагентами --> ОплатаПоставщику <Порядок>200 <Источник>РасчетыСКонтрагентами <Приемник>ОплатаПоставщику <Значение> <Код>5 <Наименование>ПеремещениеВКассу --> <Порядок>250 <Источник>ПеремещениеВКассу <Приемник>ПрочийРасход <Значение> <Код>6 <Наименование>ВзносНаличнымиВБанк --> ВзносНаличнымиВБанк <Порядок>300 <Источник>ВзносНаличнымиВБанк <Приемник>Инкассация <Правило> <Код>ПолФизическихЛиц <Наименование>Перечисление: Пол физических лиц <Порядок>200 <Источник>ПеречислениеСсылка.ПолФизическихЛиц <Приемник>ПеречислениеСсылка.ПолФизическогоЛица <Свойства/> <Значения> <Значение> <Код>1 <Наименование>Женский --> Женский <Порядок>50 <Источник>Женский <Приемник>Женский <Значение> <Код>2 <Наименование>Мужской --> Мужской <Порядок>100 <Источник>Мужской <Приемник>Мужской <Значение> <Код>3 <Наименование>НеУказан --> <Порядок>150 <Источник>НеУказан <ПравилаВыгрузкиДанных> <Группа Отключить="false"> <Код>Документы <Наименование>Документы <Порядок>50 <Правило Отключить="false"> <Код>ПоступлениеТоваровУслуг <Наименование>ПоступлениеТоваровУслуг <Порядок>50 <КодПравилаКонвертации>ПоступлениеТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПоступлениеТоваровУслуг <Правило Отключить="false"> <Код>ИнвентаризацияТоваровНаСкладе <Наименование>ИнвентаризацияТоваров <Порядок>100 <КодПравилаКонвертации>ИнвентаризацияТоваровНаСкладе <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ИнвентаризацияТоваров <Правило Отключить="false"> <Код>ОприходованиеТоваров <Наименование>ОприходованиеТоваров <Порядок>150 <КодПравилаКонвертации>ОприходованиеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОприходованиеТоваров <Правило Отключить="false"> <Код>СписаниеТоваров <Наименование>СписаниеТоваров <Порядок>200 <КодПравилаКонвертации>СписаниеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.СписаниеТоваров <Правило Отключить="false"> <Код>ПеремещениеМатериалов <Наименование>ПеремещениеМатериалов <Порядок>250 <КодПравилаКонвертации>ПеремещениеТоваров <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПеремещениеМатериалов <Правило Отключить="false"> <Код>РеализацияТоваровУслуг <Наименование>Оказание услуг (работы, товары, проданные материалы, абонементы) -> Реализация товаров и услуг <Порядок>300 <КодПравилаКонвертации>РеализацияТоваровУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОказаниеУслуг <ПередОбработкойПравила>Параметры.Доки = ""; <ПослеОбработкиПравила>Если Не ПустаяСтрока(Параметры.Доки) Тогда ТЗСписание = ЗначениеИзСтрокиВнутр (Параметры.Доки); ТЗСписание.Свернуть("Дата, Склад, Номенклатура, Цена, Коэффициент", "Количество, Сумма"); ТабШапки = ТЗСписание.Скопировать(,"Дата, Склад"); ТабШапки.Свернуть("Дата, Склад",""); Отбор = Новый Структура("Дата, Склад"); мсСтрокиТовары = Новый Массив; мсСтрокиУслуги = Новый Массив; Для Каждого СтрШапка Из ТабШапки Цикл ЗаполнитьЗначенияСвойств(Отбор,СтрШапка); мсСтрокиПродажа = ТЗСписание.НайтиСтроки(Отбор); мсСтрокиТовары.Очистить(); мсСтрокиУслуги.Очистить(); Для Каждого СтрокаПродажа Из мсСтрокиПродажа Цикл Если СтрокаПродажа.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда мсСтрокиТовары.Добавить(СтрокаПродажа); Иначе мсСтрокиУслуги.Добавить(СтрокаПродажа); КонецЕсли; КонецЦикла; СтруктураДляВыгрузки = Новый Структура("Товары,Услуги", мсСтрокиТовары, мсСтрокиУслуги); ВыгрузитьПоПравилу(СтрШапка, , СтруктураДляВыгрузки, , "РеализацияТоваровУслугСводно"); КонецЦикла; Конецесли; <Правило Отключить="false"> <Код>ТребованиеНакладная <Наименование>Оказание услуг (списание материалов) -> Требование накладная <Порядок>350 <КодПравилаКонвертации>ТребованиеНакладная <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОказаниеУслуг <ПередОбработкойПравила>Параметры.Доки = ""; <ПослеОбработкиПравила>Если Не ПустаяСтрока(Параметры.Доки) Тогда ТЗСписание = ЗначениеИзСтрокиВнутр (Параметры.Доки); ТЗСписание.Свернуть("Дата, Склад, Номенклатура, Коэффициент", "Количество"); ТабШапки = ТЗСписание.Скопировать(,"Дата, Склад"); ТабШапки.Свернуть("Дата, Склад",""); Отбор = Новый Структура("Дата, Склад"); Для Каждого СтрШапка Из ТабШапки Цикл ЗаполнитьЗначенияСвойств(Отбор,СтрШапка); мсСтрокиСписание = ТЗСписание.НайтиСтроки(Отбор); СтруктураДляВыгрузки = Новый Структура("Материалы", мсСтрокиСписание); ВыгрузитьПоПравилу(СтрШапка, , СтруктураДляВыгрузки, , "ТребованиеНакладнаяСводно"); КонецЦикла; КонецЕсли; <Правило Отключить="false"> <Код>РозничнаяВыручкаНаличные <Наименование>Оказание услуг (розничная выручка - наличные) -> ПКО <Порядок>400 <КодПравилаКонвертации>РозничнаяВыручкаНаличные <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОказаниеУслуг <ПередОбработкойПравила>Параметры.Доки = ""; <ПослеОбработкиПравила>Если Не ПустаяСтрока(Параметры.Доки) Тогда ТабШапки = ЗначениеИзСтрокиВнутр (Параметры.Доки); ТабШапки.Свернуть("Дата", "Сумма"); Для Каждого СтрШапка Из ТабШапки Цикл Если СтрШапка.Сумма > 0 Тогда ВыгрузитьПоПравилу(СтрШапка, , , , "РозничнаяВыручкаНаличныеСводно"); ИначеЕсли СтрШапка.Сумма < 0 Тогда СтрШапка.Сумма = -СтрШапка.Сумма; ВыгрузитьПоПравилу(СтрШапка, , , , "РозничнаяВыручкаНаличныеСводноРасход"); КонецЕсли; КонецЦикла; КонецЕсли; <Правило Отключить="false"> <Код>ВозвратТоваровОтПокупателя <Наименование>Оказание услуг (работы, товары, проданные материалы, абонементы) -> Возврат товаров <Порядок>450 <КодПравилаКонвертации>ВозвратТоваровОтПокупателя <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ОказаниеУслуг <ПередОбработкойПравила>Параметры.Доки = ""; <ПослеОбработкиПравила>Если Не ПустаяСтрока(Параметры.Доки) Тогда ТЗСписание = ЗначениеИзСтрокиВнутр (Параметры.Доки); ТЗСписание.Свернуть("Дата, Склад, Номенклатура, Цена, Коэффициент", "Количество, Сумма"); ТабШапки = ТЗСписание.Скопировать(,"Дата, Склад"); ТабШапки.Свернуть("Дата, Склад",""); Отбор = Новый Структура("Дата, Склад"); мсСтрокиТовары = Новый Массив; Для Каждого СтрШапка Из ТабШапки Цикл ЗаполнитьЗначенияСвойств(Отбор,СтрШапка); мсСтрокиПродажа = ТЗСписание.НайтиСтроки(Отбор); мсСтрокиТовары.Очистить(); Для Каждого СтрокаПродажа Из мсСтрокиПродажа Цикл Если СтрокаПродажа.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда мсСтрокиТовары.Добавить(СтрокаПродажа); КонецЕсли; КонецЦикла; СтруктураДляВыгрузки = Новый Структура("Товары", мсСтрокиТовары); ВыгрузитьПоПравилу(СтрШапка, , СтруктураДляВыгрузки, , "ВозвратТоваровОтПокупателяСводно"); КонецЦикла; Конецесли; <Правило Отключить="false"> <Код>ПриходныйКассовыйОрдер <Наименование>ПриходныйКассовыйОрдер <Порядок>500 <КодПравилаКонвертации>ПриходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.ПриходныйКассовыйОрдер <Правило Отключить="false"> <Код>РасходныйКассовыйОрдер <Наименование>РасходныйКассовыйОрдер <Порядок>550 <КодПравилаКонвертации>РасходныйКассовыйОрдер <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РасходныйКассовыйОрдер <Правило Отключить="false"> <Код>НачислениеЗарплаты <Наименование>НачислениеЗарплаты <Порядок>600 <КодПравилаКонвертации>ЗарплатаКВыплатеОрганизаций <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.НачислениеЗарплаты <Правило Отключить="false"> <Код>РеестрОказанныхУслугПоСоглашениям <Наименование>РеестрОказанныхУслугПоСоглашениям <Порядок>650 <КодПравилаКонвертации>РеестрОказанныхУслуг <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>ДокументСсылка.РеестрОказанныхУслугПоСоглашениям <Группа Отключить="false"> <Код>Справочники <Наименование>Справочники <Порядок>100 <Правило Отключить="true"> <Код>Пользователи <Наименование>Пользователи <Порядок>50 <КодПравилаКонвертации>Пользователи <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Пользователи <Правило Отключить="true"> <Код>Склады <Наименование>Склады <Порядок>100 <КодПравилаКонвертации>Склады <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Склады <Правило Отключить="false"> <Код>Номенклатура <Наименование>Номенклатура <Порядок>150 <КодПравилаКонвертации>Номенклатура <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Номенклатура <Правило Отключить="false"> <Код>Контрагенты <Наименование>Контрагенты <Порядок>200 <КодПравилаКонвертации>Контрагенты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Контрагенты <Правило Отключить="true"> <Код>СтатьиДвиженияДенежныхСредств <Наименование>СтатьиДвиженияДенежныхСредств <Порядок>500 <КодПравилаКонвертации>СтатьиДвиженияДенежныхСредств <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Правило Отключить="false"> <Код>Сотрудники <Наименование>Сотрудники <Порядок>550 <КодПравилаКонвертации>ФизическиеЛица <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Сотрудники <Правило Отключить="false"> <Код>Валюты <Наименование>Валюты <Порядок>600 <КодПравилаКонвертации>Валюты <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.Валюты <Правило Отключить="false"> <Код>КлассификаторЕдиницИзмерения <Наименование>КлассификаторЕдиницИзмерения <Порядок>650 <КодПравилаКонвертации>КлассификаторЕдиницИзмерения <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.КлассификаторЕдиницИзмерения <Правило Отключить="false"> <Код>СоглашенияСтрахования <Наименование>СоглашенияСтрахования <Порядок>700 <КодПравилаКонвертации>ДоговорыКонтрагентов <СпособОтбораДанных>СтандартнаяВыборка <ОбъектВыборки>СправочникСсылка.СоглашенияСтрахования <ПравилаОчисткиДанных/> <Алгоритмы> <Алгоритм Имя="ДобавлениеДоговора" ИспользуетсяПриЗагрузке="true"> <Текст>ОбДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент(); ОбДоговор.Наименование = "Основной договор "+Строка(мВидДоговора); ОбДоговор.ВидДоговора = мВидДоговора; ОбДоговор.Организация = Объект.Организация; ОбДоговор.Владелец = Объект.Контрагент; ОбДоговор.ВалютаВзаиморасчетов = Константы.ВалютаРегламентированногоУчета.Получить(); //ОбДоговор.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом; ОбДоговор.Записать(); мДоговор = ОбДоговор.Ссылка; <Алгоритм Имя="ПоискДоговора" ИспользуетсяПриЗагрузке="true"> <Текст>мДоговор = Неопределено; ВыбДоговоры = Справочники.ДоговорыКонтрагентов.Выбрать(,Объект.Контрагент); Пока ВыбДоговоры.Следующий() Цикл Если ВыбДоговоры.Организация = Объект.Организация и ВыбДоговоры.ВидДоговора = мВидДоговора Тогда мДоговор = ВыбДоговоры.Ссылка; Прервать; КонецЕсли; КонецЦикла; <Алгоритм Имя="ПолучитьНастройку" ИспользуетсяПриЗагрузке="true"> <Текст>бит_Настройки = ХранилищеСистемныхНастроек.Загрузить("УниверсальныйОбменданнымиXML", "Параметры_БИТ"); Если ТипЗнч(бит_Настройки) = Тип("Структура") И бит_Настройки.Свойство(ИмяНастройки) Тогда ЗначениеНастройки = бит_Настройки[ИмяНастройки]; Иначе ЗначениеНастройки = Неопределено; КонецЕсли; <Алгоритм Имя="ПолучитьСтавкуНДС" ИспользуетсяПриЗагрузке="true"> <Текст>Если ПредставлениеНастройки = "18%" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.НДС18; ИначеЕсли ПредставлениеНастройки = "18/118" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.НДС18_118; ИначеЕсли ПредставлениеНастройки = "10%" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.НДС10; ИначеЕсли ПредставлениеНастройки = "10/110" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.НДС10_110; ИначеЕсли ПредставлениеНастройки = "0%" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.НДС0; ИначеЕсли ПредставлениеНастройки = "Без НДС" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.БезНДС; ИначеЕсли ПредставлениеНастройки = "20%" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.НДС20; ИначеЕсли ПредставлениеНастройки = "20/120" Тогда ЗначениеНастройки = Перечисления.СтавкиНДС.НДС20_120; КонецЕсли; <Алгоритм Имя="РасшифроватьНастройку" ИспользуетсяПриЗагрузке="true"> <Текст>Если ЗначениеЗаполнено(ЗначениеНастройки) Тогда ПредставлениеНастройки = ЗначениеНастройки.НастраиваемыйОбъект; Если ТипЗнч(ПредставлениеНастройки) <> Тип("Строка") Тогда ЗначениеНастройки = ПредставлениеНастройки; ИначеЕсли Значениенастройки.ТипНастройки = "" Тогда ЗначениеНастройки = ПланыСчетов.Хозрасчетный.НайтиПоКоду(ПредставлениеНастройки); ИначеЕсли Значениенастройки.ТипНастройки = "Булево" Тогда ЗначениеНастройки = ?(ПредставлениеНастройки = "Да", Истина, Ложь); ИначеЕсли Значениенастройки.ТипНастройки = "СтавкиНДС" Тогда Выполнить(Алгоритмы.ПолучитьСтавкуНДС); КонецЕсли; КонецЕсли; <Алгоритм Имя="СверткаТаблицыПоКоличествуИСумме" ИспользуетсяПриЗагрузке="true"> <Текст>ИмяТЧ = ИмяТЧ; // МетаданныеТЧ = Объект.Метаданные().ТабличныеЧасти[ИмяТЧ]; СтрГруппировки = ""; СтрПоказатели = "Количество"; Если МетаданныеТЧ.Реквизиты.Найти("Сумма")<>Неопределено Тогда СтрПоказатели = СтрПоказатели + ", Сумма"; КонецЕсли; Для Каждого Колонка Из МетаданныеТЧ.Реквизиты Цикл Если Колонка.Имя<>"Количество" и Колонка.Имя<>"Сумма" Тогда СтрГруппировки = СтрГруппировки + ?(ПустаяСтрока(СтрГруппировки),"",",")+ Колонка.Имя; Конецесли; КонецЦикла; Объект[ИмяТЧ].Свернуть(СтрГруппировки,СтрПоказатели); <Запросы/>