GeMIS_WEB/GUI/v8/b-kunbest.w

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS B-table-Win 
/*------------------------------------------------------------------------

  File:  

  Description: from BROWSER.W - Basic SmartBrowser Object Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

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

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

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

&Scoped-define ERSTES-FELD  Pos
&Scoped-define ZWEITES-FELD Pos
&Scoped-define LETZTES-FELD Best
&Scoped-define INPUT-FELDER KunBest.Pos,KunBest.Artnr,KunBest.Inhalt,KunBest.Jahr,~
                            KunBest.Soll,KunBest.Best
&Scoped-define DATEI-NAME   KunBest

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

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

/* --------------------------------------------------------------------------- */
DEF VAR     VUpdate     AS LOG      INIT FALSE          NO-UNDO.
DEF VAR     VSpeichern  AS LOG      INIT FALSE          NO-UNDO.
DEF VAR     VNeu        AS LOG      INIT FALSE          NO-UNDO.
DEF VAR     FErfassen   AS LOG      INIT FALSE          NO-UNDO.
DEF VAR     PHandle     AS HANDLE                       NO-UNDO.
DEF VAR     XHandle     AS HANDLE                       NO-UNDO.
DEF VAR     LHandle     AS HANDLE                       NO-UNDO.
DEF VAR     ch          AS CHAR                         NO-UNDO.
DEF VAR     VText       AS CHAR     FORMAT "x(30)"      NO-UNDO.
DEF VAR     QOpen       AS LOG      INIT FALSE          NO-UNDO.
DEF VAR     FQOpen      AS LOG      INIT FALSE          NO-UNDO.
DEF VAR     Vorhanden   AS LOG                          NO-UNDO.
DEF VAR     VRecid      AS RECID                        NO-UNDO.
DEF VAR     VROWID      AS ROWID                        NO-UNDO.
DEF VAR     Feldname    AS CHAR                         NO-UNDO.
DEF VAR     FeldInhalt  AS CHAR                         NO-UNDO.
DEF VAR     BStatus     AS INT      INIT 0              NO-UNDO.

DEF BUFFER  B{&DATEI-NAME}  FOR {&DATEI-NAME}.
/* --------------------------------------------------------------------------- */

DEF VAR     VBez        AS CHAR FORMAT "x(20)"          NO-UNDO.
DEF VAR     VInhalt     AS INT  FORMAT "zzz9"           NO-UNDO.
DEF VAR     VAlk_Gehalt AS DEC  FORMAT "z9.99"          NO-UNDO.
DEF VAR     VKGeb_Cd    AS CHAR FORMAT "x(08)"          NO-UNDO.
DEF VAR     VVGeb_Cd    AS CHAR FORMAT "x(08)"          NO-UNDO.
DEF VAR     VSoll       AS INT  FORMAT "zzz9"           NO-UNDO.
DEF VAR     VBest       AS INT  FORMAT "zzz9"           NO-UNDO.
DEF VAR     VKopie      AS LOG                          NO-UNDO.
DEF VAR     FVC         AS LOG  INIT TRUE               NO-UNDO.

DEF VAR     VDatum      AS DATE FORMAT "99.99.9999"     NO-UNDO.
DEF VAR     BDatum      AS DATE FORMAT "99.99.9999"     NO-UNDO.

DEF VAR     VKnr        AS INT                          NO-UNDO.
DEF VAR     VPreis      AS DEC  DECIMALS 4              NO-UNDO.
DEF VAR     VBru_Betr   AS DEC  DECIMALS 4              NO-UNDO.
DEF VAR     VNet_Betr   AS DEC  DECIMALS 4              NO-UNDO.
DEF VAR     VRab_Betr   AS DEC  DECIMALS 4              NO-UNDO.
DEF VAR     VRab_Proz   AS DEC  DECIMALS 4              NO-UNDO.
DEF VAR     VRab_Wert   AS DEC  DECIMALS 4              NO-UNDO.
DEF VAR     VRab_Art    AS INT                          NO-UNDO.
DEF VAR     VPGrp       AS INT                          NO-UNDO.
DEF VAR     VAGrp       AS INT                          NO-UNDO.
DEF VAR     PosMenge    AS INT                          NO-UNDO.
DEF VAR     VInkl       AS LOG                          NO-UNDO.

DEF BUFFER BWust        FOR Wust.

DEF TEMP-TABLE tKunBest     NO-UNDO LIKE  KunBest
    FIELD cSort     AS CHAR
    
    INDEX tKunBest-tk Artnr Inhalt Jahr
    INDEX tKunBest-k1 Firma Knr    Pos
    INDEX tKunBest-k2 Firma cSort.
    
DEF TEMP-TABLE tAufze       LIKE Aufze
    FIELD Knr       AS INT
    FIELD Datum     AS DATE.
    
DEF VAR htAufze         AS HANDLE                       NO-UNDO.
htAufze = TEMP-TABLE tAufze:DEFAULT-BUFFER-HANDLE.

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

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

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target

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

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

/* Definitions for BROWSE br_table                                      */
&Scoped-define FIELDS-IN-QUERY-br_table KunBest.Pos KunBest.Artnr ~
KunBest.Inhalt KunBest.Jahr VBez @ VBez VInhalt @ VInhalt ~
VAlk_Gehalt @ VAlk_Gehalt VKGeb_Cd @ VKGeb_Cd VVGeb_Cd @ VVGeb_Cd ~
KunBest.Soll KunBest.Best 
&Scoped-define ENABLED-FIELDS-IN-QUERY-br_table KunBest.Pos KunBest.Artnr ~
KunBest.Inhalt KunBest.Jahr KunBest.Soll 
&Scoped-define ENABLED-TABLES-IN-QUERY-br_table KunBest
&Scoped-define FIRST-ENABLED-TABLE-IN-QUERY-br_table KunBest
&Scoped-define QUERY-STRING-br_table FOR EACH KunBest ~
      WHERE KunBest.Firma = GVFirma ~
 AND KunBest.Knr = LVKnr NO-LOCK ~
    BY KunBest.Pos
&Scoped-define OPEN-QUERY-br_table OPEN QUERY br_table FOR EACH KunBest ~
      WHERE KunBest.Firma = GVFirma ~
 AND KunBest.Knr = LVKnr NO-LOCK ~
    BY KunBest.Pos.
&Scoped-define TABLES-IN-QUERY-br_table KunBest
&Scoped-define FIRST-TABLE-IN-QUERY-br_table KunBest


