GeMIS_WEB/GUI/g-quoter.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME gDialog
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gDialog 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrdlg.w - ADM2 SmartDialog Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

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

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

CREATE WIDGET-POOL.

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

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEF VAR sOrdner     AS CHAR                     NO-UNDO.

DEF STREAM IN_Stream.
DEF STREAM OUT_Stream.
    
/*  ----------  Globale Variablen   ---------------------------------- */

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

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

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS F_Eingang Btn_Eingang F_Ausgang F_Zeichen ~
Btn_Ausgang Btn_OK Btn_Cancel 
&Scoped-Define DISPLAYED-OBJECTS F_Eingang F_Ausgang F_Zeichen 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-5 Btn_OK Btn_Cancel 
&Scoped-define List-6 F_Eingang F_Ausgang F_Zeichen 

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



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

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Ausgang 
     IMAGE-UP FILE "grafik/select.bmp":U
     LABEL "Datei" 
     SIZE 5 BY 1.

DEFINE BUTTON Btn_Cancel AUTO-END-KEY 
     LABEL "Cancel" 
     SIZE 12 BY 1.

DEFINE BUTTON Btn_Eingang 
     IMAGE-UP FILE "grafik/select.bmp":U
     LABEL "Datei" 
     SIZE 5 BY 1.

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "OK" 
     SIZE 12 BY 1.

DEFINE VARIABLE F_Ausgang AS CHARACTER FORMAT "X(256)":U 
     LABEL "Ausgabe-Datei" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 45 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Eingang AS CHARACTER FORMAT "X(256)":U 
     LABEL "Eingangs-Datei" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 45 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Zeichen AS CHARACTER FORMAT "x":U INITIAL "~;" 
     LABEL "Trennzeichen" 
     VIEW-AS FILL-IN 
     SIZE 3 BY 1
     BGCOLOR 15  NO-UNDO.


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

DEFINE FRAME gDialog
     F_Eingang AT ROW 3 COL 18 COLON-ALIGNED
     Btn_Eingang AT ROW 3 COL 66 NO-TAB-STOP 
     F_Ausgang AT ROW 4.52 COL 18 COLON-ALIGNED
     F_Zeichen AT ROW 6 COL 18 COLON-ALIGNED
     Btn_Ausgang AT ROW 4.52 COL 66 NO-TAB-STOP 
     Btn_OK AT ROW 7.52 COL 20
     Btn_Cancel AT ROW 7.52 COL 53
     SPACE(12.19) SKIP(0.95)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Quoter Datei"
         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
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

{src/adm2/containr.i}

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




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

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

/* SETTINGS FOR BUTTON Btn_Cancel IN FRAME gDialog
   5                                                                    */
/* SETTINGS FOR BUTTON Btn_OK IN FRAME gDialog
   5                                                                    */
/* SETTINGS FOR FILL-IN F_Ausgang IN FRAME gDialog
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Eingang IN FRAME gDialog
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Zeichen IN FRAME gDialog
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

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

 



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

&Scoped-define SELF-NAME gDialog
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDialog gDialog
ON END-ERROR OF FRAME gDialog /* Quoter Datei */
DO:
    &IF DEFINED(UIB_IS_RUNNING) = 0 &THEN          
        DYNAMIC-FUNCTION('SETDIALOGFLAG', INPUT FALSE ).
    &ENDIF
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDialog gDialog
ON WINDOW-CLOSE OF FRAME gDialog /* Quoter Datei */
DO:  
    &IF DEFINED(UIB_IS_RUNNING) = 0 &THEN          
        DYNAMIC-FUNCTION('SETDIALOGFLAG', INPUT FALSE ).
    &ENDIF
    APPLY "END-ERROR":U TO SELF.
END.

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


&Scoped-define SELF-NAME Btn_Ausgang
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Ausgang gDialog
ON CHOOSE OF Btn_Ausgang IN FRAME gDialog /* Datei */
DO:
    RUN SUCHEN_DATEI ( INPUT 2 ).
    F_Ausgang:SCREEN-VALUE = F_Ausgang.
    APPLY 'ENTRY' TO F_Ausgang.
END.

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


&Scoped-define SELF-NAME Btn_Cancel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Cancel gDialog
ON CHOOSE OF Btn_Cancel IN FRAME gDialog /* Cancel */
DO:
    &IF DEFINED(UIB_IS_RUNNING) = 0 &THEN          
        DYNAMIC-FUNCTION('SETDIALOGFLAG', INPUT FALSE ).
    &ENDIF
END.

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


&Scoped-define SELF-NAME Btn_Eingang
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Eingang gDialog
ON CHOOSE OF Btn_Eingang IN FRAME gDialog /* Datei */
DO:
    RUN SUCHEN_DATEI ( INPUT 1 ).
    F_Eingang:SCREEN-VALUE = F_Eingang.
    APPLY 'ENTRY' TO F_Eingang.
END.

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


&Scoped-define SELF-NAME Btn_OK
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK gDialog
ON CHOOSE OF Btn_OK IN FRAME gDialog /* OK */
DO:
    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&list-6}.
        DISABLE {&List-5}.
        RUN VERARBEITEN.
        ENABLE  {&List-5}.
    END.
