Index: AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml (revision 0)
+++ AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml (revision 49091)
@@ -0,0 +1,113 @@
+
+
+
+TECH.RegisteredObject,TECH.Iterator
+
+
+AXimpl.Controle.Order.Admin.AdminOrderLijnIterator
+1
+
+
+
+AXimpl.Controle.Order.Admin.AdminOrderLijnConverter
+1
+
+
+
+AXimpl.Controle.Order.ProductOrderLijnRepository
+1
+
+
+
+TECH.Query.QueryAPI
+1
+
+
+
+TECH.ResultSet
+1
+
+
+
+TECH.ResultSetIterator
+1
+
+
+
+QueryAPI:TECH.Query.QueryAPI="",AdminOrderLijnIterator:AXimpl.Controle.Order.Admin.AdminOrderLijnIterator,Converter:AXimpl.Controle.Order.Admin.AdminOrderLijnConverter
+1
+1
+%Status
+1
+
+
+
+
+%Boolean
+
+
+
+
+AXimpl.Controle.Order.OrderLijn
+
+
+
+
+1
+
+
+
+
+1
+
+
+
+
+
+
Index: AXimpl/Controle/Order/ProductOrderLijn.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/Order/ProductOrderLijn.cls.xml (revision 0)
+++ AXimpl/Controle/Order/ProductOrderLijn.cls.xml (revision 49091)
@@ -0,0 +1,78 @@
+
+
+
+persistent
+1
+TECH.Persistent
+
+
+KlantNr,OrderId,ProductNr
+1
+
+
+
+KlantNr
+
+
+
+OrderId
+
+
+
+ProductNr
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Library.CacheStorage
+^AXimpl.Con7EC2.ProductOrdeAC5AD
+ProductOrderLijnDefaultData
+^AXimpl.Con7EC2.ProductOrdeAC5AD
+^AXimpl.Con7EC2.ProductOrdeAC5AI
+^AXimpl.Con7EC2.ProductOrdeAC5AS
+
+listnode
+
+
+%%CLASSNAME
+
+
+Aantal
+
+
+KlantNr
+
+
+OrderId
+
+
+ProductNr
+
+
+OrderLijnId
+
+
+
+
+
+
+
Index: vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnIterator/Test.cls.xml
===================================================================
diff -u -r44046 -r49091
--- vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnIterator/Test.cls.xml (.../Test.cls.xml) (revision 44046)
+++ vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnIterator/Test.cls.xml (.../Test.cls.xml) (revision 49091)
@@ -40,12 +40,10 @@
Set OrderIterator = ##class(TECH.ListIterator).%New(Orders)
- #dim ConverterDummy As AXimpl.Controle.Order.Admin.AdminOrderLijnConverter = ##class(vhTest.Dummy.AXimpl.Controle.Order.AdminOrderLijnConverter).%New()
+ #dim AdminOrderLijnIterator As AXimpl.Controle.Order.Admin.AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New(OrderIterator)
- #dim AdminOrderLijnIterator As AXimpl.Controle.Order.Admin.AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New(OrderIterator,ConverterDummy)
-
if $$$AssertTrue(AdminOrderLijnIterator.HasNext()) {
- Do $$$AssertEquals($ClassName(AdminOrderLijnIterator.Next()),"AXimpl.Controle.Order.OrderLijn")
+ Do $$$AssertEquals($ClassName(AdminOrderLijnIterator.Next()),"vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn")
}
]]>
Index: vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml
===================================================================
diff -u -r48428 -r49091
--- vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml (.../Test.cls.xml) (revision 48428)
+++ vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml (.../Test.cls.xml) (revision 49091)
@@ -8,6 +8,12 @@
1000
+
+%String
+"15"
+1
+
+
AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor
1
@@ -64,7 +70,7 @@
@@ -79,23 +85,23 @@
@@ -118,31 +124,23 @@
Set ..AxProductConvertor = AxProductConvertorMock
- #dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+ #dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
Do AxProductConvertorMock.Verifieer()
]]>
-
-
-
-
@@ -157,31 +155,31 @@
@@ -197,28 +195,36 @@
Do AxProductConvertorMock.VerwachtMethodCall("GeefBlumKunde",..#ProductId).DanDoeNiks()
Set ..AxProductConvertor = AxProductConvertorMock
- #dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+ #dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub, ..Aantal)
Do AxProductConvertorMock.Verifieer()
]]>
+
+
+
+
1
DOM.PM.impl.ProductImpl
Index: AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (revision 0)
+++ AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (revision 49091)
@@ -0,0 +1,76 @@
+
+
+
+TECH.Persistentie.impl.Repository,TECH.Mockable
+
+
+%String
+AXimpl.Controle.Order.ProductOrderLijn
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%Boolean
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%String
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+1
+TECH.Iterator
+
+
+
+
+1
+%Boolean
+
+
+
+
+
+
Index: AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml
===================================================================
diff -u -r44118 -r49091
--- AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 44118)
+++ AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 49091)
@@ -37,20 +37,8 @@
1
= 1 and salesline.SALESQTY >= 0 "
- _"and salesLine.DATAAREAID = 'VHBE' and salesline.PARTITION = '5637144576'"
- */
-
// Iteratie 2:
Set SqlStatement = "select salesLine.SalesId,salesLine.CustAccount,salesline.inventtransid,salesline.itemid,salesline.CONFIRMEDDLV,salesline.QtyOrdered"
- // Toevoeging velden iteratie 2...
_",isnull(( select -sum(qty) from inventtrans where INVENTTRANSORIGIN.RECID = inventtrans.INVENTTRANSORIGIN and INVENTTRANS.STATUSISSUE = 3 and "
_"inventtrans.STATUSRECEIPT = 0 and inventtrans.DATAAREAID = INVENTTRANSORIGIN.DATAAREAID and inventtrans.PARTITION = INVENTTRANSORIGIN.PARTITION),0) as GepickteHoeveelheid"
_",salesline.REMAINSALESPHYSICAL as OpenstaandeHoeveelheid"
@@ -60,15 +48,13 @@
_",isnull(LogisticsPostalAddress.City,'') as City"
_",isnull(LogisticsPostalAddress.Street,'') as Street"
_",isnull(LogisticsPostalAddress.Zipcode,'') as Zipcode"
- // Einde toevoeging velden iteratie 2, rest van iteratie 1...
_" from SALESLINE join inventdim on inventdim.INVENTDIMID = salesline.INVENTDIMID and inventdim.DATAAREAID = SALESLINE.DATAAREAID and inventdim.PARTITION = salesline.PARTITION "
_"join SALESTABLE on SALESTABLE.SALESID = salesline.SALESID and SALESTABLE.DATAAREAID = salesline.DATAAREAID and salestable.PARTITION = salesline.PARTITION "
_"left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = salesline.DELIVERYPOSTALADDRESS and LOGISTICSPOSTALADDRESS.PARTITION = salesline.PARTITION "
_"join INVENTTRANSORIGIN on INVENTTRANSORIGIN.INVENTTRANSID = salesline.INVENTTRANSID and INVENTTRANSORIGIN.DATAAREAID = salesline.DATAAREAID and "
- _"INVENTTRANSORIGIN.PARTITION = salesline.PARTITION where salestable.SALESSTATUS = 1 and salestable.DOCUMENTSTATUS >= 1 and salesline.SALESQTY >= 0 "
+ _"INVENTTRANSORIGIN.PARTITION = salesline.PARTITION where salestable.SALESSTATUS = 1 and salestable.SALESTYPE = 3 and salesline.SALESQTY >= 0 "
_"and salesLine.DATAAREAID = 'VHBE' and salesline.PARTITION = '5637144576'"
-
Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
]]>
Index: AXimpl/Controle/Order/Admin/AdminOrderLijnIterator.cls.xml
===================================================================
diff -u -r44046 -r49091
--- AXimpl/Controle/Order/Admin/AdminOrderLijnIterator.cls.xml (.../AdminOrderLijnIterator.cls.xml) (revision 44046)
+++ AXimpl/Controle/Order/Admin/AdminOrderLijnIterator.cls.xml (.../AdminOrderLijnIterator.cls.xml) (revision 49091)
@@ -8,21 +8,15 @@
1
-
-AXimpl.Controle.Order.Admin.AdminOrderLijnConverter
-1
-
-
-OrderIterator:TECH.Iterator="",Converter:AXimpl.Controle.Order.Admin.AdminOrderLijnConverter
+OrderIterator:TECH.Iterator=""
1
1
%Status
1
@@ -34,11 +28,8 @@
-AXimpl.Controle.Order.OrderLijn
-DOM.VKP.ProductOrderlijn
+
Index: AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml
===================================================================
diff -u -r48428 -r49091
--- AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml (.../AdminOrderLijnConverter.cls.xml) (revision 48428)
+++ AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml (.../AdminOrderLijnConverter.cls.xml) (revision 49091)
@@ -58,7 +58,7 @@
-AdminOrderLijn:DOM.VKP.ProductOrderlijn
+AdminOrderLijn:DOM.VKP.ProductOrderlijn,Aantal:%String
AXimpl.Controle.Order.OrderLijn
-
-
-AdminOrderLijn:DOM.VKP.ProductOrderlijn,Order:DOM.VKP.Order
-1
-%String
-
-
Index: AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml
===================================================================
diff -u -r44301 -r49091
--- AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml (.../OrderLijnControleGenerator.cls.xml) (revision 44301)
+++ AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml (.../OrderLijnControleGenerator.cls.xml) (revision 49091)
@@ -25,7 +25,7 @@
1
%String
-
-%String
-
-
%String
@@ -27,7 +23,7 @@
%String
-
+
%String
@@ -51,10 +47,6 @@
%String
-
-%String
-
-
%String
Index: vhTest/Fake/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (revision 0)
+++ vhTest/Fake/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (revision 49091)
@@ -0,0 +1,91 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+1
+AXimpl.Controle.Order.ProductOrderLijnRepository
+
+
+ID:%String
+%Boolean
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%Boolean
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%Boolean
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+Data:TECH.Persistent,Deep:%Boolean=0
+TECH.Persistent
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%String
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%String
+
+
+
+
+ID:%String
+TECH.Persistent
+
+
+
+
+TECH.Persistent
+
+
+
+
+ID:%String
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+
+
Index: vhTest/Mock/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (revision 0)
+++ vhTest/Mock/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (revision 49091)
@@ -0,0 +1,78 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+1
+AXimpl.Controle.Order.ProductOrderLijnRepository,Tools.Mock.MockClassBase
+right
+
+
+ID:%String
+%Boolean
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%Boolean
+
+
+
+
+Data:TECH.Persistent
+
+
+
+
+Data:TECH.Persistent,Deep:%Boolean=0
+TECH.Persistent
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+%String
+
+
+
+
+ID:%String
+TECH.Persistent
+
+
+
+
+TECH.Persistent
+
+
+
+
+ID:%String
+
+
+
+
+KlantNr:%String,OrderId:%String,ProductNr:%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+
+
Index: AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml
===================================================================
diff -u -r45041 -r49091
--- AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 45041)
+++ AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 49091)
@@ -13,15 +13,13 @@
Set ConvertedAxOrderLijn.Klant = ResultSet.GetData(2)
Set ConvertedAxOrderLijn.LeverDatum = $Piece(ResultSet.GetData(5)," ",1)
Set ConvertedAxOrderLijn.Product = ResultSet.GetData(4)
- Set ConvertedAxOrderLijn.VerkochtAantal = $$$ExcelNum(ResultSet.GetData(6))
Set ConvertedAxOrderLijn.VerkoopOrderId = ResultSet.GetData(1)
Set ConvertedAxOrderLijn.VerkoopOrderLijnId = ResultSet.GetData(3)
// Iteratie 2:
Set ConvertedAxOrderLijn.ConfigId = ResultSet.GetData(9)
- Set ConvertedAxOrderLijn.GepickteHoeveelheid = $$$ExcelNum(ResultSet.GetData(7))
+ Set ConvertedAxOrderLijn.Hoeveelheid = $$$ExcelNum(ResultSet.GetData(7) + ResultSet.GetData(8))
Set ConvertedAxOrderLijn.Land = ResultSet.GetData(11)
- Set ConvertedAxOrderLijn.OpenstaandeHoeveelheid = $$$ExcelNum(ResultSet.GetData(8))
Set ConvertedAxOrderLijn.Postcode = ResultSet.GetData(14)
Set ConvertedAxOrderLijn.Sopr = ResultSet.GetData(10)
Set ConvertedAxOrderLijn.Stad = ResultSet.GetData(12)