&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
/*------------------------------------------------------------------------
    File        : 
    Purpose     :

    Syntax      :

    Description :

    Author(s)   :
    Created     :
    Notes       :
  ----------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */

    DEF INPUT PARAMETER ipDatei     AS CHAR         NO-UNDO.

    DEF VAR cvpr_Dokument   AS CHAR                 NO-UNDO.
    DEF VAR cPDFName        AS CHAR                 NO-UNDO.
    DEF VAR Ja              AS LOG                  NO-UNDO.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE Procedure
&Scoped-define DB-AWARE no



/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME



/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Procedure
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: CODE-ONLY COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Procedure ASSIGN
         HEIGHT             = 15
         WIDTH              = 60.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure 


/* ***************************  Main Block  *************************** */

    { vpr.i INIT  }
    { vpr.i START }
    
    cvpr_Dokument = ipDatei.
    cPDFName      = REPLACE(cvpr_Dokument, '.vpr', '.pdf').

    RUN vpr_OpenDoc       ( ipDatei   ).
    RUN vpr_printerDialog ( OUTPUT ja ).
    
    IF NOT Ja THEN DO:
        { vpr.i STOP }
        RETURN 'ERROR'.
    END.

    RUN vpr_printDoc (0, 0).
    RUN vpr_printPDF (0, 0, INPUT-OUTPUT cPDFName ).
    
    { vpr.i STOP }
    
    RETURN ''.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME