Изменяемые счета покупки товара

[dod]

Произвели следующие изменения:

в CU 5802 в функции SetPostGrps сделали следующее

"Posting Group 1" := ValueEntry."Location Code";
IF "Posting Group 1" = '' THEN
BEGIN
IF PurchaseLine.FIND('-') THEN
REPEAT
IF PurchaseLine."Posting Group" = ValueEntry."Inventory Posting Group"
THEN "Posting Group 1":=PurchaseLine."Location Code";
UNTIL PurchaseLine.NEXT = 0;
END;

Работает, если в заказе субподряда одна строка. если больше - разноска неправильная. будем копать дальше