GeMIS_WEB/GUI/g-p_faelligkeit.w

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

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

{ incl/dlgdefinition.i }

DEF VAR excelAppl   AS COM-HANDLE               NO-UNDO.
DEF VAR nTotale     AS DEC  EXTENT 10           NO-UNDO.

DEF TEMP-TABLE tFaellig
    FIELD iKnr          AS INT
    FIELD cKunde        AS CHAR
    FIELD cVertr        AS CHAR
    FIELD iAnz          AS INT
    FIELD nSaldo        AS DEC
    FIELD nFaellig      AS DEC  EXTENT 5
    
    INDEX tFaellig-k1 IS PRIMARY
        iKnr
    .

{ src/adm2/widgetprto.i }

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-2 F_vonKnr F_bisKnr CB_Vertreter Btn_OK ~
Btn_Cancel 
&Scoped-Define DISPLAYED-OBJECTS F_vonKnr F_bisKnr CB_Vertreter 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_vonKnr F_bisKnr 

/* _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 15 BY 1.

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "OK" 
     SIZE 15 BY 1.

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.8 BY 1 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_vonKnr AS INTEGER FORMAT "999999":U INITIAL 0 
     LABEL "von - bis Knr" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 11 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-2
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 60 BY 7.14.


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

DEFINE FRAME gFaelligkeitsUebersicht
     F_vonKnr AT ROW 2.52 COL 20 COLON-ALIGNED WIDGET-ID 4
     F_bisKnr AT ROW 2.52 COL 34 COLON-ALIGNED WIDGET-ID 6
     CB_Vertreter AT ROW 3.52 COL 20 COLON-ALIGNED WIDGET-ID 8
     Btn_OK AT ROW 10 COL 12.2
     Btn_Cancel AT ROW 10 COL 33.4
     RECT-2 AT ROW 1.48 COL 3 WIDGET-ID 2
     SPACE(1.99) SKIP(2.94)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Fälligkeitsstatistik"
         CANCEL-BUTTON Btn_Cancel WIDGET-ID 100.


/* *********************** 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 APPSERVER
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gFaelligkeitsUebersicht 
/* ************************* 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 gFaelligkeitsUebersicht
   FRAME-NAME                                                           */
ASSIGN 
       FRAME gFaelligkeitsUebersicht:SCROLLABLE       = FALSE
       FRAME gFaelligkeitsUebersicht:HIDDEN           = TRUE.

/* SETTINGS FOR FILL-IN F_bisKnr IN FRAME gFaelligkeitsUebersicht
   6                                                                    */
/* SETTINGS FOR FILL-IN F_vonKnr IN FRAME gFaelligkeitsUebersicht
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

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

 



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

&Scoped-define SELF-NAME gFaelligkeitsUebersicht
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gFaelligkeitsUebersicht gFaelligkeitsUebersicht
ON END-ERROR OF FRAME gFaelligkeitsUebersicht /* Fälligkeitsstatistik */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gFaelligkeitsUebersicht gFaelligkeitsUebersicht
ON WINDOW-CLOSE OF FRAME gFaelligkeitsUebersicht /* Fälligkeitsstatistik */
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 gFaelligkeitsUebersicht
ON CHOOSE OF Btn_Cancel IN FRAME gFaelligkeitsUebersicht /* 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 gFaelligkeitsUebersicht
ON CHOOSE OF Btn_OK IN FRAME gFaelligkeitsUebersicht /* OK */
DO:
    RUN REPORT.
    btnOK = TRUE.
    APPLY 'ENTRY' TO F_vonKnr.
    RETURN NO-APPLY.
END.

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


