GeMIS_WEB/GUI/v8/d-p_gebkontr.w

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME D-Dialog


/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE THilfsTab NO-UNDO LIKE HilfsTab.
DEFINE NEW SHARED TEMP-TABLE XTermOut NO-UNDO LIKE TermOut.



&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS D-Dialog 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrdlg.w - ADM SmartDialog Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

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

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

CREATE WIDGET-POOL.

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

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEF VAR VProgName           AS CHAR                             NO-UNDO.
DEF VAR ARecid              AS RECID                            NO-UNDO.
DEF VAR BRecid              AS RECID                            NO-UNDO.
DEF VAR TRecid              AS RECID                            NO-UNDO.
DEF VAR VLiArt              AS INT                              NO-UNDO.
DEF VAR ok                  AS LOG                              NO-UNDO.
DEF VAR VTemp               AS CHAR                             NO-UNDO.
DEF VAR VZeile              AS CHAR FORMAT "x(255)"             NO-UNDO.
DEF VAR XSort1              AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR XSort2              AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR XSort3              AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR XSort4              AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR FLeer               AS LOG                              NO-UNDO.
DEF VAR GTotal              AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.

DEF VAR KeyValue            AS CHAR                             NO-UNDO.

DEF WORKFILE WHilfsTab  LIKE HilfsTab.

DEF TEMP-TABLE TGebinde     FIELD Art           AS CHAR
                            FIELD Geb_Cd        AS CHAR
                            INDEX TGebinde-k1 IS PRIMARY
                                  Geb_Cd
                                  Art.

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

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

{ v8/listtitv.i  "NEW" "SHARED" }

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER DIALOG-BOX

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS CB_Listenart RS_Sort F_VKnr F_BKnr ~
F_Kundengruppen F_Preisgruppen F_VDatum F_BDatum CB_Drucker CB_Schriftbild ~
T_Drucker Btn_OK Btn_Cancel RECT-2 RECT-3 
&Scoped-Define DISPLAYED-OBJECTS CB_Listenart RS_Sort F_VKnr F_BKnr ~
F_Kundengruppen F_Preisgruppen F_VDatum F_BDatum CB_Drucker CB_Schriftbild ~
T_Drucker 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-1 RS_Sort F_VKnr F_BKnr F_Kundengruppen F_Preisgruppen ~
F_VDatum F_BDatum T_Drucker 

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



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

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Cancel AUTO-END-KEY 
     LABEL "&Abbrechen" 
     SIZE 14 BY 1
     BGCOLOR 8 .

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "&Start" 
     SIZE 14 BY 1
     BGCOLOR 8 .

DEFINE VARIABLE CB_Drucker AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS COMBO-BOX INNER-LINES 5
     DROP-DOWN-LIST
     SIZE 70 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Listenart AS CHARACTER FORMAT "X(256)":U 
     LABEL "Listenart" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEMS "Gebinde" 
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Schriftbild AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS COMBO-BOX INNER-LINES 5
     DROP-DOWN-LIST
     SIZE 20 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_BDatum AS DATE FORMAT "99.99.9999":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_BKnr AS INTEGER FORMAT "999999":U INITIAL 0 
     VIEW-AS FILL-IN NATIVE 
     SIZE 11 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Kundengruppen AS CHARACTER FORMAT "x(256)":U 
     LABEL "Kundengruppen" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 50 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Preisgruppen AS CHARACTER FORMAT "x(256)":U 
     LABEL "Preisgruppen" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 50 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_VDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "von - bis Datum" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_VKnr AS INTEGER FORMAT "999999":U INITIAL 0 
     LABEL "von - bis Kundennummer" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 11 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE RS_Sort AS INTEGER INITIAL 1 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Kundennummer", 1,
"Suchbegriff", 2,
"", 3
     SIZE 70 BY 2.48 NO-UNDO.

DEFINE RECTANGLE RECT-2
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 115 BY 4.19.

DEFINE RECTANGLE RECT-3
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 115 BY 5.

DEFINE VARIABLE T_Drucker AS LOGICAL INITIAL no 
     LABEL "Druckersetup" 
     VIEW-AS TOGGLE-BOX
     SIZE 17.6 BY 1 NO-UNDO.


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

DEFINE FRAME D-Dialog
     CB_Listenart AT ROW 1.52 COL 12 COLON-ALIGNED
     RS_Sort AT ROW 4.71 COL 14 NO-LABEL
     F_VKnr AT ROW 8.52 COL 33 COLON-ALIGNED
     F_BKnr AT ROW 8.52 COL 56 COLON-ALIGNED NO-LABEL
     F_Kundengruppen AT ROW 9.52 COL 33 COLON-ALIGNED
     F_Preisgruppen AT ROW 10.52 COL 33 COLON-ALIGNED
     F_VDatum AT ROW 11.52 COL 33 COLON-ALIGNED
     F_BDatum AT ROW 11.52 COL 56 COLON-ALIGNED NO-LABEL
     CB_Drucker AT ROW 13.52 COL 5 NO-LABEL
     CB_Schriftbild AT ROW 13.52 COL 74.2 COLON-ALIGNED NO-LABEL
     T_Drucker AT ROW 13.52 COL 99.2
     Btn_OK AT ROW 1.62 COL 87
     Btn_Cancel AT ROW 1.62 COL 103
     "Sortierung Kunde" VIEW-AS TEXT
          SIZE 70 BY 1 AT ROW 3.48 COL 14
          FONT 9
     RECT-2 AT ROW 3.24 COL 3
     RECT-3 AT ROW 8 COL 3
     SPACE(2.79) SKIP(2.18)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Gebindekontrolle"
         CANCEL-BUTTON Btn_Cancel.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDialog
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Other Settings: COMPILE
   Temp-Tables and Buffers:
      TABLE: THilfsTab T "?" NO-UNDO AnaDat HilfsTab
      TABLE: XTermOut T "NEW SHARED" NO-UNDO AnaDat TermOut
   END-TABLES.
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

