APPS.EC.KlantDataReferentieBepaler,DOM.common.PersonalityUnishopVisitor %String - APPS.VKP.OfferteService 1 %String 1 APPS.VKP.Offerte 1 OfferteService:APPS.VKP.OfferteService 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 } ]]> DestilPersonality:DOM.common.DestilPersonality DupontPersonality:DOM.common.DupontPersonality HeinPersonality:DOM.common.HeinPersonality DaroPersonality:DOM.common.DaroPersonality KischPersonality:DOM.common.KischPersonality VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality HaefeleBEPersonality:DOM.common.HaefeleBEPersonality 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(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: ") #dim LeverAdresInStringFormaat As %String = ..GeefLeverAdresInStringFormaat(..Offerte) Do ..VoegToeIndienNodig(LeverAdresInStringFormaat,"Adres: ") ]]> Offerte:APPS.VKP.Offerte 1 %String Offerte:APPS.VKP.Offerte 1