New DLL's does not support old DLL's functions when i am using the Report option
Posted: Wed Jun 04, 2008 1:40 am
Hi,
I create the report in which i am using the report options. When i am using your new DLL's i got following error but when i used ur old dll it is working.
A System Error has occured
===================================
C:\Documents and Settings\adinag\Local Settings\Temp\t-yrdhp6.0.vb(131,0) : error BC30288: Local variable 'tag' is already declared in the current block.C:\Documents and Settings\adinag\Local Settings\Temp\t-yrdhp6.0.vb(132,0) : error BC30288: Local variable 'tag' is already declared in the current block. (Stimulsoft.Report)
------------------------------
Program Location:
at Stimulsoft.Report.StiReport.Compile(String path, Stream stream, StiOutputType outputType, Boolean autoCreate, Object standaloneReportType)
at Stimulsoft.Report.StiReport.Compile()
at SDP.Base.QueryBuilder.ReportExecuter.ExecuteReport(Report report, Hashtable querySql, DataSet dataSet, Boolean HideRendering) in D:\QueryBuilder2\QueryBuilder\ReportExecuter.vb:line 154
at SDP.Win.QueryBuilder.RunReport.HandlePreviewReport(Report execReport, Hashtable sql) in D:\QueryBuilder2\QueryBuilderControls\RunReport.vb:line 466
at SDP.Win.QueryBuilder.RunReport.ExecuteReport(Object report) in D:\QueryBuilder2\QueryBuilderControls\RunReport.vb:line 480
Followings are the working code:-
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Dialogs
Imports Stimulsoft.Report.Components
Namespace Reports
Public Class Report
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"
Public PrintBannerPage As Boolean
Public UpdateAccounts As Boolean
Public Copies As Integer
Public AsOfDate As DateTime
Public RegenerateThumbnail As Boolean
Public ShowField As Boolean
Public ReportOptionPage1 As Integer
Public Page1 As Stimulsoft.Report.Components.StiPage
Public PageHeader1 As Stimulsoft.Report.Components.StiPageHeaderBand
Public Text2 As Stimulsoft.Report.Components.StiText
Public Text1 As Stimulsoft.Report.Components.StiText
Public HeadervNafExpanded As Stimulsoft.Report.Components.StiHeaderBand
Public HeaderAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public DatavNafExpanded As Stimulsoft.Report.Components.StiDataBand
Public DataAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public Page1_Watermark As Stimulsoft.Report.Components.StiWatermark
Public Report_PrinterSettings As Stimulsoft.Report.Print.StiPrinterSettings
Public vNafExpanded As vNafExpandedDataSource
Public Overrides Sub SaveState(ByVal stateName As System.String)
MyBase.SaveState(stateName)
Me.States.PushBool(stateName, Me, "PrintBannerPage", Me.PrintBannerPage)
Me.States.PushBool(stateName, Me, "UpdateAccounts", Me.UpdateAccounts)
Me.States.PushInt(stateName, Me, "Copies", Me.Copies)
Me.States.Push(stateName, Me, "AsOfDate", Me.AsOfDate)
Me.States.PushBool(stateName, Me, "RegenerateThumbnail", Me.RegenerateThumbnail)
Me.States.PushBool(stateName, Me, "ShowField", Me.ShowField)
Me.States.PushInt(stateName, Me, "ReportOptionPage1", Me.ReportOptionPage1)
End Sub
Public Overrides Sub RestoreState(ByVal stateName As System.String)
MyBase.RestoreState(stateName)
Me.PrintBannerPage = Me.States.PopBool(stateName, Me, "PrintBannerPage")
Me.UpdateAccounts = Me.States.PopBool(stateName, Me, "UpdateAccounts")
Me.Copies = Me.States.PopInt(stateName, Me, "Copies")
Me.AsOfDate = CType(Me.States.Pop(stateName, Me, "AsOfDate"),DateTime)
Me.RegenerateThumbnail = Me.States.PopBool(stateName, Me, "RegenerateThumbnail")
Me.ShowField = Me.States.PopBool(stateName, Me, "ShowField")
Me.ReportOptionPage1 = Me.States.PopInt(stateName, Me, "ReportOptionPage1")
End Sub
Public Sub Text2__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ""
e.StoreToPrinted = true
End Sub
Public Function Text2_GetValue_End(ByVal sender As Stimulsoft.Report.Components.StiComponent) As System.String
Return ToString(sender, PageNofM)
End Function
Public Sub Text1__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = Me.Text1.TextFormat.Format(CheckExcelValue(sender, " " + Time))
End Sub
Public Sub HeaderAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 1 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 2 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 3 [Addresses]"
End Sub
Public Sub HeaderAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Zip Code [Addresses]"
End Sub
Public Sub DataAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd1)
End Sub
Public Sub DataAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd2)
End Sub
Public Sub DataAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd3)
End Sub
Public Sub DataAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafzip)
End Sub
Public Sub ReportWordsToEnd__EndRender(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Text2.SetText(AddressOf Text2_GetValue_End)
End Sub
Private Sub InitializeComponent()
Me.vNafExpanded = New vNafExpandedDataSource
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "PrintBannerPage", "PrintBannerPage", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "UpdateAccounts", "UpdateAccounts", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "Copies", "Copies", GetType(Integer), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "AsOfDate", "AsOfDate", GetType(DateTime), Nothing, false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "RegenerateThumbnail", "RegenerateThumbnail", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ShowField", "ShowField", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ReportOptionPage1", "ReportOptionPage1", GetType(Integer), "", false, false))
Me.NeedsCompiling = false
'Variables init
'Variables init
Me.PrintBannerPage = false
Me.UpdateAccounts = false
Me.Copies = 0
Me.AsOfDate = DateTime.Now
Me.RegenerateThumbnail = false
Me.ShowField = false
Me.ReportOptionPage1 = 0
Me.ReferencedAssemblies = New System.String() {"System.Dll", "System.Drawing.Dll", "System.Windows.Forms.Dll", "System.Data.Dll", "System.Xml.Dll", "Stimulsoft.Controls.Dll", "Stimulsoft.Base.Dll", "Stimulsoft.Report.Dll", "QueryBuilderBase.Dll", "QueryBuilderWinControls.dll", "QueryBuilderApp.exe"}
Me.ReportAlias = "Report"
'
'ReportChanged
'
Me.ReportChanged = New DateTime(2008, 6, 4, 9, 52, 29, 0)
'
'ReportCreated
'
Me.ReportCreated = New DateTime(2008, 6, 4, 9, 49, 46, 0)
Me.ReportGuid = "e59672c086b74fdc9762baced91a20b2"
Me.ReportName = "Report"
Me.ReportUnit = Stimulsoft.Report.StiReportUnitType.Inches
Me.ScriptLanguage = Stimulsoft.Report.StiReportLanguageType.VB
'
'Page1
'
Me.Page1 = New Stimulsoft.Report.Components.StiPage
Me.Page1.Guid = "3178aa5de6944bd684d0e2bc3d547a8f"
Me.Page1.Inherited = true
Me.Page1.Name = "Page1"
Me.Page1.PageHeight = 11
Me.Page1.PageWidth = 8.5
Me.Page1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 2, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Page1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'PageHeader1
'
Me.PageHeader1 = New Stimulsoft.Report.Components.StiPageHeaderBand
Me.PageHeader1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.2, 8.14, 0.2)
Me.PageHeader1.Inherited = true
Me.PageHeader1.Name = "PageHeader1"
Me.PageHeader1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.PageHeader1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Text2
'
Me.Text2 = New Stimulsoft.Report.Components.StiText
Me.Text2.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6.3, 0, 1.8, 0.2)
Me.Text2.HorAlignment = Stimulsoft.Base.Drawing.StiTextHorAlignment.Right
Me.Text2.Inherited = true
Me.Text2.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text2.Name = "Text2"
AddHandler Me.Text2.GetValue, AddressOf Me.Text2__GetValue
Me.Text2.Type = Stimulsoft.Report.Components.StiSystemTextType.SystemVariables
Me.Text2.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text2.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text2.Font = New System.Drawing.Font("Arial", 10!)
Me.Text2.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text2.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text2.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.Text2.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'Text1
'
Me.Text1 = New Stimulsoft.Report.Components.StiText
Me.Text1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0.05, 0, 1.9, 0.2)
Me.Text1.Inherited = true
Me.Text1.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text1.Name = "Text1"
AddHandler Me.Text1.GetValue, AddressOf Me.Text1__GetValue
Me.Text1.Type = Stimulsoft.Report.Components.StiSystemTextType.Expression
Me.Text1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text1.Font = New System.Drawing.Font("Arial", 10!)
Me.Text1.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text1.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text1.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiTimeFormatService("HH:mm:ss")
Me.Text1.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeadervNafExpanded
'
Me.HeadervNafExpanded = New Stimulsoft.Report.Components.StiHeaderBand
Me.HeadervNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.8, 8.14, 0.3)
Me.HeadervNafExpanded.Name = "HeadervNafExpanded"
Me.HeadervNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeadervNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'HeaderAddress_Address_1__Addresses_
'
Me.HeaderAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.HeaderAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_1__Addresses_.Name = "HeaderAddress_Address_1__Addresses_"
AddHandler Me.HeaderAddress_Address_1__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_1__Addresses___GetValue
Me.HeaderAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_2__Addresses_
'
Me.HeaderAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.HeaderAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_2__Addresses_.Name = "HeaderAddress_Address_2__Addresses_"
AddHandler Me.HeaderAddress_Address_2__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_2__Addresses___GetValue
Me.HeaderAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_3__Addresses_
'
Me.HeaderAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.HeaderAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_3__Addresses_.Name = "HeaderAddress_Address_3__Addresses_"
AddHandler Me.HeaderAddress_Address_3__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_3__Addresses___GetValue
Me.HeaderAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Zip_Code__Addresses_
'
Me.HeaderAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.HeaderAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Zip_Code__Addresses_.Name = "HeaderAddress_Zip_Code__Addresses_"
AddHandler Me.HeaderAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.HeaderAddress_Zip_Code__Addresses___GetValue
Me.HeaderAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DatavNafExpanded
'
Me.DatavNafExpanded = New Stimulsoft.Report.Components.StiDataBand
Me.DatavNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 1.5, 8.14, 0.3)
Me.DatavNafExpanded.DataRelationName = ""
Me.DatavNafExpanded.DataSourceName = "vNafExpanded"
Me.DatavNafExpanded.Name = "DatavNafExpanded"
Me.DatavNafExpanded.Sort = New System.String(-1) {}
Me.DatavNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DatavNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'DataAddress_Address_1__Addresses_
'
Me.DataAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_1__Addresses_.CanGrow = true
Me.DataAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.DataAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_1__Addresses_.Name = "DataAddress_Address_1__Addresses_"
AddHandler Me.DataAddress_Address_1__Addresses_.GetValue, AddressOf Me.DataAddress_Address_1__Addresses___GetValue
Me.DataAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_2__Addresses_
'
Me.DataAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_2__Addresses_.CanGrow = true
Me.DataAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.DataAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_2__Addresses_.Name = "DataAddress_Address_2__Addresses_"
AddHandler Me.DataAddress_Address_2__Addresses_.GetValue, AddressOf Me.DataAddress_Address_2__Addresses___GetValue
Me.DataAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_3__Addresses_
'
Me.DataAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_3__Addresses_.CanGrow = true
Me.DataAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.DataAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_3__Addresses_.Name = "DataAddress_Address_3__Addresses_"
AddHandler Me.DataAddress_Address_3__Addresses_.GetValue, AddressOf Me.DataAddress_Address_3__Addresses___GetValue
Me.DataAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Zip_Code__Addresses_
'
Me.DataAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Zip_Code__Addresses_.CanGrow = true
Me.DataAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.DataAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Zip_Code__Addresses_.Name = "DataAddress_Zip_Code__Addresses_"
AddHandler Me.DataAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.DataAddress_Zip_Code__Addresses___GetValue
Me.DataAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
Me.DatavNafExpanded.MasterComponent = Nothing
Me.Page1.ExcelSheetValue = Nothing
Me.Page1.Margins = New Stimulsoft.Report.Components.StiMargins(0.18, 0.18, 0.2, 0.2)
Me.Page1_Watermark = New Stimulsoft.Report.Components.StiWatermark
Me.Page1_Watermark.Font = New System.Drawing.Font("Arial", 100!)
Me.Page1_Watermark.Image = Nothing
Me.Page1_Watermark.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.FromArgb(50, 0, 0, 0))
Me.Report_PrinterSettings = New Stimulsoft.Report.Print.StiPrinterSettings
Me.PrinterSettings = me.Report_PrinterSettings
Me.Page1.Page = me.Page1
Me.Page1.Report = Me
Me.Page1.Watermark = me.Page1_Watermark
Me.PageHeader1.Page = me.Page1
Me.PageHeader1.Parent = me.Page1
Me.Text2.Page = me.Page1
Me.Text2.Parent = me.PageHeader1
Me.Text1.Page = me.Page1
Me.Text1.Parent = me.PageHeader1
Me.HeadervNafExpanded.Page = me.Page1
Me.HeadervNafExpanded.Parent = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_2__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_2__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_3__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_3__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Zip_Code__Addresses_.Page = me.Page1
Me.HeaderAddress_Zip_Code__Addresses_.Parent = me.HeadervNafExpanded
Me.DatavNafExpanded.Page = me.Page1
Me.DatavNafExpanded.Parent = me.Page1
Me.DataAddress_Address_1__Addresses_.Page = me.Page1
Me.DataAddress_Address_1__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_2__Addresses_.Page = me.Page1
Me.DataAddress_Address_2__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_3__Addresses_.Page = me.Page1
Me.DataAddress_Address_3__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Zip_Code__Addresses_.Page = me.Page1
Me.DataAddress_Zip_Code__Addresses_.Parent = me.DatavNafExpanded
AddHandler EndRender, AddressOf Me.ReportWordsToEnd__EndRender
'
'Add to PageHeader1.Components
'
Me.PageHeader1.Components.Clear
Me.PageHeader1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.Text2, me.Text1})
'
'Add to HeadervNafExpanded.Components
'
Me.HeadervNafExpanded.Components.Clear
Me.HeadervNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.HeaderAddress_Address_1__Addresses_, me.HeaderAddress_Address_2__Addresses_, me.HeaderAddress_Address_3__Addresses_, me.HeaderAddress_Zip_Code__Addresses_})
'
'Add to DatavNafExpanded.Components
'
Me.DatavNafExpanded.Components.Clear
Me.DatavNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.DataAddress_Address_1__Addresses_, me.DataAddress_Address_2__Addresses_, me.DataAddress_Address_3__Addresses_, me.DataAddress_Zip_Code__Addresses_})
'
'Add to Page1.Components
'
Me.Page1.Components.Clear
Me.Page1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.PageHeader1, me.HeadervNafExpanded, me.DatavNafExpanded})
'
'Add to Pages
'
Me.Pages.Clear
Me.Pages.AddRange(New Stimulsoft.Report.Components.StiPage() {me.Page1})
Me.vNafExpanded.Columns.AddRange(New Stimulsoft.Report.Dictionary.StiDataColumn() {New Stimulsoft.Report.Dictionary.StiDataColumn("naftype", "naftype", "Address Type [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd1", "nafadd1", "Address 1 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("naftitle", "naftitle", "Title [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd2", "nafadd2", "Address 2 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd3", "nafadd3", "Address 3 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstate", "nafstate", "State [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcontry", "nafcontry", "Country [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafzip", "nafzip", "Zip Code [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcity", "nafcity", "City [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafhouse", "nafhouse", "House [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstreet", "nafstreet", "Street [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafapt", "nafapt", "Apt. [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafseq", "nafseq", "Seq. # [Addresses]", GetType(Integer))})
Me.DataSources.Add(Me.vNafExpanded)
End Sub
#Region "DataSource vNafExpanded"
Public Class vNafExpandedDataSource
Inherits Stimulsoft.Report.Dictionary.StiDataTableSource
Public Sub New()
MyBase.New("Data.vNafExpanded", "vNafExpanded")
End Sub
Public Overridable ReadOnly Property naftype As String
Get
Return CType(StiReport.ChangeType(Me("naftype"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd1 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd1"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property naftitle As String
Get
Return CType(StiReport.ChangeType(Me("naftitle"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd2 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd2"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd3 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd3"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstate As String
Get
Return CType(StiReport.ChangeType(Me("nafstate"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcontry As String
Get
Return CType(StiReport.ChangeType(Me("nafcontry"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafzip As String
Get
Return CType(StiReport.ChangeType(Me("nafzip"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcity As String
Get
Return CType(StiReport.ChangeType(Me("nafcity"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafhouse As String
Get
Return CType(StiReport.ChangeType(Me("nafhouse"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstreet As String
Get
Return CType(StiReport.ChangeType(Me("nafstreet"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafapt As String
Get
Return CType(StiReport.ChangeType(Me("nafapt"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafseq As Integer
Get
Return CType(StiReport.ChangeType(Me("nafseq"), GetType(Integer), true),Integer)
End Get
End Property
End Class
#End Region 'DataSource vNafExpanded
#End Region 'StiReport Designer generated code - do not modify
End Class
End Namespace
following are the non working code
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Dialogs
Imports Stimulsoft.Report.Components
Namespace Reports
Public Class Report
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"
Public PrintBannerPage As Boolean
Public UpdateAccounts As Boolean
Public Copies As Integer
Public AsOfDate As DateTime
Public RegenerateThumbnail As Boolean
Public ShowField As Boolean
Public ReportOptionPage1 As Integer
Public Page1 As Stimulsoft.Report.Components.StiPage
Public PageHeader1 As Stimulsoft.Report.Components.StiPageHeaderBand
Public Text2 As Stimulsoft.Report.Components.StiText
Public Text1 As Stimulsoft.Report.Components.StiText
Public HeadervNafExpanded As Stimulsoft.Report.Components.StiHeaderBand
Public HeaderAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public DatavNafExpanded As Stimulsoft.Report.Components.StiDataBand
Public DataAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public Page1_Watermark As Stimulsoft.Report.Components.StiWatermark
Public Report_PrinterSettings As Stimulsoft.Report.Print.StiPrinterSettings
Public vNafExpanded As vNafExpandedDataSource
Public Overrides Sub SaveState(ByVal stateName As System.String)
MyBase.SaveState(stateName)
Me.States.PushBool(stateName, Me, "PrintBannerPage", Me.PrintBannerPage)
Me.States.PushBool(stateName, Me, "UpdateAccounts", Me.UpdateAccounts)
Me.States.PushInt(stateName, Me, "Copies", Me.Copies)
Me.States.Push(stateName, Me, "AsOfDate", Me.AsOfDate)
Me.States.PushBool(stateName, Me, "RegenerateThumbnail", Me.RegenerateThumbnail)
Me.States.PushBool(stateName, Me, "ShowField", Me.ShowField)
Me.States.PushInt(stateName, Me, "ReportOptionPage1", Me.ReportOptionPage1)
End Sub
Public Overrides Sub RestoreState(ByVal stateName As System.String)
MyBase.RestoreState(stateName)
Me.PrintBannerPage = Me.States.PopBool(stateName, Me, "PrintBannerPage")
Me.UpdateAccounts = Me.States.PopBool(stateName, Me, "UpdateAccounts")
Me.Copies = Me.States.PopInt(stateName, Me, "Copies")
Me.AsOfDate = CType(Me.States.Pop(stateName, Me, "AsOfDate"),DateTime)
Me.RegenerateThumbnail = Me.States.PopBool(stateName, Me, "RegenerateThumbnail")
Me.ShowField = Me.States.PopBool(stateName, Me, "ShowField")
Me.ReportOptionPage1 = Me.States.PopInt(stateName, Me, "ReportOptionPage1")
End Sub
Public Sub Text2__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ""
e.StoreToPrinted = true
End Sub
Public Function Text2_GetValue_End(ByVal sender As Stimulsoft.Report.Components.StiComponent) As System.String
Return ToString(sender, PageNofM)
End Function
Public Sub Text1__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = Me.Text1.TextFormat.Format(CheckExcelValue(sender, " " + Time))
End Sub
Public Sub HeaderAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 1 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 2 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 3 [Addresses]"
End Sub
Public Sub HeaderAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Zip Code [Addresses]"
End Sub
Public Sub DataAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd1)
End Sub
Public Sub DataAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd2)
End Sub
Public Sub DataAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd3)
End Sub
Public Sub DataAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafzip)
End Sub
Public Sub ReportWordsToEnd__EndRender(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Text2.SetText(AddressOf Text2_GetValue_End)
End Sub
Private Sub InitializeComponent()
Me.vNafExpanded = New vNafExpandedDataSource
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "PrintBannerPage", "PrintBannerPage", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "UpdateAccounts", "UpdateAccounts", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "Copies", "Copies", GetType(Integer), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "AsOfDate", "AsOfDate", GetType(DateTime), Nothing, false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "RegenerateThumbnail", "RegenerateThumbnail", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ShowField", "ShowField", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ReportOptionPage1", "ReportOptionPage1", GetType(Integer), "", false, false))
Me.NeedsCompiling = false
'Variables init
'Variables init
Me.PrintBannerPage = false
Me.UpdateAccounts = false
Me.Copies = 0
Me.AsOfDate = DateTime.Now
Me.RegenerateThumbnail = false
Me.ShowField = false
Me.ReportOptionPage1 = 0
Me.ReferencedAssemblies = New System.String() {"System.Dll", "System.Drawing.Dll", "System.Windows.Forms.Dll", "System.Data.Dll", "System.Xml.Dll", "Stimulsoft.Controls.Dll", "Stimulsoft.Base.Dll", "Stimulsoft.Report.Dll", "QueryBuilderBase.Dll", "QueryBuilderWinControls.dll", "QueryBuilderApp.exe"}
Me.ReportAlias = "Report"
'
'ReportChanged
'
Me.ReportChanged = New DateTime(2008, 6, 4, 9, 52, 29, 0)
'
'ReportCreated
'
Me.ReportCreated = New DateTime(2008, 6, 4, 9, 49, 46, 0)
Me.ReportGuid = "e59672c086b74fdc9762baced91a20b2"
Me.ReportName = "Report"
Me.ReportUnit = Stimulsoft.Report.StiReportUnitType.Inches
Me.ScriptLanguage = Stimulsoft.Report.StiReportLanguageType.VB
'
'Page1
'
Me.Page1 = New Stimulsoft.Report.Components.StiPage
Me.Page1.Guid = "3178aa5de6944bd684d0e2bc3d547a8f"
Me.Page1.Inherited = true
Me.Page1.Name = "Page1"
Me.Page1.PageHeight = 11
Me.Page1.PageWidth = 8.5
Me.Page1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 2, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Page1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'PageHeader1
'
Me.PageHeader1 = New Stimulsoft.Report.Components.StiPageHeaderBand
Me.PageHeader1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.2, 8.14, 0.2)
Me.PageHeader1.Inherited = true
Me.PageHeader1.Name = "PageHeader1"
Me.PageHeader1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.PageHeader1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Text2
'
Me.Text2 = New Stimulsoft.Report.Components.StiText
Me.Text2.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6.3, 0, 1.8, 0.2)
Me.Text2.HorAlignment = Stimulsoft.Base.Drawing.StiTextHorAlignment.Right
Me.Text2.Inherited = true
Me.Text2.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text2.Name = "Text2"
AddHandler Me.Text2.GetValue, AddressOf Me.Text2__GetValue
Me.Text2.Type = Stimulsoft.Report.Components.StiSystemTextType.SystemVariables
Me.Text2.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text2.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text2.Font = New System.Drawing.Font("Arial", 10!)
Me.Text2.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text2.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text2.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.Text2.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'Text1
'
Me.Text1 = New Stimulsoft.Report.Components.StiText
Me.Text1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0.05, 0, 1.9, 0.2)
Me.Text1.Inherited = true
Me.Text1.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text1.Name = "Text1"
AddHandler Me.Text1.GetValue, AddressOf Me.Text1__GetValue
Me.Text1.Type = Stimulsoft.Report.Components.StiSystemTextType.Expression
Me.Text1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text1.Font = New System.Drawing.Font("Arial", 10!)
Me.Text1.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text1.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text1.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiTimeFormatService("HH:mm:ss")
Me.Text1.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeadervNafExpanded
'
Me.HeadervNafExpanded = New Stimulsoft.Report.Components.StiHeaderBand
Me.HeadervNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.8, 8.14, 0.3)
Me.HeadervNafExpanded.Name = "HeadervNafExpanded"
Me.HeadervNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeadervNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'HeaderAddress_Address_1__Addresses_
'
Me.HeaderAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.HeaderAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_1__Addresses_.Name = "HeaderAddress_Address_1__Addresses_"
AddHandler Me.HeaderAddress_Address_1__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_1__Addresses___GetValue
Me.HeaderAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_2__Addresses_
'
Me.HeaderAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.HeaderAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_2__Addresses_.Name = "HeaderAddress_Address_2__Addresses_"
AddHandler Me.HeaderAddress_Address_2__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_2__Addresses___GetValue
Me.HeaderAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_3__Addresses_
'
Me.HeaderAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.HeaderAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_3__Addresses_.Name = "HeaderAddress_Address_3__Addresses_"
AddHandler Me.HeaderAddress_Address_3__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_3__Addresses___GetValue
Me.HeaderAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Zip_Code__Addresses_
'
Me.HeaderAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.HeaderAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Zip_Code__Addresses_.Name = "HeaderAddress_Zip_Code__Addresses_"
AddHandler Me.HeaderAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.HeaderAddress_Zip_Code__Addresses___GetValue
Me.HeaderAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DatavNafExpanded
'
Me.DatavNafExpanded = New Stimulsoft.Report.Components.StiDataBand
Me.DatavNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 1.5, 8.14, 0.3)
Me.DatavNafExpanded.DataRelationName = ""
Me.DatavNafExpanded.DataSourceName = "vNafExpanded"
Me.DatavNafExpanded.Name = "DatavNafExpanded"
Me.DatavNafExpanded.Sort = New System.String(-1) {}
Me.DatavNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DatavNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'DataAddress_Address_1__Addresses_
'
Me.DataAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_1__Addresses_.CanGrow = true
Me.DataAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.DataAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_1__Addresses_.Name = "DataAddress_Address_1__Addresses_"
AddHandler Me.DataAddress_Address_1__Addresses_.GetValue, AddressOf Me.DataAddress_Address_1__Addresses___GetValue
Me.DataAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_2__Addresses_
'
Me.DataAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_2__Addresses_.CanGrow = true
Me.DataAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.DataAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_2__Addresses_.Name = "DataAddress_Address_2__Addresses_"
AddHandler Me.DataAddress_Address_2__Addresses_.GetValue, AddressOf Me.DataAddress_Address_2__Addresses___GetValue
Me.DataAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_3__Addresses_
'
Me.DataAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_3__Addresses_.CanGrow = true
Me.DataAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.DataAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_3__Addresses_.Name = "DataAddress_Address_3__Addresses_"
AddHandler Me.DataAddress_Address_3__Addresses_.GetValue, AddressOf Me.DataAddress_Address_3__Addresses___GetValue
Me.DataAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Zip_Code__Addresses_
'
Me.DataAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Zip_Code__Addresses_.CanGrow = true
Me.DataAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.DataAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Zip_Code__Addresses_.Name = "DataAddress_Zip_Code__Addresses_"
AddHandler Me.DataAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.DataAddress_Zip_Code__Addresses___GetValue
Me.DataAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
Me.DatavNafExpanded.MasterComponent = Nothing
Me.Page1.ExcelSheetValue = Nothing
Me.Page1.Margins = New Stimulsoft.Report.Components.StiMargins(0.18, 0.18, 0.2, 0.2)
Me.Page1_Watermark = New Stimulsoft.Report.Components.StiWatermark
Me.Page1_Watermark.Font = New System.Drawing.Font("Arial", 100!)
Me.Page1_Watermark.Image = Nothing
Me.Page1_Watermark.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.FromArgb(50, 0, 0, 0))
Me.Report_PrinterSettings = New Stimulsoft.Report.Print.StiPrinterSettings
Me.PrinterSettings = me.Report_PrinterSettings
Me.Page1.Page = me.Page1
Me.Page1.Report = Me
Me.Page1.Watermark = me.Page1_Watermark
Me.PageHeader1.Page = me.Page1
Me.PageHeader1.Parent = me.Page1
Me.Text2.Page = me.Page1
Me.Text2.Parent = me.PageHeader1
Me.Text1.Page = me.Page1
Me.Text1.Parent = me.PageHeader1
Me.HeadervNafExpanded.Page = me.Page1
Me.HeadervNafExpanded.Parent = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_2__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_2__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_3__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_3__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Zip_Code__Addresses_.Page = me.Page1
Me.HeaderAddress_Zip_Code__Addresses_.Parent = me.HeadervNafExpanded
Me.DatavNafExpanded.Page = me.Page1
Me.DatavNafExpanded.Parent = me.Page1
Me.DataAddress_Address_1__Addresses_.Page = me.Page1
Me.DataAddress_Address_1__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_2__Addresses_.Page = me.Page1
Me.DataAddress_Address_2__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_3__Addresses_.Page = me.Page1
Me.DataAddress_Address_3__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Zip_Code__Addresses_.Page = me.Page1
Me.DataAddress_Zip_Code__Addresses_.Parent = me.DatavNafExpanded
AddHandler EndRender, AddressOf Me.ReportWordsToEnd__EndRender
'
'Add to PageHeader1.Components
'
Me.PageHeader1.Components.Clear
Me.PageHeader1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.Text2, me.Text1})
'
'Add to HeadervNafExpanded.Components
'
Me.HeadervNafExpanded.Components.Clear
Me.HeadervNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.HeaderAddress_Address_1__Addresses_, me.HeaderAddress_Address_2__Addresses_, me.HeaderAddress_Address_3__Addresses_, me.HeaderAddress_Zip_Code__Addresses_})
'
'Add to DatavNafExpanded.Components
'
Me.DatavNafExpanded.Components.Clear
Me.DatavNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.DataAddress_Address_1__Addresses_, me.DataAddress_Address_2__Addresses_, me.DataAddress_Address_3__Addresses_, me.DataAddress_Zip_Code__Addresses_})
'
'Add to Page1.Components
'
Me.Page1.Components.Clear
Me.Page1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.PageHeader1, me.HeadervNafExpanded, me.DatavNafExpanded})
'
'Add to Pages
'
Me.Pages.Clear
Me.Pages.AddRange(New Stimulsoft.Report.Components.StiPage() {me.Page1})
Me.vNafExpanded.Columns.AddRange(New Stimulsoft.Report.Dictionary.StiDataColumn() {New Stimulsoft.Report.Dictionary.StiDataColumn("naftype", "naftype", "Address Type [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd1", "nafadd1", "Address 1 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("naftitle", "naftitle", "Title [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd2", "nafadd2", "Address 2 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd3", "nafadd3", "Address 3 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstate", "nafstate", "State [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcontry", "nafcontry", "Country [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafzip", "nafzip", "Zip Code [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcity", "nafcity", "City [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafhouse", "nafhouse", "House [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstreet", "nafstreet", "Street [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafapt", "nafapt", "Apt. [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafseq", "nafseq", "Seq. # [Addresses]", GetType(Integer))})
Me.DataSources.Add(Me.vNafExpanded)
End Sub
#Region "DataSource vNafExpanded"
Public Class vNafExpandedDataSource
Inherits Stimulsoft.Report.Dictionary.StiDataTableSource
Public Sub New()
MyBase.New("Data.vNafExpanded", "vNafExpanded")
End Sub
Public Overridable ReadOnly Property naftype As String
Get
Return CType(StiReport.ChangeType(Me("naftype"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd1 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd1"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property naftitle As String
Get
Return CType(StiReport.ChangeType(Me("naftitle"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd2 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd2"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd3 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd3"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstate As String
Get
Return CType(StiReport.ChangeType(Me("nafstate"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcontry As String
Get
Return CType(StiReport.ChangeType(Me("nafcontry"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafzip As String
Get
Return CType(StiReport.ChangeType(Me("nafzip"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcity As String
Get
Return CType(StiReport.ChangeType(Me("nafcity"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafhouse As String
Get
Return CType(StiReport.ChangeType(Me("nafhouse"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstreet As String
Get
Return CType(StiReport.ChangeType(Me("nafstreet"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafapt As String
Get
Return CType(StiReport.ChangeType(Me("nafapt"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafseq As Integer
Get
Return CType(StiReport.ChangeType(Me("nafseq"), GetType(Integer), true),Integer)
End Get
End Property
End Class
#End Region 'DataSource vNafExpanded
#End Region 'StiReport Designer generated code - do not modify
End Class
End Namespace
can you plz guide me how to resolve that issue.
Thanks
I create the report in which i am using the report options. When i am using your new DLL's i got following error but when i used ur old dll it is working.
A System Error has occured
===================================
C:\Documents and Settings\adinag\Local Settings\Temp\t-yrdhp6.0.vb(131,0) : error BC30288: Local variable 'tag' is already declared in the current block.C:\Documents and Settings\adinag\Local Settings\Temp\t-yrdhp6.0.vb(132,0) : error BC30288: Local variable 'tag' is already declared in the current block. (Stimulsoft.Report)
------------------------------
Program Location:
at Stimulsoft.Report.StiReport.Compile(String path, Stream stream, StiOutputType outputType, Boolean autoCreate, Object standaloneReportType)
at Stimulsoft.Report.StiReport.Compile()
at SDP.Base.QueryBuilder.ReportExecuter.ExecuteReport(Report report, Hashtable querySql, DataSet dataSet, Boolean HideRendering) in D:\QueryBuilder2\QueryBuilder\ReportExecuter.vb:line 154
at SDP.Win.QueryBuilder.RunReport.HandlePreviewReport(Report execReport, Hashtable sql) in D:\QueryBuilder2\QueryBuilderControls\RunReport.vb:line 466
at SDP.Win.QueryBuilder.RunReport.ExecuteReport(Object report) in D:\QueryBuilder2\QueryBuilderControls\RunReport.vb:line 480
Followings are the working code:-
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Dialogs
Imports Stimulsoft.Report.Components
Namespace Reports
Public Class Report
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"
Public PrintBannerPage As Boolean
Public UpdateAccounts As Boolean
Public Copies As Integer
Public AsOfDate As DateTime
Public RegenerateThumbnail As Boolean
Public ShowField As Boolean
Public ReportOptionPage1 As Integer
Public Page1 As Stimulsoft.Report.Components.StiPage
Public PageHeader1 As Stimulsoft.Report.Components.StiPageHeaderBand
Public Text2 As Stimulsoft.Report.Components.StiText
Public Text1 As Stimulsoft.Report.Components.StiText
Public HeadervNafExpanded As Stimulsoft.Report.Components.StiHeaderBand
Public HeaderAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public DatavNafExpanded As Stimulsoft.Report.Components.StiDataBand
Public DataAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public Page1_Watermark As Stimulsoft.Report.Components.StiWatermark
Public Report_PrinterSettings As Stimulsoft.Report.Print.StiPrinterSettings
Public vNafExpanded As vNafExpandedDataSource
Public Overrides Sub SaveState(ByVal stateName As System.String)
MyBase.SaveState(stateName)
Me.States.PushBool(stateName, Me, "PrintBannerPage", Me.PrintBannerPage)
Me.States.PushBool(stateName, Me, "UpdateAccounts", Me.UpdateAccounts)
Me.States.PushInt(stateName, Me, "Copies", Me.Copies)
Me.States.Push(stateName, Me, "AsOfDate", Me.AsOfDate)
Me.States.PushBool(stateName, Me, "RegenerateThumbnail", Me.RegenerateThumbnail)
Me.States.PushBool(stateName, Me, "ShowField", Me.ShowField)
Me.States.PushInt(stateName, Me, "ReportOptionPage1", Me.ReportOptionPage1)
End Sub
Public Overrides Sub RestoreState(ByVal stateName As System.String)
MyBase.RestoreState(stateName)
Me.PrintBannerPage = Me.States.PopBool(stateName, Me, "PrintBannerPage")
Me.UpdateAccounts = Me.States.PopBool(stateName, Me, "UpdateAccounts")
Me.Copies = Me.States.PopInt(stateName, Me, "Copies")
Me.AsOfDate = CType(Me.States.Pop(stateName, Me, "AsOfDate"),DateTime)
Me.RegenerateThumbnail = Me.States.PopBool(stateName, Me, "RegenerateThumbnail")
Me.ShowField = Me.States.PopBool(stateName, Me, "ShowField")
Me.ReportOptionPage1 = Me.States.PopInt(stateName, Me, "ReportOptionPage1")
End Sub
Public Sub Text2__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ""
e.StoreToPrinted = true
End Sub
Public Function Text2_GetValue_End(ByVal sender As Stimulsoft.Report.Components.StiComponent) As System.String
Return ToString(sender, PageNofM)
End Function
Public Sub Text1__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = Me.Text1.TextFormat.Format(CheckExcelValue(sender, " " + Time))
End Sub
Public Sub HeaderAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 1 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 2 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 3 [Addresses]"
End Sub
Public Sub HeaderAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Zip Code [Addresses]"
End Sub
Public Sub DataAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd1)
End Sub
Public Sub DataAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd2)
End Sub
Public Sub DataAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd3)
End Sub
Public Sub DataAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafzip)
End Sub
Public Sub ReportWordsToEnd__EndRender(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Text2.SetText(AddressOf Text2_GetValue_End)
End Sub
Private Sub InitializeComponent()
Me.vNafExpanded = New vNafExpandedDataSource
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "PrintBannerPage", "PrintBannerPage", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "UpdateAccounts", "UpdateAccounts", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "Copies", "Copies", GetType(Integer), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "AsOfDate", "AsOfDate", GetType(DateTime), Nothing, false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "RegenerateThumbnail", "RegenerateThumbnail", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ShowField", "ShowField", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ReportOptionPage1", "ReportOptionPage1", GetType(Integer), "", false, false))
Me.NeedsCompiling = false
'Variables init
'Variables init
Me.PrintBannerPage = false
Me.UpdateAccounts = false
Me.Copies = 0
Me.AsOfDate = DateTime.Now
Me.RegenerateThumbnail = false
Me.ShowField = false
Me.ReportOptionPage1 = 0
Me.ReferencedAssemblies = New System.String() {"System.Dll", "System.Drawing.Dll", "System.Windows.Forms.Dll", "System.Data.Dll", "System.Xml.Dll", "Stimulsoft.Controls.Dll", "Stimulsoft.Base.Dll", "Stimulsoft.Report.Dll", "QueryBuilderBase.Dll", "QueryBuilderWinControls.dll", "QueryBuilderApp.exe"}
Me.ReportAlias = "Report"
'
'ReportChanged
'
Me.ReportChanged = New DateTime(2008, 6, 4, 9, 52, 29, 0)
'
'ReportCreated
'
Me.ReportCreated = New DateTime(2008, 6, 4, 9, 49, 46, 0)
Me.ReportGuid = "e59672c086b74fdc9762baced91a20b2"
Me.ReportName = "Report"
Me.ReportUnit = Stimulsoft.Report.StiReportUnitType.Inches
Me.ScriptLanguage = Stimulsoft.Report.StiReportLanguageType.VB
'
'Page1
'
Me.Page1 = New Stimulsoft.Report.Components.StiPage
Me.Page1.Guid = "3178aa5de6944bd684d0e2bc3d547a8f"
Me.Page1.Inherited = true
Me.Page1.Name = "Page1"
Me.Page1.PageHeight = 11
Me.Page1.PageWidth = 8.5
Me.Page1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 2, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Page1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'PageHeader1
'
Me.PageHeader1 = New Stimulsoft.Report.Components.StiPageHeaderBand
Me.PageHeader1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.2, 8.14, 0.2)
Me.PageHeader1.Inherited = true
Me.PageHeader1.Name = "PageHeader1"
Me.PageHeader1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.PageHeader1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Text2
'
Me.Text2 = New Stimulsoft.Report.Components.StiText
Me.Text2.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6.3, 0, 1.8, 0.2)
Me.Text2.HorAlignment = Stimulsoft.Base.Drawing.StiTextHorAlignment.Right
Me.Text2.Inherited = true
Me.Text2.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text2.Name = "Text2"
AddHandler Me.Text2.GetValue, AddressOf Me.Text2__GetValue
Me.Text2.Type = Stimulsoft.Report.Components.StiSystemTextType.SystemVariables
Me.Text2.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text2.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text2.Font = New System.Drawing.Font("Arial", 10!)
Me.Text2.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text2.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text2.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.Text2.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'Text1
'
Me.Text1 = New Stimulsoft.Report.Components.StiText
Me.Text1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0.05, 0, 1.9, 0.2)
Me.Text1.Inherited = true
Me.Text1.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text1.Name = "Text1"
AddHandler Me.Text1.GetValue, AddressOf Me.Text1__GetValue
Me.Text1.Type = Stimulsoft.Report.Components.StiSystemTextType.Expression
Me.Text1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text1.Font = New System.Drawing.Font("Arial", 10!)
Me.Text1.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text1.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text1.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiTimeFormatService("HH:mm:ss")
Me.Text1.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeadervNafExpanded
'
Me.HeadervNafExpanded = New Stimulsoft.Report.Components.StiHeaderBand
Me.HeadervNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.8, 8.14, 0.3)
Me.HeadervNafExpanded.Name = "HeadervNafExpanded"
Me.HeadervNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeadervNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'HeaderAddress_Address_1__Addresses_
'
Me.HeaderAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.HeaderAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_1__Addresses_.Name = "HeaderAddress_Address_1__Addresses_"
AddHandler Me.HeaderAddress_Address_1__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_1__Addresses___GetValue
Me.HeaderAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_2__Addresses_
'
Me.HeaderAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.HeaderAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_2__Addresses_.Name = "HeaderAddress_Address_2__Addresses_"
AddHandler Me.HeaderAddress_Address_2__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_2__Addresses___GetValue
Me.HeaderAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_3__Addresses_
'
Me.HeaderAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.HeaderAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_3__Addresses_.Name = "HeaderAddress_Address_3__Addresses_"
AddHandler Me.HeaderAddress_Address_3__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_3__Addresses___GetValue
Me.HeaderAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Zip_Code__Addresses_
'
Me.HeaderAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.HeaderAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Zip_Code__Addresses_.Name = "HeaderAddress_Zip_Code__Addresses_"
AddHandler Me.HeaderAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.HeaderAddress_Zip_Code__Addresses___GetValue
Me.HeaderAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DatavNafExpanded
'
Me.DatavNafExpanded = New Stimulsoft.Report.Components.StiDataBand
Me.DatavNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 1.5, 8.14, 0.3)
Me.DatavNafExpanded.DataRelationName = ""
Me.DatavNafExpanded.DataSourceName = "vNafExpanded"
Me.DatavNafExpanded.Name = "DatavNafExpanded"
Me.DatavNafExpanded.Sort = New System.String(-1) {}
Me.DatavNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DatavNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'DataAddress_Address_1__Addresses_
'
Me.DataAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_1__Addresses_.CanGrow = true
Me.DataAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.DataAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_1__Addresses_.Name = "DataAddress_Address_1__Addresses_"
AddHandler Me.DataAddress_Address_1__Addresses_.GetValue, AddressOf Me.DataAddress_Address_1__Addresses___GetValue
Me.DataAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_2__Addresses_
'
Me.DataAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_2__Addresses_.CanGrow = true
Me.DataAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.DataAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_2__Addresses_.Name = "DataAddress_Address_2__Addresses_"
AddHandler Me.DataAddress_Address_2__Addresses_.GetValue, AddressOf Me.DataAddress_Address_2__Addresses___GetValue
Me.DataAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_3__Addresses_
'
Me.DataAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_3__Addresses_.CanGrow = true
Me.DataAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.DataAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_3__Addresses_.Name = "DataAddress_Address_3__Addresses_"
AddHandler Me.DataAddress_Address_3__Addresses_.GetValue, AddressOf Me.DataAddress_Address_3__Addresses___GetValue
Me.DataAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Zip_Code__Addresses_
'
Me.DataAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Zip_Code__Addresses_.CanGrow = true
Me.DataAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.DataAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Zip_Code__Addresses_.Name = "DataAddress_Zip_Code__Addresses_"
AddHandler Me.DataAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.DataAddress_Zip_Code__Addresses___GetValue
Me.DataAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
Me.DatavNafExpanded.MasterComponent = Nothing
Me.Page1.ExcelSheetValue = Nothing
Me.Page1.Margins = New Stimulsoft.Report.Components.StiMargins(0.18, 0.18, 0.2, 0.2)
Me.Page1_Watermark = New Stimulsoft.Report.Components.StiWatermark
Me.Page1_Watermark.Font = New System.Drawing.Font("Arial", 100!)
Me.Page1_Watermark.Image = Nothing
Me.Page1_Watermark.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.FromArgb(50, 0, 0, 0))
Me.Report_PrinterSettings = New Stimulsoft.Report.Print.StiPrinterSettings
Me.PrinterSettings = me.Report_PrinterSettings
Me.Page1.Page = me.Page1
Me.Page1.Report = Me
Me.Page1.Watermark = me.Page1_Watermark
Me.PageHeader1.Page = me.Page1
Me.PageHeader1.Parent = me.Page1
Me.Text2.Page = me.Page1
Me.Text2.Parent = me.PageHeader1
Me.Text1.Page = me.Page1
Me.Text1.Parent = me.PageHeader1
Me.HeadervNafExpanded.Page = me.Page1
Me.HeadervNafExpanded.Parent = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_2__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_2__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_3__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_3__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Zip_Code__Addresses_.Page = me.Page1
Me.HeaderAddress_Zip_Code__Addresses_.Parent = me.HeadervNafExpanded
Me.DatavNafExpanded.Page = me.Page1
Me.DatavNafExpanded.Parent = me.Page1
Me.DataAddress_Address_1__Addresses_.Page = me.Page1
Me.DataAddress_Address_1__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_2__Addresses_.Page = me.Page1
Me.DataAddress_Address_2__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_3__Addresses_.Page = me.Page1
Me.DataAddress_Address_3__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Zip_Code__Addresses_.Page = me.Page1
Me.DataAddress_Zip_Code__Addresses_.Parent = me.DatavNafExpanded
AddHandler EndRender, AddressOf Me.ReportWordsToEnd__EndRender
'
'Add to PageHeader1.Components
'
Me.PageHeader1.Components.Clear
Me.PageHeader1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.Text2, me.Text1})
'
'Add to HeadervNafExpanded.Components
'
Me.HeadervNafExpanded.Components.Clear
Me.HeadervNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.HeaderAddress_Address_1__Addresses_, me.HeaderAddress_Address_2__Addresses_, me.HeaderAddress_Address_3__Addresses_, me.HeaderAddress_Zip_Code__Addresses_})
'
'Add to DatavNafExpanded.Components
'
Me.DatavNafExpanded.Components.Clear
Me.DatavNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.DataAddress_Address_1__Addresses_, me.DataAddress_Address_2__Addresses_, me.DataAddress_Address_3__Addresses_, me.DataAddress_Zip_Code__Addresses_})
'
'Add to Page1.Components
'
Me.Page1.Components.Clear
Me.Page1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.PageHeader1, me.HeadervNafExpanded, me.DatavNafExpanded})
'
'Add to Pages
'
Me.Pages.Clear
Me.Pages.AddRange(New Stimulsoft.Report.Components.StiPage() {me.Page1})
Me.vNafExpanded.Columns.AddRange(New Stimulsoft.Report.Dictionary.StiDataColumn() {New Stimulsoft.Report.Dictionary.StiDataColumn("naftype", "naftype", "Address Type [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd1", "nafadd1", "Address 1 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("naftitle", "naftitle", "Title [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd2", "nafadd2", "Address 2 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd3", "nafadd3", "Address 3 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstate", "nafstate", "State [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcontry", "nafcontry", "Country [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafzip", "nafzip", "Zip Code [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcity", "nafcity", "City [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafhouse", "nafhouse", "House [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstreet", "nafstreet", "Street [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafapt", "nafapt", "Apt. [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafseq", "nafseq", "Seq. # [Addresses]", GetType(Integer))})
Me.DataSources.Add(Me.vNafExpanded)
End Sub
#Region "DataSource vNafExpanded"
Public Class vNafExpandedDataSource
Inherits Stimulsoft.Report.Dictionary.StiDataTableSource
Public Sub New()
MyBase.New("Data.vNafExpanded", "vNafExpanded")
End Sub
Public Overridable ReadOnly Property naftype As String
Get
Return CType(StiReport.ChangeType(Me("naftype"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd1 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd1"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property naftitle As String
Get
Return CType(StiReport.ChangeType(Me("naftitle"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd2 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd2"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd3 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd3"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstate As String
Get
Return CType(StiReport.ChangeType(Me("nafstate"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcontry As String
Get
Return CType(StiReport.ChangeType(Me("nafcontry"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafzip As String
Get
Return CType(StiReport.ChangeType(Me("nafzip"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcity As String
Get
Return CType(StiReport.ChangeType(Me("nafcity"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafhouse As String
Get
Return CType(StiReport.ChangeType(Me("nafhouse"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstreet As String
Get
Return CType(StiReport.ChangeType(Me("nafstreet"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafapt As String
Get
Return CType(StiReport.ChangeType(Me("nafapt"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafseq As Integer
Get
Return CType(StiReport.ChangeType(Me("nafseq"), GetType(Integer), true),Integer)
End Get
End Property
End Class
#End Region 'DataSource vNafExpanded
#End Region 'StiReport Designer generated code - do not modify
End Class
End Namespace
following are the non working code
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Dialogs
Imports Stimulsoft.Report.Components
Namespace Reports
Public Class Report
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"
Public PrintBannerPage As Boolean
Public UpdateAccounts As Boolean
Public Copies As Integer
Public AsOfDate As DateTime
Public RegenerateThumbnail As Boolean
Public ShowField As Boolean
Public ReportOptionPage1 As Integer
Public Page1 As Stimulsoft.Report.Components.StiPage
Public PageHeader1 As Stimulsoft.Report.Components.StiPageHeaderBand
Public Text2 As Stimulsoft.Report.Components.StiText
Public Text1 As Stimulsoft.Report.Components.StiText
Public HeadervNafExpanded As Stimulsoft.Report.Components.StiHeaderBand
Public HeaderAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public HeaderAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public DatavNafExpanded As Stimulsoft.Report.Components.StiDataBand
Public DataAddress_Address_1__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_2__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Address_3__Addresses_ As Stimulsoft.Report.Components.StiText
Public DataAddress_Zip_Code__Addresses_ As Stimulsoft.Report.Components.StiText
Public Page1_Watermark As Stimulsoft.Report.Components.StiWatermark
Public Report_PrinterSettings As Stimulsoft.Report.Print.StiPrinterSettings
Public vNafExpanded As vNafExpandedDataSource
Public Overrides Sub SaveState(ByVal stateName As System.String)
MyBase.SaveState(stateName)
Me.States.PushBool(stateName, Me, "PrintBannerPage", Me.PrintBannerPage)
Me.States.PushBool(stateName, Me, "UpdateAccounts", Me.UpdateAccounts)
Me.States.PushInt(stateName, Me, "Copies", Me.Copies)
Me.States.Push(stateName, Me, "AsOfDate", Me.AsOfDate)
Me.States.PushBool(stateName, Me, "RegenerateThumbnail", Me.RegenerateThumbnail)
Me.States.PushBool(stateName, Me, "ShowField", Me.ShowField)
Me.States.PushInt(stateName, Me, "ReportOptionPage1", Me.ReportOptionPage1)
End Sub
Public Overrides Sub RestoreState(ByVal stateName As System.String)
MyBase.RestoreState(stateName)
Me.PrintBannerPage = Me.States.PopBool(stateName, Me, "PrintBannerPage")
Me.UpdateAccounts = Me.States.PopBool(stateName, Me, "UpdateAccounts")
Me.Copies = Me.States.PopInt(stateName, Me, "Copies")
Me.AsOfDate = CType(Me.States.Pop(stateName, Me, "AsOfDate"),DateTime)
Me.RegenerateThumbnail = Me.States.PopBool(stateName, Me, "RegenerateThumbnail")
Me.ShowField = Me.States.PopBool(stateName, Me, "ShowField")
Me.ReportOptionPage1 = Me.States.PopInt(stateName, Me, "ReportOptionPage1")
End Sub
Public Sub Text2__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ""
e.StoreToPrinted = true
End Sub
Public Function Text2_GetValue_End(ByVal sender As Stimulsoft.Report.Components.StiComponent) As System.String
Return ToString(sender, PageNofM)
End Function
Public Sub Text1__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = Me.Text1.TextFormat.Format(CheckExcelValue(sender, " " + Time))
End Sub
Public Sub HeaderAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 1 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 2 [Addresses]"
End Sub
Public Sub HeaderAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Address 3 [Addresses]"
End Sub
Public Sub HeaderAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Zip Code [Addresses]"
End Sub
Public Sub DataAddress_Address_1__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd1)
End Sub
Public Sub DataAddress_Address_2__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd2)
End Sub
Public Sub DataAddress_Address_3__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafadd3)
End Sub
Public Sub DataAddress_Zip_Code__Addresses___GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = ToString(sender, vNafExpanded.nafzip)
End Sub
Public Sub ReportWordsToEnd__EndRender(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Text2.SetText(AddressOf Text2_GetValue_End)
End Sub
Private Sub InitializeComponent()
Me.vNafExpanded = New vNafExpandedDataSource
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "PrintBannerPage", "PrintBannerPage", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "UpdateAccounts", "UpdateAccounts", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "Copies", "Copies", GetType(Integer), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "AsOfDate", "AsOfDate", GetType(DateTime), Nothing, false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "RegenerateThumbnail", "RegenerateThumbnail", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ShowField", "ShowField", GetType(Boolean), "", false, false))
Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", "ReportOptionPage1", "ReportOptionPage1", GetType(Integer), "", false, false))
Me.NeedsCompiling = false
'Variables init
'Variables init
Me.PrintBannerPage = false
Me.UpdateAccounts = false
Me.Copies = 0
Me.AsOfDate = DateTime.Now
Me.RegenerateThumbnail = false
Me.ShowField = false
Me.ReportOptionPage1 = 0
Me.ReferencedAssemblies = New System.String() {"System.Dll", "System.Drawing.Dll", "System.Windows.Forms.Dll", "System.Data.Dll", "System.Xml.Dll", "Stimulsoft.Controls.Dll", "Stimulsoft.Base.Dll", "Stimulsoft.Report.Dll", "QueryBuilderBase.Dll", "QueryBuilderWinControls.dll", "QueryBuilderApp.exe"}
Me.ReportAlias = "Report"
'
'ReportChanged
'
Me.ReportChanged = New DateTime(2008, 6, 4, 9, 52, 29, 0)
'
'ReportCreated
'
Me.ReportCreated = New DateTime(2008, 6, 4, 9, 49, 46, 0)
Me.ReportGuid = "e59672c086b74fdc9762baced91a20b2"
Me.ReportName = "Report"
Me.ReportUnit = Stimulsoft.Report.StiReportUnitType.Inches
Me.ScriptLanguage = Stimulsoft.Report.StiReportLanguageType.VB
'
'Page1
'
Me.Page1 = New Stimulsoft.Report.Components.StiPage
Me.Page1.Guid = "3178aa5de6944bd684d0e2bc3d547a8f"
Me.Page1.Inherited = true
Me.Page1.Name = "Page1"
Me.Page1.PageHeight = 11
Me.Page1.PageWidth = 8.5
Me.Page1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 2, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Page1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'PageHeader1
'
Me.PageHeader1 = New Stimulsoft.Report.Components.StiPageHeaderBand
Me.PageHeader1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.2, 8.14, 0.2)
Me.PageHeader1.Inherited = true
Me.PageHeader1.Name = "PageHeader1"
Me.PageHeader1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.PageHeader1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Text2
'
Me.Text2 = New Stimulsoft.Report.Components.StiText
Me.Text2.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6.3, 0, 1.8, 0.2)
Me.Text2.HorAlignment = Stimulsoft.Base.Drawing.StiTextHorAlignment.Right
Me.Text2.Inherited = true
Me.Text2.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text2.Name = "Text2"
AddHandler Me.Text2.GetValue, AddressOf Me.Text2__GetValue
Me.Text2.Type = Stimulsoft.Report.Components.StiSystemTextType.SystemVariables
Me.Text2.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text2.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text2.Font = New System.Drawing.Font("Arial", 10!)
Me.Text2.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text2.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text2.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.Text2.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'Text1
'
Me.Text1 = New Stimulsoft.Report.Components.StiText
Me.Text1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0.05, 0, 1.9, 0.2)
Me.Text1.Inherited = true
Me.Text1.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.Text1.Name = "Text1"
AddHandler Me.Text1.GetValue, AddressOf Me.Text1__GetValue
Me.Text1.Type = Stimulsoft.Report.Components.StiSystemTextType.Expression
Me.Text1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text1.Font = New System.Drawing.Font("Arial", 10!)
Me.Text1.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text1.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.Text1.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiTimeFormatService("HH:mm:ss")
Me.Text1.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeadervNafExpanded
'
Me.HeadervNafExpanded = New Stimulsoft.Report.Components.StiHeaderBand
Me.HeadervNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.8, 8.14, 0.3)
Me.HeadervNafExpanded.Name = "HeadervNafExpanded"
Me.HeadervNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeadervNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'HeaderAddress_Address_1__Addresses_
'
Me.HeaderAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.HeaderAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_1__Addresses_.Name = "HeaderAddress_Address_1__Addresses_"
AddHandler Me.HeaderAddress_Address_1__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_1__Addresses___GetValue
Me.HeaderAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_2__Addresses_
'
Me.HeaderAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.HeaderAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_2__Addresses_.Name = "HeaderAddress_Address_2__Addresses_"
AddHandler Me.HeaderAddress_Address_2__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_2__Addresses___GetValue
Me.HeaderAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Address_3__Addresses_
'
Me.HeaderAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.HeaderAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Address_3__Addresses_.Name = "HeaderAddress_Address_3__Addresses_"
AddHandler Me.HeaderAddress_Address_3__Addresses_.GetValue, AddressOf Me.HeaderAddress_Address_3__Addresses___GetValue
Me.HeaderAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'HeaderAddress_Zip_Code__Addresses_
'
Me.HeaderAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.HeaderAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.HeaderAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.HeaderAddress_Zip_Code__Addresses_.Name = "HeaderAddress_Zip_Code__Addresses_"
AddHandler Me.HeaderAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.HeaderAddress_Zip_Code__Addresses___GetValue
Me.HeaderAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.HeaderAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.HeaderAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.HeaderAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 10!, System.Drawing.FontStyle.Bold)
Me.HeaderAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.HeaderAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.HeaderAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.HeaderAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DatavNafExpanded
'
Me.DatavNafExpanded = New Stimulsoft.Report.Components.StiDataBand
Me.DatavNafExpanded.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 1.5, 8.14, 0.3)
Me.DatavNafExpanded.DataRelationName = ""
Me.DatavNafExpanded.DataSourceName = "vNafExpanded"
Me.DatavNafExpanded.Name = "DatavNafExpanded"
Me.DatavNafExpanded.Sort = New System.String(-1) {}
Me.DatavNafExpanded.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DatavNafExpanded.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'DataAddress_Address_1__Addresses_
'
Me.DataAddress_Address_1__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_1__Addresses_.CanGrow = true
Me.DataAddress_Address_1__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 2, 0.3)
Me.DataAddress_Address_1__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_1__Addresses_.Name = "DataAddress_Address_1__Addresses_"
AddHandler Me.DataAddress_Address_1__Addresses_.GetValue, AddressOf Me.DataAddress_Address_1__Addresses___GetValue
Me.DataAddress_Address_1__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_1__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_1__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_1__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_1__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_1__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_1__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_1__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_2__Addresses_
'
Me.DataAddress_Address_2__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_2__Addresses_.CanGrow = true
Me.DataAddress_Address_2__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(2, 0, 2, 0.3)
Me.DataAddress_Address_2__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_2__Addresses_.Name = "DataAddress_Address_2__Addresses_"
AddHandler Me.DataAddress_Address_2__Addresses_.GetValue, AddressOf Me.DataAddress_Address_2__Addresses___GetValue
Me.DataAddress_Address_2__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_2__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_2__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_2__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_2__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_2__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_2__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_2__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Address_3__Addresses_
'
Me.DataAddress_Address_3__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Address_3__Addresses_.CanGrow = true
Me.DataAddress_Address_3__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4, 0, 2, 0.3)
Me.DataAddress_Address_3__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Address_3__Addresses_.Name = "DataAddress_Address_3__Addresses_"
AddHandler Me.DataAddress_Address_3__Addresses_.GetValue, AddressOf Me.DataAddress_Address_3__Addresses___GetValue
Me.DataAddress_Address_3__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Address_3__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Address_3__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Address_3__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Address_3__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Address_3__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Address_3__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Address_3__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
'
'DataAddress_Zip_Code__Addresses_
'
Me.DataAddress_Zip_Code__Addresses_ = New Stimulsoft.Report.Components.StiText
Me.DataAddress_Zip_Code__Addresses_.CanGrow = true
Me.DataAddress_Zip_Code__Addresses_.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(6, 0, 2.1, 0.3)
Me.DataAddress_Zip_Code__Addresses_.LinesOfUnderline = Stimulsoft.Base.Drawing.StiPenStyle.None
Me.DataAddress_Zip_Code__Addresses_.Name = "DataAddress_Zip_Code__Addresses_"
AddHandler Me.DataAddress_Zip_Code__Addresses_.GetValue, AddressOf Me.DataAddress_Zip_Code__Addresses___GetValue
Me.DataAddress_Zip_Code__Addresses_.VertAlignment = Stimulsoft.Base.Drawing.StiVertAlignment.Center
Me.DataAddress_Zip_Code__Addresses_.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.DataAddress_Zip_Code__Addresses_.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.DataAddress_Zip_Code__Addresses_.Font = New System.Drawing.Font("Arial", 8!)
Me.DataAddress_Zip_Code__Addresses_.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.DataAddress_Zip_Code__Addresses_.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black)
Me.DataAddress_Zip_Code__Addresses_.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.DataAddress_Zip_Code__Addresses_.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, true, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
Me.DatavNafExpanded.MasterComponent = Nothing
Me.Page1.ExcelSheetValue = Nothing
Me.Page1.Margins = New Stimulsoft.Report.Components.StiMargins(0.18, 0.18, 0.2, 0.2)
Me.Page1_Watermark = New Stimulsoft.Report.Components.StiWatermark
Me.Page1_Watermark.Font = New System.Drawing.Font("Arial", 100!)
Me.Page1_Watermark.Image = Nothing
Me.Page1_Watermark.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.FromArgb(50, 0, 0, 0))
Me.Report_PrinterSettings = New Stimulsoft.Report.Print.StiPrinterSettings
Me.PrinterSettings = me.Report_PrinterSettings
Me.Page1.Page = me.Page1
Me.Page1.Report = Me
Me.Page1.Watermark = me.Page1_Watermark
Me.PageHeader1.Page = me.Page1
Me.PageHeader1.Parent = me.Page1
Me.Text2.Page = me.Page1
Me.Text2.Parent = me.PageHeader1
Me.Text1.Page = me.Page1
Me.Text1.Parent = me.PageHeader1
Me.HeadervNafExpanded.Page = me.Page1
Me.HeadervNafExpanded.Parent = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_1__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_2__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_2__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Address_3__Addresses_.Page = me.Page1
Me.HeaderAddress_Address_3__Addresses_.Parent = me.HeadervNafExpanded
Me.HeaderAddress_Zip_Code__Addresses_.Page = me.Page1
Me.HeaderAddress_Zip_Code__Addresses_.Parent = me.HeadervNafExpanded
Me.DatavNafExpanded.Page = me.Page1
Me.DatavNafExpanded.Parent = me.Page1
Me.DataAddress_Address_1__Addresses_.Page = me.Page1
Me.DataAddress_Address_1__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_2__Addresses_.Page = me.Page1
Me.DataAddress_Address_2__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Address_3__Addresses_.Page = me.Page1
Me.DataAddress_Address_3__Addresses_.Parent = me.DatavNafExpanded
Me.DataAddress_Zip_Code__Addresses_.Page = me.Page1
Me.DataAddress_Zip_Code__Addresses_.Parent = me.DatavNafExpanded
AddHandler EndRender, AddressOf Me.ReportWordsToEnd__EndRender
'
'Add to PageHeader1.Components
'
Me.PageHeader1.Components.Clear
Me.PageHeader1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.Text2, me.Text1})
'
'Add to HeadervNafExpanded.Components
'
Me.HeadervNafExpanded.Components.Clear
Me.HeadervNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.HeaderAddress_Address_1__Addresses_, me.HeaderAddress_Address_2__Addresses_, me.HeaderAddress_Address_3__Addresses_, me.HeaderAddress_Zip_Code__Addresses_})
'
'Add to DatavNafExpanded.Components
'
Me.DatavNafExpanded.Components.Clear
Me.DatavNafExpanded.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.DataAddress_Address_1__Addresses_, me.DataAddress_Address_2__Addresses_, me.DataAddress_Address_3__Addresses_, me.DataAddress_Zip_Code__Addresses_})
'
'Add to Page1.Components
'
Me.Page1.Components.Clear
Me.Page1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.PageHeader1, me.HeadervNafExpanded, me.DatavNafExpanded})
'
'Add to Pages
'
Me.Pages.Clear
Me.Pages.AddRange(New Stimulsoft.Report.Components.StiPage() {me.Page1})
Me.vNafExpanded.Columns.AddRange(New Stimulsoft.Report.Dictionary.StiDataColumn() {New Stimulsoft.Report.Dictionary.StiDataColumn("naftype", "naftype", "Address Type [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd1", "nafadd1", "Address 1 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("naftitle", "naftitle", "Title [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd2", "nafadd2", "Address 2 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafadd3", "nafadd3", "Address 3 [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstate", "nafstate", "State [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcontry", "nafcontry", "Country [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafzip", "nafzip", "Zip Code [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafcity", "nafcity", "City [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafhouse", "nafhouse", "House [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafstreet", "nafstreet", "Street [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafapt", "nafapt", "Apt. [Addresses]", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("nafseq", "nafseq", "Seq. # [Addresses]", GetType(Integer))})
Me.DataSources.Add(Me.vNafExpanded)
End Sub
#Region "DataSource vNafExpanded"
Public Class vNafExpandedDataSource
Inherits Stimulsoft.Report.Dictionary.StiDataTableSource
Public Sub New()
MyBase.New("Data.vNafExpanded", "vNafExpanded")
End Sub
Public Overridable ReadOnly Property naftype As String
Get
Return CType(StiReport.ChangeType(Me("naftype"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd1 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd1"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property naftitle As String
Get
Return CType(StiReport.ChangeType(Me("naftitle"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd2 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd2"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafadd3 As String
Get
Return CType(StiReport.ChangeType(Me("nafadd3"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstate As String
Get
Return CType(StiReport.ChangeType(Me("nafstate"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcontry As String
Get
Return CType(StiReport.ChangeType(Me("nafcontry"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafzip As String
Get
Return CType(StiReport.ChangeType(Me("nafzip"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafcity As String
Get
Return CType(StiReport.ChangeType(Me("nafcity"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafhouse As String
Get
Return CType(StiReport.ChangeType(Me("nafhouse"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafstreet As String
Get
Return CType(StiReport.ChangeType(Me("nafstreet"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafapt As String
Get
Return CType(StiReport.ChangeType(Me("nafapt"), GetType(String), true),String)
End Get
End Property
Public Overridable ReadOnly Property nafseq As Integer
Get
Return CType(StiReport.ChangeType(Me("nafseq"), GetType(Integer), true),Integer)
End Get
End Property
End Class
#End Region 'DataSource vNafExpanded
#End Region 'StiReport Designer generated code - do not modify
End Class
End Namespace
can you plz guide me how to resolve that issue.
Thanks