&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2 &ANALYZE-RESUME &Scoped-define WINDOW-NAME CURRENT-WINDOW &Scoped-define FRAME-NAME gCocaCola {adecomm/appserv.i} &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gCocaCola /*------------------------------------------------------------------------ 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 --- */ /* Local Variable Definitions --- */ DEFINE VARIABLE iVersion AS INTEGER NO-UNDO. DEFINE VARIABLE cParam AS CHARACTER NO-UNDO EXTENT. /*{ propertiescocacola.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 gCocaCola /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS RECT-2 CB_Version CB_Jahr F_abDatum CB_Monat ~ CB_Hersteller CB_Lieferant F_SalerID F_Datei Btn_OK Btn_Cancel &Scoped-Define DISPLAYED-OBJECTS CB_Version CB_Jahr F_abDatum CB_Monat ~ CB_Hersteller CB_Lieferant F_SalerID F_Datei /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 CB_Version CB_Jahr F_abDatum CB_Monat CB_Hersteller ~ CB_Lieferant F_SalerID F_Datei /* _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_Hersteller AS CHARACTER FORMAT "X(256)":U LABEL "Hersteller" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 44 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Jahr AS CHARACTER FORMAT "x(04)":U LABEL "Jahr" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEMS "0" DROP-DOWN-LIST SIZE 11 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Lieferant AS CHARACTER FORMAT "X(256)":U LABEL "Lieferant" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 44 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Monat AS CHARACTER FORMAT "x(02)":U INITIAL "01" LABEL "Monat" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEMS "01,","02,","03,","04,","05,","06,","07,","08,","09,","10,","11,","12" DROP-DOWN-LIST SIZE 9 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE CB_Version AS INTEGER FORMAT "9":U INITIAL ? LABEL "Version" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Version 1",1, "Version 2",2 DROP-DOWN-LIST SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_abDatum AS DATE FORMAT "99.99.9999":U LABEL "ab Datum" VIEW-AS FILL-IN NATIVE SIZE 16 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Datei AS CHARACTER FORMAT "X(256)":U LABEL "Speicherort" VIEW-AS FILL-IN NATIVE SIZE 43.6 BY 1 TOOLTIP "CTRL-F1 = Inhalt beschreibbar machen" BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_SalerID AS CHARACTER FORMAT "X(256)":U LABEL "ID bei Coca Cola" VIEW-AS FILL-IN NATIVE SIZE 24 BY 1 TOOLTIP "CTRL-F1 = Inhalt beschreibbar machen" BGCOLOR 15 NO-UNDO. DEFINE RECTANGLE RECT-2 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 72 BY 7.14. /* ************************ Frame Definitions *********************** */ DEFINE FRAME gCocaCola CB_Version AT ROW 2 COL 21 COLON-ALIGNED WIDGET-ID 16 CB_Jahr AT ROW 3 COL 21 COLON-ALIGNED WIDGET-ID 4 F_abDatum AT ROW 3 COL 21 COLON-ALIGNED WIDGET-ID 18 CB_Monat AT ROW 3 COL 41 COLON-ALIGNED WIDGET-ID 6 CB_Hersteller AT ROW 4 COL 21 COLON-ALIGNED WIDGET-ID 8 CB_Lieferant AT ROW 5 COL 21 COLON-ALIGNED WIDGET-ID 10 F_SalerID AT ROW 6 COL 21 COLON-ALIGNED WIDGET-ID 12 F_Datei AT ROW 7 COL 21 COLON-ALIGNED WIDGET-ID 14 Btn_OK AT ROW 9 COL 15.8 Btn_Cancel AT ROW 9 COL 48.6 RECT-2 AT ROW 1.48 COL 3 WIDGET-ID 2 SPACE(1.99) SKIP(2.18) WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE BGCOLOR 15 TITLE "Auswertung Coca Cola" 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 */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gCocaCola /* ************************* 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 gCocaCola FRAME-NAME */ ASSIGN FRAME gCocaCola:SCROLLABLE = FALSE FRAME gCocaCola:HIDDEN = TRUE. /* SETTINGS FOR COMBO-BOX CB_Hersteller IN FRAME gCocaCola 6 */ /* SETTINGS FOR COMBO-BOX CB_Jahr IN FRAME gCocaCola 6 */ /* SETTINGS FOR COMBO-BOX CB_Lieferant IN FRAME gCocaCola 6 */ /* SETTINGS FOR COMBO-BOX CB_Monat IN FRAME gCocaCola 6 */ /* SETTINGS FOR COMBO-BOX CB_Version IN FRAME gCocaCola 6 */ /* SETTINGS FOR FILL-IN F_abDatum IN FRAME gCocaCola 6 */ /* SETTINGS FOR FILL-IN F_Datei IN FRAME gCocaCola 6 */ /* SETTINGS FOR FILL-IN F_SalerID IN FRAME gCocaCola 6 */ /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK DIALOG-BOX gCocaCola /* Query rebuild information for DIALOG-BOX gCocaCola _Options = "SHARE-LOCK" _Query is NOT OPENED */ /* DIALOG-BOX gCocaCola */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME gCocaCola &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gCocaCola gCocaCola ON END-ERROR OF FRAME gCocaCola /* Auswertung Coca Cola */ DO: RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gCocaCola gCocaCola ON WINDOW-CLOSE OF FRAME gCocaCola /* Auswertung Coca Cola */ 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 gCocaCola ON CHOOSE OF Btn_Cancel IN FRAME gCocaCola /* 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 gCocaCola ON CHOOSE OF Btn_OK IN FRAME gCocaCola /* OK */ DO: DEFINE VARIABLE dvonDatum AS DATE NO-UNDO. DEFINE VARIABLE dbisDatum AS DATE NO-UNDO. DEFINE VARIABLE iHerst AS INTEGER NO-UNDO. DEFINE VARIABLE iLieferant AS INTEGER NO-UNDO. DEFINE VARIABLE iPos AS INTEGER NO-UNDO. DEFINE VARIABLE cPfad AS CHARACTER NO-UNDO. DO WITH FRAME {&FRAME-NAME}: PUT-KEY-VALUE SECTION 'CocaCola' KEY 'Version' VALUE CB_Version:SCREEN-VALUE NO-ERROR. PUT-KEY-VALUE SECTION 'CocaCola' KEY 'Hersteller' VALUE CB_Hersteller:SCREEN-VALUE NO-ERROR. PUT-KEY-VALUE SECTION 'CocaCola' KEY 'Lieferant' VALUE CB_Lieferant:SCREEN-VALUE NO-ERROR. PUT-KEY-VALUE SECTION 'CocaCola' KEY 'Pfad' VALUE F_Datei:SCREEN-VALUE NO-ERROR. PUT-KEY-VALUE SECTION 'CocaCola' KEY 'SalerID' VALUE F_SalerID:SCREEN-VALUE. ASSIGN {&List-6}. END. F_Datei = REPLACE(REPLACE(F_Datei, '\', '/'), '//', '/'). cPfad = SUBSTRING(F_Datei, 1, R-INDEX(F_Datei, '/') - 1). FILE-INFO:FILE-NAME = cPfad. IF FILE-INFO:PATHNAME = ? OR FILE-INFO:PATHNAME = '' OR INDEX(FILE-INFO:FILE-TYPE, 'D') = 0 THEN DO: MESSAGE 'Dateiname ungültig! ' VIEW-AS ALERT-BOX. F_Datei:READ-ONLY = FALSE. APPLY 'ENTRY' TO F_Datei. RETURN NO-APPLY. END. cPfad = FILE-INFO:PATHNAME + '/'. btnOK = TRUE. SESSION:SET-WAIT-STATE('GENERAL'). Btn_OK :SENSITIVE = FALSE. Btn_Cancel:SENSITIVE = FALSE. iHerst = INTEGER(CB_Hersteller:SCREEN-VALUE). iLieferant = INTEGER(CB_Lieferant :SCREEN-VALUE). dvonDatum = DATE(INTEGER(CB_Monat:SCREEN-VALUE),01,INTEGER(CB_Jahr:SCREEN-VALUE)). dbisDatum = DATE(INTEGER(CB_Monat:SCREEN-VALUE),28,INTEGER(CB_Jahr:SCREEN-VALUE)). DO WHILE TRUE: IF MONTH(dbisDatum) <> MONTH(dbisDatum + 1) THEN LEAVE. dbisdatum = dbisDatum + 1. END. CASE iVersion: WHEN 1 THEN DO: RUN cocacola.p ( Firma , F_SalerID , iHerst , iLieferant, dvonDatum, dbisDatum , F_Datei ). END. WHEN 2 THEN DO: EXTENT(cParam) = 6. ASSIGN cParam[01] = Firma cParam[02] = F_SalerID cParam[03] = STRING(iHerst) cParam[04] = STRING(iLieferant) cParam[05] = STRING(F_abDatum,'99.99.9999') cParam[06] = F_Datei. RUN cocacola_v2.p ( INPUT cParam ). END. END CASE. SESSION:SET-WAIT-STATE(''). Btn_OK :SENSITIVE = TRUE. Btn_Cancel:SENSITIVE = TRUE. RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Hersteller &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Hersteller gCocaCola ON VALUE-CHANGED OF CB_Hersteller IN FRAME gCocaCola /* Hersteller */ DO: DEFINE VARIABLE iHerst AS INTEGER NO-UNDO. iHerst = INTEGER(SELF:SCREEN-VALUE). RUN COMBO_LIEFERANT ( iHerst ). CB_Lieferant:SCREEN-VALUE = ENTRY(2, CB_Lieferant:LIST-ITEM-PAIRS, ';') NO-ERROR. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Version &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Version gCocaCola ON VALUE-CHANGED OF CB_Version IN FRAME gCocaCola /* Version */ DO: iVersion = INTEGER(CB_Version:SCREEN-VALUE). IF iVersion = ? THEN iVersion = 0. CASE iVersion: WHEN 1 THEN DO: CB_Jahr :HIDDEN = FALSE. CB_Monat :HIDDEN = FALSE. F_abDatum:HIDDEN = TRUE . F_abDatum = ?. DISPLAY F_abDatum. END. WHEN 2 THEN DO: CB_Jahr :HIDDEN = TRUE . CB_Monat :HIDDEN = TRUE . F_abDatum:HIDDEN = FALSE. F_abDatum = TODAY - 31. DISPLAY F_abDatum WITH FRAME {&FRAME-NAME}. END. END CASE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Datei &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Datei gCocaCola ON CTRL-F1 OF F_Datei IN FRAME gCocaCola /* Speicherort */ DO: SELF:READ-ONLY = FALSE. APPLY 'ENTRY' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Datei gCocaCola ON RIGHT-MOUSE-CLICK OF F_Datei IN FRAME gCocaCola /* Speicherort */ DO: DEFINE VARIABLE cPfad AS CHARACTER NO-UNDO. SYSTEM-DIALOG GET-DIR cPfad INITIAL-DIR F_Datei:SCREEN-VALUE TITLE 'Speicherort für die XML-Datei'. cPfad = REPLACE(REPLACE(cPfad + '/CocaCola.xml', '\', '/'), '//', '/'). F_Datei:SCREEN-VALUE = cPfad. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_SalerID &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_SalerID gCocaCola ON CTRL-F1 OF F_SalerID IN FRAME gCocaCola /* ID bei Coca Cola */ DO: SELF:READ-ONLY = FALSE. APPLY 'ENTRY' TO SELF. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK gCocaCola /* *************************** Main Block *************************** */ { incl/dlgmainblock.i } {src/adm2/dialogmn.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gCocaCola _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 COMBO_LIEFERANT gCocaCola PROCEDURE COMBO_LIEFERANT : /*------------------------------------------------------------------------------*/ /* Purpose: Super Override */ /* Parameters: */ /* Notes: */ /*------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER ipHerst AS INTEGER NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. cString = ''. FOR EACH Artst NO-LOCK WHERE Artst.Firma = Firma AND Artst.Aktiv = TRUE AND Artst.Herst = ipHerst, EACH ArtLief NO-LOCK WHERE ArtLief.Firma = Artst.Firma AND ArtLief.Artnr = Artst.Artnr AND ArtLief.Inhalt = Artst.Inhalt AND ArtLief.Jahr = Artst.Jahr BREAK BY ArtLief.Knr: IF NOT FIRST-OF ( ArtLief.Knr ) THEN NEXT. FIND Adresse NO-LOCK WHERE Adresse.Firma = AdFirma AND Adresse.Knr = ArtLief.Knr. cString = cString + (IF cString = '' THEN '' ELSE ';') + STRING(Adresse.Knr,'999999 ') + Adresse.Anzeig_br + ';' + STRING(Adresse.Knr,'999999'). END. DO WITH FRAME {&FRAME-NAME}: CB_Lieferant:DELIMITER = ';'. CB_Lieferant:LIST-ITEM-PAIRS = cString. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI gCocaCola _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 gCocaCola. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject gCocaCola PROCEDURE enableObject : /*------------------------------------------------------------------------------*/ /* Purpose: Super Override */ /* Parameters: */ /* Notes: */ /*------------------------------------------------------------------------------*/ DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE VARIABLE cHerst AS CHARACTER NO-UNDO. DEFINE VARIABLE iHerst AS INTEGER NO-UNDO. DEFINE VARIABLE cLieferant AS CHARACTER NO-UNDO. DEFINE VARIABLE iLieferant AS INTEGER NO-UNDO. DEFINE VARIABLE cPfad AS CHARACTER NO-UNDO. DEFINE VARIABLE cSalerID AS CHARACTER NO-UNDO. GET-KEY-VALUE SECTION 'CocaCola' KEY 'Version' VALUE cString. IF cString = ? THEN cString = ''. IF cString = '' THEN cString = '1'. iVersion = INTEGER(cString) NO-ERROR. IF ERROR-STATUS:ERROR THEN iVersion = 1. GET-KEY-VALUE SECTION 'CocaCola' KEY 'Hersteller' VALUE cHerst. IF cHerst = ? THEN cHerst = ''. GET-KEY-VALUE SECTION 'CocaCola' KEY 'Lieferant' VALUE cLieferant. IF cLieferant = ? THEN cLieferant = ''. GET-KEY-VALUE SECTION 'CocaCola' KEY 'Pfad' VALUE cPfad. IF cPfad = ? THEN cPfad = ''. IF iVersion = 1 THEN DO: IF cPfad <> '' THEN cPfad = REPLACE(cPfad, '/CocaCola.xml', ''). cPfad = REPLACE(REPLACE(cPfad + '/CocaCola.xml', '\', '/'), '//', '/'). END. GET-KEY-VALUE SECTION 'CocaCola' KEY 'SalerID' VALUE cSalerID. IF cSalerID = ? THEN cSalerID = ''. DO WITH FRAME {&FRAME-NAME}: CB_Version:SCREEN-VALUE = STRING(iVersion,'9'). cString = ''. FOR EACH Tabel NO-LOCK WHERE Tabel.Firma = Firma AND Tabel.RecArt = 'HERST' AND Tabel.CodeC = '' AND Tabel.Sprcd = 1: cString = cString + (IF cString = '' THEN '' ELSE ';') + Tabel.Bez1 + SUBSTITUTE('(&1)', Tabel.CodeI) + ';' + STRING(Tabel.CodeI,'999999'). END. CB_Hersteller:DELIMITER = ';'. CB_Hersteller:LIST-ITEM-PAIRS = cString. IF cHerst = '' THEN cHerst = ENTRY(2, cString, ';'). CB_Hersteller:SCREEN-VALUE = cHerst NO-ERROR. iHerst = INTEGER(cHerst) NO-ERROR. RUN COMBO_LIEFERANT ( iHerst ). iLieferant = INTEGER(cLieferant) NO-ERROR. CB_Lieferant:SCREEN-VALUE = STRING(iLieferant,'999999') NO-ERROR. F_Datei = cPfad. F_SalerID = cSalerID. END. { incl/dlgenableobject.i } DO WITH FRAME {&FRAME-NAME}: APPLY 'VALUE-CHANGED' TO CB_Version. cString = SUBSTITUTE('&1;&2;&3', STRING(YEAR(TODAY) - 2,'9999'), STRING(YEAR(TODAY) - 1,'9999'), STRING(YEAR(TODAY) - 0,'9999')). CB_Jahr:DELIMITER = ';'. CB_Jahr:LIST-ITEMS = cString. CB_Jahr:SCREEN-VALUE = STRING(YEAR(TODAY),'9999') NO-ERROR. CB_Monat:SCREEN-VALUE = STRING(MONTH(TODAY),'99'). END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gCocaCola _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_Version CB_Jahr F_abDatum CB_Monat CB_Hersteller CB_Lieferant F_SalerID F_Datei WITH FRAME gCocaCola. ENABLE RECT-2 CB_Version CB_Jahr F_abDatum CB_Monat CB_Hersteller CB_Lieferant F_SalerID F_Datei Btn_OK Btn_Cancel WITH FRAME gCocaCola. VIEW FRAME gCocaCola. {&OPEN-BROWSERS-IN-QUERY-gCocaCola} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE gCocaCola PROCEDURE ENDE : /*------------------------------------------------------------------------------*/ /* Purpose: Super Override */ /* Parameters: */ /* Notes: */ /*------------------------------------------------------------------------------*/ IF btnOK THEN DO: END. { incl/dlgende.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject gCocaCola PROCEDURE initializeObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ /* Code placed here will execute PRIOR to standard behavior. */ RUN SUPER. DO WITH FRAME {&FRAME-NAME}: IF F_SalerID:SCREEN-VALUE <> '' THEN F_SalerID:READ-ONLY = TRUE. IF F_Datei :SCREEN-VALUE <> '' THEN F_Datei :READ-ONLY = TRUE. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME