Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r70765 -r72286
--- DOM/common/impl/PersonalityService.cls.xml (.../PersonalityService.cls.xml) (revision 70765)
+++ DOM/common/impl/PersonalityService.cls.xml (.../PersonalityService.cls.xml) (revision 72286)
@@ -128,6 +128,14 @@
Quit:(PersonalityID = Personality.Martens) $$$True
Quit:(PersonalityID = Personality.Dozon) $$$True
Quit:(PersonalityID = Personality.BlumPL) $$$True
+ Quit:(PersonalityID = Personality.BlumPLCMeube) $$$True
+ Quit:(PersonalityID = Personality.BlumPLDemo) $$$True
+ Quit:(PersonalityID = Personality.BlumPLMeble) $$$True
+ Quit:(PersonalityID = Personality.BlumPLMebloa) $$$True
+ Quit:(PersonalityID = Personality.BlumPLMerkur) $$$True
+ Quit:(PersonalityID = Personality.BlumPLPakdrew) $$$True
+ Quit:(PersonalityID = Personality.BlumPLSAS) $$$True
+ Quit:(PersonalityID = Personality.BlumPLSchach) $$$True
Quit:(PersonalityID = Personality.DeceuninckDeforce) $$$True
If ..ProjectSettingsAPI.IsActiefDuPontNaarEindklant() {
Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Dupont()) $$$True
Index: vhDeploy/Deploy20231128LogosBlumPolenNieuweDistributeurs.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20231128LogosBlumPolenNieuweDistributeurs.cls.xml (revision 0)
+++ vhDeploy/Deploy20231128LogosBlumPolenNieuweDistributeurs.cls.xml (revision 72286)
@@ -0,0 +1,28 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+Nieuwe mapping voor logos van distributeurs van Blum Polen. Voor alle etiketten en leverbon.
+
+
+
+1
+
+
+
+
+
+
Index: DOM/common/BlumPLCMeubePersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLCMeubePersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLCMeubePersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: DOM/common/BlumPLMerkurPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLMerkurPersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLMerkurPersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r70765 -r72286
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml (.../Test.cls.xml) (revision 70765)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml (.../Test.cls.xml) (revision 72286)
@@ -34,7 +34,7 @@
while PersonalityIterator.HasNext() {
#dim PersonalityId as %String = PersonalityIterator.Next()
- if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth,..Personality.Kleiner,..Personality.Layer,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,..Personality.HaefeleSE,..Personality.HaefeleFI,..Personality.DSGroup,..Personality.HaefeleAT,..Personality.HaefeleIT,..Personality.HaefeleFR,..Personality.HaefeleDK,..Personality.HaefeleCH, ..Personality.HaefeleNO, ..Personality.Martens, ..Personality.Dozon, ..Personality.BlumPL, ..Personality.DeceuninckDeforce){
+ if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth,..Personality.Kleiner,..Personality.Layer,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,..Personality.HaefeleSE,..Personality.HaefeleFI,..Personality.DSGroup,..Personality.HaefeleAT,..Personality.HaefeleIT,..Personality.HaefeleFR,..Personality.HaefeleDK,..Personality.HaefeleCH, ..Personality.HaefeleNO, ..Personality.Martens, ..Personality.Dozon, ..Personality.BlumPL, ..Personality.DeceuninckDeforce, ..Personality.BlumPLCMeube, ..Personality.BlumPLDemo, ..Personality.BlumPLMeble, ..Personality.BlumPLMebloa, ..Personality.BlumPLMerkur, ..Personality.BlumPLPakdrew, ..Personality.BlumPLSAS, ..Personality.BlumPLSchach){
Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
} ElseIf ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.VanHoecke,..Personality.VanHoeckeVoorHalux,..Personality.SFS,..Personality.OPO,..Personality.Kisch,..Personality.Destil,..Personality.HaefeleBE,..Personality.VanRaemdonck,..Personality.Noteborn,..Personality.Daro,..Personality.BeslagDesign,..Personality.Demo,..Personality.Galimberti,..Personality.Pavanello,..Personality.Ferexpert,..Personality.Beslagteknikk,..Personality.YachtSupplier,..Personality.DeceuninckDeforce,..Personality.Pierard,..Personality.HahleOy,..Personality.BiemarBois,..Personality.CampeTonny, ..Personality.Dupont) {
Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
@@ -61,7 +61,7 @@
while PersonalityIterator.HasNext() {
#dim PersonalityId as %String = PersonalityIterator.Next()
- if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth,..Personality.Kleiner,..Personality.Layer, ..Personality.Dupont,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,..Personality.HaefeleSE,..Personality.HaefeleFI,..Personality.DSGroup,..Personality.HaefeleBE,..Personality.VanRaemdonck,..Personality.Pavanello,..Personality.Ferexpert,,..Personality.HaefeleAT,..Personality.HaefeleIT,..Personality.HaefeleDK,..Personality.HaefeleFR,..Personality.HaefeleCH, ..Personality.HaefeleNO, ..Personality.Martens, ..Personality.Dozon, ..Personality.BlumPL, ..Personality.DeceuninckDeforce){
+ if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth,..Personality.Kleiner,..Personality.Layer, ..Personality.Dupont,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,..Personality.HaefeleSE,..Personality.HaefeleFI,..Personality.DSGroup,..Personality.HaefeleBE,..Personality.VanRaemdonck,..Personality.Pavanello,..Personality.Ferexpert,,..Personality.HaefeleAT,..Personality.HaefeleIT,..Personality.HaefeleDK,..Personality.HaefeleFR,..Personality.HaefeleCH, ..Personality.HaefeleNO, ..Personality.Martens, ..Personality.Dozon, ..Personality.BlumPL, ..Personality.DeceuninckDeforce, ..Personality.BlumPLCMeube, ..Personality.BlumPLDemo, ..Personality.BlumPLMeble, ..Personality.BlumPLMebloa, ..Personality.BlumPLMerkur, ..Personality.BlumPLPakdrew, ..Personality.BlumPLSAS, ..Personality.BlumPLSchach){
Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
} ElseIf ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.VanHoecke,..Personality.VanHoeckeVoorHalux,..Personality.SFS,..Personality.OPO,..Personality.Kisch,..Personality.Destil,..Personality.Noteborn,..Personality.Daro,..Personality.BeslagDesign,..Personality.Demo,..Personality.Galimberti,..Personality.Beslagteknikk,..Personality.YachtSupplier,..Personality.DeceuninckDeforce,..Personality.Pierard,..Personality.HahleOy,..Personality.BiemarBois,..Personality.CampeTonny) {
Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r70668 -r72286
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml (.../Test.cls.xml) (revision 70668)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml (.../Test.cls.xml) (revision 72286)
@@ -85,6 +85,14 @@
Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Martens())
Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Dozon())
Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPL())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLCMeube())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDemo())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMeble())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMebloa())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMerkur())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLPakdrew())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLSAS())
+ Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLSchach())
Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Hein())
Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r70667 -r72286
--- DOM/common/enu/Personality.cls.xml (.../Personality.cls.xml) (revision 70667)
+++ DOM/common/enu/Personality.cls.xml (.../Personality.cls.xml) (revision 72286)
@@ -6,11 +6,11 @@
TECH.Enumeration
-,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,CampeTonny,Rini,Furnifit,YachtSupplier,DSGroup,DeBisschop,DeceuninckDeforce,Pierard,JBarth,HaefeleDE,Kleiner,Layer,HahleOy,HaefeleSE,HaefeleFI,HaefeleIT,HaefeleAT,OPO,HaefeleFR,HaefeleDK,HaefeleCH,HaefeleNO,Martens,Dozon,BlumPL
+,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,CampeTonny,Rini,Furnifit,YachtSupplier,DSGroup,DeBisschop,DeceuninckDeforce,Pierard,JBarth,HaefeleDE,Kleiner,Layer,HahleOy,HaefeleSE,HaefeleFI,HaefeleIT,HaefeleAT,OPO,HaefeleFR,HaefeleDK,HaefeleCH,HaefeleNO,Martens,Dozon,BlumPL,BlumPLMerkur,BlumPLCMeube,BlumPLDemo,BlumPLSAS,BlumPLSchach,BlumPLMebloa,BlumPLMeble,BlumPLPakdrew
-,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48
+,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56
@@ -354,6 +354,62 @@
]]>
+
+1
+DOM.common.enu.Personality
+
+
+
+
+1
+DOM.common.enu.Personality
+
+
+
+
+1
+DOM.common.enu.Personality
+
+
+
+
+1
+DOM.common.enu.Personality
+
+
+
+
+1
+DOM.common.enu.Personality
+
+
+
+
+1
+DOM.common.enu.Personality
+
+
+
+
+1
+DOM.common.enu.Personality
+
+
+
+
+1
+DOM.common.enu.Personality
+
+
+
1
ValueToBeIgnored...:TECH.String
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r70668 -r72286
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 70668)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 72286)
@@ -88,6 +88,14 @@
Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Martens())
Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Dozon())
Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPL())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLCMeube())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLDemo())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLMeble())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLMebloa())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLMerkur())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLPakdrew())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLSAS())
+ Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLSchach())
Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Hein())
Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: DOM/common/BlumPLMeblePersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLMeblePersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLMeblePersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r70667 -r72286
--- DOM/common/enu/Personality/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 70667)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 72286)
@@ -37,6 +37,62 @@
1
+
+%String
+"50"
+1
+1
+
+
+
+%String
+"52"
+1
+1
+
+
+
+%String
+"56"
+1
+1
+
+
+
+%String
+"55"
+1
+1
+
+
+
+%String
+"49"
+1
+1
+
+
+
+%String
+"51"
+1
+1
+
+
+
+%String
+"53"
+1
+1
+
+
+
+%String
+"54"
+1
+1
+
+
%String
"22"
Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r70667 -r72286
--- DOM/common/enu/Personality/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 70667)
+++ DOM/common/enu/Personality/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 72286)
@@ -20,6 +20,22 @@
Do ..VerwerkBiemarBois()
} ElseIf Personality = "48" {
Do ..VerwerkBlumPL()
+ } ElseIf Personality = "50" {
+ Do ..VerwerkBlumPLCMeube()
+ } ElseIf Personality = "52" {
+ Do ..VerwerkBlumPLDemo()
+ } ElseIf Personality = "56" {
+ Do ..VerwerkBlumPLMeble()
+ } ElseIf Personality = "55" {
+ Do ..VerwerkBlumPLMebloa()
+ } ElseIf Personality = "49" {
+ Do ..VerwerkBlumPLMerkur()
+ } ElseIf Personality = "51" {
+ Do ..VerwerkBlumPLPakdrew()
+ } ElseIf Personality = "53" {
+ Do ..VerwerkBlumPLSAS()
+ } ElseIf Personality = "54" {
+ Do ..VerwerkBlumPLSchach()
} ElseIf Personality = "22" {
Do ..VerwerkCampeTonny()
} ElseIf Personality = "28" {
@@ -135,6 +151,54 @@
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
1
1
Index: DOM/common/BlumPLMebloaPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLMebloaPersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLMebloaPersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: DOM/common/BlumPLDemoPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLDemoPersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLDemoPersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: WS/Halux/AAP/Deploy20231127AanmakenPersonalitiesVoorBlumPL.cls.xml
===================================================================
diff -u
--- WS/Halux/AAP/Deploy20231127AanmakenPersonalitiesVoorBlumPL.cls.xml (revision 0)
+++ WS/Halux/AAP/Deploy20231127AanmakenPersonalitiesVoorBlumPL.cls.xml (revision 72286)
@@ -0,0 +1,34 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+Aanmaken van enkele personalities voor Blum Polen
+
+
+
+1
+
+
+
+
+1
+PersonalityId:%Integer,PersonalityClassname:%String
+
+
+
+
+
+
Index: DOM/common/BlumPLSASPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLSASPersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLSASPersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: DOM/common/BlumPLSchachPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLSchachPersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLSchachPersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: DOM/common/BlumPLPakdrewPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLPakdrewPersonality.cls.xml (revision 0)
+++ DOM/common/BlumPLPakdrewPersonality.cls.xml (revision 72286)
@@ -0,0 +1,57 @@
+
+
+
+persistent
+1
+DOM.common.impl.HandelPersonality
+
+
+1
+DOM.common.impl.Personality
+
+
+
+
+DOM.enu.Taal
+
+
+
+
+Visitor:DOM.common.PersonalityVisitor
+
+
+
+
+DOM.common.LeverancierPersonalityData
+
+
+
+
+%Boolean
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+
+
+
+
+
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r70668 -r72286
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml (.../Test.cls.xml) (revision 70668)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml (.../Test.cls.xml) (revision 72286)
@@ -87,7 +87,15 @@
Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Martens())
Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Dozon())
Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPL())
-
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLCMeube())
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDemo())
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMeble())
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMebloa())
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMerkur())
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLPakdrew())
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLSAS())
+ Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLSchach())
+
Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Hein())
Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Zweygart())
Index: vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml
===================================================================
diff -u -r35990 -r72286
--- vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml (.../Test.cls.xml) (revision 35990)
+++ vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml (.../Test.cls.xml) (revision 72286)
@@ -30,7 +30,15 @@
Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).VanHoecke())
Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).VanHoeckeVoorHalux())
Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).Noteborn())
-
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLCMeube())
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLDemo())
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMeble())
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMebloa())
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMerkur())
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLPakdrew())
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLSAS())
+ Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLSchach())
+
#dim Filter As TECH.Filter = ##class(TECH.Filter.ValueBasedFilter).%New(Uitzonderingen)
#dim Iterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(##class(DOM.common.enu.Personality).ValueListIterator(),, Filter)