GeMIS_WEB/GUI/v8/f-bonberech.w

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS F-Frame-Win 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrfrm.w - ADM SmartFrame Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

 
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress UIB.             */
/*----------------------------------------------------------------------*/

/* 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 VSummGrp            AS INT                      NO-UNDO.
DEF VAR VMenge              AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR VVolumen            AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR VBetrag             AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR VMwst               AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR Berechtigt          AS LOG                      NO-UNDO.
DEF VAR Inklusive           AS LOG                      NO-UNDO.
DEF VAR VWuCd               AS INT                      NO-UNDO.
DEF VAR VArt                AS INT                      NO-UNDO.
DEF VAR VWert               AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR iLager              AS INT                      NO-UNDO.

DEF TEMP-TABLE  TBon        LIKE BonusAbr
                            USE-INDEX BonusAbr-k1 AS PRIMARY.

DEF BUFFER      BBon        FOR TBon.

DEF TEMP-TABLE TArtbw       LIKE Artbw
                            FIELD ARecid    AS RECID.

/*  ----------  Globale Variablen   ---------------------------------- */

{ v8/globvar.i" " " " "SHARED" }
{ v8/debivar.i " " " " "SHARED" }
{ v8/artivar.i " " " " "SHARED" }
{ v8/contvar.i " " " " "SHARED" }

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER FRAME

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS F_VonKnr F_BisKnr F_VonDatum F_BisDatum ~
F_Artikel F_Kunde Btn_Rechnen RECT-20 
&Scoped-Define DISPLAYED-OBJECTS F_VonKnr F_BisKnr F_VonDatum F_BisDatum ~
F_Artikel F_Kunde 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-1 F_VonKnr F_BisKnr F_VonDatum F_BisDatum 
&Scoped-define List-2 F_Artikel F_Kunde 

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



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


/* Menu Definitions                                                     */
DEFINE MENU POPUP-MENU-F-Main 
       MENU-ITEM m_Lschen_der_aufbereiteten_Da LABEL "Löschen der aufbereiteten Daten".


/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Rechnen 
     LABEL "Berechnen" 
     SIZE 16.8 BY 1.24.

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

DEFINE VARIABLE F_BisDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "--" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 19.6 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.2 BY 1
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_VonDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "von - bis Datum" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 19.6 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.2 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-20
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 128 BY 12.38.


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

DEFINE FRAME F-Main
     F_VonKnr AT ROW 3.48 COL 39.6 COLON-ALIGNED
     F_BisKnr AT ROW 3.48 COL 64.8 COLON-ALIGNED
     F_VonDatum AT ROW 4.71 COL 39.6 COLON-ALIGNED
     F_BisDatum AT ROW 4.71 COL 64.8 COLON-ALIGNED
     F_Artikel AT ROW 10.33 COL 6 COLON-ALIGNED NO-LABEL NO-TAB-STOP 
     F_Kunde AT ROW 8.43 COL 6 COLON-ALIGNED NO-LABEL NO-TAB-STOP 
     Btn_Rechnen AT ROW 3.29 COL 108.8
     RECT-20 AT ROW 1.24 COL 2
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1
         SIZE 130 BY 12.86.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartFrame
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Design Page: 3
   Other Settings: PERSISTENT-ONLY COMPILE
 */

/* This procedure should always be RUN PERSISTENT.  Report the error,  */
/* then cleanup and return.                                            */
IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
  MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
          VIEW-AS ALERT-BOX ERROR BUTTONS OK.
  RETURN.
END.

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW F-Frame-Win ASSIGN
         HEIGHT             = 12.76
         WIDTH              = 130.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB F-Frame-Win 
/* ************************* Included-Libraries *********************** */

