GeMIS_WEB/GUI/v8/xanschrift.i

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