Показать сообщение отдельно
Старый 27.11.2007, 07:20   #31  
dod is offline
dod
Участник
 
51 / 10 (1) +
Регистрация: 02.10.2007
Произвели следующие изменения:

в 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;

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