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 @@