Summary Pages; Version 2; New "Address" HTML Template

    Dim AddressDetails As ISAddressDetails
    Dim SummaryTable As ISSummaryTable

    AddressDetails = finBL.CreateAddressDetails()
    With AddressDetails
      .StreetAddressFull = "1 Oak Road"
      .Suburb = "Taradale"
      .City = "Napier"
      .Postcode = "4000"
      .Country = "New Zealand"
    End With

    SummaryTable = finBL.CreateSummaryTable()
    With SummaryTable
      .TableClass = iseSummaryTableClass.TabularData

      With .Columns
        .AddText("Name")
        .AddText("Addresses")
      End With

      With .Rows.Add().Cells
        .AddText("John Smith")
        With .AddText("")
          .Value &= "{{address addressDetailsXml='" & AddressDetails.ToXmlString() & "' singleLine='false' physicalFormat='false'}}" & vbNewLine & vbNewLine
          .Value &= "{{address streetAddress='14 Clover Avenue' city='Hastings' postcode='4000' singleLine='true' physicalFormat='true'}}" & vbNewLine & vbNewLine
        End With
      End With
    End With