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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DECLARATIONS vTableWin 
USING src.ch.adprime.algorithm.NumberSystems FROM PROPATH.


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

  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_Vertreter
&Scoped-define LETZTES_FELD F_BestBis_2
&Scoped-define KEY_FELDER 
&Scoped-define NUR_LESEN    Zuschl_Verr,Fak_Adresse,Lief_Adresse,LetztVK,~
Saldo,Saldo_FRW

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

{ incl/viwdefinition.i }

DEFINE VARIABLE hLastFeld AS HANDLE NO-UNDO.
DEFINE VARIABLE Vorhanden AS LOG    NO-UNDO.

DEFINE VARIABLE fVertr    AS LOG    NO-UNDO.
DEFINE VARIABLE fAbc      AS LOG    NO-UNDO.
DEFINE VARIABLE fBier     AS LOG    NO-UNDO.
DEFINE VARIABLE fWiSo     AS LOG    NO-UNDO.
DEFINE VARIABLE fBemTxt   AS LOG    NO-UNDO.
DEFINE VARIABLE fFakTxt   AS LOG    NO-UNDO.
DEFINE VARIABLE fAbhTxt   AS LOG    NO-UNDO.

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




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



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

  File: 

  Description: 

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

  Created: 12/10/20 -  3:33 pm

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

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

/* _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-debst.i"

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-FIELDS RowObject.Verband_Nr RowObject.Wirt_So_Text ~
RowObject.Ablad_Vor_Text RowObject.Tour_Nr2 RowObject.DokumentStatus ~
RowObject.KnrFak RowObject.KnrLie RowObject.Geb_Rg RowObject.Passant ~
RowObject.Konto RowObject.MWST_Nr RowObject.Abh_Rab_Wert ~
RowObject.Auf_Rab_Wert RowObject.Zei_Rab_Wert RowObject.Zuschl_Wert ~
RowObject.Zuschl_Betr RowObject.Kred_Lim RowObject.Kred_Lim_Vers ~
RowObject.LetztVK RowObject.Saldo RowObject.Saldo_FRW RowObject.Zuschl_Verr ~
RowObject.Fak_Adresse RowObject.Lief_Adresse 
&Scoped-define ENABLED-TABLES RowObject
&Scoped-define FIRST-ENABLED-TABLE RowObject
&Scoped-Define ENABLED-OBJECTS CB_Vertreter CB_Kundengruppe CB_Preisgruppe ~
CB_Bonusgruppe CB_Rabattgruppe CB_ABCGruppe CB_Fakturaart CB_Biergruppe ~
CB_Avisierung CB_Lieferbed CB_Mehrwertsteuer CB_Verband CB_Subverband ~
CB_WirteSo CB_Abladevor CB_Tourenplan CB_Kondition CB_Mahncode CB_FRW ~
CB_BESR CB_LAGER CB_Ah_Art CB_Au_Art CB_Ze_Art CB_Zu_Art T_Bem T_Fak T_Abh ~
T_Montag T_Dienstag T_Mittwoch T_Donnerstag T_Freitag T_Samstag F_BestBis_1 ~
F_BestBis_2 Btn_Dokumente RECT-1 RECT-2 RECT-3 RECT-4 
&Scoped-Define DISPLAYED-FIELDS RowObject.Verband_Nr RowObject.Wirt_So_Text ~
RowObject.Ablad_Vor_Text RowObject.Tour_Nr2 RowObject.DokumentStatus ~
RowObject.KnrFak RowObject.KnrLie RowObject.Geb_Rg RowObject.Passant ~
RowObject.Konto RowObject.MWST_Nr RowObject.Abh_Rab_Wert RowObject.MWSt ~
RowObject.Auf_Rab_Wert RowObject.Zei_Rab_Wert RowObject.Zuschl_Wert ~
RowObject.Zuschl_Betr RowObject.Kred_Lim RowObject.Kred_Lim_Vers ~
RowObject.Ku_Grp RowObject.Preis_Grp RowObject.Mahn RowObject.Avis ~
RowObject.Firma RowObject.Knr RowObject.LetztVK RowObject.Saldo ~
RowObject.Bonus_Grp RowObject.Aktiv RowObject.Saldo_FRW RowObject.Vertr ~
RowObject.FRW RowObject.Zuschl_Verr RowObject.Kond RowObject.ABC_Grp ~
RowObject.Fak_Art RowObject.Tour_Nr1 RowObject.Rab_Grp RowObject.Bier_Cd ~
RowObject.Wirt_So RowObject.Ablad_Vor RowObject.Abh_Rab_Art ~
RowObject.Auf_Rab_Art RowObject.Zei_Rab_Art RowObject.Zuschl_Art ~
RowObject.Fak_Adresse RowObject.Lief_Adresse RowObject.Lief_Bed ~
RowObject.Bemerk RowObject.Auf_Text RowObject.Bar_Text ~
RowObject.Verband_Grp RowObject.BESR_Art RowObject.Lager ~
RowObject.Subverband_Grp RowObject.BestBis_1 RowObject.BestBis_2 ~
RowObject.Liefertag 
&Scoped-define DISPLAYED-TABLES RowObject
&Scoped-define FIRST-DISPLAYED-TABLE RowObject
&Scoped-Define DISPLAYED-OBJECTS CB_Vertreter CB_Kundengruppe ~
CB_Preisgruppe CB_Bonusgruppe CB_Rabattgruppe CB_ABCGruppe CB_Fakturaart ~
CB_Biergruppe CB_Avisierung CB_Lieferbed CB_Mehrwertsteuer CB_Verband ~
CB_Subverband CB_WirteSo CB_Abladevor CB_Tourenplan CB_Kondition ~
CB_Mahncode CB_FRW CB_BESR CB_LAGER CB_Ah_Art CB_Au_Art CB_Ze_Art CB_Zu_Art ~
T_Bem T_Fak T_Abh T_Montag T_Dienstag T_Mittwoch T_Donnerstag T_Freitag ~
T_Samstag F_BestBis_1 F_BestBis_2 

/* Custom List Definitions                                              */
/* ADM-ASSIGN-FIELDS,List-2,List-3,List-4,List-5,List-6                 */
&Scoped-define List-4 T_Bem T_Fak T_Abh 
&Scoped-define List-6 T_Montag T_Dienstag T_Mittwoch T_Donnerstag T_Freitag ~
T_Samstag F_BestBis_1 F_BestBis_2 

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



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


/* Menu Definitions                                                     */
DEFINE MENU POPUP-MENU-CB_ABCGruppe 
    MENU-ITEM m_Sortiert_ABCGruppe LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Abladevor 
    MENU-ITEM m_Sortiert_Abladevor LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Avisierung 
    MENU-ITEM m_Sortiert_Avisierung LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Biergruppe 
    MENU-ITEM m_Sortiert_Biergruppe LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Bonusgruppe 
    MENU-ITEM m_Sortiert_Bonusgruppe LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Fakturaart 
    MENU-ITEM m_Sortiert_Fakturaart LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Kondition 
    MENU-ITEM m_Sortiert_Kondition LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Kundengruppe 
    MENU-ITEM m_Sortiert_Kundengruppe LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Lieferbed 
    MENU-ITEM m_Sortiert_Lieferbed LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Mehrwertsteuer 
    MENU-ITEM m_Sortiert_Mehrwertsteuer LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Preisgruppe 
    MENU-ITEM m_Sortiert_Preisgruppe LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Rabattgruppe 
    MENU-ITEM m_Sortiert_Rabattgruppe LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Subverband 
    MENU-ITEM m_Sortiert_Subverband LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Tourenplan 
    MENU-ITEM m_Sortiert_Tourenplan LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Verband 
    MENU-ITEM m_Sortiert_Verband LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Vertreter 
    MENU-ITEM m_Sortiert_Vertreter LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_WirteSo 
    MENU-ITEM m_Sortiert_WirteSo LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-F-Main 
    MENU-ITEM m_Login_fuer_eShop_erstellen LABEL "Login für eShop erstellen".


/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Dokumente 
    LABEL "&Dokumente" 
    SIZE 15 BY 1.

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

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

DEFINE VARIABLE CB_Ah_Art         AS CHARACTER FORMAT "X(256)":U 
    LABEL "Abhol" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Kein","00",
    "Prozent","01",
    "Betrag","02",
    "EP-Zuschlag","03"
    DROP-DOWN-LIST
    SIZE 17 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Au_Art         AS CHARACTER FORMAT "X(256)":U 
    LABEL "Auftrag" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Kein","00",
    "Prozent","01",
    "Betrag","02",
    "EP-Zuschlag","03"
    DROP-DOWN-LIST
    SIZE 17 BY 1
    BGCOLOR 15 NO-UNDO.

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

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

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

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

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

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

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

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

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

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

DEFINE VARIABLE CB_Mahncode       AS CHARACTER FORMAT "X(256)":U 
    LABEL "Mahnen" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "automatisch Mahnen","000000",
    "nicht mahnen","000001"
    DROP-DOWN-LIST
    SIZE 26 BY 1
    BGCOLOR 15 NO-UNDO.

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

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

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

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

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

DEFINE VARIABLE CB_Verband        AS CHARACTER FORMAT "X(256)":U 
    LABEL "Verband/-Knr" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 28 BY 1
    BGCOLOR 15 NO-UNDO.

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

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

DEFINE VARIABLE CB_Ze_Art         AS CHARACTER FORMAT "X(256)":U 
    LABEL "Zeilen" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Kein","00",
    "Prozent","01",
    "Betrag","02",
    "EP-Zuschlag","03"
    DROP-DOWN-LIST
    SIZE 17 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Zu_Art         AS CHARACTER FORMAT "X(256)":U 
    LABEL "Zuschlag" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Kein","00",
    "Prozent","01",
    "Betrag","02"
    DROP-DOWN-LIST
    SIZE 17 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE F_BestBis_1       AS CHARACTER FORMAT "99:99":U 
    LABEL "Lieferung am nächstenTag bis" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 9 BY 1 TOOLTIP "wenn bestellt bis zu dieser Zeit"
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE F_BestBis_2       AS CHARACTER FORMAT "99:99":U 
    LABEL "Lieferung am gleichenTag bis" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 9 BY 1 TOOLTIP "wenn bestellt bis zu dieser Zeit"
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE KDebi             AS CHARACTER FORMAT "X(256)":U INITIAL "Kein Debitor" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 26 BY 1
    BGCOLOR 15 FGCOLOR 12 FONT 6 NO-UNDO.

DEFINE RECTANGLE RECT-1
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 136 BY 23.81.

DEFINE RECTANGLE RECT-2
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 41.2 BY 10.57.

DEFINE RECTANGLE RECT-3
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 43.2 BY 10.57.

DEFINE RECTANGLE RECT-4
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 136 BY .1.

DEFINE VARIABLE T_Abh        AS LOGICAL INITIAL NO 
    LABEL "Abholtext" 
    VIEW-AS TOGGLE-BOX
    SIZE 17.2 BY .71 TOOLTIP "Text der erscheint, wenn man eine Abholrechnung erfasst" NO-UNDO.

DEFINE VARIABLE T_Bem        AS LOGICAL INITIAL NO 
    LABEL "Bemerk" 
    VIEW-AS TOGGLE-BOX
    SIZE 17.2 BY .71 TOOLTIP "allgemeine Bemerkungen zum Debitorteil" NO-UNDO.

DEFINE VARIABLE T_Dienstag   AS LOGICAL INITIAL NO 
    LABEL "Dienstag" 
    VIEW-AS TOGGLE-BOX
    SIZE 15 BY 1 NO-UNDO.

DEFINE VARIABLE T_Donnerstag AS LOGICAL INITIAL NO 
    LABEL "Donnerstag" 
    VIEW-AS TOGGLE-BOX
    SIZE 15 BY 1 NO-UNDO.

DEFINE VARIABLE T_Fak        AS LOGICAL INITIAL NO 
    LABEL "Faktext" 
    VIEW-AS TOGGLE-BOX
    SIZE 17.2 BY .71 TOOLTIP "Text, der beim Erfassen einer Rechnung erscheint" NO-UNDO.

DEFINE VARIABLE T_Freitag    AS LOGICAL INITIAL NO 
    LABEL "Freitag" 
    VIEW-AS TOGGLE-BOX
    SIZE 15 BY 1 NO-UNDO.

DEFINE VARIABLE T_Mittwoch   AS LOGICAL INITIAL NO 
    LABEL "Mittwoch" 
    VIEW-AS TOGGLE-BOX
    SIZE 15 BY 1 NO-UNDO.

DEFINE VARIABLE T_Montag     AS LOGICAL INITIAL NO 
    LABEL "Montag" 
    VIEW-AS TOGGLE-BOX
    SIZE 15 BY 1 NO-UNDO.

DEFINE VARIABLE T_Samstag    AS LOGICAL INITIAL NO 
    LABEL "Samstag" 
    VIEW-AS TOGGLE-BOX
    SIZE 15 BY 1 NO-UNDO.


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

DEFINE FRAME F-Main
    CB_Vertreter AT ROW 1.52 COL 18 COLON-ALIGNED
    KDebi AT ROW 8 COL 60 COLON-ALIGNED NO-LABEL NO-TAB-STOP 
    CB_Kundengruppe AT ROW 2.52 COL 18 COLON-ALIGNED
    CB_Preisgruppe AT ROW 3.52 COL 18 COLON-ALIGNED
    CB_Bonusgruppe AT ROW 4.52 COL 18 COLON-ALIGNED
    CB_Rabattgruppe AT ROW 5.52 COL 18 COLON-ALIGNED
    CB_ABCGruppe AT ROW 6.52 COL 18 COLON-ALIGNED
    CB_Fakturaart AT ROW 7.52 COL 18 COLON-ALIGNED
    CB_Biergruppe AT ROW 8.52 COL 18 COLON-ALIGNED
    CB_Avisierung AT ROW 9.52 COL 18 COLON-ALIGNED
    CB_Lieferbed AT ROW 10.52 COL 18 COLON-ALIGNED
    CB_Mehrwertsteuer AT ROW 11.52 COL 18 COLON-ALIGNED
    CB_Verband AT ROW 12.52 COL 18 COLON-ALIGNED
    RowObject.Verband_Nr AT ROW 12.52 COL 49 COLON-ALIGNED
    LABEL "/" FORMAT "x(08)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 19 BY 1
    BGCOLOR 15 
    CB_Subverband AT ROW 13.52 COL 18 COLON-ALIGNED WIDGET-ID 6
    CB_WirteSo AT ROW 14.52 COL 18 COLON-ALIGNED
    RowObject.Wirt_So_Text AT ROW 14.52 COL 71 COLON-ALIGNED
    LABEL "/"
    VIEW-AS FILL-IN NATIVE 
    SIZE 60 BY 1
    BGCOLOR 15 
    CB_Abladevor AT ROW 15.52 COL 18 COLON-ALIGNED
    RowObject.Ablad_Vor_Text AT ROW 15.52 COL 71 COLON-ALIGNED
    LABEL "/"
    VIEW-AS FILL-IN NATIVE 
    SIZE 60 BY 1
    BGCOLOR 15 
    CB_Tourenplan AT ROW 16.52 COL 18 COLON-ALIGNED
    RowObject.Tour_Nr2 AT ROW 17.52 COL 71 COLON-ALIGNED
    LABEL "/" FORMAT "x(20)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 28.8 BY 1
    BGCOLOR 15 
    CB_Kondition AT ROW 17.52 COL 18 COLON-ALIGNED
    RowObject.DokumentStatus AT ROW 18.52 COL 18 COLON-ALIGNED WIDGET-ID 12
    VIEW-AS COMBO-BOX 
    LIST-ITEM-PAIRS "Nur Papier",00
    DROP-DOWN-LIST
    SIZE 50 BY 1
    BGCOLOR 15 
    RowObject.KnrFak AT ROW 20 COL 18 COLON-ALIGNED
    LABEL "Fakturaadresse" FORMAT "999999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 
    RowObject.KnrLie AT ROW 21 COL 18 COLON-ALIGNED
    LABEL "Lieferadresse" FORMAT "999999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 
    RowObject.Geb_Rg AT ROW 2 COL 62 HELP
    ""
    LABEL "Gebinde verrechnen"
    VIEW-AS TOGGLE-BOX
    SIZE 26 BY 1
    RowObject.Passant AT ROW 3 COL 62
    LABEL "Passant/Ladenkunde"
    VIEW-AS TOGGLE-BOX
    SIZE 26 BY 1
    CB_Mahncode AT ROW 4 COL 60 COLON-ALIGNED
    CB_FRW AT ROW 5 COL 60 COLON-ALIGNED
    CB_BESR AT ROW 6 COL 60 COLON-ALIGNED
    CB_LAGER AT ROW 7 COL 60 COLON-ALIGNED WIDGET-ID 2
    RowObject.Konto AT ROW 9.52 COL 69 COLON-ALIGNED
    LABEL "Sammel-Kto" FORMAT "x(12)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 17 BY 1 TOOLTIP "Debitor-Sammelkonto aus der FIBU"
    BGCOLOR 15 
    RowObject.MWST_Nr AT ROW 10.52 COL 69 COLON-ALIGNED
    LABEL "MWSt-Nr" FORMAT "x(15)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 17 BY 1
    BGCOLOR 15 
    CB_Ah_Art AT ROW 2.52 COL 101 COLON-ALIGNED
    RowObject.Abh_Rab_Wert AT ROW 2.52 COL 121 COLON-ALIGNED
    LABEL "/" FORMAT "zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 
    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.MWSt AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "MWSt" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    CB_Au_Art AT ROW 3.52 COL 101 COLON-ALIGNED
    RowObject.Auf_Rab_Wert AT ROW 3.52 COL 121 COLON-ALIGNED
    LABEL "/" FORMAT "zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 
    CB_Ze_Art AT ROW 4.52 COL 101 COLON-ALIGNED
    RowObject.Zei_Rab_Wert AT ROW 4.52 COL 121 COLON-ALIGNED
    LABEL "/" FORMAT "zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 
    CB_Zu_Art AT ROW 5.62 COL 101 COLON-ALIGNED
    RowObject.Zuschl_Wert AT ROW 5.62 COL 121 COLON-ALIGNED
    LABEL "/" FORMAT "zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 
    RowObject.Zuschl_Betr AT ROW 6.67 COL 109.6 COLON-ALIGNED
    LABEL "Total Zuschlag" FORMAT "zzz,zzz,zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 22.6 BY 1
    BGCOLOR 15 
    RowObject.Kred_Lim AT ROW 9.52 COL 115 COLON-ALIGNED
    LABEL "Kreditlimite" FORMAT "zz,zzz,zz9"
    VIEW-AS FILL-IN NATIVE 
    SIZE 17 BY 1
    BGCOLOR 15 
    RowObject.Kred_Lim_Vers AT ROW 10.52 COL 115 COLON-ALIGNED
    LABEL "Kreditlimite Versich" FORMAT "zz,zzz,zz9"
    VIEW-AS FILL-IN NATIVE 
    SIZE 17 BY 1 TOOLTIP "Kreditlimite für Delkredereversicherung"
    BGCOLOR 15 
    T_Bem AT ROW 12.19 COL 117.4
    T_Fak AT ROW 12.86 COL 117.4
    T_Abh AT ROW 13.57 COL 117.4
    T_Montag AT ROW 22.52 COL 21 WIDGET-ID 20
    T_Dienstag AT ROW 23.52 COL 21 WIDGET-ID 22
    T_Mittwoch AT ROW 22.52 COL 39 WIDGET-ID 26
    T_Donnerstag AT ROW 23.52 COL 39 WIDGET-ID 24
    RowObject.Ku_Grp AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Ku_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    T_Freitag AT ROW 22.52 COL 60 WIDGET-ID 28
    RowObject.Preis_Grp AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Preis_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    T_Samstag AT ROW 23.52 COL 60 WIDGET-ID 30
    RowObject.Mahn AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Mahn" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    F_BestBis_1 AT ROW 22.52 COL 105 COLON-ALIGNED WIDGET-ID 36
    RowObject.Avis AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Avis" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    F_BestBis_2 AT ROW 23.52 COL 105 COLON-ALIGNED WIDGET-ID 38
    Btn_Dokumente AT ROW 21 COL 120 WIDGET-ID 10
    RowObject.Firma AT ROW 19 COL 96 COLON-ALIGNED
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Knr AT ROW 19 COL 96 COLON-ALIGNED
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.LetztVK AT ROW 17 COL 115 COLON-ALIGNED
    LABEL "Letzt. Verkauf" FORMAT "99.99.9999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 17 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.Saldo AT ROW 18 COL 115 COLON-ALIGNED
    LABEL "Saldo" FORMAT "zzz,zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 17 BY 1
    BGCOLOR 14  NO-TAB-STOP 
    RowObject.Bonus_Grp AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Bonus_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Aktiv AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Aktiv" FORMAT "J/N"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Saldo_FRW AT ROW 19 COL 115 COLON-ALIGNED
    LABEL "Saldo Frw" FORMAT "zzz,zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 17 BY 1
    BGCOLOR 14  NO-TAB-STOP 
    RowObject.Vertr AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Vertr" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.FRW AT ROW 19 COL 96 COLON-ALIGNED
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Zuschl_Verr AT ROW 7.67 COL 109.6 COLON-ALIGNED
    LABEL "bereits verrechnet" FORMAT "zzz,zzz,zz9.99-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 22.6 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.Kond AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Kond" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.ABC_Grp AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "ABC_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Fak_Art AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Fak_Art" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Tour_Nr1 AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Tour_Nr1" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Rab_Grp AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Rab_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Bier_Cd AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Bier_Cd" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Wirt_So AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Wirt_So" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Ablad_Vor AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Ablad_Vor" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Abh_Rab_Art AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Abh_Rab_Art" FORMAT "99"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Auf_Rab_Art AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Auf_Rab_Art" FORMAT "99"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Zei_Rab_Art AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Zei_Rab_Art" FORMAT "99"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Zuschl_Art AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "Zuschl_Art" FORMAT "99"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 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.Fak_Adresse AT ROW 20 COL 29 COLON-ALIGNED NO-LABEL FORMAT "x(60)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 60 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.Lief_Adresse AT ROW 21 COL 29 COLON-ALIGNED NO-LABEL FORMAT "x(60)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 60 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.Lief_Bed AT ROW 19 COL 95.8 COLON-ALIGNED
    LABEL "Lief_Bed" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Bemerk AT ROW 19 COL 96 NO-LABEL
    VIEW-AS EDITOR
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Auf_Text AT ROW 19 COL 96 NO-LABEL
    VIEW-AS EDITOR
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Bar_Text AT ROW 19 COL 96 NO-LABEL
    VIEW-AS EDITOR
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Verband_Grp AT ROW 19 COL 94 COLON-ALIGNED
    LABEL "Verband_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.BESR_Art AT ROW 19 COL 96 COLON-ALIGNED
    LABEL "BESR" FORMAT "999999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Lager AT ROW 19 COL 96 COLON-ALIGNED WIDGET-ID 4 FORMAT "999999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Subverband_Grp AT ROW 19 COL 96 COLON-ALIGNED WIDGET-ID 8
    LABEL "Subverband_Grp" FORMAT "999999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.BestBis_1 AT ROW 19 COL 96 COLON-ALIGNED WIDGET-ID 32
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.BestBis_2 AT ROW 19 COL 96 COLON-ALIGNED WIDGET-ID 34
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.Liefertag AT ROW 19 COL 97 COLON-ALIGNED WIDGET-ID 40
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    "Rabatte/Zuschläge" VIEW-AS TEXT
    SIZE 22 BY .81 AT ROW 1.62 COL 103
    "Liefertage" VIEW-AS TEXT
    SIZE 15 BY .95 AT ROW 22.91 COL 3 WIDGET-ID 18
    RECT-1 AT ROW 1.24 COL 2
    RECT-2 AT ROW 1.48 COL 49.8
    RECT-3 AT ROW 1.48 COL 92.2
    RECT-4 AT ROW 22.24 COL 2 WIDGET-ID 16
    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-debst.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-debst.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             = 24.67
         WIDTH              = 138.
