Наваял код. Сворачивает обороты по 70 счету на 1 субконто.

Вот код:

Процедура КнопкаВыполнитьНажатие(Кнопка)
   
     Счет70 = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда;
     Запрос = Новый Запрос;
     Запрос.Текст =
     "ВЫБРАТЬ РАЗЛИЧНЫЕ
     |      Хозрасчетный.Регистратор
     |ИЗ
     |      РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
     |ГДЕ
     |      (Хозрасчетный.СчетДт = &Счет70
     |                  ИЛИ Хозрасчетный.СчетКт = &Счет70)";
     
     Запрос.УстановитьПараметр("Счет70", Счет70);
     
     Выборка = Запрос.Выполнить().Выбрать();
     Количество = Выборка.Количество();
     Счетчик = 0;
     Пока Выборка.Следующий()Цикл
         Счетчик = счетчик + 1;
         Состояние(Счетчик+" из "+Количество);  
         НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
           НаборЗаписей.Отбор.Регистратор.Значение = Выборка.Регистратор;
           НаборЗаписей.Прочитать();
           ФлагИзменения = Ложь;
           НачатьТранзакцию();
           Для Каждого Запись Из НаборЗаписей Цикл
                 Если Запись.СчетДт = Счет70 Тогда
                             Запись.СубконтоДт["РаботникиОрганизаций"]  = ФизЛицоСОТРУДНИКИ;
                             Запись.СубконтоДт["ВидНачисленийОплатыТрудаПоСтатье255НК"] = Статья;
                             ФлагИзменения = Истина;
                 ИначеЕсли Запись.СчетКт = Счет70 Тогда
                             Запись.СубконтоКт["РаботникиОрганизаций"]  = ФизЛицоСОТРУДНИКИ;
                             Запись.СубконтоКт["ВидНачисленийОплатыТрудаПоСтатье255НК"] = Статья;
                             ФлагИзменения = Истина;
                 КонецЕсли;
           КонецЦикла;
           Если ФлагИзменения Тогда
                 Попытка
                       НаборЗаписей.Записать();
                 Исключение
                       ОтменитьТранзакцию();
                       Возврат;
                 КонецПопытки;
           КонецЕсли;
           ЗафиксироватьТранзакцию();
           ОбработкаПрерыванияПользователя()
     КонецЦикла;    
КонецПроцедуры

Почему не пишет - непойму. Где косяк?

Причем, вчера все работало.
Я добавил состояние и счетчик. после этого перестало )))
Вернул все как было, и нифига. Не вижу причины.

Ложная тревога. Все работает.

Приятно когда люди сами с собой разговаривают. Таким образом решаются половина проблем

Апну тему. В 2 база работает, а в 3 нет.
При отладке в это месте:
Запись.СубконтоДт["РаботникиОрганизаций"]  = ФизЛицоСОТРУДНИКИ;
Запись.СубконтоДт["РаботникиОрганизаций"] - НЕОПРЕДЕЛЕНО, и не присваивается значение почему то.

Ни*ера не пойму. Работает.

(5) ты обращайся. поговори, и всё пройдёт

Да я уже понял)))

Решил. В 3 базе небыло субконто по счету в плане счетов.