&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1 &ANALYZE-RESUME /* Connected Databases anadat PROGRESS */ &Scoped-define WINDOW-NAME CURRENT-WINDOW /* Temp-Table and Buffer definitions */ DEFINE TEMP-TABLE TUmsatz NO-UNDO LIKE Umsatz. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS F-Frame-Win /*------------------------------------------------------------------------ File: Description: from cntnrfrm.w - ADM SmartFrame Template Input Parameters: Output Parameters: ------------------------------------------------------------------------*/ /* This .W file was created with the Progress UIB. */ /*----------------------------------------------------------------------*/ /* 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 --- */ /* ---------- Globale Variablen ---------------------------------- */ { v8/globvar.i" " " " "SHARED" } { v8/debivar.i " " " " "SHARED" } { v8/artivar.i " " " " "SHARED" } { v8/contvar.i " " " " "SHARED" } /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE SmartFrame &Scoped-define DB-AWARE no &Scoped-define ADM-CONTAINER FRAME /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME F-Main &Scoped-define BROWSE-NAME Br_TUmsatz /* Internal Tables (found by Frame, Query & Browse Queries) */ &Scoped-define INTERNAL-TABLES TUmsatz /* Definitions for BROWSE Br_TUmsatz */ &Scoped-define FIELDS-IN-QUERY-Br_TUmsatz TUmsatz.Jahr TUmsatz.Vp_Kum ~ TUmsatz.Vp_Mon[1] TUmsatz.Vp_Mon[2] TUmsatz.Vp_Mon[3] TUmsatz.Vp_Mon[4] ~ TUmsatz.Vp_Mon[5] TUmsatz.Vp_Mon[6] TUmsatz.Vp_Mon[7] TUmsatz.Vp_Mon[8] ~ TUmsatz.Vp_Mon[9] TUmsatz.Vp_Mon[10] TUmsatz.Vp_Mon[11] TUmsatz.Vp_Mon[12] &Scoped-define ENABLED-FIELDS-IN-QUERY-Br_TUmsatz &Scoped-define QUERY-STRING-Br_TUmsatz FOR EACH TUmsatz ~ WHERE TUmsatz.Firma = GVFirma NO-LOCK &Scoped-define OPEN-QUERY-Br_TUmsatz OPEN QUERY Br_TUmsatz FOR EACH TUmsatz ~ WHERE TUmsatz.Firma = GVFirma NO-LOCK. &Scoped-define TABLES-IN-QUERY-Br_TUmsatz TUmsatz &Scoped-define FIRST-TABLE-IN-QUERY-Br_TUmsatz TUmsatz /* Definitions for FRAME F-Main */ /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS RECT-32 Br_TUmsatz RS_Anzeige Bt_Rechnen &Scoped-Define DISPLAYED-OBJECTS RS_Anzeige /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Definitions of the field level widgets */ DEFINE BUTTON Bt_Rechnen LABEL "&Rechnen" SIZE 16.8 BY 1. DEFINE VARIABLE RS_Anzeige AS INTEGER VIEW-AS RADIO-SET VERTICAL RADIO-BUTTONS "Gesamt-Umsatz", 1, "", 2 SIZE 42.2 BY 1.67 NO-UNDO. DEFINE RECTANGLE RECT-32 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 134 BY 16.05. /* Query definitions */ &ANALYZE-SUSPEND DEFINE QUERY Br_TUmsatz FOR TUmsatz SCROLLING. &ANALYZE-RESUME /* Browse definitions */ DEFINE BROWSE Br_TUmsatz &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_TUmsatz F-Frame-Win _STRUCTURED QUERY Br_TUmsatz DISPLAY TUmsatz.Jahr FORMAT "9999":U TUmsatz.Vp_Kum COLUMN-LABEL "VP Jahr" FORMAT "->>,>>>,>>9":U TUmsatz.Vp_Mon[1] COLUMN-LABEL "VP Jan" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[2] COLUMN-LABEL "VP Feb" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[3] COLUMN-LABEL "VP Mar" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[4] COLUMN-LABEL "VP Apr" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[5] COLUMN-LABEL "VP Mai" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[6] COLUMN-LABEL "VP Jun" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[7] COLUMN-LABEL "VP Jul" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[8] COLUMN-LABEL "VP Aug" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[9] COLUMN-LABEL "VP Sep" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[10] COLUMN-LABEL "VP Okt" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[11] COLUMN-LABEL "VP Nov" FORMAT "->>>,>>9":U TUmsatz.Vp_Mon[12] COLUMN-LABEL "VP Dez" FORMAT "->>>,>>9":U /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME WITH NO-ROW-MARKERS SEPARATORS SIZE 132 BY 13.33 BGCOLOR 15 . /* ************************ Frame Definitions *********************** */ DEFINE FRAME F-Main Br_TUmsatz AT ROW 1.48 COL 3 RS_Anzeige AT ROW 15.19 COL 13.8 NO-LABEL Bt_Rechnen AT ROW 15.19 COL 118.2 RECT-32 AT ROW 1.24 COL 2 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY SIDE-LABELS NO-UNDERLINE THREE-D AT COL 1 ROW 1 SCROLLABLE . /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartFrame Allow: Basic,Browse,DB-Fields,Query,Smart Other Settings: PERSISTENT-ONLY COMPILE Temp-Tables and Buffers: TABLE: TUmsatz T "?" NO-UNDO AnaDat Umsatz END-TABLES. */ /* This procedure should always be RUN PERSISTENT. Report the error, */ /* then cleanup and return. */ IF NOT THIS-PROCEDURE:PERSISTENT THEN DO: MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U VIEW-AS ALERT-BOX ERROR BUTTONS OK. RETURN. END. &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW /* DESIGN Window definition (used by the UIB) CREATE WINDOW F-Frame-Win ASSIGN HEIGHT = 16.43 WIDTH = 136. /* END WINDOW DEFINITION */ */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB F-Frame-Win /* ************************* Included-Libraries *********************** */ {src/adm/method/containr.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW F-Frame-Win VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME F-Main NOT-VISIBLE FRAME-NAME Size-to-Fit */ /* BROWSE-TAB Br_TUmsatz RECT-32 F-Main */ ASSIGN FRAME F-Main:SCROLLABLE = FALSE. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_TUmsatz /* Query rebuild information for BROWSE Br_TUmsatz _TblList = "AnaDat.TUmsatz" _Where[1] = "TUmsatz.Firma = GVFirma" _FldNameList[1] = Temp-Tables.TUmsatz.Jahr _FldNameList[2] > Temp-Tables.TUmsatz.Vp_Kum "TUmsatz.Vp_Kum" "VP Jahr" "->>,>>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[3] > Temp-Tables.TUmsatz.Vp_Mon[1] "TUmsatz.Vp_Mon[1]" "VP Jan" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[4] > Temp-Tables.TUmsatz.Vp_Mon[2] "TUmsatz.Vp_Mon[2]" "VP Feb" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[5] > Temp-Tables.TUmsatz.Vp_Mon[3] "TUmsatz.Vp_Mon[3]" "VP Mar" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[6] > Temp-Tables.TUmsatz.Vp_Mon[4] "TUmsatz.Vp_Mon[4]" "VP Apr" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[7] > Temp-Tables.TUmsatz.Vp_Mon[5] "TUmsatz.Vp_Mon[5]" "VP Mai" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[8] > Temp-Tables.TUmsatz.Vp_Mon[6] "TUmsatz.Vp_Mon[6]" "VP Jun" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[9] > Temp-Tables.TUmsatz.Vp_Mon[7] "TUmsatz.Vp_Mon[7]" "VP Jul" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[10] > Temp-Tables.TUmsatz.Vp_Mon[8] "TUmsatz.Vp_Mon[8]" "VP Aug" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[11] > Temp-Tables.TUmsatz.Vp_Mon[9] "TUmsatz.Vp_Mon[9]" "VP Sep" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[12] > Temp-Tables.TUmsatz.Vp_Mon[10] "TUmsatz.Vp_Mon[10]" "VP Okt" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[13] > Temp-Tables.TUmsatz.Vp_Mon[11] "TUmsatz.Vp_Mon[11]" "VP Nov" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _FldNameList[14] > Temp-Tables.TUmsatz.Vp_Mon[12] "TUmsatz.Vp_Mon[12]" "VP Dez" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no _Query is NOT OPENED */ /* BROWSE Br_TUmsatz */ &ANALYZE-RESUME &ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main /* Query rebuild information for FRAME F-Main _Options = "" _Query is NOT OPENED */ /* FRAME F-Main */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME Bt_Rechnen &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Bt_Rechnen F-Frame-Win ON CHOOSE OF Bt_Rechnen IN FRAME F-Main /* Rechnen */ DO: DISABLE Bt_Rechnen WITH FRAME {&FRAME-NAME}. RUN NEU_RECHNEN. RUN OPEN_BROWSER. ENABLE Bt_Rechnen WITH FRAME {&FRAME-NAME}. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define BROWSE-NAME Br_TUmsatz &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK F-Frame-Win /* *************************** Main Block *************************** */ &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN /* Now enable the interface if in test mode - otherwise this happens when the object is explicitly initialized from its container. */ RUN dispatch IN THIS-PROCEDURE ('initialize':U). &ENDIF /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects F-Frame-Win _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 adm-row-available F-Frame-Win _ADM-ROW-AVAILABLE PROCEDURE adm-row-available : /*------------------------------------------------------------------------------ Purpose: Dispatched to this procedure when the Record- Source has a new row available. This procedure tries to get the new row (or foriegn keys) from the Record-Source and process it. Parameters: ------------------------------------------------------------------------------*/ /* Define variables needed by this internal procedure. */ {src/adm/template/row-head.i} /* Process the newly available records (i.e. display fields, open queries, and/or pass records on to any RECORD-TARGETS). */ {src/adm/template/row-end.i} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI F-Frame-Win _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 F-Main. IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI F-Frame-Win _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 RS_Anzeige WITH FRAME F-Main. ENABLE RECT-32 Br_TUmsatz RS_Anzeige Bt_Rechnen WITH FRAME F-Main. {&OPEN-BROWSERS-IN-QUERY-F-Main} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-view F-Frame-Win PROCEDURE local-view : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) . RUN OPEN_BROWSER. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEU_RECHNEN F-Frame-Win PROCEDURE NEU_RECHNEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR iJahr AS INT NO-UNDO. DEF VAR dNetto AS DEC DECIMALS 4 NO-UNDO. iJahr = YEAR(TODAY) - 1. FOR EACH Umsatz USE-INDEX Umsatz-k1 WHERE Umsatz.Firma = GVFirma AND Umsatz.Ums_Art = 'TOTAL' AND Umsatz.Jahr >= iJahr: ASSIGN Umsatz.Vp_Kum = 0 Umsatz.Vp_Mon = 0 Umsatz.Ep_Kum = 0 Umsatz.Ep_Mon = 0. END. FOR EACH Savko USE-INDEX Savko-k1 WHERE Savko.Firma = GVFirma NO-LOCK: IF Savko.Fak_Datum = ? THEN LVDat = Savko.Lief_Datum. ELSE LVDat = Savko.Fak_Datum. IF LVDat = ? THEN LVDat = 01/01/1900. i1 = YEAR (LVDat). i2 = MONTH(LVDat). IF i1 < iJahr THEN NEXT. FIND Umsatz USE-INDEX Umsatz-k1 WHERE Umsatz.Firma = Savko.Firma AND Umsatz.Ums_Art = 'TOTAL' AND Umsatz.Jahr = i1 AND Umsatz.Grp_01 = 0 NO-ERROR. IF NOT AVAILABLE Umsatz THEN DO: CREATE Umsatz. ASSIGN Umsatz.Firma = Savko.Firma Umsatz.Ums_Art = 'TOTAL' Umsatz.Jahr = i1 Umsatz.Grp_01 = 0. END. FOR EACH Savze OF Savko NO-LOCK WHERE Savze.Artnr > 0 AND Savze.Net_Betr <> 0: dNetto = Savze.Net_Betr - Savze.Auf_Rab - Savze.Abh_Rab - Savze.Auf_Sp_Rab. IF Savze.MWSt_Inkl THEN dNetto = dNetto * 100 / (100 + Savze.MWST%). Umsatz.VP_Mon[i2] = Umsatz.VP_Mon[i2] + dNetto. Umsatz.VP_Kum = Umsatz.VP_Kum + dNetto. Umsatz.EP_Mon[i2] = Umsatz.EP_Mon[i2] + ( Savze.MGeli * Savze.Ep ). Umsatz.EP_Kum = Umsatz.EP_Kum + ( Savze.MGeli * Savze.Ep ). END. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE OPEN_BROWSER F-Frame-Win PROCEDURE OPEN_BROWSER : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DO WITH FRAME {&FRAME-NAME}: ASSIGN RS_Anzeige. DO WHILE TRUE: IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN LEAVE. CLOSE QUERY {&BROWSE-NAME}. LEAVE. END. EMPTY TEMP-TABLE TUmsatz. CASE RS_Anzeige: WHEN 1 THEN DO: FOR EACH Umsatz USE-INDEX Umsatz-k1 WHERE Umsatz.Firma = GVFirma AND Umsatz.Ums_Art = "TOTAL" NO-LOCK. CREATE TUmsatz. BUFFER-COPY Umsatz TO TUmsatz. END. END. END CASE. FOR EACH Aufko USE-INDEX Aufko-k1 WHERE Aufko.Firma = GVFirma AND NOT Aufko.AlsOfferte NO-LOCK: IF Aufko.Fak_Datum = ? THEN LVDat = Aufko.Lief_Datum. ELSE LVDat = Aufko.Fak_Datum. IF LVDat = ? THEN LVDat = TODAY. i1 = YEAR (LVDat). i2 = MONTH(LVDat). FIND TUmsatz USE-INDEX Umsatz-k1 WHERE TUmsatz.Firma = Aufko.Firma AND TUmsatz.Ums_Art = 'TOTAL' AND TUmsatz.Jahr = i1 AND TUmsatz.Grp_01 = 0 NO-ERROR. IF NOT AVAILABLE TUmsatz THEN DO: CREATE TUMsatz. ASSIGN TUmsatz.Firma = Aufko.Firma TUmsatz.Ums_Art = 'TOTAL' TUmsatz.Jahr = i1 TUmsatz.Grp_01 = 0. END. FOR EACH Aufze OF Aufko NO-LOCK: IF Aufze.Artnr = 0 THEN NEXT. TUmsatz.VP_Mon[i2] = TUmsatz.VP_Mon[i2] + Aufze.Net_Betr - Aufze.Auf_Rab - Aufze.Abh_Rab - Aufze.Auf_Sp_Rab. TUmsatz.VP_Kum = TUmsatz.VP_Kum + Aufze.Net_Betr - Aufze.Auf_Rab - Aufze.Abh_Rab - Aufze.Auf_Sp_Rab. TUmsatz.EP_Mon[i2] = TUmsatz.EP_Mon[i2] + ( Aufze.MGeli * Aufze.Ep ). TUmsatz.EP_Kum = TUmsatz.EP_Kum + ( Aufze.MGeli * Aufze.Ep ). END. END. OPEN QUERY {&BROWSE-NAME} FOR EACH TUmsatz USE-INDEX Umsatz-k1 NO-LOCK. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records F-Frame-Win _ADM-SEND-RECORDS PROCEDURE send-records : /*------------------------------------------------------------------------------ Purpose: Send record ROWID's for all tables used by this file. Parameters: see template/snd-head.i ------------------------------------------------------------------------------*/ /* Define variables needed by this internal procedure. */ {src/adm/template/snd-head.i} /* For each requested table, put it's ROWID in the output list. */ {src/adm/template/snd-list.i "TUmsatz"} /* Deal with any unexpected table requests before closing. */ {src/adm/template/snd-end.i} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed F-Frame-Win PROCEDURE state-changed : /* ----------------------------------------------------------- Purpose: Parameters: Notes: -------------------------------------------------------------*/ DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE NO-UNDO. DEFINE INPUT PARAMETER p-state AS CHARACTER NO-UNDO. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME