Index: AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator/DataBouwer.cls.xml =================================================================== diff -u -r49296 -r49353 --- AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 49296) +++ AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 49353) @@ -38,17 +38,19 @@ #dim OrderLijnId As %String = AdminOrderLijn.GeefID() #dim ProductNr As %String = AdminOrderLijn.GeefProductID() #dim Aantal As %String = AdminOrderLijn.GeefAantal() + #dim AxInventTransId As %String = AdminOrderLijn.GeefAxInventTransId() #dim AantalInGlobal As %String = 0 - If (..ProductOrderLijnRepository.BestaatVolgensKlantNrOrderIdProductNr(KlantNr,OrderId,ProductNr)) { - Set AantalInGlobal = ..ProductOrderLijnRepository.GeefAantalVolgensKlantNrOrderIdProductNr(KlantNr,OrderId,ProductNr) - Do ..ProductOrderLijnRepository.VerwijderVolgensKlantNrOrderIdProductNr(KlantNr,OrderId,ProductNr) + If (..ProductOrderLijnRepository.BestaatVolgensKlantNrOrderIdProductNrAxInventTransId(KlantNr,OrderId,ProductNr,AxInventTransId)) { + Set AantalInGlobal = ..ProductOrderLijnRepository.GeefAantalVolgensKlantNrOrderIdProductNrAxInventTransId(KlantNr,OrderId,ProductNr,AxInventTransId) + Do ..ProductOrderLijnRepository.VerwijderVolgensKlantNrOrderIdProductNrAxInventTransId(KlantNr,OrderId,ProductNr,AxInventTransId) } #dim NieuweCombo As AXimpl.Controle.Order.ProductOrderLijn = ..ProductOrderLijnRepository.Maak() Set NieuweCombo.KlantNr = KlantNr Set NieuweCombo.OrderId = OrderId Set NieuweCombo.OrderLijnId = OrderLijnId Set NieuweCombo.ProductNr = ProductNr Set NieuweCombo.Aantal = Aantal + AantalInGlobal + Set NieuweCombo.AxInventTransId = AxInventTransId Do ..ProductOrderLijnRepository.Bewaar(NieuweCombo) } Index: AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml =================================================================== diff -u -r49275 -r49353 --- AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (.../ProductOrderLijnRepository.cls.xml) (revision 49275) +++ AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (.../ProductOrderLijnRepository.cls.xml) (revision 49353) @@ -8,13 +8,13 @@ AXimpl.Controle.Order.ProductOrderLijn - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String %Boolean - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String %String - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String 1 TECH.Iterator - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String %Boolean - -KlantNr:%String,OrderId:%String,ProductNr:%String -%Boolean - - - Data:TECH.Persistent - + @@ -41,20 +33,13 @@ ]]> - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String %String - -KlantNr:%String,OrderId:%String,ProductNr:%String -%String - - - ID:%String TECH.Persistent @@ -70,14 +55,12 @@ ID:%String - + - -KlantNr:%String,OrderId:%String,ProductNr:%String - + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String + Index: vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml =================================================================== diff -u -r49275 -r49353 --- vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml (.../Test.cls.xml) (revision 49275) +++ vhUnitTest/AXimpl/Controle/Order/ProductOrderLijnRepository/Test.cls.xml (.../Test.cls.xml) (revision 49353) @@ -8,21 +8,46 @@ 7 - + %String +"1456" + + + +%String +"2456" + + + +%String "1111" - + +%String +"2111" + + + %Integer -7913 +1789 - + +%Integer +2789 + + + %String "1000" + +%String +"2000" + + aTestName:%String - + - + + + + + - + - + - + - + - + - + - + + + + + + + + + AXimpl.Controle.Order.ProductOrderLijnRepository - + AantalProductOrderLijnen:%Integer 1 9) { - Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("AantalProductOrderLijnen mag maximaal 9 zijn. AantalProductOrderLijnen = '"_AantalProductOrderLijnen_"'") - Do ##class(TECH.ExceptionHandler).%New().Throw(Exceptie) + Do ..ThrowExceptie(AantalProductOrderLijnen) } #dim ProductOrderLijnNr As %Integer For ProductOrderLijnNr=1:1:AantalProductOrderLijnen { - Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr,99999_ProductOrderLijnNr) = "" - Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId,99999_ProductOrderLijnNr) = "" - Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr,99999_ProductOrderLijnNr) = "" - Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..KlantNr," "_..OrderId," "_..ProductNr,99999_ProductOrderLijnNr) = "" - Set ^AXimpl.Con7EC2.ProductOrdeAC5AD(99999_ProductOrderLijnNr) = $ListBuild("",..Aantal,..KlantNr,..OrderId,..ProductNr,00_ProductOrderLijnNr) + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr8,99998_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId8,99998_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr8,99998_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_..AxInventTransId8,99998_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..AxInventTransId8," "_..KlantNr8," "_..OrderId8," "_..ProductNr8,99998_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AD(99998_ProductOrderLijnNr) = $ListBuild("",..Aantal,..AxInventTransId8,..KlantNr8,..OrderId8,"00"_ProductOrderLijnNr,..ProductNr8) } ]]> + + +AantalProductOrderLijnen:%Integer +1 + 9) { + Do ..ThrowExceptie(AantalProductOrderLijnen) + } + + #dim ProductOrderLijnNr As %Integer + For ProductOrderLijnNr=1:1:AantalProductOrderLijnen { + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxKlantNr"," "_..KlantNr9,99999_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxOrderId"," "_..OrderId9,99999_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxProductNr"," "_..ProductNr9,99999_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("IdxAxInventTransId"," "_..AxInventTransId9,99999_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AI("UniqueIndex"," "_..AxInventTransId9," "_..KlantNr9," "_..OrderId9," "_..ProductNr9,99999_ProductOrderLijnNr) = "" + Set ^AXimpl.Con7EC2.ProductOrdeAC5AD(99999_ProductOrderLijnNr) = $ListBuild("",..Aantal,..AxInventTransId9,..KlantNr9,..OrderId9,"00"_ProductOrderLijnNr,..ProductNr9) + } +]]> + + + +AantalProductOrderLijnen:%Integer +1 + + Index: vhTest/Mock/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml =================================================================== diff -u -r49091 -r49353 --- vhTest/Mock/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (.../ProductOrderLijnRepository.cls.xml) (revision 49091) +++ vhTest/Mock/AXimpl/Controle/Order/ProductOrderLijnRepository.cls.xml (.../ProductOrderLijnRepository.cls.xml) (revision 49353) @@ -15,10 +15,10 @@ ]]> - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String %Boolean - @@ -35,10 +35,10 @@ ]]> - -KlantNr:%String,OrderId:%String,ProductNr:%String + +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String %String - @@ -61,9 +61,9 @@ ]]> - -KlantNr:%String,OrderId:%String,ProductNr:%String - +KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String + Index: AXimpl/Controle/Order/ProductOrderLijn.cls.xml =================================================================== diff -u -r49091 -r49353 --- AXimpl/Controle/Order/ProductOrderLijn.cls.xml (.../ProductOrderLijn.cls.xml) (revision 49091) +++ AXimpl/Controle/Order/ProductOrderLijn.cls.xml (.../ProductOrderLijn.cls.xml) (revision 49353) @@ -6,7 +6,7 @@ TECH.Persistent -KlantNr,OrderId,ProductNr +AxInventTransId,KlantNr,OrderId,ProductNr 1 @@ -22,10 +22,18 @@ ProductNr + +AxInventTransId + + %String + +%String + + %String @@ -34,11 +42,11 @@ %String - + %String - + %String @@ -59,17 +67,20 @@ Aantal -KlantNr +AxInventTransId -OrderId +KlantNr -ProductNr +OrderId OrderLijnId + +ProductNr +