Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladInhoudBuilder.cls.xml =================================================================== diff -u -r57384 -r57385 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 57384) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TAX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 57385) @@ -107,23 +107,50 @@ If ..InputParameters.Layout = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.enu.Layout).TAXAlleGroepen() { Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TAX.enu.DetailBladLayoutGroepen).Sifonlade() ; Aan te passen naar UitsparingData - #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Product.GeefIngegevenKenmerken() - If IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() { - #dim FreesDiepteZ1 As %Decimal = ..LadeUitsparingHelper.GeefDiepteUitsparingZ1(IngegevenKenmerken.UitsparingData) - #dim FreesBreedteZ1 As %Decimal = ..LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) - #dim FreesPositieZ1 As %Decimal = ..LadeUitsparingHelper.GeefBreedteRugX(IngegevenKenmerken.UitsparingData) - - Set ProductDetailDataLijn = ..MaakDataLijn("Parameter EKO : uitsparing Diepte", FreesDiepteZ1_"mm", "","") + #dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData = ..Product.GeefIngegevenKenmerken().UitsparingData + #dim IsEnkeleSifonlade As %Boolean = UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() + #dim IsDubbeleSifonlade As %Boolean = UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() + + #dim FreesPositieX As %Decimal = ..LadeUitsparingHelper.GeefBreedteRugX(UitsparingData) + #dim FreesPositieY As %Decimal = ..LadeUitsparingHelper.GeefBreedteRugY(UitsparingData) + #dim FreesBreedteZ1 As %Decimal = ..LadeUitsparingHelper.GeefBreedteUitsparingZ1(UitsparingData) + #dim FreesDiepteZ1 As %Decimal = ..LadeUitsparingHelper.GeefDiepteUitsparingZ1(UitsparingData) + + If IsDubbeleSifonlade { + #dim FreesPositieM As %Decimal = ..LadeUitsparingHelper.GeefBreedteRugM(UitsparingData) + #dim FreesBreedteZ2 As %Decimal = ..LadeUitsparingHelper.GeefBreedteUitsparingZ2(UitsparingData) + #dim FreesDiepteZ2 As %Decimal = ..LadeUitsparingHelper.GeefDiepteUitsparingZ2(UitsparingData) + } + + Set ProductDetailDataLijn = ..MaakDataLijn("L (positie uitsparing)", FreesPositieX, "", "") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + If IsDubbeleSifonlade { + Set ProductDetailDataLijn = ..MaakDataLijn("M", FreesPositieM, "", "") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - Set ProductDetailDataLijn = ..MaakDataLijn("Parameter EKO : uitsparing Breedte Z1", FreesBreedteZ1_"mm", "","") + } + + Set ProductDetailDataLijn = ..MaakDataLijn("R (positie uitsparing)", FreesPositieY, "", "") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + Set ProductDetailDataLijn = ..MaakDataLijn("Z1 (breedte uitsparing)", FreesBreedteZ1, "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + If IsDubbeleSifonlade { + Set ProductDetailDataLijn = ..MaakDataLijn("Z2 (breedte uitsparing)", FreesBreedteZ2, "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - Set ProductDetailDataLijn = ..MaakDataLijn("Parameter EKO : uitsparing Positie R", FreesPositieZ1_"mm", "","") + } + + Set ProductDetailDataLijn = ..MaakDataLijn("U1 (diepte uitsparing)", FreesDiepteZ1, "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + If IsDubbeleSifonlade { + Set ProductDetailDataLijn = ..MaakDataLijn("U2 (diepte uitsparing)", FreesDiepteZ2, "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } } } + Quit DetailLijnenZonderHalffabItem ]]>