GeMIS_WEB/GUI/v8/d-p_latorre-form.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 VDateiName          AS CHAR                             NO-UNDO.
DEF VAR VPfad               AS CHAR                             NO-UNDO.
DEF VAR ok                  AS LOG                              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 VTemp               AS CHAR                             NO-UNDO.
DEF VAR VZeile              AS CHAR FORMAT "x(255)"             NO-UNDO.
DEF VAR VAusgabe            AS CHAR FORMAT "x(255)"             NO-UNDO.
DEF VAR VMaxSpalt           AS INT                              NO-UNDO.
DEF VAR VFBreite            AS INT          EXTENT 20           NO-UNDO.
DEF VAR VFAusricht          AS CHAR         EXTENT 20           NO-UNDO.

DEF TEMP-TABLE TExcel   FIELD Zeile     AS INT    
                        FIELD Feld      AS CHAR         EXTENT 40.

/*  ----------  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 first Frame and/or Browse and/or first Query                 */
&Scoped-define FRAME-NAME D-Dialog

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS Btn_Datei F_Dateiname CB_Drucker ~
CB_Schriftbild T_Drucker Btn_OK Btn_Cancel RECT-1 
&Scoped-Define DISPLAYED-OBJECTS F_Dateiname 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 F_Dateiname 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 16.8 BY 1
     BGCOLOR 8 .

DEFINE BUTTON Btn_Datei 
     LABEL "Dateiname" 
     SIZE 16.8 BY 1.

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "&Start" 
     SIZE 16.8 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 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 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Dateiname AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 55 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-1
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 121 BY 3.33.

DEFINE VARIABLE T_Drucker AS LOGICAL INITIAL no 
     LABEL "Druckersetup" 
     VIEW-AS TOGGLE-BOX
     SIZE-PIXELS 140 BY 21 NO-UNDO.


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