/* 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 FRAME-NAME Size-to-Fit Custom                            */
ASSIGN 
    FRAME F-Main:SCROLLABLE = FALSE
    FRAME F-Main:HIDDEN     = TRUE
    FRAME F-Main:POPUP-MENU = MENU POPUP-MENU-F-Main:HANDLE.

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

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

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

/* SETTINGS FOR FILL-IN RowObject.Ablad_Vor_Text IN FRAME F-Main
   EXP-LABEL                                                            */
/* 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.Auf_Rab_Art IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Auf_Rab_Art:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Auf_Rab_Art:READ-ONLY IN FRAME F-Main = TRUE.

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

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

/* SETTINGS FOR EDITOR RowObject.Bar_Text IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Bar_Text:HIDDEN IN FRAME F-Main          = TRUE
    RowObject.Bar_Text:RETURN-INSERTED IN FRAME F-Main = TRUE
    RowObject.Bar_Text:READ-ONLY IN FRAME F-Main       = TRUE.

/* SETTINGS FOR EDITOR RowObject.Bemerk IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Bemerk:HIDDEN IN FRAME F-Main          = TRUE
    RowObject.Bemerk:RETURN-INSERTED IN FRAME F-Main = TRUE
    RowObject.Bemerk:READ-ONLY IN FRAME F-Main       = TRUE.

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

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

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

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

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

ASSIGN 
    CB_ABCGruppe:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_ABCGruppe:HANDLE.

ASSIGN 
    CB_Abladevor:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Abladevor:HANDLE.

ASSIGN 
    CB_Avisierung:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Avisierung:HANDLE.

ASSIGN 
    CB_Biergruppe:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Biergruppe:HANDLE.

ASSIGN 
    CB_Bonusgruppe:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Bonusgruppe:HANDLE.

ASSIGN 
    CB_Fakturaart:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Fakturaart:HANDLE.

ASSIGN 
    CB_Kondition:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Kondition:HANDLE.

ASSIGN 
    CB_Kundengruppe:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Kundengruppe:HANDLE.

ASSIGN 
    CB_Lieferbed:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Lieferbed:HANDLE.

ASSIGN 
    CB_Mehrwertsteuer:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Mehrwertsteuer:HANDLE.

ASSIGN 
    CB_Preisgruppe:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Preisgruppe:HANDLE.

ASSIGN 
    CB_Rabattgruppe:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Rabattgruppe:HANDLE.

ASSIGN 
    CB_Subverband:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Subverband:HANDLE.

ASSIGN 
    CB_Tourenplan:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Tourenplan:HANDLE.

ASSIGN 
    CB_Verband:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Verband:HANDLE.

ASSIGN 
    CB_Vertreter:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Vertreter:HANDLE.

ASSIGN 
    CB_WirteSo:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_WirteSo:HANDLE.

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

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

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

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

/* SETTINGS FOR FILL-IN F_BestBis_1 IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR FILL-IN F_BestBis_2 IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX RowObject.Geb_Rg IN FRAME F-Main
   EXP-LABEL EXP-HELP                                                   */
/* SETTINGS FOR FILL-IN KDebi IN FRAME F-Main
   NO-DISPLAY NO-ENABLE                                                 */
ASSIGN 
    KDebi:HIDDEN IN FRAME F-Main    = TRUE
    KDebi:READ-ONLY IN FRAME F-Main = TRUE.

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

/* SETTINGS FOR FILL-IN RowObject.KnrFak IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.KnrLie IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* 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.Kred_Lim IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Kred_Lim_Vers IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Ku_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Ku_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Ku_Grp:READ-ONLY IN FRAME F-Main = TRUE.

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

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

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

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

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

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

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

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

/* SETTINGS FOR FILL-IN RowObject.Rab_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Rab_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Rab_Grp: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.Saldo_FRW IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
ASSIGN 
    RowObject.Saldo_FRW:READ-ONLY IN FRAME F-Main = TRUE.

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

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

/* SETTINGS FOR FILL-IN RowObject.Tour_Nr2 IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR TOGGLE-BOX T_Abh IN FRAME F-Main
   4                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Bem IN FRAME F-Main
   4                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Dienstag IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Donnerstag IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Fak IN FRAME F-Main
   4                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Freitag IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Mittwoch IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Montag IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Samstag IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR FILL-IN RowObject.Verband_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Verband_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Verband_Grp:READ-ONLY IN FRAME F-Main = TRUE.

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

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

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

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

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

/* SETTINGS FOR FILL-IN RowObject.Zuschl_Wert IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* _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 Btn_Dokumente
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Dokumente vTableWin
ON CHOOSE OF Btn_Dokumente IN FRAME F-Main /* Dokumente */
    DO:
        IF FMut THEN RETURN NO-APPLY.

        RUN OPEN_DATEI.

        RETURN NO-APPLY.
    END.

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


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

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


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

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


&Scoped-define SELF-NAME CB_Ah_Art
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Ah_Art vTableWin
ON VALUE-CHANGED OF CB_Ah_Art IN FRAME F-Main /* Abhol */
    DO:
        IF FMut THEN rowObject.Abh_Rab_Art:SCREEN-VALUE = SELF:SCREEN-VALUE.
        ELSE SELF:SCREEN-VALUE = rowObject.Abh_Rab_Art:SCREEN-VALUE.
        IF INTEGER(SELF:SCREEN-VALUE) = 0 THEN rowObject.Abh_Rab_Wert:SCREEN-VALUE = '0'.
    END.

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


&Scoped-define SELF-NAME CB_Au_Art
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Au_Art vTableWin
ON VALUE-CHANGED OF CB_Au_Art IN FRAME F-Main /* Auftrag */
    DO:
        IF FMut THEN rowObject.Auf_Rab_Art:SCREEN-VALUE = SELF:SCREEN-VALUE.
        ELSE SELF:SCREEN-VALUE = rowObject.Auf_Rab_Art:SCREEN-VALUE.
        IF INTEGER(SELF:SCREEN-VALUE) = 0 THEN rowObject.Auf_Rab_Wert:SCREEN-VALUE = '0'.
    END.

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


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

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


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

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


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

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


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

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


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

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


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

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


&Scoped-define SELF-NAME CB_Kondition
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Kondition vTableWin
ON VALUE-CHANGED OF CB_Kondition IN FRAME F-Main /* Kondition */
    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_Kundengruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Kundengruppe vTableWin
ON VALUE-CHANGED OF CB_Kundengruppe IN FRAME F-Main /* Kundengruppe */
    DO:
        IF FMut THEN rowObject.Ku_Grp:SCREEN-VALUE = SELF:SCREEN-VALUE.
        ELSE SELF:SCREEN-VALUE = rowObject.Ku_Grp:SCREEN-VALUE NO-ERROR.
    END.

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


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

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


&Scoped-define SELF-NAME CB_Verband
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Verband vTableWin
ON VALUE-CHANGED OF CB_Verband IN FRAME F-Main /* Verband/-Knr */
    DO:
        IF FMut THEN 
        DO:
            rowObject.Verband_Grp:SCREEN-VALUE = SELF:SCREEN-VALUE.
            RUN COMBO_SUBVERBAND ( CB_Subverband:HANDLE, CB_Verband:SCREEN-VALUE ).
            CB_Subverband:SCREEN-VALUE = rowObject.Subverband_Grp:SCREEN-VALUE NO-ERROR.
            IF ERROR-STATUS:ERROR THEN CB_Subverband:SCREEN-VALUE = '000000'.
            rowObject.Subverband:SCREEN-VALUE = CB_Subverband:SCREEN-VALUE NO-ERROR.
        END.
        ELSE SELF:SCREEN-VALUE = rowObject.Verband_Grp:SCREEN-VALUE NO-ERROR.
    END.

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


