GeMIS_WEB/GUI/v-krest.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW

/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE RowObject
       {"d-krest.i"}.


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS vTableWin 
/*------------------------------------------------------------------------

  File:

  Description: from viewer.w - Template for SmartDataViewer objects

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

/*  Komma-Trennzeichen                                                  */
/*  Keyfelder werden beim Mutieren nicht "Enabled"                      */

&Scoped-define ERSTES_FELD  CB_FRW_1
&Scoped-define LETZTES_FELD WIRKonto
&Scoped-define KEY_FELDER 
&Scoped-define NUR_LESEN    F_CLNR_1,F_CLNR_2,Saldo

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEF VAR SAktiv          AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FNeu            AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FMut            AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FCopy           AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FDisp           AS LOG                      NO-UNDO INIT TRUE .
DEF VAR Fenster         AS HANDLE                   NO-UNDO.
DEF VAR oldColValues    AS CHAR                     NO-UNDO.
DEF VAR oldColList      AS CHAR                     NO-UNDO.
DEF VAR Firma           AS CHAR                     NO-UNDO.
DEF VAR ADFirma         AS CHAR                     NO-UNDO.
DEF VAR Vorhanden       AS LOG                      NO-UNDO.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER FRAME

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

/* Include file with RowObject temp-table definition */
&Scoped-define DATA-FIELD-DEFS "d-krest.i"

/* Name of first Frame and/or Browse and/or first Query                 */
&Scoped-define FRAME-NAME F-Main

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-FIELDS RowObject.BezugsPerson RowObject.Anrede ~
RowObject.Telefon RowObject.Fax RowObject.MWST_Nr RowObject.Kred_Knr ~
RowObject.Konto RowObject.Konto_S RowObject.BankE RowObject.BankKto ~
RowObject.BankA RowObject.PCKto RowObject.ESRTnNr RowObject.WIR% ~
RowObject.WIRKonto RowObject.Saldo 
&Scoped-define ENABLED-TABLES RowObject
&Scoped-define FIRST-ENABLED-TABLE RowObject
&Scoped-define DISPLAYED-TABLES RowObject
&Scoped-define FIRST-DISPLAYED-TABLE RowObject
&Scoped-Define ENABLED-OBJECTS CB_FRW_1 CB_FRW_2 CB_FRW_3 CB_Kond ~
CB_Rundung CB_Zahlart CB_Brief F_CLNR_1 F_CLNR_2 RECT-5 
&Scoped-Define DISPLAYED-FIELDS RowObject.BezugsPerson RowObject.Anrede ~
RowObject.Telefon RowObject.Fax RowObject.MWST_Nr RowObject.Kred_Knr ~
RowObject.Firma RowObject.Knr RowObject.Konto RowObject.Konto_S ~
RowObject.Rabatt RowObject.FrwBas RowObject.BankE RowObject.BankKto ~
RowObject.BankA RowObject.PCKto RowObject.FrwA2 RowObject.FrwA1 ~
RowObject.ESRTnNr RowObject.WIR% RowObject.WIRKonto RowObject.Kond ~
RowObject.Aktiv RowObject.Brief RowObject.ZahlArt RowObject.Rundung ~
RowObject.Saldo 
&Scoped-Define DISPLAYED-OBJECTS CB_FRW_1 CB_FRW_2 CB_FRW_3 CB_Kond ~
CB_Rundung CB_Zahlart CB_Brief F_CLNR_1 F_CLNR_2 

/* Custom List Definitions                                              */
/* ADM-ASSIGN-FIELDS,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 CB_Brief AS CHARACTER FORMAT "X(256)":U 
     LABEL "Briefart (AVIS)" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Keine AVIS","000000",
                     "Brief 1","000001"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_FRW_1 AS CHARACTER FORMAT "X(256)":U 
     LABEL "Basis-Währung" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 30 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_FRW_2 AS CHARACTER FORMAT "X(256)":U 
     LABEL "Ausweich-Währung 1" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 30 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_FRW_3 AS CHARACTER FORMAT "X(256)":U 
     LABEL "Ausweich-Währung 2" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 30 BY 1
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE CB_Rundung AS CHARACTER FORMAT "X(256)":U 
     LABEL "Rundungsart" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Keine Rundung","00",
                     "Kaufmännische Rundung","01",
                     "Rundung auf ganze 10er (kaufmännisch)","02",
                     "Rundung auf ganze 10er aufwärts","03",
                     "Rundung auf ganze 10er abwärts","04",
                     "Nachkommastellen weglassen (kaufmännisch)","05",
                     "Nachkommastellen weglassen aufwärts","06",
                     "Nachkommastellen weglassen abwärts","07",
                     "Rundung auf Zehner-Fr. (kaufmännisch)","08",
                     "Rundung auf Zehner-Fr. aufwärts","09",
                     "Rundung auf Zehner-Fr. abwärts","10"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Zahlart AS CHARACTER FORMAT "X(256)":U 
     LABEL "Zahlungsart" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Bankzahlung","01",
                     "Postcheck/ESR-BESR","02",
                     "Checkzahlung","03",
                     "andere","04"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_CLNR_1 AS CHARACTER FORMAT "X(256)":U 
     LABEL "Clearing-Nr" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 17.2 BY 1 NO-UNDO.

DEFINE VARIABLE F_CLNR_2 AS CHARACTER FORMAT "X(256)":U 
     LABEL "Clearing-Nr" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 17.2 BY 1 NO-UNDO.

DEFINE RECTANGLE RECT-5
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL 
     SIZE 118.4 BY 17.33.


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

DEFINE FRAME F-Main
     CB_FRW_1 AT ROW 1.52 COL 23 COLON-ALIGNED
     CB_FRW_2 AT ROW 2.52 COL 23 COLON-ALIGNED
     CB_FRW_3 AT ROW 3.52 COL 23 COLON-ALIGNED
     RowObject.BezugsPerson AT ROW 1.52 COL 78 COLON-ALIGNED
          LABEL "Bezugs-Person" FORMAT "x(30)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 32 BY 1
          BGCOLOR 15 
     RowObject.Anrede AT ROW 2.52 COL 78 COLON-ALIGNED
          VIEW-AS FILL-IN NATIVE 
          SIZE 32 BY 1
          BGCOLOR 15 
     RowObject.Telefon AT ROW 3.52 COL 78 COLON-ALIGNED
          VIEW-AS FILL-IN NATIVE 
          SIZE 22 BY 1
          BGCOLOR 15 
     RowObject.Fax AT ROW 4.52 COL 78 COLON-ALIGNED
          VIEW-AS FILL-IN NATIVE 
          SIZE 22 BY 1
          BGCOLOR 15 
     RowObject.MWST_Nr AT ROW 5 COL 23 COLON-ALIGNED
          LABEL "MWST-Nr" FORMAT "x(15)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 17 BY 1
          BGCOLOR 15 
     RowObject.Kred_Knr AT ROW 6 COL 23 COLON-ALIGNED
          LABEL "unsere Knr" FORMAT "x(12)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 17 BY 1
          BGCOLOR 15 
     CB_Kond AT ROW 7 COL 23 COLON-ALIGNED
     RowObject.Firma AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "Firma" FORMAT "x(08)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     CB_Rundung AT ROW 8 COL 23 COLON-ALIGNED
     CB_Zahlart AT ROW 9 COL 23 COLON-ALIGNED
     CB_Brief AT ROW 10 COL 23 COLON-ALIGNED
     RowObject.Knr AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "Knr" FORMAT "999999"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     RowObject.Konto AT ROW 7 COL 83 COLON-ALIGNED
          LABEL "Sammelkonto" FORMAT "x(12)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 17.6 BY 1
          BGCOLOR 15 
     RowObject.Konto_S AT ROW 8 COL 83 COLON-ALIGNED
          LABEL "Aufwandkonto" FORMAT "x(12)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 17.6 BY 1
          BGCOLOR 15 
     RowObject.Rabatt AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "Rabatt" FORMAT "99.99"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     RowObject.FrwBas AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "FrwBas" FORMAT "x(03)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     RowObject.BankE AT ROW 12 COL 23 COLON-ALIGNED
          LABEL "Bank des Kreditors" FORMAT "999999"
          VIEW-AS FILL-IN NATIVE 
          SIZE 11 BY 1
          BGCOLOR 15 
     RowObject.BankKto AT ROW 12 COL 83 COLON-ALIGNED
          LABEL "KontoNr" FORMAT "x(25)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 27 BY 1
          BGCOLOR 15 
     RowObject.BankA AT ROW 13 COL 23 COLON-ALIGNED
          LABEL "Zahlende Bank (eig)" FORMAT "999999"
          VIEW-AS FILL-IN NATIVE 
          SIZE 11 BY 1 TOOLTIP "Wenn dieser Kreditor ab einer bestimmten Bank/Bankkonto bezahlt werden soll"
          BGCOLOR 15 
     RowObject.PCKto AT ROW 14.52 COL 23 COLON-ALIGNED
          LABEL "PC-Kto" FORMAT "x(20)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 15 BY 1
          BGCOLOR 15 
     RowObject.FrwA2 AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "FrwA2" FORMAT "x(03)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
         SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
         AT COL 1 ROW 1 SCROLLABLE .

/* DEFINE FRAME statement is approaching 4K Bytes.  Breaking it up   */
DEFINE FRAME F-Main
     RowObject.FrwA1 AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "FrwA1" FORMAT "x(03)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     RowObject.ESRTnNr AT ROW 14.52 COL 54 COLON-ALIGNED
          LABEL "ESR-TnNr" FORMAT "999999999"
          VIEW-AS FILL-IN NATIVE 
          SIZE 14.6 BY 1
          BGCOLOR 15 
     RowObject.WIR% AT ROW 16 COL 23 COLON-ALIGNED
          LABEL "%-Anteil WIR" FORMAT "999"
          VIEW-AS FILL-IN NATIVE 
          SIZE 6.6 BY 1
          BGCOLOR 15 
     RowObject.WIRKonto AT ROW 16 COL 54.2 COLON-ALIGNED
          LABEL "WIR-Konto (FIBU)" FORMAT "x(12)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 17.6 BY 1
          BGCOLOR 15 
     RowObject.Kond AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "Kond" FORMAT "999999"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     F_CLNR_1 AT ROW 13 COL 54 COLON-ALIGNED NO-TAB-STOP 
     RowObject.Aktiv AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "Aktiv" FORMAT "Ja/Nein"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     RowObject.Brief AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "Brief" FORMAT "999999"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     RowObject.ZahlArt AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "ZahlArt" FORMAT "99"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     RowObject.Rundung AT ROW 5.52 COL 105 COLON-ALIGNED
          LABEL "Rundung" FORMAT "99"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1
          BGCOLOR 15  NO-TAB-STOP 
     F_CLNR_2 AT ROW 12 COL 54 COLON-ALIGNED NO-TAB-STOP 
     RowObject.Saldo AT ROW 16 COL 84.2 COLON-ALIGNED
          LABEL "Saldo" FORMAT "zzz,zzz,zz9.99-"
          VIEW-AS FILL-IN NATIVE 
          SIZE 23 BY 1
          BGCOLOR 14  NO-TAB-STOP 
     RECT-5 AT ROW 1.24 COL 2
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
         SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
         AT COL 1 ROW 1 SCROLLABLE .


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDataViewer
   Data Source: "d-krest.w"
   Allow: Basic,DB-Fields,Smart
   Container Links: Data-Target,Update-Source,TableIO-Target,GroupAssign-Source,GroupAssign-Target
   Frames: 1
   Add Fields to: Neither
   Other Settings: PERSISTENT-ONLY COMPILE
   Temp-Tables and Buffers:
      TABLE: RowObject D "?" ?  
      ADDITIONAL-FIELDS:
          {d-krest.i}
      END-FIELDS.
   END-TABLES.
 */

