Monday, January 26, 2009

Which document to print when choosing Post+Print on Warehouse Shipment

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;



No comments:

Post a Comment