END.

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


&Scoped-define SELF-NAME F_Ausgang
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Ausgang gDialog
ON LEAVE OF F_Ausgang IN FRAME gDialog /* Ausgabe-Datei */
DO:
    /*
    F_Ausgang = SELF:SCREEN-VALUE.
    IF F_Ausgang = '' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
        OUTPUT TO VALUE(F_Ausgang).
        LEAVE.
    END.
    OUTPUT CLOSE.
    IF SEARCH(F_Ausgang) = ?            OR
       SEARCH(F_Ausgang) <> F_Ausgang   THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    OS-DELETE VALUE(F_Ausgang).
    */
END.

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


&Scoped-define SELF-NAME F_Eingang
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Eingang gDialog
ON LEAVE OF F_Eingang IN FRAME gDialog /* Eingangs-Datei */
DO:
    /*
    F_Eingang = SELF:SCREEN-VALUE.
    IF SEARCH(F_Eingang) = ? THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    */
END.

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


&UNDEFINE SELF-NAME

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


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

SESSION:DATA-ENTRY-RETURN = TRUE.

sOrdner = SESSION:TEMP-DIR.

&IF DEFINED(UIB_IS_RUNNING) = 0 &THEN          
    DYNAMIC-FUNCTION('SETDIALOGFLAG', INPUT TRUE ).
&ENDIF

{src/adm2/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gDialog  _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 disable_UI gDialog  _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 gDialog.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gDialog  _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_Eingang F_Ausgang F_Zeichen 
      WITH FRAME gDialog.
  ENABLE F_Eingang Btn_Eingang F_Ausgang F_Zeichen Btn_Ausgang Btn_OK 
         Btn_Cancel 
      WITH FRAME gDialog.
  VIEW FRAME gDialog.
  {&OPEN-BROWSERS-IN-QUERY-gDialog}
END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipFeld      AS INT                  NO-UNDO.

    DEF VAR VDateiname      AS CHAR                     NO-UNDO.
    DEF VAR Ja              AS LOG                      NO-UNDO.
    DEF VAR ii              AS INT                      NO-UNDO.

    CASE ipFeld:
        WHEN 1 THEN DO:
            IF F_Eingang > '' THEN VDateiname = F_Eingang.
            SYSTEM-DIALOG GET-FILE VDateiname
                FILTERS     'csv Dateien' '*.csv',
                            '(alle Dateien)' '*.*'
                INITIAL-DIR sOrdner
                MUST-EXIST
                TITLE 'Eingabe Datei'
                USE-FILENAME
                UPDATE Ja.
        END.
        WHEN 2 THEN DO:
            IF F_Ausgang > '' THEN VDateiname = F_Ausgang.
            SYSTEM-DIALOG GET-FILE VDateiname
                FILTERS     'Progress Export' '*.pro',
                            '(alle Dateien)' '*.*'
                INITIAL-DIR sOrdner
                TITLE 'Ausgabe Datei'
                SAVE-AS ASK-OVERWRITE
                USE-FILENAME
                UPDATE Ja.
        END.
    END CASE.

    IF NOT Ja THEN RETURN.
    IF ipFeld = 1 THEN F_Eingang = VDateiname.
    IF ipFeld = 2 THEN F_Ausgang = VDateiname.
    ii = R-INDEX(VDateiname, '\').
    DO WHILE TRUE:
        IF ii = 0 THEN LEAVE.
        sOrdner = SUBSTRING(VDateiname,01,ii - 1).
        LEAVE.
    END.
    ii = R-INDEX(VDateiname, '/').
    DO WHILE TRUE:
        IF ii = 0 THEN LEAVE.
        sOrdner = SUBSTRING(VDateiname,01,ii - 1).
        LEAVE.
    END.

END PROCEDURE.

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

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

    DEF VAR VInZeile    AS CHAR                         NO-UNDO.
    DEF VAR VOutZeile   AS CHAR                         NO-UNDO.
    DEF VAR ii          AS INT                          NO-UNDO.
    DEF VAR jj          AS INT                          NO-UNDO.
            
    INPUT  STREAM In_Stream   FROM VALUE(F_Eingang) NO-ECHO NO-MAP.
    OUTPUT STREAM Out_Stream  TO   VALUE(F_Ausgang) NO-ECHO NO-MAP.

    REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print:
        IMPORT STREAM In_Stream UNFORMATTED VInZeile.
        ii = NUM-ENTRIES(VInZeile, F_Zeichen ).
        VOutZeile = ''.
        DO jj = 1 TO ii:
            VOutZeile = VOutZeile + '"' + ENTRY(jj, VInZeile, F_Zeichen ) + '"'.
            IF jj < ii THEN VOutZeile = VOutZeile + ' '.
        END.
        PUT STREAM Out_Stream CONTROL VOutZeile CHR(10).
    END.

    INPUT  CLOSE.
    OUTPUT CLOSE.

END PROCEDURE.

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