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