&Scoped-define SELF-NAME CB_Vertreter
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Vertreter vTableWin
ON VALUE-CHANGED OF CB_Vertreter IN FRAME F-Main /* Vertreter */
    DO:
        IF FMut THEN 
        DO:
            rowObject.Vertr:SCREEN-VALUE = SELF:SCREEN-VALUE.
            FIND Tabel NO-LOCK
                WHERE Tabel.Firma  = Firma
                AND   Tabel.RecArt = 'VERTR'
                AND   Tabel.CodeI  = INTEGER(rowObject.Vertr:SCREEN-VALUE)
                AND   Tabel.CodeC  = ''
                AND   Tabel.Sprcd  = 1 NO-ERROR.
            IF AVAILABLE Tabel
                THEN ASSIGN rowObject.Lager:SCREEN-VALUE = STRING(Tabel.Int_1)
                    CB_Lager:SCREEN-VALUE        = rowObject.Lager:SCREEN-VALUE NO-ERROR.
        END.
        ELSE SELF:SCREEN-VALUE = rowObject.Vertr:SCREEN-VALUE NO-ERROR.
    END.

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


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

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


&Scoped-define SELF-NAME CB_Ze_Art
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Ze_Art vTableWin
ON VALUE-CHANGED OF CB_Ze_Art IN FRAME F-Main /* Zeilen */
    DO:
        IF FMut THEN rowObject.Zei_Rab_Art:SCREEN-VALUE = SELF:SCREEN-VALUE.
        ELSE SELF:SCREEN-VALUE = rowObject.Zei_Rab_Art:SCREEN-VALUE.
        IF INTEGER(SELF:SCREEN-VALUE) = 0 THEN rowObject.Zei_Rab_Wert:SCREEN-VALUE = '0'.
    END.

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


&Scoped-define SELF-NAME CB_Zu_Art
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Zu_Art vTableWin
ON VALUE-CHANGED OF CB_Zu_Art IN FRAME F-Main /* Zuschlag */
    DO:
        IF FMut THEN rowObject.Zuschl_Art:SCREEN-VALUE = SELF:SCREEN-VALUE.
        ELSE SELF:SCREEN-VALUE = rowObject.Zuschl_Art:SCREEN-VALUE.
        IF INTEGER(SELF:SCREEN-VALUE) = 0 THEN rowObject.Zuschl_Wert:SCREEN-VALUE = '0'.
    END.

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


&Scoped-define SELF-NAME RowObject.Geb_Rg
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.Geb_Rg vTableWin
ON VALUE-CHANGED OF RowObject.Geb_Rg IN FRAME F-Main /* Gebinde verrechnen */
    DO:
        DEFINE VARIABLE i1 AS INTEGER NO-UNDO.

        IF FMut   THEN RETURN.
        i1 = LOOKUP('Geb_Rg', oldColList, ',') + 1.
        IF i1 < 2 THEN RETURN.
        IF ENTRY(i1, oldColValues, CHR(1)) BEGINS 'n' THEN SELF:SCREEN-VALUE = 'N'.
        ELSE                                               SELF:SCREEN-VALUE = 'J'.
    END.

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


&Scoped-define SELF-NAME RowObject.KnrFak
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.KnrFak vTableWin
ON ALT-F OF RowObject.KnrFak IN FRAME F-Main /* Fakturaadresse */
    DO:
        DEFINE VARIABLE iRecid AS RECID NO-UNDO.

        RUN 'g-suchen-adresse.w':U ( 'DEB', OUTPUT iRecid ).
        IF iRecid = ? OR
            iRecid = 0 THEN RETURN NO-APPLY.
        FIND Adresse NO-LOCK WHERE RECID(Adresse) = iRecid NO-ERROR.
        SELF:SCREEN-VALUE = STRING(Adresse.Knr).
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME RowObject.KnrLie
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.KnrLie vTableWin
ON ALT-F OF RowObject.KnrLie IN FRAME F-Main /* Lieferadresse */
    DO:
        DEFINE VARIABLE iRecid AS RECID NO-UNDO.

        RUN 'g-suchen-adresse.w':U ( 'DEB', OUTPUT iRecid ).
        IF iRecid = ? OR
            iRecid = 0 THEN RETURN NO-APPLY.
        FIND Adresse NO-LOCK WHERE RECID(Adresse) = iRecid NO-ERROR.
        SELF:SCREEN-VALUE = STRING(Adresse.Knr).
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME m_Login_fuer_eShop_erstellen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Login_fuer_eShop_erstellen vTableWin
ON CHOOSE OF MENU-ITEM m_Login_fuer_eShop_erstellen /* Login für eShop erstellen */
    DO:
        DEFINE VARIABLE cBenutzer AS CHARACTER INIT '' NO-UNDO.
        DEFINE VARIABLE cMail     AS CHARACTER INIT '' NO-UNDO.
        DEFINE VARIABLE cPasswort AS CHARACTER INIT '' NO-UNDO.
        DEFINE VARIABLE hDaten    AS HANDLE    NO-UNDO.
        DEFINE VARIABLE lJa       AS LOG       INIT FALSE NO-UNDO.
    
        DEFINE VARIABLE iKnr      AS INTEGER   NO-UNDO.

        iKnr = INTEGER(rowObject.Knr:SCREEN-VALUE IN FRAME {&FRAME-NAME}).
        FIND Debst NO-LOCK
            WHERE Debst.Firma = Firma
            AND   Debst.Knr   = iKnr.
        ASSIGN  
            cBenutzer = Debst.esBenutzer
            cMail     = Debst.esMail
            cPasswort = ENTRY(1, Debst.esPasswort, CHR(250)).
                
        RUN 'g-eshoplogin.w' ( INPUT-OUTPUT cBenutzer,
            INPUT-OUTPUT cMail,
            INPUT-OUTPUT cPasswort,
            OUTPUT lJa).
        IF NOT lJa THEN RETURN NO-APPLY.

        IF cBenutzer = ''   OR
            cMail     = ''   OR
            cPasswort = ''   THEN RETURN NO-APPLY.
       
        DO WITH FRAME {&FRAME-NAME}:
            iKnr = INTEGER(rowObject.Knr:SCREEN-VALUE).
            REPEAT TRANSACTION:
                FIND Debst
                    WHERE Debst.Firma = Firma
                    AND   Debst.Knr   = iKnr.
                ASSIGN  
                    Debst.esBenutzer = cBenutzer
                    Debst.esAktiv    = TRUE
                    Debst.esMail     = cMail
                    Debst.esPasswort = TRIM(cPasswort)
                                     + CHR(250)
                                     + TRIM(HEX-ENCODE(SHA1-DIGEST(cPasswort))).
                RELEASE Debst.
                LEAVE.
            END.
            hDaten = DYNAMIC-FUNCTION('getDataSource':U) NO-ERROR.
            IF VALID-HANDLE(hDaten) THEN RUN refreshRow IN hDaten NO-ERROR.
            RUN POST_HTTP-REQUEST.p ( cMail, cPasswort, cBenutzer, iKnr ).
            RETURN NO-APPLY.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_ABCGruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_ABCGruppe vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_ABCGruppe /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_ABCGruppe:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Abladevor
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Abladevor vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Abladevor /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Abladevor:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Avisierung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Avisierung vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Avisierung /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Avisierung:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Biergruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Biergruppe vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Biergruppe /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Biergruppe:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Bonusgruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Bonusgruppe vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Bonusgruppe /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Bonusgruppe:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Fakturaart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Fakturaart vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Fakturaart /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Fakturaart:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Kondition
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Kondition vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Kondition /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Kondition:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Kundengruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Kundengruppe vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Kundengruppe /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Kundengruppe:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Lieferbed
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Lieferbed vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Lieferbed /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Lieferbed:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Mehrwertsteuer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Mehrwertsteuer vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Mehrwertsteuer /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Mehrwertsteuer:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Preisgruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Preisgruppe vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Preisgruppe /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Preisgruppe:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Rabattgruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Rabattgruppe vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Rabattgruppe /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Rabattgruppe:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Subverband
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Subverband vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Subverband /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Subverband:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Tourenplan
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Tourenplan vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Tourenplan /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Tourenplan:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Verband
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Verband vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Verband /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Verband:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_Vertreter
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_Vertreter vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_Vertreter /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Vertreter:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sortiert_WirteSo
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortiert_WirteSo vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sortiert_WirteSo /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_WirteSo:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME RowObject.Passant
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.Passant vTableWin
ON VALUE-CHANGED OF RowObject.Passant IN FRAME F-Main /* Passant/Ladenkunde */
    DO:
        DEFINE VARIABLE i1 AS INTEGER NO-UNDO.

        IF FMut   THEN RETURN.
        i1 = LOOKUP('Passant', oldColList, ',') + 1.
        IF i1 < 2 THEN RETURN.
        IF ENTRY(i1, oldColValues, CHR(1)) BEGINS 'n' THEN SELF:SCREEN-VALUE = 'N'.
        ELSE                                               SELF:SCREEN-VALUE = 'J'.
    END.

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


&Scoped-define SELF-NAME T_Abh
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Abh vTableWin
ON VALUE-CHANGED OF T_Abh IN FRAME F-Main /* Abholtext */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            T_Abh:SCREEN-VALUE = STRING(T_Abh).
            RUN g-bemerkung.w ( INPUT rowObject.Bar_Text:HANDLE, INPUT FMut ).
            rowObject.Bar_Text:MODIFIED = TRUE.
            IF rowObject.Bar_Text:SCREEN-VALUE = '' THEN T_Abh = FALSE.
            ELSE                                         T_Abh = TRUE.
            DISPLAY T_Abh WITH FRAME {&FRAME-NAME}.
            IF VALID-HANDLE(hLastFeld) THEN APPLY 'ENTRY' TO hLastFeld.
            ELSE                            APPLY 'ENTRY' TO rowObject.Knr.
            RETURN NO-APPLY.
        END.
    END.

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


&Scoped-define SELF-NAME T_Bem
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Bem vTableWin
ON VALUE-CHANGED OF T_Bem IN FRAME F-Main /* Bemerk */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            T_Bem:SCREEN-VALUE = STRING(T_Bem).
            RUN g-bemerkung.w ( INPUT rowObject.Bemerk:HANDLE, INPUT FMut ).
            rowObject.Bemerk:MODIFIED = TRUE.
            IF rowObject.Bemerk:SCREEN-VALUE = '' THEN T_Bem = FALSE.
            ELSE                                       T_Bem = TRUE.
            DISPLAY T_Bem WITH FRAME {&FRAME-NAME}.
            IF VALID-HANDLE(hLastFeld) THEN APPLY 'ENTRY' TO hLastFeld.
            ELSE                            APPLY 'ENTRY' TO rowObject.Knr.
            RETURN NO-APPLY.
        END.
    END.

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