/* 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 vTableWin ASSIGN
         HEIGHT             = 17.86
         WIDTH              = 121.4.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

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

{src/adm2/viewer.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW vTableWin
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE Size-to-Fit Custom                                       */
ASSIGN 
       FRAME F-Main:SCROLLABLE       = FALSE
       FRAME F-Main:HIDDEN           = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Aktiv IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Aktiv:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Aktiv:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.BankA IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.BankE IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.BankKto IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.BezugsPerson IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Brief IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Brief:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Brief:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.ESRTnNr IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Firma IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Firma:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Firma:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.FrwA1 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.FrwA1:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.FrwA1:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.FrwA2 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.FrwA2:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.FrwA2:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.FrwBas IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.FrwBas:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.FrwBas:READ-ONLY IN FRAME F-Main        = TRUE.

ASSIGN 
       F_CLNR_1:READ-ONLY IN FRAME F-Main        = TRUE.

ASSIGN 
       F_CLNR_2:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Knr IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Knr:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Knr:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Kond IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Kond:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Kond:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Konto IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Konto_S IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Kred_Knr IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.MWST_Nr IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.PCKto IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Rabatt IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Rabatt:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Rabatt:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Rundung IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Rundung:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Rundung:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Saldo IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
ASSIGN 
       RowObject.Saldo:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.WIR% IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.WIRKonto IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.ZahlArt IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.ZahlArt:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.ZahlArt:READ-ONLY IN FRAME F-Main        = TRUE.

/* _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          = "NO-LOCK"
     _Query            is NOT OPENED
*/  /* FRAME F-Main */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME RowObject.BankA
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.BankA vTableWin
ON ALT-F OF RowObject.BankA IN FRAME F-Main /* Zahlende Bank (eig) */
DO:
    IF NOT FMut THEN RETURN NO-APPLY.

    DEF VAR cBank       AS CHAR                     NO-UNDO.

    RUN g-such-bank.w ( INPUT-OUTPUT cBank ).
    IF cBank = '' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.

    rowObject.BankA:SCREEN-VALUE = STRING(ENTRY(1, cBank, CHR(01))).
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME RowObject.BankE
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.BankE vTableWin
ON ALT-F OF RowObject.BankE IN FRAME F-Main /* Bank des Kreditors */
DO:
    IF NOT FMut THEN RETURN NO-APPLY.

    DEF VAR cBank       AS CHAR                     NO-UNDO.

    RUN g-such-bank.w ( INPUT-OUTPUT cBank ).
    IF cBank = '' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.

    rowObject.BankE:SCREEN-VALUE = STRING(ENTRY(1, cBank, CHR(01))).
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME CB_Brief
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Brief vTableWin
ON VALUE-CHANGED OF CB_Brief IN FRAME F-Main /* Briefart (AVIS) */
DO:
    IF FMut THEN rowObject.Brief:SCREEN-VALUE = SELF:SCREEN-VALUE.
    ELSE SELF:SCREEN-VALUE = rowObject.Brief:SCREEN-VALUE NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_FRW_1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_FRW_1 vTableWin
ON VALUE-CHANGED OF CB_FRW_1 IN FRAME F-Main /* Basis-Währung */
DO:
    IF FMut THEN rowObject.FRWBas:SCREEN-VALUE = SELF:SCREEN-VALUE.
    ELSE SELF:SCREEN-VALUE = rowObject.FRWBas:SCREEN-VALUE NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_FRW_2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_FRW_2 vTableWin
