&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2 &ANALYZE-RESUME &Scoped-define WINDOW-NAME CURRENT-WINDOW &Scoped-define FRAME-NAME gddUmsaetze {adecomm/appserv.i} &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gddUmsaetze /*------------------------------------------------------------------------ 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 --- */ { properties.i } /* Local Variable Definitions --- */ DEFINE VARIABLE dvonDatum AS DATE NO-UNDO. DEFINE VARIABLE dbisDatum AS DATE NO-UNDO. DEFINE VARIABLE lTest AS LOGICAL NO-UNDO INIT TRUE . DEFINE VARIABLE iParent AS INT64 NO-UNDO INITIAL 0. DEFINE VARIABLE cOperation AS CHARACTER NO-UNDO INITIAL "open". DEFINE VARIABLE cUrl AS CHARACTER NO-UNDO INITIAL "". DEFINE VARIABLE cCommand AS CHARACTER NO-UNDO INITIAL "". DEFINE VARIABLE cDirectory AS CHARACTER NO-UNDO INITIAL "". DEFINE VARIABLE iWindowStyle AS INT64 NO-UNDO INITIAL 1. DEFINE VARIABLE hInstance AS INTEGER NO-UNDO. { incl/dlgdefinition.i } DEFINE TEMP-TABLE tParam FIELD dvonDatum AS DATE FIELD dbisDatum AS DATE FIELD iHerst AS INTEGER FIELD iLieferant AS INTEGER FIELD cWgr AS CHARACTER FIELD lAbschluss AS LOGICAL FIELD lTest AS LOGICAL . DEFINE VARIABLE htParam AS HANDLE NO-UNDO. htParam = TEMP-TABLE tParam:DEFAULT-BUFFER-HANDLE. { 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 gddUmsaetze /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS RECT-2 F_vonDatum F_bisDatum CB_Hersteller ~ CB_Lieferant F_Wgr T_Abschluss T_Test Btn_OK Btn_Cancel &Scoped-Define DISPLAYED-OBJECTS F_vonDatum F_bisDatum CB_Hersteller ~ CB_Lieferant F_Wgr T_Abschluss T_Test /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 F_vonDatum F_bisDatum CB_Hersteller CB_Lieferant ~ F_Wgr T_Abschluss T_Test /* _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 45 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 45 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_bisDatum AS DATE FORMAT "99.99.9999":U LABEL "-" VIEW-AS FILL-IN NATIVE SIZE 16 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_vonDatum AS DATE FORMAT "99.99.9999":U LABEL "von - bis Datum" VIEW-AS FILL-IN NATIVE SIZE 16 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Wgr AS CHARACTER FORMAT "X(256)":U LABEL "Warengruppen" VIEW-AS FILL-IN NATIVE SIZE 45 BY 1 TOOLTIP "Linke Maus Doppelklick = Auswahl Warengruppen" BGCOLOR 15 NO-UNDO. DEFINE RECTANGLE RECT-2 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 72 BY 7.14. DEFINE VARIABLE T_Abschluss AS LOGICAL INITIAL no LABEL "Abschliessen" VIEW-AS TOGGLE-BOX SIZE 20 BY 1 NO-UNDO. DEFINE VARIABLE T_Test AS LOGICAL INITIAL no LABEL "Uebertragung/Abschluss als Test" VIEW-AS TOGGLE-BOX SIZE 40 BY 1 NO-UNDO. /* ************************ Frame Definitions *********************** */ DEFINE FRAME gddUmsaetze F_vonDatum AT ROW 2 COL 21 COLON-ALIGNED WIDGET-ID 16 F_bisDatum AT ROW 2 COL 42 COLON-ALIGNED WIDGET-ID 18 CB_Hersteller AT ROW 3 COL 21 COLON-ALIGNED WIDGET-ID 8 CB_Lieferant AT ROW 4 COL 21 COLON-ALIGNED WIDGET-ID 10 F_Wgr AT ROW 5 COL 21 COLON-ALIGNED WIDGET-ID 20 T_Abschluss AT ROW 6 COL 23 WIDGET-ID 22 T_Test AT ROW 7 COL 23 WIDGET-ID 24 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 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 gddUmsaetze /* ************************* 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 gddUmsaetze FRAME-NAME */ ASSIGN FRAME gddUmsaetze:SCROLLABLE = FALSE FRAME gddUmsaetze:HIDDEN = TRUE. /* SETTINGS FOR COMBO-BOX CB_Hersteller IN FRAME gddUmsaetze 6 */ /* SETTINGS FOR COMBO-BOX CB_Lieferant IN FRAME gddUmsaetze 6 */ /* SETTINGS FOR FILL-IN F_bisDatum IN FRAME gddUmsaetze 6 */ /* SETTINGS FOR FILL-IN F_vonDatum IN FRAME gddUmsaetze 6 */ /* SETTINGS FOR FILL-IN F_Wgr IN FRAME gddUmsaetze 6 */ /* SETTINGS FOR TOGGLE-BOX T_Abschluss IN FRAME gddUmsaetze 6 */ /* SETTINGS FOR TOGGLE-BOX T_Test IN FRAME gddUmsaetze 6 */ /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK DIALOG-BOX gddUmsaetze /* Query rebuild information for DIALOG-BOX gddUmsaetze _Options = "SHARE-LOCK" _Query is NOT OPENED */ /* DIALOG-BOX gddUmsaetze */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME gddUmsaetze &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gddUmsaetze gddUmsaetze ON END-ERROR OF FRAME gddUmsaetze /* Auswertung Coca Cola */ DO: RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gddUmsaetze gddUmsaetze ON WINDOW-CLOSE OF FRAME gddUmsaetze /* 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 gddUmsaetze ON CHOOSE OF Btn_Cancel IN FRAME gddUmsaetze /* 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 gddUmsaetze ON CHOOSE OF Btn_OK IN FRAME gddUmsaetze /* 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 cWgr AS CHARACTER NO-UNDO. DEFINE VARIABLE iWgr AS INTEGER NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE iRetVal AS INTEGER NO-UNDO. DEFINE VARIABLE cProgName AS CHARACTER NO-UNDO. DEFINE VARIABLE cConString AS CHARACTER NO-UNDO. DEFINE VARIABLE hServer AS HANDLE NO-UNDO. DO WITH FRAME {&FRAME-NAME}: ASSIGN {&List-6}. cString = ''. cWgr = REPLACE(F_Wgr, ';', ','). DO ii = 1 TO NUM-ENTRIES(cWgr, ','): iWgr = INTEGER(ENTRY(ii, cWgr, ',')) NO-ERROR. IF ERROR-STATUS:ERROR THEN NEXT. cString = cString + (IF cString = '' THEN '' ELSE ',') + STRING(iWgr,'999'). END. cWgr = cString. F_Wgr = cWgr. PUT-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U)) KEY 'Hersteller' VALUE CB_Hersteller:SCREEN-VALUE NO-ERROR. PUT-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U)) KEY 'Lieferant' VALUE CB_Lieferant:SCREEN-VALUE NO-ERROR. FIND FIRST tParam. ASSIGN tParam.dvonDatum = F_vonDatum tParam.dbisDatum = F_bisDatum tParam.iHerst = INTEGER(CB_Hersteller:SCREEN-VALUE) tParam.iLieferant = INTEGER(CB_Lieferant :SCREEN-VALUE) tParam.cWgr = F_Wgr tParam.lAbschluss = T_Abschluss tParam.lTest = T_Test. DYNAMIC-FUNCTION ('setDDAbsatzFehlwerte':U, INPUT htParam) NO-ERROR. END. 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). cWgr = F_Wgr. dvonDatum = F_vonDatum. dbisDatum = F_bisDatum. cConString = SUBSTITUTE('-AppService &1 -H &2 -S &3 -sessionModel session-free', cERPAppServer, cERPServer, cNSPort ). CREATE SERVER hServer. hServer:CONNECT(cConString) NO-ERROR. IF NOT hServer:CONNECTED() THEN DO: MESSAGE 'Kein AppServer für asERP' SKIP 'Connect-String -> ' cConString VIEW-AS ALERT-BOX. RETURN. END. RUN ddabsatzzahlen.p ON hServer ( dvonDatum, dbisDatum, iHerst, iLieferant, cWgr, T_Abschluss, T_Test ). hServer:DISCONNECT(). DELETE OBJECT hServer NO-ERROR. cURL = DYNAMIC-FUNCTION('getLogFilePfad':U) + SUBSTITUTE('ddabsatzzahlen&1', STRING(TODAY,'99999999')) + '.log'. cProgName = SEARCH('super/openWithDefaultApp.p'). IF cProgName = ? THEN cProgName = SEARCH('super/openWithDefaultApp.r'). IF cProgName <> ? THEN DO: RUN VALUE (cProgName) (iParent, cOperation, cURL, cCommand, cDirectory, iWindowStyle, OUTPUT iRetVal ). END. 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 gddUmsaetze ON RETURN OF CB_Hersteller IN FRAME gddUmsaetze /* Hersteller */ DO: APPLY 'TAB' TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Hersteller gddUmsaetze ON VALUE-CHANGED OF CB_Hersteller IN FRAME gddUmsaetze /* 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. RUN COMBO_LIEFERANT ( iHerst ) NO-ERROR. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_Lieferant &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Lieferant gddUmsaetze ON RETURN OF CB_Lieferant IN FRAME gddUmsaetze /* Lieferant */ DO: APPLY 'TAB' TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Wgr &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Wgr gddUmsaetze ON LEFT-MOUSE-DBLCLICK OF F_Wgr IN FRAME gddUmsaetze /* Warengruppen */ DO: RUN g-auswahl-wgr.w ( F_Wgr:HANDLE ) NO-ERROR. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK gddUmsaetze /* *************************** 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 gddUmsaetze _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_HERSTELLER gddUmsaetze PROCEDURE COMBO_HERSTELLER : /*------------------------------------------------------------------------------*/ /* Purpose: */ /* Parameters: */ /* Notes: */ /*------------------------------------------------------------------------------*/ DEFINE VARIABLE cRecArt AS CHARACTER NO-UNDO INIT 'HERST'. DEFINE VARIABLE cCodeC AS CHARACTER NO-UNDO INIT ''. DEFINE VARIABLE iCodeI AS INTEGER NO-UNDO INIT 0. DEFINE VARIABLE iSprcd AS INTEGER NO-UNDO INIT 1. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. FOR EACH Tabel NO-LOCK USE-INDEX Tabel-k2 WHERE Tabel.Firma = Firma AND Tabel.Recart = cRecArt AND Tabel.CodeI > 0 AND Tabel.Sprcd = iSprcd AND Tabel.Bez2 <> '': IF SUBSTRING(Tabel.Bez2,01,01) < '0' OR SUBSTRING(Tabel.Bez2,01,01) > '9' THEN NEXT. cString = cString + (IF cString = '' THEN '' ELSE ';') + Tabel.Bez1 + SUBSTITUTE(' (&1);', TRIM(STRING(Tabel.CodeI,'>>>>>9'))) + STRING(Tabel.CodeI,'999999') . END. cString = cString + (IF cString = '' THEN '' ELSE ';') + 'Alle Hersteller (999999);999999' . DO WITH FRAME {&FRAME-NAME}: CB_Hersteller:DELIMITER = ';'. CB_Hersteller:LIST-ITEM-PAIRS = cString. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE COMBO_LIEFERANT gddUmsaetze PROCEDURE COMBO_LIEFERANT : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER ipHerst AS INTEGER NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. cString = ''. IF ipHerst = 999999 THEN DO: FOR EACH Liefst NO-LOCK WHERE Liefst.Firma = Firma AND Liefst.GLN_Nr1 > '', FIRST Adresse NO-LOCK WHERE Adresse.Firma = AdFirma AND Adresse.Knr = Liefst.Knr AND Adresse.Aktiv = TRUE : cString = cString + (IF cString = '' THEN '' ELSE ';') + Adresse.Anzeig_br + SUBSTITUTE(' (&1);', STRING(Adresse.Knr,'999999')) + STRING(Adresse.Knr,'999999') . END. cString = cString + (IF cString = '' THEN '' ELSE ';') + 'Alle Lieferanten (999999);999999'. END. ELSE DO: 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, FIRST Liefst NO-LOCK WHERE Liefst.Firma = Artlief.Firma AND Liefst.Knr = ArtLief.Knr AND Liefst.GLN_Nr1 > '' 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 ';') + Adresse.Anzeig_br + SUBSTITUTE(' (&1);', STRING(Adresse.Knr,'999999')) + STRING(Adresse.Knr,'999999') . END. cString = cString + (IF cString = '' THEN '' ELSE ';') + 'Alle Lieferanten;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 gddUmsaetze _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 gddUmsaetze. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject gddUmsaetze 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. DO WITH FRAME {&FRAME-NAME}: RUN COMBO_HERSTELLER IN THIS-PROCEDURE NO-ERROR. GET-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U)) KEY 'Hersteller' VALUE cHerst. IF cHerst = '' OR cHerst = ? THEN cHerst = '999999'. iHerst = INTEGER(cHerst). CB_Hersteller:SCREEN-VALUE = cHerst NO-ERROR. GET-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U)) KEY 'Lieferant' VALUE cLieferant. IF cLieferant = '' OR cLieferant = ? THEN cLieferant = '999999'. iLieferant = INTEGER(cLieferant). CB_Lieferant:SCREEN-VALUE = cLieferant NO-ERROR. EMPTY TEMP-TABLE tParam. CREATE tParam. ASSIGN tParam.iHerst = iHerst tParam.iLieferant = iLieferant. DYNAMIC-FUNCTION ('getDDAbsatzFehlwerte':U, INPUT-OUTPUT htParam) NO-ERROR. ASSIGN F_vonDatum = tParam.dvonDatum F_bisDatum = tParam.dbisDatum CB_Hersteller:SCREEN-VALUE = STRING(tParam.iHerst ,'999999') CB_Lieferant :SCREEN-VALUE = STRING(tParam.iLieferant,'999999') F_Wgr = tParam.cWgr T_Abschluss = tParam.lAbschluss T_Test = tParam.lTest NO-ERROR. iHerst = INTEGER(cHerst) NO-ERROR. RUN COMBO_LIEFERANT ( iHerst ). FIND FIRST tParam. CB_Lieferant:SCREEN-VALUE = STRING(tParam.iLieferant,'999999') NO-ERROR. iLieferant = tParam.iLieferant. END. { incl/dlgenableobject.i } DO WITH FRAME {&FRAME-NAME}: END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gddUmsaetze _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 F_vonDatum F_bisDatum CB_Hersteller CB_Lieferant F_Wgr T_Abschluss T_Test WITH FRAME gddUmsaetze. ENABLE RECT-2 F_vonDatum F_bisDatum CB_Hersteller CB_Lieferant F_Wgr T_Abschluss T_Test Btn_OK Btn_Cancel WITH FRAME gddUmsaetze. VIEW FRAME gddUmsaetze. {&OPEN-BROWSERS-IN-QUERY-gddUmsaetze} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE gddUmsaetze PROCEDURE ENDE : /*------------------------------------------------------------------------------ Purpose: 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 gddUmsaetze PROCEDURE initializeObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ /* Code placed here will execute PRIOR to standard behavior. */ RUN SUPER. DO WITH FRAME {&FRAME-NAME}: END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME