GeMIS_WEB/GUI/w-mahntexte.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME wMahntexte
{adecomm/appserv.i}
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wMahntexte 
/*------------------------------------------------------------------------

  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 iSprcd      AS INT                      NO-UNDO.
DEF VAR iStufe      AS INT                      NO-UNDO.
DEF VAR iArt        AS INT                      NO-UNDO.

{ incl/windefinition.i }

{src/adm2/widgetprto.i}

/* _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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS CB_Sprache CB_Mahnstufe CB_Textart 
&Scoped-Define DISPLAYED-OBJECTS CB_Sprache CB_Mahnstufe CB_Textart 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */

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


/* ************************  Function Prototypes ********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProgname wMahntexte 
FUNCTION getProgname RETURNS CHARACTER
  ( /* parameter-definitions */ )  FORWARD.

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


/* ***********************  Control Definitions  ********************** */

/* Define the widget handle for the window                              */
DEFINE VAR wMahntexte AS WIDGET-HANDLE NO-UNDO.

/* Definitions of handles for SmartObjects                              */
DEFINE VARIABLE h_d-mahntexte AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-mahntexte-firma AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-mahntexte-kopf AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-mahntexte-kopftext AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-mahntexte-rekap AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-mahntexte-schlusstext AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-mahntexte-ueberschrift AS HANDLE NO-UNDO.

/* Definitions of the field level widgets                               */
DEFINE VARIABLE CB_Mahnstufe AS CHARACTER FORMAT "X(256)":U INITIAL "0" 
     LABEL "Mahnstufe" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Kontoauszug","0",
                     "1. Mahnung","1",
                     "2. Mahnung","2",
                     "3. Mahnung","3",
                     "Betreibung","4"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Sprache AS CHARACTER FORMAT "X(256)":U 
     LABEL "Sprache" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Textart AS CHARACTER FORMAT "X(256)":U INITIAL "0" 
     LABEL "Textart" 
     VIEW-AS COMBO-BOX INNER-LINES 7
     LIST-ITEM-PAIRS "Firmenanschrift","0",
                     "Kopf-Titel","1",
                     "Kopf-Text","2",
                     "Ueberschrifttext","3",
                     "Schlusstext","4",
                     "Rekap-Text","5"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.


/* ************************  Frame Definitions  *********************** */

DEFINE FRAME fMain
     CB_Sprache AT ROW 1.52 COL 13 COLON-ALIGNED WIDGET-ID 2
     CB_Mahnstufe AT ROW 2.52 COL 13 COLON-ALIGNED WIDGET-ID 6
     CB_Textart AT ROW 3.52 COL 13 COLON-ALIGNED WIDGET-ID 8
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1
         SIZE 106.8 BY 15.81 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
   Design Page: 6
   Other Settings: COMPILE APPSERVER
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
  CREATE WINDOW wMahntexte ASSIGN
         HIDDEN             = YES
         TITLE              = "Verwalten der Mahntexte"
         HEIGHT             = 15.81
         WIDTH              = 106.8
         MAX-HEIGHT         = 30.48
         MAX-WIDTH          = 160
         VIRTUAL-HEIGHT     = 30.48
         VIRTUAL-WIDTH      = 160
         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 wMahntexte: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 wMahntexte 
/* ************************* 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 wMahntexte
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   FRAME-NAME                                                           */
IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wMahntexte)
THEN wMahntexte:HIDDEN = yes.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME

 



/* ************************  Control Triggers  ************************ */

&Scoped-define SELF-NAME wMahntexte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wMahntexte wMahntexte
ON END-ERROR OF wMahntexte /* Verwalten der Mahntexte */
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 wMahntexte wMahntexte
ON WINDOW-CLOSE OF wMahntexte /* Verwalten der Mahntexte */
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 SELF-NAME CB_Mahnstufe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Mahnstufe wMahntexte
ON VALUE-CHANGED OF CB_Mahnstufe IN FRAME fMain /* Mahnstufe */
DO:
    iStufe = INTEGER(CB_Mahnstufe:SCREEN-VALUE).
    DYNAMIC-FUNCTION('setTextArt':U IN h_d-mahntexte, iStufe, iArt ) NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_Sprache
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Sprache wMahntexte
ON VALUE-CHANGED OF CB_Sprache IN FRAME fMain /* Sprache */
DO:
    iSprcd = INTEGER(CB_Sprache:SCREEN-VALUE).
    DYNAMIC-FUNCTION('setSprcd':U IN h_d-mahntexte, iSprcd ) NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_Textart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Textart wMahntexte
