vhLib.Macro 1 %RegisteredObject,%XML.Adaptor 0 AFZADRES ColLeftWidth+ColRightWidth maximaal 128 !!!! Breedte op de afdruk %String %String BL.FOP.Basis.pxAttribType %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String : taal gespecifieerd door oproepende routine (N,F,D,E) ]]> KLNr:%String,Taal:%String=1 land aanpassen naar nederland If $L(..POSTCODE,"-")=1 Set ..POSTCODE=LANDCODE_"-"_..POSTCODE Set ..TELEFOON="TEL. "_oKlant.Telefoon1 Set ..FAX="FAX. "_oKlant.Telefax Set ..EMAIL=oKlant.EmailAdres Set ..T1="BTW: "_##class(BL.FOP.Derde.pxAdres).BtwNrTekst(oKlant.BTWnummer) Set HRNr=oKlant.HandelsregisterNummer If HRNr'="" Set ..T2="HR-nummer: "_HRNr Set Bank=oKlant.Bank Set IBANNr=oKlant.IBANNr Set BIC=oKlant.BIC If Bank="" Do . Set ..T3="Rekening: "_oKlant.Banknummer Else Do . Set ..T3="Bank: "_Bank . Set ..T4="IBAN: "_IBANNr . Set ..T5="BIC: "_BIC ]]>