ON VALUE-CHANGED OF CB_FRW_2 IN FRAME F-Main /* Ausweich-Währung 1 */
DO:
    IF FMut THEN rowObject.FRWA1:SCREEN-VALUE = SELF:SCREEN-VALUE.
    ELSE SELF:SCREEN-VALUE = rowObject.FRWA1:SCREEN-VALUE NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_FRW_3
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_FRW_3 vTableWin
ON VALUE-CHANGED OF CB_FRW_3 IN FRAME F-Main /* Ausweich-Währung 2 */
DO:
    IF FMut THEN rowObject.FRWA2:SCREEN-VALUE = SELF:SCREEN-VALUE.
    ELSE SELF:SCREEN-VALUE = rowObject.FRWA2:SCREEN-VALUE NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_Kond
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Kond vTableWin
ON VALUE-CHANGED OF CB_Kond IN FRAME F-Main /* Zahlungskonditionen */
DO:
    IF FMut THEN rowObject.Kond:SCREEN-VALUE = SELF:SCREEN-VALUE.
    ELSE SELF:SCREEN-VALUE = rowObject.Kond:SCREEN-VALUE NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_Rundung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Rundung vTableWin
ON VALUE-CHANGED OF CB_Rundung IN FRAME F-Main /* Rundungsart */
DO:
    IF FMut THEN rowObject.Rundung:SCREEN-VALUE = SELF:SCREEN-VALUE.
    ELSE SELF:SCREEN-VALUE = rowObject.Rundung:SCREEN-VALUE NO-ERROR.
END.

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


&Scoped-define SELF-NAME CB_Zahlart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Zahlart vTableWin
ON VALUE-CHANGED OF CB_Zahlart IN FRAME F-Main /* Zahlungsart */
DO:
    IF FMut THEN rowObject.ZahlArt:SCREEN-VALUE = SELF:SCREEN-VALUE.
    ELSE SELF:SCREEN-VALUE = rowObject.ZahlArt:SCREEN-VALUE NO-ERROR.
END.

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


&UNDEFINE SELF-NAME

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


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

SAktiv = DYNAMIC-FUNCTION('getSuperAktiv':U) NO-ERROR.
IF SAktiv THEN DO:
    Firma   = DYNAMIC-FUNCTION('GETMANDANT':U)   NO-ERROR.
    ADFirma = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.
END.

/*  Triggers    ------------------------------------------------------  */

ON 'RETURN':U OF FRAME {&FRAME-NAME} ANYWHERE
DO:
    RUN RETURN_FELD ( INPUT SELF:HANDLE ).
    IF RETURN-VALUE = 'TAB' THEN DO:
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.
END.

ON 'ENTRY':U OF FRAME {&FRAME-NAME} ANYWHERE
DO:
    RUN ENTRY_FELD_TEST ( INPUT SELF:HANDLE ).
    IF RETURN-VALUE = 'ERROR' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    IF RETURN-VALUE = 'APPLY' THEN DO:
        RETURN NO-APPLY.
    END.
END.
    
ON 'LEAVE':U OF FRAME {&FRAME-NAME} ANYWHERE
DO:
    RUN LEAVE_FELD_TEST ( INPUT SELF:HANDLE ).
    IF RETURN-VALUE = 'ERROR' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    IF RETURN-VALUE = 'APPLY' THEN DO:
        RETURN NO-APPLY.
    END.
END.
    
&IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN          
    RUN initializeObject.
&ENDIF         
  
  /************************ INTERNAL PROCEDURES ********************/

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


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

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

    DEF VAR Knr     AS INT                  NO-UNDO.

    Knr = DYNAMIC-FUNCTION('GETKNR':U) NO-ERROR.
    IF Knr = 0 THEN DO:
        DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR.
        RETURN NO-APPLY.
    END.

    FIND Adresse USE-INDEX Adresse-k1
                 WHERE Adresse.Firma = ADFirma
                 AND   Adresse.Knr   = Knr NO-LOCK NO-ERROR.
    IF Adresse.Aktiv = FALSE THEN DO:
        RUN FEHLER ( INPUT 1046 ).
        DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR.
        RETURN NO-APPLY.
    END.

    FNeu  = TRUE.
    FMut  = TRUE.
    RUN SUPER.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE cancelRecord vTableWin 
PROCEDURE cancelRecord :
/*------------------------------------------------------------------------------
  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 copyRecord vTableWin 
PROCEDURE copyRecord :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEF VAR Ja          AS LOG                      NO-UNDO.

    Ja = DYNAMIC-FUNCTION( 'ANTWORT_JA':U, INPUT 1000 ).
    IF NOT Ja THEN DO:
        PUBLISH 'TOOLBAR' ( INPUT 'CANCEL':U ).
        RETURN NO-APPLY.
    END.

    DO WITH FRAME {&FRAME-NAME}:
        rowObject.Aktiv:SCREEN-VALUE = STRING(FALSE).
        RUN updateRecord.
    END.

    RUN SUPER.

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

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcFieldType AS CHARACTER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
    END.

    RUN SUPER( INPUT pcFieldType).

    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ).

    IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN DO:
        RUN FARBE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT 15 ).
    END.

    DO WITH FRAME {&FRAME-NAME}:
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI vTableWin  _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 displayFields vTableWin 
PROCEDURE displayFields :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    DEFINE INPUT PARAMETER pcColValues AS CHARACTER NO-UNDO.

    DEF VAR ja      AS LOG  INIT TRUE           NO-UNDO.
    DEF VAR Farbe   AS INT                      NO-UNDO.
    DEF VAR cDaten  AS CHAR                     NO-UNDO.

    IF NOT FDisp THEN DO:
        FDisp = TRUE.
        RETURN.
    END.

    OldColValues = pcColValues.
    OldColList   = DYNAMIC-FUNCTION('getDisplayedFields':U).

    IF pcColValues = ? THEN Ja = FALSE.
    IF pcColValues = ? THEN RUN FEHLWERTE ( INPUT-OUTPUT pcColValues ).
    IF FNeu THEN RUN FEHLWERTE ( INPUT-OUTPUT pcColValues ).

    DO WITH FRAME {&FRAME-NAME}:
    END.
    
    RUN SUPER( INPUT pcColValues).

    DO WITH FRAME {&FRAME-NAME}:
        CB_FRW_1:SCREEN-VALUE       = rowObject.FrwBas:SCREEN-VALUE     NO-ERROR.
        CB_FRW_2:SCREEN-VALUE       = rowObject.FrwA1:SCREEN-VALUE      NO-ERROR.
        CB_FRW_3:SCREEN-VALUE       = rowObject.FrwA2:SCREEN-VALUE      NO-ERROR.
        CB_Kond:SCREEN-VALUE        = rowObject.Kond:SCREEN-VALUE       NO-ERROR.
        CB_ZahlArt:SCREEN-VALUE     = rowObject.ZahlArt:SCREEN-VALUE    NO-ERROR.
        CB_Brief:SCREEN-VALUE       = rowObject.Brief:SCREEN-VALUE      NO-ERROR.
        CB_Rundung:SCREEN-VALUE     = rowObject.Rundung:SCREEN-VALUE    NO-ERROR.

        RUN FIND_BANKST ( INPUT INTEGER(rowObject.BankA:SCREEN-VALUE),
                          OUTPUT cDaten ).
        F_CLNR_1:SCREEN-VALUE = ENTRY(2, cDaten, CHR(01)).
        RUN  FIND_BANKST ( INPUT INTEGER(rowObject.BankE:SCREEN-VALUE),
                          OUTPUT cDaten ).
        F_CLNR_2:SCREEN-VALUE = ENTRY(2, cDaten, CHR(01)).
    END.

    IF SAktiv THEN DO WITH FRAME {&FRAME-NAME}:
        Farbe = 15.
        IF rowObject.Aktiv:SCREEN-VALUE BEGINS 'n' THEN Farbe = 12.
        IF NOT Ja                                  THEN Farbe = 08.

        IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
        RUN FARBE_FELDER ( INPUT Fenster            ,
                           INPUT '{&ENABLED-FIELDS}',
                           INPUT Farbe ).
        RUN FARBE_FELDER ( INPUT Fenster            ,
                           INPUT '{&ENABLED-OBJECTS}',
                           INPUT Farbe ).
    END.
    Vorhanden = Ja.

END PROCEDURE.

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

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

  /* Code placed here will execute PRIOR to standard behavior. */
