This my Code i have error #611604
what i am doing wrong
Dim RepStrConn As String
Dim mReport AS New VReport
Dim SqlStr01 As String
Dim vCounts As Integer
Dim sPath As String
Dim sFecha As New Date
DbConn.Close
sPath="C:\QbScan\Data\BarDb.sqlite"
SqlStr01=""
RepStrConn="sqlite://host=" + sPath + ""
SqlStr01="Select ItemCode,WhsCode,ScanQty,Locate,Compare From Sap_Whs "
mprojectPath = GetFolderItem( "RepCoolingWhs.vsp" )
mProject = new VProject(mprojectPath)
try
mProject.Open()
catch e as VException
dim errNumber as Integer = e.ErrorNumber
dim errString as String = e.Message
end
if mProject <> nil then
vCounts = mProject.ReportCount()
end if
try
mReport = mProject.MakeNewReport("ScanRep", RepStrConn, SqlStr01 ) <<<<<<<<< Error 611604
catch e as VException
dim errNumber as Integer = e.ErrorNumber
dim errString as String = e.Message
sPath=errString
end
if mReport <> nil then
Dim fName As String
fName="Qb_Scan"+Trim(sFecha.SQLDate) +".pdf"
dim f as folderItem=GetFolderItem( "C:\QbScan\"+fName,folderItem.PathTypeShell)
//Dim dd As Variant
//dd=f.AbsolutePath
// Create temporary file
'dim f as folderItem
'f =getSaveFolderItem( "*.pdf", "report.pdf" ) <=== Esto te permite guardar el pdf donde quieras
///
mReport.PrintToDisk( f, EVReportPrintType.kToPDF, 1 )
For v as Integer=0 to 1000
Next