Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml =================================================================== diff -u -r36334 -r36503 --- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml (.../KlantDataReferentieBepaler.cls.xml) (revision 36334) +++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml (.../KlantDataReferentieBepaler.cls.xml) (revision 36503) @@ -27,10 +27,12 @@ #dim Personality As DOM.common.Personality = Offerte.GeefPersonality() #dim OfferteService As APPS.VKP.OfferteService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService() + If OfferteService.HeeftOfferteVanHandel(Offerte) { #dim OfferteVanHandel As APPS.VKP.Offerte = OfferteService.GeefOfferteVanHandel(Offerte) Set Personality = OfferteVanHandel.GeefPersonality() } + Do Personality.Accept($this) Quit ..KlantDataReferentie @@ -41,11 +43,12 @@ Tekst:%String,Prefix:%String="" 1 0 { - If ($Length(..KlantDataReferentie)>0) { - Set ..KlantDataReferentie = ..KlantDataReferentie_..#Delimiter + If ($Length(Tekst) > 0) { + If ($Length(..KlantDataReferentie) > 0) { + Set ..KlantDataReferentie = ..KlantDataReferentie _ ..#Delimiter } - Set ..KlantDataReferentie = ..KlantDataReferentie_Prefix_Tekst + + Set ..KlantDataReferentie = ..KlantDataReferentie _ Prefix _ Tekst } ]]> @@ -62,38 +65,38 @@ ]]> + +HeinPersonality:DOM.common.HeinPersonality + + + DaroPersonality:DOM.common.DaroPersonality - -HaefeleBEPersonality:DOM.common.HaefeleBEPersonality - - KischPersonality:DOM.common.KischPersonality - -SFSPersonality:DOM.common.SFSPersonality - - VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality - -HeinPersonality:DOM.common.HeinPersonality - + +HaefeleBEPersonality:DOM.common.HaefeleBEPersonality + +SFSPersonality:DOM.common.SFSPersonality + + VanHoeckePersonality:DOM.common.VanHoeckePersonality