Index: vhDeploy/D20201223xPavanelloRechtstreekseLeveringen.cls.xml =================================================================== diff -u --- vhDeploy/D20201223xPavanelloRechtstreekseLeveringen.cls.xml (revision 0) +++ vhDeploy/D20201223xPavanelloRechtstreekseLeveringen.cls.xml (revision 63265) @@ -0,0 +1,19 @@ + + + +vhDeploy.Deploy + + +%String +ConfigItem Pavanello rechtstreekse levering. + + + +1 + + + + + + Index: DOM/common/ProjectSettingsAPI.cls.xml =================================================================== diff -u -r62813 -r63265 --- DOM/common/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 62813) +++ DOM/common/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 63265) @@ -150,6 +150,16 @@ %Boolean + +1 +%Boolean + + + +1 +%Boolean + + 1 %Boolean Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml =================================================================== diff -u -r62674 -r63265 --- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml (.../Test.cls.xml) (revision 62674) +++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml (.../Test.cls.xml) (revision 63265) @@ -40,6 +40,8 @@ Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New() Do ProjectSettingsApiMock.IndienMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True) Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True) + Do ProjectSettingsApiMock.IndienMethodCall("IsActiefPavanelloNaarEindklant").DanReturn($$$True) + Do ProjectSettingsApiMock.IndienMethodCall("IsActiefFerexpertNaarEindklant").DanReturn($$$True) Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock) Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Dupont)) @@ -53,6 +55,8 @@ + + + + + + + + Index: BL/Flow/Levering/Label.cls.xml =================================================================== diff -u -r62357 -r63265 --- BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 62357) +++ BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 63265) @@ -229,7 +229,7 @@ Set ..pxLabelProduct.Product=$S(Taal="N":"Product",Taal="F":"Produit",Taal="D":"Product",1:"Product") #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr) #dim StandaardLogo As %String = "logo\Logo VHZwart.svg" - If '(KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant()) { + If (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant()) { Set ..pxLabelKlant.Logo = StandaardLogo } ElseIf(KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()) { Set ..pxLabelKlant.Logo = StandaardLogo Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r62302 -r63265 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 62302) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 63265) @@ -460,7 +460,8 @@ Set ..CheckDigitLevNr=$$CalcCDigit6^vhRtn2(BONNr) Set ..BarCodeBONNr=BONNr - If (AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleNL) || ((AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant())) { + If (AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleNL) || + ((AfzenderHoofdingDto.HeaderType = HoofdingType.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant())){ Set ..LEVERINGSNR="" Set ..CheckDigitLevNr="" } Index: vhDeploy/D20201223xFerexpertRechtstreekseLeveringen.cls.xml =================================================================== diff -u --- vhDeploy/D20201223xFerexpertRechtstreekseLeveringen.cls.xml (revision 0) +++ vhDeploy/D20201223xFerexpertRechtstreekseLeveringen.cls.xml (revision 63265) @@ -0,0 +1,19 @@ + + + +vhDeploy.Deploy + + +%String +ConfigItem Ferexpert rechtstreekse levering. + + + +1 + + + + + + Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml =================================================================== diff -u -r62171 -r63265 --- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml (.../DataMBonAbstract.cls.xml) (revision 62171) +++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml (.../DataMBonAbstract.cls.xml) (revision 63265) @@ -452,7 +452,13 @@ If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant() { Set Resultaat = $$$True } - + If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).Pavanello()) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefPavanelloNaarEindklant() { + Set Resultaat = $$$True + } + If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).Ferexpert()) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefFerexpertNaarEindklant() { + Set Resultaat = $$$True + } + If ((..GeefKlantID() = ##class(DOM.VKP.enu.Klant).DuPont()) && ($Piece(..NodeAdres,"\",29)="")) { Set Resultaat = $$$True } Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml =================================================================== diff -u -r62171 -r63265 --- vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml (.../Test.cls.xml) (revision 62171) +++ vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml (.../Test.cls.xml) (revision 63265) @@ -112,6 +112,46 @@ K ^KU1(..#Uitlevering,"F") ]]> + + + + + + + + Index: DOM/common/impl/PersonalityService.cls.xml =================================================================== diff -u -r62674 -r63265 --- DOM/common/impl/PersonalityService.cls.xml (.../PersonalityService.cls.xml) (revision 62674) +++ DOM/common/impl/PersonalityService.cls.xml (.../PersonalityService.cls.xml) (revision 63265) @@ -126,6 +126,12 @@ If ..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant() { Quit:(PersonalityID = ##class(DOM.common.enu.Personality).HaefeleBE()) $$$True } + If ..ProjectSettingsAPI.IsActiefPavanelloNaarEindklant() { + Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Pavanello()) $$$True + } + If ..ProjectSettingsAPI.IsActiefFerexpertNaarEindklant() { + Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Ferexpert()) $$$True + } Quit $$$False ]]> Index: DOM/common/impl/ProjectSettingsAPI.cls.xml =================================================================== diff -u -r62813 -r63265 --- DOM/common/impl/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 62813) +++ DOM/common/impl/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 63265) @@ -173,6 +173,18 @@ ]]> + +%Boolean + + + + +%Boolean + + + %Boolean + +%Boolean + + + %Boolean + +%Boolean + + + %Boolean