Имя: Пароль:
1C
1С v8
Проблема с выгрузкой субконто в бухгалтерские операции
0 vithak
 
27.04.12
20:38
Есть правила конвертации между Альфа–Авто 4.1 и Бухгалтерией 2.0.
В правилах есть выгрузка Корректировок долга в операции. Необходимо формировать проводки Да 91 Кт 60/62 или наоборот.
В табличную часть передаются следующие данные:

КоллекцияОбъектов = Новый ТаблицаЗначений;
КоллекцияОбъектов.Колонки.Добавить("Сумм а");
КоллекцияОбъектов.Колонки.Добавить("Пери од");
КоллекцияОбъектов.Колонки.Добавить("Счет Дт");
КоллекцияОбъектов.Колонки.Добавить("Счет Кт");
КоллекцияОбъектов.Колонки.Добавить("Субк онтоДт");
КоллекцияОбъектов.Колонки.Добавить("Субк онтоКт");
Для каждого строка из Источник.Состав Цикл
СтрокаКоллекции = КоллекцияОбъектов.Добавить();
СтрокаКоллекции.Период = Источник.Дата;
Если строка.ДоговорВзаиморасчетов.ВидДоговора = Перечисления.ВидыДоговоров.Покупка Тогда
СчетРасчетовСКонтрагентом = "РасчетыСПоставщиками";
Иначе
СчетРасчетовСКонтрагентом = "РасчетыСПокупателями";
КонецЕсли;
Если строка.УвеличениеДолга Тогда
СтрокаКоллекции.Сумма = строка.УвеличениеДолга;
СтрокаКоллекции.СчетДт = СчетРасчетовСКонтрагентом;
СтрокаКоллекции.СчетКт = "ПрочиеДоходы";
СубконтоДт = Новый Соответствие;
СубконтоДт.Вставить(Новый Структура("Код","00005"),Источник.Контра гент);
СубконтоДт.Вставить(Новый Структура("Код","00016"),строка.ДоговорВ заиморасчетов);
СубконтоКт = Новый Соответствие;
СубконтоКт.Вставить(Новый Структура("Код","00013"),"00001");//"Кур совыеРазницы");
СубконтоКт.Вставить(Новый Структура("Код","00055"),Источник.Контра гент);
СтрокаКоллекции.СубконтоДт = СубконтоДт;
СтрокаКоллекции.СубконтоКт = СубконтоКт;
Иначе
СтрокаКоллекции.Сумма = строка.УменьшениеДолга;
СтрокаКоллекции.СчетКт = СчетРасчетовСКонтрагентом;
СтрокаКоллекции.СчетДт = "ПрочиеРасходы";
СубконтоКт = Новый Соответствие;
СубконтоКт.Вставить(Новый Структура("Код","00005"),Источник.Контра гент);
СубконтоКт.Вставить(Новый Структура("Код","00016"),строка.ДоговорВ заиморасчетов);
СубконтоДт = Новый Соответствие;
СубконтоДт.Вставить(Новый Структура("Код","00013"),"00001");//"Кур совыеРазницы");
СубконтоДт.Вставить(Новый Структура("Код","00055"),Источник.Контра гент);
СтрокаКоллекции.СубконтоДт = СубконтоДт;
СтрокаКоллекции.СубконтоКт = СубконтоКт;
КонецЕсли;
КонецЦикла;


В СубконтоДТ и СубконтоКт в модуле Перед выгрузкой указано

ИмяПКОВидСубконто = "ВидыСубконтоХозрасчетные";


Сделано ПКО ВидыСубконтоХозрасчетные. В конвертиции свойств в приенике стоит реквизит Код.

Как видно из кода выше, в первом субконто грузится контрагент.
Есть два ПКО со справочником Контрагенты.
1. Контрагенты — Контрагенты
2. Контрагенты — ФизЛица (в Альфа Авто нет отдельного справочника физ. лиц для ведения подотчёта, всё в контрагентах).
Так вот операции выгружаются нормально, но контрагенты конвертируются по второму правилу.
Где указать, чтобы конвертация шла по нужным мне правилам?
1 vithak
 
02.05.12
06:42
подниму тему. неужели никто не знает?