/*
    RUN SUPER.
*/
    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT FALSE ).

    IF NUM-ENTRIES('{&NUR_LESEN}', ',') > 0 THEN DO:
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&NUR_LESEN}', INPUT TRUE ).
    END.
    
    DO WITH FRAME {&FRAME-NAME}:
    END.
    
    IF FNeu THEN RETURN.

    IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN DO:
        RUN SCHUETZE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT TRUE ).
    END.

END PROCEDURE.

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

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

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_KONDITION     ( INPUT CB_Kond:HANDLE      ).
        RUN COMBO_FRW           ( INPUT CB_FRW_1:HANDLE     ).
        RUN COMBO_FRW           ( INPUT CB_FRW_2:HANDLE     ).
        RUN COMBO_FRW           ( INPUT CB_FRW_3:HANDLE     ).
    END.

    RUN SUPER.

    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.

    IF SAktiv THEN DO:
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ).
    END.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEF VAR FeldName        AS CHAR                 NO-UNDO.
    DEF VAR FeldInhalt      AS CHAR                 NO-UNDO.

    FeldName   = ''.
    FeldInhalt = ''.
    IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    
    FeldName = ipHandle:NAME.
    IF ipHandle:TYPE = 'FILL-IN'    OR
       ipHandle:TYPE = 'COMBO-BOX'  OR
       ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE.

    IF NOT FMut THEN RETURN ''.

DO WITH FRAME {&FRAME-NAME}:
    CASE FeldName:
    END CASE.
END.

    RETURN ''.

