Добрый день!
Есть УТ 10.3. Документ "Упаковочный лист" меняет остатки в регистре накопления "ТоварыВПути". Необходимо было доработать кнопочку для непосредственного списания из УЛ.
Дописал процедуру, при отладке все данные берутся корректно, но остатки в регистре не уменьшаются. Приход делает записи, а расход нет.
------------------------------------
Процедура ДвиженияПоРегистрам(ТаблицаПоТоварам, Отказ);

// дописано!!!!!!!!
Если Не Отказ Тогда
Если Статус Тогда
Движения.ТоварыВПути.Записывать = Истина;
Движения.ТоварыВПути.Очистить();
Для Каждого СтрокаТабличнойЧасти Из Товары Цикл
Движение = Движения.ТоварыВПути.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.ДоговорКонтрагента = ДоговорКонтрагента;
Движение.УпаковочныйЛист = Ссылка;
Движение.Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
Движение.ХарактеристикаНоменклатуры = СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
Движение.Количество = СтрокаТабличнойЧасти.Количество;
КонецЦикла;
       КонецЕсли;
КонецЕсли;
// дописано!!!!!!!!


Если Не Отказ Тогда
Движения.ТоварыВПути.Записывать = Истина;
Движения.ТоварыВПути.Очистить();
Для Каждого СтрокаТабличнойЧасти Из Товары Цикл
Движение = Движения.ТоварыВПути.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.ДоговорКонтрагента = ДоговорКонтрагента;
Движение.УпаковочныйЛист = Ссылка;
Движение.Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
Движение.ХарактеристикаНоменклатуры = СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
Движение.Количество = СтрокаТабличнойЧасти.Количество;
КонецЦикла;

Движения.ЗаказыПоставщикам.Записывать = Истина;
Движения.ЗаказыПоставщикам.Очистить();
Для Каждого СтрокаТабличнойЧасти Из Товары Цикл
ДокКоличество = СтрокаТабличнойЧасти.Количество;
ВыполнитьДвижениеПоРегиструЗаказыПоставщикам(СтрокаТабличнойЧасти, ДокКоличество);
КонецЦикла;
КонецЕсли;

КонецПроцедуры

попробуй расходы списывать периодом Дата + 1

странный код

И у тебя ВыполнитьДвижениеПоРегиструЗаказыПоставщикам - что в этой процедуре?

(3) проводки выучил ? =)

programmer1c_63
пробую списать другой датой (дата прихода - ставится ручками), все равно не добавляется запись.
ВыполнитьДвижениеПоРегиструЗаказыПоставщикам - выполняется при другом условии. сейчас не это

Если Не Отказ Тогда
Движения.ТоварыВПути.Записывать = Истина;

-->Движения.ТоварыВПути.Очистить();

эточо?

(3) есть вероятность, что там движения по регистру заказы поставщикам...

(0) и еще один обход сделай. должно быть нечетное количество обходов

(0) Ну а чо! Сделал все движения по расходу, потом их очистил и сделал все движения по приходу.

Понял почему не записывает.
Здесь стоит вопрос уникальности записей.
каждая строка регистра состоит из:
1)вид(приход/расход)
2)дата
3)документ
4)номер строки и т.д.

и я так понимаю уникальными являются документ+номер строки, или вид+документ+номер строки
типа нельзя из одного документа делать и приход и расход
или нельзя несколько записей с одинаковыми номерами строк

(10) Посмотри в свой код!
Если Не Отказ Тогда
Если Статус Тогда
Движения.ТоварыВПути.Записывать = Истина;
Движения.ТоварыВПути.Очистить();
Для Каждого СтрокаТабличнойЧасти Из Товары Цикл
Движение = Движения.ТоварыВПути.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.ДоговорКонтрагента = ДоговорКонтрагента;
Движение.УпаковочныйЛист = Ссылка;
Движение.Номенклатура = СтрокаТабличнойЧасти.Номенклатура;
Движение.ХарактеристикаНоменклатуры = СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры;
Движение.Количество = СтрокаТабличнойЧасти.Количество;
КонецЦикла;
       КонецЕсли;
КонецЕсли;
// дописано!!!!!!!!



Если Не Отказ Тогда
Движения.ТоварыВПути.Записывать = Истина;
Движения.ТоварыВПути.Очистить();
ВОТ тут ты стираешь все свои расходы!

(11) так надо

(12) здесь медицина безсильна(

разобрался. Шапокляк была права.
и все же есть уникальность вид+документ
придется либо другим документом списывать, либо удалять записи регистра
всем спасибо!

Да не за что, мы ж не помогли избавиться от заблуждений.

когда вечером в упор не видишь - это куриная слепота, а если с утра, то какая?

беспросветная