GeMIS_WEB/GUI/w-translate.w

&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:
      <none>

  Output Parameters:
      <none>

  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:  <none>
------------------------------------------------------------------------------*/

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:  <none>
  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:  <none>
  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:  <none>
  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:  <none>
  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:  <none>
  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:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/wintoolbar.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TRANSLATE wTranslate 
PROCEDURE TRANSLATE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  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:  <none>
  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