DEFINE FRAME D-Dialog
     Btn_Datei AT ROW 1.52 COL 4
     F_Dateiname AT ROW 1.52 COL 20 COLON-ALIGNED NO-LABEL
     CB_Drucker AT ROW 3 COL 4 NO-LABEL
     CB_Schriftbild AT ROW 3 COL 42 COLON-ALIGNED NO-LABEL
     T_Drucker AT Y 42 X 430
     Btn_OK AT ROW 1.52 COL 87
     Btn_Cancel AT ROW 1.52 COL 105.4
     RECT-1 AT ROW 1.24 COL 2
     SPACE(3.19) SKIP(0.18)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Formulare aus Excel drucken"
         DEFAULT-BUTTON Btn_OK 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
   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_Dateiname 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 /* Formulare aus Excel drucken */
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_Datei
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Datei D-Dialog
ON CHOOSE OF Btn_Datei IN FRAME D-Dialog /* Dateiname */
DO:
    SYSTEM-DIALOG GET-FILE VDateiName
        FILTERS "csv-Dateien (*.csv) " "*.csv",
                "Text-Datein mit Separator (*.txt) " "*.txt",
                "Alle Dateien (*.*) " "*.*"
        TITLE "Welches Formular soll gedruckt werden ?"
        MUST-EXIST
        UPDATE Ja.
        IF NOT Ja THEN RETURN NO-APPLY.
    F_Dateiname = VDateiname.
    DISPLAY F_Dateiname WITH FRAME {&FRAME-NAME}.
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}.
    VDateiName = F_Dateiname.
    IF SEARCH(VDateiname) = ? THEN DO:
        APPLY 'ENTRY' TO F_Dateiname.
        RETURN NO-APPLY.
    END.
    
    DISABLE Btn_OK
            Btn_cancel.
            
    {&WINDOW-NAME}:LOAD-MOUSE-POINTER('WAIT').
    RUN DRUCKEN.
    {&WINDOW-NAME}:LOAD-MOUSE-POINTER('ARROW').
    
    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 F_Dateiname
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Dateiname D-Dialog
ON LEAVE OF F_Dateiname IN FRAME D-Dialog
DO:
    F_Dateiname = SELF:SCREEN-VALUE.
    IF SEARCH(F_Dateiname) = ? THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    VDateiName = F_Dateiname.
    PUT-KEY-VALUE SECTION "LaTorre" KEY "Formular" VALUE VDateiName.
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}:
    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.
    CB_Drucker:SCREEN-VALUE = CB_Drucker:ENTRY(1) NO-ERROR.
    
    GET-KEY-VALUE SECTION "LaTorre" KEY "Formular" VALUE VDateiName.
    IF VDateiName = ? THEN DO:
        VDateiname = SESSION:TEMP-DIR.
    END.
    F_Dateiname = VDateiName.
    
    FIND Tabel USE-INDEX Tabel-k1
               WHERE Tabel.Firma  = GVFirma
               AND   Tabel.RecArt = 'LISTEN'
               AND   Tabel.CodeC  = 'FORMULARE'
               AND   Tabel.CodeI  = 1
               AND   Tabel.Sprcd  = 0   NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN TRecid = RECID(Tabel).
    ELSE                    TRecid = 0.
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 D-Dialog 
PROCEDURE AUSGABE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    i2 = 0.
    FOR EACH TExcel BY TExcel.Zeile:
        i1       = 1.
        VAusgabe = ''.
        DO ix = 1 TO VMaxSpalt.
            i3 = LENGTH(TExcel.Feld[ix]).
            DO WHILE TRUE:
                IF VFAusricht[ix] = 'L' THEN DO:
                    SUBSTRING(VAusgabe,i1) = TExcel.Feld[ix].
                    LEAVE.
                END.
                IF VFAusricht[ix] = 'R' THEN DO:
                    i4 = i1 + VFBreite[ix] - i3.
                    SUBSTRING(VAusgabe,i4) = TExcel.Feld[ix].
                    LEAVE.
                END.
                LEAVE.
            END.
            i1 = i1 + VFBreite[ix] + 1.
        END.
        PUT STREAM Out_Stream CONTROL VAusgabe CHR(10).
    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.

    AnzKopien = BLiDruck.ListCopy.
    
    IF AnzKopien    = 0             THEN AnzKopien = 1.
    IF BDrucker.Emul = 'TERMINAL'   THEN AnzKopien = 1.
    
DO VCopy = 1 TO AnzKopien:

    DO WHILE BDrucker.Emul <> "TERMINAL":
        IF BSteuer.Drucker <> ""        AND
           OPSYS           = "Unix"     THEN
             OUTPUT STREAM Out_Stream
                    THROUGH VALUE(BSteuer.Drucker)
                            VALUE(BSchrift.Schname)
                            CONVERT TARGET "ibm850".
        ELSE OUTPUT STREAM Out_Stream
                    TO     VALUE(BSchrift.Schname)
                           CONVERT TARGET "ibm850".

        PUT STREAM Out_Stream CONTROL BSchrift.Schseqbeg.
        IF BLiDruck.Listlq      THEN PUT STREAM Out_Stream CONTROL BDrucker.Drulqb.
        IF BLiDruck.Schacht > 0 THEN PUT STREAM Out_Stream CONTROL BDrucker.DruSchacht[Schacht].

        INPUT  STREAM In_Stream  FROM VALUE(VTemp) NO-ECHO NO-MAP.
        REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print:
            IMPORT STREAM In_Stream UNFORMATTED VZeile.
            DISPLAY STREAM Out_Stream VZeile
                    WITH FRAME f_Print NO-LABELS STREAM-IO
                    NO-BOX USE-TEXT WIDTH 255.
        END.

        PUT STREAM Out_Stream CONTROL CHR(12).
        
        OUTPUT STREAM Out_Stream CLOSE.
        INPUT  STREAM In_Stream  CLOSE.
        LEAVE.
    END.
    
    DO WHILE BDrucker.Emul = "TERMINAL":
        RUN "v8/d-liste.w" ( INPUT HelpText[02] ).
        LEAVE.
    END.
    
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)  + '!FORMULARE'.
    XProgname = 'FORMULARE'.
    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      = 1
                    Listen.ProgWahl  = 1
                    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).

        IF TRecid = 0 THEN DO:
            CREATE  Tabel.
            ASSIGN  Tabel.Firma  = GVFirma
                    Tabel.RecArt = 'LISTEN'
                    Tabel.CodeC  = 'FORMULARE'
                    Tabel.CodeI  = 1
                    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.

        ASSIGN  Listen.Sort       = 1.

        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.
        
        LEAVE.
    END.
    
    IF FNeu THEN DO:
        T_Drucker = TRUE.
        DISPLAY T_Drucker WITH FRAME {&FRAME-NAME}.
    END.

    IF T_Drucker THEN DO:
        {&WINDOW-NAME}:LOAD-MOUSE-POINTER('ARROW').
        RUN DRUCKER.
        {&WINDOW-NAME}:LOAD-MOUSE-POINTER('WAIT').
    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).
    
    RUN AUSGABE.

    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.
    RUN "v8/d-druckauswahl.w".

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 F_Dateiname CB_Drucker CB_Schriftbild T_Drucker 
      WITH FRAME D-Dialog.
  ENABLE Btn_Datei F_Dateiname CB_Drucker CB_Schriftbild T_Drucker Btn_OK 
         Btn_Cancel RECT-1 
      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:       
------------------------------------------------------------------------------*/

    Fuell  =         SUBSTRING(Helptext[01],01,01).
    Breite = INTEGER(SUBSTRING(Helptext[01],02,03)).
    VRand  = INTEGER(SUBSTRING(Helptext[01],68,03)).
    
END PROCEDURE.

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

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

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

    IF TRecid <> 0 THEN DO WITH FRAME {&FRAME-NAME}:
        FIND Tabel WHERE RECID(Tabel) = TRecid NO-LOCK NO-ERROR.
        BRecid = Tabel.INt_2.
        FIND LiDruck WHERE RECID(LiDruck) = BRecid NO-LOCK NO-ERROR.
        CB_Drucker:SCREEN-VALUE = LiDruck.ListDru NO-ERROR.
        APPLY 'VALUE-CHANGED' TO CB_Drucker   IN FRAME {&FRAME-NAME}.
        CB_Schriftbild:SCREEN-VALUE = LiDruck.ListBild NO-ERROR.
    END.
    ELSE DO:
        APPLY 'VALUE-CHANGED' TO CB_Drucker   IN FRAME {&FRAME-NAME}.
    END.

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

    i2         = 0.
    VMaxSpalt  = 0.
    VFAusricht = ''.
    VFBreite   = 0.
    
    INPUT STREAM In_Stream  FROM VALUE(VDateiname) NO-ECHO NO-MAP.
    REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print:
        IMPORT STREAM In_Stream UNFORMATTED VZeile.
        i1 = NUM-ENTRIES(VZeile, ';').
        IF i1 > VMaxSpalt THEN VMaxSpalt = i1.
        
        CREATE  TExcel.
        i2 = i2 + 1.
        TExcel.Zeile = i2.
        DO ix = 1 TO i1:
            TExcel.Feld[ix] = ENTRY(ix, VZeile, ';').
            IF i2 = 1 THEN VFBreite  [ix] = INTEGER(TExcel.Feld[ix]).
            IF i2 = 2 THEN VFAusricht[ix] = TRIM   (TExcel.Feld[ix]).
        END.
        IF i2 = 1 THEN DELETE TExcel.
        IF i2 = 2 THEN DELETE TExcel.
    END.
    INPUT STREAM In_Stream CLOSE.
    
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  = 'FORMULARE'
                   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  = 'FORMULARE'
                    Tabel.Sprcd  = 0
                    Tabel.Bez1   = SESSION:TEMP-DIR.
        END.
        Tabel.Int_1 = Tabel.Int_1 + 1.
        VTemp = Tabel.Bez1 + 'FORMULARE' + STRING(Tabel.Int_1) + '.tmp'.
        RELEASE Tabel.
        LEAVE.
    END.
    
    DOpen = TRUE.
    
END PROCEDURE.

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