Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml =================================================================== diff -u -r56009 -r56058 --- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml (.../SpaceTowerFysStockBepaler.cls.xml) (revision 56009) +++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml (.../SpaceTowerFysStockBepaler.cls.xml) (revision 56058) @@ -31,13 +31,15 @@ #dim ORDNrNode As %String = "" #dim OLUNrNode As %String = "" - For { Set ORDNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode)) Quit:ORDNrNode="" - Set Order = ..OrderApi.GeefOrder(ORDNrNode) - If (Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Gesloten()) { - For { Set OLUNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode,OLUNrNode)) Quit:OLUNrNode="" - Set OrderLijn = Order.GeefOrderLijn(OLUNrNode) - If ((OrderLijn.GeefAxConfigId() = AxConfigId) && (OrderLijn.GeefToeleveringLijnNr()="KOM")) { - Set SpaceTowerFysStock = SpaceTowerFysStock + OrderLijn.GeefAantal() + If ($$$HasLength(SpaceTowerPRNr)) { + For { Set ORDNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode)) Quit:ORDNrNode="" + Set Order = ..OrderApi.GeefOrder(ORDNrNode) + If (Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Gesloten()) { + For { Set OLUNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode,OLUNrNode)) Quit:OLUNrNode="" + Set OrderLijn = Order.GeefOrderLijn(OLUNrNode) + If ((OrderLijn.GeefAxConfigId() = AxConfigId) && (OrderLijn.GeefToeleveringLijnNr()="KOM")) { + Set SpaceTowerFysStock = SpaceTowerFysStock + OrderLijn.GeefAantal() + } } } } Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler/Test.cls.xml =================================================================== diff -u --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler/Test.cls.xml (revision 0) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler/Test.cls.xml (revision 56058) @@ -0,0 +1,42 @@ + + + +vhUnitTest.TestCase + + +DOM.VKP.OrderAPI +1 + + + +aTestName:%String + + + + + + + + +1 +AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.SpaceTowerFysStockBepaler + + + + + +