&UNDEFINE SELF-NAME

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


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

    { incl/dlgmainblock.i }

    {src/adm2/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gFaelligkeitsUebersicht  _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 disable_UI gFaelligkeitsUebersicht  _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 gFaelligkeitsUebersicht.
END PROCEDURE.

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

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

    DEF VAR cString     AS CHAR                     NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_VERTRETER ( CB_Vertreter:HANDLE ).
        cString = 'Alle Vertreter;999999;'
                + CB_Vertreter:LIST-ITEM-PAIRS.
        CB_Vertreter:LIST-ITEM-PAIRS = cString.
        CB_Vertreter:SCREEN-VALUE    = '999999'.
    END.

    { incl/dlgenableobject.i }

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gFaelligkeitsUebersicht  _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 CB_Vertreter 
      WITH FRAME gFaelligkeitsUebersicht.
  ENABLE RECT-2 F_vonKnr F_bisKnr CB_Vertreter Btn_OK Btn_Cancel 
      WITH FRAME gFaelligkeitsUebersicht.
  VIEW FRAME gFaelligkeitsUebersicht.
  {&OPEN-BROWSERS-IN-QUERY-gFaelligkeitsUebersicht}
END PROCEDURE.

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

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

    IF btnOK THEN DO:
    END.

    { incl/dlgende.i }

END PROCEDURE.

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

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

    DEF VAR cVorlage    AS CHAR                     NO-UNDO.
    DEF VAR cDokument   AS CHAR                     NO-UNDO.
    DEF VAR cDaten      AS CHAR                     NO-UNDO.
    DEF VAR cDateiName  AS CHAR                     NO-UNDO.
    DEF VAR Zelle       AS CHAR                     NO-UNDO.
    DEF VAR lJa         AS LOG                      NO-UNDO.

    FIND FIRST tFaellig NO-LOCK NO-ERROR.
    IF NOT AVAILABLE tFaellig THEN DO:
        MESSAGE 'Keine Daten selektiert ! ' VIEW-AS ALERT-BOX.
        RETURN.
    END.

    cVorlage    = 'Faelligkeit.xls'.
    cDokument   = 'Faelligkeit.xls'.
    cDaten      = 'Faelligkeit.txt'.

    cDateiName  = cDokument + CHR(01) + cVorlage.
    RUN CREATEDATEI ( INPUT cDateiName ).
    IF RETURN-VALUE BEGINS 'ERROR' THEN DO:
        MESSAGE RETURN-VALUE
            VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
        RETURN NO-APPLY.
    END.
    cDokument = RETURN-VALUE.

    cDateiName  = cDaten.
    RUN CREATEDATEI ( INPUT cDateiName ).
    IF RETURN-VALUE BEGINS 'ERROR' THEN DO:
        MESSAGE RETURN-VALUE
            VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
        RETURN NO-APPLY.
    END.
    cDaten = RETURN-VALUE.

    OUTPUT TO VALUE(cDaten).

    DEF VAR cZeile      AS CHAR                     NO-UNDO.

    PUT CONTROL '£££'
                TRIM(STRING(nTotale[01],'->>>>>>>>9.99')) + '£'
                TRIM(STRING(nTotale[03],'->>>>>>>>9.99')) + '£'
                TRIM(STRING(nTotale[04],'->>>>>>>>9.99')) + '£'
                TRIM(STRING(nTotale[05],'->>>>>>>>9.99')) + '£'
                TRIM(STRING(nTotale[06],'->>>>>>>>9.99')) + '£'
                TRIM(STRING(nTotale[07],'->>>>>>>>9.99')) + '£'
                TRIM(STRING(nTotale[02],'->>>>>>>>9.99'))
                CHR(10).
    FOR EACH tFaellig :
        cZeile = STRING(tFaellig.iKnr,'999999')                      + '£'
               + tFaellig.cKunde                                     + '£'
               + tFaellig.cVertr                                     + '£'
               + TRIM(STRING(tFaellig.iAnz        ,'>>>>>>9'))       + '£'
               + TRIM(STRING(tFaellig.nFaellig[01],'->>>>>>>>9.99')) + '£'
               + TRIM(STRING(tFaellig.nFaellig[02],'->>>>>>>>9.99')) + '£'
               + TRIM(STRING(tFaellig.nFaellig[03],'->>>>>>>>9.99')) + '£'
               + TRIM(STRING(tFaellig.nFaellig[04],'->>>>>>>>9.99')) + '£'
               + TRIM(STRING(tFaellig.nFaellig[05],'->>>>>>>>9.99')) + '£'
               + TRIM(STRING(tFaellig.nSaldo      ,'->>>>>>>>9.99')).
        PUT CONTROL cZeile  CHR(10).
    END.

    OUTPUT CLOSE.

    excelAppl = DYNAMIC-FUNCTION('CREATEEXCEL':U) NO-ERROR.
    IF NOT VALID-HANDLE(excelAppl) THEN DO:
        RUN FEHLER ( INPUT 1035 ).
        RETURN.
    END.

    RUN OPENEXCEL ( INPUT excelAppl, INPUT cDokument, INPUT '', OUTPUT lJa ).
    IF NOT lJa THEN DO:
        RUN FEHLER ( INPUT 1040 ).
        DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT excelAppl ) NO-ERROR.
        RETURN NO-APPLY.
    END.

    Zelle = 'A5'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:FormulaR1C1 = 'TEXT;' + cDaten.
    excelAppl:APPLICATION:RUN ( 'DateiEinfügen' ).

    RUN KOPF ( INPUT excelAppl ).

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.

    DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT excelAppl ) NO-ERROR.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER eh  AS COM-HANDLE       NO-UNDO.

    DEF VAR Zelle   AS CHAR                     NO-UNDO.
    DEF VAR rechts  AS INT                      NO-UNDO.
    DEF VAR mitte   AS INT                      NO-UNDO.
    DEF VAR i1      AS INT                      NO-UNDO.
    DEF VAR i2      AS INT                      NO-UNDO.
    DEF VAR Breite  AS DEC  DECIMALS 4          NO-UNDO.
    DEF VAR TotBre  AS DEC  DECIMALS 4          NO-UNDO.
    DEF VAR DifBre  AS DEC  DECIMALS 4          NO-UNDO.
    DEF VAR FHoch   AS LOG                      NO-UNDO.
    DEF VAR cMonate AS CHAR                     NO-UNDO
        INIT 'Jan;Feb;Mar;Apr;Mai;Jun;Jul;Aug;Sep;Okt;Nov;Dez;Kum'.
    DEF VAR lDatum  AS DATE                     NO-UNDO.

/*     eh:Range('A1'):Select.          */
/*     eh:Selection:ColumnWidth = 0.2. */

    FIND Steuer NO-LOCK USE-INDEX Steuer-k1
            WHERE Steuer.Firma = Firma NO-ERROR.

    Zelle = 'A1'.
    eh:Range(Zelle):Select.
    eh:Selection:Value = Steuer.Firma1.
    Zelle = 'A2'.
    eh:Range(Zelle):Select.
    eh:Selection:Value = Steuer.Ort.

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

    Zelle = 'D1'.
    eh:Range(Zelle):Select.
    eh:Selection:Value = 'Debitoren Fälligkeiten'.

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

    Zelle = 'J1'.
    eh:Range(Zelle):Select.
    eh:Selection:Value = 'Datum : ' + STRING(TODAY,'99.99.9999').
    Zelle = 'J2'.
    eh:Range(Zelle):Select.
    eh:Selection:Value = 'Zeit  :     ' + STRING(TIME,'HH:MM:SS').

END PROCEDURE.

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

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

    DEF VAR iVertr      AS INT                      NO-UNDO.
    DEF VAR iTage       AS INT                      NO-UNDO.
    DEF VAR cString     AS CHAR                     NO-UNDO.
    DEF VAR cVertr      AS CHAR                     NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&List-6}.
        iVertr = INTEGER(CB_Vertreter:SCREEN-VALUE).
        IF F_vonKnr = 0 AND 
           F_bisKnr = 0 THEN F_bisKnr = 999999.
        IF F_bisKnr < F_vonKnr THEN F_bisKnr = F_vonKnr.
        DISPLAY {&list-6}.
    END.
    
    EMPTY TEMP-TABLE tFaellig.

    FOR EACH Debst NO-LOCK
            WHERE Debst.Firma  = Firma
            AND   Debst.Knr   >= F_vonKnr
            AND   Debst.Knr   <= F_bisKnr
            AND ((iVertr = 999999)
             OR  (iVertr <> 999999  AND
                  Debst.Vertr  = iVertr)),
        EACH Debop NO-LOCK
            WHERE Debop.Firma  = Debst.Firma
            AND   Debop.Knr    = Debst.Knr
            AND   Debop.Saldo <> 0:
        iTage = TODAY - Debop.Faellig.
        IF   iTage > 90 THEN iTage = 5.
        ELSE IF iTage > 60 THEN iTage = 4.
        ELSE IF iTage > 30 THEN iTage = 3.
        ELSE IF iTage > 00 THEN iTage = 2.
        ELSE                    iTage = 1.
        
        FIND FIRST tFaellig
                WHERE tFaellig.iKnr = Debop.Knr NO-ERROR.
        IF NOT AVAILABLE tFaellig THEN DO:
            FIND FIRST Adresse NO-LOCK
                    WHERE Adresse.Firma = AdFirma
                    AND   Adresse.Knr   = Debop.Knr.
            RUN FIND_VERTRETER ( Debst.Vertr, OUTPUT cVertr ) NO-ERROR.
            CREATE tFaellig.
            ASSIGN  tFaellig.iKnr   = Debop.Knr
                    tFaellig.cKunde = Adresse.Anzeig_Br.
            IF cVertr <> '' THEN DO:
                tFaellig.cVertr = ENTRY(2, cVertr, CHR(01)).
            END.
        END.
        ASSIGN  tFaellig.iAnz            = tFaellig.iAnz            + 1.
                tFaellig.nSaldo          = tFaellig.nSaldo          + Debop.Saldo.
                tFaellig.nFaellig[iTage] = tFaellig.nFaellig[iTage] + Debop.Saldo.
    END.
    
    nTotale = 0.
    FOR EACH tFaellig:
        ASSIGN  nTotale[01] = nTotale[01] + tFaellig.iAnz
                nTotale[02] = nTotale[02] + tFaellig.nSaldo
                nTotale[03] = nTotale[03] + tFaellig.nFaellig[01]
                nTotale[04] = nTotale[04] + tFaellig.nFaellig[02]
                nTotale[05] = nTotale[05] + tFaellig.nFaellig[03]
                nTotale[06] = nTotale[06] + tFaellig.nFaellig[04]
                nTotale[07] = nTotale[07] + tFaellig.nFaellig[05].
    END.
    
    RUN EXCEL.

END PROCEDURE.

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