Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml =================================================================== diff -u -r58151 -r58258 --- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml (.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml) (revision 58151) +++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml (.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml) (revision 58258) @@ -48,7 +48,6 @@ Set Resultaat = Resultaat_""_"Wand"_"" Set Resultaat = Resultaat_""_"Kleur"_"" Set Resultaat = Resultaat_""_"Aantal"_"" - Set Resultaat = Resultaat_""_"Referentie"_"" Set Resultaat = Resultaat_"" Quit Resultaat @@ -82,18 +81,29 @@ #dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() #dim Product As DOM.PM.Product = ProductAPI.GeefProduct(ProductNummer) #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New().GeefOnverwerkteKenmerkenVanProduct(ProductNummer) + #dim LijnReferentie As %String = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New().ZoekLijnReferentie($P(Bufferlijn,"\",8),Product.GeefID()) #dim Resultaat As %String = "" - Set Resultaat = Resultaat_""_Product.GeefDossierNr()_"" + + If $$$HasLength(LijnReferentie) { + Set Resultaat = Resultaat_""_Product.GeefDossierNr()_"" + } Else { + Set Resultaat = Resultaat_""_Product.GeefDossierNr()_"" + } Set Resultaat = Resultaat_""_IngegevenKenmerken.LadeHoogte_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.LadeDiepte_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.CorpusBreedte_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.CorpusWandDikte_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.LadeKleur_"" Set Resultaat = Resultaat_""_$P(Bufferlijn,"\",5)_"" - Set Resultaat = Resultaat_""_##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New().ZoekLijnReferentie($P(Bufferlijn,"\",8),Product.GeefID())_"" Set Resultaat = Resultaat_"" + If $$$HasLength(LijnReferentie) { + Set Resultaat = Resultaat_"" + Set Resultaat = Resultaat_""_LijnReferentie_"" + Set Resultaat = Resultaat_"" + } + Quit Resultaat ]]>