Codeunit 5763 > Post Source Document
SalesShptHeader."No." := SalesHeader."Last Shipping No.";
SalesShptHeader.SETRECFILTER;
PrintReport(ReportSelection.Usage::"S.Shipment");
IF Invoice THEN BEGIN
SalesInvHeader."No." := SalesHeader."Last Posting No.";
SalesInvHeader.SETRECFILTER;
PrintReport(ReportSelection.Usage::"S.Invoice");
END;
Codeunit 82 Sales-Post + Print \ GetReport
"Document Type"::"Return Order":
BEGIN
IF Receive THEN BEGIN
ReturnRcptHeader."No." := "Last Return Receipt No.";
ReturnRcptHeader.SETRECFILTER;
PrintReport(ReportSelection.Usage::"S.Ret.Rcpt.");
END;
IF Invoice THEN BEGIN
SalesCrMemoHeader."No." := "Last Posting No.";
SalesCrMemoHeader.SETRECFILTER;
PrintReport(ReportSelection.Usage::"S.Cr.Memo");
END;
END;
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment