TECH.RegisteredObject bfrRGID:%String,bfrVolgNr:%String %String "_..GeefStyles()_"" Set Resultaat = Resultaat_..GeefTabelData(bfrRGID, bfrVolgNr) Set Resultaat = Resultaat_"" Quit Resultaat ]]> 1 %String table, th, td { font-family: Arial; font-size: 9pt;} }" ]]> bfrRGID:%String,bfrVolgNr:%String 1 %String " Set Resultaat = Resultaat_..GeefTabelHeader()_..GeefTabelInhoud(bfrRGID, bfrVolgNr) Set Resultaat = Resultaat_"" Quit Resultaat ]]> 1 %String " Set Resultaat = Resultaat_""_"Code"_"" Set Resultaat = Resultaat_""_"Hoogte"_"" Set Resultaat = Resultaat_""_"Diepte"_"" Set Resultaat = Resultaat_""_"Breedte"_"" Set Resultaat = Resultaat_""_"Wand"_"" Set Resultaat = Resultaat_""_"Kleur"_"" Set Resultaat = Resultaat_""_"Aantal"_"" Set Resultaat = Resultaat_""_"Referentie"_"" Set Resultaat = Resultaat_"" Quit Resultaat ]]> bfrRGID:%String,bfrVolgNr:%String 1 %String Bufferlijn:%String 1 %String " 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_"" Quit Resultaat ]]>