| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- /* ------------------------------------------------------------------------- */
- /* Zusammenstellen der Adresse aus Adressstamm (anschrift.i) */
- /* ------------------------------------------------------------------------- */
- LVAdx = "".
- VOrt = XAdresse.Ort.
- IF XAdresse.Lkz = GVLkz THEN VLkz = "".
- ELSE VLkz = XAdresse.Lkz.
- FIND Land OF XAdresse NO-LOCK NO-ERROR.
- IF AVAILABLE Land THEN DO:
- IF Land.LasLkz = 9 THEN DO:
- LVAdx[09] = Land.Latext.
- VLkz = "".
- END.
- DO i2 = 1 TO 3:
- IF Land.LasLkz = i2 THEN
- LVAdx[08] = TRIM(LVAdx[08] + " " + VLkz).
- IF Land.LasPlz = i2 THEN
- LVAdx[08] = TRIM(LVAdx[08] + " " + XAdresse.Plz).
- IF Land.LasOrt = i2 THEN
- LVAdx[08] = TRIM(LVAdx[08] + " " + VOrt).
- END.
- END.
- ELSE DO:
- LVAdx[08] = TRIM(VLkz + " " + XAdresse.Plz).
- LVAdx[08] = TRIM(LVAdx[08] + " " + VOrt).
- END.
- LVAdx[02] = XAdresse.Firma1.
- LVAdx[03] = XAdresse.Firma2.
- LVAdx[05] = XAdresse.Zusatz.
- LVAdx[06] = XAdresse.Strasse.
- LVAdx[07] = XAdresse.Postfach.
-
- FIND Anrede OF XAdresse NO-LOCK NO-ERROR.
- IF XAdresse.Firma1 = '' AND
- XAdresse.Firma2 = '' THEN LVAdx[01] = Anrede.Anradr.
- ELSE LVAdx[04] = Anrede.Anrzhv.
- IF XAdresse.Titel <> '' THEN LVAdx[04] = TRIM(LVAdx[04])
- + ' '
- + XAdresse.Titel.
- IF XAdresse.Vorname <> '' THEN LVAdx[04] = TRIM(LVAdx[04])
- + ' '
- + XAdresse.Vorname.
- LVAdx[04] = LVAdx[04] + ' ' + XAdresse.Name.
- LVAdx[04] = TRIM(LVAdx[04]).
-
- LVAdy = "".
- ix = 9.
- LVAdy[ix] = LVAdx[09].
- DO i2 = 8 TO 1 BY -1:
- IF LVAdx[i2] = '' THEN NEXT.
- ix = ix - 1.
- LVAdy[ix] = LVAdx[i2].
- END.
|
