Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r65634 -r65693
--- vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 65634)
+++ vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 65693)
@@ -1316,7 +1316,17 @@
Do OnError
}
Quit
-
+
+ShaduwKostprijzenVanNaarAX ;Ophalen van de kostprijs uit AX en bereken schaduwprijs voor sets en maatwerk
+ Try {
+ Do InitRuntimeContext
+ Do ##class(AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken).%New().Verwerk()
+ Do ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().Verwerk()
+ } Catch {
+ Do OnError
+ }
+ Quit
+
OnError
set $ztrap="EndErrorTrapping"
new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()
Index: AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml
===================================================================
diff -u -r50300 -r65693
--- AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 50300)
+++ AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 65693)
@@ -58,6 +58,8 @@
Set ProductOrderLijn=..GeefOrderLijn(KlantNr,OrderId,InventTransId)
Set AXData = ##class(AXimpl.Controle.OrdDiff.AX.OrderData).%New()
Set AXData.ItemId = ItemId
+
+ ;Set:(ProductNr="")||('$D(^KPR(ProductNr))) ProductNr=1793108 ;SERV.TRANSPORT - Product is nodig anders wordt de AX lijn genegeerd
Set AXData.ProductNr = ProductNr
Do AXData.ProductSetObjectId(ProductNr)
Index: AX/Uitgaand/EC/ServiceAX.cls.xml
===================================================================
diff -u -r63276 -r65693
--- AX/Uitgaand/EC/ServiceAX.cls.xml (.../ServiceAX.cls.xml) (revision 63276)
+++ AX/Uitgaand/EC/ServiceAX.cls.xml (.../ServiceAX.cls.xml) (revision 65693)
@@ -80,6 +80,11 @@
Set Status='$$$OK
}
+
+ If Status=$$$OK
+ {
+ Do ImportService.VerwijderHuidigeBestanden()
+ }
Quit Status
]]>
Index: AX/Uitgaand/EC/impl/ImportBestand.cls.xml
===================================================================
diff -u -r53262 -r65693
--- AX/Uitgaand/EC/impl/ImportBestand.cls.xml (.../ImportBestand.cls.xml) (revision 53262)
+++ AX/Uitgaand/EC/impl/ImportBestand.cls.xml (.../ImportBestand.cls.xml) (revision 65693)
@@ -148,6 +148,11 @@
Do ##class(TECH.File.impl.DirectoryUtils).%New().VerwijderBestandenOuderDan(..ExportDefaults.HistoryPad, $H-20)
]]>
+
+
+
+
Index: AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnenUpdater.cls.xml
===================================================================
diff -u -r52868 -r65693
--- AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnenUpdater.cls.xml (.../OrderLijnenUpdater.cls.xml) (revision 52868)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/OrderLijnenUpdater.cls.xml (.../OrderLijnenUpdater.cls.xml) (revision 65693)
@@ -102,6 +102,9 @@
#dim LEVNr As %String = $P($G(^KTO1(ToeleveringID)),"\")
Quit:'LEVNr
#dim R As %String = ^KTO(LEVNr,ToeleveringID,ToeleveringLijnNr)
+ If ((LEVNr = "6332") && ($P(R,"\",27) = "")) {
+ Set ^THBSpacetower($H,LEVNr,ToeleveringID,ToeleveringLijnNr,"AXimpl_OrderLijnenUpdater") = R
+ }
Set $P(R,"\",28)=NieuwLijnVolgNr
Set ^KTO(LEVNr,ToeleveringID,ToeleveringLijnNr)=R
If $D(^KTOK(LEVNr,ToeleveringID,ToeleveringLijnNr)) {
Index: AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml
===================================================================
diff -u -r63276 -r65693
--- AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml (.../VergelijkLijn.cls.xml) (revision 63276)
+++ AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml (.../VergelijkLijn.cls.xml) (revision 65693)
@@ -72,7 +72,7 @@