GeMIS_WEB/GUI/g-mahnwork.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME gMahnwork
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gMahnwork 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrdlg.w - ADM2 SmartDialog Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

  Created: 
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEF VAR MaxPage         AS INT                      NO-UNDO.
DEF VAR AktSeite        AS INT                      NO-UNDO.
DEF VAR FMutFlag        AS LOG                      NO-UNDO.
DEF VAR Firma           AS CHAR                     NO-UNDO.
DEF VAR AdFirma         AS CHAR                     NO-UNDO.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE SmartDialog
&Scoped-define DB-AWARE no

&Scoped-define ADM-CONTAINER DIALOG-BOX

&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME gMahnwork

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-1 F_VonKnr F_BisKnr F_VonDatum ~
F_BisDatum CB_Kundengruppe CB_Vertreter CB_Mahnstufe F_Toleranz T_Faellig ~
T_Gut T_Positiv T_Hoechste Btn_OK Btn_Cancel 
&Scoped-Define DISPLAYED-OBJECTS F_VonKnr F_BisKnr F_VonDatum F_BisDatum ~
CB_Kundengruppe CB_Vertreter CB_Mahnstufe F_Toleranz T_Faellig T_Gut ~
T_Positiv T_Hoechste 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_VonKnr F_BisKnr F_VonDatum F_BisDatum F_Toleranz ~
T_Faellig T_Gut T_Positiv T_Hoechste 

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



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

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Cancel AUTO-END-KEY 
     LABEL "abbrechen" 
     SIZE 14 BY 1.

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "erstellen" 
     SIZE 14 BY 1.

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

DEFINE VARIABLE CB_Mahnstufe AS CHARACTER FORMAT "X(256)":U 
     LABEL "Mahnstufe" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Kontoauszug","0",
                     "1. Mahnung","1",
                     "2. Mahnung","2",
                     "3. Mahnung","3",
                     "Inkasso","4",
                     "Alle Stufen","5"
     DROP-DOWN-LIST
     SIZE 35 BY 1
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_BisDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "-" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_BisKnr AS INTEGER FORMAT "999999":U INITIAL 0 
     LABEL "-" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 11 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Status AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 70 BY 1
     BGCOLOR 14  NO-UNDO.

DEFINE VARIABLE F_Toleranz AS INTEGER FORMAT "99":U INITIAL 0 
     LABEL "Toleranztage auf Fälligkeit" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 6 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_VonDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "von - bis Fakturadatum" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_VonKnr AS INTEGER FORMAT "999999":U INITIAL 0 
     LABEL "von - bis Kundennummer" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 11 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-1
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 82 BY 14.76.

DEFINE VARIABLE T_Faellig AS LOGICAL INITIAL NO 
     LABEL "nur fällige ?" 
     VIEW-AS TOGGLE-BOX
     SIZE 40 BY 1 NO-UNDO.

DEFINE VARIABLE T_Gut AS LOGICAL INITIAL NO 
     LABEL "Gutschriften auch ?" 
     VIEW-AS TOGGLE-BOX
     SIZE 40 BY 1 NO-UNDO.

DEFINE VARIABLE T_Hoechste AS LOGICAL INITIAL YES 
     LABEL "alles auf die höchste Mahnstufe" 
     VIEW-AS TOGGLE-BOX
     SIZE 40 BY 1 NO-UNDO.

DEFINE VARIABLE T_Positiv AS LOGICAL INITIAL YES 
     LABEL "nur mit Gesamtsaldo grösser Null?" 
     VIEW-AS TOGGLE-BOX
     SIZE 40 BY 1 NO-UNDO.


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

