Новая строка в перемещении (всегда последняя)

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

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