APPS.EC.KlantDataReferentieBepaler,DOM.common.PersonalityUnishopVisitor %String - %String 1 APPS.VKP.Offerte 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 } ]]> DestilPersonality:DOM.common.DestilPersonality DupontPersonality:DOM.common.DupontPersonality DaroPersonality:DOM.common.DaroPersonality HaefeleBEPersonality:DOM.common.HaefeleBEPersonality KischPersonality:DOM.common.KischPersonality SFSPersonality:DOM.common.SFSPersonality VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality HeinPersonality:DOM.common.HeinPersonality VanHoeckePersonality:DOM.common.VanHoeckePersonality VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality Personality:DOM.common.Personality Personality:DOM.common.Personality 1 0 { #dim Gebruiker As %String = DataService.GeefGebruikerData(GebruikerID).Naam Do ..VoegToeIndienNodig(Gebruiker) } #dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte) #dim KlantData As DOM.VKP.impl.KlantData = DataService.GeefKlantData(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: ") ]]> Offerte:APPS.VKP.Offerte 1 %String