GeMIS_WEB/update/update2webdb.p

DEFINE VARIABLE ii      AS INTEGER  NO-UNDO.
/*
FOR EACH benutzer:
    FIND users
        WHERE users.user_name  = benutzer.benutzer NO-ERROR.
    IF NOT AVAILABLE users THEN
    DO:
        CREATE  users.
        ASSIGN
            users.user_name  = benutzer.benutzer.
    END.
    ASSIGN
        users.display_name = benutzer.anzeige
        users.ROLE = (IF benutzer.admin THEN 'admin' ELSE 'user')
        users.ACTIVE = TRUE
        users.language_id = benutzer.sprcd
        users.company = benutzer.firma
        .
 END.

 FOR EACH Sprache:
    FIaddresses.active addresses.additional_1 addresses.additional_2 addresses.address[1] addresses.address[2] addresses.address[3] addresses.address[4] addresses.address[5] addresses.address[6] addresses.address[7] addresses.address[8] addresses.address[9] addresses.address[10] addresses.address[11] addresses.address[12] addresses.address_display addresses.address_fix addresses.address_id addresses.address_title addresses.address_type addresses.Cd01 addresses.Cd02 addresses.Cd03 addresses.Cd04 addresses.Cd05 addresses.Cd06 addresses.Cd07 addresses.Cd08 addresses.Cd09 addresses.Cd10 addresses.Cd11 addresses.Cd12 addresses.Cd13 addresses.Cd14 addresses.Cd15 addresses.city addresses.company addresses.company_name_1 addresses.company_name_2 addresses.country_code addresses.created_at addresses.create_by addresses.e-mail addresses.fax addresses.first_name addresses.function addresses.homepage addresses.language_id addresses.lapproved addresses.last_name addresses.letter_salutation addresses.mobile_business addresses.mobile_private addresses.phone_business addresses.phone_private addresses.postal_code addresses.po_box addresses.remarks addresses.salutation_code addresses.search_field addresses.street addresses.street_no addresses.updated_at addresses.updated_by addresses.wordindexND LANGUAGES
        WHERE LANGUAGES.language_id = Sprache.Sprcd.
    IF NOT AVAILABLE LANGUAGES THEN
    DO:
        CREATE  LANGUAGES.
        ASSIGN  LANGUAGES.language_id = Sprache.Sprcd.
    END.
    ASSIGN
        LANGUAGES.LANGUAGE_name = Sprache.Bez.
END.

FOR EACH Mandant:
    FIND companies
        WHERE companies.company = Mandant.Firma.
    IF NOT AVAILABLE companies THEN
    DO:
        CREATE  companies.
        ASSIGN  companies.company = Mandant.Firma.
    END.
    ASSIGN
        companies.company_name = Mandant.NAME.
END.

FOR EACH Berecht:
    FIND userauthorization
        WHERE userauthorization.company = berecht.mandant
        AND   userauthorization.user_name = berecht.benutzer
        AND   userauthorization.program = berecht.programm NO-ERROR.
    IF NOT AVAILABLE userauthorization THEN
    DO:
        CREATE  userauthorization.
        ASSIGN
            userauthorization.company = berecht.mandant
            userauthorization.user_name = berecht.benutzer
            userauthorization.program = berecht.programm.
    END.
    ASSIGN
        userauthorization.lcreate   = berecht.pwe
        userauthorization.ldelete   = berecht.pwl
        userauthorization.lquery    = berecht.pwa
        userauthorization.lspecial  = berecht.pws
        userauthorization.lupdate   = berecht.pwm.
END.
*/
CURRENT-VALUE(masterdata_id) = 0.
FOR EACH addresses:
    DELETE addresses.
END.
FOR EACH Adresse NO-LOCK WHERE Firma = '1000':
    CREATE  addresses.
    ASSIGN  addresses.address_id = NEXT-VALUE(masterdata_id).
    ASSIGN
        addresses.active            = Adresse.aktiv
        addresses.additional_1      = Adresse.Zusatz1
        addresses.additional_2      = Adresse.Zusatz2
        addresses.address_display   = Adresse.Anzeig_br
        addresses.address_fix       = Adresse.AnschrFix
        addresses.address_title     = Adresse.Titel
        addresses.address_type      = Adresse.AdrArt
        addresses.Cd01              = Adresse.Cd01
        addresses.Cd02              = Adresse.Cd02
        addresses.Cd03              = Adresse.Cd03
        addresses.Cd04              = Adresse.Cd04
        addresses.Cd05              = Adresse.Cd05
        addresses.Cd06              = Adresse.Cd06
        addresses.Cd07              = Adresse.Cd07
        addresses.Cd08              = Adresse.Cd08
        addresses.Cd09              = Adresse.Cd09
        addresses.Cd10              = Adresse.Cd10
        addresses.Cd11              = Adresse.Cd11
        addresses.Cd12              = Adresse.Cd12
        addresses.Cd13              = Adresse.Cd13
        addresses.Cd14              = Adresse.Cd14
        addresses.Cd15              = Adresse.Cd15
        addresses.city              = Adresse.Ort
        addresses.company           = Adresse.Firma
        addresses.company_name_1    = Adresse.Firma1
        addresses.company_name_2    = Adresse.Firma2
        addresses.country_code      = Adresse.Lkz
        addresses.created_at        = Adresse.erfDat
        addresses.create_by         = Adresse.erfSB
        addresses.e-mail            = Adresse.Mail
        addresses.fax               = Adresse.Tel-4
        addresses.first_name        = Adresse.Vorname
        addresses.function          = Adresse.Funktion
        addresses.homepage          = Adresse.homepage
        addresses.language_id       = Adresse.Sprcd
        addresses.lapproved         = Adresse.lFreigabe
        addresses.last_name         = Adresse.Name
        addresses.letter_salutation = Adresse.BriefAnr
        addresses.mobile_business   = Adresse.Natel
        addresses.mobile_private    = ''
        addresses.phone_business    = Adresse.Tel-1
        addresses.phone_private     = Adresse.Tel-2
        addresses.postal_code       = Adresse.Plz
        addresses.po_box            = Adresse.Postfach
        addresses.remarks           = Adresse.Bem
        addresses.salutation_code   = Adresse.Anrcd
        addresses.search_field      = Adresse.Suchbe
        addresses.street            = Adresse.Strasse
        addresses.street_no         = ''
        addresses.updated_at        = Adresse.MutDat
        addresses.updated_by        = Adresse.MutSB
        addresses.wordindex         = Adresse.WortIndex
        .
    DO ii = 1 TO 12:
        addresses.address[ii] = Adresse.Anschrift[ii].
    END.
END.
/*  Aus ERP Curaden */
/*
FOR EACH Laender NO-LOCK:
    CREATE  countries.
    ASSIGN
        countries.language_id      = Sprcd
        countries.city_pos         = LaSOrt
        countries.country_code     = Lkz
        countries.country_code_iso = ISO_Code
        countries.country_code_pos = LaSLkz
        countries.country_name     = Bezeichnung
        countries.postal_code_pos  = LaSPlz
        countries.EU_country       = EULand
        .
END.

FOR EACH salutations:
    DELETE salutations.
END.
FOR EACH Anrede NO-LOCK:
    CREATE  salutations.
    ASSIGN
        salutations.language_id         = Anrede.Sprcd
        salutations.letter_business     = Anrede.Anr_Text_G
        salutations.letter_privat       = Anrede.Anr_Text_P
        salutations.letterhead_business = Anrede.Anr_BK_G
        salutations.letterhead_privat   = Anrede.Anr_BK_P
        salutations.salutation          = Anrede.Anr_Anrede
        salutations.salutation_code     = Anrede.Anrcd
        salutations.salutation_display  = Anrede.Anr_Anzeige
        salutations.to_attention_of     = Anrede.Anr_zhv
        .
END.

FOR EACH Orte NO-LOCK:
    CREATE  cities.
    ASSIGN
        cities.country_code = Orte.Lkz
        cities.postal_code  = orte.plz
        cities.city         = Orte.Ort
        cities.wordindex    = Orte.lkz + ' ' + orte.plz + ' ' + orte.ort.
END.
*/