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)