{src/adm/method/containr.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW F-Frame-Win
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE FRAME-NAME Custom                                        */
ASSIGN 
       FRAME F-Main:POPUP-MENU       = MENU POPUP-MENU-F-Main:HANDLE.

/* SETTINGS FOR FILL-IN F_Artikel IN FRAME F-Main
   2                                                                    */
ASSIGN 
       F_Artikel:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN F_BisDatum IN FRAME F-Main
   1                                                                    */
/* SETTINGS FOR FILL-IN F_BisKnr IN FRAME F-Main
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Kunde IN FRAME F-Main
   2                                                                    */
ASSIGN 
       F_Kunde:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN F_VonDatum IN FRAME F-Main
   1                                                                    */
/* SETTINGS FOR FILL-IN F_VonKnr IN FRAME F-Main
   1                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

&ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
/* Query rebuild information for FRAME F-Main
     _Options          = ""
     _Query            is NOT OPENED
*/  /* FRAME F-Main */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME Btn_Rechnen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Rechnen F-Frame-Win
ON CHOOSE OF Btn_Rechnen IN FRAME F-Main /* Berechnen */
DO:

    DEF VAR FKunde  AS LOG                      NO-UNDO.
    DEF VAR iLager  AS INT                      NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    SESSION:IMMEDIATE-DISPLAY = TRUE.

    ASSIGN  {&List-1}.
    IF F_VonKnr = 0         AND
       F_BisKnr = 0         THEN F_BisKnr = 999999.
    IF F_VonKnr > F_BisKnr  THEN F_BisKnr = F_VonKnr.
    
    IF F_VonDatum = ?       THEN F_VonDatum = 01/01/0001.
    IF F_BisDatum = ? THEN DO:
       F_BisDatum = TODAY.
        DO WHILE TRUE.
            IF MONTH(F_BisDatum + 1) <> MONTH(F_BisDatum) THEN LEAVE.
            F_BisDatum = F_BisDatum - 1.
        END.
    END.
    DISPLAY {&List-1}.
    
    DISABLE Btn_Rechnen.

    F_Kunde   = 'Löschen der nicht verbuchten Boni'.
    F_Artikel = ''.
    DISPLAY {&List-2}.
    
    FOR EACH BonusAbr USE-INDEX BonusAbr-k1
                      WHERE BonusAbr.Firma    = GVFirma
                      AND   BonusAbr.Bon_Sta  = 0
                      AND   BonusAbr.Knr     >= F_VonKnr
                      AND   BonusAbr.Knr     <= F_BisKnr :
        DELETE  BonusAbr.
    END.
    
    F_Kunde = 'Aufbereiten der Verkäufe'.
    DISPLAY {&List-2}.
    
    VWucd = -1.
    FOR EACH TBon:
        DELETE  TBon.
    END.
    FOR EACH TArtbw:
        DELETE  TArtbw.
    END.
    FOR EACH Artbw USE-INDEX Artbw-k8
                   WHERE Artbw.Firma      = GVFirma
                   AND   Artbw.Tr_Art     = 01
                   AND   Artbw.Datum     <= F_BisDatum
                   AND   Artbw.Datum     >= F_VonDatum
                   AND   Artbw.Knr       >= F_VonKnr
                   AND   Artbw.Knr       <= F_BisKnr
                   AND   Artbw.Bonus_Verb = FALSE
                   AND   Artbw.Faknr      > 0
                   AND   Artbw.MWST%      = 0
                   AND   Artbw.Lager      = iLager   NO-LOCK:
        CREATE  TArtbw.
        BUFFER-COPY Artbw TO TArtbw.
        TArtbw.ARecid = RECID(Artbw).
    END.
    FOR EACH TArtbw:
        FIND LAST MWSTAns USE-INDEX MWSTAns-k1
                          WHERE MWSTAns.MWST_Cd = TArtbw.WuCd
                          AND   MWSTAns.Datum  <= TArtbw.Fak_dat NO-LOCK NO-ERROR.
        IF NOT AVAILABLE MWSTAns THEN NEXT.
        FIND Artbw WHERE RECID(Artbw) = TArtbw.ARecid.
        Artbw.MWST% = MWSTAns.Ansatz.
        DELETE  TArtbw.
    END.
    
    FOR EACH Artbw USE-INDEX Artbw-k8
                   WHERE Artbw.Firma      = GVFirma
                   AND   Artbw.Tr_Art     = 01
                   AND   Artbw.Datum     <= F_BisDatum
                   AND   Artbw.Datum     >= F_VonDatum
                   AND   Artbw.Knr       >= F_VonKnr
                   AND   Artbw.Knr       <= F_BisKnr
                   AND   Artbw.Bonus_Verb = FALSE
                   AND   Artbw.Tr_Art     = 01
                   AND   Artbw.Faknr      > 0
                   AND   Artbw.Lager      = iLager   NO-LOCK
                   
                   BREAK BY Artbw.Firma
                         BY Artbw.Knr
                         BY Artbw.Artnr
                         BY Artbw.Inhalt
                         BY Artbw.Jahr
                         BY Artbw.WuCd
                         BY Artbw.MWST% :

        IF FIRST-OF ( Artbw.Knr ) THEN DO:
            FKunde = TRUE.
            FIND Adresse USE-INDEX Adresse-k1
                         WHERE Adresse.Firma = AdFirma
                         AND   Adresse.Knr   = Artbw.Knr NO-LOCK NO-ERROR.
            IF NOT AVAILABLE Adresse THEN DO:
                FKunde  = FALSE.
                F_Kunde = STRING(Artbw.Knr,"999999 / ") + '????????????????????'.
            END.
            ELSE DO:
                F_Kunde = STRING(Artbw.Knr,"999999 / ") + Adresse.Anzeig_Br.
            END.
            DISPLAY {&List-2} WITH FRAME {&FRAME-NAME}.
        END.
                         
        DO WHILE FIRST-OF ( Artbw.MWST% ):
            VMenge     = 0.
            VVolumen   = 0.
            VBetrag    = 0.
            Berechtigt = FALSE.
            VSummGrp   = 0.
            Inklusive  = Artbw.MWST_Inkl.
            VMwst      = Artbw.MWST%.

            FIND Artst OF Artbw NO-LOCK NO-ERROR.
            IF NOT AVAILABLE Artst THEN LEAVE.
            
            FIND Debst NO-LOCK USE-INDEX Debst-k1
                    WHERE Debst.Firma = Artbw.Firma
                    AND   Debst.Knr   = Artbw.Knr NO-ERROR.
            IF NOT AVAILABLE Debst THEN DO:
                FKunde = FALSE.
                LEAVE.
            END.
            FIND BonTab USE-INDEX BonTab-k1
                        WHERE BonTab.Firma   = GVFirma
                        AND   BonTab.Ku_Bon  = Debst.Bonus
                        AND   BonTab.Art_Bon = Artst.Bonus  NO-LOCK NO-ERROR.
            IF NOT AVAILABLE BonTab THEN LEAVE.
            VSummGrp = BonTab.Bon_Summ.
            IF VSummGrp = 0 THEN LEAVE.

            F_Artikel = STRING(Artbw.Artnr ,"999999/")
                      + STRING(Artbw.Inhalt,"9999/")
                      + STRING(Artbw.Jahr  ,"9999  ")
                      + Artst.Bez.
            DISPLAY {&List-2} WITH FRAME {&FRAME-NAME}.
            
            Berechtigt = TRUE.
            LEAVE.
        END.
        IF NOT FKunde THEN NEXT.

        DO WHILE Berechtigt:        
            VMenge   = VMenge   + Artbw.Menge.
            VVolumen = VVolumen + Artbw.Liter.
            VBetrag  = VBetrag  + Artbw.Net_Betr
                                - Artbw.Auf_Rab
                                - Artbw.Abh_Rab
                                - Artbw.Auf_Sp_Rab.
        
            IF NOT LAST-OF ( Artbw.MWST% ) THEN LEAVE.

            IF Inklusive THEN VBetrag = VBetrag * 100 / (100 + VMWst).

            FIND TBon USE-INDEX BonusAbr-k1
                      WHERE TBon.Firma    = Artbw.Firma
                      AND   TBon.Bon_Sta  = 0
                      AND   TBon.Knr      = Artbw.Knr
                      AND   TBon.VonDatum = F_VonDatum
                      AND   TBon.SummGrp  = VSummGrp
                      AND   TBon.Artnr    = Artbw.Artnr
                      AND   TBon.Inhalt   = Artbw.Inhalt
                      AND   TBon.Jahr     = Artbw.Jahr
                      AND   TBon.MWST-%   = VMwst   NO-ERROR.
            IF NOT AVAILABLE TBon THEN DO:
                CREATE  TBon.
                ASSIGN  TBon.Firma      = Artbw.Firma
                        TBon.Bon_Sta    = 0
                        TBon.Knr        = Artbw.Knr
                        TBon.VonDatum   = F_VonDatum
                        TBon.SummGrp    = VSummGrp
                        TBon.Artnr      = Artbw.Artnr
                        TBon.Inhalt     = Artbw.Inhalt
                        TBon.Jahr       = Artbw.Jahr
                        TBon.MWST-%     = VMwst
                        TBon.Menge      = VMenge
                        TBon.Volumen    = VVolumen
                        TBon.Betrag     = VBetrag
                        TBon.BisDatum   = F_BisDatum.
            END.
            ELSE DO:
                ASSIGN  TBon.Menge      = TBon.Menge    + VMenge
                        TBon.Volumen    = TBon.Volumen  + VVolumen
                        TBon.Betrag     = TBon.Betrag   + VBetrag.
            END.
            
            LEAVE.
        END.
                
        IF NOT LAST-OF ( Artbw.Knr ) THEN NEXT.
        
        FOR EACH TBon USE-INDEX BonusAbr-k1 NO-LOCK

                      BREAK BY TBon.Firma
                            BY TBon.Bon_Sta
                            BY TBon.Knr
                            BY TBon.SummGrp
                            BY TBon.Artnr
                            BY TBon.Inhalt
                            BY TBon.Jahr :

            IF FIRST-OF ( TBon.SummGrp ) THEN DO:
                VMenge   = 0.
                VVolumen = 0.
                VBetrag  = 0.
            END.
            
            VMenge   = VMenge   + TBon.Menge.
            VVolumen = VVolumen + TBon.Volumen.
            VBetrag  = VBetrag  + TBon.Betrag.
            
            IF NOT LAST-OF ( TBon.SummGrp ) THEN NEXT.
            
            FIND FIRST BonSumm USE-INDEX BonSumm-k1
                               WHERE BonSumm.Firma    = GVFirma
                               AND   BonSumm.Bon_Summ = TBon.SummGrp NO-LOCK NO-ERROR.
            IF NOT AVAILABLE BonSumm THEN NEXT.
            
            VArt     = BonSumm.Bon_Art.
            VWert    = 0.
            VVolumen = VVolumen / 100.
            
            CASE VArt:
                WHEN 0 THEN DO:     /*  Rappen auf Mengen   */
                    FIND LAST BonSumm USE-INDEX BonSumm-k1
                                      WHERE BonSumm.Firma    = GVFirma
                                      AND   BonSumm.Bon_Summ = TBon.SummGrp
                                      AND   BonSumm.Menge   <= VMenge   NO-LOCK NO-ERROR.
                END.
                WHEN 1 THEN DO:     /*  Rappen auf Mengen   */
                    FIND LAST BonSumm USE-INDEX BonSumm-k1
                                      WHERE BonSumm.Firma    = GVFirma
                                      AND   BonSumm.Bon_Summ = TBon.SummGrp
                                      AND   BonSumm.Betrag  <= VBetrag  NO-LOCK NO-ERROR.
                END.
                WHEN 2 THEN DO:     /*  Rappen auf Mengen   */
                    FIND LAST BonSumm USE-INDEX BonSumm-k1
                                      WHERE BonSumm.Firma    = GVFirma
                                      AND   BonSumm.Bon_Summ = TBon.SummGrp
                                      AND   BonSumm.Inhalt  <= VVolumen  NO-LOCK NO-ERROR.
                END.
            END CASE.
            
            IF AVAILABLE BonSumm THEN VWert = BonSumm.Bon_Wert.
            
            FOR EACH BBon USE-INDEX BonusAbr-k1
                          WHERE BBon.Firma    = TBon.Firma
                          AND   BBon.Bon_Sta  = TBon.Bon_Sta
                          AND   BBon.Knr      = TBon.Knr
                          AND   BBon.VonDatum = TBon.VonDatum
                          AND   BBon.SummGrp  = TBon.SummGrp :
                BBon.Bon_Wert = VWert.
                BBon.Bon_Art  = VArt.
            END.
        END.
        
        FOR EACH TBon USE-INDEX BonusAbr-k1:
            FIND BonusAbr OF TBon NO-ERROR.
            IF NOT AVAILABLE BonusAbr THEN DO:
                CREATE  BonusAbr.
                { v8/bonusabr.i "BonusAbr" "TBon" }
            END.
            ELSE DO:
                ASSIGN  BonusAbr.Menge   = BonusAbr.Menge   + TBon.Menge
                        BonusAbr.Volumen = BonusAbr.Volumen + TBon.Volumen
                        BonusAbr.Betrag  = BonusAbr.Betrag  + TBon.Betrag.
            END.
            
            CASE BonusAbr.Bon_Art:
            
                WHEN 0 THEN BonusAbr.Bonus = BonusAbr.Menge   * BonusAbr.Bon_Wert.
                WHEN 1 THEN BonusAbr.Bonus = BonusAbr.Betrag  * BonusAbr.Bon_Wert / 100.
                WHEN 2 THEN BonusAbr.Bonus = BonusAbr.Volumen * BonusAbr.Bon_Wert / 100.
                
            END CASE.
            
            DELETE  TBon.
        END.
    END.
    
    ENABLE  Btn_Rechnen.
    APPLY   'ENTRY' TO F_VonKnr.
    SESSION:IMMEDIATE-DISPLAY = FALSE.
    RETURN  NO-APPLY.
END.

END.

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


&Scoped-define SELF-NAME m_Lschen_der_aufbereiteten_Da
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lschen_der_aufbereiteten_Da F-Frame-Win
ON CHOOSE OF MENU-ITEM m_Lschen_der_aufbereiteten_Da /* Löschen der aufbereiteten Daten */
DO:
    DEF VAR ja      AS LOG  INIT FALSE          NO-UNDO.
    MESSAGE 'Wollen Sie die Daten wirklich löschen?'
            VIEW-AS ALERT-BOX QUESTION
        UPDATE ja.
    IF NOT ja THEN RETURN NO-APPLY.
    FOR EACH BonusAbr USE-INDEX BonusAbr-k1
            WHERE BonusAbr.Firma    = GVFirma
            AND   BonusAbr.Bon_Sta  = 0:
        DELETE  BonusAbr.
    END.
    RETURN NO-APPLY.
END.

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


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK F-Frame-Win 


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

SUBSCRIBE TO 'BONUSLAGER' ANYWHERE.

&IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN
   /* Now enable the interface  if in test mode - otherwise this happens when
      the object is explicitly initialized from its container. */
   RUN dispatch IN THIS-PROCEDURE ('initialize':U).
&ENDIF

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects F-Frame-Win  _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 adm-row-available F-Frame-Win  _ADM-ROW-AVAILABLE
PROCEDURE adm-row-available :
/*------------------------------------------------------------------------------
  Purpose:     Dispatched to this procedure when the Record-
               Source has a new row available.  This procedure
               tries to get the new row (or foriegn keys) from
               the Record-Source and process it.
  Parameters:  <none>
------------------------------------------------------------------------------*/

  /* Define variables needed by this internal procedure.             */
  {src/adm/template/row-head.i}

  /* Process the newly available records (i.e. display fields,
     open queries, and/or pass records on to any RECORD-TARGETS).    */
  {src/adm/template/row-end.i}

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE BONUSLAGER F-Frame-Win 
PROCEDURE BONUSLAGER :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipLager AS INT          NO-UNDO.

    iLager = ipLager.
    
    DO WITH FRAME {&FRAME-NAME}:
        APPLY 'ENTRY' TO F_VonKnr.
        RETURN NO-APPLY.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI F-Frame-Win  _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 F-Main.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI F-Frame-Win  _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 F_Artikel F_Kunde 
      WITH FRAME F-Main.
  ENABLE F_VonKnr F_BisKnr F_VonDatum F_BisDatum F_Artikel F_Kunde Btn_Rechnen 
         RECT-20 
      WITH FRAME F-Main.
  {&OPEN-BROWSERS-IN-QUERY-F-Main}
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-view F-Frame-Win 
PROCEDURE local-view :
/*------------------------------------------------------------------------------
  Purpose:     Override standard ADM method
  Notes:       
------------------------------------------------------------------------------*/

    RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) .

    PUBLISH 'GETBONUSLAGER' ( OUTPUT iLager ).
    
    APPLY 'ENTRY' TO F_VonKnr IN FRAME {&FRAME-NAME}.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records F-Frame-Win  _ADM-SEND-RECORDS
PROCEDURE send-records :
/*------------------------------------------------------------------------------
  Purpose:     Send record ROWID's for all tables used by
               this file.
  Parameters:  see template/snd-head.i
------------------------------------------------------------------------------*/

  /* SEND-RECORDS does nothing because there are no External
     Tables specified for this SmartFrame, and there are no
     tables specified in any contained Browse, Query, or Frame. */

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed F-Frame-Win 
PROCEDURE state-changed :
/* -----------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
-------------------------------------------------------------*/
  DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE NO-UNDO.
  DEFINE INPUT PARAMETER p-state AS CHARACTER NO-UNDO.
END PROCEDURE.

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