Index: APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml
===================================================================
diff -u -r32604 -r41084
--- APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml (.../ProductieSequentieGroepeerderResultSetBased.cls.xml) (revision 32604)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml (.../ProductieSequentieGroepeerderResultSetBased.cls.xml) (revision 41084)
@@ -172,15 +172,12 @@
Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
Set SequentieInfo.DeelAantal = ""
- If ((ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID)) {
- Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
- } Else {
- Do:$$$Not(ToeleveringID = "") ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
- Set TotaalSequentieInfo = SequentieInfo
- Set:$$$Not(ToeleveringID = SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
- Set ProductID = SequentieInfo.ProductID
- Set ToeleveringID = SequentieInfo.ToeleveringID
- }
+ Do:$$$Not(ToeleveringID = "") ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
+ Set TotaalSequentieInfo = SequentieInfo
+ Set:$$$Not(ToeleveringID = SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
+ Set ProductID = SequentieInfo.ProductID
+ Set ToeleveringID = SequentieInfo.ToeleveringID
+
}
Do ..Groepering.VoegToe(GroeperingID, TotaalSequentieInfo)
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_004_PRODUCTIEDETAILBLAD.xml
===================================================================
diff -u -r36585 -r41084
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_004_PRODUCTIEDETAILBLAD.xml (.../Productie_004_PRODUCTIEDETAILBLAD.xml) (revision 36585)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test007DeDeckerPallet/StartBatch/Productie_004_PRODUCTIEDETAILBLAD.xml (.../Productie_004_PRODUCTIEDETAILBLAD.xml) (revision 41084)
@@ -32,7 +32,7 @@
- afdekkappen;verlaagde rug
- verpakt: commissie op pallet
- 2 st
+ 1 st
http://res.vanhoecke.be/Images/GENERIEK/TBX/tbx_ABY2_ER.JPG
@@ -220,6 +220,222 @@
ProductieDetailBlad
Halux Productie-detailblad
+ pagina van
Product: 897877 - Batch: 15000 - Toelev: 222222 - Klant: 6780
+
+
+ [ServerName]
+ 15/11/2014 09:15
+
+
+ TandemBOX pro
+ 222222.EW8W
+ DE DECKER JB
+ Dueout: 14-11-14
+OD2(Di),OD2(Vr)
+
+
+ BY2
+ 500
+ TB6BAI.EW8W500x1113S2TSBZ
+
+ - Sifonlade B (type 2)
+ - D:500xB:1113
+ - sifonopening 250mm (431.5/250/431.5)
+ - bodem:Terrazwart;zijkant:Terrazwart;Antaro
+ - bevat: gemont. lade;glijder 65kg
+ - blumotion int.;enkele reling
+ - frontbevest. INSERTA;antraciete mat
+ - afdekkappen;verlaagde rug
+ - verpakt: commissie op pallet
+
+ 1 st
+ http://res.vanhoecke.be/Images/GENERIEK/TBX/tbx_ABY2_ER.JPG
+
+
+
+ BODEM
+ false
+
+
+ Bodemstrook, bruinzwart, 476mm
+ 1038mm
+
+ SPF.B500 B-STR2840 BZWI
+
+
+ RUG
+ false
+
+
+ Rugstrook, M, bruinzwart, 84mm,*** VERLAAGDE RUG ***
+ 350.5mm
+
+ SPF.RUGM R-STR2840 BZWI
+
+
+ Rugstrook, M, bruinzwart, 84mm,*** VERLAAGDE RUG ***
+ 350.5mm
+
+ SPF.RUGM R-STR2840 BZWI
+
+
+ Rughouder, B, links, bruinzwart
+
+
+ Z30B000S.04HO-R L V50TERS
+
+
+ Rughouder, B, rechts, bruinzwart
+
+
+ Z30B000S.04HO-R R V50TERS
+
+
+ Rughouder, M, links, bruinzwart (binnenzijkant)
+
+
+ Z30M000S.04HO-R L V50TERS
+
+
+ Rughouder, M, rechts, bruinzwart (binnenzijkant)
+
+
+ Z30M000S.04HO-R R V50TERS
+
+
+ SPOELBAK
+ true
+
+
+ Sifonlade links
+ 362.5mm
+
+
+
+
+ Sifonlade rechts
+ 362.5mm
+
+
+
+
+ Sifon opening 1
+ 313mm
+
+
+
+
+ MONTEREN
+ true
+
+
+ Monteren, bodem breedte
+ 1038mm
+
+
+
+
+ Ladezijkant, Intivo, M, 500mm, links, bruinzwart
+
+
+ 378M5002SAZLIV20TERS
+
+
+ Ladezijkant, Intivo, M, 500mm, rechts, bruinzwart
+
+
+ 378M5002SAZREV20TERS
+
+
+ Tussenzijkant, Intivo, M, 500mm, li+re, bruinzwart
+
+
+ 378M5004SG Z R+L V1 TS/G
+
+
+ Rugwand tussenstuk, N, 250mm, bruinzwart
+
+
+ Z30N233S.6ZSTR V15 TERS
+
+
+ ONDERDELEN 1
+ true
+
+
+ Geleider, 500mm, links, 65kg
+
+
+ 576.5001BKLIEP7ZN
+
+
+ Geleider, 500mm, rechts, 65kg
+
+
+ 576.5001BKREEP7ZN
+
+
+ ONDERDELEN 2
+ false
+
+
+ Reling, Antaro, 500mm, bruinzwart, links
+
+
+ ZRG.437RSICRELGLAE L TERS
+
+
+ Reling, Antaro, 500mm, bruinzwart, rechts
+
+
+ ZRG.437RSICRELGLAE R TERS
+
+
+ Frontbevest., inserta
+
+ 2st
+ ZSF.39A2 FROB V500 BL
+
+
+ Afdekkap, Intivo, zwart
+
+ 2st
+ ZAA.532C.BTABD V1000 S
+
+
+ Bodemsteun, winkelhaak
+
+
+ 297.0500 L-WINK 250 ZN
+
+
+ EINDMONTAGE
+ false
+
+
+ Mat van strook, AGO, antraciet, 473mm
+ 350.5mm
+
+ MAT.A50X.15ANTI-SLIP ANTR
+
+
+ Mat van strook, AGO, antraciet, 473mm
+ 350.5mm
+
+ MAT.A50X.15ANTI-SLIP ANTR
+
+
+ Mat van strook, AGO, antraciet, 132mm
+ 250mm
+
+ MAT.A27X.15ANTI-SLIP ANTR
+
+
+
+
+ ProductieDetailBlad
+
+ Halux Productie-detailblad
pagina van
Product: 1304540 - Batch: 15000 - Toelev: 222222 - Klant: 6780
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml
===================================================================
diff -u -r32594 -r41084
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml (.../TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml) (revision 32594)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml (.../TestGroepeerPerToeleveringPerProductPerKlant4.cls.xml) (revision 41084)
@@ -41,20 +41,26 @@
Do $$$AssertEquals(SequenceInfo.QueueID, 3)
}
- If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 3) {
+ If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 4) {
Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(1)
- Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+ Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
Do $$$AssertEquals(SequenceInfo.QueueID, 5)
Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(2)
Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+ Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID3)
+ Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+ Do $$$AssertEquals(SequenceInfo.QueueID, 7)
+
+ Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(3)
+ Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
Do $$$AssertEquals(SequenceInfo.QueueID, 9)
- Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(3)
+ Set SequenceInfo = Groepering.Data.GetAt(2).GetAt(4)
Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID4)
Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml
===================================================================
diff -u -r32594 -r41084
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml (.../TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml) (revision 32594)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml (.../TestGroepeerPerToeleveringPerProductPerKlant3.cls.xml) (revision 41084)
@@ -40,12 +40,18 @@
Do $$$AssertEquals(SequenceInfo.QueueID, 3)
}
- If $$$AssertEquals(Groepering.Data.GetAt(3).Count(), 1) {
+ If $$$AssertEquals(Groepering.Data.GetAt(3).Count(), 2) {
Set SequenceInfo = Groepering.Data.GetAt(3).GetAt(1)
- Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+ Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
Do $$$AssertEquals(SequenceInfo.QueueID, 5)
+
+ Set SequenceInfo = Groepering.Data.GetAt(3).GetAt(2)
+ Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+ Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+ Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+ Do $$$AssertEquals(SequenceInfo.QueueID, 7)
}
}
}
Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml
===================================================================
diff -u -r32594 -r41084
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml (.../TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml) (revision 32594)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased/TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml (.../TestGroepeerPerToeleveringPerProductPerKlant2.cls.xml) (revision 41084)
@@ -24,12 +24,18 @@
If $$$AssertEquals(Groepering.Indices.Count(), 3) {
Do $$$AssertEquals(Groepering.Indices.GetAt(1), 1)
- If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 1) {
+ If $$$AssertEquals(Groepering.Data.GetAt(1).Count(), 2) {
Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(1)
- Do $$$AssertEquals(SequenceInfo.TotaalAantal, 4)
+ Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
Do $$$AssertEquals(SequenceInfo.QueueID, 1)
+
+ Set SequenceInfo = Groepering.Data.GetAt(1).GetAt(2)
+ Do $$$AssertEquals(SequenceInfo.TotaalAantal, 2)
+ Do $$$AssertEquals(SequenceInfo.ProductID, ..#ProductID1)
+ Do $$$AssertEquals(SequenceInfo.DeelAantal, "")
+ Do $$$AssertEquals(SequenceInfo.QueueID, 3)
}
If $$$AssertEquals(Groepering.Data.GetAt(2).Count(), 1) {