Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml
===================================================================
diff -u -r75010 -r75121
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml (.../DueOutProductieBepaler.cls.xml) (revision 75010)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml (.../DueOutProductieBepaler.cls.xml) (revision 75121)
@@ -65,18 +65,28 @@
} Else {
#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(KlantNummer))
#dim KlantOrderInstellingen As DOM.VKP.KlantOrderInstellingen = Klant.GeefKlantOrderInstellingen()
+ #dim HuidigeMesFase As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+ #dim IsCategorieTLM As %Boolean = ((Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) ||(Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) ||(Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()))
- If (IsKlantOIC || IsKlantHMPC) {
- Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("09:00")
- } ElseIf ..IsPersonalityVoorWegwerppallet(Klant, OrderID) {
- Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("16:00")
- } ElseIf KlantOrderInstellingen.MoetOpWegwerppallet() {
- Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("11:00")
- } ElseIf (##class(TECH.StringUtils).Equals(VerzendWijze.VerzendWijzeID, "DI1", "DD1", "DI2") && (Klant.GeefStandaardLeverAdres().GeefLand().GeefCode() = "NL")) {
- Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("12:00")
+ If (IsCategorieTLM && HuidigeMesFase > 1) {
+ If (##class(TECH.StringUtils).Equals(VerzendWijze.VerzendWijzeID, "DI1", "DD1") && (Klant.GeefStandaardLeverAdres().GeefLand().GeefCode() = "NL")) {
+ Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("16:00")
+ } Else {
+ Set DueOutProductieTime = VerzendWijze.DueOutProductieTimeOBJTMES()
+ }
} Else {
- Set DueOutProductieTime = VerzendWijze.DueOutProductieTime()
- }
+ If (IsKlantOIC || IsKlantHMPC) {
+ Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("09:00")
+ } ElseIf ..IsPersonalityVoorWegwerppallet(Klant, OrderID) {
+ Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("16:00")
+ } ElseIf KlantOrderInstellingen.MoetOpWegwerppallet() {
+ Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("11:00")
+ } ElseIf (##class(TECH.StringUtils).Equals(VerzendWijze.VerzendWijzeID, "DI1", "DD1", "DI2") && (Klant.GeefStandaardLeverAdres().GeefLand().GeefCode() = "NL")) {
+ Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("12:00")
+ } Else {
+ Set DueOutProductieTime = VerzendWijze.DueOutProductieTime()
+ }
+ }
}
Quit DueOutProductieTime
Index: vhUnitTest/APPS/VKP/impl/VerzendwijzeMock/Verzendwijze.cls.xml
===================================================================
diff -u -r59247 -r75121
--- vhUnitTest/APPS/VKP/impl/VerzendwijzeMock/Verzendwijze.cls.xml (.../Verzendwijze.cls.xml) (revision 59247)
+++ vhUnitTest/APPS/VKP/impl/VerzendwijzeMock/Verzendwijze.cls.xml (.../Verzendwijze.cls.xml) (revision 75121)
@@ -62,6 +62,10 @@
"`"
9
+
+"`"
+21
+
"`"
5
Index: DOM/VKP/VerzendWijze.cls.xml
===================================================================
diff -u -r59247 -r75121
--- DOM/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 59247)
+++ DOM/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 75121)
@@ -50,6 +50,10 @@
%Time
+
+%Time
+
+
Deprecated. Regio is gekoppeld aan de ID van de verzendwijze. Gebruik method GeefRegioID() instead.
@@ -281,6 +285,10 @@
"`"
9
+
+"`"
+21
+
"`"
5
Index: vhDeploy/D20250902xToevoegenDueOutProductieOBJTMES.cls.xml
===================================================================
diff -u
--- vhDeploy/D20250902xToevoegenDueOutProductieOBJTMES.cls.xml (revision 0)
+++ vhDeploy/D20250902xToevoegenDueOutProductieOBJTMES.cls.xml (revision 75121)
@@ -0,0 +1,214 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+DueOutProductieOBJTMES toevoegen voor ALLE verzendwijzen
+
+
+
+
+
+
+
+1
+
+
+
+
+1
+VerzendWijzeID:%String,KantelDoorsturenMagazijn:%String
+
+
+
+
+
+
Index: APPS/VKP/VerzendWijze.cls.xml
===================================================================
diff -u -r74751 -r75121
--- APPS/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 74751)
+++ APPS/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 75121)
@@ -278,6 +278,15 @@
]]>
+
+%Time
+
+
+
DueOutTime voor productie aantal dagen vroeger( 0 of 1)