В стандартной бухгалтерии создал 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 = ОбособленноеПодразделение;
    КонецЕсли;
КонецЕсли;

Движения.Загрузить(ТаблицаДвижений);
Движения.Записать();

Проблема: Часто моё обособленное подразделение записывается не в то субконто.. почму так происходит ?




Сообщение отредактировал logist - 10.12.12, 10:28