| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 |
- &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 }
- { incl/properties.i }
- { incl/ttsendmail.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
|
