Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/BladInhoudBuilder.cls.xml =================================================================== diff -u -r56321 -r56322 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 56321) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/LBX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 56322) @@ -70,36 +70,32 @@ Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.LBX.enu.DetailBladLayoutGroepen).Eindmontage() ; Aan te passen naar UitsparingData #dim MatLinksX As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatLinksX(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT LINKS X", MatLinksX_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) If IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() { #dim MatVooraanQ As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q", MatVooraanQ_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } elseif IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() { #dim MatVooraanQ1 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenKenmerken) - #dim MatMiddenM As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMiddenM(IngegevenKenmerken) - #dim MatVooraanQ2 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q1", MatVooraanQ1_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + #dim MatMiddenM As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMiddenM(IngegevenKenmerken) Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M", MatMiddenM_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + #dim MatVooraanQ2 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(IngegevenKenmerken) Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q2", MatVooraanQ2_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } #dim MatRechtsY As %Decimal =..MatUitsparingSnijPositieBepaler.GeefMatRechtsY(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT RECHTS Y", MatRechtsY_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) }