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