Public Class Parser Public Function ParseForTable() As Boolean Dim lcHtml As String = "" lcHtml = "Something" lcHtml = lcHtml + oOriginator.ParserGetContent(lnPrimaryKey) Return True End Function End ClassSo, basically, in the client, I only have to add a ParserGetContent() method:
Public Class ViewPagePage Inherits Framework.Framework.ViewPage Public Overrides Function GetPage() As Boolean Dim loParser As Framework.Framework.Parser = New Framework.Framework.Parser(oProcess) ' Parse for table loParser.cTable = "Company" loParser.cContent = lcNotes loParser.oOriginator = Me If Not loParser.ParseForTable() Then Return False End If Return True End Function Public Function ParserGetContent(ByVal tnPrimaryKey As Integer) As String Return "Something" End Function