Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml =================================================================== diff -u -r66859 -r66864 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66859) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66864) @@ -66,113 +66,110 @@ Set DomNaarDotNetConvertor.TbxKenmerken = IngegevenKenmerken #dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData= DomNaarDotNetConvertor.GeefUitsparingData() - If ..InputParameters.Layout = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.enu.Layout).TBXAlleGroepen() { + If (..HeeftMat(IngegevenKenmerken) && ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) { - If (..HeeftMat(IngegevenKenmerken) && ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) { + Set ProductDetailDataLijn = "" - Set ProductDetailDataLijn = "" - - Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Eindmontage() + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Eindmontage() + + #dim MatLinksX As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatLinksX(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT LINKS X", MatLinksX_"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - #dim MatLinksX As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatLinksX(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT LINKS X", MatLinksX_"mm", "","") + If $$$Not(##class(TECH.StringUtils).Contains(IngegevenKenmerken.LegacyKenmerken.ItemSPZK, ".x2")) { + + #dim MatVooraanQ As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q", MatVooraanQ_"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - If $$$Not(##class(TECH.StringUtils).Contains(IngegevenKenmerken.LegacyKenmerken.ItemSPZK, ".x2")) { - - #dim MatVooraanQ As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q", MatVooraanQ_"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - } Else { + } Else { - #dim MatVooraanQ1 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q1", MatVooraanQ1_"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + #dim MatVooraanQ1 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT VOORAAN Q1", MatVooraanQ1_"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - #dim MatMiddenM1 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M1", MatMiddenM1_"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - #dim MatMiddenM2 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M2", MatMiddenM2_"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 MatMiddenM1 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M1", MatMiddenM1_"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - #dim MatRechtsY As %Decimal =..MatUitsparingSnijPositieBepaler.GeefMatRechtsY(IngegevenKenmerken) - Set ProductDetailDataLijn = ..MaakDataLijn(" MAT RECHTS Y", MatRechtsY_"mm", "","") + #dim MatMiddenM2 As %Decimal = ..MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT MIDDEN M2", MatMiddenM2_"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) + + } - If (HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant())) { - #dim LadeZijkantLinks As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant() _ "->Links") + #dim MatRechtsY As %Decimal =..MatUitsparingSnijPositieBepaler.GeefMatRechtsY(IngegevenKenmerken) + Set ProductDetailDataLijn = ..MaakDataLijn(" MAT RECHTS Y", MatRechtsY_"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } + + If (HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant())) { + #dim LadeZijkantLinks As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant() _ "->Links") + + If ##class(TECH.StringUtils).Contains(LadeZijkantLinks.GeefOmschrijvingVoorDocs(), "LinksRechts") { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Onderdelen2() - If ##class(TECH.StringUtils).Contains(LadeZijkantLinks.GeefOmschrijvingVoorDocs(), "LinksRechts") { - Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Onderdelen2() - - If (IngegevenKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijwandHoogte).K()) { - Set ProductDetailDataLijn = ..MaakDataLijn("V1->Positioneringsdeel vr T-box-zijkant 'K'", "", "2st","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - } - If $$$Not(HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap())) { - Set ProductDetailDataLijn = ..MaakDataLijn("V1->Afdekkappen meeleveren LI+RE, bruinzwart", "", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - } + If (IngegevenKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijwandHoogte).K()) { + Set ProductDetailDataLijn = ..MaakDataLijn("V1->Positioneringsdeel vr T-box-zijkant 'K'", "", "2st","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } + If $$$Not(HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap())) { + Set ProductDetailDataLijn = ..MaakDataLijn("V1->Afdekkappen meeleveren LI+RE, bruinzwart", "", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } } + } + + If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.ProductieWijze, ##class(DOM.PM.enu.TBXProductieWijze).Rug(), ##class(DOM.PM.enu.TBXProductieWijze).RugMetHouders(), ##class(DOM.PM.enu.TBXProductieWijze).BodemEnRug(), ##class(DOM.PM.enu.TBXProductieWijze).BodemRugEnFront()) { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Rug() + Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", IngegevenKenmerken.InterneBreedte - 75 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig() ) { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Bodem() + Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", IngegevenKenmerken.InterneBreedte - 75 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } Else { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Monteren() + Set ProductDetailDataLijn = ..MaakDataLijn("Monteren, bodem breedte", IngegevenKenmerken.InterneBreedte - 75_"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } + + If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Spoelbak() + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak opening", IngegevenKenmerken.InterneBreedte - UitsparingData.RugDeelX - UitsparingData.RugDeelY + 63 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.ProductieWijze, ##class(DOM.PM.enu.TBXProductieWijze).Rug(), ##class(DOM.PM.enu.TBXProductieWijze).RugMetHouders(), ##class(DOM.PM.enu.TBXProductieWijze).BodemEnRug(), ##class(DOM.PM.enu.TBXProductieWijze).BodemRugEnFront()) { - Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Rug() - Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", IngegevenKenmerken.InterneBreedte - 75 _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - } ElseIf $$$Not(IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig() ) { - Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Bodem() - Set ProductDetailDataLijn = ..MaakDataLijn("Instellen zaag", IngegevenKenmerken.InterneBreedte - 75 _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - } Else { - Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Monteren() - Set ProductDetailDataLijn = ..MaakDataLijn("Monteren, bodem breedte", IngegevenKenmerken.InterneBreedte - 75_"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - } + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak links", UitsparingData.RugDeelX - 69 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) { - Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Spoelbak() - Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak opening", IngegevenKenmerken.InterneBreedte - UitsparingData.RugDeelX - UitsparingData.RugDeelY + 63 _"mm", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak rechts", UitsparingData.RugDeelY - 69 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + } + + If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) { + Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Spoelbak() + + Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade links", UitsparingData.RugDeelX - 37.5 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade rechts", UitsparingData.RugDeelY - 37.5 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + If (UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { + Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade midden", UitsparingData.RugDeelM _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak links", UitsparingData.RugDeelX - 69 _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - Set ProductDetailDataLijn = ..MaakDataLijn("Spoelbak rechts", UitsparingData.RugDeelY - 69 _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) } - If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) { - Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Spoelbak() - - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade links", UitsparingData.RugDeelX - 37.5 _"mm", "","") + Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 1", IngegevenKenmerken.UitsparingBreedte1 _"mm", "","") + Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) + + If (UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { + Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 2", IngegevenKenmerken.UitsparingBreedte2 _"mm", "","") Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade rechts", UitsparingData.RugDeelY - 37.5 _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - If (UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade midden", UitsparingData.RugDeelM _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - } - - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 1", IngegevenKenmerken.UitsparingBreedte1 _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - - If (UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) { - Set ProductDetailDataLijn = ..MaakDataLijn("Sifonlade opening 2", IngegevenKenmerken.UitsparingBreedte2 _"mm", "","") - Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn) - } } }