DEFINE FRAME gMahnwork
     F_VonKnr AT ROW 2 COL 33 COLON-ALIGNED
     F_BisKnr AT ROW 2 COL 52 COLON-ALIGNED
     F_VonDatum AT ROW 3 COL 33 COLON-ALIGNED
     F_BisDatum AT ROW 3 COL 52 COLON-ALIGNED
     CB_Kundengruppe AT ROW 4 COL 33 COLON-ALIGNED
     CB_Vertreter AT ROW 5 COL 33 COLON-ALIGNED WIDGET-ID 6
     CB_Mahnstufe AT ROW 6 COL 33 COLON-ALIGNED WIDGET-ID 12
     F_Toleranz AT ROW 7 COL 33 COLON-ALIGNED WIDGET-ID 8
     T_Faellig AT ROW 8 COL 35
     T_Gut AT ROW 9 COL 35
     T_Positiv AT ROW 10 COL 35 WIDGET-ID 2
     T_Hoechste AT ROW 11 COL 35 WIDGET-ID 10
     Btn_OK AT ROW 12.52 COL 14.8
     Btn_Cancel AT ROW 12.52 COL 56
     F_Status AT ROW 14 COL 7 COLON-ALIGNED NO-LABEL NO-TAB-STOP 
     RECT-1 AT ROW 1.24 COL 2 WIDGET-ID 4
     SPACE(0.99) SKIP(0.23)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "erstellen Mahnwork"
         DEFAULT-BUTTON Btn_OK CANCEL-BUTTON Btn_Cancel.


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDialog
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target
   Design Page: 1
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gMahnwork 
/* ************************* Included-Libraries *********************** */

{src/adm2/containr.i}

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




/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR DIALOG-BOX gMahnwork
   FRAME-NAME                                                           */
ASSIGN 
       FRAME gMahnwork:SCROLLABLE       = FALSE
       FRAME gMahnwork:HIDDEN           = TRUE.

/* SETTINGS FOR FILL-IN F_BisDatum IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR FILL-IN F_BisKnr IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Status IN FRAME gMahnwork
   NO-DISPLAY NO-ENABLE                                                 */
ASSIGN 
       F_Status:HIDDEN IN FRAME gMahnwork           = TRUE
       F_Status:READ-ONLY IN FRAME gMahnwork        = TRUE.

/* SETTINGS FOR FILL-IN F_Toleranz IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR FILL-IN F_VonDatum IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR FILL-IN F_VonKnr IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Faellig IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Gut IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Hoechste IN FRAME gMahnwork
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Positiv IN FRAME gMahnwork
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


/* Setting information for Queries and Browse Widgets fields            */

&ANALYZE-SUSPEND _QUERY-BLOCK DIALOG-BOX gMahnwork
/* Query rebuild information for DIALOG-BOX gMahnwork
     _Options          = "SHARE-LOCK"
     _Query            is NOT OPENED
*/  /* DIALOG-BOX gMahnwork */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME gMahnwork
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gMahnwork gMahnwork
ON END-ERROR OF FRAME gMahnwork /* erstellen Mahnwork */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gMahnwork gMahnwork
ON GO OF FRAME gMahnwork /* erstellen Mahnwork */
DO:
    /*
    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ) NO-ERROR.
    */
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gMahnwork gMahnwork
ON WINDOW-CLOSE OF FRAME gMahnwork /* erstellen Mahnwork */
DO:  
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME Btn_Cancel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Cancel gMahnwork
ON CHOOSE OF Btn_Cancel IN FRAME gMahnwork /* abbrechen */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME Btn_OK
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK gMahnwork
ON CHOOSE OF Btn_OK IN FRAME gMahnwork /* erstellen */
DO:
    RUN CREATE_WORKFILE.
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&UNDEFINE SELF-NAME

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


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

    MaxPage  = 1.
    AktSeite = 1.

    Firma   = DYNAMIC-FUNCTION('GETMANDANT':U)   NO-ERROR.
    AdFirma = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.

    SESSION:DATA-ENTRY-RETURN = TRUE.

    SUBSCRIBE TO 'TOOLBAR' ANYWHERE.

/*  TRIGGERS    ------------------------------------------------------  */

/*  ------------------------------------------------------------------  */

    {src/adm2/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gMahnwork  _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 CREATE_WORKFILE gMahnwork 
PROCEDURE CREATE_WORKFILE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR Ku_Grp      AS INT                      NO-UNDO.
    DEF VAR iVertreter  AS INT                      NO-UNDO.
    DEF VAR iStufe      AS INT                      NO-UNDO.
    DEF VAR i1          AS INT                      NO-UNDO.
    DEF VAR i2          AS INT                      NO-UNDO.
    DEF VAR cString     AS CHAR                     NO-UNDO.
    DEF VAR dFaellig    AS DATE                     NO-UNDO.
    DEFINE VARIABLE nTotSaldo   AS DECIMAL  NO-UNDO.
    
    DEF BUFFER bMahnung     FOR Mahnung.

    DO WITH FRAME {&FRAME-NAME}:
        Btn_OK    :SENSITIVE = FALSE.
        Btn_Cancel:SENSITIVE = FALSE.

        ASSIGN  {&List-6}.
        Ku_Grp     = INTEGER(CB_Kundengruppe:SCREEN-VALUE) NO-ERROR.
        iVertreter = INTEGER(CB_Vertreter   :SCREEN-VALUE) NO-ERROR.
        iStufe     = INTEGER(CB_Mahnstufe   :SCREEN-VALUE) NO-ERROR.

        IF F_VonDatum = ? THEN F_VonDatum = 01/01/0001.
        IF F_BisDatum = ? THEN F_BisDatum = TODAY.
        IF F_BisDatum < F_VonDatum THEN F_BisDatum = F_VonDatum.
        IF F_VonKnr = 0 AND F_BisKnr = 0 THEN F_BisKnr = 999999.
        IF F_VonKnr > F_BisKnr           THEN F_BisKnr = F_VonKnr.
    
        DISPLAY {&List-6}.

        cString = F_VonKnr       :SCREEN-VALUE      + '£'
                + F_BisKnr       :SCREEN-VALUE      + '£'
                + F_VonDatum     :SCREEN-VALUE      + '£'
                + F_BisDatum     :SCREEN-VALUE      + '£'
                + CB_Kundengruppe:SCREEN-VALUE      + '£'
                + T_Faellig      :SCREEN-VALUE      + '£'
                + T_Gut          :SCREEN-VALUE      + '£'
                + CB_Vertreter   :SCREEN-VALUE      + '£'
                + T_Hoechste     :SCREEN-VALUE      + '£'
                + CB_Mahnstufe   :SCREEN-VALUE      + '£'
                .
        PUT-KEY-VALUE SECTION 'Mahnung' KEY 'WorkParameter' VALUE cString.
    END.
    
    DO WITH FRAME {&FRAME-NAME}:
        F_Status:HIDDEN    = FALSE.
        F_Status:SENSITIVE = TRUE.

        SESSION:IMMEDIATE-DISPLAY = TRUE.
        F_Status:SCREEN-VALUE = 'altes Mahnwork wird gelöscht ... '.
    END.

    FOR EACH Mahnung:
        DELETE  Mahnung.
    END.
    
    DO WITH FRAME {&FRAME-NAME}:
        F_Status:SCREEN-VALUE = 'Mahnwork wird erstellt ... '.
    END.

    FOR EACH Debop NO-LOCK USE-INDEX Debop-k1
            WHERE Debop.Firma   = Firma
            AND   Debop.Knr    >= F_VonKnr
            AND   Debop.Knr    <= F_BisKnr
            AND   Debop.FakDat >= F_VonDatum
            AND   Debop.FakDat <= F_BisDatum
            AND   Debop.Saldo  <> 0 ,
        FIRST Kondi NO-LOCK
            WHERE Kondi.Sprcd = 1
            AND   Kondi.Kond  = Debop.Kond
                
            BREAK BY Debop.Knr:
               
        IF FIRST-OF (Debop.Knr) THEN nTotSaldo = 0.
        
        IF Kondi.Mahnen > 0 THEN dFaellig = Debop.Fakdat  + Kondi.Mahnen.
        ELSE                     dFaellig = Debop.Faellig + F_Toleranz.

        IF T_Faellig THEN DO:
            IF dFaellig > TODAY THEN NEXT.
        END.

        IF NOT T_Gut THEN DO:
            IF Debop.Saldo < 0 THEN NEXT.
        END.
        
        FIND Debst NO-LOCK USE-INDEX Debst-k1
                WHERE Debst.Firma = Debop.Firma
                AND   Debst.Knr   = Debop.Knr NO-ERROR.
        IF NOT AVAILABLE Debst       THEN NEXT.
        IF Debst.Mahn = 1            THEN NEXT.
        IF Ku_Grp <> 999999          AND
           Debst.Ku_Grp <> Ku_Grp    THEN NEXT.
        IF iVertreter  <> 999999     AND
           Debst.Vertr <> iVertreter THEN NEXT.

        FIND Passant USE-INDEX Passant-k1 NO-LOCK
                WHERE Passant.Firma = Debop.Firma
                AND   Passant.Knr   = Debop.Knr
                AND   Passant.Faknr = Debop.Faknr NO-ERROR.
        
        CREATE  Mahnung.
        ASSIGN  Mahnung.Firma   = Debop.Firma
                Mahnung.Knr     = Debop.Knr
                Mahnung.Faknr   = Debop.Faknr
                Mahnung.Fakdat  = Debop.Fakdat
                Mahnung.Faellig = Debop.Faellig
                Mahnung.MahStu  = Debop.MahStu
                Mahnung.MahDat  = Debop.MahDat
                Mahnung.MahAnz  = Debop.MahAnz
                Mahnung.Fakbetr = Debop.Fakbetr
                Mahnung.Zahbetr = Debop.Zahbetr
                Mahnung.Skonto  = Debop.Skonto
                Mahnung.ZahDat  = Debop.ZahDat
                Mahnung.Saldo   = Debop.Saldo.
        IF AVAILABLE Passant THEN Mahnung.Passant = TRUE .
        ELSE                      Mahnung.Passant = FALSE.
        
        nTotSaldo = nTotSaldo + Debop.Saldo.
        
        IF NOT LAST-OF ( Debop.Knr ) THEN NEXT.
        IF Mahnung.Passant           THEN NEXT.
        IF NOT T_Positiv             THEN NEXT.
        IF nTotSaldo > 0             THEN NEXT.
                   
        FOR EACH bMahnung               /*  Gesamtbetrag der zu Mahnenden Posten ist < 0  */
            WHERE bMahnung.Firma = Debop.Firma
            AND   bMahnung.Knr   = Debop.Knr:
            DELETE  bMahnung.
        END.           
    END.

    DO WITH FRAME {&FRAME-NAME}:
        F_Status:SCREEN-VALUE = 'Mahnstufen werden zugeteilt ... '.
    END.

    /*  KUNDEN          */
    FOR EACH Mahnung NO-LOCK USE-INDEX Mahnung-k1
            WHERE Mahnung.Firma   = Firma
            AND   Mahnung.Passant = FALSE
            AND   Mahnung.Saldo   > 0
                     
            BREAK BY Mahnung.Knr
                  BY Mahnung.Faellig :

        IF T_Hoechste                   AND
           NOT FIRST-OF ( Mahnung.Knr ) THEN NEXT.
                                   
        i2 = TODAY - Mahnung.Faellig.
        i1 = 0.
        IF iStufe > 0 THEN DO:
            IF i2 >  30 THEN i1 = 1.
            IF i2 >  60 THEN i1 = 2.
            IF i2 >  90 THEN i1 = 3.
            IF i2 > 120 THEN i1 = 4.
        END.

        FOR EACH bMahnung
                WHERE bMahnung.Firma = Mahnung.Firma
                AND   bMahnung.Knr   = Mahnung.Knr
                AND ((T_Hoechste)
                 OR  (NOT T_Hoechste AND bMahnung.Faknr = Mahnung.Faknr))
                :
            bMahnung.MahStu = i1.
        END.
        RELEASE  bMahnung.
    END.
    
    
    /*  PASSANTEN       */
    FOR EACH Mahnung USE-INDEX Mahnung-k1
            WHERE Mahnung.Firma   = Firma
            AND   Mahnung.Passant = TRUE
            AND   Mahnung.Saldo   > 0
                     
            BREAK BY Mahnung.Knr
                  BY Mahnung.Faknr   :
                           
        IF NOT FIRST-OF ( Mahnung.Faknr ) THEN NEXT.
        
        i2 = TODAY - Mahnung.Faellig.
        i1 = 0.
        IF iStufe > 0 THEN DO:
            IF i2 >  30 THEN i1 = 1.
            IF i2 >  60 THEN i1 = 2.
            IF i2 >  90 THEN i1 = 3.
            IF i2 > 120 THEN i1 = 4.
        END.

        FOR EACH bMahnung
                WHERE bMahnung.Firma = Mahnung.Firma
                AND   bMahnung.Knr   = Mahnung.Knr
                AND   bMahnung.Faknr = Mahnung.Faknr:
            bMahnung.MahStu = i1.
        END.
        RELEASE  bMahnung.
    END.
    
    IF iStufe < 5 THEN DO:
        FOR EACH bMahnung
                WHERE bMahnung.Firma   = Mahnung.Firma
                AND   bMahnung.MahStu <> iStufe:
            DELETE  bMahnung.
        END.
    END.

    DO WITH FRAME {&FRAME-NAME}:
        F_Status:SENSITIVE = FALSE.
        F_Status:HIDDEN    = TRUE .

        SESSION:IMMEDIATE-DISPLAY = FALSE.
        F_Status:SCREEN-VALUE = ''.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI gMahnwork  _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.
------------------------------------------------------------------------------*/
  /* Hide all frames. */
  HIDE FRAME gMahnwork.
END PROCEDURE.

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

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

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_KUNDENGRP ( INPUT CB_Kundengruppe:HANDLE ) NO-ERROR.
        RUN COMBO_VERTRETER ( INPUT CB_Vertreter   :HANDLE ) NO-ERROR.

        DEF VAR cString AS CHAR                     NO-UNDO.
        DEF VAR i1      AS INT                      NO-UNDO.

        cString = 'Alle Kundengruppen;999999;' + CB_Kundengruppe:LIST-ITEM-PAIRS.
        CB_Kundengruppe:LIST-ITEM-PAIRS = cString.

        cString = 'Alle Vertreter;999999;' + CB_Vertreter:LIST-ITEM-PAIRS.
        CB_Vertreter   :LIST-ITEM-PAIRS = cString.

        GET-KEY-VALUE SECTION 'Mahnung' KEY 'WorkParameter' VALUE cString.
        IF cString = ?  OR
           cString = '' THEN cString = '£££££££££££'.
    END.

    RUN SUPER.

    RUN FENSTER_TITEL ( INPUT FRAME {&FRAME-NAME}:HANDLE ) NO-ERROR.

    DO WITH FRAME {&FRAME-NAME}:
        DO i1 = 1 TO NUM-ENTRIES(cString, '£'):
            CASE i1:
                WHEN  1 THEN F_VonKnr       :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  2 THEN F_BisKnr       :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  3 THEN F_VonDatum     :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  4 THEN F_BisDatum     :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  5 THEN CB_Kundengruppe:SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  6 THEN T_Faellig      :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  7 THEN T_Gut          :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  8 THEN CB_Vertreter   :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN  9 THEN T_Hoechste     :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
                WHEN 10 THEN CB_Mahnstufe   :SCREEN-VALUE = ENTRY(i1, cString, '£') NO-ERROR.
            END CASE.
        END.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gMahnwork  _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_VonKnr F_BisKnr F_VonDatum F_BisDatum CB_Kundengruppe CB_Vertreter 
          CB_Mahnstufe F_Toleranz T_Faellig T_Gut T_Positiv T_Hoechste 
      WITH FRAME gMahnwork.
  ENABLE RECT-1 F_VonKnr F_BisKnr F_VonDatum F_BisDatum CB_Kundengruppe 
         CB_Vertreter CB_Mahnstufe F_Toleranz T_Faellig T_Gut T_Positiv 
         T_Hoechste Btn_OK Btn_Cancel 
      WITH FRAME gMahnwork.
  VIEW FRAME gMahnwork.
  {&OPEN-BROWSERS-IN-QUERY-gMahnwork}
END PROCEDURE.

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

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

    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ).
    APPLY 'GO' TO FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

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