1. Akini Ross
  2. Valentina Reports ADK
  3. Monday, August 10 2015, 02:31 PM
  4.  Subscribe via email
This below is the link to a web example in XOJO, is there also a desktop version available?

https://www.youtube.com/watch?v=iSdF-FBUGHo
Comment
There are no comments made yet.
Sergey Pashkov Accepted Answer
Hello, Akini

Did you mean desktop application which works with local project file, not using VServer? We don't have such video yet.

But this example may give some pointers on how to open local project and get data from SQLite database:
Examples/VReport/GeneralOnSQLite
Comment
There are no comments made yet.
  1. more than a month ago
  2. Valentina Reports ADK
  3. # 1
Akini Ross Accepted Answer
I meant a xojo desktop application which uses vserver. Desktop applications do not have the webfile datatype, which is used for the creation of the pdf.
Comment
There are no comments made yet.
  1. more than a month ago
  2. Valentina Reports ADK
  3. # 2
Ruslan Zasukhin Accepted Answer
PDF is created by Report Engine.

You can ask Report Engine in your Xojo code
a) save PDF just into file on disk
b) return it as memory object.

What you will do next with this PDF file is up to you.
Send it by email, Display it in some window, else ...
Comment
There are no comments made yet.
  1. more than a month ago
  2. Valentina Reports ADK
  3. # 3
Ruslan Zasukhin Accepted Answer
Which exactly step is not clear, Akini?
where you need help from us?
Comment
There are no comments made yet.
  1. more than a month ago
  2. Valentina Reports ADK
  3. # 4
Johnny Harris Accepted Answer
Hi Akini... this should help you with Xojo.



Valentina.InitClient()

dim cn as new VConnection("dbhost", "sa", "sapassword", 15432)
cn.Open

dim projPath as FolderItem = GetFolderItem("ams_reports.vsp")
dim proj as VProject = new VProject( cn, projPath )
proj.Open

Dim datasource As String = "vserver://host='dbhost' port='15432' dbname='assets' user='sa' password='sapassword'"
Dim report As VReport = proj.MakeNewReport( "master_recap_report", datasource, "SELECT * FROM recap_data" )

dim pdf as FolderItem = SpecialFolder.Desktop.Child("recap_report.pdf")
report.PrintToDisk( pdf, EVReportPrintType.kToPDF, 0, 0 )

proj.Close
cn.Close
Valentina.ShutDownClient()

pdf.Launch



Best Regards,
J Harris
Comment
There are no comments made yet.
  1. more than a month ago
  2. Valentina Reports ADK
  3. # 5
Akini Ross Accepted Answer
@ Johnny Harris, Thank you that was the example i was looking for.

@ Ruslan, It is all clear now. Thank you
Comment
There are no comments made yet.
  1. more than a month ago
  2. Valentina Reports ADK
  3. # 6
  • Page :
  • 1


There are no replies made for this post yet.
However, you are not allowed to reply to this post.

Categories

Announcements & News
  1. 0 subcategories
Valentina Studio
  1. 2 subcategories
Valentina Server
  1. 4 subcategories
Valentina Database ADK
  1. 0 subcategories
Valentina Reports ADK
  1. 0 subcategories
Other Discussions
  1. 0 subcategories
BETA Testing
  1. 0 subcategories
Education & Research
  1. 0 subcategories
Omegabundle
  1. 0 subcategories