or
Partial Class rptJobListCost
'NOTE: The following procedure is required by the telerik Reporting Designer
'It can be modified using the telerik Reporting Designer.
'Do not modify it using the code editor.
Private Sub InitializeComponent()
Dim NavigateToReportAction1 As Telerik.Reporting.NavigateToReportAction = New Telerik.Reporting.NavigateToReportAction()
Dim ReportParameter1 As Telerik.Reporting.ReportParameter = New Telerik.Reporting.ReportParameter()
Me.pageHeaderSection1 = New Telerik.Reporting.PageHeaderSection()
Me.TextBox11 = New Telerik.Reporting.TextBox()
Me.detail = New Telerik.Reporting.DetailSection()
Me.TextBox1 = New Telerik.Reporting.TextBox()
Me.TextBox4 = New Telerik.Reporting.TextBox()
Me.TextBox5 = New Telerik.Reporting.TextBox()
Me.TextBox2 = New Telerik.Reporting.TextBox()
Me.TextBox3 = New Telerik.Reporting.TextBox()
Me.TextBox9 = New Telerik.Reporting.TextBox()
Me.pageFooterSection1 = New Telerik.Reporting.PageFooterSection()
Me.txtUserName = New Telerik.Reporting.TextBox()
Me.txtTotalPC = New Telerik.Reporting.TextBox()
Me.txtTotalDC = New Telerik.Reporting.TextBox()
Me.ReportHeaderSection1 = New Telerik.Reporting.ReportHeaderSection()
Me.TextBox6 = New Telerik.Reporting.TextBox()
Me.TextBox7 = New Telerik.Reporting.TextBox()
Me.TextBox10 = New Telerik.Reporting.TextBox()
Me.TextBox12 = New Telerik.Reporting.TextBox()
Me.TextBox13 = New Telerik.Reporting.TextBox()
Me.TextBox8 = New Telerik.Reporting.TextBox()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'pageHeaderSection1
'
Me.pageHeaderSection1.Height = New Telerik.Reporting.Drawing.Unit(1.9000000953674316R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.pageHeaderSection1.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.TextBox11})
Me.pageHeaderSection1.Name = "pageHeaderSection1"
'
'TextBox11
'
Me.TextBox11.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(19.974819183349609R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(1.399800181388855R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox11.Style.BackgroundColor = System.Drawing.Color.LightSteelBlue
Me.TextBox11.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid
Me.TextBox11.Style.Font.Bold = True
Me.TextBox11.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(14.0R, Telerik.Reporting.Drawing.UnitType.Point)
Me.TextBox11.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox11.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox11.Value = "Production Schedule Cost Report"
'
'detail
'
Me.detail.Height = New Telerik.Reporting.Drawing.Unit(0.60009980201721191R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.detail.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.TextBox1, Me.TextBox4, Me.TextBox5, Me.TextBox2, Me.TextBox3, Me.TextBox9})
Me.detail.Name = "detail"
'
'TextBox1
'
Me.TextBox1.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.000099921220680698752R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.2999999523162842R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.599999725818634R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox1.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox1.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox1.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox1.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox1.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox1.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox1.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox1.Value = "=Fields.JobKey"
'
'TextBox4
'
Me.TextBox4.Format = "{0:dd.MMM.yy}"
Me.TextBox4.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(10.121451377868652R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.93999981880188R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.60000002384185791R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox4.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox4.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox4.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox4.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox4.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox4.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox4.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox4.Value = "=IsValidDate(CDate(Fields.CompletedOn))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " "
'
'TextBox5
'
Me.TextBox5.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(2.3002002239227295R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(4.799799919128418R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.599999725818634R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox5.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox5.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox5.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox5.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox5.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox5.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox5.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox5.Value = "=Fields.JobName"
'
'TextBox2
'
Me.TextBox2.Format = "{0:C2}"
Me.TextBox2.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.061652183532715R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.6629409790039062R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.60000002384185791R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox2.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox2.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox2.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox2.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox2.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox2.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox2.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox2.Value = "=Fields.ProductionCost" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " "
'
'TextBox3
'
Me.TextBox3.Format = "{0:C2}"
Me.TextBox3.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(16.72479248046875R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.249915599822998R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.60000002384185791R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox3.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox3.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox3.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox3.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox3.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox3.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox3.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox3.Value = "=Fields.DistributionCost" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " "
'
'TextBox9
'
Me.TextBox9.Format = "{0:dd.MMM.yy}"
Me.TextBox9.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(7.1002001762390137R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.0210509300231934R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.60000002384185791R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox9.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox9.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox9.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox9.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox9.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox9.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox9.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox9.Value = "=Fields.CustomerCode" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " "
'
'pageFooterSection1
'
Me.pageFooterSection1.Height = New Telerik.Reporting.Drawing.Unit(1.6999002695083618R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.pageFooterSection1.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.txtUserName, Me.txtTotalPC, Me.txtTotalDC})
Me.pageFooterSection1.Name = "pageFooterSection1"
'
'txtUserName
'
Me.txtUserName.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.061652183532715R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.99990016222000122R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.txtUserName.Name = "txtUserName"
Me.txtUserName.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(6.9130563735961914R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.69969969987869263R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.txtUserName.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right
Me.txtUserName.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.txtUserName.Value = ""
'
'txtTotalPC
'
Me.txtTotalPC.Format = "{0:C2}"
Me.txtTotalPC.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.061652183532715R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.00010052680590888485R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.txtTotalPC.Name = "txtTotalPC"
Me.txtTotalPC.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.6630425453186035R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.60000002384185791R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.txtTotalPC.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.txtTotalPC.Style.Font.Bold = True
Me.txtTotalPC.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalPC.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalPC.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalPC.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalPC.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.txtTotalPC.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.txtTotalPC.Value = "= Sum(Fields.ProductionCost)"
'
'txtTotalDC
'
Me.txtTotalDC.Format = "{0:C2}"
Me.txtTotalDC.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(16.724794387817383R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.00010012308484874666R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.txtTotalDC.Name = "txtTotalDC"
Me.txtTotalDC.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.249915599822998R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.60000002384185791R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.txtTotalDC.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.txtTotalDC.Style.Font.Bold = True
Me.txtTotalDC.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalDC.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalDC.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalDC.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.txtTotalDC.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.txtTotalDC.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.txtTotalDC.Value = "= Sum(Fields.DistributionCost)"
'
'ReportHeaderSection1
'
Me.ReportHeaderSection1.Height = New Telerik.Reporting.Drawing.Unit(0.900000274181366R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.ReportHeaderSection1.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.TextBox6, Me.TextBox7, Me.TextBox10, Me.TextBox12, Me.TextBox13, Me.TextBox8})
Me.ReportHeaderSection1.Name = "ReportHeaderSection1"
'
'TextBox6
'
Me.TextBox6.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(2.2754166126251221R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(4.8245835304260254R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.652916431427002R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox6.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox6.Style.Font.Bold = True
Me.TextBox6.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox6.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox6.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox6.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox6.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox6.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox6.Value = "Job Name"
'
'TextBox7
'
Me.TextBox7.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(10.121451377868652R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.940000057220459R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.652916669845581R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox7.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox7.Style.Font.Bold = True
Me.TextBox7.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox7.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox7.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox7.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox7.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox7.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox7.Value = "Completed On"
'
'TextBox10
'
Me.TextBox10.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.2752163410186768R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.652916431427002R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox10.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox10.Style.Font.Bold = True
Me.TextBox10.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox10.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox10.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox10.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox10.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox10.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox10.Value = "Job No."
'
'TextBox12
'
NavigateToReportAction1.ReportDocumentType = "=Parameters.Parameter1.Value"
Me.TextBox12.Action = NavigateToReportAction1
Me.TextBox12.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.061652183532715R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.6630411148071289R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.652916669845581R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox12.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox12.Style.Font.Bold = True
Me.TextBox12.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox12.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox12.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox12.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox12.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox12.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox12.Value = "Production Cost"
'
'TextBox13
'
Me.TextBox13.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(16.724903106689453R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.0R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.2499163150787354R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.652916669845581R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox13.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox13.Style.Font.Bold = True
Me.TextBox13.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox13.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox13.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox13.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox13.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox13.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox13.Value = "Distribution Cost"
'
'TextBox8
'
Me.TextBox8.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(7.1002001762390137R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.000099921220680698752R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(3.0210506916046143R, Telerik.Reporting.Drawing.UnitType.Cm), New Telerik.Reporting.Drawing.Unit(0.6528167724609375R, Telerik.Reporting.Drawing.UnitType.Cm))
Me.TextBox8.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.None
Me.TextBox8.Style.Font.Bold = True
Me.TextBox8.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox8.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox8.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox8.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.TextBox8.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Center
Me.TextBox8.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle
Me.TextBox8.Value = "Customer"
'
'rptJobListCost
'
Me.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.pageHeaderSection1, Me.detail, Me.pageFooterSection1, Me.ReportHeaderSection1})
Me.PageSettings.Landscape = False
Me.PageSettings.Margins.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.PageSettings.Margins.Left = New Telerik.Reporting.Drawing.Unit(1.0R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.PageSettings.Margins.Right = New Telerik.Reporting.Drawing.Unit(1.0R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.PageSettings.Margins.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Cm)
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
ReportParameter1.AvailableValues.Sortings.AddRange(New Telerik.Reporting.Data.Sorting() {New Telerik.Reporting.Data.Sorting("=Fields.ProductionCost", Telerik.Reporting.Data.SortDirection.Asc)})
ReportParameter1.Name = "Parameter1"
ReportParameter1.Text = "Parameter1"
Me.ReportParameters.Add(ReportParameter1)
Me.Sortings.AddRange(New Telerik.Reporting.Data.Sorting() {New Telerik.Reporting.Data.Sorting("Fields.ProductionCost", Telerik.Reporting.Data.SortDirection.Asc), New Telerik.Reporting.Data.Sorting("Fields.DistributionCost", Telerik.Reporting.Data.SortDirection.Asc)})
Me.Style.BackgroundColor = System.Drawing.Color.White
Me.Style.Padding.Bottom = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.Style.Padding.Left = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.Style.Padding.Right = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.Style.Padding.Top = New Telerik.Reporting.Drawing.Unit(2.0R, Telerik.Reporting.Drawing.UnitType.Pixel)
Me.Width = New Telerik.Reporting.Drawing.Unit(19.974809646606445R, Telerik.Reporting.Drawing.UnitType.Cm)
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Friend WithEvents pageHeaderSection1 As Telerik.Reporting.PageHeaderSection
Friend WithEvents detail As Telerik.Reporting.DetailSection
Friend WithEvents pageFooterSection1 As Telerik.Reporting.PageFooterSection
Friend WithEvents TextBox1 As Telerik.Reporting.TextBox
Friend WithEvents ReportHeaderSection1 As Telerik.Reporting.ReportHeaderSection
Friend WithEvents TextBox4 As Telerik.Reporting.TextBox
Friend WithEvents TextBox5 As Telerik.Reporting.TextBox
Friend WithEvents TextBox6 As Telerik.Reporting.TextBox
Friend WithEvents TextBox7 As Telerik.Reporting.TextBox
Friend WithEvents TextBox10 As Telerik.Reporting.TextBox
Friend WithEvents TextBox11 As Telerik.Reporting.TextBox
Friend WithEvents txtUserName As Telerik.Reporting.TextBox
Friend WithEvents TextBox12 As Telerik.Reporting.TextBox
Friend WithEvents TextBox13 As Telerik.Reporting.TextBox
Friend WithEvents TextBox2 As Telerik.Reporting.TextBox
Friend WithEvents TextBox3 As Telerik.Reporting.TextBox
Friend WithEvents TextBox8 As Telerik.Reporting.TextBox
Friend WithEvents TextBox9 As Telerik.Reporting.TextBox
Friend WithEvents txtTotalPC As Telerik.Reporting.TextBox
Friend WithEvents txtTotalDC As Telerik.Reporting.TextBox
End Class
Dim subRepItem2 As Telerik.Reporting.SubReport = TryCast(TryCast(ReportViewer1.Report, rptRemit).Items.Find("rptSubRemitTransactions", True)(0), Telerik.Reporting.SubReport)
subRepItem2.ReportSource.DataSource = ReportsDAL.RemitByTransDateHistory(
Me.txtStartingDate.SelectedDate)
I then try to customize the contents of a textbox based on the same report parameter but I get an error:
Dim txtbox As Telerik.Reporting.TextBox = TryCast(subRepItem2.Items.Find("txtTotalSince", True)(0), Telerik.Reporting.TextBox)
txtbox.Value =
"Total Since " & Me.txtStartingDate.SelectedDate.ToString
The error is:
System.IndexOutOfRangeException: Index was outside the bounds of the array.
Help please!
public
partial
class
MainPage : UserControl
{
public
MainPage()
{
InitializeComponent();
}
private
void
RepViewer_RenderBegin(
object
sender, Telerik.ReportViewer.Silverlight.RenderBeginEventArgs args)
{
args.ParameterValues[
"productIds"
] =
new
object
[] {2, 3};
}
}
public
IQueryable<Product> GetProductsByIds(
int
[] productIds)
{
return
this
.ObjectContext.Products.Where(prod => productIds.Contains(prod.ProductID));
}