{src/adm/method/containr.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR DIALOG-BOX D-Dialog
   FRAME-NAME Custom                                                    */
ASSIGN 
       FRAME D-Dialog:SCROLLABLE       = FALSE
       FRAME D-Dialog:HIDDEN           = TRUE.

/* SETTINGS FOR COMBO-BOX CB_Drucker IN FRAME D-Dialog
   ALIGN-L                                                              */
/* SETTINGS FOR FILL-IN F_BDatum IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_BKnr IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Kundengruppen IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Preisgruppen IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_VDatum IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_VKnr IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR RADIO-SET RS_Sort IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Drucker IN FRAME D-Dialog
   1                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

&ANALYZE-SUSPEND _QUERY-BLOCK DIALOG-BOX D-Dialog
/* Query rebuild information for DIALOG-BOX D-Dialog
     _Options          = "SHARE-LOCK"
     _Query            is NOT OPENED
*/  /* DIALOG-BOX D-Dialog */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME D-Dialog
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL D-Dialog D-Dialog
ON WINDOW-CLOSE OF FRAME D-Dialog /* Gebindekontrolle */
DO:  
  /* Add Trigger to equate WINDOW-CLOSE to END-ERROR. */
  APPLY "END-ERROR":U TO SELF.
END.

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


&Scoped-define SELF-NAME Btn_OK
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK D-Dialog
ON CHOOSE OF Btn_OK IN FRAME D-Dialog /* Start */
DO:
DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  {&List-1}.
    
    IF F_VKnr     = 0     AND F_BKnr    = 0     THEN F_BKnr   = 999999.
    IF F_VKnr     > F_BKnr                      THEN F_BKnr   = F_VKnr.
    
    IF F_VDatum   = ?           THEN F_VDatum = DATE(01,01,YEAR(TODAY)).
    IF F_BDatum   = ?           THEN F_BDatum = DATE(12,31,YEAR(TODAY)).
    IF F_BDatum   < F_VDatum    THEN F_BDatum = F_VDatum.
    
    ix = NUM-ENTRIES(F_Kundengruppen, ',').
    DO i1 = 1 TO ix:
        i2 = INTEGER(ENTRY(i1, F_Kundengruppen, ',')).
        ENTRY(i1, F_Kundengruppen, ',') = STRING(i2,'999').
    END.
    ix = NUM-ENTRIES(F_Preisgruppen, ',').
    DO i1 = 1 TO ix:
        i2 = INTEGER(ENTRY(i1, F_Preisgruppen, ',')).
        ENTRY(i1, F_Preisgruppen, ',') = STRING(i2,'999').
    END.
    
    DISPLAY {&List-1}.
    
    DISABLE Btn_OK
            Btn_cancel.
            
    SESSION:SET-WAIT-STATE('GENERAL').
    RUN DRUCKEN.
    SESSION:SET-WAIT-STATE('').
    
    ENABLE  Btn_OK
            Btn_cancel.
END.

END.

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


&Scoped-define SELF-NAME CB_Drucker
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Drucker D-Dialog
ON VALUE-CHANGED OF CB_Drucker IN FRAME D-Dialog
DO:
    ok = TRUE.
    DO WHILE ok:
        ok = CB_Schriftbild:DELETE(1).
    END.
    FOR EACH Schrift USE-INDEX Schrift-k1
                     WHERE Schrift.Schname = CB_Drucker:SCREEN-VALUE NO-LOCK:
        ok = CB_Schriftbild:ADD-LAST(Schrift.Schbild).
    END.

    i1 = 0.
    DO WHILE BRecid > 0:
        i1 = CB_Schriftbild:LOOKUP(LiDruck.ListBild).
        LEAVE.
    END.

    IF i1 = 0 THEN i1 = 1.
    CB_Schriftbild:SCREEN-VALUE = CB_Schriftbild:ENTRY(i1).
END.

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


&Scoped-define SELF-NAME CB_Listenart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Listenart D-Dialog
ON VALUE-CHANGED OF CB_Listenart IN FRAME D-Dialog /* Listenart */
DO:
    TRecid  = 0.
    ARecid  = 0.
    BRecid  = 0.
    VLiArt  = CB_Listenart:LOOKUP(CB_Listenart:SCREEN-VALUE).
    
    PUT-KEY-VALUE SECTION 'Gebinde' KEY 'Listenart' VALUE STRING(VLiArt).
    
    RUN SORTIERARTEN.
    
    FIND Tabel USE-INDEX Tabel-k1
               WHERE Tabel.Firma  = GVFirma
               AND   Tabel.RecArt = 'LISTEN'
               AND   Tabel.CodeC  = 'GEBKONTR'
               AND   Tabel.CodeI  = VLiArt
               AND   Tabel.Sprcd  = 0   NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN DO:
        TRecid = RECID(Tabel).
        ARecid = Tabel.Int_1.
        BRecid = Tabel.Int_2.
        FIND Listen  WHERE RECID(Listen)  = ARecid NO-LOCK NO-ERROR.
        FIND LiDruck WHERE RECID(LiDruck) = BRecid NO-LOCK NO-ERROR.
        IF NOT AVAILABLE Listen  THEN ARecid = 0.
        IF NOT AVAILABLE LiDruck THEN BRecid = 0.
    END.
    
    RS_Sort         = 1.
    F_VKnr          = 0.
    F_BKnr          = 999999.
    F_Kundengruppen = ''.
    F_Preisgruppen  = ''.
    F_VDatum        = DATE(01,01,YEAR(TODAY)).
    F_BDatum        = DATE(12,31,YEAR(TODAY)).
    
    CB_Drucker:SCREEN-VALUE = CB_Drucker:ENTRY(1) NO-ERROR.
    
    DO WHILE ARecid > 0:
        RS_Sort         = Listen.Sort.
        F_VKnr          = Listen.VNr[01].
        F_BKnr          = Listen.BNr[01].
        F_Kundengruppen = Listen.ECh[01].
        F_Preisgruppen  = Listen.ECh[02].
        F_VDatum        = Listen.VDa[01].
        F_BDatum        = Listen.BDa[01].
        LEAVE.
    END.
  
    i1 = 0.  
    DO WHILE BRecid > 0:
        i1 = CB_Drucker:LOOKUP(LiDruck.ListDru).
        LEAVE.
    END.
    IF i1 = 0 THEN i1 = 1.
    CB_Drucker:SCREEN-VALUE = CB_Drucker:ENTRY(i1).
    APPLY 'VALUE-CHANGED' TO CB_Drucker.
    
    DISPLAY {&List-1} WITH FRAME {&FRAME-NAME}.

    APPLY 'ENTRY' TO F_VKnr.

END.

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


&Scoped-define SELF-NAME F_BKnr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_BKnr D-Dialog
ON ALT-F OF F_BKnr IN FRAME D-Dialog
DO:
    DEF VAR 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 'ENTRY' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_Kundengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Kundengruppen D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Kundengruppen IN FRAME D-Dialog /* Kundengruppen */
DO:
    LVRecArt = 'KUNDGRP'.
    LVTitel  = 'Kundengruppen'.
    LVFirma  = GVFirma.
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-tabel.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_Preisgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Preisgruppen D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Preisgruppen IN FRAME D-Dialog /* Preisgruppen */
DO:
    LVRecArt = 'PREGRP'.
    LVTitel  = 'Preisgruppen'.
    LVFirma  = GVFirma.
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-tabel.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_VKnr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_VKnr D-Dialog
ON ALT-F OF F_VKnr IN FRAME D-Dialog /* von - bis Kundennummer */
DO:
    DEF VAR 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).
    F_BKnr:SCREEN-VALUE = STRING(Adresse.Knr).
    APPLY 'ENTRY' TO SELF.
    RETURN NO-APPLY.
END.

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


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK D-Dialog 


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

DO WITH FRAME {&FRAME-NAME}:

    GET-KEY-VALUE SECTION 'Gebinde' KEY 'Listenart' VALUE KeyValue.
    VLiArt = 1.
    IF KeyValue = ? THEN VLiArt = 1.
    ELSE                 VLiArt = INTEGER(KeyValue) NO-ERROR.
    CB_Listenart:SCREEN-VALUE = CB_Listenart:ENTRY(VLiArt) NO-ERROR.
    
    CB_Drucker:DELIMITER     = ';'.
    CB_Schriftbild:DELIMITER = ';'.

    ok = TRUE.
    DO WHILE ok:
        ok = CB_Drucker:DELETE(1).
    END.
    FOR EACH Schrift USE-INDEX Schrift-k1 NO-LOCK
                     BREAK BY Schrift.Schname :
        IF NOT FIRST-OF ( Schrift.Schname ) THEN NEXT.
        ok = CB_Drucker:ADD-LAST(Schrift.Schname).
    END.
    
END.

{src/adm/template/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects D-Dialog  _ADM-CREATE-OBJECTS
PROCEDURE adm-create-objects :
/*------------------------------------------------------------------------------
  Purpose:     Create handles for all SmartObjects used in this procedure.
               After SmartObjects are initialized, then SmartLinks are added.
  Parameters:  <none>
------------------------------------------------------------------------------*/

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available D-Dialog  _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 AUSGABE_01 D-Dialog 
PROCEDURE AUSGABE_01 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DEF VAR VGebText        AS CHAR                         NO-UNDO.


FOR EACH THilfsTab  BREAK BY Sort_1
                          BY Sort_2
                          BY Sort_3
                          BY Sort_4 :
                          
    IF FIRST-OF ( Sort_2 ) THEN DO:
        Leer  = 2.
        Zuszz = 5.
        RUN LISTTIT2.
        FIND Adresse WHERE RECID(Adresse) = THilfsTab.Zahl[02] NO-LOCK.
        VZeile = STRING(Adresse.Knr,'999999  ')
               + Adresse.Anzeig_Br.
        { v8/putstreamf.i "2" }
    END.
    
    RUN LISTTIT2.

    VGebText = THilfsTab.Sort_4.
    
    CASE THilfsTab.Sort_3:
        WHEN 'A' THEN DO:
            FIND KGebinde USE-INDEX KGebinde-k1
                          WHERE KGebinde.Firma  = GVFirma
                          AND   KGebinde.Geb_Cd = THilfsTab.Sort_4 NO-LOCK.
            VGebText = KGebinde.Bez.
        END.
        
        WHEN 'B' THEN DO:
            FIND VGebinde USE-INDEX VGebinde-k1
                          WHERE VGebinde.Firma  = GVFirma
                          AND   VGebinde.Geb_Cd = THilfsTab.Sort_4 NO-LOCK.
            VGebText = VGebinde.Bez.
        END.
        
        WHEN 'C' THEN DO:
            FIND GGebinde USE-INDEX GGebinde-k1
                          WHERE GGebinde.Firma  = GVFirma
                          AND   GGebinde.Geb_Cd = THilfsTab.Sort_4 NO-LOCK.
            VGebText = GGebinde.Bez.
        END.
        
        WHEN 'D' THEN DO:
            FIND GebKonto USE-INDEX GebKonto-k1
                          WHERE GebKonto.Firma  = GVFirma
                          AND   GebKonto.Geb_Cd = THilfsTab.Sort_4 NO-LOCK.
            VGebText = GebKonto.Bez.
        END.
        
        WHEN 'Z' THEN DO:
            VGebText = THilfsTab.Sort_4.
        END.
    END.
    
    Rundbetr = THilfsTab.Wert[01] - THilfsTab.Wert[02].
    
    SUBSTRING(VZeile,001) = STRING(VGebText             ,"x(20)").
    SUBSTRING(VZeile,031) = STRING(THilfsTab.Wert[02]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,043) = STRING(THilfsTab.Wert[01]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,055) = STRING(Rundbetr             ,"zzz,zzz,zzz-").
    
    { v8/putstream.i "1" }

END.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE AUSGABE_02 D-Dialog 
PROCEDURE AUSGABE_02 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR VRang               AS INT              NO-UNDO.

    VRang = 0.
    
FOR EACH THilfsTab  NO-LOCK,
    FIRST Adresse WHERE RECID(Adresse) = THilfsTab.Zahl[02] NO-LOCK :
    
    RUN LISTTIT2.
    
    VRang    = VRang + 1.
    Rundbetr = 0.
    Rundbetr = THilfsTab.Wert[01] - THilfsTab.Wert[02].
    SUBSTRING(VZeile,001) = STRING(VRang              ,"zzzzz9").
    SUBSTRING(VZeile,009) = STRING(Adresse.Knr       ,"999999").
    SUBSTRING(VZeile,017) = STRING(Adresse.Anzeig_Br ,"x(60)").
    SUBSTRING(VZeile,078) = STRING(THilfsTab.Wert[01] ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,091) = STRING(THilfsTab.Wert[02] ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,104) = STRING(Rundbetr           ,"zzz,zzz,zzz-").
    
    { v8/putstream.i "1" }

END.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI D-Dialog  _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 D-Dialog.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKAUSGABE D-Dialog 
PROCEDURE DRUCKAUSGABE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR AnzKopien       AS INT                      NO-UNDO.
    DEF VAR iSize           AS INT                      NO-UNDO.

    AnzKopien = BLiDruck.ListCopy.
    
    IF AnzKopien    = 0             THEN AnzKopien = 1.
    IF BDrucker.Emul = 'TERMINAL'   THEN AnzKopien = 1.
    
    DO VCopy = 1 TO AnzKopien WHILE BDrucker.Emul <> "TERMINAL":
        iSize = DYNAMIC-FUNCTION('putDateiToPrinter':U, VTemp          ,
                                                        RECID(BSchrift),
                                                        0              ,
                                                        300            ,   /* Blockgrösse */
                                                        'ibm850'       ,
                                                        1 ).
        IF iSize = 0 THEN DO:
            MESSAGE 'Druckvorgang gescheitert !!! '
                    VIEW-AS ALERT-BOX ERROR.
        END.
        ETIME(TRUE).
        DO WHILE ETIME(FALSE) < 250:
        END.
    END.

    DO WHILE BDrucker.Emul = "TERMINAL":
        RUN "v8/d-liste.w" ( INPUT HelpText[02] ).
        LEAVE.
    END.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKEN D-Dialog 
PROCEDURE DRUCKEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR XProgname       AS CHAR             NO-UNDO.
    DEF VAR VListnr         AS INT              NO-UNDO.
    DEF VAR FNeu            AS LOG              NO-UNDO.
    DEF VAR VDrucker        AS CHAR             NO-UNDO.
    DEF VAR VSchrift        AS CHAR             NO-UNDO.
    DEF VAR cUser           AS CHAR             NO-UNDO.
    
DO WITH FRAME {&FRAME-NAME}:

    cUser     = DYNAMIC-FUNCTION('getDBUser':U) NO-ERROR.
    VProgname = TRIM(cUSER)  + '!GEBKONTR' + STRING(VLiArt,"99").
    XProgname = 'GEBKONTR' + STRING(VLiArt,"99").
    FNeu      = FALSE.
    
    DO WITH FRAME {&FRAME-NAME}:
        VDrucker = CB_Drucker:SCREEN-VALUE.
        VSchrift = CB_Schriftbild:SCREEN-VALUE.
    END.

    REPEAT TRANSACTION:
        FIND FIRST Listen USE-INDEX Listen-k1
                          WHERE Listen.Firma    = GVFirma
                          AND   Listen.Progname = VProgname
                          AND   Listen.Listfl   = ''    NO-ERROR.
        IF NOT AVAILABLE Listen THEN DO:
            FIND LAST Listen USE-INDEX Listen-k1
                             WHERE Listen.Firma = GVFirma NO-LOCK NO-ERROR.
            IF AVAILABLE Listen THEN VListnr = Listen.Listnr + 1.
            ELSE                     VListnr = 1.
            CREATE  Listen.
            ASSIGN  Listen.Firma     = GVFirma
                    Listen.Listnr    = VListnr
                    Listen.Progname  = VProgname
                    Listen.Listfl    = ''
                    Listen.Jahr      = GVJahr
                    Listen.Sprcd     = GVSprcd
                    Listen.Sort      = RS_Sort
                    Listen.ProgWahl  = VLiArt
                    FNeu             = TRUE.
        END.
        Listen.Listfl = 'A'.
        ARecid        = RECID(Listen).

        FIND LiDruck USE-INDEX LiDruck-k1
                     WHERE LiDruck.Firma    = GVFirma
                     AND   LiDruck.Listnr   = Listen.Listnr
                     AND   LiDruck.ProgWahl = Listen.ProgWahl NO-ERROR.
        IF NOT AVAILABLE LiDruck THEN DO:
            CREATE  LiDruck.
            ASSIGN  LiDruck.Firma    = GVFirma
                    LiDruck.Listnr   = Listen.Listnr
                    LiDruck.ProgWahl = Listen.ProgWahl
                    LiDruck.Listprog = XProgname
                    LiDruck.ListCopy = 1
                    LiDruck.Schacht  = 0
                    LiDruck.Listlq   = FALSE.
        END.
        BRecid = RECID(LiDruck).

        ASSIGN  Listen.Sort       = RS_Sort
                Listen.ProgWahl   = VLiArt
                Listen.VNr[01]    = F_VKnr
                Listen.BNr[01]    = F_BKnr
                Listen.ECh[01]    = F_Kundengruppen
                Listen.ECh[02]    = F_Preisgruppen
                Listen.VDa[01]    = F_VDatum
                Listen.BDa[01]    = F_BDatum.

        IF TRecid = 0 THEN DO:
            CREATE  Tabel.
            ASSIGN  Tabel.Firma  = GVFirma
                    Tabel.RecArt = 'LISTEN'
                    Tabel.CodeC  = 'GEBKONTR'
                    Tabel.CodeI  = VLiArt
                    Tabel.Sprcd  = 0.
        END.
        ELSE DO:
            FIND Tabel WHERE RECID(Tabel) = TRecid.
        END.
        TRecid = RECID(Tabel).

        ASSIGN  Tabel.Int_1 = ARecid
                Tabel.Int_2 = BRecid.

        FIND Schrift USE-INDEX Schrift-k1
                     WHERE Schrift.Schname = VDrucker
                     AND   Schrift.Schbild = VSchrift NO-LOCK NO-ERROR.
        IF AVAILABLE Schrift THEN DO:
            IF LiDruck.ListDru  <> VDrucker     OR
               LiDruck.ListBild <> VSchrift THEN DO:
                ASSIGN  LiDruck.ListTzz     = Schrift.Schzztot
                        LiDruck.ListKzz     = Schrift.Schzzbeg
                        LiDruck.ListFzz     = Schrift.Schzzend.
            END.
            ASSIGN  LiDruck.ListDru  = VDrucker
                    LiDruck.ListBild = VSchrift.
        END.
        
        RUN LIBILD.
        
        RELEASE Listen.
        RELEASE LiDruck.
        RELEASE Tabel.
        
        LEAVE.
    END.
    
    IF FNeu THEN DO:
        T_Drucker = TRUE.
        DISPLAY T_Drucker WITH FRAME {&FRAME-NAME}.
    END.

    DFL = TRUE.
    IF T_Drucker THEN RUN DRUCKER.
    
    REPEAT TRANSACTION WHILE NOT Dfl:
        FIND BListen  WHERE RECID(BListen)  = ARecid.
        BListen.ListFl = ''.
        RELEASE BListen.
        FIND BListen  WHERE RECID(BListen)  = ARecid NO-LOCK NO-ERROR.
        RETURN.
    END.

    FIND BSteuer  WHERE BSteuer.Firma   = GVFirma   NO-LOCK NO-ERROR.    
    FIND BListen  WHERE RECID(BListen)  = ARecid    NO-LOCK NO-ERROR.
    FIND BLiDruck WHERE RECID(BLiDruck) = BRecid    NO-LOCK NO-ERROR.
    FIND BSchrift USE-INDEX Schrift-k1
                  WHERE BSchrift.Schname = BLiDruck.ListDru
                  AND   BSchrift.Schbild = BLiDruck.ListBild NO-LOCK NO-ERROR.
    FIND BDrucker USE-INDEX Drucker-k1
                  WHERE BDrucker.Drucker = BSchrift.Schdru   NO-LOCK NO-ERROR.
                  
    IF T_Drucker THEN DO:
        FIND LiDruck WHERE RECID(LiDruck) = BRecid NO-LOCK NO-ERROR.
        i1 = CB_Drucker:LOOKUP(LiDruck.ListDru).
        IF i1 = 0 THEN i1 = 1.
        CB_Drucker:SCREEN-VALUE = CB_Drucker:ENTRY(i1).
        APPLY 'VALUE-CHANGED' TO CB_Drucker.
    END.

    TiDruck = TRUE.
    VSeite  = 0.
    
    RUN TEMP_FILE.
    RUN LISTTIT1.
    RUN WORKFILE.
    IF DOpen = TRUE THEN OUTPUT STREAM Out_Stream TO VALUE(VTemp).
    
    IF BListen.ProgWahl = 1 THEN RUN AUSGABE_01.
    IF BListen.ProgWahl = 2 THEN RUN AUSGABE_02.

    IF DOpen THEN OUTPUT STREAM Out_Stream CLOSE.
    DOpen = FALSE.
    RUN DRUCKAUSGABE.
    IF VTemp <> '' THEN OS-DELETE VALUE(VTemp).

END.

    REPEAT TRANSACTION:
        FIND BListen  WHERE RECID(BListen)  = ARecid.
        BListen.ListFl = ''.
        RELEASE BListen.
        LEAVE.
    END.

    FIND BListen  WHERE RECID(BListen)  = ARecid NO-LOCK NO-ERROR.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKER D-Dialog 
PROCEDURE DRUCKER :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    LVRecid = TRecid.
    DFl     = FALSE.
    SELF:LOAD-MOUSE-POINTER('ARROW').
    RUN "v8/d-druckauswahl.w".
    SELF:LOAD-MOUSE-POINTER('WAIT').

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI D-Dialog  _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
  Purpose:     ENABLE the User Interface
  Parameters:  <none>
  Notes:       Here we display/view/enable the widgets in the
               user-interface.  In addition, OPEN all queries
               associated with each FRAME and BROWSE.
               These statements here are based on the "Other 
               Settings" section of the widget Property Sheets.
------------------------------------------------------------------------------*/
  DISPLAY CB_Listenart RS_Sort F_VKnr F_BKnr F_Kundengruppen F_Preisgruppen 
          F_VDatum F_BDatum CB_Drucker CB_Schriftbild T_Drucker 
      WITH FRAME D-Dialog.
  ENABLE CB_Listenart RS_Sort F_VKnr F_BKnr F_Kundengruppen F_Preisgruppen 
         F_VDatum F_BDatum CB_Drucker CB_Schriftbild T_Drucker Btn_OK 
         Btn_Cancel RECT-2 RECT-3 
      WITH FRAME D-Dialog.
  VIEW FRAME D-Dialog.
  {&OPEN-BROWSERS-IN-QUERY-D-Dialog}
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIBILD D-Dialog 
PROCEDURE LIBILD :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    Helptext = "".
    FOR EACH LiBild USE-INDEX LiBild-k1
                    WHERE LiBild.Sprcd = GVSprcd
                    AND   LiBild.Prog  = LiDruck.Listprog
                    AND   LiBild.Tenr  > 0 NO-LOCK ix = 1 TO 20:
        Helptext[ix] = LiBild.Litext.
    END.
    Breite       = INTEGER(SUBSTRING(Helptext[01],02,03)).
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LISTTIT1 D-Dialog 
PROCEDURE LISTTIT1 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    TitTxt = STRING(F_VDatum,'99.99.9999')
           + ' - '
           + STRING(F_BDatum,'99.99.9999').

    Fuell  =         SUBSTRING(Helptext[01],01,01).
    Breite = INTEGER(SUBSTRING(Helptext[01],02,03)).
    
    VRand  = INTEGER(SUBSTRING(Helptext[01],68,03)).
    Dattxt =         SUBSTRING(Helptext[01],05,10).
    Seitxt =         SUBSTRING(Helptext[01],15,10).
    Zeitxt =         SUBSTRING(Helptext[01],25,10).
    Firtxt =         SUBSTRING(Helptext[01],35,10).
    Jahtxt =         SUBSTRING(Helptext[01],45,10).
    PPos1  = Breite - 20.
    PPos2  = (Breite - LENGTH(Helptext[02]) - 1) / 2.
    PPos5  = (Breite - LENGTH(Tittxt) - 1) / 2.
    ix     = LENGTH(BDrucker.Drufettb)  + LENGTH(BDrucker.Drufette).
    PPos3  = PPos1  + ix.
    PPos4  = Breite + ix - 3.
    IF Fuell <> "" THEN Kopfz  = FILL(Fuell,Breite).
    Ueber1 = "".
    Ueber2 = "".
    Ueber3 = "".
    IF Helptext[03] <> "" THEN SUBSTRING(Ueber1,001) = Helptext[03].
    IF Helptext[04] <> "" THEN SUBSTRING(Ueber1,071) = Helptext[04].
    IF Helptext[05] <> "" THEN SUBSTRING(Ueber1,141) = Helptext[05].
    IF Helptext[06] <> "" THEN SUBSTRING(Ueber2,001) = Helptext[06].
    IF Helptext[07] <> "" THEN SUBSTRING(Ueber2,071) = Helptext[07].
    IF Helptext[08] <> "" THEN SUBSTRING(Ueber2,141) = Helptext[08].
    IF Helptext[09] <> "" THEN SUBSTRING(Ueber3,001) = Helptext[09].
    IF Helptext[10] <> "" THEN SUBSTRING(Ueber3,071) = Helptext[10].
    IF Helptext[11] <> "" THEN SUBSTRING(Ueber3,141) = Helptext[11].
    IF Ueber1 <> '' THEN Ueber1 = BDrucker.Drufettb + Ueber1 + BDrucker.Drufette.
    IF Ueber2 <> '' THEN Ueber2 = BDrucker.Drufettb + Ueber2 + BDrucker.Drufette.
    IF Ueber3 <> '' THEN Ueber3 = BDrucker.Drufettb + Ueber3 + BDrucker.Drufette.
    Helptext[02] = BDrucker.Drufettb + Helptext[02] + BDrucker.Drufette.
    Tittxt       = BDrucker.Drufettb + Tittxt       + BDrucker.Drufette.
    ap           = 1.
    XDruDat      = ?.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LISTTIT2 D-Dialog 
PROCEDURE LISTTIT2 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    IF NOT TiDruck AND Leer > 0 THEN DO:
        { v8/putzeily.i XLeer Leer }
    END.
    IF (VLine + BLiDruck.Listfzz + Zuszz) > BLiDruck.Listtzz THEN TiDruck = TRUE.
    IF TiDruck THEN DO:
        IF Uebertrag <> ""  THEN DO:
            { v8/putzeily.i XLeer      "1" }
            { v8/putzeily.i Uebertrag  "1" }
            { v8/putzeily.i XLeer      "1" }
        END.
        IF DOpen = TRUE THEN DO:
            RUN NEUE_SEITE.
        END.
        ELSE DO:
            VSeite = VSeite + 1.
            VZNr   = VZNr   + 1.
            VLine  = 0.
            CREATE  XTermOut.
            ASSIGN  XTermOut.ZNr   = VZNr
                    XTermOut.Zeile = ''.
        END.
        IF Listkzz > 0 THEN DO:
            { v8/putzeily.i XLeer Listkzz }
        END.
        IF Kopfz <> "" THEN DO:
            { v8/putzeily.i Kopfz "1" }
        END.

        Titelz = "".
        SUBSTRING(Titelz,01)         = BSteuer.Firma1.
        SUBSTRING(Titelz,PPos1)      = Dattxt.
        IF XDruDat <> ? THEN SUBSTR(Titelz,Breite - 9) = STRING(XDruDat,VDatForm).
        ELSE                 SUBSTR(Titelz,Breite - 9) = STRING(TODAY  ,VDatForm).
        { v8/putzeily.i Titelz "1" }
    
        Titelz = "".
        SUBSTRING(Titelz,01)         = BSteuer.Strasse.
        SUBSTRING(Titelz,PPos2)      = Helptext[02].
        SUBSTRING(Titelz,PPos3)      = Seitxt.
        SUBSTRING(Titelz,PPos4)      = STRING(VSeite,"zzz9").
        { v8/putzeily.i Titelz "1" }

        Titelz = "".
        SUBSTRING(Titelz,01)         = BSteuer.Ort.
        IF Tittxt <> "" THEN DO:
            SUBSTRING(Titelz,PPos5)  = Tittxt.
        END.
        SUBSTRING(Titelz,PPos3)      = Zeitxt.
        SUBSTRING(Titelz,PPos4  - 4) = STRING(TIME,"HH:MM:SS").
        { v8/putzeily.i Titelz "1" }

        IF BListen.FirmaFl OR BListen.JahrFl THEN DO:
            Titelz = "".
            IF BListen.FirmaFl THEN DO:
                SUBSTRING(Titelz,01)         = Firtxt.
                SUBSTRING(Titelz,11)         = STRING(BListen.Firma).
            END.
            IF BListen.JahrFl THEN DO:
                SUBSTRING(Titelz,PPos1)      = Jahtxt.
                SUBSTRING(Titelz,Breite - 3) = STRING(BListen.Jahr,"9999").
            END.
            { v8/putzeily.i Titelz "1" }
        END.

        IF Kopfz <> "" THEN DO:
            { v8/putzeily.i Kopfz "1" }
        END.

        { v8/putzeily.i XLeer "1" }
        aa = 0.
        IF Ueber1 <> "" THEN DO:
            { v8/putzeily.i Ueber1 "1" }
            aa = 1.
        END.
        IF Ueber2 <> "" THEN DO:
            { v8/putzeily.i Ueber2 "1" }
            aa = 1.
        END.
        IF Ueber3 <> "" THEN DO:
            { v8/putzeily.i Ueber3 "1" }
            aa = 1.
        END.
        IF aa = 1 THEN DO:
            { v8/putzeily.i XLeer "1" }.
        END.
        TiGedru = TRUE.
    END.
    IF Leer > 0 OR TiDruck THEN DO:
        IF Ueber4 <> "" THEN DO:
            { v8/putzeily.i Ueber4 "2" }
        END.
        IF Ueber5 <> "" THEN DO:
            { v8/putzeily.i Ueber5 "2" }
        END.
        IF Uebertrag <> "" THEN DO:
            { v8/putzeily.i Uebertrag "2" }
        END.
    END.

    TiDruck   = FALSE.
    Uebertrag = "".
    Leer      = 0.
    Zuszz     = 0.

END PROCEDURE.

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

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

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

    APPLY 'VALUE-CHANGED' TO CB_Listenart IN FRAME {&FRAME-NAME}.
    APPLY 'VALUE-CHANGED' TO CB_Drucker   IN FRAME {&FRAME-NAME}.
    APPLY 'ENTRY'         TO CB_Listenart IN FRAME {&FRAME-NAME}.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEUE_SEITE D-Dialog 
PROCEDURE NEUE_SEITE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR A           AS INT                      NO-UNDO.
    DEF VAR B           AS INT                      NO-UNDO.

    DO WHILE VSeite > 0:
        IF DOpen THEN DO:
            PUT STREAM Out_Stream CHR(12).
            LEAVE.
        END.
    
        A = BLiDruck.Listtzz.
        DO B = VLine TO A:
            VZNr = VZNr + 1.
            CREATE  XTermOut.
            ASSIGN  XTermOut.ZNr   = VZNr
                    XTermOut.Zeile = ''.
        END.
        
        LEAVE.
    END.
        
    VLine  = 0.
    VSeite = VSeite + 1.
    
END PROCEDURE.

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

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

  /* SEND-RECORDS does nothing because there are no External
     Tables specified for this SmartDialog, and there are no
     tables specified in any contained Browse, Query, or Frame. */

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SORTIERARTEN D-Dialog 
PROCEDURE SORTIERARTEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DO WITH FRAME {&FRAME-NAME}:

    CASE VLiArt:
    
        WHEN 1 THEN DO:
            RS_Sort:RADIO-BUTTONS   = 'Kundennummer,1,Suchbegriff,2,,3'.
        END.
/*
        WHEN 2 THEN DO:
            RS_Sort:RADIO-BUTTONS   = 'Umsatz Absteigend,1,,2,,3'.
        END.
        
        WHEN 3 THEN DO:
            RS_Sort:RADIO-BUTTONS   = 'EWK-Code / Artikelnummer / Inhalt / Jahr,1'.
        END.
        
        WHEN 4 THEN DO:
            RS_Sort:RADIO-BUTTONS   = 'EWK-Code / Artikelnummer / Inhalt / Jahr,1'.
        END.
*/
    END CASE.

END.

END PROCEDURE.

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

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

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TEMP_FILE D-Dialog 
PROCEDURE TEMP_FILE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR VSort1              AS CHAR             NO-UNDO.
    DEF VAR VSort2              AS CHAR             NO-UNDO.
    DEF VAR VSort3              AS CHAR             NO-UNDO.
    DEF VAR VSort4              AS CHAR             NO-UNDO.
    DEF VAR VSort5              AS CHAR             NO-UNDO.
    DEF VAR VEingang            AS DEC              NO-UNDO.
    DEF VAR VAusgang            AS DEC              NO-UNDO.
    
    FOR EACH THilfsTab:
        DELETE  THilfsTab.
    END.
    FOR EACH TGebinde:
        DELETE  TGebinde.
    END.
    FOR EACH KGebinde USE-INDEX KGebinde-k1
                      WHERE KGebinde.Firma = GVFirma :
        CREATE  TGebinde.
        ASSIGN  TGebinde.Art    = 'A'
                TGebinde.Geb_Cd = KGebinde.Geb_Cd.
    END.
    FOR EACH VGebinde USE-INDEX VGebinde-k1
                      WHERE VGebinde.Firma = GVFirma :
        CREATE  TGebinde.
        ASSIGN  TGebinde.Art    = 'B'
                TGebinde.Geb_Cd = VGebinde.Geb_Cd.
    END.
    FOR EACH GGebinde USE-INDEX GGebinde-k1
                      WHERE GGebinde.Firma = GVFirma :
        CREATE  TGebinde.
        ASSIGN  TGebinde.Art    = 'C'
                TGebinde.Geb_Cd = GGebinde.Geb_Cd.
    END.
    FOR EACH GebKonto USE-INDEX GebKonto-k1
                      WHERE GebKonto.Firma = GVFirma :
        CREATE  TGebinde.
        ASSIGN  TGebinde.Art    = 'D'
                TGebinde.Geb_Cd = GebKonto.Geb_Cd.
    END.
    
    FOR EACH GebKontr USE-INDEX GebKontr-k3
                      WHERE GebKontr.Firma  = GVFirma
                      AND   GebKontr.Knr   >= F_VKnr
                      AND   GebKontr.Knr   <= F_BKnr
                      AND   GebKontr.Datum >= F_VDatum
                      AND   GebKontr.Datum <= F_BDatum          NO-LOCK,
        FIRST Debst   USE-INDEX Debst-k1
                      WHERE Debst.Firma     = GebKontr.Firma
                      AND   Debst.Knr       = GebKontr.Knr      NO-LOCK,
        FIRST Adresse USE-INDEX Adresse-k1
                      WHERE Adresse.Firma   = AdFirma
                      AND   Adresse.Knr     = Debst.Knr         NO-LOCK
                      
                      BREAK BY GebKontr.Knr
                            BY GebKontr.Geb_Cd :
                     
        IF FIRST-OF ( GebKontr.Geb_Cd ) THEN DO:
            VEingang = 0.
            VAusgang = 0.
        END.
        
        Ja = FALSE.
        DO WHILE TRUE:
            IF F_Kundengruppen <> ''    AND
               LOOKUP(STRING(Debst.Ku_Grp   ,"999"), F_Kundengruppen) = 0 THEN LEAVE.

            IF F_Preisgruppen  <> ''    AND
               LOOKUP(STRING(Debst.Preis_Grp,"999"), F_Preisgruppen ) = 0 THEN LEAVE.

            Ja = TRUE.
            LEAVE.
        END.
        IF NOT Ja THEN NEXT.
        
        VEingang = VEingang + GebKontr.Eingang.
        VAusgang = VAusgang + GebKontr.Ausgang.
        
        IF NOT LAST-OF ( GebKontr.Geb_Cd )  THEN NEXT.
        IF VEingang = 0 AND VAusgang = 0    THEN NEXT.
        
        VSort1   = ''.
        VSort2   = ''.
        VSort3   = ''.
        VSort4   = ''.
        IF VLiArt = 1 THEN DO:
            IF RS_Sort = 1 THEN VSort1 = STRING(Debst.Knr   ,"999999").
            IF RS_Sort = 2 THEN VSort1 = Adresse.Suchbe.
            VSort2 = STRING(Debst.Knr,'999999').
        END.

        DO WHILE TRUE:
            FIND FIRST TGebinde USE-INDEX TGebinde-k1
                                WHERE TGebinde.Geb_Cd = GebKontr.Geb_Cd
                                AND   TGebinde.Art    = 'D'     NO-ERROR.
            IF AVAILABLE TGebinde THEN DO:
                VSort3 = TGebinde.Art.
                VSort4 = TGebinde.Geb_Cd.
                LEAVE.
            END.

            FIND FIRST TGebinde USE-INDEX TGebinde-k1
                                WHERE TGebinde.Geb_Cd = GebKontr.Geb_Cd NO-ERROR.
            IF AVAILABLE TGebinde THEN DO:
                VSort3 = TGebinde.Art.
                VSort4 = TGebinde.Geb_Cd.
                LEAVE.
            END.
            ELSE DO:
                VSort3 = 'Z'.
                VSort4 = GebKontr.Geb_Cd.
            END.
        END.
        
        CREATE  THilfsTab.
        ASSIGN  THilfsTab.Firma    = GVFirma
                THilfsTab.Sort_1   = VSort1
                THilfsTab.Sort_2   = VSort2
                THilfsTab.Sort_3   = VSort3
                THilfsTab.Sort_4   = VSort4
                THilfsTab.Sort_5   = ''
                THilfsTab.Zahl[01] = RECID(Debst)
                THilfsTab.Zahl[02] = RECID(Adresse)
                THilfsTab.Wert[01] = VEingang
                THilfsTab.Wert[02] = VAusgang.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE WORKFILE D-Dialog 
PROCEDURE WORKFILE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DOpen = FALSE.
    VTemp = ''.
    IF BDrucker.Emul = 'TERMINAL' THEN DO:
        FOR EACH XTermOut:
            DELETE  XTermOut.
        END.
        VZNr = 0.
        RETURN.
    END.

    DO WHILE TRUE TRANSACTION:
        FIND Tabel USE-INDEX Tabel-k1
                   WHERE Tabel.Firma  = GVFirma
                   AND   Tabel.RecArt = 'TEMPFILE'
                   AND   Tabel.CodeI  = 0
                   AND   Tabel.CodeC  = 'GEBKONTR'
                   AND   Tabel.Sprcd  = 0 NO-ERROR.
        IF NOT AVAILABLE Tabel THEN DO:
            CREATE  Tabel.
            ASSIGN  Tabel.Firma  = GVFirma
                    Tabel.RecArt = 'TEMPFILE'
                    Tabel.CodeI  = 0
                    Tabel.CodeC  = 'GEBKONTR'
                    Tabel.Sprcd  = 0.
        END.
        ASSIGN  Tabel.Bez1  = SESSION:TEMP-DIR
                Tabel.Int_1 = Tabel.Int_1 + 1.
        VTemp = Tabel.Bez1 + 'GEBKONTR' + STRING(Tabel.Int_1) + '.tmp'.
        RELEASE Tabel.
        LEAVE.
    END.
    
    DOpen = TRUE.
    
END PROCEDURE.

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