GeMIS_WEB/GUI/Tools/reorgdb.p

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
/*------------------------------------------------------------------------
    File        : 
    Purpose     :

    Syntax      :

    Description :

    Author(s)   :
    Created     :
    Notes       :
  ----------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

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

DEF VAR ImpPfad     AS CHAR                     NO-UNDO.
DEF VAR Datei       AS CHAR                     NO-UNDO.

DEF TEMP-TABLE TTabel   LIKE Tabel.
DEF TEMP-TABLE TSteuNr  LIKE SteuNr.
DEF TEMP-TABLE TDrucker LIKE Drucker.
DEF TEMP-TABLE TSchrift LIKE Schrift.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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



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



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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Procedure
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: CODE-ONLY COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Procedure ASSIGN
         HEIGHT             = 15
         WIDTH              = 60.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


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


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

{ SUPER/funktionen.i }

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

    GET-KEY-VALUE SECTION 'Export' KEY 'ExportDir'  VALUE ImpPfad.
    IF ImpPfad = ? THEN ImpPfad = ''.

    FOR EACH Aufze :
        IF Aufze.Trnr <> 0 THEN DO:
            FIND Artbw OF Aufze.
            DELETE  Artbw.
        END.
        DELETE  Aufze.
    END.
    FOR EACH AufGebKo :
        DELETE  AufGebKo.
    END.
    FOR EACH AufGKon :
        DELETE  AufGKon.
    END.
    FOR EACH AufRabSu :
        DELETE  AufRabSu.
    END.
    FOR EACH AufSpRab :
        DELETE  AufSpRab.
    END.
    FOR EACH Aufko :
        DELETE  Aufko.
    END.

    Datei = ImpPfad + '\SteuNr.d'.
    FOR EACH TSteuNr:
        DELETE  TSteuNr.
    END.
    Datei = SEARCH(Datei) NO-ERROR.
    IF Datei <> ? THEN DO:
        INPUT FROM VALUE(Datei) NO-ECHO.
        REPEAT:
            CREATE  TSteuNr.
            IMPORT  TSteuNr.
        END.
        DELETE  TSteuNr.
        INPUT CLOSE.
    END.
    FOR EACH TSteuNr:
        FIND SteuNr OF TSteuNr NO-ERROR.
        IF NOT AVAILABLE SteuNr THEN CREATE SteuNr.
        BUFFER-COPY TSteuNr TO SteuNr.
    END.

    Datei = ImpPfad + '\Tabel.d'.
    FOR EACH TTabel:
        DELETE  TTabel.
    END.
    Datei = SEARCH(Datei) NO-ERROR.
    IF Datei <> ? THEN DO:
        INPUT FROM VALUE(Datei) NO-ECHO.
        REPEAT ON ERROR UNDO, LEAVE:
            CREATE  TTabel.
            IMPORT  TTabel.
        END.
        DELETE TTabel.
        INPUT CLOSE.
    END.
    FOR EACH TTabel:
        FIND Tabel WHERE Tabel.Firma  = TTabel.Firma
                   AND   Tabel.RecArt = TTabel.RecArt
                   AND   Tabel.Sprcd  = TTabel.Sprcd
                   AND   Tabel.CodeI  = TTabel.CodeI 
                   AND   Tabel.CodeC  = TTabel.CodeC  NO-ERROR.
        IF NOT AVAILABLE Tabel THEN CREATE Tabel.
        BUFFER-COPY TTabel TO Tabel.
    END.

    Datei = ImpPfad + '\Drucker.d'.
    FOR EACH TDrucker:
        DELETE  TDrucker.
    END.
    Datei = SEARCH(Datei) NO-ERROR.
    IF Datei <> ? THEN DO:
        INPUT FROM VALUE(Datei) NO-ECHO.
        REPEAT ON ERROR UNDO, LEAVE:
            CREATE  TDrucker.
            IMPORT  TDrucker.
        END.
        DELETE TDrucker.
        INPUT CLOSE.
    END.
    FOR EACH TDrucker:
        FIND Drucker OF TDrucker NO-ERROR.
        IF NOT AVAILABLE Drucker THEN CREATE Drucker.
        BUFFER-COPY TDrucker TO Drucker.
    END.

    Datei = ImpPfad + '\Schrift.d'.
    FOR EACH TSchrift:
        DELETE  TSchrift.
    END.
    Datei = SEARCH(Datei) NO-ERROR.
    IF Datei <> ? THEN DO:
        INPUT FROM VALUE(Datei) NO-ECHO.
        REPEAT ON ERROR UNDO, LEAVE:
            CREATE  TSchrift.
            IMPORT  TSchrift.
        END.
        DELETE  TSchrift.
        INPUT CLOSE.
    END.
    FOR EACH TSchrift:
        FIND Schrift OF TSchrift NO-ERROR.
        IF NOT AVAILABLE Schrift THEN CREATE Schrift.
        BUFFER-COPY TSchrift TO Schrift.
    END.


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

QUIT.

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