/* Definitions for FRAME F-Main                                         */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-9 br_table Btn_Erfassen Btn_Speichern ~
Btn_Loeschen Btn_Nummer Btn_Excel Btn_Neu 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 Btn_Erfassen Btn_Speichern Btn_Loeschen Btn_Nummer ~
Btn_Excel 

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Foreign Keys" B-table-Win _INLINE
/* Actions: ? adm/support/keyedit.w ? ? ? */
/* STRUCTURED-DATA
<KEY-OBJECT>
&BROWSE-NAME
</KEY-OBJECT>
<FOREIGN-KEYS>
</FOREIGN-KEYS>
<EXECUTING-CODE>
**************************
* Set attributes related to FOREIGN KEYS
*/
RUN set-attribute-list (
    'Keys-Accepted = "",
     Keys-Supplied = ""':U).
/**************************
</EXECUTING-CODE> */   

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Advanced Query Options" B-table-Win _INLINE
/* Actions: ? adm/support/advqedit.w ? ? ? */
/* STRUCTURED-DATA
<KEY-OBJECT>
&BROWSE-NAME
</KEY-OBJECT>
<SORTBY-OPTIONS>
</SORTBY-OPTIONS> 
<SORTBY-RUN-CODE>
************************
* Set attributes related to SORTBY-OPTIONS */
RUN set-attribute-list (
    'SortBy-Options = ""':U).
/************************
</SORTBY-RUN-CODE> 
<FILTER-ATTRIBUTES>
</FILTER-ATTRIBUTES> */   

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


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


/* Menu Definitions                                                     */
DEFINE MENU POPUP-MENU-Btn_Excel 
       MENU-ITEM m_Sortierung_nach_Position LABEL "Sortierung nach Position"
       MENU-ITEM m_Sortierung_nach_Artikelnumm LABEL "Sortierung nach Artikelnummer"
       MENU-ITEM m_Sortierung_nach_Bezeichnung LABEL "Sortierung nach Bezeichnung".


/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Erfassen 
     LABEL "&Erfassen" 
     SIZE 19.8 BY 1.

DEFINE BUTTON Btn_Excel 
     LABEL "Excel" 
     SIZE 9.6 BY 1.

DEFINE BUTTON Btn_Loeschen 
     LABEL "&Löschen" 
     SIZE 19.8 BY 1.

DEFINE BUTTON Btn_Neu 
     LABEL "&Neu" 
     SIZE 9.6 BY 1.

DEFINE BUTTON Btn_Nummer 
     LABEL "Neue Nummer" 
     SIZE 19.8 BY 1.

DEFINE BUTTON Btn_Speichern 
     LABEL "&Speichern" 
     SIZE 19.8 BY 1.

DEFINE RECTANGLE RECT-9
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 132 BY 6.43.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY br_table FOR 
      KunBest SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE br_table
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS br_table B-table-Win _STRUCTURED
  QUERY br_table NO-LOCK DISPLAY
      KunBest.Pos FORMAT "zzz9":U
      KunBest.Artnr FORMAT "999999":U
      KunBest.Inhalt FORMAT "9999":U
      KunBest.Jahr FORMAT "9999":U
      VBez @ VBez COLUMN-LABEL "Bezeichnung" FORMAT "x(20)":U
      VInhalt @ VInhalt COLUMN-LABEL "Inhalt" FORMAT "zzz9":U
      VAlk_Gehalt @ VAlk_Gehalt COLUMN-LABEL "Vol%" FORMAT "z9.99":U
      VKGeb_Cd @ VKGeb_Cd COLUMN-LABEL "Klein-G" FORMAT "x(08)":U
            COLUMN-FONT 12
      VVGeb_Cd @ VVGeb_Cd COLUMN-LABEL "Verk-G" FORMAT "x(08)":U
      KunBest.Soll FORMAT "zzz,zz9":U
      KunBest.Best COLUMN-LABEL "Bestellt" FORMAT "zzz,zz9":U
  ENABLE
      KunBest.Pos
      KunBest.Artnr
      KunBest.Inhalt
      KunBest.Jahr
      KunBest.Soll
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ASSIGN NO-ROW-MARKERS SEPARATORS SIZE 98 BY 5.95
         BGCOLOR 15 .


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

DEFINE FRAME F-Main
     br_table AT ROW 1.48 COL 3
     Btn_Erfassen AT ROW 1.62 COL 104
     Btn_Speichern AT ROW 2.62 COL 104
     Btn_Loeschen AT ROW 3.62 COL 104
     Btn_Nummer AT ROW 4.62 COL 104
     Btn_Excel AT ROW 6.33 COL 104
     Btn_Neu AT ROW 6.33 COL 114
     RECT-9 AT ROW 1.24 COL 2
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1 SCROLLABLE 
         DEFAULT-BUTTON Btn_Speichern.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartBrowser
   Allow: Basic,Browse
   Frames: 1
   Add Fields to: EXTERNAL-TABLES
   Other Settings: PERSISTENT-ONLY COMPILE
 */

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

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW B-table-Win ASSIGN
         HEIGHT             = 7.29
         WIDTH              = 137.2.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB B-table-Win 
/* ************************* Included-Libraries *********************** */

{src/adm/method/browser.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW B-table-Win
  NOT-VISIBLE,,RUN-PERSISTENT                                           */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE FRAME-NAME Size-to-Fit                                   */
/* BROWSE-TAB br_table RECT-9 F-Main */
ASSIGN 
       FRAME F-Main:SCROLLABLE       = FALSE
       FRAME F-Main:HIDDEN           = TRUE
       FRAME F-Main:RESIZABLE        = TRUE.

ASSIGN 
       br_table:NUM-LOCKED-COLUMNS IN FRAME F-Main     = 5.

/* SETTINGS FOR BUTTON Btn_Erfassen IN FRAME F-Main
   6                                                                    */
ASSIGN 
       Btn_Erfassen:PRIVATE-DATA IN FRAME F-Main     = 
                "Abbrechen".

/* SETTINGS FOR BUTTON Btn_Excel IN FRAME F-Main
   6                                                                    */
ASSIGN 
       Btn_Excel:POPUP-MENU IN FRAME F-Main       = MENU POPUP-MENU-Btn_Excel:HANDLE.

/* SETTINGS FOR BUTTON Btn_Loeschen IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR BUTTON Btn_Nummer IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR BUTTON Btn_Speichern IN FRAME F-Main
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE br_table
/* Query rebuild information for BROWSE br_table
     _TblList          = "AnaDat.KunBest"
     _Options          = "NO-LOCK"
     _OrdList          = "AnaDat.KunBest.Pos|yes"
     _Where[1]         = "KunBest.Firma = GVFirma
 AND KunBest.Knr = LVKnr"
     _FldNameList[1]   > AnaDat.KunBest.Pos
"KunBest.Pos" ? ? "integer" ? ? ? ? ? ? yes ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[2]   > AnaDat.KunBest.Artnr
"KunBest.Artnr" ? ? "integer" ? ? ? ? ? ? yes ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[3]   > AnaDat.KunBest.Inhalt
"KunBest.Inhalt" ? ? "integer" ? ? ? ? ? ? yes ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[4]   > AnaDat.KunBest.Jahr
"KunBest.Jahr" ? ? "integer" ? ? ? ? ? ? yes ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[5]   > "_<CALC>"
"VBez @ VBez" "Bezeichnung" "x(20)" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[6]   > "_<CALC>"
"VInhalt @ VInhalt" "Inhalt" "zzz9" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[7]   > "_<CALC>"
"VAlk_Gehalt @ VAlk_Gehalt" "Vol%" "z9.99" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[8]   > "_<CALC>"
"VKGeb_Cd @ VKGeb_Cd" "Klein-G" "x(08)" ? ? ? 12 ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[9]   > "_<CALC>"
"VVGeb_Cd @ VVGeb_Cd" "Verk-G" "x(08)" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[10]   > AnaDat.KunBest.Soll
"KunBest.Soll" ? ? "integer" ? ? ? ? ? ? yes ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[11]   > AnaDat.KunBest.Best
"KunBest.Best" "Bestellt" ? "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _Query            is NOT OPENED
*/  /* BROWSE br_table */
&ANALYZE-RESUME

&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 BROWSE-NAME br_table
&Scoped-define SELF-NAME br_table
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
ON ROW-DISPLAY OF br_table IN FRAME F-Main
DO:
    RUN ANZEIGE.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
ON ROW-ENTRY OF br_table IN FRAME F-Main
DO:
    {src/adm/template/brsentry.i}
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
ON ROW-LEAVE OF br_table IN FRAME F-Main
DO:
    LKY     = LASTKEY.
    LHandle = LAST-EVENT:WIDGET-LEAVE.
    XHandle = LAST-EVENT:WIDGET-ENTER.
    
    DO WHILE VUpdate AND NOT FErfassen WITH FRAME {&FRAME-NAME}:
        IF KEYFUNCTION(LKY) = 'END-ERROR' THEN DO:
            VSpeichern = FALSE.
            RUN ERFASSEN.
            RETURN NO-APPLY.
        END.
        IF {&BROWSE-NAME}:CURRENT-ROW-MODIFIED = FALSE THEN DO:
            VSpeichern = FALSE.
            VUpdate    = FALSE.
            RUN ERFASSEN.
            RETURN NO-APPLY.
        END.
        IF LKY = KEYCODE('RETURN') THEN DO:
            RUN SPEICHERN.
            RETURN NO-APPLY.
        END.
        IF LKY = KEYCODE('TAB')             AND
           LHandle:NAME = '{&LETZTES-FELD}' THEN DO:
            RUN SPEICHERN.
            RETURN NO-APPLY.
        END.
        IF VALID-HANDLE(XHandle) THEN DO:
            DO WHILE XHandle:TYPE = 'BUTTON':
                IF XHandle:NAME = 'Btn_Erfassen'    THEN RETURN.
                IF XHandle:NAME = 'Btn_Speichern'   THEN RETURN.
                APPLY 'ENTRY' TO LHandle.
                RETURN NO-APPLY.
            END.
        END.
        RETURN NO-APPLY.
    END.
    
    FErfassen = FALSE.

    {src/adm/template/brsleave.i}
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win
ON VALUE-CHANGED OF br_table IN FRAME F-Main
DO:
    RUN ANZEIGE.
    {src/adm/template/brschnge.i}
END.

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


&Scoped-define SELF-NAME Btn_Erfassen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Erfassen B-table-Win
ON CHOOSE OF Btn_Erfassen IN FRAME F-Main /* Erfassen */
DO:
    IF VUpdate THEN VSpeichern = FALSE.
    VUpdate = FALSE.
    RUN ERFASSEN.
END.

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


&Scoped-define SELF-NAME Btn_Excel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Excel B-table-Win
ON CHOOSE OF Btn_Excel IN FRAME F-Main /* Excel */
DO:
    IF NOT AVAILABLE KunBest THEN RETURN NO-APPLY.

    DEF VAR Vorlage     AS CHAR                     NO-UNDO.
    DEF VAR Datei       AS CHAR                     NO-UNDO.
    DEF VAR cParam      AS CHAR                     NO-UNDO.
    DEF VAR Zelle       AS CHAR                     NO-UNDO.
    DEF VAR io          AS LOG                      NO-UNDO.
    DEF VAR excelAppl   AS COM-HANDLE               NO-UNDO.
    DEF VAR xSort       AS CHAR                     NO-UNDO.
    DEF VAR Kol         AS INT                      NO-UNDO.
    DEF VAR Bez         AS CHAR                     NO-UNDO.
    DEF VAR iPreisArt   AS INT                      NO-UNDO.

    FIND Steuer  USE-INDEX Steuer-k1
                 WHERE Steuer.Firma = GVFirma   NO-LOCK NO-ERROR.

    CASE Steuer.Fwc10:
        WHEN 'RAUCH' THEN DO:
            Vorlage = 'Bestell_Rauch.xls'.
            Datei   = 'Bestell_Rauch.xls'.
        END.
        OTHERWISE DO:
            Vorlage = 'Bestell.xls'.
            Datei   = 'Bestell.xls'.
        END.
    END CASE.

    cParam = Datei + CHR(01) + Vorlage.
    RUN CREATEDATEI ( INPUT cParam ).
    IF RETURN-VALUE BEGINS 'ERROR' THEN RETURN NO-APPLY.
    Datei = RETURN-VALUE.
    
    excelAppl = DYNAMIC-FUNCTION('CREATEEXCEL':U) NO-ERROR.
    IF NOT VALID-HANDLE(excelAppl) THEN DO:
        MESSAGE 'Die Applikation Excel konnte nicht gestartet werden ! '
                VIEW-AS ALERT-BOX ERROR.
        RETURN NO-APPLY.
    END.

    RUN OPENEXCEL ( INPUT excelAppl, INPUT Datei, INPUT '', OUTPUT io).
    IF NOT io THEN DO:
        DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT excelAppl ) NO-ERROR.
        RETURN NO-APPLY.
    END.

    VKnr = KunBest.Knr.
    FIND Adresse USE-INDEX Adresse-k1
                 WHERE Adresse.Firma = AdFirma
                 AND   Adresse.Knr   = VKnr     NO-LOCK NO-ERROR.
    FIND Debst   USE-INDEX Debst-k1
                 WHERE Debst.Firma = GVFirma
                 AND   Debst.Knr   = VKnr       NO-LOCK NO-ERROR.
    FIND BWust   USE-INDEX Wust-k1
                 WHERE BWust.CodeK = Debst.MWST
                 AND   BWust.CodeA = 99         NO-LOCK NO-ERROR.
    VInkl = BWust.Incl.

    GET-KEY-VALUE SECTION 'FaxListe'
                  KEY     'Sortierung'
                  VALUE   xSort.
    IF xSort = ? THEN xSort = '1'.
    xSort = '1'.
    EMPTY TEMP-TABLE tKunBest.
    FOR EACH bKunBest NO-LOCK USE-INDEX KunBest-k1
            WHERE BKunBest.Firma = GVFirma
            AND   BKunBest.Knr   = Adresse.Knr
            AND   BKunBest.Artnr > 0,
        FIRST Artst OF BKunBest NO-LOCK :

        CREATE  tKunBest.
        BUFFER-COPY BKunBest TO tKunBest.
        CASE xSort:
            WHEN '1' THEN tKunBest.cSort = STRING(BKunBest.Pos   ,'999999').
            WHEN '2' THEN tKunBest.cSort = STRING(BKunBest.Artnr ,'999999')
                                         + STRING(BKunBest.Inhalt,'9999')
                                         + STRING(BKunBest.Jahr  ,'9999').
            OTHERWISE DO:
                tKunBest.cSort = Artst.Bez.
            END.
        END CASE.
    END.
    
    i1 = 0.
    DO ix = 4 TO 11:
        IF Adresse.Anschrift[ix] = '' THEN NEXT.
        i1 = i1 + 1.
        Zelle = 'B' + TRIM(STRING(i1 + 4,"zzz9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = Adresse.Anschrift[ix].
    END.
    IF Adresse.Tel-1 <> '' THEN DO:
        i1 = i1 + 1.
        Zelle = 'B' + TRIM(STRING(i1 + 4,"zzz9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = 'Tel'.
        Zelle = 'C' + TRIM(STRING(i1 + 4,"zzz9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = Adresse.Tel-1.
    END.
    IF Adresse.Tel-3 <> '' THEN DO:
        i1 = i1 + 1.
        Zelle = 'B' + TRIM(STRING(i1 + 4,"zzz9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = 'Fax'.
        Zelle = 'C' + TRIM(STRING(i1 + 4,"zzz9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = Adresse.Tel-3.
    END.
    
    Zelle = 'F5'.
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = Steuer.Firma1.
    Zelle = 'F6'.
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = Steuer.Strasse.
    Zelle = 'F7'.
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = Steuer.Ort.
    Zelle = 'G8'.
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = Steuer.Tel-1.
    Zelle = 'G9'.
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = Steuer.Fax-1.

    Zelle = 'A12'.
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = 'Kunden-Nr.: ' + TRIM(STRING(Adresse.Knr,'>>>>>>')).

    i1 = 17.
    FOR EACH tKunBest USE-INDEX tKunBest-k2 NO-LOCK:
        EMPTY TEMP-TABLE tAufze.
        CREATE  tAufze.
    
        FIND Artst OF tKunBest NO-LOCK NO-ERROR.
        Bez = Artst.Bez.
        FIND FIRST tAufze.
        ASSIGN  tAufze.Artnr    = tKunBest.Artnr
                tAufze.Inhalt   = tKunBest.Inhalt
                tAufze.Jahr     = tKunBest.Jahr
                tAufze.MBest    = 1
                tAufze.MGeli    = 1
                tAufze.Netto    = Artst.Netto
                tAufze.Rab_Art  = Debst.Zei_Rab_Art
                tAufze.Rab_Wert = Debst.Zei_Rab_Wert
                tAufze.Rab_Betr = 0
                tAufze.Zus_Art  = Debst.Zuschl_Art
                tAufze.Zus_Wert = Debst.Zuschl_Wert
                tAufze.Zus_Betr = 0
                tAufze.Bru_Betr = 0
                tAufze.Net_Betr = 0
                tAufze.WuCd     = bWust.WuCd
                tAufze.WC       = Artst.Mwst
                tAufze.Knr      = Debst.Knr
                tAufze.Firma    = KunBest.Firma
                tAufze.KGeb_Me  = 1
                tAufze.VGeb_Me  = 0
                tAufze.GGeb_Me  = 0
                tAufze.Netto    = Artst.Netto
                tAufze.Datum    = TODAY.

        iPreisArt = DYNAMIC-FUNCTION('getPreisAufze':U, INPUT-OUTPUT htAufze ).
        FIND FIRST tAufze.
        
        FIND KGebinde NO-LOCK USE-INDEX KGebinde-k1
                WHERE KGebinde.Firma  = GVFirma
                AND   KGebinde.Geb_Cd = Artst.KGeb_Cd NO-ERROR.
        FIND VGebinde NO-LOCK USE-INDEX VGebinde-k1
                      WHERE VGebinde.Firma  = GVFirma
                      AND   VGebinde.Geb_Cd = Artst.VGeb_Cd NO-ERROR.

        Kol = 65.
        i1  = i1 + 1.
        Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = STRING(tKunBest.Pos,"zzz9").

        Kol   = Kol + 1.
        Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = STRING(tKunBest.Artnr,"999999").

        IF Steuer.Fwc10 = 'RAUCH' THEN DO:
            IF Artst.Ausverk = 2 THEN Bez = Bez + ' **'.
            IF Artst.Ausverk = 8 THEN Bez = Bez + ' *'.
        END.

        Kol   = Kol + 1.
        Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = Bez.

        Kol   = Kol + 1.
        Zelle = chr(Kol) + TRIM(STRING(i1,">>>9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = KGebinde.KBez.

        IF Steuer.Fwc10 <> 'RAUCH' THEN DO:
            Kol = Kol + 1.
            IF Artst.Jahr <> 0 THEN DO:
                Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
                excelAppl:Range(Zelle):Select.
                excelAppl:ActiveCell:FormulaR1C1 = STRING(Artst.Jahr,"zzz9").
            END.

            Kol = Kol + 1.
            IF Artst.Alk_Gehalt <> 0 THEN DO:
                Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
                excelAppl:Range(Zelle):Select.
                excelAppl:ActiveCell:FormulaR1C1 = STRING(Artst.Alk_Gehalt,"z9.99").
            END.

            Kol   = Kol + 1.
            Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
            excelAppl:Range(Zelle):Select.
            excelAppl:ActiveCell:FormulaR1C1 = TRIM(STRING(tAufze.Net_Betr,'->>>>>>9.999')).
        END.

        Kol   = Kol + 1.
        Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = VGebinde.KBez.

        Kol   = Kol + 1.
        Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = STRING(tKunBest.Soll,"zzzz").

        Kol   = Kol + 1.
        Zelle = CHR(Kol) + TRIM(STRING(i1,">>>9")).
        excelAppl:Range(Zelle):Select.
        excelAppl:ActiveCell:FormulaR1C1 = STRING(tKunBest.Best,"zzzz").

    END.

    i1 = i1 + 2.
    Zelle = 'A' + STRING(i1).
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = '*'.
    Zelle = 'B' + STRING(i1).
    excelAppl:Range(Zelle):Select.
    excelAppl:Selection:HorizontalAlignment = -4131.
    excelAppl:ActiveCell:FormulaR1C1 = 'Beschaffungsartikel, 5 - 10 Arbeitstage bis zur Auslieferung'.

    i1 = i1 + 1.
    Zelle = 'A' + STRING(i1).
    excelAppl:Range(Zelle):Select.
    excelAppl:ActiveCell:FormulaR1C1 = '**'.
    Zelle = 'B' + STRING(i1).
    excelAppl:Range(Zelle):Select.
    excelAppl:Selection:HorizontalAlignment = -4131.
    excelAppl:ActiveCell:FormulaR1C1 = 'Restposten'.

    Zelle = 'A1'.
    excelAppl:Range(Zelle):Select.
    
    DEF VAR SaveName    AS CHAR                     NO-UNDO.

    IF Adresse.Firma1 <> '' THEN SaveName = TRIM(SUBSTR(Adresse.Firma1,01,12)).
    ELSE                         SaveName = TRIM(SUBSTR(Adresse.NAME  ,01,12)).
    IF SaveName = '' THEN SaveName = 'FaxListe'.
    SaveName = session:TEMP-DIR + SaveName + '.xls'.
    excelAppl:ActiveWorkbook:SaveAs(SaveName,,,,,,TRUE) NO-ERROR.

    DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT excelAppl ) NO-ERROR.
  
END.

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


&Scoped-define SELF-NAME Btn_Loeschen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Loeschen B-table-Win
ON CHOOSE OF Btn_Loeschen IN FRAME F-Main /* Löschen */
DO:
    RUN LOESCHEN.
END.

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


&Scoped-define SELF-NAME Btn_Neu
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Neu B-table-Win
ON CHOOSE OF Btn_Neu IN FRAME F-Main /* Neu */
DO:

    DEF VAR cSort       AS CHAR                     NO-UNDO.
    DEF VAR iRecid      AS RECID                    NO-UNDO.
    DEF VAR cRetValue   AS CHAR                     NO-UNDO.
    DEF VAR lOK         AS LOG                      NO-UNDO.
    
    IF VUpdate THEN RETURN NO-APPLY.
    
    GET-KEY-VALUE SECTION 'Faxliste'
                  KEY     'vonDatum'
                  VALUE   cRetValue.
    IF ERROR-STATUS:ERROR OR
       cRetValue = ?      THEN cRetValue = ''.
    IF cRetValue = ''     THEN cRetValue = STRING((TODAY - 180),'99.99.9999').
    VDatum = DATE(cRetValue) NO-ERROR.
    IF ERROR-STATUS:ERROR OR
       VDatum = ?         THEN DO:
        VDatum = (TODAY - 180) .
    END.
    VDatum = DATE(MONTH(VDatum),01,YEAR(VDatum)).
    
    GET-KEY-VALUE SECTION 'Faxliste'
                  KEY     'NeuSort'
                  VALUE   cRetValue.
    IF ERROR-STATUS:ERROR OR
       cRetValue = ?      THEN cRetValue = ''.
    IF cRetValue = ''     THEN cRetValue = '1'.
    cSort = cRetValue.
                  
    DO WITH FRAME {&FRAME-NAME}:
        DISABLE {&List-6}.
        BDatum = TODAY.
        lOK    = FALSE.
        RUN "g-faxlist-datum.w" ( INPUT-OUTPUT LVKnr,
                                  INPUT-OUTPUT VDatum,
                                  INPUT-OUTPUT BDatum,
                                  INPUT-OUTPUT cSort ,
                                  INPUT-OUTPUT lOK    ).
                                  
        DO TRANSACTION WHILE lOK:
            EMPTY TEMP-TABLE tKunBest.
            FOR EACH Artbw NO-LOCK USE-INDEX Artbw-k3
                           WHERE Artbw.Firma  = GVFirma
                           AND   Artbw.Knr    = LVKnr
                           AND   Artbw.Datum >= VDatum
                           AND   Artbw.Datum <= BDatum
                           AND   Artbw.Menge  > 0
                           AND   Artbw.Tr_Art = 01,
                           
                FIRST Artst OF Artbw    NO-LOCK
                              
                              BREAK BY Artbw.Artnr
                                    BY Artbw.Inhalt
                                    BY Artbw.Jahr
                                    BY Artbw.Datum :
                                    
                IF FIRST-OF ( Artbw.Jahr ) THEN DO:
                    CREATE  tKunBest.
                    ASSIGN  tKunBest.Firma   = Artbw.Firma
                            tKunBest.Knr     = Artbw.Knr
                            tKunBest.Pos     = 0
                            tKunBest.Artnr   = Artbw.Artnr
                            tKunBest.Inhalt  = Artbw.Inhalt
                            tKunBest.Jahr    = Artbw.Jahr
                            tKunBest.Soll    = 0
                            tKunBest.KGeb_Cd = Artst.KGeb_Cd
                            tKunBest.VGeb_Cd = Artst.VGeb_Cd
                            tKunBest.GGeb_Cd = Artst.GGeb_Cd
                            tKunBest.Best    = 0
                            tKunBest.KGeb_Me = 0
                            tKunBest.VGeb_Me = 0
                            tKunBest.GGeb_Me = 0.
                            
                    CASE cSort:
                        WHEN '1' THEN tKunBest.cSort = STRING(Artbw.Artnr ,'999999')
                                                     + STRING(Artbw.Inhalt,'9999')
                                                     + STRING(Artbw.Jahr  ,'9999').
                        WHEN '2' THEN tKunBest.cSort = STRING(Artst.Suchbe,'x(12)')
                                                     + STRING(Artbw.Artnr ,'999999')
                                                     + STRING(Artbw.Inhalt,'9999')
                                                     + STRING(Artbw.Jahr  ,'9999').
                        WHEN '3' THEN tKunBest.cSort = STRING(Artst.Wg_Grp,'9999')
                                                     + STRING(Artbw.Artnr ,'999999')
                                                     + STRING(Artbw.Inhalt,'9999')
                                                     + STRING(Artbw.Jahr  ,'9999').
                        WHEN '4' THEN tKunBest.cSort = STRING(Artst.Wg_Grp,'9999')
                                                     + STRING(Artst.Suchbe,'x(12)')
                                                     + STRING(Artbw.Artnr ,'999999')
                                                     + STRING(Artbw.Inhalt,'9999')
                                                     + STRING(Artbw.Jahr  ,'9999').
                    END CASE.
                    iRecid = RECID(tKunBest).
                    RELEASE tKunBest.
                END.
                IF LAST-OF ( Artbw.Jahr ) THEN DO:
                    FIND tKunBest WHERE RECID(tKunBest) = iRecid.
                    tKunBest.Soll = Artbw.Menge.
                    RELEASE KunBest.
                END.
            END.

            FOR EACH KunBest
                    WHERE KunBest.Firma = GVFirma
                    AND   KunBest.Knr   = LVKnr:
                DELETE  KunBest.
            END.
            i1 = 0.
            FOR EACH tKunBest BY tKunBest.cSort:
                i1 = i1 + 10.
                CREATE  KunBest.
                BUFFER-COPY tKunBest EXCEPT Pos TO KunBest
                    ASSIGN  KunBest.Pos = i1.
                DELETE  tKunBest.
            END.
            LEAVE.
        END.
        ENABLE  {&List-6}.
        RUN dispatch IN THIS-PROCEDURE ('open-query':U).
        APPLY 'ENTRY' TO {&BROWSE-NAME}.
        RETURN NO-APPLY.
    END.
END.

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


&Scoped-define SELF-NAME Btn_Nummer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Nummer B-table-Win
ON CHOOSE OF Btn_Nummer IN FRAME F-Main /* Neue Nummer */
DO:
    IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN RETURN NO-APPLY.
    IF NUM-RESULTS("{&BROWSE-NAME}":U) = 0 THEN RETURN NO-APPLY.

    REPEAT TRANSACTION:
        EMPTY TEMP-TABLE tKunBest.
        i1 = 0.
        FOR EACH KunBest
                WHERE KunBest.Firma = GVFirma
                AND   KunBest.Knr   = LVKnr.
            i1 = i1 + 10.
            CREATE  tKunBest.
            BUFFER-COPY KunBest EXCEPT Pos
                    TO  tKunBest
                ASSIGN  tKunBest.Pos = i1.
            DELETE  KunBest.
        END.
        i1 = 0.
        FOR EACH tKunBest:
            CREATE  KunBest.
            BUFFER-COPY tKunBest TO KunBest.
        END.
        LEAVE.
    END.
    RUN dispatch IN THIS-PROCEDURE ('open-query':U).
    DO WITH FRAME {&FRAME-NAME}:
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN RETURN.
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = 0 THEN RETURN.
        APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
        {&BROWSE-NAME}:SELECT-ROW(1).
        {&BROWSE-NAME}:FETCH-SELECTED-ROW(1).
    END.
    RETURN NO-APPLY.
  
END.

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


&Scoped-define SELF-NAME Btn_Speichern
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Speichern B-table-Win
ON CHOOSE OF Btn_Speichern IN FRAME F-Main /* Speichern */
DO:
    VUpdate = FALSE.
    RUN SPEICHERN.
END.

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


&Scoped-define SELF-NAME m_Sortierung_nach_Artikelnumm
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortierung_nach_Artikelnumm B-table-Win
ON CHOOSE OF MENU-ITEM m_Sortierung_nach_Artikelnumm /* Sortierung nach Artikelnummer */
DO:
    PUT-KEY-VALUE SECTION 'FaxListe'
                  KEY     'Sortierung'
                  VALUE   '2' NO-ERROR.
END.

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


&Scoped-define SELF-NAME m_Sortierung_nach_Bezeichnung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortierung_nach_Bezeichnung B-table-Win
ON CHOOSE OF MENU-ITEM m_Sortierung_nach_Bezeichnung /* Sortierung nach Bezeichnung */
DO:
    PUT-KEY-VALUE SECTION 'FaxListe'
                  KEY     'Sortierung'
                  VALUE   '3' NO-ERROR.
END.

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


&Scoped-define SELF-NAME m_Sortierung_nach_Position
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sortierung_nach_Position B-table-Win
ON CHOOSE OF MENU-ITEM m_Sortierung_nach_Position /* Sortierung nach Position */
DO:
    PUT-KEY-VALUE SECTION 'FaxListe'
                  KEY     'Sortierung'
                  VALUE   '1' NO-ERROR.
END.

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


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK B-table-Win 


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

VKopie = FALSE.

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

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

ON INSERT-MODE OF BROWSE {&BROWSE-NAME}
DO:
    IF VUpdate THEN RETURN NO-APPLY.
    RUN ERFASSEN.
END.

ON RETURN OF BROWSE {&BROWSE-NAME}
DO:
    IF VUpdate THEN RETURN NO-APPLY.
    RUN SPEICHERN.
END.

ON DELETE-CHARACTER OF BROWSE {&BROWSE-NAME}
DO:
    IF VUpdate THEN RETURN NO-APPLY.
    RUN LOESCHEN.
END.

ON CTRL-CURSOR-RIGHT OF        {&WINDOW-NAME}
OR CTRL-CURSOR-RIGHT OF BROWSE {&BROWSE-NAME}
DO:
    IF VUpdate THEN RETURN NO-APPLY.
    RUN new-state ( INPUT 'Next_Page, MAIN':U ).
    RETURN NO-APPLY.
END.

ON CTRL-CURSOR-LEFT  OF        {&WINDOW-NAME}
OR CTRL-CURSOR-LEFT  OF BROWSE {&BROWSE-NAME}
DO:
    IF VUpdate THEN RETURN NO-APPLY.
    RUN new-state ( INPUT 'Prev_Page, MAIN':U ).
    RETURN NO-APPLY.
END.

ON ENTRY OF {&DATEI-NAME}.{&ERSTES-FELD} IN BROWSE {&BROWSE-NAME}
DO:
    IF NOT VNeu THEN DO:
        APPLY 'ENTRY' TO {&DATEI-NAME}.{&ZWEITES-FELD} IN BROWSE {&BROWSE-NAME}.
        RETURN NO-APPLY.
    END.
END.

ON RETURN OF {&DATEI-NAME}.{&ERSTES-FELD} IN BROWSE {&BROWSE-NAME}
DO:
    IF NOT VUpdate THEN RETURN.
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

ON CURSOR-UP   OF {&INPUT-FELDER} IN BROWSE {&BROWSE-NAME}
DO:
    IF NOT VUpdate THEN RETURN.
    APPLY 'BACK-TAB' TO SELF.
    RETURN NO-APPLY.
END.

ON CURSOR-DOWN OF {&INPUT-FELDER} IN BROWSE {&BROWSE-NAME}
DO:
    IF NOT VUpdate THEN RETURN.
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

ON END-ERROR OF {&INPUT-FELDER} IN BROWSE {&BROWSE-NAME}
DO:
    VSpeichern = FALSE.
    APPLY 'ENTRY' TO Btn_Erfassen IN FRAME {&FRAME-NAME}.
END.

ON LEFT-MOUSE-DOWN, RIGHT-MOUSE-DOWN, MIDDLE-MOUSE-DOWN OF BROWSE {&BROWSE-NAME}
DO:
    DO WHILE TRUE:
        IF NOT VUpdate THEN LEAVE.
        XHandle = {&BROWSE-NAME}:CURRENT-COLUMN IN FRAME {&FRAME-NAME}.
        IF NOT VALID-HANDLE(XHandle) THEN XHandle = LAST-EVENT:WIDGET-LEAVE.
        IF VALID-HANDLE(XHandle) THEN DO:
            APPLY 'LEAVE' TO XHandle.
            RETURN.
        END.
        LEAVE.
    END.
END.

ON LEAVE OF {&DATEI-NAME}.{&ERSTES-FELD} IN BROWSE {&BROWSE-NAME}
DO:
    IF NOT VUpdate THEN RETURN.
    LKY     = LASTKEY.
    LHandle = LAST-EVENT:WIDGET-ENTER.
    
    IF VALID-HANDLE(LHandle) THEN DO:
        IF LHandle:TYPE         = 'BUTTON'      AND
           LHandle:PRIVATE-DATA = 'Abbrechen'   THEN DO:
            VSpeichern = FALSE.
            APPLY 'ENTRY' TO Btn_Erfassen IN FRAME {&FRAME-NAME}.
            RETURN NO-APPLY.
        END.
    END.
    
    IF NOT VSpeichern THEN RETURN.
/*
    XHandle    = {&BROWSE-NAME}:CURRENT-COLUMN IN FRAME {&FRAME-NAME}.
    Feldname   = XHandle:NAME.
    Feldinhalt = XHandle:SCREEN-VALUE.
*/    
    FIND BKunBest USE-INDEX KunBest-k1
                  WHERE BKunBest.Firma = GVFirma
                  AND   BKunBest.Knr   = LVKnr
                  AND   BKunBest.Pos   = INTEGER(FeldInhalt) NO-LOCK NO-ERROR.
    IF AVAILABLE BKunBest THEN DO:
        { v8/fehler.i "0009" }
        APPLY 'ENTRY' TO XHandle.
        RETURN NO-APPLY.
    END.
END.

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


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

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

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

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

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ANZEIGE B-table-Win 
PROCEDURE ANZEIGE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VText       = ''.
    VBez        = ''.
    VKGeb_Cd    = ''.
    VVGeb_Cd    = ''.
    VAlk_Gehalt = 0.
    VInhalt     = 0.
    
    IF NOT AVAILABLE {&DATEI-NAME} THEN RETURN.

    VRecid = RECID({&DATEI-NAME}).
    VROWID = ROWID({&DATEI-NAME}).
    
    FIND Artst USE-INDEX Artst-k1
               WHERE Artst.Firma  = GVFirma
               AND   Artst.Artnr  = KunBest.Artnr
               AND   Artst.Inhalt = KunBest.Inhalt
               AND   Artst.Jahr   = KunBest.Jahr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Artst THEN RETURN.
    
    VBez        = Artst.Bez.
    VVGeb_Cd    = Artst.VGeb_Cd.
    VAlk_Gehalt = Artst.Alk_Gehalt.

    FIND KGebinde NO-LOCK USE-INDEX KGebinde-k1
            WHERE KGebinde.Firma  = GVFirma
            AND   KGebinde.Geb_Cd = Artst.KGeb_Cd NO-ERROR.
    IF NOT AVAILABLE KGebinde THEN RETURN.
    VKGeb_Cd = KGebinde.KBez.
    VInhalt  = KGebinde.Inhalt.
    
    FIND VGebinde USE-INDEX VGebinde-k1
            WHERE VGebinde.Firma  = GVFirma
            AND   VGebinde.Geb_Cd = Artst.VGeb_Cd NO-LOCK NO-ERROR.
    IF NOT AVAILABLE VGebinde THEN RETURN.
    VVGeb_Cd = VGebinde.KBez.
    
 END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE BUTTON_ENABLE B-table-Win 
PROCEDURE BUTTON_ENABLE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DEF INPUT PARAMETER Art         AS INT          NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:

    IF Art < 90 THEN BStatus = Art.
    IF Art = 98 THEN Art     = 9.
    IF Art = 99 THEN Art     = BStatus.
    
    CASE Art:
    
        WHEN 1 THEN DO:
            ENABLE  Btn_Erfassen.
            DISABLE Btn_Speichern   Btn_Loeschen.
        END.
        
        WHEN 2 THEN DO:
            ENABLE  Btn_Erfassen    Btn_Speichern   Btn_Loeschen.
        END.
        
        WHEN 3 THEN DO:
            DISABLE Btn_Loeschen.
            ENABLE  Btn_Speichern.
        END.
        
        WHEN 9 THEN DO:
            DISABLE Btn_Erfassen    Btn_Speichern   Btn_Loeschen.
        END.
        
    END CASE.
    
END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI B-table-Win  _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
  Purpose:     DISABLE the User Interface
  Parameters:  <none>
  Notes:       Here we clean-up the user-interface by deleting
               dynamic widgets we have created and/or hide 
               frames.  This procedure is usually called when
               we are ready to "clean-up" after running.
------------------------------------------------------------------------------*/
  /* Hide all frames. */
  HIDE FRAME F-Main.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ERFASSEN B-table-Win 
PROCEDURE ERFASSEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DO WITH FRAME {&FRAME-NAME}:

    IF Btn_Erfassen:SENSITIVE = FALSE THEN RETURN NO-APPLY.
    APPLY 'ENTRY' TO Btn_Erfassen.

    CASE Btn_Erfassen:LABEL:
    
        WHEN '&Erfassen' THEN DO:
            IF VKopie THEN DO:
                RUN KOPIEREN.
                RETURN NO-APPLY.
            END.
            RUN adm-add-record.
            VUpdate     = TRUE.
            VNeu        = TRUE.
            VSpeichern  = TRUE.
            FErfassen   = TRUE.
            VText       = ''.
            VBez        = ''.
            VKGeb_Cd    = ''.
            VVGeb_Cd    = ''.
            VAlk_Gehalt = 0.
            VInhalt     = 0.
            Btn_Erfassen:LABEL  = '&Abbrechen'.
            Btn_Speichern:LABEL = '&Speichern'.
            RUN BUTTON_ENABLE ( 3 ).
        END.

        WHEN '&Abbrechen' THEN DO:
            VSpeichern = FALSE.
            RUN adm-disable-fields.
            RUN adm-cancel-record.
            VUpdate    = FALSE.
            VNeu       = FALSE.
            FErfassen  = FALSE.
            Btn_Erfassen:LABEL  = '&Erfassen'.
            Btn_Speichern:LABEL = '&Aendern'.
            IF Vorhanden THEN RUN BUTTON_ENABLE ( 2 ).
            ELSE              RUN BUTTON_ENABLE ( 1 ).
        END.

    END CASE.
    
END.

    IF NOT VUpdate THEN RUN state-changed ( INPUT THIS-PROCEDURE, INPUT 'browser_entry' ).

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KOPFLAG B-table-Win 
PROCEDURE KOPFLAG :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER FKop            AS LOG.

    VKopie = FKop.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KOPIEREN B-table-Win 
PROCEDURE KOPIEREN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/
    
    DEF VAR VPos            AS INT                  NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    VPos = 10.
    IF AVAILABLE KunBest THEN DO:
        VPos = KunBest.Pos.
        FIND LAST BKunBest USE-INDEX KunBest-k1
                           WHERE BKunBest.Firma = GVFirma
                           AND   BKunBest.Knr   = LVKnr NO-LOCK NO-ERROR.
        IF VPos = BKunBest.Pos THEN VPos = VPos + 10.
        ELSE                        VPos = VPos + 1.
        
        DO WHILE TRUE:
            FIND BKunBest USE-INDEX KunBest-k1
                          WHERE BKunBest.Firma = GVFirma
                          AND   BKunBest.Knr   = LVKnr
                          AND   BKunBest.Pos   = VPos NO-LOCK NO-ERROR.
            IF NOT AVAILABLE BKunBest THEN LEAVE.
            VPos = VPos + 1.
        END.
    END.
    FIND Artst USE-INDEX Artst-k1
               WHERE Artst.Firma  = GVFirma
               AND   Artst.Artnr  = LVArtnr
               AND   Artst.Inhalt = LVInhalt
               AND   Artst.Jahr   = LVJahr NO-LOCK.

    CREATE  BKunBest.
    ASSIGN  BKunBest.Firma   = GVFirma
            BKunBest.Knr     = LVKnr
            BKunBest.Pos     = VPos
            BKunBest.Artnr   = Artst.Artnr
            BKunBest.Inhalt  = Artst.Inhalt
            BKunBest.Jahr    = Artst.Jahr
            BKunBest.KGeb_Cd = Artst.KGeb_Cd
            BKunBest.GGeb_Cd = Artst.GGeb_Cd
            BKunBest.VGeb_Cd = Artst.VGeb_Cd.
    FVC = FALSE.
    RUN dispatch IN THIS-PROCEDURE ('open-query':U).
    REPOSITION {&BROWSE-NAME} TO RECID RECID(BKunBest).
    {&BROWSE-NAME}:FETCH-SELECTED-ROW(1).
    APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
END.
        
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-assign-record B-table-Win 
PROCEDURE local-assign-record :
/*------------------------------------------------------------------------------
  Purpose:     Override standard ADM method
  Notes:       
------------------------------------------------------------------------------*/

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

    IF VNeu THEN DO:
        ASSIGN  KunBest.Firma = GVFirma
                KunBest.Knr   = LVKnr.
    END.
    ELSE DO:
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-hide B-table-Win 
PROCEDURE local-hide :
/*------------------------------------------------------------------------------
  Purpose:     Override standard ADM method
  Notes:       
------------------------------------------------------------------------------*/

    IF VUpdate THEN DO:
        APPLY 'ENTRY' TO Btn_Erfassen IN FRAME {&FRAME-NAME}.
        RUN ERFASSEN.
    END.

    RUN dispatch IN THIS-PROCEDURE ( INPUT 'hide':U ) .
    FQOpen = FALSE.

    RUN BUTTON_ENABLE ( INPUT 98 ).

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-open-query B-table-Win 
PROCEDURE local-open-query :
/*------------------------------------------------------------------------------
  Purpose:     Override standard ADM method
  Notes:       
------------------------------------------------------------------------------*/

    IF QOpen THEN CLOSE QUERY {&BROWSE-NAME}.
    QOpen = FALSE.

    Vorhanden = FALSE.

    RUN dispatch IN THIS-PROCEDURE ( INPUT 'open-query':U ).
    QOpen     = TRUE.

    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN LEAVE.
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = 0 THEN LEAVE.

        {&BROWSE-NAME}:SET-REPOSITIONED-ROW(4, "ALWAYS").
        Vorhanden = TRUE.
        LEAVE.
    END.
    
    DO WITH FRAME {&FRAME-NAME}:
        IF Vorhanden THEN DO:
            RUN BUTTON_ENABLE ( 2 ).
            IF FVC THEN APPLY 'VALUE-CHANGED' TO BROWSE {&BROWSE-NAME}.
        END.
        ELSE DO:
            RUN BUTTON_ENABLE ( 1 ).
        END.
    END.
    FVC = TRUE.
    
END PROCEDURE.

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

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

    RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) .
    FQOpen = TRUE.
    
    RUN BUTTON_ENABLE ( INPUT 99 ).

    DO WITH FRAME {&FRAME-NAME}:
        Btn_Erfassen:LABEL  IN FRAME {&FRAME-NAME} = '&Erfassen'.
        Btn_Speichern:LABEL IN FRAME {&FRAME-NAME} = '&Aendern'.
        
        RUN dispatch IN THIS-PROCEDURE ('disable-fields':U).
        
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN LEAVE.
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = 0 THEN LEAVE.

        {&BROWSE-NAME}:SELECT-FOCUSED-ROW().
        APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
        RETURN NO-APPLY.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LOESCHEN B-table-Win 
PROCEDURE LOESCHEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/
    
    IF Btn_Loeschen:SENSITIVE IN FRAME {&FRAME-NAME} = FALSE THEN RETURN NO-APPLY.
    
    APPLY 'ENTRY' TO Btn_Erfassen IN FRAME {&FRAME-NAME}.

    RUN BUTTON_ENABLE ( 9 ).

    Ja = FALSE.
    { v8/loeschen.i }
    IF NOT Ja THEN DO:
        RUN BUTTON_ENABLE ( 2 ).
        RUN state-changed ( INPUT THIS-PROCEDURE, INPUT 'browser_entry' ).
        RETURN.
    END.

    RUN dispatch IN THIS-PROCEDURE ('delete-record':U).
        
    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        Vorhanden = FALSE.
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN LEAVE.
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = 0 THEN LEAVE.
        Vorhanden = TRUE.
        LEAVE.
    END.

    IF Vorhanden THEN RUN BUTTON_ENABLE ( 2 ).
    ELSE              RUN BUTTON_ENABLE ( 1 ).
    
    RUN state-changed ( INPUT THIS-PROCEDURE, INPUT 'browser_entry' ).

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE PREISFINDUNG B-table-Win 
PROCEDURE PREISFINDUNG :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VPreis       = 0.
    VRab_Betr    = 0.
    VRab_Proz    = 0.
    VRab_Art     = 0.
    VPGrp        = Debst.Preis_Grp.
    VAGrp        = Debst.Preis_Grp.
    PosMenge     = 1.
    
    FIND AbwPrGrp NO-LOCK USE-INDEX AbwPrGrp-k1
            WHERE AbwPrGrp.Firma  = Artst.Firma
            AND   AbwPrGrp.Knr    = VKnr
            AND   AbwPrGrp.Wg_Grp = Artst.Wg_Grp NO-ERROR.
    IF AVAILABLE AbwPrGrp THEN DO:
        VAGrp = AbwPrGrp.Preis_Grp.
    END.
    
    DO WHILE TRUE:
        FIND LAST ArtPreis NO-LOCK USE-INDEX ArtPreis-k1
                WHERE ArtPreis.Firma      = GVFirma
                AND   ArtPreis.Artnr      = Artst.Artnr
                AND   ArtPreis.Inhalt     = Artst.Inhalt
                AND   ArtPreis.Jahr       = Artst.Jahr
                AND   ArtPreis.Preis_Grp  = VAGrp
                AND   ArtPreis.Aktion     = FALSE
                AND   ArtPreis.Ab_Datum  <= TODAY NO-ERROR.
        DO WHILE TRUE:
            IF AVAILABLE ArtPreis THEN LEAVE.
            FIND LAST ArtPreis NO-LOCK USE-INDEX ArtPreis-k1
                    WHERE ArtPreis.Firma      = GVFirma
                    AND   ArtPreis.Artnr      = Artst.Artnr
                    AND   ArtPreis.Inhalt     = Artst.Inhalt
                    AND   ArtPreis.Jahr       = Artst.Jahr
                    AND   ArtPreis.Preis_Grp  = VPGrp
                    AND   ArtPreis.Aktion     = FALSE
                    AND   ArtPreis.Ab_Datum  <= TODAY NO-ERROR.
            IF AVAILABLE ArtPreis THEN LEAVE.

            FIND LAST ArtPreis USE-INDEX ArtPreis-k1
                               WHERE ArtPreis.Firma      = GVFirma
                               AND   ArtPreis.Artnr      = Artst.Artnr
                               AND   ArtPreis.Inhalt     = Artst.Inhalt
                               AND   ArtPreis.Jahr       = Artst.Jahr
                               AND   ArtPreis.Preis_Grp  = 0
                               AND   ArtPreis.Aktion     = FALSE
                               AND   ArtPreis.Ab_Datum  <= TODAY NO-LOCK NO-ERROR.
            LEAVE.
        END.
        IF AVAILABLE ArtPreis THEN DO:
            IF VInkl THEN VPreis = ArtPreis.VK_Brutto.
            ELSE          VPreis = ArtPreis.VK_Netto.
        END.
            
        FIND LAST SpezPrei USE-INDEX SpezPrei-k1
                           WHERE SpezPrei.Firma      = GVFirma
                           AND   SpezPrei.Knr        = VKnr
                           AND   SpezPrei.Artnr      = Artst.Artnr
                           AND   SpezPrei.Inhalt     = Artst.Inhalt
                           AND   SpezPrei.Jahr       = Artst.Jahr
                           AND   SpezPrei.Menge     <= PosMenge
                           AND   SpezPrei.Ab_Datum  <= TODAY
                           AND   SpezPrei.Bis_Datum >= TODAY NO-LOCK NO-ERROR.
        IF AVAILABLE SpezPrei THEN DO:
            IF SpezPrei.Proz_Betr THEN DO.
                VRab_Proz = SpezPrei.Wert.
                VRab_Betr = 0.
            END.
            ELSE DO:
                VPreis    = SpezPrei.Wert.
                VRab_Betr = 0.
                VRab_Proz = 0.
            END.
            LEAVE.
        END.

        FIND LAST SpPrRab USE-INDEX SpPrRab-k1
                          WHERE SpPrRab.Firma      = GVFirma
                          AND   SpPrRab.Knr        = VKnr
                          AND   SpPrRab.Rab_Grp    = Artst.Rab_Grp
                          AND   SpPrRab.Menge     <= PosMenge
                          AND   SpPrRab.Ab_Datum  <= TODAY
                          AND   SpPrRab.Bis_Datum >= TODAY NO-LOCK NO-ERROR.
        IF AVAILABLE SpPrRab THEN DO:
            IF SpPrRab.Proz_Betr THEN DO.
                VRab_Proz = SpPrRab.Wert.
                VRab_Betr = 0.
            END.
            ELSE DO:
                VPreis    = SpPrRab.Wert.
                VRab_Betr = 0.
                VRab_Proz = 0.
            END.
            LEAVE.
        END.
        
        LEAVE.
    END.

    IF VRab_Proz <> 0 THEN DO:
        ASSIGN  VRab_Art  = 1
                VRab_Wert = VRab_Proz.
    END.
    IF VRab_Betr <> 0 THEN DO:
        ASSIGN  VRab_Art  = 2
                VRab_Wert = VRab_Betr.
    END.

    DO WHILE TRUE:
        IF VRab_Art = 1 THEN DO:    /*  Prozente        */
            VBru_Betr = VPreis.
            VRab_Betr = VRab_Wert * VBru_Betr / 100.
            LEAVE.
        END.
        IF VRab_Art = 2 THEN DO:    /*  Rabattbetrag    */
            VBru_Betr = VPreis.
            VRab_Betr = VRab_Wert.
            LEAVE.
        END.
        VBru_Betr = VPreis.
        VRab_Betr = 0.
        LEAVE.
    END.
    
    IF VInkl THEN DO:
        Rundbetr  = VRab_Betr.
        Rundcode  = 1.
        RUN "v8/runden.p".
        VRab_Betr = Rundbetr.
    END.

    VNet_Betr = VBru_Betr - VRab_Betr.

    IF VInkl THEN DO:
        Rundbetr = VNet_Betr.
        Rundcode = 1.
        RUN "v8/runden.p".
        VNet_Betr = Rundbetr.
    END.
    
END PROCEDURE.

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

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

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

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

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

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SPEICHERN B-table-Win 
PROCEDURE SPEICHERN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DEF VAR XROWID      AS ROWID                    NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:

    IF Btn_Speichern:SENSITIVE = FALSE THEN RETURN NO-APPLY.
    APPLY 'ENTRY' TO Btn_Speichern.

    CASE Btn_Speichern:LABEL:
    
        WHEN '&Aendern' THEN DO:
            RUN adm-enable-fields.
            APPLY 'ENTRY' TO {&DATEI-NAME}.{&ZWEITES-FELD} IN BROWSE {&BROWSE-NAME}.
            VUpdate    = TRUE.
            VNeu       = FALSE.
            VSpeichern = TRUE.
            Btn_Erfassen:LABEL  = '&Abbrechen'.
            Btn_Speichern:LABEL = '&Speichern'.
            RUN BUTTON_ENABLE ( 3 ).
        END.

        WHEN '&Speichern' THEN DO:
            VUpdate    = FALSE.
            RUN adm-disable-fields.
            RUN adm-update-record.
            RUN adm-end-update.
            VNeu       = FALSE.
            VSpeichern = FALSE.
            Btn_Erfassen:LABEL  = '&Erfassen'.
            Btn_Speichern:LABEL = '&Aendern'.
            IF Vorhanden THEN RUN BUTTON_ENABLE ( 2 ).
            ELSE              RUN BUTTON_ENABLE ( 1 ).
        END.

    END CASE.
    
END.

    IF NOT VUpdate THEN RUN state-changed ( INPUT THIS-PROCEDURE, INPUT 'browser_entry' ).

END PROCEDURE.

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

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

DEF VAR VRecid      AS RECID                        NO-UNDO.

CASE p-state:

    WHEN 'browser_entry' THEN DO:
        APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
        RETURN NO-APPLY.
    END.

    WHEN 'wechsel' THEN DO:
        RUN dispatch IN THIS-PROCEDURE ('open-query':U).
        RETURN NO-APPLY.
    END.

    WHEN 'Zugang' THEN DO WITH FRAME {&FRAME-NAME}:
        i1 = {&BROWSE-NAME}:NUM-SELECTED-ROWS.
        REPEAT TRANSACTION:
            IF i1 > 0 THEN DO:
                {&BROWSE-NAME}:FETCH-SELECTED-ROW(1).
                i1 = KunBest.Pos.
            END.
            ELSE i1 = 0.
            i1 = i1 + 1.
            FIND BKunBest USE-INDEX KunBest-k1
                          WHERE BKunBest.Firma = GVFirma
                          AND   BKunBest.Knr   = LVKnr
                          AND   BKunbest.Pos   = i1 NO-LOCK NO-ERROR.
            IF AVAILABLE BKunBest THEN RETURN NO-APPLY.
            
            FIND Artst USE-INDEX Artst-k1
                       WHERE Artst.Firma  = GVFirma
                       AND   Artst.Artnr  = LVArtnr
                       AND   Artst.Inhalt = LVInhalt
                       AND   Artst.Jahr   = LVJahr NO-LOCK.
            CREATE      KunBest.
            ASSIGN  KunBest.Firma   = GVFirma
                    KunBest.Knr     = LVKnr
                    KunBest.Pos     = i1
                    KunBest.Artnr   = LVArtnr
                    KunBest.Inhalt  = LVInhalt
                    KunBest.Jahr    = LVJahr
                    KunBest.KGeb_Cd = Artst.KGeb_Cd
                    KunBest.VGeb_Cd = Artst.VGeb_Cd
                    KunBest.GGeb_Cd = Artst.GGeb_Cd.
            VRecid = RECID(KunBest).
            RUN dispatch IN THIS-PROCEDURE ('open-query':U).
            REPOSITION {&BROWSE-NAME} TO RECID VRecid.
            LEAVE.
        END.
        RETURN NO-APPLY.
    END.

    WHEN 'first-record' THEN DO:
        RUN ANZEIGE.
        RETURN NO-APPLY.
    END.

    {src/adm/template/bstates.i}

END CASE.

END PROCEDURE.

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