6. Mai 2019 20:02
TempItemJournalLine.RESET;
TempItemJournalLine.SETRANGE("Item No.",Artikelnr);
IF TempItemJournalLine.FINDLAST THEN BEGIN
  IF NOT ItemJnlPostBatch.RUN(TempItemJournalLine) THEN BEGIN
    COMMIT;
    ERROR(GETLASTERRORTEXT);
  END ELSE BEGIN  //Dient zum Ausdrucken
    CLEAR(ItemLedgerEntry);
    PDFFilename := "3TierMgtm".ServerTempFileName('pdf');
    ItemLedgerEntry.RESET;
    ItemLedgerEntry.SETRANGE("Posting Date",TODAY);
    ItemLedgerEntry.SETRANGE("Item No.",Artikelnr);
    IF ItemLedgerEntry.FINDLAST THEN BEGIN    
      ItemLedgerEntry2.RESET;
      ItemLedgerEntry2.SETRANGE("Entry No.",ItemLedgerEntry."Entry No.");
        IF ItemLedgerEntry2.FINDLAST THEN BEGIN
        REPORT.SAVEASPDF(50002, PDFFilename, ItemLedgerEntry2);
        Path := PDFFilename;
        GetPathFilename(Path, FileN);
        CLEAR(PrinterSelection);
        IF PrinterSelection.GET(USERID, 50002) THEN;
        Printing.PrintPDFFoxitReader(Path + FileN, PrinterSelection."Printer Name");
      END;
    END;
  END;
END;
7. Mai 2019 07:43
7. Mai 2019 09:39