GeMIS_WEB/GUI/f-savgebko.w

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

  File: 

  Description: from cntnrfrm.w - ADM2 SmartFrame Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

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

DEFINE VARIABLE Bez        AS CHARACTER FORMAT "x(30)" NO-UNDO.
DEFINE VARIABLE GeTot      AS DECIMAL   FORMAT "zzz9.999-" DECIMALS 4 NO-UNDO.
DEFINE VARIABLE Firma      AS CHARACTER NO-UNDO.
DEFINE VARIABLE AdFirma    AS CHARACTER NO-UNDO.
DEFINE VARIABLE iAufnr     AS INTEGER   NO-UNDO.
DEFINE VARIABLE xTotal     AS CHARACTER NO-UNDO.
DEFINE VARIABLE VTotal     AS DECIMAL   DECIMALS 4 EXTENT 15 NO-UNDO.
DEFINE VARIABLE SAktiv     AS LOG       NO-UNDO.
DEFINE VARIABLE lView      AS LOG       INIT FALSE NO-UNDO.
DEFINE VARIABLE xRecid     AS RECID     NO-UNDO.
DEFINE VARIABLE ARecid     AS RECID     NO-UNDO.
DEFINE VARIABLE LHandle    AS HANDLE    NO-UNDO.
DEFINE VARIABLE wHandle    AS HANDLE    NO-UNDO.
DEFINE VARIABLE Menge      AS DECIMAL   DECIMALS 4 NO-UNDO.
DEFINE VARIABLE LKY        AS INTEGER   NO-UNDO.
DEFINE VARIABLE FBez       AS LOG       INIT FALSE NO-UNDO.
DEFINE VARIABLE cKonto     AS CHARACTER NO-UNDO.
DEFINE VARIABLE iLager     AS INTEGER   NO-UNDO.
DEFINE VARIABLE fOpen      AS LOG       INIT TRUE NO-UNDO.
DEFINE VARIABLE Progname   AS CHARACTER NO-UNDO.
DEFINE VARIABLE lMut       AS LOG       NO-UNDO.
DEFINE VARIABLE hKontainer AS HANDLE    NO-UNDO.
DEFINE VARIABLE hQuery     AS HANDLE    NO-UNDO.
DEFINE VARIABLE FMutFlag   AS LOGICAL   NO-UNDO.

DEFINE TEMP-TABLE tGebRueck LIKE GebRueck.
DEFINE TEMP-TABLE tGebKonto LIKE GebKonto.
DEFINE TEMP-TABLE tGebinde
    FIELD Sort_Cd  AS CHARACTER 
    FIELD Geb_Cd   AS CHARACTER 
    FIELD cBez     AS CHARACTER
    FIELD iAusgang AS INTEGER 
    FIELD iEingang AS INTEGER 
    FIELD nPreis   AS DECIMAL   DECIMALS 3
    FIELD nBetrAus AS DECIMAL 
    FIELD nBetrEin AS DECIMAL 
    FIELD iSaldo   AS INTEGER 
    FIELD nBetrag  AS DECIMAL
        
    INDEX tGebinde-k1 IS PRIMARY 
    Sort_Cd
    Geb_Cd
    .
DEFINE VARIABLE htGebinde AS HANDLE NO-UNDO.
htGebinde = TEMP-TABLE tGebinde:DEFAULT-BUFFER-HANDLE.

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

&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 fMain
&Scoped-define BROWSE-NAME Br_Gebinde

/* Internal Tables (found by Frame, Query & Browse Queries)             */
&Scoped-define INTERNAL-TABLES tGebinde

/* Definitions for BROWSE Br_Gebinde                                    */
&Scoped-define FIELDS-IN-QUERY-Br_Gebinde cBez iAusgang iEingang iSaldo nPreis nBetrag   
&Scoped-define ENABLED-FIELDS-IN-QUERY-Br_Gebinde   
&Scoped-define SELF-NAME Br_Gebinde
&Scoped-define QUERY-STRING-Br_Gebinde FOR EACH tGebinde
&Scoped-define OPEN-QUERY-Br_Gebinde OPEN QUERY {&SELF-NAME} FOR EACH tGebinde.
&Scoped-define TABLES-IN-QUERY-Br_Gebinde tGebinde
&Scoped-define FIRST-TABLE-IN-QUERY-Br_Gebinde tGebinde


