Partner Datensatz Import

Define(CheckForPerson)
  LocalVar(text)
  -> text
  text "Herr" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
  text "Frau" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
  text "Inhaber" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
  text "Inh." StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
  text "atten." StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
  FALSE
;

Define(GetName)
    LocalVar(name1, record, name2)
    -> record
    Truncate(BOTH) -> name1
    // Prüfen Mandant
    8 record GetElement Truncate(BOTH) Cardinality ifnot { FALSE return }
    // Prüfen Name 2
   1 record GetElement Truncate(BOTH) Dup -> name2 Cardinality ifnot { name1 return }
    // Prüfen auf Person im Namen 2
   name2 virtual::CheckForPerson if { name1 return }
   // Beide Felder ausgeben
   name1 " " + name2 +
;

Define(GetAddressAdditionalText)
    LocalVar(addressText, record, name2)
    -> record
    Truncate(BOTH) -> addressText
   // Prüfen Name 2
   1 record GetElement Truncate(BOTH) Dup -> name2 Cardinality ifnot { addressText return }
   // Prüfen auf Person im Namen 2
   name2 virtual::CheckForPerson ifnot { addressText return }
   // Name2 zusätzlich ausgeben
   addressText " " + name2 + Truncate(BOTH)
;

Define(IsPerson)
    LocalVar(record, field1, field2, field3)
    -> record
    // Wenn Vorname definiert, dann ist es eine Person
//    3 record GetElement Truncate(BOTH) Dup -> field3 Cardinality if { TRUE return }
    // Wenn Titel definiert, dann ist es eine Person
//    2 record GetElement Truncate(BOTH) Dup -> field2 Cardinality if { TRUE return }
    // Prüfen Anrede
    1 record GetElement Truncate(BOTH) -> field1
    // Wenn Herr/Frau/Fru/Eheleute/Familie/Mess/Miss/Mister/Mr./Mrs./Ms. vorkommt, dann ist es eine Person
    field1 "Herr" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Frau" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Fru" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Mess" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Miss" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Mr." StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Mrs." StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Ms." StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Eheleute" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    field1 "Familie" StringIFind(INDEX) is(INVALID) ifnot { TRUE return }
    // Ansonsten immer Firma
    FALSE
;

Define(GetLastName)
    LocalVar(name)
    Truncate(BOTH) -> name
    0 name StringVector(",") # GetElement Truncate(BOTH)
;

Define(GetFirstName)
    LocalVar(name)
    Truncate(BOTH) -> name
    1 name StringVector(",") # GetElement Truncate(BOTH)
;