28. April 2008 11:07
28. April 2008 11:40
IF Invoice AND ("Posting No." = '') THEN BEGIN
IF ("No. Series" <> '') OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN
TESTFIELD("Posting No. Series");
IF ("No. Series" <> "Posting No. Series") OR
("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
THEN BEGIN
"Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);
ModifyHeader := TRUE;
END;
END;