document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1.                 Dim oConnectInfo As New ConnectionInfo
  2.                 Dim oCRTableInfos As New TableLogOnInfos
  3.                 Dim oCRTableInfo As New TableLogOnInfo
  4.                 Dim oTables As Tables
  5.                 Dim oTable As Table
  6.  
  7.                 cryRpt = New ReportDocument
  8.  
  9.                 cryRpt.Load(xPath & "\\Rpt\\App_Payment.rpt")
  10.  
  11.                 Dim oText As String
  12.                 oText = "\\R2"
  13.                 With oConnectInfo
  14.                     .ServerName = "" & oCompany.Server & ""
  15.                     .UserID = "" & oCompany.DbUserName & ""
  16.                     .Password = "p@ssw0rd"
  17.                     .DatabaseName = oCompany.CompanyDB
  18.                     .Type = ConnectionInfoType.SQL
  19.                 End With
  20.  
  21.                 oTables = cryRpt.Database.Tables
  22.                 For Each oTable In oTables
  23.                     \'oCRTableInfo = oTable.LogOnInfo
  24.                     oCRTableInfo.ConnectionInfo = oConnectInfo
  25.                     oTable.ApplyLogOnInfo(oCRTableInfo)
  26.                 Next
  27.  
  28.                 Dim oParamDefs As ParameterFieldDefinitions
  29.                 Dim oParamDef As ParameterFieldDefinition
  30.                 Dim oParamVal As New ParameterValues
  31.                 Dim oParamDisVal As ParameterDiscreteValue
  32.  
  33.                 oParamDisVal = Nothing
  34.                 oParamDisVal = New ParameterDiscreteValue
  35.                 oParamDisVal.Value = frmAmortSched.Items.Item("txt_DocNum").Specific.Value
  36.                 oParamDefs = cryRpt.DataDefinition.ParameterFields
  37.                 oParamDef = oParamDefs.Item("DocNum")
  38.                 oParamVal = oParamDef.CurrentValues
  39.  
  40.                 oParamVal.Clear()
  41.                 oParamVal.Add(oParamDisVal)
  42.                 oParamDef.ApplyCurrentValues(oParamVal)
  43.                  
  44.                 CrystalReportViewer1.EnableRefresh = True
  45.                 CrystalReportViewer1.ReportSource = cryRpt
  46.                 CrystalReportViewer1.Refresh()
');