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

[dod]

to apanko: а мы добавили еще одно ограничение и в дополнении с тем, что было мной уже написано выше, получилось следующее:


"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") AND
(PurchaseLine."Buy-from Vendor No." =ValueEntry."Source No.") AND
(PurchaseLine."Prod. Order No." =ValueEntry."Document No." )
THEN BEGIN
"Posting Group 1":=PurchaseLine."Location Code"; END;
UNTIL PurchaseLine.NEXT = 0; END;

Заработало! Ваш вариант дает такие же результаты. Думаю, проблема решена. Большое спасибо за помощь!