/* Definitions for FRAME fMain                                          */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS Br_Gebinde F_Kunde F_Zahbetr F_ZahSko F_WW ~
F_Gebinde F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt ~
F_Skonto_Bez RECT-39 
&Scoped-Define DISPLAYED-OBJECTS F_Kunde E_Adresse F_Zahbetr F_ZahSko ~
CB_ZAHLART F_WW F_Gebinde F_Recycling F_MWST F_Total F_Skonto F_Netto ~
F_Saldo F_Bezahlt F_Skonto_Bez 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_Kunde E_Adresse F_Zahbetr F_ZahSko F_WW F_Gebinde ~
F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt F_Skonto_Bez 

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getBez fFrameWin 
FUNCTION getBez RETURNS CHARACTER
    ( ipGeb_Cd AS CHARACTER  )  FORWARD.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTotalBetr fFrameWin 
FUNCTION getTotalBetr RETURNS DECIMAL
    ( Betr_1 AS DECIMAL, Betr_2 AS DECIMAL, Betr_3 AS DECIMAL  )  FORWARD.

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


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


/* Definitions of the field level widgets                               */
DEFINE VARIABLE CB_ZAHLART AS CHARACTER FORMAT "X(256)":U 
     LABEL "Zahlungsart" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 36 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE E_Adresse AS CHARACTER 
     VIEW-AS EDITOR NO-WORD-WRAP SCROLLBAR-HORIZONTAL SCROLLBAR-VERTICAL
     SIZE 50 BY 7
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Bezahlt AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Bezahlt" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 14  NO-UNDO.

DEFINE VARIABLE F_Gebinde AS DECIMAL FORMAT "zzz,zz9.999-":U INITIAL 0 
     LABEL "Gebinde" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_MWST AS DECIMAL FORMAT "zzz,zz9.999-":U INITIAL 0 
     LABEL "Mehrwertst." 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Netto AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Nettobetrag" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Recycling AS DECIMAL FORMAT "zzz,zz9.999-":U INITIAL 0 
     LABEL "Gebühren" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Saldo AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Saldo" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 14  NO-UNDO.

DEFINE VARIABLE F_Skonto AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Skonto" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Skonto_Bez AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Skontoabzug" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 17 BY 1
     BGCOLOR 14  NO-UNDO.

DEFINE VARIABLE F_Total AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Totalbetrag" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_WW AS DECIMAL FORMAT "zzz,zz9.999-":U INITIAL 0 
     LABEL "Warenwert" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Zahbetr AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Zahlbetrag" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 18 BY 1
     BGCOLOR 15 FGCOLOR 12  NO-UNDO.

DEFINE VARIABLE F_ZahSko AS DECIMAL FORMAT "zzz,zz9.99-":U INITIAL 0 
     LABEL "Skonto" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 17 BY 1
     BGCOLOR 15 FGCOLOR 12  NO-UNDO.

DEFINE RECTANGLE RECT-39
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 146 BY 25.95.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY Br_Gebinde FOR 
      tGebinde SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE Br_Gebinde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_Gebinde fFrameWin _FREEFORM
  QUERY Br_Gebinde DISPLAY
      cBez        LABEL 'Gebinde' FORMAT 'x(15)'
    iAusgang    LABEL 'Gel'     FORMAT 'zzz9-'
    iEingang    LABEL 'Retour'  FORMAT 'zzz9-'
    iSaldo      LABEL 'Saldo'   FORMAT 'zzz9-'
    nPreis      LABEL 'Preis'   FORMAT 'zz9.99'
    nBetrag     LABEL 'Preis'   FORMAT 'z,zz9.99-'
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ROW-MARKERS SEPARATORS SIZE 57.2 BY 20.


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

DEFINE FRAME fMain
     Br_Gebinde AT ROW 3 COL 5 WIDGET-ID 100
     F_Kunde AT ROW 1.52 COL 3 COLON-ALIGNED NO-LABEL WIDGET-ID 4 NO-TAB-STOP 
     E_Adresse AT ROW 3 COL 80 NO-LABEL WIDGET-ID 2 NO-TAB-STOP 
     F_Zahbetr AT ROW 19.14 COL 78 COLON-ALIGNED
     F_ZahSko AT ROW 19.14 COL 112 COLON-ALIGNED
     CB_ZAHLART AT ROW 21.52 COL 94 COLON-ALIGNED NO-TAB-STOP 
     F_WW AT ROW 11.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Gebinde AT ROW 12.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Recycling AT ROW 13.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_MWST AT ROW 14.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Total AT ROW 15.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Skonto AT ROW 16.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Netto AT ROW 17.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Saldo AT ROW 18.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Bezahlt AT ROW 20.14 COL 78 COLON-ALIGNED NO-TAB-STOP 
     F_Skonto_Bez AT ROW 20.14 COL 112 COLON-ALIGNED NO-TAB-STOP 
     RECT-39 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 148.6 BY 26.48.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartFrame
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target
   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 fFrameWin ASSIGN
         HEIGHT             = 26.48
         WIDTH              = 148.6.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB fFrameWin 
/* ************************* 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 fFrameWin
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   NOT-VISIBLE FRAME-NAME Custom                                        */
/* BROWSE-TAB Br_Gebinde 1 fMain */
ASSIGN 
       FRAME fMain:HIDDEN           = TRUE.

/* SETTINGS FOR COMBO-BOX CB_ZAHLART IN FRAME fMain
   NO-ENABLE                                                            */
/* SETTINGS FOR EDITOR E_Adresse IN FRAME fMain
   NO-ENABLE 6                                                          */
ASSIGN 
       E_Adresse:RETURN-INSERTED IN FRAME fMain  = TRUE
       E_Adresse:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Bezahlt IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Bezahlt:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Gebinde IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Gebinde:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Kunde IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Kunde:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_MWST IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_MWST:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Netto IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Netto:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Recycling IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Recycling:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Saldo IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Saldo:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Skonto IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Skonto:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Skonto_Bez IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Skonto_Bez:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Total IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Total:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_WW IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_WW:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_Zahbetr IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_Zahbetr:READ-ONLY IN FRAME fMain        = TRUE.

/* SETTINGS FOR FILL-IN F_ZahSko IN FRAME fMain
   6                                                                    */
ASSIGN 
       F_ZahSko:READ-ONLY IN FRAME fMain        = TRUE.

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


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

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_Gebinde
/* Query rebuild information for BROWSE Br_Gebinde
     _START_FREEFORM
OPEN QUERY {&SELF-NAME} FOR EACH tGebinde.
     _END_FREEFORM
     _Query            is NOT OPENED
*/  /* BROWSE Br_Gebinde */
&ANALYZE-RESUME

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

 



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

&Scoped-define SELF-NAME CB_ZAHLART
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_ZAHLART fFrameWin
ON RETURN OF CB_ZAHLART IN FRAME fMain /* Zahlungsart */
DO:
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME F_Zahbetr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zahbetr fFrameWin
ON RETURN OF F_Zahbetr IN FRAME fMain /* Zahlbetrag */
DO:
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME F_ZahSko
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_ZahSko fFrameWin
ON RETURN OF F_ZahSko IN FRAME fMain /* Skonto */
DO:
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.

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


&Scoped-define BROWSE-NAME Br_Gebinde
&UNDEFINE SELF-NAME

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


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

SAktiv = DYNAMIC-FUNCTION('getSuperAktiv':U) NO-ERROR.
Firma  = DYNAMIC-FUNCTION('getMandant':U)     NO-ERROR.
fOpen  = FALSE.
    
    &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 initializeObject.
    &ENDIF

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


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

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

    DEFINE VARIABLE ix      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE VKonto  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
    DEFINE BUFFER bSavko    FOR savko   .
    DEFINE BUFFER bSavGebKo FOR SavGebKo.
    DEFINE BUFFER bGebKonto FOR GebKonto.
    DEFINE BUFFER bAdresse  FOR Adresse .
    DEFINE BUFFER bSteuer   FOR Steuer  .
    
    FIND bSteuer NO-LOCK
        WHERE bSteuer.Firma = Firma.
    AdFirma = bSteuer.AdFirma.

    ASSIGN  
        E_Adresse   = ''
        F_Bezahlt   = 0.00
        F_Kunde     = ''
        F_MWST      = 0.00
        F_Netto     = 0.00
        F_Recycling = 0.00
        F_Saldo     = 0.00
        F_Skonto    = 0.00
        F_Total     = 0.00
        F_WW        = 0.00
        F_Zahbetr   = 0.00
        F_ZahSko    = 0.00
        F_Gebinde   = 0.00.
        
    FIND bSavko NO-LOCK
        WHERE bSavko.Firma = Firma
        AND   bSavko.Aufnr = iAufnr NO-ERROR.
    iAufnr = bSavko.Aufnr.
    iLager = bSavko.Lager.
    ARecid = RECID(bSavko).
    
    DO WITH FRAME {&FRAME-NAME}:

        VTotal  = 0.
        cString = DYNAMIC-FUNCTION('getVerbuchtTotale':U, Firma, iAufnr, OUTPUT VTotal ) NO-ERROR.
    
        F_WW         = VTotal[01].
        F_Gebinde    = VTotal[11].
        F_Recycling  = VTotal[12].
        F_MWST       = VTotal[09].
        F_Total      = VTotal[10].
        F_Skonto     = 0.
        F_ZahBetr    = 0.
        F_ZahSko     = 0.
        VKonto       = ''.
        IF VKonto = '' THEN VKonto = cKonto.
        
        F_Bezahlt    = bSavko.Bar_Betr.
        F_Skonto_Bez = bSavko.Bar_Skonto.
        VKonto       = bSavko.Bar_Konto.
            
        FIND bAdresse NO-LOCK
            WHERE bAdresse.Firma = AdFirma
            AND   bAdresse.Knr   = bSavko.Knr.
        DO ix = 11 TO 5 BY -1:
            E_Adresse = bADresse.Anschrift[ix]
                + (IF E_Adresse = '' THEN '' ELSE CHR(10))
                + E_Adresse.
        END.
        F_Kunde = STRING(bAdresse.Knr,'999999') + ' / ' + bAdresse.Anzeig_Br.
        
        E_Adresse = CHR(10)
            + SUBSTITUTE('Knr.: &1 / iAufnr.: &2', bSavko.Knr, bSavko.Aufnr)
            + E_Adresse.
        
        CB_Zahlart:SCREEN-VALUE = VKonto NO-ERROR.
        F_Netto      = F_Total - F_Skonto.
        F_Saldo      = F_Total - F_Bezahlt - F_Skonto.
        
        RELEASE bAdresse.
        RELEASE bSavko.

        DISPLAY {&List-6}.

    END.

END PROCEDURE.

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

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

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

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

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cKey    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE hBrowse AS HANDLE    NO-UNDO.
    
    RUN SUPER.

    DO WITH FRAME {&FRAME-NAME}:
/*        SavGebKo.Menge:READ-ONLY IN BROWSE {&BROWSE-NAME} = TRUE.*/
/*        {&BROWSE-NAME}:READ-ONLY = TRUE.                         */
        APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
    END.
    
    IF sAktiv THEN 
    DO:
        RUN COMBO_ZAHLUNGSART ( CB_Zahlart:HANDLE ) NO-ERROR.
        CREATE QUERY hQuery.
        hQuery:SET-BUFFERS ( htGebinde ).
        BROWSE {&BROWSE-NAME}:QUERY = hQuery.
END.

EMPTY TEMP-TABLE tGebRueck.
FOR EACH GebRueck WHERE GebRueck.Firma = Firma NO-LOCK:
    CREATE  tGebRueck.
    BUFFER-COPY GebRueck TO tGebRueck.
END.

EMPTY TEMP-TABLE tGebKonto.
FOR EACH GebKonto WHERE GebKonto.Firma = Firma NO-LOCK:
    CREATE  tGebKonto.
    BUFFER-COPY GebKonto TO tGebKonto.
END.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI fFrameWin  _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_Kunde E_Adresse F_Zahbetr F_ZahSko CB_ZAHLART F_WW F_Gebinde 
          F_Recycling F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt 
          F_Skonto_Bez 
      WITH FRAME fMain.
  ENABLE Br_Gebinde F_Kunde F_Zahbetr F_ZahSko F_WW F_Gebinde F_Recycling 
         F_MWST F_Total F_Skonto F_Netto F_Saldo F_Bezahlt F_Skonto_Bez RECT-39 
      WITH FRAME fMain.
  {&OPEN-BROWSERS-IN-QUERY-fMain}
END PROCEDURE.

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

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

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

/* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

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

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

    DEFINE VARIABLE cWhere AS CHARACTER NO-UNDO.

    IF NOT fOpen THEN RETURN.

    EMPTY TEMP-TABLE tGebinde.
    FOR EACH SavGKon NO-LOCK 
        WHERE SavGKon.Firma = Firma
        AND   SavGKon.Aufnr = iAufnr
        AND   SavGKon.Depot > 0:
        CREATE  tGebinde.
        ASSIGN  
            tGebinde.Geb_Cd   = SavGKon.Geb_Cd
            tGebinde.Sort_Cd  = SavGKon.Sort_Cd
            tGebinde.cBez     = DYNAMIC-FUNCTION('getBez':U IN THIS-PROCEDURE, SavGKon.Geb_Cd )
            tGebinde.nPreis   = SavGKon.Depot
            tGebinde.iAusgang = SavGKon.Ausgang
            tGebinde.iEingang = SavGKon.Eingang
            tGebinde.iSaldo   = tGebinde.iAusgang - tGebinde.iEingang
            tGebinde.nBetrAus = SavGKon.Ausgang   * SavGKon.Depot
            tGebinde.nBetrEin = SavGKon.Eingang   * SavGKon.Depot
            tGebinde.nBetrag  = tGebinde.nBetrAus - tGebinde.nBetrEin.
    END.

    cWhere = 'FOR EACH tGebinde NO-LOCK USE-INDEX tGebinde-k1 '.

    hQuery:QUERY-PREPARE(cWhere).
    hQuery:QUERY-OPEN().

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SET_AUFNR fFrameWin 
PROCEDURE SET_AUFNR :
/*------------------------------------------------------------------------------
         Purpose:
         Notes:
        ------------------------------------------------------------------------------*/

    DEFINE INPUT PARAMETER ipiAufnr AS INTEGER NO-UNDO.
    
    iAufnr = ipiAufnr.
    fOpen  = TRUE.
    RUN OPENSAVGEBKO.
    RUN DETAILS.

END PROCEDURE.

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

/* ************************  Function Implementations ***************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getBez fFrameWin 
FUNCTION getBez RETURNS CHARACTER
    ( ipGeb_Cd AS CHARACTER  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    FIND GebKonto USE-INDEX GebKonto-k1
        WHERE GebKonto.Firma  = Firma
        AND   GebKonto.Geb_Cd = ipGeb_Cd NO-LOCK NO-ERROR.
    IF AVAILABLE GebKonto THEN Bez = GebKonto.Bez.
    ELSE                       Bez = SUBSTITUTE("??&1??", ipGeb_Cd).
    RETURN Bez.

END FUNCTION.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTotalBetr fFrameWin 
FUNCTION getTotalBetr RETURNS DECIMAL
    ( Betr_1 AS DECIMAL, Betr_2 AS DECIMAL, Betr_3 AS DECIMAL  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    GeTot = Betr_1 + Betr_2 + Betr_3.
    RETURN GeTot.

END FUNCTION.

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