APPS.EC.KlantDataReferentieBepaler,DOM.common.PersonalityUnishopVisitor %String - APPS.VKP.OfferteService 1 APPS.EC.DataService 1 %String 1 APPS.VKP.Offerte 1 DOM.common.impl.PersonalityService 1 APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler 1 OfferteService:APPS.VKP.OfferteService="",DataService:APPS.EC.DataService="",LeverAdresBepaler:APPS.EC.impl.KlantDataReferentieBepaler.LeverAdresBepaler="" 1 1 %Status 1 Offerte:APPS.VKP.Offerte %String Tekst:%String,Prefix:%String="" 1 0) { If ($Length(..KlantDataReferentie) > 0) { Set ..KlantDataReferentie = ..KlantDataReferentie _ ..#Delimiter } Set ..KlantDataReferentie = ..KlantDataReferentie _ Prefix _ Tekst } ]]> BeslagDesignPersonality:DOM.common.BeslagDesignPersonality DestilPersonality:DOM.common.DestilPersonality DupontPersonality:DOM.common.DupontPersonality HeinPersonality:DOM.common.HeinPersonality SeefelderPersonality:DOM.common.SeefelderPersonality DaroPersonality:DOM.common.DaroPersonality KischPersonality:DOM.common.KischPersonality VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality HaefeleBEPersonality:DOM.common.HaefeleBEPersonality HaefeleNLPersonality:DOM.common.HaefeleNLPersonality SFSPersonality:DOM.common.SFSPersonality VanHoeckePersonality:DOM.common.VanHoeckePersonality VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality Personality:DOM.common.Personality Personality:DOM.common.Personality 1 0) { #dim Gebruiker As %String = ..DataService.GeefGebruikerData(Personality.GeefID(), GebruikerID).Naam Do ..VoegToeIndienNodig(Gebruiker) } #dim KlantID As DOM.VKP.KlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte) #dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(Personality.GeefID(), KlantID) #dim Naam As %String = KlantData.Naam Do ..VoegToeIndienNodig(Naam) #dim Gemeente As %String = KlantData.Gemeente Do ..VoegToeIndienNodig(Gemeente) #dim Straat As %String = KlantData.StraatEnNr Do ..VoegToeIndienNodig(Straat) #dim Email As %String = KlantData.EmailAdres Do ..VoegToeIndienNodig(Email) #dim TEL As %String = KlantData.TelefoonNummer Do ..VoegToeIndienNodig(TEL, "Tel: ") #dim FAX As %String = KlantData.FaxNummer Do ..VoegToeIndienNodig(FAX, "Fax: ") #dim LeverAdres As %String = ..LeverAdresBepaler.GeefLeverAdres(..Offerte) Do ..VoegToeIndienNodig(LeverAdres, "Adres: ") ]]> Offerte:APPS.VKP.Offerte 1 %String