Beperkte gegevens van het Derde.Klant.Klant object met overeenkomstig ID 1 %RegisteredObject,%XML.Adaptor 0 %String 0 %String 0 %String 0 %String 0 %String 0 %String 0 %String 0 %String 0 %String 0 %String 0 OPGELET !!! KortingPercentage als getal tussen 0 en 100 !!! %String 0 %String %String gebruik maken van SOAP/WebService]]> 1 code KLNr:%String 1 WS.TBX.KlantMini geen info Set Mini=##class(WS.TBX.KlantMini).%New() Set Mini.Naam=KL.Naam Set Mini.Nummer=KL.Nummer Set Mini.StraatNrBus=KL.StraatNrBus Set Mini.PostNr=KL.Postnummer Set Mini.WoonPlaats=KL.Woonplaats Set Mini.Telefoon=KL.Telefoon1 Set Mini.Fax=KL.Telefax Set Mini.EMail=KL.EmailAdres ; TO DO : Get E-mail adres from contactpersoon Set Mini.Taal=KL.Taal ;Set Mini.PrijsKlasse=$$PRIJSKL^KLANT(KLNr,$$$GenPRNrTBX) Set Mini.Korting="" ; Bulk Settings ; wordt nog niet gebruikt, enkel ter voorbereiding voor later Set lbBulkConfig="" ;Set lbBulkConfig=##class(cspBasis.GAProdTBox).GetKlantBulk(sDomVERW,KLNr) Set KlantVPK=##class(BL.PR.GA.TandemBox).GetKlantVerpakking(KLNr) Set:($L(KlantVPK)) lbBulkConfig=$LB(KlantVPK,1) Set Mini.BulkVPKCode=$LG(lbBulkConfig,1) Set Mini.BulkMinQty=$LG(lbBulkConfig,2) ; Close KL and return Mini Set KL="" Quit Mini ]]>