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