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;