Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml =================================================================== diff -u -r72994 -r72997 --- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72994) +++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72997) @@ -78,6 +78,7 @@ while UitvoeringLijstIterator.HasNext() { #dim Object = UitvoeringLijstIterator.Next() + #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Object.BatchID) Set HuidigeMat = Object If ($IsObject(Object) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) { @@ -86,15 +87,23 @@ } If ($$$Not(VorigeMat = "") && $$$Not($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) { - Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld. + Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + } Else { + Set VorigeMat.TotaalAantalMattenInToelevering = "" + } Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal } Set VorigeMat = HuidigeMat } } If $IsObject(VorigeMat) { - Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld. + Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + } Else { + Set VorigeMat.TotaalAantalMattenInToelevering = "" + } } Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) @@ -105,7 +114,7 @@ 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) + Set 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")) { Set ObjectIsMat = $$$True #dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = Object Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r72994 -r72997 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 72994) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 72997) @@ -1211,6 +1211,7 @@ #dim AantalMattenVoorDezeToelevering As %Integer = 0 while UitvoeringLijstIterator.HasNext() { #dim Object = UitvoeringLijstIterator.Next() + #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Object.BatchID) Set HuidigeMat = Object If ($IsObject(Object) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) { @@ -1219,31 +1220,43 @@ } If ($$$Not(VorigeMat = "") && $$$Not($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) { - Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld. + Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + } Else { + Set VorigeMat.TotaalAantalMattenInToelevering = "" + } Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal } Set VorigeMat = HuidigeMat } } If $IsObject(VorigeMat) { - Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld. + Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering + } Else { + Set VorigeMat.TotaalAantalMattenInToelevering = "" + } } 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 - #dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(Mat.BatchID) + Set Batch = ..BatchService.GeefBatch(Mat.BatchID) If ( $IsObject(Mat) && ((..IsProductiegroepKastOfPallet(Batch)) || (..IsProductiegroepProbox(Batch))) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo") ){ Do LijstAantallen.Insert(Mat.Aantal) while (SamengesteldeLijstIterator.HasNext() & $$$Not(OvereenkomstigeMatGevonden)){ #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.TotaalAantalMattenInToelevering = Mat.TotaalAantalMattenInToelevering + If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld. + Set Mat2.TotaalAantalMattenInToelevering = Mat.TotaalAantalMattenInToelevering + } Else { + Set Mat2.TotaalAantalMattenInToelevering = "" + } } } If (SamengesteldeLijst.Count()=0 || $$$Not(OvereenkomstigeMatGevonden)){