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)