GeMIS_WEB/GUI/Tools/CreatePDF.p

DEF VAR cFileName   AS CHAR                     NO-UNDO.
DEF VAR cPDFName    AS CHAR                     NO-UNDO.
DEF VAR cVPRName    AS CHAR                     NO-UNDO.
DEF VAR cFakArt     AS CHAR                     NO-UNDO.
DEF VAR iSize       AS INT                      NO-UNDO.

FOR EACH Savko NO-LOCK
        WHERE Savko.Firma      = '1000'
        AND   Savko.Fak_Datum >= 01/01/2019:
    FIND Tabel NO-LOCK
            WHERE Tabel.Firma  = Savko.Firma
            AND   Tabel.RecArt = 'FAKART'
            AND   Tabel.CodeI  = Savko.Fak_Art
            AND   Tabel.CodeC  = ''
            AND   Tabel.Sprcd  = 1.
    cFakArt = Tabel.Bez2.
    cFileName = SUBSTITUTE('&1-&2_&3', STRING(Savko.Fak_Knr,'999999'),
                                       STRING(Savko.Faknr  ,'9999999'),
                                       cFakArt).
    cVPRName = 'Rechnungen\' + cFileName + '.vpr'.
    cPDFName = 'Rechnungen\' + cFileName + '.pdf'.
    
    FILE-INFO:FILE-NAME = cVPRName.
    IF FILE-INFO:FULL-PATHNAME = ?  OR
       FILE-INFO:FULL-PATHNAME = '' THEN NEXT.
    
    FILE-INFO:FILE-NAME = cPDFName.
    IF FILE-INFO:FULL-PATHNAME <> ?  AND
       FILE-INFO:FULL-PATHNAME <> '' AND
       FILE-INFO:FILE-SIZE      > 9000 THEN NEXT.

    { viper/vpr.i INIT  }
    { viper/vpr.i START }

    RUN vpr_selectPrinter  ( 'PDF24 PDF' ).
    RUN vpr_openDoc  ( cVPRName ).
    RUN vpr_printPDF ( 0, 0, INPUT-OUTPUT cPDFName ).

    { viper/vpr.i STOP }
    
END.