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
+