Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u -r58761 -r59488 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 58761) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test015ProboxMetOnderdelen/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 59488) @@ -6,9 +6,9 @@ ---------|----|------------------------|------|------|------------|-------| Toe:Dos | # | Mat | D | B | ink D | ink B | ---------|----|------------------------|------|------|------------|-------| - 224:LI7L | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 | + 2224 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 | | | | | | | | - 223:LI7K | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 | + 2223 | 1 |AS-Fiber Antraciet | 273 | 1500 | - | 522 | ---------|----|------------------------|------|------|------------|-------| \ No newline at end of file Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test010MetVHoss/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u -r58761 -r59488 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test010MetVHoss/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 58761) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/Test010MetVHoss/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 59488) @@ -6,7 +6,7 @@ ---------|----|------------------------|------|------|------------|-------| Toe:Dos | # | Mat | D | B | ink D | ink B | ---------|----|------------------------|------|------|------------|-------| - 222:AGZJ | 10 |Antislip Zwart | 423 | 1500 | - | 520 | + 2222 | 10 |Antislip Zwart | 423 | 1500 | - | 520 | ---------|----|------------------------|------|------|------------|-------| \ No newline at end of file Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r59478 -r59488 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 59478) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 59488) @@ -1152,7 +1152,7 @@ VoerUitUitvoeringInfoLijstPerInformatieID(-]]> +Er wordt enkel door deze code gegaan voor onder andere de mattenlijst voor TBX, de code voor de mattenlijst voor TAX en LBX bevindt zich: APPS.Halux.PPS.Activiteit.impl.WerklijstItemsUitvoerder -> VoerUitUitvoeringInfoLijstPerInformatieID(-]]> BatchID:%String,BatchList:%CacheString MatLijst()]]> +Methode die de lijst opstelt voor onder andere mattenlijsten van LBX en TAX, de code die de lijst opstelt voor TBX is te vinden onder: BL.PPS.TBX.DocsV1 -> MatLijst()]]> UitvoeringInfoLijstPerInformatieID:%ArrayOfObjects,Activiteit:APPS.Halux.PPS.Activiteit.Activiteit,VerwerkerParameter:%CacheString="" 1 APPS.Halux.PPS.dto.UitvoeringResultaat @@ -61,42 +61,38 @@ /// TO DO New zou in APPS.Halux.PPS.impl.AansturingActieVoorActiviteit.cls(VoerUitxxxx) moeten zitten Set ActiviteitParameters = ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New() - Set ActiviteitParameters.Printer = VerwerkerParameter + Set ActiviteitParameters.Printer = VerwerkerParameter - Set SamengesteldeLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New() #dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst) #dim UitvoeringLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) while UitvoeringLijstIterator.HasNext() { - #dim Mat = UitvoeringLijstIterator.Next() - #dim OvereenkomstigeMatGevonden As %Boolean = $$$False - - #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Mat.BatchID) - Do ##class(Tools.Wlip).%New(110).String(Batch.GeefProductieGroep()) - if $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()){ - - while (SamengesteldeLijstIterator.HasNext() & $$$Not(OvereenkomstigeMatGevonden)){ + #dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = UitvoeringLijstIterator.Next() + #dim OvereenkomstigeMatGevonden As %Boolean = $$$False + + #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Mat.BatchID) + if (($$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk())) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")){ + while ((SamengesteldeLijstIterator.HasNext()) && ($$$Not(OvereenkomstigeMatGevonden))){ - #dim Mat2 = 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 + #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 } - } + } - if ($$$Not(OvereenkomstigeMatGevonden) & $$$Not(SamengesteldeLijst.Count()=0)){ - Do SamengesteldeLijst.Insert(Mat) - } - if (SamengesteldeLijst.Count()=0){ - Do SamengesteldeLijst.Insert(Mat) - } + if ($$$Not(OvereenkomstigeMatGevonden) & $$$Not(SamengesteldeLijst.Count()=0)){ + Do SamengesteldeLijst.Insert(Mat) + } + if (SamengesteldeLijst.Count()=0){ + Do SamengesteldeLijst.Insert(Mat) + } - Do SamengesteldeLijstIterator.Reset() - } - } - if $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()){ + Do SamengesteldeLijstIterator.Reset() + } + } + if ($$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo") ){ Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters) } else { Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Kaderdeur.Aansturing/Test001/StartBatch/HALUX_productie_TAOR_KlantKAD8x11.TXT =================================================================== diff -u -r59376 -r59488 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Kaderdeur.Aansturing/Test001/StartBatch/HALUX_productie_TAOR_KlantKAD8x11.TXT (.../HALUX_productie_TAOR_KlantKAD8x11.TXT) (revision 59376) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Kaderdeur.Aansturing/Test001/StartBatch/HALUX_productie_TAOR_KlantKAD8x11.TXT (.../HALUX_productie_TAOR_KlantKAD8x11.TXT) (revision 59488) @@ -1,3 +1,3 @@ %BTW% /AF="C:\Bartender\Templates\KlantKAD8x11.btw" /PRN="HALUX_productie_TAOR" /R=3 /P /D= /CLOSE %END% -LOGO\Logo VHZwart.svg UNITTEST KLANT Sint Niklaas Order 322.222 Ref : K.CC.KI.9 Deur - Links H:546 x B:594 PBG-EV : Breed glas geanodiseerd FZ : Float gezuurd UNITTES Dossier KCCKI9 +LOGO\Logo VHZwart.svg UNITTEST KLANT Sint Niklaas Order 322.222 Ref : K.CC.KI.9 Deur - Links H:546 x B:594 PBG-EV : Breed glas geanodiseerd FZ : Float gezuurd UNITTES Dossier KCCKI9 Index: APPS/Halux/PPS/Activiteit/impl/GekoppeldeIK/Matten/WerklijstItemsMaker.cls.xml =================================================================== diff -u -r59478 -r59488 --- APPS/Halux/PPS/Activiteit/impl/GekoppeldeIK/Matten/WerklijstItemsMaker.cls.xml (.../WerklijstItemsMaker.cls.xml) (revision 59478) +++ APPS/Halux/PPS/Activiteit/impl/GekoppeldeIK/Matten/WerklijstItemsMaker.cls.xml (.../WerklijstItemsMaker.cls.xml) (revision 59488) @@ -211,17 +211,17 @@ -Enkel LGX en TAX gebruiken deze method, niet TBX +Enkel LBX en TAX gebruiken deze method, niet TBX Item:APPS.Halux.common.ProductieSequentieItem,Product:DOM.PM.MaatwerkProduct 1 %String Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u -r58761 -r59488 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 58761) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../LBX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 59488) @@ -6,8 +6,7 @@ ---------|----|------------------------|------|------|------------|-------| Toe:Dos | # | Mat | D | B | ink D | ink B | ---------|----|------------------------|------|------|------------|-------| - 222:LI7K | 1 |AS-Fiber Antraciet | 373 | 1500 | - | 520 | - 222:LI7L | 1 |AS-Fiber Antraciet | 373 | 1500 | - | 520 | + 2222 | 2 |AS-Fiber Antraciet | 373 | 1500 | - | 520 | ---------|----|------------------------|------|------|------------|-------| \ No newline at end of file Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test004MetGekoppeldeMat/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt =================================================================== diff -u -r37287 -r59488 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test004MetGekoppeldeMat/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 37287) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/Test004MetGekoppeldeMat/StartBatch/TAX voormontage_001_GekoppeldeIK_MattenLijst.txt (.../TAX voormontage_001_GekoppeldeIK_MattenLijst.txt) (revision 59488) @@ -6,7 +6,7 @@ ---------|----|------------------------|------|------|------------|-------| Toe:Dos | # | Mat | D | B | ink D | ink B | ---------|----|------------------------|------|------|------------|-------| - 222:XHD | 1 |Antislip Antraciet | 423 | 1500 | - | 903.5 | + 2222 | 1 |Antislip Antraciet | 423 | 1500 | - | 903.5 | ---------|----|------------------------|------|------|------------|-------| \ No newline at end of file Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Kaderdeur.Aansturing/Test001/ResetBatch/HALUX_productie_TAOR_KlantKAD8x11.TXT =================================================================== diff -u -r59376 -r59488 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Kaderdeur.Aansturing/Test001/ResetBatch/HALUX_productie_TAOR_KlantKAD8x11.TXT (.../HALUX_productie_TAOR_KlantKAD8x11.TXT) (revision 59376) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Kaderdeur.Aansturing/Test001/ResetBatch/HALUX_productie_TAOR_KlantKAD8x11.TXT (.../HALUX_productie_TAOR_KlantKAD8x11.TXT) (revision 59488) @@ -1,3 +1,3 @@ %BTW% /AF="C:\Bartender\Templates\KlantKAD8x11.btw" /PRN="HALUX_productie_TAOR" /R=3 /P /D= /CLOSE %END% -LOGO\Logo VHZwart.svg UNITTEST KLANT Sint Niklaas Order 322.222 Ref : K.CC.KI.9 Deur - Links H:546 x B:594 PBG-EV : Breed glas geanodiseerd FZ : Float gezuurd UNITTES Dossier KCCKI9 +LOGO\Logo VHZwart.svg UNITTEST KLANT Sint Niklaas Order 322.222 Ref : K.CC.KI.9 Deur - Links H:546 x B:594 PBG-EV : Breed glas geanodiseerd FZ : Float gezuurd UNITTES Dossier KCCKI9