Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_013_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_013_GekoppeldeIK_MattenLijst.txt (revision 0) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_013_GekoppeldeIK_MattenLijst.txt (revision 72155) @@ -0,0 +1,14 @@ + + HALUX N.V. Blz: 1 + EUROPARK-NOORD 7 TBX Mattenlijst (PROBOX) X 15-11-14 + B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15 + + -----|-----------|----|-----------------------|------|------|-------|------ + Tot# | Toelev | # | Mat | D | B | ink D | ink B + -----|-----------|----|-----------------------|------|------|-------|------ + |2222 | 4 |AS-Fiber Zwart | 473 | 1500 | - | 360 | + |2222 | 1 |AS-Fiber Zwart | 423 | 1500 | - | 515 | + 6|2222 | 1 |AS-Fiber Antraciet | 323 | 1500 | - | 984 | + -----|-----------|----|-----------------------|------|------|-------|------ + + \ No newline at end of file Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_002_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_002_GekoppeldeIK_MattenLijst.txt (revision 0) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_002_GekoppeldeIK_MattenLijst.txt (revision 72155) @@ -0,0 +1,12 @@ + + HALUX N.V. Blz: 1 + EUROPARK-NOORD 7 LBX Mattenlijst (PROBOX) Probox 14-11-14 + B-9100 SINT-NIKLAAS Lijn:1 Batch:15000 09:15 + + -----|-----------|----|-----------------------|------|------|-------|------ + Tot# | Toelev | # | Mat | D | B | ink D | ink B + -----|-----------|----|-----------------------|------|------|-------|------ + 1|2223 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 | + -----|-----------|----|-----------------------|------|------|-------|------ + + \ No newline at end of file Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r72154 -r72155 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 72154) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 72155) @@ -1204,6 +1204,10 @@ 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("") + #dim UitvoeringLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) + + //Berekenen en schrijven van property TotaalAantalMattenInToelevering + Do ..ZetTotaalAantalMattenPerToelevering(UitvoeringLijstIterator) Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) //Matten met zelfde dimensies groeperen @@ -1249,7 +1253,8 @@ While SamengesteldeLijstIterator.HasNext() { Set Mat = SamengesteldeLijstIterator.Next() - If (Mat.ToeleveringID = ToeleveringID) { + If (Mat.ToeleveringID = ToeleveringID) { + Set Mat.TotaalAantalMattenInToelevering = "" Do SamengesteldeLijstPerToelevering.Insert(Mat) Set TotaalAantalMattenInToelevering = TotaalAantalMattenInToelevering + Mat.Aantal } @@ -1277,6 +1282,35 @@ ]]> + +UitvoeringLijstIterator:TECH.ListIterator +1 + + + SamengesteldeLijstIterator:TECH.ListIterator 1 Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml =================================================================== diff -u -r72154 -r72155 --- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72154) +++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72155) @@ -70,6 +70,10 @@ #dim LijstAantallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New("") #dim ObjectIsMat As %Boolean = $$$False + //Berekenen en schrijven van property TotaalAantalMattenInToelevering + Do ..ZetTotaalAantalMattenPerToelevering(UitvoeringLijstIterator) + Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) + Do ..GroepeerTiponSynchronisatiestangen(UitvoeringLijstIterator) Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) @@ -112,7 +116,8 @@ While SamengesteldeLijstIterator.HasNext() { Set Mat = SamengesteldeLijstIterator.Next() - If (Mat.ToeleveringID = ToeleveringID) { + If (Mat.ToeleveringID = ToeleveringID) { + Set Mat.TotaalAantalMattenInToelevering = "" Do SamengesteldeLijstPerToelevering.Insert(Mat) Set TotaalAantalMattenInToelevering = TotaalAantalMattenInToelevering + Mat.Aantal } @@ -144,6 +149,37 @@ ]]> + +UitvoeringLijstIterator:TECH.ListIterator +1 + + + SamengesteldeLijstIterator:TECH.ListIterator 1 Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u -r70875 -r72155 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 70875) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 72155) @@ -7,8 +7,6 @@ Tot# | Toelev | # | Mat | D | B | ink D | ink B -----|-----------|----|-----------------------|------|------|-------|------ 1|2224 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 | - | | | | | | | | - 1|2223 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 | -----|-----------|----|-----------------------|------|------|-------|------ \ No newline at end of file Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u -r70873 -r72155 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt (.../Productie_012_GekoppeldeIK_MattenLijst.txt) (revision 70873) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_012_GekoppeldeIK_MattenLijst.txt (.../Productie_012_GekoppeldeIK_MattenLijst.txt) (revision 72155) @@ -7,10 +7,6 @@ Tot# | Toelev | # | Mat | D | B | ink D | ink B -----|-----------|----|-----------------------|------|------|-------|------ 2|2221 | 2 |AS-Fiber Zwart | 473 | 1500 | - | 360 | - | | | | | | | | - |2222 | 4 |AS-Fiber Zwart | 473 | 1500 | - | 360 | - |2222 | 1 |AS-Fiber Zwart | 423 | 1500 | - | 515 | - 6|2222 | 1 |AS-Fiber Antraciet | 323 | 1500 | - | 984 | -----|-----------|----|-----------------------|------|------|-------|------ \ No newline at end of file