&Scoped-define SELF-NAME T_Dienstag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Dienstag vTableWin
ON VALUE-CHANGED OF T_Dienstag IN FRAME F-Main /* Dienstag */
    DO:
        IF NOT FMut THEN SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)).
    END.

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


&Scoped-define SELF-NAME T_Donnerstag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Donnerstag vTableWin
ON VALUE-CHANGED OF T_Donnerstag IN FRAME F-Main /* Donnerstag */
    DO:
        IF NOT FMut THEN SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)).
    END.

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


&Scoped-define SELF-NAME T_Fak
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Fak vTableWin
ON VALUE-CHANGED OF T_Fak IN FRAME F-Main /* Faktext */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            T_Fak:SCREEN-VALUE = STRING(T_Fak).
            RUN g-bemerkung.w ( INPUT rowObject.Auf_Text:HANDLE, INPUT FMut ).
            rowObject.Auf_Text:MODIFIED = TRUE.
            IF rowObject.Auf_Text:SCREEN-VALUE = '' THEN T_Fak = FALSE.
            ELSE                                         T_Fak = TRUE.
            DISPLAY T_Fak WITH FRAME {&FRAME-NAME}.
            IF VALID-HANDLE(hLastFeld) THEN APPLY 'ENTRY' TO hLastFeld.
            ELSE                            APPLY 'ENTRY' TO rowObject.Knr.
            RETURN NO-APPLY.
        END.
    END.

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


&Scoped-define SELF-NAME T_Freitag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Freitag vTableWin
ON VALUE-CHANGED OF T_Freitag IN FRAME F-Main /* Freitag */
    DO:
        IF NOT FMut THEN SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)).
    END.

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


&Scoped-define SELF-NAME T_Mittwoch
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Mittwoch vTableWin
ON VALUE-CHANGED OF T_Mittwoch IN FRAME F-Main /* Mittwoch */
    DO:
        IF NOT FMut THEN SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)).
    END.

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


&Scoped-define SELF-NAME T_Montag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Montag vTableWin
ON VALUE-CHANGED OF T_Montag IN FRAME F-Main /* Montag */
    DO:
        IF NOT FMut THEN SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)).
    END.

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


&Scoped-define SELF-NAME T_Samstag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Samstag vTableWin
ON VALUE-CHANGED OF T_Samstag IN FRAME F-Main /* Samstag */
    DO:
        IF NOT FMut THEN SELF:SCREEN-VALUE = (IF SELF:SCREEN-VALUE BEGINS 'n' THEN STRING(TRUE) ELSE STRING(FALSE)).
    END.

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


&UNDEFINE SELF-NAME

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


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

{ incl/viwmainblock.i }

ON 'ALT-CTRL-F':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN SCHREIBENFEHLWERTE.
        RETURN NO-APPLY.
    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:       
                ------------------------------------------------------------------------------*/

    DEFINE VARIABLE Knr AS INTEGER NO-UNDO.

    Knr = DYNAMIC-FUNCTION('GETKNR':U) NO-ERROR.
    IF Knr = 0 THEN 
    DO:
        DYNAMIC-FUNCTION('setFlagAbbruch':U, INPUT TRUE, INPUT Progname) NO-ERROR.
        RUN TOOLBAR IN hKontainer ( INPUT 'CANCEL':U ) 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 1021 ).
        DYNAMIC-FUNCTION('setFlagabbruch':U, INPUT TRUE, INPUT Progname) NO-ERROR.
        RUN TOOLBAR IN hKontainer ( INPUT 'CANCEL':U ) NO-ERROR.
        RETURN NO-APPLY.
    END.
    FIND Debst NO-LOCK
        WHERE Debst.Firma = Firma
        AND   Debst.Knr   = Knr NO-ERROR.
    IF AVAILABLE Debst THEN 
    DO:
        RELEASE Adresse.
        RELEASE Debst.
        DYNAMIC-FUNCTION('setFlagAbbruch':U, INPUT TRUE, INPUT Progname) NO-ERROR.
        RUN TOOLBAR IN hKontainer ( INPUT 'CANCEL':U ) NO-ERROR.
        RETURN NO-APPLY.
    END.

    FNeu  = TRUE.
    FMut  = TRUE.
    FDisp = 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:       
                ------------------------------------------------------------------------------*/

    FCancel = TRUE.

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

    FNeu  = TRUE.
    FMut  = TRUE.
    FCopy = TRUE.
    FDisp = TRUE.
    
    RUN SUPER.

