1с 7.7 бу 4.5, 7.70.489
проблема в какой то ерунде, но не могу понять почему не получается,
надо чтобы при проведении документа если в табличной части есть товар с определенным кодом, по нему создавалась проводка, использую найти по коду, все равно при проведении проводка проходит по всем строкам

    Пока получитьстроку()=1 Цикл  
               Операция.новаяпроводка();

                   спр=создатьобъект("Справочник.Номенклатура");
          
              Если  спр.найтипокоду("000000153")=1 Тогда

              Операция.Дебет.Счет =  СчетПокоду("90.1.1");
            Операция.Дебет.Субконто(1,товар);  
            Операция.Кредит.Счет =  СчетПокоду("41.1");
            Операция.Кредит.Субконто(1,товар);
            Операция.Кредит.фирмы=фирма;  
            Операция.количество=количество;
            Операция.сумма=сумма;

откажись от самодельного документа и воспользуйся типовым

в типом смотрят не на код номенклатуры, а на тип его : товар/услуга/работа

+ (2) в зависимости от которого ставится проводка по списанию себестоимости

в (0) ошибка
проводки
Дт 90.1 (Выручка) Кт 41.1 (Товары)
быть не может

Операция.новаяпроводка(); // внутрь Если запихни

типовой не пойдет,
(4) проводка правильная будет по 60.2 и 41.1
(5) не помогает пробывал

(6) отладчиком пользовался?

(0) Если  спр.найтипокоду("000000153")=1 Тогда
Ты что, каждый раз в справочнике товаров ищешь такой товар?
хотя бы так:
Пока получитьстроку()=1 Цикл  
               Операция.новаяпроводка();                  
          
              Если  СокрЛП(товар.Код) = "000000153" Тогда

              Операция.Дебет.Счет =  СчетПокоду("90.2.1");
            Операция.Дебет.Субконто(1,товар.ВидНоменклатуры);  
            Операция.Кредит.Счет =  СчетПокоду("41.1");
            Операция.Кредит.Субконто(1,товар);
            Операция.Кредит.фирмы=фирма;  
            Операция.количество=количество;
            Операция.сумма=сумма;

сорри 62.1 (6)

(6) почему не подойдёт *?

(8) ты прав так гораздо удачнее
все пошло всем спасибо

акуенно -- списывать себестоимость равную продаже =)
т.е. на 41 будут минусы

(10) потому что помимо этой проводки в модуля куча самописных проводок

(13) какие ?

Идиотизм


>если в табличной части есть товар с определенным кодом, по нему создавалась проводка

л_ТЗ = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(л_ТЗ);
Если л_ТЗ.НайтиЗначение(л_НужныйКод, 0, л_КолонкаГдеИскать) <> 0 Тогда
Операция.новаяпроводка();
// заполнение реквизитов проводки
КонецЕсли;


У тебя используется цикл по строкам и поиск кода в справочнике, а не в табличной части документа. Идиотская структура, соответственно, не тот результат.

честно, пытался минут 5 разобраться с логикой - так и не понял: зачем, перебирая строки, сделать только одну проводку? а остальные товары - так и останутся без проводки, но будут в проведенном документе?
и кто после этого будет в документе разбираться? бухгалтерия?
сочувствую им от всей души..