GeMIS_WEB/GUI/Tools/TestLoadDok.p

    DEF VAR cVorlage    AS CHAR INIT 'SammFak.vfr'  NO-UNDO.
    DEF VAR cDokument   AS CHAR INIT 'SammFak'      NO-UNDO.
    DEF VAR cPDFName    AS CHAR                     NO-UNDO.
    DEF VAR iPages      AS INT                      NO-UNDO.
    DEF VAR ix          AS INT                      NO-UNDO.
    
    DEF TEMP-TABLE tDokument NO-UNDO
        FIELD iSeite        AS INT
        FIELD cDok          AS BLOB.

    { vpr.i function_header   }
    { vpr.i INIT  }
    { vpr.i START }
    
    EMPTY TEMP-TABLE tDokument.
    
    RUN vpr_LoadVFR (cVorlage).
    RUN vpr_ActivateReport (cDokument).
    RUN vpr_ResetDoc.
    RUN vpr_openDoc('Rechnungen\000039-490497_SammFak.vpr').
    RUN vpr_initDoc.
    iPages = vpr_getPageNo().
    /*
    SESSION:PRINTER-NAME = 'KONICA MINOLTA C353 Series PCL'.
    RUN vpr_selectPrinter('KONICA MINOLTA C353 Series PCL').
    
    DO ix = 1 to iPages:
        RUN vpr_SetPrinterAttrib(SUBSTITUTE('copies=1,from=&1,to=&1', ix, ix )).
        RUN vpr_initGraphObj.
        RUN vpr_printDoc (0, 0).
    END.
    */
    cPDFName = REPLACE(cVorlage, '.vfr', '.pdf').
    RUN vpr_printPDF (0, 0, INPUT-OUTPUT cPDFName ).
    RUN vpr_EndDoc.
    /*
    SESSION:PRINTER-NAME = 'KONICA MINOLTA C353 Series PCL'.
    RUN vpr_selectPrinter('KONICA MINOLTA C353 Series PCL').
    RUN vpr_printDoc (0, 0).
        
    cvpr_Dokument = SUBSTITUTE('Rechnungen\&1-&2_&3', STRING(BAufko.Knr,'999999'), BAufko.Faknr, cvpr_Dokument).
    cPDFName      = REPLACE(cvpr_Dokument, '.vpr', '.pdf').
    
    RUN vpr_printPDF (0, 0, INPUT-OUTPUT cPDFName ).
    
    RUN vpr_SaveDoc ( cvpr_Dokument ).
    */
    { vpr.i STOP }