END PROCEDURE.

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

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

    DEFINE VARIABLE Ja AS LOG NO-UNDO.

    Ja = DYNAMIC-FUNCTION( 'ANTWORT_NEIN':U, INPUT 1000 ).
    IF NOT Ja THEN 
    DO:
        DYNAMIC-FUNCTION('setFlagabbruch':U, INPUT TRUE, INPUT Progname) NO-ERROR.
        RUN TOOLBAR IN hKontainer ( INPUT 'CANCEL':U ) NO-ERROR.
        RETURN NO-APPLY.
    END.

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.

    DEFINE VARIABLE ja      AS LOGICAL   NO-UNDO INIT TRUE.   
    DEFINE VARIABLE Farbe   AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iBinary AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cBinary AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ii      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    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}:
        IF ENTRY(1, pcColValues, CHR(01)) = '' THEN 
        DO:
            KDebi:HIDDEN       = FALSE.
            KDebi:SENSITIVE    = TRUE.
            KDebi:SCREEN-VALUE = 'Kein Debitor'.
        END.
        ELSE 
        DO:
            KDebi:SENSITIVE = FALSE.
            KDebi:HIDDEN    = TRUE.
        END.
    END.
    
    RUN SUPER( INPUT pcColValues).

    DO WITH FRAME {&FRAME-NAME}:
        CB_Vertreter:SCREEN-VALUE      = rowObject.Vertr:SCREEN-VALUE           NO-ERROR.
        CB_Kundengruppe:SCREEN-VALUE   = rowObject.Ku_Grp:SCREEN-VALUE          NO-ERROR.
        CB_Preisgruppe:SCREEN-VALUE    = rowObject.Preis_Grp:SCREEN-VALUE       NO-ERROR.
        CB_Bonusgruppe:SCREEN-VALUE    = rowObject.Bonus_Grp:SCREEN-VALUE       NO-ERROR.
        CB_Rabattgruppe:SCREEN-VALUE   = rowObject.Rab_Grp:SCREEN-VALUE         NO-ERROR.
        CB_ABCGruppe:SCREEN-VALUE      = rowObject.ABC_Grp:SCREEN-VALUE         NO-ERROR.
        CB_Fakturaart:SCREEN-VALUE     = rowObject.Fak_Art:SCREEN-VALUE         NO-ERROR.
        CB_Biergruppe:SCREEN-VALUE     = rowObject.Bier_Cd:SCREEN-VALUE         NO-ERROR.
        CB_Avisierung:SCREEN-VALUE     = rowObject.AVIS:SCREEN-VALUE            NO-ERROR.
        CB_Lieferbed:SCREEN-VALUE      = rowObject.Lief_Bed:SCREEN-VALUE        NO-ERROR.
        CB_Mehrwertsteuer:SCREEN-VALUE = rowObject.MWST:SCREEN-VALUE            NO-ERROR.
        CB_Verband       :SCREEN-VALUE = rowObject.Verband_Grp:SCREEN-VALUE     NO-ERROR.
        RUN COMBO_SUBVERBAND    ( INPUT CB_Subverband:HANDLE, CB_Verband:SCREEN-VALUE ) NO-ERROR.
        CB_Subverband    :SCREEN-VALUE = rowObject.Subverband_Grp:SCREEN-VALUE  NO-ERROR.
        CB_WirteSo:SCREEN-VALUE        = rowObject.Wirt_So:SCREEN-VALUE         NO-ERROR.
        CB_Abladevor:SCREEN-VALUE      = rowObject.Ablad_Vor:SCREEN-VALUE       NO-ERROR.
        CB_Tourenplan:SCREEN-VALUE     = rowObject.Tour_Nr1:SCREEN-VALUE        NO-ERROR.
        CB_Kondition:SCREEN-VALUE      = rowObject.Kond:SCREEN-VALUE            NO-ERROR.
        CB_FRW:SCREEN-VALUE            = rowObject.FRW:SCREEN-VALUE             NO-ERROR.
        CB_BESR:SCREEN-VALUE           = rowObject.BESR_Art:SCREEN-VALUE        NO-ERROR.
        CB_LAGER:SCREEN-VALUE          = rowObject.Lager:SCREEN-VALUE           NO-ERROR.

        CB_Mahncode:SCREEN-VALUE       = rowObject.Mahn:SCREEN-VALUE            NO-ERROR.
        CB_Ah_Art:SCREEN-VALUE         = rowObject.Abh_Rab_Art:SCREEN-VALUE     NO-ERROR.
        CB_Au_Art:SCREEN-VALUE         = rowObject.Auf_Rab_Art:SCREEN-VALUE     NO-ERROR.
        CB_Ze_Art:SCREEN-VALUE         = rowObject.Zei_Rab_Art:SCREEN-VALUE     NO-ERROR.
        CB_Zu_Art:SCREEN-VALUE         = rowObject.Zuschl_Art:SCREEN-VALUE      NO-ERROR.

        T_Bem = FALSE.
        T_Fak = FALSE.
        T_Abh = FALSE.
        IF rowObject.Bemerk:SCREEN-VALUE   <> '' THEN T_Bem = TRUE.
        IF rowObject.Auf_Text:SCREEN-VALUE <> '' THEN T_Fak = TRUE.
        IF rowObject.Bar_Text:SCREEN-VALUE <> '' THEN T_Abh = TRUE.
        DISPLAY {&List-4}.
    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.

        iBinary = INTEGER(rowObject.Liefertag:SCREEN-VALUE).
        iBinary = NumberSystems:integer2Binary(iBinary).         
        cBinary = STRING(iBinary,'9999999').
        
        DO ii = 1 TO 7:
            CASE ii:
                WHEN 2 THEN 
                    T_Montag     = (IF SUBSTRING(cBinary, ii, 01) = '1' THEN TRUE ELSE FALSE).
                WHEN 3 THEN 
                    T_Dienstag   = (IF SUBSTRING(cBinary, ii, 01) = '1' THEN TRUE ELSE FALSE).
                WHEN 4 THEN 
                    T_Mittwoch   = (IF SUBSTRING(cBinary, ii, 01) = '1' THEN TRUE ELSE FALSE).
                WHEN 5 THEN 
                    T_Donnerstag = (IF SUBSTRING(cBinary, ii, 01) = '1' THEN TRUE ELSE FALSE).
                WHEN 6 THEN 
                    T_Freitag    = (IF SUBSTRING(cBinary, ii, 01) = '1' THEN TRUE ELSE FALSE).
                WHEN 7 THEN 
                    T_Samstag    = (IF SUBSTRING(cBinary, ii, 01) = '1' THEN TRUE ELSE FALSE).
            END.
        END.
        
        ii = INTEGER(rowObject.BestBis_1:SCREEN-VALUE).
        IF ii = 0 THEN cString = '0000'.
        ELSE           cString = REPLACE(SUBSTRING(STRING(ii,'HH:MM:SS'),01,05), ':', '').
        F_BestBis_1 = cString. 
        ii = INTEGER(rowObject.BestBis_2:SCREEN-VALUE).
        IF ii = 0 THEN cString = '0000'.
        ELSE           cString = REPLACE(SUBSTRING(STRING(ii,'HH:MM:SS'),01,05), ':', '').
        F_BestBis_2 = cString. 

        DISPLAY {&List-6}.
        
        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 ).
            
        
        IF Farbe = 15 THEN 
        DO:        
            IF CB_Vertreter:SCREEN-VALUE      <> rowObject.Vertr:SCREEN-VALUE           THEN CB_Vertreter   :BGCOLOR = 11.
            IF CB_Kundengruppe:SCREEN-VALUE   <> rowObject.Ku_Grp:SCREEN-VALUE          THEN CB_Kundengruppe:BGCOLOR = 11.
            IF CB_Preisgruppe:SCREEN-VALUE    <> rowObject.Preis_Grp:SCREEN-VALUE       THEN CB_Preisgruppe :BGCOLOR = 11.
            IF CB_Bonusgruppe:SCREEN-VALUE    <> rowObject.Bonus_Grp:SCREEN-VALUE       THEN CB_Bonusgruppe :BGCOLOR = 11.
            IF CB_Rabattgruppe:SCREEN-VALUE   <> rowObject.Rab_Grp:SCREEN-VALUE         THEN CB_Rabattgruppe:BGCOLOR = 11.
            IF CB_ABCGruppe:SCREEN-VALUE      <> rowObject.ABC_Grp:SCREEN-VALUE         THEN CB_ABCGruppe   :BGCOLOR = 11.
            IF CB_Fakturaart:SCREEN-VALUE     <> rowObject.Fak_Art:SCREEN-VALUE         THEN CB_Fakturaart  :BGCOLOR = 11.
            IF CB_Biergruppe:SCREEN-VALUE     <> rowObject.Bier_Cd:SCREEN-VALUE         THEN CB_Biergruppe  :BGCOLOR = 11.
            IF CB_Avisierung:SCREEN-VALUE     <> rowObject.AVIS:SCREEN-VALUE            THEN CB_Avisierung  :BGCOLOR = 11.
            IF CB_Lieferbed:SCREEN-VALUE      <> rowObject.Lief_Bed:SCREEN-VALUE        THEN CB_Lieferbed   :BGCOLOR = 11.
            IF CB_Mehrwertsteuer:SCREEN-VALUE <> rowObject.MWST:SCREEN-VALUE            THEN CB_Mehrwertsteuer:BGCOLOR = 11.
            IF CB_Verband       :SCREEN-VALUE <> rowObject.Verband_Grp:SCREEN-VALUE     THEN CB_Verband     :BGCOLOR = 11.
            IF CB_Subverband    :SCREEN-VALUE <> rowObject.Subverband_Grp:SCREEN-VALUE  THEN CB_Subverband  :BGCOLOR = 11.
            IF CB_WirteSo:SCREEN-VALUE        <> rowObject.Wirt_So:SCREEN-VALUE         THEN CB_WirteSo     :BGCOLOR = 11.
            IF CB_Abladevor:SCREEN-VALUE      <> rowObject.Ablad_Vor:SCREEN-VALUE       THEN CB_Abladevor   :BGCOLOR = 11.
            IF CB_Tourenplan:SCREEN-VALUE     <> rowObject.Tour_Nr1:SCREEN-VALUE        THEN CB_Tourenplan  :BGCOLOR = 11.
            IF CB_Kondition:SCREEN-VALUE      <> rowObject.Kond:SCREEN-VALUE            THEN CB_Kondition   :BGCOLOR = 11.
            IF CB_FRW:SCREEN-VALUE            <> rowObject.FRW:SCREEN-VALUE             THEN CB_FRW         :BGCOLOR = 11.
            IF CB_BESR:SCREEN-VALUE           <> rowObject.BESR_Art:SCREEN-VALUE        THEN CB_BESR        :BGCOLOR = 11.
            IF CB_LAGER:SCREEN-VALUE          <> rowObject.Lager:SCREEN-VALUE           THEN CB_LAGER       :BGCOLOR = 11.
    
            IF CB_Mahncode:SCREEN-VALUE       <> rowObject.Mahn:SCREEN-VALUE            THEN CB_Mahncode    :BGCOLOR = 11.
            IF CB_Ah_Art:SCREEN-VALUE         <> rowObject.Abh_Rab_Art:SCREEN-VALUE     THEN CB_Ah_Art      :BGCOLOR = 11.
            IF CB_Au_Art:SCREEN-VALUE         <> rowObject.Auf_Rab_Art:SCREEN-VALUE     THEN CB_Au_Art      :BGCOLOR = 11.
            IF CB_Ze_Art:SCREEN-VALUE         <> rowObject.Zei_Rab_Art:SCREEN-VALUE     THEN CB_Ze_Art      :BGCOLOR = 11.
            IF CB_Zu_Art:SCREEN-VALUE         <> rowObject.Zuschl_Art:SCREEN-VALUE      THEN CB_Zu_Art      :BGCOLOR = 11.
        END.
    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:       
                ------------------------------------------------------------------------------*/

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

    DO WITH FRAME {&FRAME-NAME}:
        DYNAMIC-FUNCTION('checkComboSort':U, Fenster:HANDLE, '{&ENABLED-OBJECTS}' ) NO-ERROR.
        
        RUN COMBO_ABCGRP        ( INPUT CB_ABCGruppe    :HANDLE ) NO-ERROR.
        RUN COMBO_ABLADEVOR     ( INPUT CB_Abladevor    :HANDLE ) NO-ERROR.
        RUN COMBO_AVIS          ( INPUT CB_Avisierung   :HANDLE ) NO-ERROR.
        RUN COMBO_BESRART       ( INPUT CB_BESR         :HANDLE ) NO-ERROR.
        RUN COMBO_BIERGRP       ( INPUT CB_Biergruppe   :HANDLE ) NO-ERROR.
        RUN COMBO_BONUSGRP      ( INPUT CB_Bonusgruppe  :HANDLE ) NO-ERROR.
        RUN COMBO_FAKART        ( INPUT CB_Fakturaart   :HANDLE ) NO-ERROR.
        RUN COMBO_FRW           ( INPUT CB_Frw          :HANDLE ) NO-ERROR.
        RUN COMBO_KONDITION     ( INPUT CB_Kondition    :HANDLE ) NO-ERROR.
        RUN COMBO_KUNDENGRP     ( INPUT CB_Kundengruppe :HANDLE ) NO-ERROR.
        RUN COMBO_LAGER         ( INPUT CB_LAGER        :HANDLE ) NO-ERROR.
        RUN COMBO_LIEFERBED     ( INPUT CB_Lieferbed    :HANDLE ) NO-ERROR.
        RUN COMBO_MWSTKUND      ( INPUT CB_Mehrwertsteuer:HANDLE) NO-ERROR.
        RUN COMBO_PREISGRP      ( INPUT CB_Preisgruppe  :HANDLE ) NO-ERROR.
        RUN COMBO_RABATTGRP     ( INPUT CB_Rabattgruppe :HANDLE ) NO-ERROR.
        RUN COMBO_TOUREN        ( INPUT CB_Tourenplan   :HANDLE ) NO-ERROR.
        RUN COMBO_VERBAND       ( INPUT CB_Verband      :HANDLE ) NO-ERROR.
        RUN COMBO_SUBVERBAND    ( INPUT CB_Subverband   :HANDLE, CB_Verband:SCREEN-VALUE ) NO-ERROR.
        RUN COMBO_VERTRETER     ( INPUT CB_Vertreter    :HANDLE ) NO-ERROR.
        RUN COMBO_WIRTESO       ( INPUT CB_WirteSo      :HANDLE ) NO-ERROR.
        
        CB_Mahncode :DELIMITER = ';'.
        CB_Ah_Art   :DELIMITER = ';'.
        CB_Au_Art   :DELIMITER = ';'.
        CB_Ze_Art   :DELIMITER = ';'.
        CB_Zu_Art   :DELIMITER = ';'.
        
        rowObject.DokumentStatus:DELIMITER = ';'.
        rowObject.DokumentStatus:LIST-ITEM-PAIRS = 'Nur Papier;00;Papier und Mail;01;Nur Mail;02'.
    END.

    RUN SUPER.

    { incl/viwenableobject.i }
    
    DEFINE VARIABLE cValue AS CHARACTER NO-UNDO.

    cValue = ''.
    GET-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'Vertreter'
        VALUE   cValue.
    IF cValue = ?  THEN cValue = 'nein'.
    IF cValue = '' THEN cValue = 'nein'.
    IF cValue BEGINS 'n' THEN fVertr = FALSE.
    ELSE                      fVertr = TRUE.
    IF fVertr = TRUE THEN cValue = 'ja'.
    ELSE                  cValue = 'nein'.
    PUT-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'Vertreter'
        VALUE   cValue.

    cValue = ''.
    GET-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'ABCGrp'
        VALUE   cValue.
    IF cValue = ?  THEN cValue = 'nein'.
    IF cValue = '' THEN cValue = 'nein'.
    IF cValue BEGINS 'n' THEN fABC   = FALSE.
    ELSE                      fABC   = TRUE.
    IF fABC   = TRUE THEN cValue = 'ja'.
    ELSE                  cValue = 'nein'.
    PUT-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'ABCGrp'
        VALUE   cValue.

    cValue = ''.
    GET-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'BierGrp'
        VALUE   cValue.
    IF cValue = ?  THEN cValue = 'nein'.
    IF cValue = '' THEN cValue = 'nein'.
    IF cValue BEGINS 'n' THEN fBier = FALSE.
    ELSE                      fBier = TRUE.
    IF fBier  = TRUE THEN cValue = 'ja'.
    ELSE                  cValue = 'nein'.
    PUT-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'BierGrp'
        VALUE   cValue.

    cValue = ''.
    GET-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'WirteSo'
        VALUE   cValue.
    IF cValue = ?  THEN cValue = 'nein'.
    IF cValue = '' THEN cValue = 'nein'.
    IF cValue BEGINS 'n' THEN fWiSo = FALSE.
    ELSE                      fWiSo = TRUE.
    IF fWiSo  = TRUE THEN cValue = 'ja'.
    ELSE                  cValue = 'nein'.
    PUT-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'WirteSo'
        VALUE   cValue.

    cValue = ''.
    GET-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'DebBemTxt'
        VALUE   cValue.
    IF cValue = ?  THEN cValue = 'nein'.
    IF cValue = '' THEN cValue = 'nein'.
    IF cValue BEGINS 'n' THEN fBemTxt = FALSE.
    ELSE                      fBemTxt = TRUE.
    IF fBemTxt = TRUE THEN cValue = 'ja'.
    ELSE                   cValue = 'nein'.
    PUT-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'DebBemTxt'
        VALUE   cValue.

    cValue = ''.
    GET-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'DebFakTxt'
        VALUE   cValue.
    IF cValue = ?  THEN cValue = 'nein'.
    IF cValue = '' THEN cValue = 'nein'.
    IF cValue BEGINS 'n' THEN fFakTxt = FALSE.
    ELSE                      fFakTxt = TRUE.
    IF fFakTxt = TRUE THEN cValue = 'ja'.
    ELSE                   cValue = 'nein'.
    PUT-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'DebFakTxt'
        VALUE   cValue.

    cValue = ''.
    GET-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'DebAbhTxt'
        VALUE   cValue.
    IF cValue = ?  THEN cValue = 'nein'.
    IF cValue = '' THEN cValue = 'nein'.
    IF cValue BEGINS 'n' THEN fAbhTxt = FALSE.
    ELSE                      fAbhTxt = TRUE.
    IF fAbhTxt = TRUE THEN cValue = 'ja'.
    ELSE                   cValue = 'nein'.
    PUT-KEY-VALUE SECTION 'FelderAlleMandanten'
        KEY     'DebAbhTxt'
        VALUE   cValue.

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

    DEFINE INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEFINE VARIABLE FeldName   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FeldInhalt AS CHARACTER 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:
            WHEN 'Abh_Rab_Wert' THEN 
                DO:
                    IF INTEGER(rowObject.Abh_Rab_Art:SCREEN-VALUE) = 0 THEN RETURN 'TAB'.
                END.
            WHEN 'Auf_Rab_Wert' THEN 
                DO:
                    IF INTEGER(rowObject.Auf_Rab_Art:SCREEN-VALUE) = 0 THEN RETURN 'TAB'.
                END.
            WHEN 'Zei_Rab_Wert' THEN 
                DO:
                    IF INTEGER(rowObject.Zei_Rab_Art:SCREEN-VALUE) = 0 THEN RETURN 'TAB'.
                END.
            WHEN 'Zuschl_Wert' THEN 
                DO:
                    IF INTEGER(rowObject.Zuschl_Art:SCREEN-VALUE)  = 0 THEN RETURN 'TAB'.
                END.
        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:       
                ------------------------------------------------------------------------------*/

    DEFINE INPUT-OUTPUT PARAMETER pcColValues  AS CHARACTER          NO-UNDO.

    DEFINE VARIABLE FwFelder AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FwFeld   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FwValue  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ix       AS INTEGER   NO-UNDO.    
    DEFINE VARIABLE i1       AS INTEGER   NO-UNDO.    

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

    IF pcColValues = ?
        THEN pcColValues = FILL(CHR(01), NUM-ENTRIES(oldColList, ',')).
    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 'FwDebitor' KEY FwFeld VALUE FwValue.
        ENTRY(i1, pcColValues, CHR(1)) = FwValue NO-ERROR.
    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 initializeObject vTableWin 
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 LEAVE_FELD_TEST vTableWin 
PROCEDURE LEAVE_FELD_TEST :
    /*------------------------------------------------------------------------------
                  Purpose:     
                  Parameters:  <none>
                  Notes:       
                ------------------------------------------------------------------------------*/

    DEFINE INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEFINE VARIABLE FeldName   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FeldInhalt AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ix         AS INTEGER   NO-UNDO.
    DEFINE VARIABLE LKY        AS INTEGER   NO-UNDO.

    IF FMut = FALSE THEN RETURN ''.

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

    DO WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
            WHEN 'KnrFak' THEN 
                DO:
                    IF INTEGER(FeldInhalt) = 0 THEN 
                    DO:
                        rowObject.Fak_Adresse:SCREEN-VALUE = ''.
                        RETURN ''.
                    END.
                    FIND Adresse USE-INDEX Adresse-k1
                        WHERE Adresse.Firma = ADFirma
                        AND   Adresse.Knr   = INTEGER(FeldInhalt) NO-LOCK NO-ERROR.
                    IF NOT AVAILABLE Adresse THEN 
                    DO:
                        RUN FEHLER ( INPUT 1015 ).
                        RETURN 'ERROR'.
                    END.
                    FIND Debst USE-INDEX Debst-k1
                        WHERE Debst.Firma = Firma
                        AND   Debst.Knr   = INTEGER(FeldInhalt) NO-LOCK NO-ERROR.
                    IF NOT AVAILABLE Debst THEN 
                    DO:
                        RUN FEHLER ( INPUT 1016 ).
                        RETURN 'ERROR'.
                    END.
                    IF Debst.KnrFak <> 0 THEN 
                    DO:
                        RUN FEHLER ( INPUT 1017 ).
                        RETURN 'ERROR'.
                    END.
                    rowObject.Fak_Adresse:SCREEN-VALUE = Adresse.Anzeig_Br.
                    RETURN ''.
                END.
            WHEN 'KnrLie' THEN 
                DO:
                    IF INTEGER(FeldInhalt) = 0 THEN 
                    DO:
                        rowObject.Lief_Adresse:SCREEN-VALUE = ''.
                        RETURN ''.
                    END.
                    FIND Adresse USE-INDEX Adresse-k1
                        WHERE Adresse.Firma = ADFirma
                        AND   Adresse.Knr   = INTEGER(FeldInhalt) NO-LOCK NO-ERROR.
                    IF NOT AVAILABLE Adresse THEN 
                    DO:
                        RUN FEHLER ( INPUT 1015 ).
                        RETURN 'ERROR'.
                    END.
                    FIND Debst USE-INDEX Debst-k1
                        WHERE Debst.Firma = Firma
                        AND   Debst.Knr   = INTEGER(FeldInhalt) NO-LOCK NO-ERROR.
                    IF NOT AVAILABLE Debst THEN 
                    DO:
                        RUN FEHLER ( INPUT 1016 ).
                        RETURN 'ERROR'.
                    END.
                    IF Debst.KnrLie <> 0 THEN 
                    DO:
                        RUN FEHLER ( INPUT 1018 ).
                        RETURN 'ERROR'.
                    END.
                    rowObject.Lief_Adresse:SCREEN-VALUE = Adresse.Anzeig_Br.
                    RETURN ''.
                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 OPEN_DATEI vTableWin 
