GeMIS_WEB/GUI/Tools/MakeAnschriftBrienfAnr.p

{ super/funktionen.i }
disable triggers for load of adresse.
def var cAnschrift as char.
def var ix as int.

for each Adresse where anrcd = ?:
    adresse.Anrcd = 4.
    cAnschrift = Adresse.Firma1         + CHR(11)
               + Adresse.Firma2         + CHR(11)
               + Adresse.Name           + CHR(11)
               + Adresse.Vorname        + CHR(11)
               + Adresse.Zusatz1        + CHR(11)
               + Adresse.Zusatz2        + CHR(11)
               + Adresse.Strasse        + CHR(11)
               + Adresse.Postfach       + CHR(11)
               + Adresse.Lkz            + CHR(11)
               + Adresse.Plz            + CHR(11)
               + Adresse.Ort            + CHR(11)
               + ''                     + CHR(11)
               + STRING(Adresse.Sprcd) + CHR(11)
               + STRING(Adresse.Anrcd).
    cAnschrift = DYNAMIC-FUNCTION('MAKEANSCHRIFT':U, cAnschrift) NO-ERROR.
    DO ix = 1 TO num-entries(cAnschrift, chr(11)):
        IF ix < 13 THEN Adresse.Anschrift[ix] = ENTRY(ix, cAnschrift, CHR(11) ).
        if ix = 13 then Adresse.Briefanr      = ENTRY(ix, cAnschrift, CHR(11) ).
    end.
end.