Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test013AantalPickingbladEnVoormontageVerschillend/StartBatch/LBX voormontage_002_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68095 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test013AantalPickingbladEnVoormontageVerschillend/StartBatch/LBX voormontage_002_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_002_GekoppeldeIK_MattenLijst.txt) (revision 68095)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test013AantalPickingbladEnVoormontageVerschillend/StartBatch/LBX voormontage_002_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_002_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -3,11 +3,11 @@
EUROPARK-NOORD 7 LBX Mattenlijst (PROBOX) Probox 14-11-14
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 497 |
- 2222 | 5 |AS-Fiber Antraciet | 243 | 1500 | - | 522 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222 | 1 | |AS-Fiber Antraciet | 273 | 1500 | - | 497 |
+ 2222 | 5 | 6 |AS-Fiber Antraciet | 243 | 1500 | - | 522 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhDeploy/Deploy20230411UpdatePasDocMattenlijst.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230411UpdatePasDocMattenlijst.cls.xml (revision 0)
+++ vhDeploy/Deploy20230411UpdatePasDocMattenlijst.cls.xml (revision 70831)
@@ -0,0 +1,38 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+Extra kolom Tot#
+
+
+
+1
+
+
+
+
+
+
Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml
===================================================================
diff -u -r61929 -r70831
--- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 61929)
+++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 70831)
@@ -70,8 +70,34 @@
#dim LijstAantallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New("")
#dim ObjectIsMat As %Boolean = $$$False
- while UitvoeringLijstIterator.HasNext() {
+ //Berekenen en schrijven van property TotaalAantalMattenInToelevering
+ #dim UitgebreideUitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
+ #dim HuidigeMat, VorigeMat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ""
+ #dim AantalMattenVoorDezeToelevering As %Integer = 0
+ while UitvoeringLijstIterator.HasNext() {
#dim Object = UitvoeringLijstIterator.Next()
+ Set HuidigeMat = Object
+
+ If ($IsObject(Object) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
+ If ((VorigeMat = "") || ($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+ Set AantalMattenVoorDezeToelevering = AantalMattenVoorDezeToelevering + HuidigeMat.Aantal
+ }
+
+ If ($$$Not(VorigeMat = "") && $$$Not($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+ Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+ Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal
+ }
+ Set VorigeMat = HuidigeMat
+ }
+ }
+ If $IsObject(VorigeMat) {
+ Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+ }
+ Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+
+ //Matten met zelfde dimensies groeperen
+ while UitvoeringLijstIterator.HasNext() {
+ Set Object = UitvoeringLijstIterator.Next()
#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Object.BatchID)
If ( $IsObject(Object) && (..IsProductiegroepKast(Batch) || (..IsProductiegroepProbox(Batch))) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
@@ -82,7 +108,8 @@
#dim Mat2 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = SamengesteldeLijstIterator.Next()
If ((Mat.ToeDos = Mat2.ToeDos) && (Mat.Diepte = Mat2.Diepte) && (Mat.Breedte = Mat2.Breedte) && (Mat.MateriaalId = Mat2.MateriaalId) && (Mat.KleurId = Mat2.KleurId) && (Mat.BewerkingBreedte = Mat2.BewerkingBreedte) && (Mat.BewerkingDiepte = Mat2.BewerkingDiepte)){
Set OvereenkomstigeMatGevonden = $$$True
- Set Mat2.Aantal= Mat2.Aantal+Mat.Aantal
+ Set Mat2.Aantal = Mat2.Aantal + Mat.Aantal
+ Set Mat2.TotaalAantalMattenInToelevering = Mat.TotaalAantalMattenInToelevering
}
}
If (SamengesteldeLijst.Count() = 0 || $$$Not(OvereenkomstigeMatGevonden)) {
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test001/ResetBatch/LBX voormontage_004_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68095 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test001/ResetBatch/LBX voormontage_004_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_004_GekoppeldeIK_MattenLijst.txt) (revision 68095)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test001/ResetBatch/LBX voormontage_004_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_004_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -6,10 +6,10 @@
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000
09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222:LI7K | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222:LI7K | 1 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Baliko/ResetBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68101 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Baliko/ResetBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 68101)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Baliko/ResetBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -6,10 +6,10 @@
B-9100 SINT-NIKLAAS Lijn:T1 Batch:15000
09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222:LI7L | 1 |AS-Fiber Zwart | 373 | 1500 | - | 835.5 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222:LI7L | 1 | 1 |AS-Fiber Zwart | 373 | 1500 | - | 835.5 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Valigne/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68101 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Valigne/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 68101)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Valigne/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -6,10 +6,10 @@
B-9100 SINT-NIKLAAS Lijn:T1 Batch:15000
09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222:LI7L | 1 |AS-Fiber Zwart | 373 | 1500 | - | 835.5 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222:LI7L | 1 | 1 |AS-Fiber Zwart | 373 | 1500 | - | 835.5 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68101 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt (.../Productie_012_GekoppeldeIK_MattenLijst.txt) (revision 68101)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt (.../Productie_012_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -3,14 +3,14 @@
EUROPARK-NOORD 7 TBX Mattenlijst (PROBOX) X 15-11-14
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2221 | 2 |AS-Fiber Zwart | 473 | 1500 | - | 360 |
- | | | | | | |
- 2222 | 4 |AS-Fiber Zwart | 473 | 1500 | - | 360 |
- 2222 | 1 |AS-Fiber Zwart | 423 | 1500 | - | 515 |
- 2222 | 1 |AS-Fiber Antraciet | 323 | 1500 | - | 984 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2221 | 2 | 2 |AS-Fiber Zwart | 473 | 1500 | - | 360 |
+ | | | | | | | |
+ 2222 | 4 | |AS-Fiber Zwart | 473 | 1500 | - | 360 |
+ 2222 | 1 | |AS-Fiber Zwart | 423 | 1500 | - | 515 |
+ 2222 | 1 | 6 |AS-Fiber Antraciet | 323 | 1500 | - | 984 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test014MetGekoppeldeMat/StartBatch/LBX voormontage_003_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68095 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test014MetGekoppeldeMat/StartBatch/LBX voormontage_003_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_003_GekoppeldeIK_MattenLijst.txt) (revision 68095)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test014MetGekoppeldeMat/StartBatch/LBX voormontage_003_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_003_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -3,12 +3,12 @@
EUROPARK-NOORD 7 LBX Mattenlijst (PROBOX) Probox 14-11-14
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222 | 3 |AS-Fiber Zwart | 473 | 1500 | 460 | 1158 |
- 2222 | 1 |AS-Fiber Zwart | 473 | 1500 | - | 1158 |
- 2222 | 2 |AS-Fiber Antraciet | 473 | 526 | - | - |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222 | 3 | |AS-Fiber Zwart | 473 | 1500 | 460 | 1158 |
+ 2222 | 1 | |AS-Fiber Zwart | 473 | 1500 | - | 1158 |
+ 2222 | 2 | 6 |AS-Fiber Antraciet | 473 | 526 | - | - |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test004MetGekoppeldeMat/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68101 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test004MetGekoppeldeMat/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 68101)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test004MetGekoppeldeMat/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -3,10 +3,10 @@
EUROPARK-NOORD 7 TAX Mattenlijst (PROBOX) Probox 14-11-14
B-9100 SINT-NIKLAAS Lijn:T1 Batch:15000 09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222 | 1 |AS-Fiber Antraciet | 423 | 1500 | - | 903.5 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222 | 1 | 1 |AS-Fiber Antraciet | 423 | 1500 | - | 903.5 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test023CFMat/StartBatch/Productie_010_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68101 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test023CFMat/StartBatch/Productie_010_GekoppeldeIK_MattenLijst.txt (.../Productie_010_GekoppeldeIK_MattenLijst.txt) (revision 68101)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test023CFMat/StartBatch/Productie_010_GekoppeldeIK_MattenLijst.txt (.../Productie_010_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -3,10 +3,10 @@
EUROPARK-NOORD 7 TBX Mattenlijst (PROBOX) X 15-11-14
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2221 | 2 |Vinyl Bruin | 500 | 1500 | 473 | 360 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2221 | 2 | 2 |Vinyl Bruin | 500 | 1500 | 473 | 360 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Valigne/ResetBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68101 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Valigne/ResetBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 68101)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test001Valigne/ResetBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -6,10 +6,10 @@
B-9100 SINT-NIKLAAS Lijn:T1 Batch:15000
09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222:LI7L | 1 |AS-Fiber Zwart | 373 | 1500 | - | 835.5 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222:LI7L | 1 | 1 |AS-Fiber Zwart | 373 | 1500 | - | 835.5 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test010MetVHoss/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68095 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test010MetVHoss/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 68095)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test010MetVHoss/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -3,10 +3,10 @@
EUROPARK-NOORD 7 LBX Mattenlijst (VHOSS) VHoss 14-11-14
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222 | 10 |AS-Fiber Zwart | 423 | 1500 | - | 520 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222 | 10 | 10 |AS-Fiber Zwart | 423 | 1500 | - | 520 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r70386 -r70831
--- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 70386)
+++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 70831)
@@ -1204,8 +1204,34 @@
Set SamengesteldeLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
#dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
#dim LijstAantallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New("")
-
+
+ //Berekenen en schrijven van property TotaalAantalMattenInToelevering
#dim UitvoeringLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+ #dim HuidigeMat, VorigeMat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ""
+ #dim AantalMattenVoorDezeToelevering As %Integer = 0
+ while UitvoeringLijstIterator.HasNext() {
+ #dim Object = UitvoeringLijstIterator.Next()
+ Set HuidigeMat = Object
+
+ If ($IsObject(Object) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
+ If ((VorigeMat = "") || ($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+ Set AantalMattenVoorDezeToelevering = AantalMattenVoorDezeToelevering + HuidigeMat.Aantal
+ }
+
+ If ($$$Not(VorigeMat = "") && $$$Not($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+ Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+ Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal
+ }
+ Set VorigeMat = HuidigeMat
+ }
+ }
+
+ If $IsObject(VorigeMat) {
+ Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+ }
+ Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+
+ //Matten met zelfde dimensies groeperen
while UitvoeringLijstIterator.HasNext() {
#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= UitvoeringLijstIterator.Next()
#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
@@ -1216,8 +1242,9 @@
#dim Mat2 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= SamengesteldeLijstIterator.Next()
If ((Mat.ToeDos = Mat2.ToeDos) &&(Mat.Diepte = Mat2.Diepte) && (Mat.Breedte = Mat2.Breedte) && (Mat.MateriaalId = Mat2.MateriaalId) && (Mat.KleurId = Mat2.KleurId) && (Mat.BewerkingBreedte = Mat2.BewerkingBreedte) && (Mat.BewerkingDiepte = Mat2.BewerkingDiepte)){
Set OvereenkomstigeMatGevonden = $$$True
- Set Mat2.Aantal= Mat2.Aantal+Mat.Aantal
- }
+ Set Mat2.Aantal = Mat2.Aantal + Mat.Aantal
+ Set Mat2.TotaalAantalMattenInToelevering = Mat.TotaalAantalMattenInToelevering
+ }
}
If (SamengesteldeLijst.Count()=0 || $$$Not(OvereenkomstigeMatGevonden)){
Do SamengesteldeLijst.Insert(Mat)
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68095 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 68095)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -3,12 +3,12 @@
EUROPARK-NOORD 7 LBX Mattenlijst (PROBOX) Probox 14-11-14
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2224 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
- | | | | | | |
- 2223 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2224 | 1 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
+ | | | | | | | |
+ 2223 | 1 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/MattenUitvoeringInfo.cls.xml
===================================================================
diff -u -r37373 -r70831
--- APPS/Halux/PPS/Activiteit/impl/common/dto/MattenUitvoeringInfo.cls.xml (.../MattenUitvoeringInfo.cls.xml) (revision 37373)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/MattenUitvoeringInfo.cls.xml (.../MattenUitvoeringInfo.cls.xml) (revision 70831)
@@ -49,6 +49,10 @@
%String
+
+%Decimal
+
+
%String
1
@@ -147,6 +151,9 @@
MateriaalId
+
+TotaalAantalMattenInToelevering
+
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test001/StartBatch/LBX voormontage_004_GekoppeldeIK_MattenLijst.txt
===================================================================
diff -u -r68095 -r70831
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test001/StartBatch/LBX voormontage_004_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_004_GekoppeldeIK_MattenLijst.txt) (revision 68095)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test001/StartBatch/LBX voormontage_004_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_004_GekoppeldeIK_MattenLijst.txt) (revision 70831)
@@ -6,10 +6,10 @@
B-9100 SINT-NIKLAAS Lijn:1 Batch:15000
09:15
- ----------|----|------------------------|------|------|------------|------
- Toelev | # | Mat | D | B | ink D | ink B
- ----------|----|------------------------|------|------|------------|------
- 2222:LI7K | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
- ----------|----|------------------------|------|------|------------|------
+ ----------|----|------|-----------------------|------|------|-------|------
+ Toelev | # | Tot# | Mat | D | B | ink D | ink B
+ ----------|----|------|-----------------------|------|------|-------|------
+ 2222:LI7K | 1 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 |
+ ----------|----|------|-----------------------|------|------|-------|------
\ No newline at end of file
Index: APPS/Halux/PPS/Document/impl/GekoppeldeIK/Matten.cls.xml
===================================================================
diff -u -r64828 -r70831
--- APPS/Halux/PPS/Document/impl/GekoppeldeIK/Matten.cls.xml (.../Matten.cls.xml) (revision 64828)
+++ APPS/Halux/PPS/Document/impl/GekoppeldeIK/Matten.cls.xml (.../Matten.cls.xml) (revision 70831)
@@ -29,6 +29,7 @@
#dim List As List Of %String = ##class(%ListOfDataTypes).%New()
Do List.Insert("ToeDos")
Do List.Insert("Aantal")
+ Do List.Insert("TotaalAantalMattenInToelevering")
Do List.Insert("Beschrijving")
Do List.Insert("Diepte")
Do List.Insert("Breedte")
Index: APPS/Halux/PPS/DocumentDefinitie/GekoppeldeIK/MattenLijst.cls.xml
===================================================================
diff -u -r68095 -r70831
--- APPS/Halux/PPS/DocumentDefinitie/GekoppeldeIK/MattenLijst.cls.xml (.../MattenLijst.cls.xml) (revision 68095)
+++ APPS/Halux/PPS/DocumentDefinitie/GekoppeldeIK/MattenLijst.cls.xml (.../MattenLijst.cls.xml) (revision 70831)
@@ -17,10 +17,11 @@