PROCEDURE OPEN_DATEI :
    /*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */     
    /*  Parameters:  <none>                                                         */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    DEFINE VARIABLE cPfad   AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE cDatei  AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE cExt    AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE i1      AS INTEGER          NO-UNDO.
    DEFINE VARIABLE Knr     AS INTEGER          NO-UNDO.
    DEFINE VARIABLE fok     AS LOG              NO-UNDO.
    DEFINE VARIABLE iStatus AS INTEGER          NO-UNDO.
    DEFINE VARIABLE hDok    AS COMPONENT-HANDLE NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        fok   = TRUE.
        cPfad = DYNAMIC-FUNCTION ('getFehlwert':U , Firma, 'KUNDENDOKUMENTE') NO-ERROR.
        IF cPfad = ? THEN DO:
            GET-KEY-VALUE SECTION 'Dokumente' KEY 'Kunden' VALUE cPfad.
            IF cPfad = ? THEN cPfad = ''.
            fok = FALSE.
        END.
        i1 = LENGTH(cPfad).
        IF i1 > 0 THEN 
        DO:
            IF  SUBSTRING(cPfad,i1,01) <> '\'    AND
                SUBSTRING(cPfad,i1,01) <> '/'    THEN cPfad = cPfad + '\'.
        END.
        Knr   = INTEGER(rowObject.Knr:SCREEN-VALUE).
        cPfad = cPfad + STRING(Knr,'999999').
        
        FILE-INFO:FILE-NAME = cPfad.
        cDatei = FILE-INFO:FULL-PATHNAME.
        IF NOT fok THEN DYNAMIC-FUNCTION ('setFehlwert':U, Firma, 'KUNDENDOKUMENTE', 'CHAR', cPfad ).
        IF FILE-INFO:FILE-TYPE = ? THEN OS-CREATE-DIR VALUE(cPfad).
    
        cPfad  = FILE-INFO:FULL-PATHNAME.
        fok    = FALSE.
        cDatei = ''.
        SYSTEM-DIALOG GET-FILE cDatei
            FILTERS 'alle Dateien *.*' '*.*',
            'Adobe Acrobat *.pdf' '*.pdf',
            'Worddokumente *.doc *.docx' '*.doc *.docx',
            'Exceldokumente *.xls *.xlsx' '*.xls *.xlsx'
            INITIAL-FILTER 1
            INITIAL-DIR cPfad
            TITLE   'KundenDokumente'
            UPDATE fok.
        IF NOT fok THEN RETURN NO-APPLY.
        FILE-INFO:FILE-NAME = cDatei.
        IF FILE-INFO:FILE-TYPE = ?            THEN RETURN NO-APPLY.
        IF NOT FILE-INFO:FILE-TYPE BEGINS 'F' THEN RETURN NO-APPLY.
        cPfad = FILE-INFO:FULL-PATHNAME.
        cPfad = REPLACE(cPfad, '/', '\').
        i1    = R-INDEX(cPfad, '\').
        IF i1 > 0 THEN cDatei = SUBSTRING(cPfad,i1 + 1).
        ELSE           cDatei = cPfad.
        i1 = NUM-ENTRIES(cDatei, '.').
        IF i1 < 2 THEN RETURN.
        cExt = ENTRY(i1, cDatei, '.').

        CASE cExt:
            WHEN 'doc'  OR
            WHEN 'docx' THEN 
                DO:
                    hDok = DYNAMIC-FUNCTION('CREATEWORD':U) NO-ERROR.
                    IF VALID-HANDLE(hDok) THEN 
                        RUN OPENWORD (INPUT  hDok ,
                            INPUT  cPfad,
                            INPUT  ''   ,
                            OUTPUT fok ) NO-ERROR.
                END.
            WHEN 'xls'  OR
            WHEN 'xlsx' THEN 
                DO:
                    hDok = DYNAMIC-FUNCTION('CREATEEXCEL':U) NO-ERROR.
                    IF VALID-HANDLE(hDok) THEN
                        RUN OPENEXCEL (INPUT hDok ,
                            INPUT cPfad,
                            INPUT ''   ,
                            OUTPUT fok ) NO-ERROR.
                END.
            WHEN 'pdf' THEN 
                DO:
                    RUN ShellExecuteA(INPUT 0       ,
                        INPUT 'open'  ,
                        INPUT cPfad   ,
                        INPUT ''      ,
                        INPUT ''      ,
                        INPUT 0       ,
                        OUTPUT iStatus).
                END.
        END CASE.

        RELEASE OBJECT hDok NO-ERROR.
    END.

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEFINE VARIABLE FeldName AS CHARACTER 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.
    FeldName = 'rowObject.' + FeldName.
    IF LOOKUP(FeldName, '{&ENABLED-FIELDS} ', ' ') > 0 THEN 
    DO:
        RETURN 'TAB'.
    END.
    FeldName = ipHandle:NAME.
    IF LOOKUP(FeldName, '{&ENABLED-OBJECTS}', ' ') > 0 THEN 
    DO:
        RETURN 'TAB'.
    END.
    FeldName = 'rowObject.' + FeldName.
    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 SCHREIBENFEHLWERTE vTableWin 
PROCEDURE SCHREIBENFEHLWERTE :
    /*------------------------------------------------------------------------------
                  Purpose:     
                  Parameters:  <none>
                  Notes:       
                ------------------------------------------------------------------------------*/

    DEFINE VARIABLE sSec AS CHARACTER INIT 'FwDebitor' NO-UNDO.
    DEFINE VARIABLE xx   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE xok  AS LOG       NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        PUT-KEY-VALUE SECTION sSec KEY 'Vertr'       VALUE CB_Vertreter:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Ku_Grp'      VALUE CB_Kundengruppe:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Preis_Grp'   VALUE CB_Preisgruppe:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Bonus_Grp'   VALUE CB_Bonusgruppe:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Rab_Grp'     VALUE CB_Rabattgruppe:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'ABC_Grp'     VALUE CB_ABCGruppe:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Fakart'      VALUE CB_Fakturaart:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Bier_Cd'     VALUE CB_Biergruppe:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Avis'        VALUE CB_Avisierung:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Lief_Bed'    VALUE CB_Lieferbed:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'MWST'        VALUE CB_Mehrwertsteuer:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Wirt_So'     VALUE CB_WirteSo:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Ablad_Vor'   VALUE CB_Abladevor:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Tour_Nr1'    VALUE CB_Tourenplan:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Kond'        VALUE CB_Kondition:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Mahn'        VALUE CB_Mahncode:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'FRW'         VALUE CB_FRW:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Auf_Rab_Art' VALUE CB_Au_Art:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Zei_Rab_Art' VALUE CB_Ze_Art:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Abh_Rab_Art' VALUE CB_Ah_Art:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Zuschl_Art'  VALUE CB_Zu_Art:SCREEN-VALUE.
        PUT-KEY-VALUE SECTION sSec KEY 'Konto'       VALUE rowObject.Konto:SCREEN-VALUE.

        xx = ENTRY(1, rowObject.Geb_Rg:FORMAT, '/').
        IF rowObject.Geb_Rg:SCREEN-VALUE = xx THEN xok = TRUE.
        ELSE                                       xok = FALSE.
        PUT-KEY-VALUE SECTION sSec KEY 'Geb_Rg' VALUE STRING(xok).

        xx = ENTRY(1, rowObject.Passant:FORMAT, '/').
        IF rowObject.Passant:SCREEN-VALUE = xx THEN xok = TRUE.
        ELSE                                        xok = FALSE.
        PUT-KEY-VALUE SECTION sSec KEY 'Passant' VALUE STRING(xok).
    END.

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

    DEFINE VARIABLE Knr     AS INTEGER   NO-UNDO.
    DEFINE VARIABLE xNeu    AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE iHH     AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iMM     AS INTEGER   NO-UNDO.
    DEFINE VAR      iBinary AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cBinary AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ii      AS INTEGER   NO-UNDO. 

    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&List-6}.
        
        xNeu = FNeu.
        IF FNeu THEN 
        DO:
            rowObject.Firma:SCREEN-VALUE = Firma.
        END.

        rowObject.Vertr:SCREEN-VALUE           = CB_Vertreter:SCREEN-VALUE.
        rowObject.Ku_Grp:SCREEN-VALUE          = CB_Kundengruppe:SCREEN-VALUE.
        rowObject.Preis_Grp:SCREEN-VALUE       = CB_Preisgruppe:SCREEN-VALUE.
        rowObject.Bonus_Grp:SCREEN-VALUE       = CB_Bonusgruppe:SCREEN-VALUE.
        rowObject.Rab_Grp:SCREEN-VALUE         = CB_Rabattgruppe:SCREEN-VALUE.
        rowObject.ABC_Grp:SCREEN-VALUE         = CB_ABCGruppe:SCREEN-VALUE.
        rowObject.Fak_Art:SCREEN-VALUE         = CB_Fakturaart:SCREEN-VALUE.
        rowObject.Bier_Cd:SCREEN-VALUE         = CB_Biergruppe:SCREEN-VALUE.
        rowObject.AVIS:SCREEN-VALUE            = CB_Avisierung:SCREEN-VALUE.
        rowObject.Lief_Bed:SCREEN-VALUE        = CB_Lieferbed:SCREEN-VALUE.
        rowObject.MWST:SCREEN-VALUE            = CB_Mehrwertsteuer:SCREEN-VALUE.
        rowObject.Verband_Grp:SCREEN-VALUE     = CB_Verband:SCREEN-VALUE.
        rowObject.SubVerband_Grp:SCREEN-VALUE  = CB_SubVerband:SCREEN-VALUE.
        rowObject.Wirt_So:SCREEN-VALUE         = CB_WirteSo:SCREEN-VALUE.
        rowObject.Ablad_Vor:SCREEN-VALUE       = CB_Abladevor:SCREEN-VALUE.
        rowObject.Tour_Nr1:SCREEN-VALUE        = CB_Tourenplan:SCREEN-VALUE.
        rowObject.Kond:SCREEN-VALUE            = CB_Kondition:SCREEN-VALUE.
        rowObject.FRW:SCREEN-VALUE             = CB_FRW:SCREEN-VALUE.
        rowObject.BESR_Art:SCREEN-VALUE        = CB_BESR:SCREEN-VALUE.

        rowObject.Mahn:SCREEN-VALUE            = CB_Mahncode:SCREEN-VALUE.
        rowObject.Abh_Rab_Art:SCREEN-VALUE     = CB_Ah_Art:SCREEN-VALUE.
        rowObject.Auf_Rab_Art:SCREEN-VALUE     = CB_Au_Art:SCREEN-VALUE.
        rowObject.Zei_Rab_Art:SCREEN-VALUE     = CB_Ze_Art:SCREEN-VALUE.
        rowObject.Zuschl_Art:SCREEN-VALUE      = CB_Zu_Art:SCREEN-VALUE.
        
        iHH = INTEGER(SUBSTRING(F_BestBis_1,01,02)).
        iMM = INTEGER(SUBSTRING(F_BestBis_1,04,02)).
        rowObject.BestBis_1:SCREEN-VALUE = STRING((iHH * 3600) + (iMM * 60)).
        iHH = INTEGER(SUBSTRING(F_BestBis_2,01,02)).
        iMM = INTEGER(SUBSTRING(F_BestBis_2,04,02)).
        rowObject.BestBis_2:SCREEN-VALUE = STRING((iHH * 3600) + (iMM * 60)).

        cBinary = '0000000'.
        DO ii = 2 TO 7:
            CASE ii:
                WHEN 2 THEN 
                    IF T_Montag     THEN SUBSTRING(cBinary,ii) = '1'. 
                WHEN 3 THEN 
                    IF T_Dienstag   THEN SUBSTRING(cBinary,ii) = '1'. 
                WHEN 4 THEN 
                    IF T_Mittwoch   THEN SUBSTRING(cBinary,ii) = '1'. 
                WHEN 5 THEN 
                    IF T_Donnerstag THEN SUBSTRING(cBinary,ii) = '1'. 
                WHEN 6 THEN 
                    IF T_Freitag    THEN SUBSTRING(cBinary,ii) = '1'. 
                WHEN 7 THEN 
                    IF T_Samstag    THEN SUBSTRING(cBinary,ii) = '1'. 
            END.
        END.
        iBinary = NumberSystems:binary2Integer(cBinary).
        rowObject.Liefertag:SCREEN-VALUE = STRING(iBinary).
        
        Knr = INTEGER(rowObject.Knr:SCREEN-VALUE).
    END.

    RUN SUPER.

    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        IF XNeu THEN LEAVE.
        IF NOT fVertr   AND
            NOT fABC     AND
            NOT fBier    AND
            NOT fWiSo    AND
            NOT fBemTxt  AND
            NOT fFakTxt  AND
            NOT fAbhTxt  THEN LEAVE.

        FOR EACH Debst USE-INDEX Debst-k2
            WHERE Debst.Knr    = Knr
            AND   Debst.Firma <> Firma:
            IF fVertr  THEN Debst.Vertr    = INTEGER(CB_Vertreter :SCREEN-VALUE).
            IF fABC    THEN Debst.ABC_Grp  = INTEGER(CB_ABCGruppe :SCREEN-VALUE).
            IF fBier   THEN Debst.Bier_Cd  = INTEGER(CB_Biergruppe:SCREEN-VALUE).
            IF fWiSo   THEN Debst.Wirt_So  = INTEGER(CB_WirteSo   :SCREEN-VALUE).
            IF fBemTxt THEN Debst.Bemerk   = rowObject.Bemerk     :SCREEN-VALUE.
            IF fFakTxt THEN Debst.Auf_Text = rowObject.Auf_Text   :SCREEN-VALUE.
            IF fAbhTxt THEN Debst.Bar_Text = rowObject.Bar_Text   :SCREEN-VALUE.
        END.
        LEAVE.
    END.

    IF NOT xNeu THEN RETURN.

    REPEAT TRANSACTION:
        CREATE  DebUms.
        ASSIGN  
            DebUms.Firma   = Firma
            DebUms.Jahr    = YEAR(TODAY)
            DebUms.Knr     = Knr
            DebUms.Ums_Grp = 999.
        RELEASE DebUms.
        LEAVE.
    END.

END PROCEDURE.

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