END PROCEDURE.

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

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

    DEF INPUT-OUTPUT PARAMETER pcColValues  AS CHAR          NO-UNDO.

    DEF VAR FwFelder    AS CHAR                     NO-UNDO.
    DEF VAR FwFeld      AS CHAR                     NO-UNDO.
    DEF VAR FwValue     AS CHAR                     NO-UNDO.
    DEF VAR ix          AS INT                      NO-UNDO.    
    DEF VAR i1          AS INT                      NO-UNDO.    

    GET-KEY-VALUE SECTION 'FwKreditor' KEY ? VALUE FwFelder.

    IF pcColValues = ?
        THEN pcColValues = FILL(CHR(01), NUM-ENTRIES(oldColList, ',')).
    IF NOT FCopy THEN DO:
        DO ix = 1 TO NUM-ENTRIES(FwFelder, ','):
            FwFeld = ENTRY (ix    , FwFelder  , ',').
            i1     = LOOKUP(FwFeld, oldColList, ',') + 1.
            IF i1 < 2 THEN NEXT.
            GET-KEY-VALUE SECTION 'FwKreditor' KEY FwFeld VALUE FwValue.
            ENTRY(i1, pcColValues, CHR(1)) = FwValue NO-ERROR.
        END.
    END.

    i1 = LOOKUP('Firma', oldColList, ',') + 1.
    ENTRY(i1, pcColValues, CHR(1)) = Firma NO-ERROR.
    
    IF FCopy THEN DO:
    END.

    OldColValues = pcColValues.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEF VAR FeldName        AS CHAR                 NO-UNDO.
    DEF VAR FeldInhalt      AS CHAR                 NO-UNDO.
    DEF VAR ix              AS INT                  NO-UNDO.
    DEF VAR LKY             AS INT                  NO-UNDO.
    DEF VAR hLEAVE          AS HANDLE               NO-UNDO.
    DEF VAR hENTER          AS HANDLE               NO-UNDO.
    DEF VAR Daten           AS CHAR                 NO-UNDO.

    IF FMut = FALSE THEN RETURN ''.

    LKY        = LASTKEY.
    hENTER     = LAST-EVENT:WIDGET-ENTER.
    hLEAVE     = LAST-EVENT:WIDGET-LEAVE.
    FeldName   = ''.
    FeldInhalt = ''.
    IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    
    FeldName = ipHandle:NAME.
    IF ipHandle:TYPE = 'FILL-IN'    OR
       ipHandle:TYPE = 'COMBO-BOX'  OR
       ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE.

    DO WHILE FNeu:
        CASE FeldName:
        END CASE.
        LEAVE.
    END.

    DO WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
            WHEN 'BankA' THEN DO:
                RUN FIND_BANKST ( INPUT INTEGER(rowObject.BankA:SCREEN-VALUE),
                                  OUTPUT Daten ).
                F_CLNR_1:SCREEN-VALUE = ENTRY(2, Daten, CHR(01)).
            END.
            WHEN 'BankE' THEN DO:
                RUN FIND_BANKST ( INPUT INTEGER(rowObject.BankE:SCREEN-VALUE),
                                  OUTPUT Daten ).
                F_CLNR_2:SCREEN-VALUE = ENTRY(2, Daten, CHR(01)).
            END.
        END CASE.
    END.

    IF LOOKUP(FeldName, '{&LETZTES_FELD}', ',') > 0 THEN DO:
        DO WHILE TRUE:
            IF KEYFUNCTION(LKY) = 'TAB'     THEN LEAVE.
            IF KEYFUNCTION(LKY) = 'RETURN'  THEN LEAVE.
            IF KEYFUNCTION(LKY) = 'F9'      THEN LEAVE.
            RETURN ''.
        END.
        APPLY 'ALT-S'.
        RETURN 'APPLY'.
    END.

    RETURN ''.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEF VAR FeldName        AS CHAR                 NO-UNDO.
    
    IF FMut = FALSE THEN RETURN ''.

    IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    
    FeldName = ipHandle:NAME.
    IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.
    IF LOOKUP(FeldName, '{&ENABLED-OBJECTS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.
    FeldName = 'rowObject.' + FeldName.
    IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.
    IF LOOKUP(FeldName, '{&ENABLED-OBJECTS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.

    RETURN ''.

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcMode AS CHARACTER NO-UNDO.
  
    CASE pcMode:
        WHEN 'updateBegin' THEN DO:
            IF NOT Vorhanden THEN DO:
                DYNAMIC-FUNCTION('setFlagAbbruchAlt':U, INPUT TRUE) NO-ERROR.
                RETURN NO-APPLY.
            END.
        END.
        WHEN 'updateEnd' THEN DO:
        END.
    END.

    RUN SUPER( INPUT pcMode).

    CASE pcMode:
        WHEN 'updateBegin' THEN DO:
            FMut = TRUE.
        END.
        WHEN 'updateEnd' THEN DO:
            FNeu  = FALSE.
            FMut  = FALSE.
            FCopy = FALSE.
        END.
    END.

END PROCEDURE.

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

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

    DO WITH FRAME {&FRAME-NAME}:
        rowObject.FRWBas:SCREEN-VALUE       = CB_FRW_1:SCREEN-VALUE.
        rowObject.FRWA1:SCREEN-VALUE        = CB_FRW_2:SCREEN-VALUE.
        rowObject.FRWA2:SCREEN-VALUE        = CB_FRW_3:SCREEN-VALUE.
        rowObject.Kond:SCREEN-VALUE         = CB_Kond:SCREEN-VALUE.
        rowObject.ZahlArt:SCREEN-VALUE      = CB_ZahlArt:SCREEN-VALUE.
        rowObject.Brief:SCREEN-VALUE        = CB_Brief:SCREEN-VALUE.

        IF FNeu THEN DO:
            rowObject.Firma:SCREEN-VALUE    = Firma.
        END.
    END.

    FNeu  = FALSE.
    FCopy = FALSE.
    RUN SUPER.

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

END PROCEDURE.

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