Цитата:
Сообщение от Fordewind
Код: IF "Line No." = 0 THEN BEGIN
TransLine2.RESET;
TransLine2.SETFILTER("Document No.",TransHeader."No.");
IF TransLine2.FIND('+') THEN
"Line No." := TransLine2."Line No." + 10000;
END; И будет вам счастье!
Проверил: и отгрузка и приемка работают без этого куска кода.
__________________
Вот такие, брат, дела!
|