ON VALUE-CHANGED OF CB_Textart IN FRAME fMain /* Textart */
DO:
    iArt = INTEGER(CB_Textart:SCREEN-VALUE).
    RUN selectPage (iArt + 1).
    DYNAMIC-FUNCTION('setTextArt':U IN h_d-mahntexte, iStufe, iArt ) NO-ERROR.
END.

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


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK wMahntexte 


/* ***************************  Main Block  *************************** */

    
    { incl/winmainblock.i }

    {src/adm2/windowmn.i}

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


/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wMahntexte  _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>
------------------------------------------------------------------------------*/
  DEFINE VARIABLE currentPage  AS INTEGER NO-UNDO.

  ASSIGN currentPage = getCurrentPage().

  CASE currentPage: 

    WHEN 0 THEN DO:
       RUN constructObject (
             INPUT  'd-mahntexte.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-mahntexteOpenOnInityesPromptColumns(NONE)PromptOnDeleteyesRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U ,
             OUTPUT h_d-mahntexte ).
       RUN repositionObject IN h_d-mahntexte ( 1.67 , 62.60 ) NO-ERROR.
       /* Size in AB:  ( 3.71 , 32.00 ) */

    END. /* Page 0 */
    WHEN 1 THEN DO:
       RUN constructObject (
             INPUT  'f-mahntexte-firma.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-mahntexte-firma ).
       RUN repositionObject IN h_f-mahntexte-firma ( 5.00 , 4.00 ) NO-ERROR.
       /* Size in AB:  ( 9.57 , 68.00 ) */

       /* Links to SmartFrame h_f-mahntexte-firma. */
       RUN addLink ( h_d-mahntexte , 'Data':U , h_f-mahntexte-firma ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-mahntexte-firma ,
             CB_Textart:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 1 */
    WHEN 2 THEN DO:
       RUN constructObject (
             INPUT  'f-mahntexte-kopf.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-mahntexte-kopf ).
       RUN repositionObject IN h_f-mahntexte-kopf ( 5.00 , 4.00 ) NO-ERROR.
       /* Size in AB:  ( 9.57 , 68.00 ) */

       /* Links to SmartFrame h_f-mahntexte-kopf. */
       RUN addLink ( h_d-mahntexte , 'Data':U , h_f-mahntexte-kopf ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-mahntexte-kopf ,
             CB_Textart:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 2 */
    WHEN 3 THEN DO:
       RUN constructObject (
             INPUT  'f-mahntexte-kopftext.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-mahntexte-kopftext ).
       RUN repositionObject IN h_f-mahntexte-kopftext ( 5.00 , 4.00 ) NO-ERROR.
       /* Size in AB:  ( 9.57 , 94.40 ) */

       /* Links to SmartFrame h_f-mahntexte-kopftext. */
       RUN addLink ( h_d-mahntexte , 'Data':U , h_f-mahntexte-kopftext ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-mahntexte-kopftext ,
             CB_Textart:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 3 */
    WHEN 4 THEN DO:
       RUN constructObject (
             INPUT  'f-mahntexte-ueberschrift.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-mahntexte-ueberschrift ).
       RUN repositionObject IN h_f-mahntexte-ueberschrift ( 5.00 , 4.00 ) NO-ERROR.
       /* Size in AB:  ( 11.43 , 80.00 ) */

       /* Links to SmartFrame h_f-mahntexte-ueberschrift. */
       RUN addLink ( h_d-mahntexte , 'Data':U , h_f-mahntexte-ueberschrift ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-mahntexte-ueberschrift ,
             CB_Textart:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 4 */
    WHEN 5 THEN DO:
       RUN constructObject (
             INPUT  'f-mahntexte-schlusstext.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-mahntexte-schlusstext ).
       RUN repositionObject IN h_f-mahntexte-schlusstext ( 5.00 , 4.00 ) NO-ERROR.
       /* Size in AB:  ( 9.57 , 94.40 ) */

       /* Links to SmartFrame h_f-mahntexte-schlusstext. */
       RUN addLink ( h_d-mahntexte , 'Data':U , h_f-mahntexte-schlusstext ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-mahntexte-schlusstext ,
             CB_Textart:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 5 */
    WHEN 6 THEN DO:
       RUN constructObject (
             INPUT  'f-mahntexte-rekap.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-mahntexte-rekap ).
       RUN repositionObject IN h_f-mahntexte-rekap ( 5.00 , 4.00 ) NO-ERROR.
       /* Size in AB:  ( 11.43 , 80.00 ) */

       /* Links to SmartFrame h_f-mahntexte-rekap. */
       RUN addLink ( h_d-mahntexte , 'Data':U , h_f-mahntexte-rekap ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_f-mahntexte-rekap ,
             CB_Textart:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 6 */

  END CASE.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE changePage wMahntexte 
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_COMBO wMahntexte 
PROCEDURE DISABLE_COMBO :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DO WITH FRAME {&FRAME-NAME}:
        CB_Sprache  :SENSITIVE = FALSE.
        CB_Mahnstufe:SENSITIVE = FALSE.
        CB_Textart  :SENSITIVE = FALSE.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wMahntexte  _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(wMahntexte)
  THEN DELETE WIDGET wMahntexte.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wMahntexte 
PROCEDURE enableObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    { incl/winenableobject.i }

    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_COMBO wMahntexte 
PROCEDURE ENABLE_COMBO :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DO WITH FRAME {&FRAME-NAME}:
        CB_Sprache  :SENSITIVE = TRUE.
        CB_Mahnstufe:SENSITIVE = TRUE.
        CB_Textart  :SENSITIVE = TRUE.
        DYNAMIC-FUNCTION('setTextArt':U IN h_d-mahntexte, iStufe, iArt ) NO-ERROR.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wMahntexte  _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 CB_Sprache CB_Mahnstufe CB_Textart 
      WITH FRAME fMain IN WINDOW wMahntexte.
  ENABLE CB_Sprache CB_Mahnstufe CB_Textart 
      WITH FRAME fMain IN WINDOW wMahntexte.
  {&OPEN-BROWSERS-IN-QUERY-fMain}
  VIEW wMahntexte.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wMahntexte 
PROCEDURE ENDE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/winende.i }

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENTRY_CURSOR wMahntexte 
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 RUN applyEntry IN h_f-mahntexte-firma        ( INPUT ? ).
        WHEN 2 THEN RUN applyEntry IN h_f-mahntexte-kopf         ( INPUT ? ).
        WHEN 3 THEN RUN applyEntry IN h_f-mahntexte-kopftext     ( INPUT ? ).
        WHEN 4 THEN RUN applyEntry IN h_f-mahntexte-ueberschrift ( INPUT ? ).
        WHEN 5 THEN RUN applyEntry IN h_f-mahntexte-schlusstext  ( 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 wMahntexte 
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 wMahntexte 
PROCEDURE initializeObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_SPRACHE ( CB_Sprache:HANDLE ).
        ASSIGN  iSprcd  = 1
                iStufe  = 0
                iArt    = 0.
    END.
    
    RUN SUPER.

    { incl/wininitializeobject.i }
    
    CB_Sprache  :SCREEN-VALUE = STRING(iSprcd,'999999') NO-ERROR.
    CB_Mahnstufe:SCREEN-VALUE = STRING(iStufe).
    CB_Textart  :SCREEN-VALUE = STRING(iArt)  .
    
    APPLY 'VALUE-CHANGED' TO CB_Textart.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SEITENWECHSEL wMahntexte 
PROCEDURE SEITENWECHSEL :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/winseitenwechsel.i }

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wMahntexte 
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 wMahntexte 
PROCEDURE TOOLBAR :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/wintoolbar.i }

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wMahntexte 
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 wMahntexte 
FUNCTION getProgname RETURNS CHARACTER
  ( /* parameter-definitions */ ) :
/*------------------------------------------------------------------------------
  Purpose:  
    Notes:  
------------------------------------------------------------------------------*/

    RETURN Progname.

END FUNCTION.

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