Добрый день ! Ситуация такая :
в оборотке по счету 41.09 (номенклатура, склады , партии)
                  
Подразделение - Бухгалтерия
Склад         - Основной
Номенклатура  - Номенклатура
(-----)       - 1000
(-----)       - -1000  (с минусом)  

"И этого много", пытаюсь написать обработку , чтобы обнулить счета, не получается делаю бух справку с продками Дт 000 Кт 41.09 1000
                                   Дт 41.09 Кт 000  -1000

всё время попадаем на нижнее субконто

кто здесь?

(0) Ну давай, показывай...

Выбрать эти остатки в разрезе всех субконто и сделать проводку с этими же субконто с противоположным знаком.

делаю же так, не получается

(4) Вас уговаривать надо, чтобы код показали?

ДобавляемыйДокОпер                    = Документы.ОперацияБух.СоздатьДокумент();
    ДобавляемыйДокОпер.Движения.Хозрасчетный.Очистить();
    ДобавляемыйДокОпер.Дата               = Дата;
    ДобавляемыйДокОпер.Содержание         = "Закрытие остатков по счету 41.09";
    ДобавляемыйДокОпер.СпособЗаполнения     = "Вручную";
    ДобавляемыйДокОпер.Организация          = Организация;
    ДобавляемыйДокОпер.Записать();
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ХозрасчетныйОстатки.Организация КАК Организ,
    |    ХозрасчетныйОстатки.Подразделение КАК Подраз,
    |    ХозрасчетныйОстатки.Субконто1 КАК Номенклатура,
    |    ХозрасчетныйОстатки.Субконто2 КАК Склады,
    |    ХозрасчетныйОстатки.Субконто3 КАК Партии,
    |    ХозрасчетныйОстатки.СуммаОстаток КАК Сумма
    |ИЗ
    |    РегистрБухгалтерии.Хозрасчетный.Остатки(
    |            ,
    |            Счет = &Счет,
    |            ,
    |            Организация = &Организация
    |                И Субконто1 = &Номенклатура) КАК ХозрасчетныйОстатки";
    
    Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
    Запрос.УстановитьПараметр("Организация", Организация);
    Запрос.УстановитьПараметр("Счет", Счет);
    
    Результат = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    
//    Движения.Хозрасчетный.Очистить();
    
    Пока   ВыборкаДетальныеЗаписи.Следующий() Цикл
        
        
        
        Движение = ДобавляемыйДокОпер.Движения.Хозрасчетный.Добавить();
        Движение.Период = Дата;
        Движение.Организация = Организация;

        
        Если ВыборкаДетальныеЗаписи.Сумма > 0  Тогда
        Движение.СчетДт = ПланыСчетов.Хозрасчетный.Вспомогательный;
        Движение.СчетКт = ПланыСчетов.Хозрасчетный.ТоварыГазкомплект;
        Движение.ПодразделениеКт = ВыборкаДетальныеЗаписи.Подраз;
        Движение.Сумма = ВыборкаДетальныеЗаписи.Сумма;
        //    Движение.КоличествоКт = 0;
        //    Движение.СуммаНУКт = ж;
        //    Движение.СуммаПРКт = ж;
        //    Движение.СуммаВРКт = ж;
        //    Движение.Содержание = Содержание;
        //    Движение.НеКорректироватьСтоимостьАвтоматически = ж;
        //    Движение.ВладелецФилиал = ВладелецФилиал;
        //    Движение.ОбщийДоступ = ОбщийДоступ;
        Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = ВыборкаДетальныеЗаписи.Номенклатура;
        Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = ВыборкаДетальныеЗаписи.Склады;
        Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = ВыборкаДетальныеЗаписи.Партии ;
           ИначеЕсли ВыборкаДетальныеЗаписи.Сумма < 0 Тогда
                
        Движение.СчетДт = ПланыСчетов.Хозрасчетный.ТоварыГазкомплект;
        Движение.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;
        Движение.Сумма = ВыборкаДетальныеЗаписи.Сумма;
        //Движение.КоличествоДт = 0;
        //Движение.СуммаНУДт = 0;
        //Движение.СуммаПРДт = 0;
        //Движение.СуммаВРДт = 0;
        //Движение.Содержание = Содержание;
        //Движение.ВладелецФилиал = ВладелецФилиал;
        //Движение.ОбщийДоступ = ОбщийДоступ;
        Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = ВыборкаДетальныеЗаписи.Номенклатура;
        Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = ВыборкаДетальныеЗаписи.Склады;
        Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = ВыборкаДетальныеЗаписи.Партии ;
    
                    
        
        КонецЕсли;
        
    
        
    КонецЦикла;

