[Yuriy]

Цитата:

Сообщение от 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;

И будет вам счастье!

Проверил: и отгрузка и приемка работают без этого куска кода.