&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2 &ANALYZE-RESUME /* Connected Databases anadat PROGRESS */ &Scoped-define WINDOW-NAME CURRENT-WINDOW &Scoped-define FRAME-NAME gDruckBestaetigung {adecomm/appserv.i} /* Temp-Table and Buffer definitions */ DEFINE TEMP-TABLE tViperDoc NO-UNDO LIKE ViperDoc. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gDruckBestaetigung /*------------------------------------------------------------------------ File: Description: from cntnrdlg.w - ADM2 SmartDialog Template Input Parameters: Output Parameters: Author: Created: ------------------------------------------------------------------------*/ /* This .W file was created with the Progress AppBuilder. */ /*----------------------------------------------------------------------*/ /* Create an unnamed pool to store all the widgets created by this procedure. This is a good default which assures that this procedure's triggers and internal procedures will execute in this procedure's storage, and that proper cleanup will occur on deletion of the procedure. */ CREATE WIDGET-POOL. /* *************************** Definitions ************************** */ /* Parameters Definitions --- */ DEFINE INPUT-OUTPUT PARAMETER iphParam AS HANDLE NO-UNDO. DEFINE OUTPUT PARAMETER opcResult AS CHARACTER NO-UNDO. /* Local Variable Definitions --- */ DEFINE VARIABLE dGlobLiefDat AS DATE NO-UNDO INIT ?. { incl/ttdruckparam.i } { incl/dlgdefinition.i } { src/adm2/widgetprto.i } /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE SmartDialog &Scoped-define DB-AWARE no &Scoped-define ADM-CONTAINER DIALOG-BOX &Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME gDruckBestaetigung /* Internal Tables (found by Frame, Query & Browse Queries) */ &Scoped-define INTERNAL-TABLES tViperDoc /* Definitions for DIALOG-BOX gDruckBestaetigung */ &Scoped-define FIELDS-IN-QUERY-gDruckBestaetigung tViperDoc.DruckKopie ~ tViperDoc.Formular tViperDoc.lDokDruck tViperDoc.lCreatePDF ~ tViperDoc.lOpenPDF tViperDoc.Anzahl tViperDoc.Schacht_Original ~ tViperDoc.Benutzer tViperDoc.Programm tViperDoc.Schacht_Kopie ~ tViperDoc.Schacht_Besr &Scoped-define ENABLED-FIELDS-IN-QUERY-gDruckBestaetigung ~ tViperDoc.DruckKopie tViperDoc.Formular tViperDoc.lDokDruck ~ tViperDoc.lCreatePDF tViperDoc.lOpenPDF tViperDoc.Anzahl ~ tViperDoc.Schacht_Original tViperDoc.Benutzer tViperDoc.Programm ~ tViperDoc.Schacht_Kopie tViperDoc.Schacht_Besr &Scoped-define ENABLED-TABLES-IN-QUERY-gDruckBestaetigung tViperDoc &Scoped-define FIRST-ENABLED-TABLE-IN-QUERY-gDruckBestaetigung tViperDoc &Scoped-define QUERY-STRING-gDruckBestaetigung FOR EACH tViperDoc SHARE-LOCK &Scoped-define OPEN-QUERY-gDruckBestaetigung OPEN QUERY gDruckBestaetigung FOR EACH tViperDoc SHARE-LOCK. &Scoped-define TABLES-IN-QUERY-gDruckBestaetigung tViperDoc &Scoped-define FIRST-TABLE-IN-QUERY-gDruckBestaetigung tViperDoc /* Standard List Definitions */ &Scoped-Define ENABLED-FIELDS tViperDoc.DruckKopie tViperDoc.Formular ~ tViperDoc.lDokDruck tViperDoc.lCreatePDF tViperDoc.lOpenPDF ~ tViperDoc.Anzahl tViperDoc.Schacht_Original tViperDoc.Benutzer ~ tViperDoc.Programm tViperDoc.Schacht_Kopie tViperDoc.Schacht_Besr &Scoped-define ENABLED-TABLES tViperDoc &Scoped-define FIRST-ENABLED-TABLE tViperDoc &Scoped-Define ENABLED-OBJECTS Btn_OK CB_Drucker Btn_Cancel RECT-2 &Scoped-Define DISPLAYED-FIELDS tViperDoc.DruckKopie tViperDoc.Formular ~ tViperDoc.lDokDruck tViperDoc.lCreatePDF tViperDoc.lOpenPDF ~ tViperDoc.Anzahl tViperDoc.Schacht_Original tViperDoc.Benutzer ~ tViperDoc.Programm tViperDoc.Schacht_Kopie tViperDoc.Schacht_Besr &Scoped-define DISPLAYED-TABLES tViperDoc &Scoped-define FIRST-DISPLAYED-TABLE tViperDoc &Scoped-Define DISPLAYED-OBJECTS CB_Drucker /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 T_Alle tViperDoc.DruckKopie tViperDoc.Formular ~ tViperDoc.lDokDruck tViperDoc.lCreatePDF tViperDoc.lOpenPDF ~ tViperDoc.Anzahl tViperDoc.Schacht_Original tViperDoc.Benutzer ~ tViperDoc.Programm tViperDoc.Schacht_Kopie tViperDoc.Schacht_Besr /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define a dialog box */ /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Cancel AUTO-END-KEY LABEL "abbrechen" SIZE 15 BY 1. DEFINE BUTTON Btn_OK AUTO-GO LABEL "OK" SIZE 15 BY 1. DEFINE VARIABLE CB_Drucker AS CHARACTER FORMAT "X(256)":U LABEL "Drucker" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEMS "Item 1" DROP-DOWN-LIST SIZE 70 BY 1 NO-UNDO. DEFINE RECTANGLE RECT-2 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 92 BY 10.48. DEFINE VARIABLE T_Alle AS LOGICAL INITIAL NO LABEL "Alle mit Ku_Grp &1, Delivery-Date &2" VIEW-AS TOGGLE-BOX SIZE 70 BY 1 BGCOLOR 15 NO-UNDO. /* Query definitions */ &ANALYZE-SUSPEND DEFINE QUERY gDruckBestaetigung FOR tViperDoc SCROLLING. &ANALYZE-RESUME /* ************************ Frame Definitions *********************** */ DEFINE FRAME gDruckBestaetigung T_Alle AT ROW 5 COL 20 WIDGET-ID 32 Btn_OK AT ROW 12.38 COL 29.4 CB_Drucker AT ROW 6 COL 18 COLON-ALIGNED WIDGET-ID 28 tViperDoc.DruckKopie AT ROW 7 COL 20 WIDGET-ID 10 LABEL "Kopie durch Drucker ?" VIEW-AS TOGGLE-BOX SIZE 30 BY 1 tViperDoc.Formular AT ROW 3 COL 18 COLON-ALIGNED WIDGET-ID 26 VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-TAB-STOP tViperDoc.lDokDruck AT ROW 8 COL 20 WIDGET-ID 14 LABEL "Papierdruck ?" VIEW-AS TOGGLE-BOX SIZE 30 BY 1 tViperDoc.lCreatePDF AT ROW 9 COL 20 WIDGET-ID 12 LABEL "PDF erstellen ?" VIEW-AS TOGGLE-BOX SIZE 30 BY 1 tViperDoc.lOpenPDF AT ROW 10 COL 20 WIDGET-ID 16 LABEL "PDF öffnen ?" VIEW-AS TOGGLE-BOX SIZE 30 BY 1 tViperDoc.Anzahl AT ROW 7 COL 80 COLON-ALIGNED WIDGET-ID 6 LABEL "Anzahl" FORMAT "zzz9" VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 tViperDoc.Schacht_Original AT ROW 8 COL 80 COLON-ALIGNED WIDGET-ID 24 LABEL "Schacht Original" FORMAT "zzz9" VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 tViperDoc.Benutzer AT ROW 2 COL 18 COLON-ALIGNED WIDGET-ID 4 LABEL "Benutzer" FORMAT "x(40)" VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-TAB-STOP tViperDoc.Programm AT ROW 4 COL 18 COLON-ALIGNED WIDGET-ID 18 VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-TAB-STOP tViperDoc.Schacht_Kopie AT ROW 9 COL 80 COLON-ALIGNED WIDGET-ID 22 LABEL "Schacht Kopie" FORMAT "zzz9" VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 tViperDoc.Schacht_Besr AT ROW 10 COL 80 COLON-ALIGNED WIDGET-ID 20 LABEL "Schacht Besr" FORMAT "zzz9" VIEW-AS FILL-IN NATIVE SIZE 8 BY 1 BGCOLOR 15 Btn_Cancel AT ROW 12.38 COL 50.6 tViperDoc.Drucker AT ROW 2.52 COL 78 COLON-ALIGNED WIDGET-ID 8 VIEW-AS FILL-IN NATIVE SIZE 4 BY 1 NO-TAB-STOP RECT-2 AT ROW 1.48 COL 3 WIDGET-ID 2 SPACE(1.99) SKIP(2.17) WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE TITLE "Druck bestätigen" CANCEL-BUTTON Btn_Cancel WIDGET-ID 100. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartDialog Allow: Basic,Browse,DB-Fields,Query,Smart Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target Design Page: 1 Other Settings: COMPILE APPSERVER Temp-Tables and Buffers: TABLE: tViperDoc T "?" NO-UNDO AnaDat ViperDoc END-TABLES. */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gDruckBestaetigung /* ************************* Included-Libraries *********************** */ {src/adm2/containr.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR DIALOG-BOX gDruckBestaetigung FRAME-NAME Custom */ ASSIGN FRAME gDruckBestaetigung:SCROLLABLE = FALSE FRAME gDruckBestaetigung:HIDDEN = TRUE. /* SETTINGS FOR FILL-IN tViperDoc.Anzahl IN FRAME gDruckBestaetigung 6 EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN tViperDoc.Benutzer IN FRAME gDruckBestaetigung 6 EXP-LABEL EXP-FORMAT */ ASSIGN tViperDoc.Benutzer:READ-ONLY IN FRAME gDruckBestaetigung = TRUE. /* SETTINGS FOR FILL-IN tViperDoc.Drucker IN FRAME gDruckBestaetigung NO-DISPLAY NO-ENABLE */ ASSIGN tViperDoc.Drucker:HIDDEN IN FRAME gDruckBestaetigung = TRUE tViperDoc.Drucker:READ-ONLY IN FRAME gDruckBestaetigung = TRUE. /* SETTINGS FOR TOGGLE-BOX tViperDoc.DruckKopie IN FRAME gDruckBestaetigung 6 EXP-LABEL */ /* SETTINGS FOR FILL-IN tViperDoc.Formular IN FRAME gDruckBestaetigung 6 */ ASSIGN tViperDoc.Formular:READ-ONLY IN FRAME gDruckBestaetigung = TRUE. /* SETTINGS FOR TOGGLE-BOX tViperDoc.lCreatePDF IN FRAME gDruckBestaetigung 6 EXP-LABEL */ /* SETTINGS FOR TOGGLE-BOX tViperDoc.lDokDruck IN FRAME gDruckBestaetigung 6 EXP-LABEL */ /* SETTINGS FOR TOGGLE-BOX tViperDoc.lOpenPDF IN FRAME gDruckBestaetigung 6 EXP-LABEL */ /* SETTINGS FOR FILL-IN tViperDoc.Programm IN FRAME gDruckBestaetigung 6 */ ASSIGN tViperDoc.Programm:READ-ONLY IN FRAME gDruckBestaetigung = TRUE. /* SETTINGS FOR FILL-IN tViperDoc.Schacht_Besr IN FRAME gDruckBestaetigung 6 EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN tViperDoc.Schacht_Kopie IN FRAME gDruckBestaetigung 6 EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR FILL-IN tViperDoc.Schacht_Original IN FRAME gDruckBestaetigung 6 EXP-LABEL EXP-FORMAT */ /* SETTINGS FOR TOGGLE-BOX T_Alle IN FRAME gDruckBestaetigung NO-DISPLAY NO-ENABLE 6 */ ASSIGN T_Alle:HIDDEN IN FRAME gDruckBestaetigung = TRUE. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK DIALOG-BOX gDruckBestaetigung /* Query rebuild information for DIALOG-BOX gDruckBestaetigung _TblList = "Temp-Tables.tViperDoc" _Options = "SHARE-LOCK" _Query is NOT OPENED */ /* DIALOG-BOX gDruckBestaetigung */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME gDruckBestaetigung &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDruckBestaetigung gDruckBestaetigung ON END-ERROR OF FRAME gDruckBestaetigung /* Druck bestätigen */ DO: RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDruckBestaetigung gDruckBestaetigung ON WINDOW-CLOSE OF FRAME gDruckBestaetigung /* Druck bestätigen */ DO: RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_Cancel &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Cancel gDruckBestaetigung ON CHOOSE OF Btn_Cancel IN FRAME gDruckBestaetigung /* abbrechen */ DO: RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_OK &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK gDruckBestaetigung ON CHOOSE OF Btn_OK IN FRAME gDruckBestaetigung /* OK */ DO: btnOK = TRUE. RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Drucker &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Drucker gDruckBestaetigung ON RETURN OF CB_Drucker IN FRAME gDruckBestaetigung /* Drucker */ DO: APPLY 'TAB' TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Drucker gDruckBestaetigung ON VALUE-CHANGED OF CB_Drucker IN FRAME gDruckBestaetigung /* Drucker */ DO: tViperDoc.Drucker = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME tViperDoc.DruckKopie &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tViperDoc.DruckKopie gDruckBestaetigung ON RETURN OF tViperDoc.DruckKopie IN FRAME gDruckBestaetigung /* Kopie durch Drucker ? */ DO: APPLY 'TAB' TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME tViperDoc.lCreatePDF &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tViperDoc.lCreatePDF gDruckBestaetigung ON RETURN OF tViperDoc.lCreatePDF IN FRAME gDruckBestaetigung /* PDF erstellen ? */ DO: APPLY 'TAB' TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME tViperDoc.lDokDruck &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tViperDoc.lDokDruck gDruckBestaetigung ON RETURN OF tViperDoc.lDokDruck IN FRAME gDruckBestaetigung /* Papierdruck ? */ DO: APPLY 'TAB' TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME tViperDoc.lOpenPDF &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tViperDoc.lOpenPDF gDruckBestaetigung ON RETURN OF tViperDoc.lOpenPDF IN FRAME gDruckBestaetigung /* PDF öffnen ? */ DO: APPLY 'TAB' TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME tViperDoc.Schacht_Besr &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tViperDoc.Schacht_Besr gDruckBestaetigung ON LEAVE OF tViperDoc.Schacht_Besr IN FRAME gDruckBestaetigung /* Schacht Besr */ DO: APPLY 'ENTRY' TO Btn_OK. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK gDruckBestaetigung /* *************************** Main Block *************************** */ opcResult = ''. CREATE tParam. htParam:BUFFER-COPY(iphParam). { incl/dlgmainblock.i } /* {src/adm2/dialogmn.i} */ /********************************************************************* * Copyright (C) 2000 by Progress Software Corporation. All rights * * reserved. Prior versions of this work may contain portions * * contributed by participants of Possenet. * * * *********************************************************************/ /* Main Block code for ADM2 SmartDialogs. Checks to be sure the Dialog Box has not been run persistent; creates any SmartObjects contained in the Dialog Box; sets up standard Dialog initialization and termination. */ DEFINE VARIABLE iStartPage AS INTEGER NO-UNDO. IF THIS-PROCEDURE:PERSISTENT THEN DO: MESSAGE "A SmartDialog is not intended to be run " + CHR(10) + "Persistent or to be placed in another ":U + CHR(10) + "SmartObject at AppBuilder design time." VIEW-AS ALERT-BOX ERROR. RUN disable_UI. DELETE PROCEDURE THIS-PROCEDURE. RETURN. END. /* Parent the dialog-box to the ACTIVE-WINDOW, if there is no parent. */ IF VALID-HANDLE(ACTIVE-WINDOW) AND FRAME {&FRAME-NAME}:PARENT EQ ? THEN FRAME {&FRAME-NAME}:PARENT = ACTIVE-WINDOW. RUN createObjects. /* Now enable the interface and wait for the exit condition. */ /* (NOTE: handle ERROR and END-KEY so cleanup code will always fire. */ MAIN-BLOCK: DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK: RUN initializeObject. IF tParam.lBatch THEN DO: btnOK = TRUE. RUN ENDE. RETURN NO-APPLY. END. WAIT-FOR GO OF FRAME {&FRAME-NAME} {&FOCUS-Phrase}. END. RUN destroyObject. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gDruckBestaetigung _ADM-CREATE-OBJECTS PROCEDURE adm-create-objects : /*------------------------------------------------------------------------------ Purpose: Create handles for all SmartObjects used in this procedure. After SmartObjects are initialized, then SmartLinks are added. Parameters: ------------------------------------------------------------------------------*/ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI gDruckBestaetigung _DEFAULT-DISABLE PROCEDURE disable_UI : /*------------------------------------------------------------------------------ Purpose: DISABLE the User Interface Parameters: Notes: Here we clean-up the user-interface by deleting dynamic widgets we have created and/or hide frames. This procedure is usually called when we are ready to "clean-up" after running. ------------------------------------------------------------------------------*/ /* Hide all frames. */ HIDE FRAME gDruckBestaetigung. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject gDruckBestaetigung PROCEDURE enableObject : /*------------------------------------------------------------------------------*/ /* Purpose: Super Override */ /* Parameters: */ /* Notes: */ /*------------------------------------------------------------------------------*/ DEFINE VARIABLE cString AS CHARACTER NO-UNDO. FIND FIRST tParam. CREATE tViperDoc. FIND ViperDoc NO-LOCK WHERE RECID(ViperDoc) = tParam.iVDRecid. BUFFER-COPY ViperDoc TO tViperDoc. RELEASE ViperDoc. DO WITH FRAME {&FRAME-NAME}: IF NOT tParam.lBatch THEN DO: RUN COMBO_WINDOWSDRUCKER ( CB_Drucker:HANDLE ). CB_Drucker:SCREEN-VALUE = tViperDoc.Drucker NO-ERROR. IF ERROR-STATUS:ERROR OR CB_Drucker:SCREEN-VALUE <> tViperDoc.Drucker THEN DO: CB_Drucker:SCREEN-VALUE = SESSION:PRINTER-NAME NO-ERROR. END. IF ERROR-STATUS:ERROR OR CB_Drucker:SCREEN-VALUE <> SESSION:PRINTER-NAME THEN DO: ENTRY(1, CB_Drucker:LIST-ITEMS, CHR(01)) NO-ERROR. END. END. END. { incl/dlgenableobject.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gDruckBestaetigung _DEFAULT-ENABLE PROCEDURE enable_UI : /*------------------------------------------------------------------------------ Purpose: ENABLE the User Interface Parameters: Notes: Here we display/view/enable the widgets in the user-interface. In addition, OPEN all queries associated with each FRAME and BROWSE. These statements here are based on the "Other Settings" section of the widget Property Sheets. ------------------------------------------------------------------------------*/ DISPLAY CB_Drucker WITH FRAME gDruckBestaetigung. IF AVAILABLE tViperDoc THEN DISPLAY tViperDoc.DruckKopie tViperDoc.Formular tViperDoc.lDokDruck tViperDoc.lCreatePDF tViperDoc.lOpenPDF tViperDoc.Anzahl tViperDoc.Schacht_Original tViperDoc.Benutzer tViperDoc.Programm tViperDoc.Schacht_Kopie tViperDoc.Schacht_Besr WITH FRAME gDruckBestaetigung. ENABLE Btn_OK CB_Drucker tViperDoc.DruckKopie tViperDoc.Formular tViperDoc.lDokDruck tViperDoc.lCreatePDF tViperDoc.lOpenPDF tViperDoc.Anzahl tViperDoc.Schacht_Original tViperDoc.Benutzer tViperDoc.Programm tViperDoc.Schacht_Kopie tViperDoc.Schacht_Besr Btn_Cancel RECT-2 WITH FRAME gDruckBestaetigung. VIEW FRAME gDruckBestaetigung. {&OPEN-BROWSERS-IN-QUERY-gDruckBestaetigung} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE gDruckBestaetigung PROCEDURE ENDE : /*------------------------------------------------------------------------------*/ /* Purpose: Super Override */ /* Parameters: */ /* Notes: */ /*------------------------------------------------------------------------------*/ IF btnOK THEN DO WITH FRAME {&FRAME-NAME}: FIND FIRST tParam . IF NOT tParam.lBatch THEN DO: ASSIGN {&List-6}. tViperDoc.Drucker = CB_Drucker:SCREEN-VALUE. tParam.Drucker = CB_Drucker:SCREEN-VALUE. IF T_Alle THEN DO: tParam.iVonKnr = 1. tParam.iBisKnr = 999999. tParam.lVonBis = TRUE. tParam.dVonDatum = dGlobLiefDat. tParam.dBisDatum = dGlobLiefDat. END. END. opcResult = 'OK'. BUFFER-COPY tViperDoc TO tParam. iphParam:BUFFER-COPY(htParam). END. { incl/dlgende.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject gDruckBestaetigung PROCEDURE initializeObject : /*------------------------------------------------------------------------------*/ /* Purpose: Super Override */ /* Parameters: */ /* Notes: */ /*------------------------------------------------------------------------------*/ DEFINE VARIABLE cString AS CHARACTER NO-UNDO. FIND FIRST tParam. DO WITH FRAME {&FRAME-NAME}: DO WHILE tParam.cInstall = 'realwines': FIND Aufko NO-LOCK WHERE Aufko.Firma = Firma AND Aufko.Aufnr = tParam.iAufnr NO-ERROR. IF NOT AVAILABLE Aufko THEN LEAVE. IF Aufko.Ku_Grp <> 03 THEN DO: T_Alle:SENSITIVE = FALSE. T_Alle:HIDDEN = TRUE. LEAVE. END. T_Alle:HIDDEN = FALSE. T_Alle:SENSITIVE = TRUE. cString = T_Alle:LABEL. FIND Adresse NO-LOCK WHERE Adresse.Firma = AdFirma AND Adresse.Knr = Aufko.Fak_Knr. T_Alle:LABEL = SUBSTITUTE(cString, Aufko.Ku_Grp, STRING(Aufko.Lief_Datum,'99.99.9999') ). dGlobLiefDat = Aufko.Lief_Datum. LEAVE. END. END. RUN SUPER. /* Code placed here will execute AFTER standard behavior. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME