GeMIS_WEB/GUI/v8/f-abhgebko.w

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&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 VAuf_Sta    AS INT                                  NO-UNDO.
DEF VAR VFak_Art    AS INT                                  NO-UNDO.
DEF VAR VWert       AS CHAR                                 NO-UNDO.
DEF VAR AInhalt     AS CHAR                                 NO-UNDO.
DEF VAR NInhalt     AS CHAR                                 NO-UNDO.
DEF VAR GRecid      AS RECID                                NO-UNDO.

DEF VAR Vorhanden   AS LOG                                  NO-UNDO.
DEF VAR VAufnr      AS INT                                  NO-UNDO.
DEF VAR VText       AS CHAR                                 NO-UNDO.
DEF VAR VBetrag     AS DEC  DECIMALS 4                      NO-UNDO.
DEF VAR MutStatus   AS INT                                  NO-UNDO.

DEF BUFFER BAufGebKo    FOR AufGebKo.

/*  ----------  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 first Frame and/or Browse and/or first Query                 */
&Scoped-define FRAME-NAME F-Main
&Scoped-define BROWSE-NAME Br_AbhGebko

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

/* Definitions for BROWSE Br_AbhGebko                                   */
&Scoped-define FIELDS-IN-QUERY-Br_AbhGebko AufGebKo.Menge VText @ VText ~
VBetrag @ VBetrag 
&Scoped-define ENABLED-FIELDS-IN-QUERY-Br_AbhGebko AufGebKo.Menge 
&Scoped-define ENABLED-TABLES-IN-QUERY-Br_AbhGebko AufGebKo
&Scoped-define FIRST-ENABLED-TABLE-IN-QUERY-Br_AbhGebko AufGebKo
&Scoped-define OPEN-QUERY-Br_AbhGebko OPEN QUERY Br_AbhGebko FOR EACH AufGebKo NO-LOCK.
&Scoped-define TABLES-IN-QUERY-Br_AbhGebko AufGebKo
&Scoped-define FIRST-TABLE-IN-QUERY-Br_AbhGebko AufGebKo


/* Definitions for FRAME F-Main                                         */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS Br_AbhGebko 
&Scoped-Define DISPLAYED-OBJECTS F_Feld 

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

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



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


/* Definitions of the field level widgets                               */
DEFINE VARIABLE F_Feld AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 8.2 BY 1.24
     BGCOLOR 15  NO-UNDO.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY Br_AbhGebko FOR 
      AufGebKo SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE Br_AbhGebko
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_AbhGebko F-Frame-Win _STRUCTURED
  QUERY Br_AbhGebko DISPLAY
      AufGebKo.Menge FORMAT "zz,zz9-":U WIDTH 8
      VText @ VText COLUMN-LABEL "Bezeichnung" FORMAT "x(30)":U
      VBetrag @ VBetrag COLUMN-LABEL "Betrag" FORMAT "zzz,zz9.99-":U
            WIDTH 16
  ENABLE
      AufGebKo.Menge
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ROW-MARKERS SEPARATORS SIZE 60.4 BY 21.05
         BGCOLOR 15 .


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

DEFINE FRAME F-Main
     Br_AbhGebko AT ROW 1.48 COL 3
     F_Feld AT ROW 5.48 COL 18.6 COLON-ALIGNED NO-LABEL
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1
         SIZE 64.2 BY 21.95.


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

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

/* 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             = 21.95
         WIDTH              = 64.2.
/* 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                                                          */
/* BROWSE-TAB Br_AbhGebko 1 F-Main */
/* SETTINGS FOR FILL-IN F_Feld IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       F_Feld:HIDDEN IN FRAME F-Main           = TRUE.

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


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

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_AbhGebko
/* Query rebuild information for BROWSE Br_AbhGebko
     _TblList          = "AnaDat.AufGebKo"
     _FldNameList[1]   > AnaDat.AufGebKo.Menge
"Menge" ? ? "decimal" ? ? ? ? ? ? yes ? no no "8" yes no no "U" "" ""
     _FldNameList[2]   > "_<CALC>"
"VText @ VText" "Bezeichnung" "x(30)" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[3]   > "_<CALC>"
"VBetrag @ VBetrag" "Betrag" "zzz,zz9.99-" ? ? ? ? ? ? ? no ? no no "16" yes no no "U" "" ""
     _Query            is NOT OPENED
*/  /* BROWSE Br_AbhGebko */
&ANALYZE-RESUME

&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 F-Main
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main F-Frame-Win
ON ENTRY OF FRAME F-Main
DO:
    IF MutStatus = 0 THEN RETURN.
    RUN ABBRECHEN.
    APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main F-Frame-Win
ON LEAVE OF FRAME F-Main
DO:
    RUN TASTENANALYSE.
END.

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


&Scoped-define BROWSE-NAME Br_AbhGebko
&Scoped-define SELF-NAME Br_AbhGebko
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_AbhGebko F-Frame-Win
ON LEAVE OF Br_AbhGebko IN FRAME F-Main
DO:
    RUN TASTENANALYSE.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_AbhGebko F-Frame-Win
ON ROW-DISPLAY OF Br_AbhGebko IN FRAME F-Main
DO:
    IF NOT AVAILABLE AufGebKo THEN RETURN.
    RUN ANZEIGEN.

    IF AufGebKo.Menge <> 0 THEN DO:
        AufGebKo.Menge:BGCOLOR IN BROWSE {&BROWSE-NAME} = 8.
        VText:BGCOLOR          IN BROWSE {&BROWSE-NAME} = 8.
        VBetrag:BGCOLOR        IN BROWSE {&BROWSE-NAME} = 8.
    END.
    ELSE DO:
        AufGebKo.Menge:BGCOLOR IN BROWSE {&BROWSE-NAME} = 15.
        VText:BGCOLOR          IN BROWSE {&BROWSE-NAME} = 15.
        VBetrag:BGCOLOR        IN BROWSE {&BROWSE-NAME} = 15.
    END.
END.

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


&Scoped-define SELF-NAME AufGebKo.Menge
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL AufGebKo.Menge Br_AbhGebko _BROWSE-COLUMN F-Frame-Win
ON ANY-KEY OF AufGebKo.Menge IN BROWSE Br_AbhGebko /* Menge */
DO:
MESSAGE KEYFUNCTION(LASTKEY) VIEW-AS ALERT-BOX.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL AufGebKo.Menge Br_AbhGebko _BROWSE-COLUMN F-Frame-Win
ON END-ERROR OF AufGebKo.Menge IN BROWSE Br_AbhGebko /* Menge */
DO:
    IF MutStatus = 0 THEN RETURN.
    SELF:SCREEN-VALUE = STRING(AufGebKo.Menge).
    RUN ABBRECHEN.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL AufGebKo.Menge Br_AbhGebko _BROWSE-COLUMN F-Frame-Win
ON LEAVE OF AufGebKo.Menge IN BROWSE Br_AbhGebko /* Menge */
DO:
    RUN TASTENANALYSE.
/*    IF MutStatus = 0 THEN RETURN.
 *     
 *     CASE KEYFUNCTION(LASTKEY):
 *         WHEN 'RETURN'       THEN.
 *         WHEN 'CURSOR-UP'    THEN.
 *         WHEN 'CURSOR-DOWN'  THEN.
 *         OTHERWISE DO:
 *             SELF:SCREEN-VALUE = STRING(AufGebKo.Menge).
 *             RUN ABBRECHEN.
 *             RETURN NO-APPLY.
 *         END.
 *     END CASE.
 *     
 *     AInhalt = STRING(AufGebKo.Menge).
 *     NInhalt = SELF:SCREEN-VALUE.
 *     RUN MUTIEREN.*/
END.

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


&UNDEFINE SELF-NAME

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


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

    GET-KEY-VALUE SECTION 'Abholverkauf'
                  KEY     'Auftragsstatus'
                  VALUE   VWert.
    IF VWert = ? THEN VWert = '9'.
    VAuf_Sta = INTEGER(VWert).

    GET-KEY-VALUE SECTION 'Abholverkauf'
                  KEY     'Fakturaart'
                  VALUE   VWert.
    IF VWert = ? THEN VWert = '80'.
    VFak_Art = INTEGER(VWert).
    
ON "RETURN":U OF BROWSE Br_AbhGebKo
DO:
    IF MutStatus > 0 THEN RETURN.
    RUN MUTATION.
END.

&IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN
    RUN dispatch IN THIS-PROCEDURE ('initialize':U).
&ENDIF

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


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

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

    IF MutStatus = 0 THEN RETURN.

DO WITH FRAME {&FRAME-NAME}:
    F_Feld:HIDDEN    = FALSE.
    F_Feld:SENSITIVE = TRUE.
    APPLY 'ENTRY' TO F_Feld.
    AufGebKo.Menge:READ-ONLY    IN BROWSE {&BROWSE-NAME} = TRUE.
    F_Feld:SENSITIVE = FALSE.
    F_Feld:HIDDEN    = TRUE.
    MutStatus = 0.
    RUN new-state ( 'MutEnde, AUFGEBKO':U ).
    APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
END.
    
END PROCEDURE.

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

&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 ANZEIGEN F-Frame-Win 
PROCEDURE ANZEIGEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VText = ''.
    IF AVAILABLE AufGebKo THEN DO:
        FIND GebRueck USE-INDEX GebRueck-k1
                      WHERE GebRueck.Firma  = GVFirma
                      AND   GebRueck.Geb_Cd = AufGebKo.Geb_Cd NO-LOCK NO-ERROR.
        IF AVAILABLE GebRueck THEN VText = GebRueck.Bez.
        ELSE                       VText = FILL('?', 20).
        VBetrag = AufGebKo.Betrag_1 + AufGebKo.Betrag_2 + AufGebKo.Betrag_3.
    END.

END PROCEDURE.

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

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

FIND FIRST AufGebKo USE-INDEX AufGebKo-k1
                    WHERE AufGebKo.Firma = GVFirma
                    AND   AufGebKo.Aufnr = VAufnr NO-LOCK NO-ERROR.

IF NOT AVAILABLE AufGebKo THEN DO:   
    FOR EACH GebRueck USE-INDEX GebRueck-k1
                      WHERE GebRueck.Firma = GVFirma NO-LOCK TRANSACTION:
        CREATE  AufGebKo.
        ASSIGN  AufGebKo.Firma   = GVFirma
                AufGebKo.Aufnr   = VAufnr
                AufGebKo.Sort_Cd = GebRueck.Sort_Cd
                AufGebKo.Geb_Cd  = GebRueck.Geb_Cd
                AufGebKo.Anz_1   = GebRueck.Anz_1
                AufGebKo.Kto_Cd1 = GebRueck.Kto_Cd1
                AufGebKo.Anz_2   = GebRueck.Anz_2
                AufGebKo.Kto_Cd2 = GebRueck.Kto_Cd2
                AufGebKo.Anz_3   = GebRueck.Anz_3
                AufGebKo.Kto_Cd3 = GebRueck.Kto_Cd3.
        IF AufGebKo.Kto_Cd1 <> '' THEN DO:
            FIND GebKonto USE-INDEX GebKonto-k1
                          WHERE GebKonto.Firma  = GVFirma
                          AND   GebKonto.Geb_Cd = AufGebKo.Kto_Cd1 NO-LOCK.
            AufGebKo.Wert_1 = GebKonto.Depot.
        END.
        IF AufGebKo.Kto_Cd2 <> '' THEN DO:
            FIND GebKonto USE-INDEX GebKonto-k1
                          WHERE GebKonto.Firma  = GVFirma
                          AND   GebKonto.Geb_Cd = AufGebKo.Kto_Cd2 NO-LOCK.
            AufGebKo.Wert_2 = GebKonto.Depot.
        END.
        IF AufGebKo.Kto_Cd3 <> '' THEN DO:
            FIND GebKonto USE-INDEX GebKonto-k1
                          WHERE GebKonto.Firma  = GVFirma
                          AND   GebKonto.Geb_Cd = AufGebKo.Kto_Cd3 NO-LOCK.
            AufGebKo.Wert_3 = GebKonto.Depot.
        END.
    END.
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_Feld 
      WITH FRAME F-Main.
  ENABLE Br_AbhGebko 
      WITH FRAME F-Main.
  {&OPEN-BROWSERS-IN-QUERY-F-Main}
END PROCEDURE.

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

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

    DEF VAR MW              AS INT.
    
    DEF INPUT PARAMETER Art AS INT.

    DO WHILE AufGebKo.Kto_Cd1 <> '':
        IF AufGebKo.Anz_1 = 0 THEN LEAVE.
        FIND GebKonto USE-INDEX GebKonto-k1
                      WHERE GebKonto.Firma  = GVFirma
                      AND   GebKonto.Geb_Cd = AufGebKo.Kto_Cd1 NO-LOCK.
        IF GebKonto.MWST_Art = 0 THEN MW = 11.
        IF GebKonto.MWST_Art = 2 THEN MW = GebKonto.MWST_Cd.
        IF GebKonto.MWST_Art = 1 THEN DO:
            FIND FIRST AufGKon USE-INDEX AufGKon-k1
                               WHERE AufGKon.Firma  = GVFirma
                               AND   AufGKon.Aufnr  = AufGebKo.Aufnr
                               AND   AufGKon.Geb_Cd = GebKonto.Geb_Cd NO-LOCK NO-ERROR.
            IF AVAILABLE AufGKon THEN MW = AufGKon.MWSt_Cd.
            ELSE                      MW = 11.
        END.
        FIND AufGKon USE-INDEX AufGKon-k1
                     WHERE AufGKon.Firma   = GVFirma
                     AND   AufGKon.Aufnr   = AufGebKo.Aufnr
                     AND   AufGKon.Geb_Cd  = GebKonto.Geb_Cd
                     AND   AufGKon.MWSt_Cd = MW    NO-ERROR.
        IF NOT AVAILABLE AufGKon THEN DO:
            CREATE  AufGKon.
            ASSIGN  AufGKon.Firma   = AufGebKo.Firma
                    AufGKon.Aufnr   = AufGebKo.Aufnr
                    AufGKon.Geb_Cd  = GebKonto.Geb_Cd
                    AufGKon.MWSt_Cd = MW
                    AufGKon.Gebuehr = GebKonto.Gebuehr
                    AufGKon.Depot   = GebKonto.Depot
                    AufGKon.Sort_Cd = GebKonto.Sort_Cd.
        END.
        IF Art = 1 THEN AufGKon.Eingang = AufGKon.Eingang + (AufGebKo.Anz_1 * AufGebKo.Menge).
        IF Art = 2 THEN AufGKon.Eingang = AufGKon.Eingang - (AufGebKo.Anz_1 * AufGebKo.Menge).
        AufGKon.Betrag  = (AufGKon.Ausgang - AufGKon.Eingang)
                        * (AufGKon.Depot   + AufGKon.Gebuehr).
        LEAVE.
    END.
                          
    DO WHILE AufGebKo.Kto_Cd2 <> '':
        IF AufGebKo.Anz_2 = 0 THEN LEAVE.
        FIND GebKonto USE-INDEX GebKonto-k1
                      WHERE GebKonto.Firma  = GVFirma
                      AND   GebKonto.Geb_Cd = AufGebKo.Kto_Cd2 NO-LOCK.
        IF GebKonto.MWST_Art = 0 THEN MW = 11.
        IF GebKonto.MWST_Art = 2 THEN MW = GebKonto.MWST_Cd.
        IF GebKonto.MWST_Art = 1 THEN DO:
            FIND FIRST AufGKon USE-INDEX AufGKon-k1
                               WHERE AufGKon.Firma  = GVFirma
                               AND   AufGKon.Aufnr  = AufGebKo.Aufnr
                               AND   AufGKon.Geb_Cd = GebKonto.Geb_Cd NO-LOCK NO-ERROR.
            IF AVAILABLE AufGKon THEN MW = AufGKon.MWSt_Cd.
            ELSE                      MW = 11.
        END.
        FIND AufGKon USE-INDEX AufGKon-k1
                     WHERE AufGKon.Firma   = GVFirma
                     AND   AufGKon.Aufnr   = AufGebKo.Aufnr
                     AND   AufGKon.Geb_Cd  = GebKonto.Geb_Cd
                     AND   AufGKon.MWSt_Cd = MW     NO-ERROR.
        IF NOT AVAILABLE AufGKon THEN DO:
            CREATE  AufGKon.
            ASSIGN  AufGKon.Firma   = AufGebKo.Firma
                    AufGKon.Aufnr   = AufGebKo.Aufnr
                    AufGKon.Geb_Cd  = GebKonto.Geb_Cd
                    AufGKon.MWSt_Cd = MW
                    AufGKon.Gebuehr = GebKonto.Gebuehr
                    AufGKon.Depot   = GebKonto.Depot
                    AufGKon.Sort_Cd = GebKonto.Sort_Cd.
        END.
        IF Art = 1 THEN AufGKon.Eingang = AufGKon.Eingang + (AufGebKo.Anz_2 * AufGebKo.Menge).
        IF Art = 2 THEN AufGKon.Eingang = AufGKon.Eingang - (AufGebKo.Anz_2 * AufGebKo.Menge).
        AufGKon.Betrag  = (AufGKon.Ausgang - AufGKon.Eingang)
                        * (AufGKon.Depot   + AufGKon.Gebuehr).
        LEAVE.
    END.
                          
    DO WHILE AufGebKo.Kto_Cd3 <> '':
        IF AufGebKo.Anz_3 = 0 THEN LEAVE.
        FIND GebKonto USE-INDEX GebKonto-k1
                      WHERE GebKonto.Firma  = GVFirma
                      AND   GebKonto.Geb_Cd = AufGebKo.Kto_Cd3 NO-LOCK.
        IF GebKonto.MWST_Art = 0 THEN MW = 11.
        IF GebKonto.MWST_Art = 2 THEN MW = GebKonto.MWST_Cd.
        IF GebKonto.MWST_Art = 1 THEN DO:
            FIND FIRST AufGKon USE-INDEX AufGKon-k1
                               WHERE AufGKon.Firma  = GVFirma
                               AND   AufGKon.Aufnr  = AufGebKo.Aufnr
                               AND   AufGKon.Geb_Cd = GebKonto.Geb_Cd NO-LOCK NO-ERROR.
            IF AVAILABLE AufGKon THEN MW = AufGKon.MWSt_Cd.
            ELSE                      MW = 11.
        END.
        FIND AufGKon USE-INDEX AufGKon-k1
                     WHERE AufGKon.Firma   = GVFirma
                     AND   AufGKon.Aufnr   = AufGebKo.Aufnr
                     AND   AufGKon.Geb_Cd  = GebKonto.Geb_Cd
                     AND   AufGKon.MWSt_Cd = MW     NO-ERROR.
        IF NOT AVAILABLE AufGKon THEN DO:
            CREATE  AufGKon.
            ASSIGN  AufGKon.Firma   = AufGebKo.Firma
                    AufGKon.Aufnr   = AufGebKo.Aufnr
                    AufGKon.Geb_Cd  = GebKonto.Geb_Cd
                    AufGKon.MWSt_Cd = MW
                    AufGKon.Gebuehr = GebKonto.Gebuehr
                    AufGKon.Depot   = GebKonto.Depot
                    AufGKon.Sort_Cd = GebKonto.Sort_Cd.
        END.
        IF Art = 1 THEN AufGKon.Eingang = AufGKon.Eingang + (AufGebKo.Anz_3 * AufGebKo.Menge).
        IF Art = 2 THEN AufGKon.Eingang = AufGKon.Eingang - (AufGebKo.Anz_3 * AufGebKo.Menge).
        AufGKon.Betrag  = (AufGKon.Ausgang - AufGKon.Eingang)
                        * (AufGKon.Depot   + AufGKon.Gebuehr).
        LEAVE.
    END.

    RETURN.

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 ) .

DO WITH FRAME {&FRAME-NAME}:
    F_Feld:SENSITIVE = TRUE.
    APPLY 'ENTRY' TO F_Feld.
    AufGebKo.Menge:READ-ONLY IN BROWSE {&BROWSE-NAME} = TRUE.
    F_Feld:SENSITIVE = FALSE.
    F_Feld:HIDDEN    = TRUE.
END.

END PROCEDURE.

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

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

DO WITH FRAME {&FRAME-NAME}:
    F_Feld:HIDDEN    = FALSE.
    F_Feld:SENSITIVE = TRUE.
    APPLY 'ENTRY' TO F_Feld.
    AufGebKo.Menge:READ-ONLY IN BROWSE {&BROWSE-NAME} = FALSE.
    F_Feld:SENSITIVE = FALSE.
    F_Feld:HIDDEN    = TRUE.
    MutStatus = 2.
    RUN new-state ( 'Mutation, AUFGEBKO':U ).
    RUN dispatch IN THIS-PROCEDURE ('apply-entry':U).
END.

END PROCEDURE.

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

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

END PROCEDURE.

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

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

    IF NUM-RESULTS('Br_AbhGebko') <> ? THEN CLOSE QUERY Br_AbhGebko.
    
    OPEN QUERY Br_AbhGebko
        FOR EACH AufGebKo USE-INDEX AufGebKo-k1
                          WHERE AufGebKo.Firma = GVFirma
                          AND   AufGebKo.Aufnr = VAufnr NO-LOCK.
                          
    IF NUM-RESULTS('Br_AbhGebKo') > 0 THEN Vorhanden = TRUE.
    ELSE                                   Vorhanden = FALSE.
    
END PROCEDURE.

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

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

    DEF INPUT PARAMETER XAufnr      AS INT                  NO-UNDO.
    
    VAufnr = XAufnr.
    
    FIND Aufko USE-INDEX Aufko-k1
               WHERE Aufko.Firma   = GVFirma
               AND   Aufko.Aufnr   = VAufnr
               AND   Aufko.Auf_Sta = VAuf_Sta
               AND   Aufko.Fak_Art = VFak_Art NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Aufko THEN DO:
        RUN new-state ( INPUT 'GeheZuSeite_1, AUFGEBKO':U ).
        RETURN NO-APPLY.
    END.
               
    FIND FIRST AufGebKo USE-INDEX AufGebKo-k1
                        WHERE AufGebKo.Firma = GVFirma
                        AND   AufGebKo.Aufnr = VAufnr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE AufGebKo THEN RUN CREATE_AUFGEBKO.
    
    RUN OPEN_AUFGEBKO.
    
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
------------------------------------------------------------------------------*/

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

  /* For each requested table, put it's ROWID in the output list.      */
  {src/adm/template/snd-list.i "AufGebKo"}

  /* Deal with any unexpected table requests before closing.           */
  {src/adm/template/snd-end.i}

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

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

    IF MutStatus = 0 THEN RETURN.

    DEF VAR EHandle     AS HANDLE                           NO-UNDO.
    
    EHandle = LAST-EVENT:WIDGET-ENTER.
    IF VALID-HANDLE(EHandle) THEN DO:
        IF EHandle:TYPE = 'FILL-IN' THEN RETURN.
    END.
    
    AufGebKo.Menge:SCREEN-VALUE IN BROWSE {&BROWSE-NAME} = STRING(AufGebKo.Menge).    
    RUN ABBRECHEN.
END PROCEDURE.

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