Самописное правило выгружает по нескольку раз документы. Почему?
Не могу понять где смотреть и как найти ошибку.
Выглядит сейчас так:
Модуль выгрузки:
Модуль Загрузки
Выглядит сейчас так:
Дата, время Событие Статус транзакции Транзакция Представление данных
14.01.2014 13:58:24 Данные. Добавление Зафиксирована 14.01.2014 13:58:23 (1933417578) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 13:58:24 Данные. Проведение Зафиксирована 14.01.2014 13:58:23 (1933417578) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 14:28:46 Данные. Изменение Зафиксирована 14.01.2014 14:28:46 (1939773373) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 14:28:46 Данные. Проведение Зафиксирована 14.01.2014 14:28:46 (1939773373) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 14:58:25 Данные. Изменение Зафиксирована 14.01.2014 14:58:25 (1946045856) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 14:58:25 Данные. Проведение Зафиксирована 14.01.2014 14:58:25 (1946045856) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 15:28:55 Данные. Изменение Зафиксирована 14.01.2014 15:28:54 (1952611604) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 15:28:55 Данные. Проведение Зафиксирована 14.01.2014 15:28:54 (1952611604) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 15:58:31 Данные. Изменение Зафиксирована 14.01.2014 15:58:31 (1958895479) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 15:58:31 Данные. Проведение Зафиксирована 14.01.2014 15:58:31 (1958895479) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 16:29:00 Данные. Изменение Зафиксирована 14.01.2014 16:29:00 (1965367130) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 16:29:00 Данные. Проведение Зафиксирована 14.01.2014 16:29:00 (1965367130) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 16:58:37 Данные. Изменение Зафиксирована 14.01.2014 16:58:36 (1971684428) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59
14.01.2014 16:58:37 Данные. Проведение Зафиксирована 14.01.2014 16:58:36 (1971684428) Приходный кассовый ордер РА012040033 от 04.12.2013 23:59:59 ПоказатьМодуль выгрузки:
// Обработчики выгрузки конвертации РусьАвто Альфа5 --> БП_КОРП3.0 {142c9538-6c30-11e2-8682-78acc0c092c2}
//
// Данный модуль содержит экспортные процедуры обработчиков событий конвертации
// и предназначен для отладки правил обмена. После отладки рекомендуется
// скопировать текст модуля в буфер обмена и импортировать его в базу
// "Конвертация данных".
//
// ИСПОЛЬЗУЕМЫЕ СОКРАЩЕНИЯ ИМЕН ПЕРЕМЕННЫХ (АББРЕВИАТУРЫ)
//
// ПКО - правило конвертации объектов
// ПКС - правило конвертации свойств объектов
// ПКГС - правило конвертации группы свойств объектов
// ПВД - правило выгрузки данных
// ПОД - правило очистки данных
X
// ПЕРЕМЕННЫЕ ОБРАБОТКИ
// Данный раздел изменять запрещено.
Перем Параметры;
Перем Алгоритмы;
Перем Запросы;
Перем УзелДляОбмена;
Перем ОбщиеПроцедурыФункции;
X
// ОБРАБОТЧИКИ КОНВЕРТАЦИИ (ГЛОБАЛЬНЫЕ)
// В данном разделе разрешено изменять реализацию процедур.
Процедура Конвертация_ПослеЗагрузкиПравилОбмена() Экспорт
КонецПроцедуры
Процедура Конвертация_ПередВыгрузкойДанных(ФайлОбмена, Отказ) Экспорт
КонецПроцедуры
Процедура Конвертация_ПередПолучениемИзмененныхОбъектов(Получатель, УзелДляФоновогоОбмена) Экспорт
КонецПроцедуры
Процедура Конвертация_ПослеВыгрузкиДанных(ФайлОбмена) Экспорт
КонецПроцедуры
Процедура Конвертация_ПередВыгрузкойОбъекта(ФайлОбмена, Отказ, ИмяПКО, Правило, ВходящиеДанные, ИсходящиеДанные, Объект) Экспорт
Попытка
Отказ = НЕ Объект.РегламентированныйУчет ИЛИ НЕ Объект.Проведен;
Исключение
КонецПопытки;
КонецПроцедуры
Процедура Конвертация_ПослеВыгрузкиОбъекта(ФайлОбмена, Объект, ИмяПКО, ВходящиеДанные, ИсходящиеДанные, УзелСсылки) Экспорт
КонецПроцедуры
Процедура Конвертация_ПередКонвертациейОбъекта(ФайлОбмена, Источник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО, ПКО,
ВыгруженныеОбъекты, Отказ, КлючВыгружаемыхДанных, ЗапоминатьВыгруженные,
НеЗамещатьОбъектПриЗагрузке, ВсеОбъектыВыгружены,ТолькоПолучитьУзелСсылки,
Приемник, РежимЗаписи, РежимПроведения, НеСоздаватьЕслиНеНайден) Экспорт
КонецПроцедуры
Процедура Конвертация_ПередОтправкойИнформацииОбУдалении(Ссылка, Отказ) Экспорт
КонецПроцедуры
X
// АЛГОРИТМЫ
// Данный раздел разрешено изменять.
// Также допустимо размещать процедуры с алгоритмами в любом из разделов выше.
Процедура ОпределительИмяПКО() Экспорт
ДокументОснование = Параметры.ДокументОснование;
Попытка
ДоговорВзаиморасчетов = Параметры.ДоговорВзаиморасчетов;
Исключение
КонецПопытки;
ИмяПКО = "";
СтрокаВыписки = "" ;
Если ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.АвансовыйОтчет") Тогда ИмяПКО = "АвансовыйОтчет";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.АктРазногласий") Тогда ИмяПКО = "АктРазногласий";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.АктСверкиВзаиморасчетов") Тогда ИмяПКО = "АктСверкиВзаиморасчетов";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.Взаимозачет") Тогда ИмяПКО = "Взаимозачет";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ВозвратОтПокупателя") Тогда ИмяПКО = "ВозвратТоваровОтПокупателя";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ВозвратОтПокупателяАвтомобилей") Тогда ИмяПКО = "ВозвратТоваровОтПокупателяАвто";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ВозвратПоставщику") Тогда ИмяПКО = "ВозвратТоваровПоставщику";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ВозвратПоставщикуАвтомобилей") Тогда ИмяПКО = "ВозвратТоваровПоставщикуАвто";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.Инвентаризация") Тогда ИмяПКО = "ИнвентаризацияТоваровНаСкладе";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.Комплектация") Тогда ИмяПКО = "Комплектация";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.КорректировкаДолга") Тогда ИмяПКО = "КорректировкаДолга";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ОтчетКомитенту") Тогда ИмяПКО = "ОтчетКомитентуОПродажах";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ОтчетКомитентуЗаАвтомобили") Тогда ИмяПКО = "ОтчетКомитентуОПродажахАвто";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПеремещениеТоваров") Тогда ИмяПКО = "ПеремещениеТоваров";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПеремещениеАвтомобилей") Тогда ИмяПКО = "ПеремещениеТоваровАвтомобилей";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПересортицаТоваров") Тогда ИмяПКО = "ПересортицаТоваров";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПлатежноеПоручение") Тогда ИмяПКО = "ПлатежноеПоручение";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПоступлениеДопРасходов") Тогда ИмяПКО = "ПоступлениеДопРасходов";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПоступлениеТоваров") Тогда ИмяПКО = "ПоступлениеТоваровУслуг";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПоступлениеАвтомобилей") Тогда ИмяПКО = "ПоступлениеТоваровУслугАвто";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ПриходныйКассовыйОрдер") Тогда ИмяПКО = "ПриходныйКассовыйОрдер";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.Разукомплектация") Тогда ИмяПКО = "Разукомплектация";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.РасходныйКассовыйОрдер") Тогда ИмяПКО = "РасходныйКассовыйОрдер";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.РеализацияТоваров") Тогда ИмяПКО = "РеализацияТоваровУслуг";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.РеализацияАвтомобилей") Тогда ИмяПКО = "РеализацияТоваровУслугАвто";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.ЗаказНаряд") Тогда ИмяПКО = "РеализацияТоваровУслугЗаказНаряд";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.СписаниеТоваров") Тогда ИмяПКО = "СписаниеТоваровТребованиеНакладная";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.СчетФактураВыданный") Тогда ИмяПКО = "СчетФактураВыданный";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.СчетФактураПолученный") Тогда ИмяПКО = "СчетФактураПолученный";
ИначеЕсли ТипЗнч(ДокументОснование) = Тип("ДокументСсылка.Выписка") Тогда
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
| ВыпискаСостав.Ссылка,
| ВыпискаСостав.НомерСтроки,
| ВыпискаСостав.СтатьяДДС,
| ВыпискаСостав.Контрагент,
| ВыпискаСостав.ДоговорВзаиморасчетов,
| ВыпискаСостав.Сделка,
| ВыпискаСостав.СуммаПриход,
| ВыпискаСостав.СуммаРасход,
| ВыпискаСостав.СтавкаНДС,
| ВыпискаСостав.СуммаНДС,
| ВыпискаСостав.АвтоЗакрытиеСделок,
| ВыпискаСостав.КурсВалютыВзаиморасчетов,
| ВыпискаСостав.ПлатежноеПоручениеОснование,
| ВыпискаСостав.НазначениеПлатежа,
| ВыпискаСостав.КоррСчет,
| ВыпискаСостав.ПодразделениеКомпании
| ИЗ
| Документ.Выписка.Состав КАК ВыпискаСостав
| ГДЕ
| ВыпискаСостав.Ссылка = &Ссылка
| И ВыпискаСостав.ДоговорВзаиморасчетов = &ДоговорВзаиморасчетов";
Запрос.Параметры.Вставить("Ссылка", ДокументОснование);
Запрос.Параметры.Вставить("ДоговорВзаиморасчетов", ДоговорВзаиморасчетов);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Если Выборка.Следующий() тогда
СтрокаВыписки = Выборка;
Если Выборка.СуммаПриход > 0 тогда
ИмяПКО = "ПоступлениеНаРасчетныйСчет";
Иначе
ИмяПКО = "СписаниеСРасчетногоСчета";
КонецЕсли;
КонецЕсли;
//ИначеЕсли ТипЗнч(Источник.ДокументОснование) = Тип("ДокументСсылка.ЗаказНаряд") Тогда ИмяПКО = "ТребованиеНакладная";
КонецЕсли;
Параметры.Вставить("ИмяПКО",ИмяПКО);
Параметры.Вставить("СтрокаВыписки",СтрокаВыписки);
КонецПроцедуры
Процедура ПолучитьСчетПоПодразделению() Экспорт
СтатьяДДС = Параметры.СтатьяДДС;
Если СтатьяДДС = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию("Выручка за а/м trade-in") тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
КонецПроцедуры
X
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
// Данный раздел изменять запрещено.
// Устанавливает значение параметра "Загрузка" для свойства объекта "ОбменДанными".
//
// Параметры:
// Объект - объект, для которого устанавливается свойство
// Значение - значение устанавливаемого свойства "Загрузка"
//
Процедура УстановитьОбменДаннымиЗагрузка(Объект, Значение = Истина, Знач ОтправкаНазад = Ложь)
ОбщиеПроцедурыФункции.УстановитьОбменДаннымиЗагрузка(Объект, Значение, ОтправкаНазад);
КонецПроцедуры
// Записывает объект в информационную базу.
//
// Параметры:
// Объект - Записываемый объект.
// Тип - Строка - Тип объекта строкой.
//
Процедура ЗаписатьОбъектВИБ(Объект, Тип, ЗаписатьОбъект = Ложь, Знач ОтправкаНазад = Ложь)
ОбщиеПроцедурыФункции.ЗаписатьОбъектВИБ(Объект, Тип, ЗаписатьОбъект, ОтправкаНазад);
КонецПроцедуры
// Отменяет проведение объекта в информационной базе.
//
// Параметры:
// Объект - Объект для отмены проведения.
// Тип - Строка - Тип объекта строкой.
//
Процедура ОтменитьПроведениеОбъектаВИБ(Объект, Тип, ЗаписатьОбъект = Ложь)
ОбщиеПроцедурыФункции.ОтменитьПроведениеОбъектаВИБ(Объект, Тип, ЗаписатьОбъект);
КонецПроцедуры
// Выгружает регистр по отбору.
//
// Парметры:
// НаборЗаписейДляВыгрузки - Структура или НаборЗаписей - Отбор
//
Процедура ВыгрузитьРегистр(НаборЗаписейДляВыгрузки,
Правило = Неопределено,
ВходящиеДанные = Неопределено,
НеВыгружатьОбъектыПоСсылкам = Ложь,
ИмяПКО = "",
ПравилоВыгрузкиДанных = Неопределено)
ОбщиеПроцедурыФункции.ВыгрузитьРегистр(НаборЗаписейДляВыгрузки, Правило, ВходящиеДанные, НеВыгружатьОбъектыПоСсылкам, ИмяПКО, ПравилоВыгрузкиДанных);
КонецПроцедуры
// Устанавливает пометку удаления.
//
// Параметры:
// Объект - Объект для установки пометки.
// ПометкаУдаления - Булево - Флаг пометки удаления.
// ИмяТипаОбъекта - Строка - Тип объекта строкой.
//
Процедура УстановитьПометкуУдаленияУОбъекта(Объект, ПометкаУдаления, ИмяТипаОбъекта)
ОбщиеПроцедурыФункции.УстановитьПометкуУдаленияУОбъекта(Объект, ПометкаУдаления, ИмяТипаОбъекта);
КонецПроцедуры
// Создает в файле обмена запись об удалении объекта.
//
// Параметры:
// Ссылка - Ссылка на удаляемый объект.
// ТипПриемника - Строка - Содрежит строковое представление типа приемника.
// ТипИсточника - Строка - Содрежит строковое представление типа источника.
//
Процедура ЗаписатьВФайлУдалениеОбъекта(Ссылка, Знач ТипПриемника, Знач ТипИсточника)
ОбщиеПроцедурыФункции.ЗаписатьВФайлУдалениеОбъекта(Ссылка, ТипПриемника, ТипИсточника);
КонецПроцедуры
// Добавляет в xml файл информацию о типах значения
//
// Параметры:
// Приемник - xml-узел объекта приемника
// Тип - Строка - выгружаемый тип
//
Процедура ВыгрузитьИнформациюОТипах(Приемник, Тип) Экспорт
ОбщиеПроцедурыФункции.ВыгрузитьИнформациюОТипах(Приемник, Тип);
КонецПроцедуры
// Регистрирует объект, созданный при выгрузке.
//
// Параметры:
// Ссылка - Ссылка на регистрируемый объект.
//
Процедура ЗарегистрироватьОбъектСозданныйПриВыгрузке(Ссылка)
ОбщиеПроцедурыФункции.ЗарегистрироватьОбъектСозданныйПриВыгрузке(Ссылка);
КонецПроцедуры
// Регистрирует предупреждение в журнале регистрации.
// Если в процессе обмена данными было обращение к этой процедуре, то обмен данными остановлен не будет.
// После завершения обмена статус выполнения обмена в мониторе для пользователя будет иметь значение "Предупреждение", если не было ошибок.
//
// Параметры:
// Предупреждение - Строка. Текст предупреждения, который надо зарегистрировать.
// Информация, предупреждения и ошибки, возникающие в процессе обмена данными регистрируются в журнале регистрации.
//
Процедура ЗарегистрироватьПредупреждение(Предупреждение)
ОбщиеПроцедурыФункции.ЗарегистрироватьПредупреждение(Предупреждение);
КонецПроцедуры
// Служебная. Инициализирует переменные, необходимые для отладки
//
// Параметры:
// Владелец - Обработка КонвертацияОбъектовИнформационныхБаз
//
Процедура ПодключитьОбработкуДляОтладки(Владелец) Экспорт
Параметры = Владелец.Параметры;
ОбщиеПроцедурыФункции = Владелец;
Запросы = Владелец.Запросы;
УзелДляОбмена = Владелец.УзелДляОбмена;
КонецПроцедуры
// Производит выгрузку объекта в соответствии с указанным правилом конвертации
//
// Параметры:
// Источник - произвольный источник данных
// Приемник - xml-узел объекта приемника
// ВходящиеДанные - произвольные вспомогательные данные, передаваемые правилу
// для выполнения конвертации
// ИсходящиеДанные - произвольные вспомогательные данные, передаваемые правилам
// конвертации свойств
// ИмяПКО - имя правила конвертации, согласно которому осуществляется выгрузка
//
// Возвращаемое значение:
// xml-узел ссылки или значение приемника
//
Функция ВыгрузитьПоПравилу(Источник = Неопределено,
Приемник = Неопределено,
ВходящиеДанные = Неопределено,
ИсходящиеДанные = Неопределено,
ИмяПКО = "")
Возврат ОбщиеПроцедурыФункции.ВыгрузитьПоПравилу(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО);
КонецФункции
// Признак того, что это загрузка в информационную базу.
//
// Возвращаемое значение:
// Булево - Признак режима загрузки данных
//
Функция РежимЗагрузкиДанныхВИнформационнуюБазу()
Возврат ОбщиеПроцедурыФункции.РежимЗагрузкиДанныхВИнформационнуюБазу();
КонецФункции
ПоказатьМодуль Загрузки
X
// Обработчики загрузки конвертации РусьАвто Альфа5 --> БП_КОРП3.0 {142c9538-6c30-11e2-8682-78acc0c092c2}
//
// Данный модуль содержит экспортные процедуры обработчиков событий конвертации
// и предназначен для отладки правил обмена. После отладки рекомендуется
// скопировать текст модуля в буфер обмена и импортировать его в базу
// "Конвертация данных".
//
X
// ИСПОЛЬЗУЕМЫЕ СОКРАЩЕНИЯ ИМЕН ПЕРЕМЕННЫХ (АББРЕВИАТУРЫ)
//
// ПКО - правило конвертации объектов
// ПКС - правило конвертации свойств объектов
// ПКГС - правило конвертации группы свойств объектов
// ПВД - правило выгрузки данных
// ПОД - правило очистки данных
X
// ПЕРЕМЕННЫЕ ОБРАБОТКИ
// Данный раздел изменять запрещено.
Перем Параметры;
Перем Алгоритмы;
Перем Запросы;
Перем УзелДляОбмена;
Перем ОбщиеПроцедурыФункции;
X
// ОБРАБОТЧИКИ КОНВЕРТАЦИИ (ГЛОБАЛЬНЫЕ)
// В данном разделе разрешено изменять реализацию процедур.
Процедура Конвертация_ПередЗагрузкойДанных(ФайлОбмена, Отказ) Экспорт
КонецПроцедуры
Процедура Конвертация_ПослеЗагрузкиДанных() Экспорт
КонецПроцедуры
Процедура Конвертация_ПередЗагрузкойОбъекта(ФайлОбмена, Отказ, Нпп, Источник, ИмяПравила, Правило,
ГенерироватьНовыйНомерИлиКодЕслиНеУказан,ТипОбъектаСтрокой, ТипОбъекта,
НеЗамещатьОбъект, РежимЗаписи, РежимПроведения) Экспорт
Если Найти(ТипОбъектаСтрокой,"ПоступлениеДопРасходов")>0 тогда
РежимЗаписи = "Запись";
Иначе
РежимЗаписи = "Проведение";
КонецЕсли;
КонецПроцедуры
Процедура Конвертация_ПослеЗагрузкиОбъекта(ФайлОбмена, Отказ, Ссылка, Объект, ПараметрыОбъекта,
ОбъектМодифицирован, ИмяТипаОбъекта, ОбъектНайден) Экспорт
КонецПроцедуры
Процедура Конвертация_ПриПолученииИнформацииОбУдалении(Объект, Отказ) Экспорт
КонецПроцедуры
Процедура Конвертация_ПослеЗагрузкиПараметров(ФайлОбмена, Отказ, ПричинаОтказа) Экспорт
КонецПроцедуры
Процедура Конвертация_ПослеПолученияИнформацииОбУзлахОбмена(УзелОбменаЗагрузкаДанных) Экспорт
КонецПроцедуры
X
// АЛГОРИТМЫ
// Данный раздел разрешено изменять.
// Также допустимо размещать процедуры с алгоритмами в любом из разделов выше.
Процедура ВозможностьЗамещения() Экспорт
Попытка
ЗаполнениеДокументов.Заполнить(Параметры.Объект, Неопределено);
Исключение КонецПопытки;
Если не ЗначениеЗаполнено(Параметры.ДатаЗапрета) тогда
Запрос = Новый Запрос;
Запрос.Текст = "Выбрать
| ДатыЗапретаИзменения.ДатаЗапрета как ДатаЗапрета
| Из
| РегистрСведений.ДатыЗапретаИзменения КАК ДатыЗапретаИзменения
| Где ДатыЗапретаИзменения.Пользователь.Наименование Есть NULL ";
//| И КОНЕЦПЕРИОДА(ДатыЗапретаИзменения.ДатаЗапрета, День) >= &Дата";
Запрос.УстановитьПараметр("Дата",Параметры.ДатаДокумента);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() тогда
Параметры.ДатаЗапрета = Выборка.ДатаЗапрета;
Иначе
Параметры.ДатаЗапрета = '00020101';
КонецЕсли;
КонецЕсли;
Если Параметры.ДатаДокумента > Параметры.ДатаЗапрета тогда
Параметры.Вставить("НеЗамещать",ЛОЖЬ);
Иначе
Параметры.Вставить("НеЗамещать",ИСТИНА);
КонецЕсли;
КонецПроцедуры
Процедура ПолучитьСчетаУчета() Экспорт
СтатьяДДС = Параметры.СтатьяДДС;
Попытка
ВидДвижения = Параметры.ВидДвижения;
исключение
ВидДвижения = "Приход";
КонецПопытки;
Если СтатьяДДС.Наименование = "Предоставление займов" тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.ПредоставленныеЗаймы);//58.03
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.ПредоставленныеЗаймы);//58.03
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.ПредоставленныеЗаймы);//58.03
ИначеЕсли СтатьяДДС.Наименование = "Услуги по сдаче в аренду земли, зданий, сооружений" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПокупателями);//62,01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным);//62,02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным);//62,02
ИначеЕсли СтатьяДДС.Наименование = "Возврат покупателю за страховку" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
ИначеЕсли СтатьяДДС.Наименование = "Выручка за а/м trade-in" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
ИначеЕсли СтатьяДДС.Наименование = "КАСКО" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "ОСАГО" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Пролонгация" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.04"));//62,04
ИначеЕсли СтатьяДДС.Наименование = "Налоги с заработной платы" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.НДФЛ);//68.01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.НДФЛ);//68.01
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.НДФЛ);//68.01
ИначеЕсли СтатьяДДС.Наименование = "НДС" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.НДС);//68.02
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.НДС);//68.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.НДС);//68.02
ИначеЕсли СтатьяДДС.Наименование = "Налог на прибыль" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСБюджетом);//68.04.1
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСБюджетом);//68.04.1
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСБюджетом);//68.04.1
ИначеЕсли СтатьяДДС.Наименование = "Страхование объектов основных средств" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыПоИмущественномуИЛичномуСтрахованию);//76.01.1
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыПоИмущественномуИЛичномуСтрахованию);//76.01.1
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыПоИмущественномуИЛичномуСтрахованию);//76.01.1
ИначеЕсли СтатьяДДС.Наименование = "Аренда земли, зданий и сооружений" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Доставка ТМЦ" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Интернет" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Проценты по займам" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Прочие коммунальные платежи" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Прочие общехозяйственные расходы" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Расходы по субагентским договорам" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Реклама в интернете" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Реклама наружная" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Ремонт и техническое обслуживание зданий и сооружений" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Ремонт и техническое обслуживание машин, оборудования, транспортных средств" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Сторонняя охрана" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Телефонная связь" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Теплоэнергия, пар и прочая энергия" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Услуги кузовного цеха" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Услуги сторонних организаций" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Утилизация промышленных отходов, вывоз мусора" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Экология" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Электроэнергия" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Мобильная связь" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Стоки" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Себестоимость а/м trade in" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами);//76.09
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами);//76.09
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами);//76.09
ИначеЕсли СтатьяДДС.Наименование = "Расходы по постановке на учет" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
ИначеЕсли СтатьяДДС.Наименование = "Комиссия банка" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
ИначеЕсли СтатьяДДС.Наименование = "Услуги банков" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
ИначеЕсли СтатьяДДС.Наименование = "Бонус от банка" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Инкассация (Приход)" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.ПереводыВПути);//57.01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.ПереводыВПути);//57.01
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.ПереводыВПути);//57.01
ИначеЕсли СтатьяДДС.Наименование = "Поступление кредитов" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.КраткосрочныеКредиты);//66.01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.КраткосрочныеКредиты);//66.01
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.КраткосрочныеКредиты);//66.01
ИначеЕсли СтатьяДДС.Наименование = "Канцтовары" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками);//60.01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);//60.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);//60.02
ИначеЕсли СтатьяДДС.Наименование = "Мебель (не объект ОС)" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками);//60.01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);//60.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);//60.02
ИначеЕсли СтатьяДДС.Наименование = "Переброска собственных средств (Приход)" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетныеСчета);//51
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетныеСчета);//51
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетныеСчета);//51
ИначеЕсли СтатьяДДС.Наименование = "Переброска собственных средств( расход)" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетныеСчета);//51
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетныеСчета);//51
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетныеСчета);//51
ИначеЕсли СтатьяДДС.Наименование = "Погашение кредитов" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.КраткосрочныеКредиты);//66.01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.КраткосрочныеКредиты);//66.01
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.КраткосрочныеКредиты);//66.01
ИначеЕсли СтатьяДДС.Наименование = "Проценты по кредитам и займам" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным);//66.02
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным);//66.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным);//66.02
ИначеЕсли СтатьяДДС.Наименование = "Услуги по управлению" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли СтатьяДДС.Наименование = "Штрафы, пени, неустойки к уплате" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.ПрочиеРасходы);//91.02
ИначеЕсли СтатьяДДС.Наименование = "Водоснабжение (холодная и горячая вода)" Тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);//76.05
ИначеЕсли ВидДвижения = "Приход" тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПокупателями);//62,01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным);//62,02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным);//62,02
ИначеЕсли ВидДвижения = "Расход" тогда
Параметры.Вставить("СчетУчета",ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками);//60,01
Параметры.Вставить("СчетАванса",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);//60,02
Параметры.Вставить("СчетДебет",ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);//60,02
КонецЕсли;
КонецПроцедуры
X
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
// Данный раздел изменять запрещено.
// Устанавливает значение параметра "Загрузка" для свойства объекта "ОбменДанными".
//
// Параметры:
// Объект - объект, для которого устанавливается свойство
// Значение - значение устанавливаемого свойства "Загрузка"
//
Процедура УстановитьОбменДаннымиЗагрузка(Объект, Значение = Истина, Знач ОтправкаНазад = Ложь)
ОбщиеПроцедурыФункции.УстановитьОбменДаннымиЗагрузка(Объект, Значение, ОтправкаНазад);
КонецПроцедуры
// Записывает объект в информационную базу.
//
// Параметры:
// Объект - Записываемый объект.
// Тип - Строка - Тип объекта строкой.
//
Процедура ЗаписатьОбъектВИБ(Объект, Тип, ЗаписатьОбъект = Ложь, Знач ОтправкаНазад = Ложь)
ОбщиеПроцедурыФункции.ЗаписатьОбъектВИБ(Объект, Тип, ЗаписатьОбъект, ОтправкаНазад);
КонецПроцедуры
// Отменяет проведение объекта в информационной базе.
//
// Параметры:
// Объект - Объект для отмены проведения.
// Тип - Строка - Тип объекта строкой.
//
Процедура ОтменитьПроведениеОбъектаВИБ(Объект, Тип, ЗаписатьОбъект = Ложь)
ОбщиеПроцедурыФункции.ОтменитьПроведениеОбъектаВИБ(Объект, Тип, ЗаписатьОбъект);
КонецПроцедуры
// Выгружает регистр по отбору.
//
// Парметры:
// НаборЗаписейДляВыгрузки - Структура или НаборЗаписей - Отбор
//
Процедура ВыгрузитьРегистр(НаборЗаписейДляВыгрузки,
Правило = Неопределено,
ВходящиеДанные = Неопределено,
НеВыгружатьОбъектыПоСсылкам = Ложь,
ИмяПКО = "",
ПравилоВыгрузкиДанных = Неопределено)
ОбщиеПроцедурыФункции.ВыгрузитьРегистр(НаборЗаписейДляВыгрузки, Правило, ВходящиеДанные, НеВыгружатьОбъектыПоСсылкам, ИмяПКО, ПравилоВыгрузкиДанных);
КонецПроцедуры
// Устанавливает пометку удаления.
//
// Параметры:
// Объект - Объект для установки пометки.
// ПометкаУдаления - Булево - Флаг пометки удаления.
// ИмяТипаОбъекта - Строка - Тип объекта строкой.
//
Процедура УстановитьПометкуУдаленияУОбъекта(Объект, ПометкаУдаления, ИмяТипаОбъекта)
ОбщиеПроцедурыФункции.УстановитьПометкуУдаленияУОбъекта(Объект, ПометкаУдаления, ИмяТипаОбъекта);
КонецПроцедуры
// Создает в файле обмена запись об удалении объекта.
//
// Параметры:
// Ссылка - Ссылка на удаляемый объект.
// ТипПриемника - Строка - Содрежит строковое представление типа приемника.
// ТипИсточника - Строка - Содрежит строковое представление типа источника.
//
Процедура ЗаписатьВФайлУдалениеОбъекта(Ссылка, Знач ТипПриемника, Знач ТипИсточника)
ОбщиеПроцедурыФункции.ЗаписатьВФайлУдалениеОбъекта(Ссылка, ТипПриемника, ТипИсточника);
КонецПроцедуры
// Добавляет в xml файл информацию о типах значения
//
// Параметры:
// Приемник - xml-узел объекта приемника
// Тип - Строка - выгружаемый тип
//
Процедура ВыгрузитьИнформациюОТипах(Приемник, Тип) Экспорт
ОбщиеПроцедурыФункции.ВыгрузитьИнформациюОТипах(Приемник, Тип);
КонецПроцедуры
// Регистрирует объект, созданный при выгрузке.
//
// Параметры:
// Ссылка - Ссылка на регистрируемый объект.
//
Процедура ЗарегистрироватьОбъектСозданныйПриВыгрузке(Ссылка)
ОбщиеПроцедурыФункции.ЗарегистрироватьОбъектСозданныйПриВыгрузке(Ссылка);
КонецПроцедуры
// Регистрирует предупреждение в журнале регистрации.
// Если в процессе обмена данными было обращение к этой процедуре, то обмен данными остановлен не будет.
// После завершения обмена статус выполнения обмена в мониторе для пользователя будет иметь значение "Предупреждение", если не было ошибок.
//
// Параметры:
// Предупреждение - Строка. Текст предупреждения, который надо зарегистрировать.
// Информация, предупреждения и ошибки, возникающие в процессе обмена данными регистрируются в журнале регистрации.
//
Процедура ЗарегистрироватьПредупреждение(Предупреждение)
ОбщиеПроцедурыФункции.ЗарегистрироватьПредупреждение(Предупреждение);
КонецПроцедуры
// Служебная. Инициализирует переменные, необходимые для отладки
//
// Параметры:
// Владелец - Обработка КонвертацияОбъектовИнформационныхБаз
//
Процедура ПодключитьОбработкуДляОтладки(Владелец) Экспорт
Параметры = Владелец.Параметры;
ОбщиеПроцедурыФункции = Владелец;
Запросы = Владелец.Запросы;
УзелДляОбмена = Владелец.УзелДляОбмена;
КонецПроцедуры
// Производит выгрузку объекта в соответствии с указанным правилом конвертации
//
// Параметры:
// Источник - произвольный источник данных
// Приемник - xml-узел объекта приемника
// ВходящиеДанные - произвольные вспомогательные данные, передаваемые правилу
// для выполнения конвертации
// ИсходящиеДанные - произвольные вспомогательные данные, передаваемые правилам
// конвертации свойств
// ИмяПКО - имя правила конвертации, согласно которому осуществляется выгрузка
//
// Возвращаемое значение:
// xml-узел ссылки или значение приемника
//
Функция ВыгрузитьПоПравилу(Источник = Неопределено,
Приемник = Неопределено,
ВходящиеДанные = Неопределено,
ИсходящиеДанные = Неопределено,
ИмяПКО = "")
Возврат ОбщиеПроцедурыФункции.ВыгрузитьПоПравилу(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ИмяПКО);
КонецФункции
// Признак того, что это загрузка в информационную базу.
//
// Возвращаемое значение:
// Булево - Признак режима загрузки данных
//
Функция РежимЗагрузкиДанныхВИнформационнуюБазу()
Возврат ОбщиеПроцедурыФункции.РежимЗагрузкиДанныхВИнформационнуюБазу();
КонецФункции
ПоказатьПо теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Сделать выгрузку одного документа и посмотреть файл выгрузки, сколько объектов выгружено. Если выгружено 2 объекта вместо одного, берем отладчик и смотрим почему выгружается 2 объекта, если в файле выгрузки 1 объект, значит берем отладчик и смотрим загрузку из файла, почему создается 2 объекта.
Для одно объекта процедура работы с отладчиком займет не очень продолжительное время, к тому же она очень полезна для понимая работы Конвертации.
Для одно объекта процедура работы с отладчиком займет не очень продолжительное время, к тому же она очень полезна для понимая работы Конвертации.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот