%RegisteredObject,%XML.Adaptor 0 %Library.String %Library.String %Library.String %Library.String %String %String %String %String pxDerdeInfoPersoonCom list %String %String %String w ##class(BL.EC.Data).KlantInfo() 1 Klant:Derde.Klant.Klant,Array 1:$L(VerantwType,";"),1:1) Do . . Set oPersClone.VerantwType=$P(VerantwType,";",VerantwCnt) . . Set pxPersoon=..CreateKlant(oPersClone) . . Do Array.SetAt(pxPersoon,$I(VolgNr)) &sql(CLOSE FAPK2) ]]> 1 Array,Aantal 1 Klant:Derde.Klant.Klant,Array 1:$L(VerantwType,";"),1:1) Do . . Set pxPersoon=..%New() . . Do pxPersoon.Fill(Aanspreking,Naam,VoorNaam,eMail,Fax,Tel,GSM) . . Do pxPersoon.FillKlantSpecifiek($P(VerantwType,";",VerantwCnt)) . . Do pxPersoon.FillConnect(oPers) . . Do Array.SetAt(pxPersoon,$I(VolgNr)) &sql(CLOSE FAPK) ]]> 1 Lev:Derde.Lev.Lev,Array 1 oPers:Derde.Klant.Persoon oPers Aanspreking,Naam,VoorNaam,eMail,Fax,Tel,GSM VerantwType,BeslisNiveau="",PrivacyToelating="",VoorkeurDocument="" VerantwType