17. Januar 2013 12:39
<Action1102601003> - OnAction()
IF ApprovalMgt.PrePostApprovalCheck(Rec,PurchaseHeader) THEN BEGIN
  IF ApprovalMgt.TestSalesPrepayment(Rec) THEN
    ERROR(STRSUBSTNO(Text001,"Document Type","No."))
  ELSE BEGIN
    IF ApprovalMgt.TestSalesPayment(Rec) THEN
      ERROR(STRSUBSTNO(Text002,"Document Type","No."))
    ELSE
      [color=#4000BF]"Posting Date" := WORKDATE;           //Buchungsdatum mit aktuellem Arbeitsdatum hinterlegen
      "Document Date" := WORKDATE;          //Belegdatum mit aktuellem Arbeitsdatum hinterlegen
      MODIFY;      [/color]   
      CODEUNIT.RUN(CODEUNIT::"Sales-Post (Yes/No)",Rec);
  END;
END;VALIDATE("Payment Terms Code");
VALIDATE("Prepmt. Payment Terms Code");17. Januar 2013 12:55
17. Januar 2013 13:25
21. Januar 2013 13:23