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 @@