субконто3 = партии пустое

НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(ДобавляемыйДокОпер.Ссылка);
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
   Движение = НадобЗаписей.();
   ...

Движение = НаборЗаписей.Добавить();

** сорри опечатался

а зачем набор записей?

он создаёт документ с проводками

Ну и потом после цикла НаборЗаписей.Записать();

(11) Кто это "он"?

обработка, мой код

надо механизм придумать

Короче, в чем проблема, что не получается-то?

картина такая :
Подразделение - Бухгалтерия
Склад         - Основной
Номенклатура  - Номенклатура
(-----)       - 1000
(-----)       - -1000  (с минусом)  

Делаю проводки : Дт 000 Кт 41.09 1000
                 Дт 000 Кт 41.09  -1000
ничего не меняется

т.е надо убрать остатки

я их не могу отловить, потому что пустые субконто

Основной склад   №4 Стер    БУ            67 135,53    67 135,53    
    Кол.            5,000    5,000    
<...>    БУ            67 135,53    65 844,96    1 290,57
    Кол.            5,000    5,000    
<...>    БУ                1 290,57    -1 290,57
    Кол.

Если ВыборкаДетальныеЗаписи.Сумма > 0  Тогда
   ...
   Движение.Сумма = ВыборкаДетальныеЗаписи.Сумма;
ИначеЕсли ВыборкаДетальныеЗаписи.Сумма < 0 Тогда
   ...
   Движение.Сумма = ВыборкаДетальныеЗаписи.Сумма;

и где ты "минусуешь" сумму?

это второй вариант для проводки Дт 000 Кт 41.09 1000
                 Дт 000 Кт 41.09  -1000

ситуация такая т.к пустое субконто при расходе не видет сумму, и не закрывает приход, а делает новую запись с минусом

(0) Это из-за различия между незаполненным субконто, пустым субконто, неопределено и Null

(23) Можно для начала попробовать ТИИ

Перекиньте это "пустое" субконто на одну пустую ручную партию.

это что?

не вариант, их много

(24) (26) Тестирование и исправление базы

а другие варианты?

Возможно, субконто партии неверного типа или Null. Попробуйте написать запрос через консоль и посмотреть что там у вас висит в действительности.

Неопределенно

(31) А там где с минусом что висит?
Неопределено и пустое субконто определенного типа это разные вещи

присваиваю Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = Тип("ДокументСсылка.Партия")

не помогает

(32) точно! (34) - см.
а можно и отладчик включить

не поняла, присвоила неопределенно, все равно не получается

(36) ИМХО - тебе посоветовали не "присвоить", а посмотреть какой тип у субконто - это можно сделать в отладчике, или отчетом

а уж после этого - решать, как обнулить уже известное (или известные) субконто по счету

ДокументСсылка.Партия

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = ВыборкаДетальныеЗаписи.Партии.Ссылка;

у Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] тип ДокументСсылка.Партия

оборотку формирую также(((

Скорее всего, тип субконто "портится" (становится отличным от того, что присваиваешь по результатам запроса) в подписке при записи регистра бухгалтерии.
Попробуй набор записывать со свойством ОбменДанными.Загрузка = Истина;

это как?

напишите код

не помогает(((

(45) Пробовала (3) ?