GeMIS_WEB/GUI/Tools/Adressuebername.p

DEF VAR Knr     AS INT                      NO-UNDO.

DEF TEMP-TABLE TExcel       FIELD Felder    AS CHAR     EXTENT 20.
DEF TEMP-TABLE TAdresse     LIKE Adresse.
DEF TEMP-TABLE TDebst       LIKE Debst  .

EMPTY TEMP-TABLE TExcel.
EMPTY TEMP-TABLE TAdresse.
EMPTY TEMP-TABLE TDebst  .

INPUT FROM "Gugger.csv" NO-ECHO.
REPEAT TRANSACTION ON STOP UNDO, LEAVE
                   ON ERROR undo, NEXT :
    CREATE  TExcel.
    IMPORT  DELIMITER ';' TExcel.
END.
INPUT CLOSE.
FIND FIRST TExcel. DELETE TExcel.
FOR EACH TExcel:
    IF Felder[01] = "herr"  THEN Felder[01] = "01".
    IF Felder[01] = "Frau"  THEN Felder[01] = "02".
    IF Felder[01] = ""      THEN Felder[01] = "04".
    IF Felder[01] = "Firma" THEN Felder[01] = "04".
    IF Felder[01] = "Herr + Frau" THEN Felder[01] = "06".
    IF Felder[01] = "Herrn + Frau" THEN Felder[01] = "06".
    IF Felder[01] = "Familie" THEN Felder[01] = "05".
END.

Knr = 3050.
FOR EACH TExcel.
    Knr = Knr + 1.
    CREATE  TAdresse.
    ASSIGN  TAdresse.Firma      = '1000'
            TAdresse.Knr        = Knr
            TAdresse.Adrart     = ''
            TAdresse.Suchbe     = Felder[03]
            TAdresse.NAME       = Felder[03]
            TAdresse.Zusatz1    = Felder[04]
            TAdresse.Strasse    = Felder[05]
            TAdresse.Lkz        = 'CH'
            TAdresse.Plz        = Felder[07]
            TAdresse.Ort        = Felder[08]
            TAdresse.Tel-1      = Felder[09]
            TAdresse.Tel-3      = Felder[10]
            TAdresse.Sprcd      = 1
            TAdresse.Anrcd      = INTEGER(Felder[01])
            TAdresse.ErfDat     = TODAY
            TAdresse.ErfSB      = "Autom"
            TAdresse.Aktiv      = TRUE.

    IF Felder[01] = '04' THEN DO:
        TAdresse.Firma1     = Felder[02].
        TAdresse.NAME       = ''.
    END.
    ELSE DO:
        TAdresse.Vorname = REPLACE(Felder[02], TAdresse.NAME, '').
        TAdresse.Vorname = TRIM(TAdresse.Vorname).
    END.
END.

FOR EACH TAdresse.
    CREATE  TDebst.
    ASSIGN  TDebst.Firma        = TAdresse.Firma
            TDebst.Knr          = TAdresse.Knr
            TDebst.Kond         = 01
            TDebst.MWST         = 02
            TDebst.Mahn         = 00
            TDebst.Vertr        = 20
            TDebst.ABC_Grp      = 01
            TDebst.Fak_Art      = 01
            TDebst.Preis_Grp    = 04
            TDebst.Rab_Grp      = 01
            TDebst.Bonus_Grp    = 01
            TDebst.Ku_Grp       = 07
            TDebst.Aktiv        = TRUE
            TDebst.FRW          = 'CHF'
            TDebst.Tour_Nr1     = 01
            TDebst.Ablad_Vor    = 01
            TDebst.Wirt_So      = 99
            TDebst.Konto        = '1100'
            TDebst.Geb_Rg       = TRUE
            TDebst.Passant      = FALSE
            TDebst.Bier_Cd      = 01.
END.

OUTPUT TO 'Adresse.d'.
FOR EACH TAdresse.
    EXPORT TAdresse.
END.
OUTPUT CLOSE.
OUTPUT TO 'Debst.d'.
FOR EACH TDebst.
    EXPORT TDebst.
END.
OUTPUT CLOSE.