Index: CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml
===================================================================
diff -u -r44640 -r47601
--- CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml (.../OrderSluiterFactory.cls.xml) (revision 44640)
+++ CHUI/VKP/OrderIngave/OrderSluiterFactory.cls.xml (.../OrderSluiterFactory.cls.xml) (revision 47601)
@@ -26,9 +26,11 @@
@@ -47,6 +49,18 @@
]]>
+
+OrdNr:%String
+1
+%Boolean
+
+
+
OrdNr:%String
1
Index: vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml
===================================================================
diff -u -r44548 -r47601
--- vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml (.../Test.cls.xml) (revision 44548)
+++ vhUnitTest/CHUI/VKP/OrderIngave/OrderSluiterFactory/Test.cls.xml (.../Test.cls.xml) (revision 47601)
@@ -12,7 +12,7 @@
Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
- Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+ #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
]]>
@@ -21,13 +21,14 @@
Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean( "TijdelijkOrderSluitenActief" , $$$False, ..#Applicatie)
Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+ Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("")
#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True)
Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
- Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+ #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
Do OrderAPIMock.Verifieer()
@@ -41,13 +42,14 @@
Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
Do OrderMock.VerwachtMethodCall("GeefOrderType").DanReturn(##class(DOM.VKP.enu.OrderType).Transfer())
Do OrderMock.VerwachtMethodCall("IsBevestigdKlantOrder").DanReturn($$$False)
+ Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("")
#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True)
Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
- Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+ #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
Do OrderAPIMock.Verifieer()
@@ -61,13 +63,14 @@
Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
Do OrderMock.VerwachtMethodCall("IsBevestigdKlantOrder").DanReturn($$$True)
+ Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("")
#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
Do OrderAPIMock.VerwachtMethodCall("BestaatOrder","1000").DanReturn($$$True)
Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
- Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+ #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.OrderSluiterv01).%ClassName(1))
Do OrderAPIMock.Verifieer()
@@ -88,13 +91,55 @@
Do OrderAPIMock.VerwachtMethodCall("GeefOrder","1000").DanReturn(OrderMock)
Set OrderSluiterFactory = ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New(OrderAPIMock)
- Set OrderSluiter = OrderSluiterFactory.GeefOrderSluiter("1000")
+ #dim OrderSluiter As TECH.RegisteredObject = OrderSluiterFactory.GeefOrderSluiter("1000")
Do $$$AssertEquals(OrderSluiter.%ClassName(1),##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%ClassName(1))
Do OrderAPIMock.Verifieer()
Do OrderMock.Verifieer()
]]>
+
+
+
+
+
+
+
+