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