В стандартной бухгалтерии создал 4й субконто. Во всех нужных счетах прописал его. Написал такой алгоритм его заполнения :
Движения = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Движения.Отбор.Регистратор.Установить(Документ);
Движения.Прочитать();
ТаблицаДвижений = Движения.Выгрузить();
Для Каждого Строка Из ТаблицаДвижений Цикл
///////////////////////////////////////Дт///////////////////////////////////////////////////////////
Запрос = Новый Запрос;
Запрос.Текст = "
|Выбрать
|Ссылка Как Счет,
|НомерСтроки Как НомерСубконто,
|ВидСубконто
|Из
|ПланСчетов.Хозрасчетный.ВидыСубконто
|Где
|Ссылка = &Счет И
|ВидСубконто = &ВидСубконто";
Запрос.УстановитьПараметр("Счет",Строка.СчетДт);
Запрос.УстановитьПараметр("ВидСубконто",ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения
БезОбразованияЮрЛица);
Результат = Запрос.Выполнить().Выгрузить();
Если Результат.Количество()>0 Тогда
Если Результат[0].НомерСубконто=1 Тогда
Строка.СубконтоДт1 = ОбособленноеПодразделение;
КонецЕсли;
Если Результат[0].НомерСубконто=2 Тогда
Строка.СубконтоДт2 = ОбособленноеПодразделение;
КонецЕсли;
Если Результат[0].НомерСубконто=3 Тогда
Строка.СубконтоДт3 = ОбособленноеПодразделение;
КонецЕсли;
Если Результат[0].НомерСубконто=4 Тогда
Строка.СубконтоДт4 = ОбособленноеПодразделение;
КонецЕсли;
КонецЕсли;
///////////////////////////////////////Кт///////////////////////////////////////////////////////////
Запрос = Новый Запрос;
Запрос.Текст = "
|Выбрать
|Ссылка Как Счет,
|НомерСтроки Как НомерСубконто,
|ВидСубконто
|Из
|ПланСчетов.Хозрасчетный.ВидыСубконто
|Где
|Ссылка = &Счет И
|ВидСубконто = &ВидСубконто";
Запрос.УстановитьПараметр("Счет",Строка.СчетКт);
Запрос.УстановитьПараметр("ВидСубконто",ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения
БезОбразованияЮрЛица);
Результат = Запрос.Выполнить().Выгрузить();
Если Результат.Количество()>0 Тогда
Если Результат[0].НомерСубконто=1 Тогда
Строка.СубконтоКт1 = ОбособленноеПодразделение;
КонецЕсли;
Если Результат[0].НомерСубконто=2 Тогда
Строка.СубконтоКт2 = ОбособленноеПодразделение;
КонецЕсли;
Если Результат[0].НомерСубконто=3 Тогда
Строка.СубконтоКт3 = ОбособленноеПодразделение;
КонецЕсли;
Если Результат[0].НомерСубконто=4 Тогда
Строка.СубконтоКт4 = ОбособленноеПодразделение;
КонецЕсли;
КонецЕсли;
Движения.Загрузить(ТаблицаДвижений);
Движения.Записать();
Проблема: Часто моё обособленное подразделение записывается не в то субконто.. почму так происходит ?
! |
| Правила, п. 4,5,12. Последнее предупреждение!
|