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;