&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2 &ANALYZE-RESUME /* Connected Databases */ &Scoped-define WINDOW-NAME wTranslate {adecomm/appserv.i} &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wTranslate /*------------------------------------------------------------------------ File: Description: from cntnrwin.w - ADM SmartWindow Template Input Parameters: Output Parameters: History: New V9 Version - January 15, 1998 ------------------------------------------------------------------------*/ /* This .W file was created with the Progress AB. */ /*----------------------------------------------------------------------*/ /* 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 --- */ DEF VAR cFirma AS CHAR NO-UNDO. DEF VAR iabSprcd AS INT NO-UNDO. DEF VAR izuSprcd AS INT NO-UNDO. DEF VAR cViewName AS CHAR NO-UNDO. DEF VAR lCancel AS LOG INIT FALSE NO-UNDO. { incl/windefinition.i } {src/adm2/widgetprto.i} DEF TEMP-TABLE tLabels NO-UNDO FIELD cViewName AS CHAR FIELD iabSprcd AS INT FIELD izuSprcd AS INT FIELD cFieldName AS CHAR FORMAT "x(30)" FIELD cLabel_1 AS CHAR FORMAT "x(30)" FIELD cLabel_2 AS CHAR FORMAT "x(30)" FIELD cColumn_1 AS CHAR FORMAT "x(30)" FIELD cColumn_2 AS CHAR FORMAT "x(30)" . DEF VAR hQuery AS HANDLE NO-UNDO. DEF VAR hBrowse AS HANDLE NO-UNDO. DEF VAR htLabels AS HANDLE NO-UNDO. DEF TEMP-TABLE tScreenGUI LIKE ScreenGUI. DEF TEMP-TABLE tScreens NO-UNDO FIELD hScreen AS HANDLE FIELD lAktiv AS LOG. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE SmartWindow &Scoped-define DB-AWARE no &Scoped-define ADM-CONTAINER WINDOW &Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME fMain &Scoped-define BROWSE-NAME Br_Labels /* Internal Tables (found by Frame, Query & Browse Queries) */ &Scoped-define INTERNAL-TABLES tLabels /* Definitions for BROWSE Br_Labels */ &Scoped-define FIELDS-IN-QUERY-Br_Labels tLabels.cFieldName tLabels.cLabel_1 tLabels.cColumn_1 tLabels.cLabel_2 tLabels.cColumn_2 &Scoped-define ENABLED-FIELDS-IN-QUERY-Br_Labels &Scoped-define SELF-NAME Br_Labels &Scoped-define QUERY-STRING-Br_Labels FOR EACH tLabels &Scoped-define OPEN-QUERY-Br_Labels OPEN QUERY {&SELF-NAME} FOR EACH tLabels. &Scoped-define TABLES-IN-QUERY-Br_Labels tLabels &Scoped-define FIRST-TABLE-IN-QUERY-Br_Labels tLabels /* Definitions for FRAME fMain */ /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS Br_Labels F_Label F_Column Btn_OK Btn_Cancel ~ F_Titel F_Titel_Trans RECT-6 &Scoped-Define DISPLAYED-OBJECTS F_Label F_Column F_Titel F_Titel_Trans /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 F_Titel F_Titel_Trans /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* ************************ Function Prototypes ********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProgname wTranslate FUNCTION getProgname RETURNS CHARACTER ( /* parameter-definitions */ ) FORWARD. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define the widget handle for the window */ DEFINE VAR wTranslate AS WIDGET-HANDLE NO-UNDO. /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Cancel LABEL "abbrechen" SIZE 15 BY 1. DEFINE BUTTON Btn_OK LABEL "mutieren" SIZE 15 BY 1. DEFINE VARIABLE F_Column AS CHARACTER FORMAT "x(30)":U VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Label AS CHARACTER FORMAT "x(30)":U VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Titel AS CHARACTER FORMAT "x(80)":U LABEL "Titel" VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Titel_Trans AS CHARACTER FORMAT "x(80)":U VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE RECTANGLE RECT-6 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 164 BY 14.19. /* Query definitions */ &ANALYZE-SUSPEND DEFINE QUERY Br_Labels FOR tLabels SCROLLING. &ANALYZE-RESUME /* Browse definitions */ DEFINE BROWSE Br_Labels &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_Labels wTranslate _FREEFORM QUERY Br_Labels DISPLAY tLabels.cFieldName LABEL 'Field' tLabels.cLabel_1 LABEL 'Source Label' tLabels.cColumn_1 LABEL 'Source Side Label' tLabels.cLabel_2 LABEL 'Target Label' tLabels.cColumn_2 LABEL 'Target Side Label' /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME WITH NO-ROW-MARKERS SEPARATORS SIZE 160 BY 10. /* ************************ Frame Definitions *********************** */ DEFINE FRAME fMain Br_Labels AT ROW 3.52 COL 5 WIDGET-ID 200 F_Label AT ROW 14 COL 33 COLON-ALIGNED NO-LABEL WIDGET-ID 4 F_Column AT ROW 14 COL 88 COLON-ALIGNED NO-LABEL WIDGET-ID 12 Btn_OK AT ROW 16 COL 29 WIDGET-ID 6 Btn_Cancel AT ROW 16 COL 69.4 WIDGET-ID 8 F_Titel AT ROW 2 COL 33 COLON-ALIGNED WIDGET-ID 16 F_Titel_Trans AT ROW 2 COL 88 COLON-ALIGNED NO-LABEL WIDGET-ID 14 RECT-6 AT ROW 1.48 COL 3 WIDGET-ID 10 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY SIDE-LABELS NO-UNDERLINE THREE-D AT COL 1 ROW 1 SIZE 168 BY 17.14 WIDGET-ID 100. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartWindow Allow: Basic,Browse,DB-Fields,Query,Smart,Window Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source Other Settings: COMPILE APPSERVER */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW IF SESSION:DISPLAY-TYPE = "GUI":U THEN CREATE WINDOW wTranslate ASSIGN HIDDEN = YES TITLE = "Translate Labels" HEIGHT = 17.24 WIDTH = 168 MAX-HEIGHT = 30.48 MAX-WIDTH = 173.6 VIRTUAL-HEIGHT = 30.48 VIRTUAL-WIDTH = 173.6 RESIZE = no SCROLL-BARS = no STATUS-AREA = no BGCOLOR = ? FGCOLOR = ? THREE-D = yes MESSAGE-AREA = no SENSITIVE = yes. ELSE {&WINDOW-NAME} = CURRENT-WINDOW. &IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN IF NOT wTranslate:LOAD-ICON("grafik/appl.ico":U) THEN MESSAGE "Unable to load icon: grafik/appl.ico" VIEW-AS ALERT-BOX WARNING BUTTONS OK. &ENDIF /* END WINDOW DEFINITION */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB wTranslate /* ************************* Included-Libraries *********************** */ {src/adm2/containr.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW wTranslate VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME fMain FRAME-NAME Custom */ /* BROWSE-TAB Br_Labels 1 fMain */ /* SETTINGS FOR FILL-IN F_Titel IN FRAME fMain 6 */ /* SETTINGS FOR FILL-IN F_Titel_Trans IN FRAME fMain 6 */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wTranslate) THEN wTranslate:HIDDEN = yes. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_Labels /* Query rebuild information for BROWSE Br_Labels _START_FREEFORM OPEN QUERY {&SELF-NAME} FOR EACH tLabels. _END_FREEFORM _Query is NOT OPENED */ /* BROWSE Br_Labels */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME wTranslate &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wTranslate wTranslate ON END-ERROR OF wTranslate /* Translate Labels */ OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO: /* This case occurs when the user presses the "Esc" key. In a persistently run window, just ignore this. If we did not, the application would exit. */ IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY. /* ****************************** */ RUN ENDE. RETURN NO-APPLY. /* ****************************** */ END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wTranslate wTranslate ON WINDOW-CLOSE OF wTranslate /* Translate Labels */ DO: /* This ADM code must be left here in order for the SmartWindow and its descendents to terminate properly on exit. */ RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define BROWSE-NAME Br_Labels &Scoped-define SELF-NAME Br_Labels &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Labels wTranslate ON END-ERROR OF Br_Labels IN FRAME fMain DO: RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Labels wTranslate ON ENTRY OF Br_Labels IN FRAME fMain DO: IF hQuery:NUM-RESULTS = ? OR hQuery:NUM-RESULTS = 0 THEN RETURN. F_Label :SCREEN-VALUE = tLabels.cLabel_2. F_Column:SCREEN-VALUE = tLabels.cColumn_2. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Labels wTranslate ON LEFT-MOUSE-DBLCLICK OF Br_Labels IN FRAME fMain DO: APPLY 'ENTRY' TO F_Label. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Labels wTranslate ON RETURN OF Br_Labels IN FRAME fMain DO: APPLY 'ENTRY' TO F_Label. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Labels wTranslate ON ROW-DISPLAY OF Br_Labels IN FRAME fMain DO: F_Label:SCREEN-VALUE = tLabels.cLabel_2. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Labels wTranslate ON VALUE-CHANGED OF Br_Labels IN FRAME fMain DO: F_Label :SCREEN-VALUE = tLabels.cLabel_2. F_Column:SCREEN-VALUE = tLabels.cColumn_2. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_Cancel &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Cancel wTranslate ON CHOOSE OF Btn_Cancel IN FRAME fMain /* abbrechen */ DO: lCancel = TRUE. 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 wTranslate ON CHOOSE OF Btn_OK IN FRAME fMain /* mutieren */ DO: FOR EACH tScreenGUI: FIND ScreenGUI OF tScreenGUI NO-ERROR. IF NOT AVAILABLE ScreenGUI THEN DO: CREATE ScreenGUI. BUFFER-COPY tScreenGUI TO ScreenGUI. NEXT. END. BUFFER-COPY tScreenGUI EXCEPT Firma Sprcd ViewName FieldName TO ScreenGUI. END. ASSIGN {&List-6}. IF F_Titel_Trans <> '' AND F_Titel_Trans <> ? THEN DO: FIND FIRST ScreenGUI WHERE ScreenGUI.Firma = cFirma AND ScreenGUI.Sprcd = izuSprcd AND ScreenGUI.ViewName = cViewName AND ScreenGUI.FieldName = 'TITEL' NO-ERROR. IF NOT AVAILABLE ScreenGUI THEN DO: CREATE ScreenGUI. ASSIGN ScreenGUI.Firma = cFirma ScreenGUI.Sprcd = izuSprcd ScreenGUI.ViewName = cViewName ScreenGUI.FieldName = 'TITEL'. END. ASSIGN ScreenGUI.Label_Text = F_Titel_Trans. END. APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Column &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Column wTranslate ON END-ERROR OF F_Column IN FRAME fMain DO: APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Column wTranslate ON RETURN OF F_Column IN FRAME fMain DO: tLabels.cColumn_2:SCREEN-VALUE IN BROWSE {&BROWSE-NAME} = SELF:SCREEN-VALUE. tLabels.cColumn_2 = SELF:SCREEN-VALUE. FIND FIRST tScreenGUI WHERE tScreenGUI.Firma = cFirma AND tScreenGUI.Sprcd = izuSprcd AND tScreenGUI.FieldName = tLabels.cFieldName. tScreenGUI.Column_Text = SELF:SCREEN-VALUE. APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Label &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Label wTranslate ON END-ERROR OF F_Label IN FRAME fMain DO: APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Label wTranslate ON RETURN OF F_Label IN FRAME fMain DO: tLabels.cLabel_2:SCREEN-VALUE IN BROWSE {&BROWSE-NAME} = SELF:SCREEN-VALUE. tLabels.cLabel_2 = SELF:SCREEN-VALUE. FIND FIRST tScreenGUI WHERE tScreenGUI.Firma = cFirma AND tScreenGUI.Sprcd = izuSprcd AND tScreenGUI.FieldName = tLabels.cFieldName. tScreenGUI.Label_Text = SELF:SCREEN-VALUE. APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Titel &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Titel wTranslate ON END-ERROR OF F_Titel IN FRAME fMain /* Titel */ DO: APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Titel wTranslate ON RETURN OF F_Titel IN FRAME fMain /* Titel */ DO: /* tLabels.cLabel_2:SCREEN-VALUE IN BROWSE {&BROWSE-NAME} = SELF:SCREEN-VALUE. */ /* tLabels.cLabel_2 = SELF:SCREEN-VALUE. */ /* FIND FIRST tScreenGUI */ /* WHERE tScreenGUI.Firma = cFirma */ /* AND tScreenGUI.Sprcd = izuSprcd */ /* AND tScreenGUI.FieldName = tLabels.cFieldName. */ /* tScreenGUI.Label_Text = SELF:SCREEN-VALUE. */ APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Titel_Trans &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Titel_Trans wTranslate ON END-ERROR OF F_Titel_Trans IN FRAME fMain DO: APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Titel_Trans wTranslate ON RETURN OF F_Titel_Trans IN FRAME fMain DO: /* tLabels.cColumn_2:SCREEN-VALUE IN BROWSE {&BROWSE-NAME} = SELF:SCREEN-VALUE. */ /* tLabels.cColumn_2 = SELF:SCREEN-VALUE. */ /* FIND FIRST tScreenGUI */ /* WHERE tScreenGUI.Firma = cFirma */ /* AND tScreenGUI.Sprcd = izuSprcd */ /* AND tScreenGUI.FieldName = tLabels.cFieldName. */ /* tScreenGUI.Column_Text = SELF:SCREEN-VALUE. */ APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK wTranslate /* *************************** Main Block *************************** */ { incl/winmainblock.i } {src/adm2/windowmn.i} SUBSCRIBE TO 'TRANSLATE' ANYWHERE. SUBSCRIBE TO 'TRANSLATEFOLDER' ANYWHERE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wTranslate _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 changePage wTranslate PROCEDURE changePage : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SUPER. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR. CASE AktSeite: WHEN 1 THEN DO: /* RUN addLink ( hAktionen , 'TableIO':U , h_v-auftr ). */ /* RUN addLink ( hAktionen , 'Navigation':U , h_d-auftr ). */ /* RUN setButtons IN hAktionen ( 'initial-TableIo' ) NO-ERROR. */ END. WHEN 2 THEN DO: END. END CASE. RUN ENTRY_CURSOR. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wTranslate _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. ------------------------------------------------------------------------------*/ /* Delete the WINDOW we created */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wTranslate) THEN DELETE WIDGET wTranslate. IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wTranslate PROCEDURE enableObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ { incl/winenableobject.i } htLabels = TEMP-TABLE tLabels:DEFAULT-BUFFER-HANDLE. CREATE QUERY hQuery. hQuery:SET-BUFFERS(htLabels). hQuery:QUERY-PREPARE('FOR EACH tLabels'). BROWSE {&BROWSE-NAME}:QUERY = hQuery. RUN SUPER. /* Code placed here will execute AFTER standard behavior. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wTranslate _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_Label F_Column F_Titel F_Titel_Trans WITH FRAME fMain IN WINDOW wTranslate. ENABLE Br_Labels F_Label F_Column Btn_OK Btn_Cancel F_Titel F_Titel_Trans RECT-6 WITH FRAME fMain IN WINDOW wTranslate. {&OPEN-BROWSERS-IN-QUERY-fMain} VIEW wTranslate. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wTranslate PROCEDURE ENDE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ IF NOT lCancel THEN RETURN NO-APPLY. { incl/winende.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENTRY_CURSOR wTranslate PROCEDURE ENTRY_CURSOR : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR. FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) NO-ERROR. CASE AktSeite: /* WHEN 1 THEN DO: */ /* IF FMutFlag THEN RUN applyEntry IN h_v- ( INPUT ? ). */ /* ELSE RUN applyEntry IN h_b- ( INPUT ? ). */ /* END. */ /* WHEN 1 THEN RUN applyEntry IN h_v-adresse ( INPUT ? ). */ /* WHEN 2 THEN RUN applyEntry IN h_f-adrkomm ( INPUT ? ). */ /* WHEN 3 THEN RUN applyEntry IN h_b-auftbb ( INPUT ? ). */ /* WHEN 4 THEN RUN applyEntry IN h_b-aufdet ( INPUT ? ). */ /* WHEN 5 THEN RUN applyEntry IN h_b-aufstreu ( INPUT ? ). */ /* WHEN 6 THEN RUN applyEntry IN h_b-auffak ( INPUT ? ). */ /* WHEN 7 THEN RUN applyEntry IN h_b-position ( INPUT ? ). */ END CASE. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject wTranslate PROCEDURE exitObject : /*------------------------------------------------------------------------------ Purpose: Window-specific override of this procedure which destroys its contents and itself. Notes: ------------------------------------------------------------------------------*/ RUN ENDE. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject wTranslate PROCEDURE initializeObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ /* Code placed here will execute PRIOR to standard behavior. */ RUN SUPER. { incl/wininitializeobject.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SEITENWECHSEL wTranslate PROCEDURE SEITENWECHSEL : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ { incl/winseitenwechsel.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wTranslate PROCEDURE selectPage : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER piPageNum AS INT NO-UNDO. DEF VAR FMutFlag AS LOG NO-UNDO. DEF VAR MutProg AS CHAR NO-UNDO. FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR. IF FMutFlag THEN RETURN NO-APPLY. CASE piPageNum: END CASE. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR. CASE AktSeite: WHEN 1 THEN DO: /* RUN removeLink ( hAktionen , 'TableIO':U , h_v-auftr ). */ /* RUN removeLink ( hAktionen , 'Navigation':U , h_d-auftr ). */ END. END CASE. RUN SUPER( INPUT piPageNum). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TOOLBAR wTranslate PROCEDURE TOOLBAR : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ { incl/wintoolbar.i } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TRANSLATE wTranslate PROCEDURE TRANSLATE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipcFirma AS CHAR NO-UNDO. DEF INPUT PARAMETER iphScreen AS HANDLE NO-UNDO. DEF INPUT PARAMETER ipcViewName AS CHAR NO-UNDO. DEF INPUT PARAMETER ipiabSprcd AS INT NO-UNDO. DEF INPUT PARAMETER ipizuSprcd AS INT NO-UNDO. DEF VAR hFenster AS HANDLE NO-UNDO. DEF VAR hParent AS HANDLE NO-UNDO. DEF VAR hSideLabel AS HANDLE NO-UNDO. DEF VAR cProgramm AS CHAR NO-UNDO. DEF VAR iPos AS INT NO-UNDO. DEF VAR cTitel AS CHAR NO-UNDO. DEF VAR cType AS CHAR NO-UNDO. DEF VAR cFieldName AS CHAR NO-UNDO. DEF VAR cLabel AS CHAR NO-UNDO. DEF VAR cSideLabel AS CHAR NO-UNDO. DEF VAR lBrowse AS LOG INIT FALSE NO-UNDO. DEF VAR cExclude AS CHAR NO-UNDO INIT 'RECTANGLE,LITERAL,FRAME,FIELD-GROUP,BROWSE'. DEF VAR cHandles AS CHAR NO-UNDO INIT 'BROWSE,FIELD-GROUP'. DEF BUFFER bScreenGUI FOR ScreenGUI. cProgramm = ipcViewName. iPos = R-INDEX(cProgramm, '.') - 1. IF iPos > 1 THEN cProgramm = TRIM(SUBSTRING(ipcViewName,01,iPos)). ASSIGN cFirma = ipcFirma iabSprcd = ipiabSprcd izuSprcd = ipizuSprcd cViewName = cProgramm. ASSIGN F_Titel = '' F_Titel_Trans = '' F_Label = '' F_Column = ''. DO WITH FRAME {&FRAME-NAME}: F_Titel :BGCOLOR = 12. F_Titel_Trans:BGCOLOR = 12. PAUSE 0.5 NO-MESSAGE. END. cTitel = iphScreen:TITLE NO-ERROR. IF INDEX (cTitel , "Haupt-Menu") > 0 THEN cTitel = "Haupt-Menu". F_Titel = (IF cTitel <> ? THEN cTitel ELSE ''). F_Titel_Trans = (IF cTitel <> ? THEN cTitel ELSE ''). FIND FIRST ScreenGUI NO-LOCK WHERE ScreenGUI.Firma = ipcFirma AND ScreenGUI.Sprcd = ipiabSprcd AND ScreenGUI.ViewName = cProgramm AND ScreenGUI.FieldName = 'TITEL' NO-ERROR. IF AVAILABLE ScreenGUI THEN F_Titel = ScreenGUI.Label_Text. EMPTY TEMP-TABLE tScreens. FIND FIRST ScreenGUI NO-LOCK WHERE ScreenGUI.Firma = ipcFirma AND ScreenGUI.Sprcd = ipizuSprcd AND ScreenGUI.ViewName = cProgramm AND ScreenGUI.FieldName = 'TITEL' NO-ERROR. IF AVAILABLE ScreenGUI THEN F_Titel_Trans = ScreenGUI.Label_Text. DO WITH FRAME {&FRAME-NAME}: DISPLAY F_Titel F_Titel_Trans F_Label F_Column. IF F_Titel = '' THEN ASSIGN F_Titel :READ-ONLY = TRUE F_Titel_Trans:READ-ONLY = TRUE. ELSE ASSIGN F_Titel :READ-ONLY = FALSE F_Titel_Trans:READ-ONLY = FALSE. F_Titel :BGCOLOR = 15. F_Titel_Trans:BGCOLOR = 15. END. CREATE tScreens. ASSIGN tScreens.hScreen = iphScreen tScreens.lAktiv = FALSE. IF iphScreen:TYPE BEGINS 'BROWS' THEN lBrowse = TRUE. IF lBrowse THEN hFenster = iphScreen:FIRST-COLUMN. ELSE hFenster = iphScreen:FIRST-CHILD. DO WHILE VALID-HANDLE(hFenster): cType = hFenster:TYPE. IF LOOKUP(cType, cHandles, ',') > 0 THEN DO: CREATE tScreens. ASSIGN tScreens.hScreen = hFenster tScreens.lAktiv = TRUE. END. IF lBrowse THEN hFenster = hFenster:NEXT-COLUMN. ELSE hFenster = hFenster:NEXT-SIBLING. END. DO WHILE TRUE: FIND FIRST tScreens WHERE tScreens.lAktiv = TRUE NO-ERROR. IF NOT AVAILABLE tScreens THEN LEAVE. tScreens.lAktiv = FALSE. hFenster = tScreens.hScreen. IF hFenster:TYPE BEGINS 'BROWS' THEN lBrowse = TRUE. IF lBrowse THEN hFenster = hFenster:FIRST-COLUMN. ELSE hFenster = hFenster:FIRST-CHILD. DO WHILE VALID-HANDLE(hFenster): cType = hFenster:TYPE. IF LOOKUP(cType, cHandles, ',') > 0 THEN DO: CREATE tScreens. ASSIGN tScreens.hScreen = hFenster tScreens.lAktiv = TRUE. END. IF lBrowse THEN hFenster = hFenster:NEXT-COLUMN. ELSE hFenster = hFenster:NEXT-SIBLING. END. END. EMPTY TEMP-TABLE tLabels. EMPTY TEMP-TABLE tScreenGUI. ASSIGN cFirma = ipcFirma iabSprcd = ipiabSprcd izuSprcd = ipizuSprcd. FOR EACH ScreenGUI NO-LOCK WHERE ScreenGUI.Firma = ipcFirma AND ScreenGUI.Sprcd = ipiabSprcd AND ScreenGUI.ViewName = cProgramm: CREATE tScreenGUI. BUFFER-COPY ScreenGUI TO tScreenGUI. END. IF ipizuSprcd <> ipiabSprcd THEN DO: FOR EACH ScreenGUI NO-LOCK WHERE ScreenGUI.Firma = ipcFirma AND ScreenGUI.Sprcd = ipizuSprcd AND ScreenGUI.ViewName = cProgramm: CREATE tScreenGUI. BUFFER-COPY ScreenGUI TO tScreenGUI. END. END. FOR EACH tScreens: hFenster = tScreens.hScreen. lBrowse = FALSE. IF hFenster:TYPE BEGINS 'BROWS' THEN lBrowse = TRUE. IF lBrowse THEN hFenster = hFenster:FIRST-COLUMN. ELSE hFenster = hFenster:FIRST-CHILD. DO WHILE VALID-HANDLE (hFenster) : DO WHILE TRUE: cType = hFenster:TYPE. IF LOOKUP(cType, cExclude, ',') > 0 THEN LEAVE. IF lBrowse THEN IF NOT hFenster:VISIBLE THEN LEAVE. ELSE. ELSE IF hFenster:HIDDEN THEN LEAVE. ELSE. IF hFenster:LABEL = '/' THEN LEAVE. IF hFenster:LABEL = '-' THEN LEAVE. IF hFenster:LABEL = '.' THEN LEAVE. cSideLabel = ''. hSideLabel = hFenster:SIDE-LABEL-HANDLE NO-ERROR. IF VALID-HANDLE(hSideLabel) THEN DO: cType = hSideLabel:TYPE. IF LOOKUP(cType, cExclude, ',') = 0 THEN DO: cSideLabel = hSideLabel:LABEL. END. END. cFieldName = hFenster:NAME. cLabel = hFenster:LABEL. IF cLabel = ? THEN cLabel = cFieldName. CREATE tLabels. ASSIGN tLabels.cViewName = cProgramm tLabels.iabSprcd = ipiabSprcd tLabels.izuSprcd = ipizuSprcd tLabels.cFieldName = cFieldName tLabels.cLabel_1 = cLabel tLabels.cColumn_1 = cSideLabel. FIND FIRST tScreenGUI NO-LOCK WHERE tScreenGUI.Firma = ipcFirma AND tScreenGUI.ViewName = cProgramm AND tScreenGUI.FieldName = cFieldName AND tScreenGUI.Sprcd = ipiabSprcd NO-ERROR. IF NOT AVAILABLE tScreenGUI THEN DO: FIND FIRST bScreenGUI NO-LOCK USE-INDEX ScreenGUI-k2 WHERE bScreenGUI.Firma = ipcFirma AND bScreenGUI.Sprcd = ipiabSprcd AND bScreenGUI.FieldName = cFieldName NO-ERROR. IF AVAILABLE bScreenGUI THEN DO: CREATE tScreenGUI. BUFFER-COPY bScreenGUI EXCEPT ViewName TO tScreenGUI ASSIGN tScreenGUI.ViewName = cProgramm tScreenGUI.Label_Text = cLabel tScreenGUI.Column_Text = cSideLabel. END. ELSE DO: CREATE tScreenGUI. ASSIGN tScreenGUI.Firma = ipcFirma tScreenGUI.ViewName = cProgramm tScreenGUI.FieldName = cFieldName tScreenGUI.Sprcd = ipiabSprcd tScreenGUI.Label_Text = cLabel tScreenGUI.Column_Text = cSideLabel. END. END. ASSIGN cLabel = tScreenGUI.Label_Text. tLabels.cLabel_1 = cLabel. FIND FIRST tScreenGUI NO-LOCK WHERE tScreenGUI.Firma = ipcFirma AND tScreenGUI.ViewName = cProgramm AND tScreenGUI.FieldName = cFieldName AND tScreenGUI.Sprcd = ipizuSprcd NO-ERROR. IF NOT AVAILABLE tScreenGUI THEN DO: FIND FIRST bScreenGUI NO-LOCK USE-INDEX ScreenGUI-k2 WHERE bScreenGUI.Firma = ipcFirma AND bScreenGUI.Sprcd = ipizuSprcd AND bScreenGUI.FieldName = cFieldName NO-ERROR. IF AVAILABLE bScreenGUI THEN DO: CREATE tScreenGUI. BUFFER-COPY bScreenGUI EXCEPT ViewName TO tScreenGUI ASSIGN tScreenGUI.ViewName = cProgramm tScreenGUI.Label_Text = cLabel tScreenGUI.Column_Text = cSideLabel. END. ELSE DO: CREATE tScreenGUI. ASSIGN tScreenGUI.Firma = ipcFirma tScreenGUI.ViewName = cProgramm tScreenGUI.FieldName = cFieldName tScreenGUI.Sprcd = ipizuSprcd tScreenGUI.Label_Text = cLabel tScreenGUI.Column_Text = cSideLabel. END. END. ASSIGN cLabel = tScreenGUI.Label_Text cSideLabel = tScreenGUI.Column_Text tLabels.cLabel_2 = cLabel tLabels.cColumn_2 = cSideLabel. LEAVE. END. IF lBrowse THEN hFenster = hFenster:NEXT-COLUMN. ELSE hFenster = hFenster:NEXT-SIBLING. END. FOR EACH tLabels: FIND FIRST tScreenGUI NO-LOCK WHERE tScreenGUI.Firma = ipcFirma AND tScreenGUI.ViewName = cProgramm AND tScreenGUI.FieldName = tLabels.cFieldName AND tScreenGUI.Sprcd = ipiabSprcd NO-ERROR. IF NOT AVAILABLE tScreenGUI THEN DO: FIND FIRST bScreenGUI NO-LOCK USE-INDEX ScreenGUI-k2 WHERE bScreenGUI.Firma = ipcFirma AND bScreenGUI.Sprcd = ipiabSprcd AND bScreenGUI.FieldName = tLabels.cFieldName NO-ERROR. IF AVAILABLE bScreenGUI THEN DO: CREATE tScreenGUI. BUFFER-COPY bScreenGUI EXCEPT ViewName TO tScreenGUI ASSIGN tScreenGUI.ViewName = cProgramm tScreenGUI.Label_Text = tLabels.cLabel_1 tScreenGUI.Column_Text = tLabels.cColumn_1. END. ELSE DO: CREATE tScreenGUI. ASSIGN tScreenGUI.Firma = ipcFirma tScreenGUI.ViewName = cProgramm tScreenGUI.FieldName = tLabels.cFieldName tScreenGUI.Sprcd = ipiabSprcd tScreenGUI.Label_Text = tLabels.cLabel_1 tScreenGUI.Column_Text = tLabels.cColumn_1. END. END. ASSIGN cLabel = tScreenGUI.Label_Text. tLabels.cLabel_1 = cLabel. FIND FIRST tScreenGUI NO-LOCK WHERE tScreenGUI.Firma = ipcFirma AND tScreenGUI.ViewName = cProgramm AND tScreenGUI.FieldName = tLabels.cFieldName AND tScreenGUI.Sprcd = ipizuSprcd NO-ERROR. IF NOT AVAILABLE tScreenGUI THEN DO: FIND FIRST bScreenGUI NO-LOCK USE-INDEX ScreenGUI-k2 WHERE bScreenGUI.Firma = ipcFirma AND bScreenGUI.Sprcd = ipizuSprcd AND bScreenGUI.FieldName = tLabels.cFieldName NO-ERROR. IF AVAILABLE bScreenGUI THEN DO: CREATE tScreenGUI. BUFFER-COPY bScreenGUI EXCEPT ViewName TO tScreenGUI ASSIGN tScreenGUI.ViewName = cProgramm tScreenGUI.Label_Text = tLabels.cLabel_1 tScreenGUI.Column_Text = tLabels.cColumn_1. END. ELSE DO: CREATE tScreenGUI. ASSIGN tScreenGUI.Firma = ipcFirma tScreenGUI.ViewName = cProgramm tScreenGUI.FieldName = tLabels.cFieldName tScreenGUI.Sprcd = ipizuSprcd tScreenGUI.Label_Text = tLabels.cLabel_1 tScreenGUI.Column_Text = tLabels.cColumn_1. END. END. ASSIGN cLabel = tScreenGUI.Label_Text cSideLabel = tScreenGUI.Column_Text tLabels.cLabel_2 = cLabel tLabels.cColumn_2 = cSideLabel. END. END. hQuery:QUERY-OPEN(). APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TRANSLATEFOLDER wTranslate PROCEDURE TRANSLATEFOLDER : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipcFirma AS CHAR NO-UNDO. DEF INPUT PARAMETER ipcViewName AS CHAR NO-UNDO. DEF INPUT PARAMETER ipcLabels AS CHAR NO-UNDO. DEF INPUT PARAMETER ipiabSprcd AS INT NO-UNDO. DEF INPUT PARAMETER ipizuSprcd AS INT NO-UNDO. DEF VAR cFieldName AS CHAR NO-UNDO. DEF VAR cLabel AS CHAR NO-UNDO. DEF VAR cSideLabel AS CHAR NO-UNDO. DEF VAR ii AS INT NO-UNDO. DEF BUFFER bScreenGUI FOR ScreenGUI. EMPTY TEMP-TABLE tLabels. EMPTY TEMP-TABLE tScreenGUI. ASSIGN cFirma = ipcFirma iabSprcd = ipiabSprcd izuSprcd = ipizuSprcd. ASSIGN F_Titel = '' F_Titel_Trans = '' F_Label = '' F_Column = ''. DO WITH FRAME {&FRAME-NAME}: F_Titel :BGCOLOR = 12. F_Titel_Trans:BGCOLOR = 12. PAUSE 0.5 NO-MESSAGE. END. DO WITH FRAME {&FRAME-NAME}: DISPLAY F_Titel F_Titel_Trans F_Label F_Column. IF F_Titel = '' THEN ASSIGN F_Titel :READ-ONLY = TRUE F_Titel_Trans:READ-ONLY = TRUE. ELSE ASSIGN F_Titel :READ-ONLY = FALSE F_Titel_Trans:READ-ONLY = FALSE. F_Titel :BGCOLOR = 15. F_Titel_Trans:BGCOLOR = 15. END. FOR EACH ScreenGUI NO-LOCK WHERE ScreenGUI.Firma = ipcFirma AND ScreenGUI.Sprcd = ipiabSprcd AND ScreenGUI.ViewName = ipcViewName: CREATE tScreenGUI. BUFFER-COPY ScreenGUI TO tScreenGUI. END. IF ipizuSprcd <> ipiabSprcd THEN DO: FOR EACH ScreenGUI NO-LOCK WHERE ScreenGUI.Firma = ipcFirma AND ScreenGUI.Sprcd = ipizuSprcd AND ScreenGUI.ViewName = ipcViewName: CREATE tScreenGUI. BUFFER-COPY ScreenGUI TO tScreenGUI. END. END. DO ii = 1 TO NUM-ENTRIES(ipcLabels, '|') : cLabel = ENTRY(ii, ipcLabels, '|'). cFieldName = STRING(ii,'999999'). cSideLabel = ''. CREATE tLabels. ASSIGN tLabels.cViewName = ipcViewName tLabels.iabSprcd = ipiabSprcd tLabels.izuSprcd = ipizuSprcd tLabels.cFieldName = cFieldName tLabels.cLabel_1 = cLabel tLabels.cColumn_1 = cSideLabel. FIND FIRST tScreenGUI NO-LOCK WHERE tScreenGUI.Firma = ipcFirma AND tScreenGUI.ViewName = ipcViewName AND tScreenGUI.FieldName = cFieldName AND tScreenGUI.Sprcd = ipiabSprcd NO-ERROR. IF NOT AVAILABLE tScreenGUI THEN DO: CREATE tScreenGUI. ASSIGN tScreenGUI.Firma = ipcFirma tScreenGUI.ViewName = ipcViewName tScreenGUI.FieldName = cFieldName tScreenGUI.Sprcd = ipiabSprcd tScreenGUI.Label_Text = cLabel tScreenGUI.Column_Text = cSideLabel. END. ASSIGN cLabel = tScreenGUI.Label_Text. tLabels.cLabel_1 = cLabel. FIND FIRST tScreenGUI NO-LOCK WHERE tScreenGUI.Firma = ipcFirma AND tScreenGUI.ViewName = ipcViewName AND tScreenGUI.FieldName = cFieldName AND tScreenGUI.Sprcd = ipizuSprcd NO-ERROR. IF NOT AVAILABLE tScreenGUI THEN DO: CREATE tScreenGUI. ASSIGN tScreenGUI.Firma = ipcFirma tScreenGUI.ViewName = ipcViewName tScreenGUI.FieldName = cFieldName tScreenGUI.Sprcd = ipizuSprcd tScreenGUI.Label_Text = cLabel tScreenGUI.Column_Text = cSideLabel. END. ASSIGN cLabel = tScreenGUI.Label_Text cSideLabel = tScreenGUI.Column_Text tLabels.cLabel_2 = cLabel. END. hQuery:QUERY-OPEN(). APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wTranslate PROCEDURE viewObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SUPER. RUN ENTRY_CURSOR. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ************************ Function Implementations ***************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgname wTranslate FUNCTION getProgname RETURNS CHARACTER ( /* parameter-definitions */ ) : /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ RETURN Progname. END FUNCTION. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME