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