&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 iphParam   AS HANDLE           NO-UNDO.
DEF OUTPUT PARAMETER opcResult  AS CHAR             NO-UNDO.

DEF VAR cDruckProgramm  AS CHAR                     NO-UNDO.
DEF VAR cInstallation   AS CHAR                     NO-UNDO.
DEF VAR cResult         AS CHAR                     NO-UNDO.

{ incl/ttdruckparam.i }

/* _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  *************************** */

    opcResult = ''.

    CREATE tParam.
    htParam:BUFFER-COPY(iphParam).
    
    tParam.lPreis       = TRUE.
    tParam.cDokument    = 'Lieferschein'.
    cInstallation       = DYNAMIC-FUNCTION('getInstallation':U) NO-ERROR.
    cDruckProgramm      = SUBSTITUTE('DruckProgramme/&1/&2',
                                     cInstallation,
                                     'Lieferschein.p' ).
    cDruckProgramm      = SEARCH(cDruckProgramm).
    RUN VALUE(cDruckProgramm) (INPUT htParam, OUTPUT cResult ).
    opcResult = cResult.

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