RPV Reports / Usage Examples
 
Search in RpvSoftware.com
Go!

What Rpv is

Rpv Reports 6

Downloads

Support

Purchase

Contact

 

Warning: getimagesize(examples/clipper_harbour.jpg) [function.getimagesize]: failed to open stream: No such file or directory in /home/rpvsoftw/public_html/viewexample.php on line 49

Warning: filesize() [function.filesize]: stat failed for examples/clipper_harbour.zip in /home/rpvsoftw/public_html/viewexample.php on line 53
Home > Usage Examples
Clipper / Harbour
This example shows how to prepare a report with Clipper / Harbour using RPV Reports.

Prepared by Félix Pablo Grande Ramos. Spain.
Download example files (0Kb)
Code
// Author: Felix Pablo Grande Ramos
// Harbour Advantage RDD sample


#include "FiveWin.ch"
#include "ads.ch"
#include "Fileio.ch"

#define CRTLF CHR(13)+ CHR(10)

REQUEST _ADS

//----------------------------------------------------------------------------//

function Main()

   local file_id
   local ctexto:=""

   rddRegister( "ADS", 1 )
   rddsetdefault( "ADS" )

   file_id:=FCREATE("c:
pv
pvtest.rpv")
   IF file_id < 0
      ? "No se puede crear el fichero de prueba"
      return nil
   else
      ctexto := "Report_Title=Using RPV and Clipper/Harbour" + CRTLF
      ctexto := ctexto + "Papersize=A4" + CRTLF
      ctexto := ctexto + "tm=500" + CRTLF
      ctexto:=ctexto+ "Orientation=1" + CRTLF
      ctexto:=ctexto+ "Spacing=250" +CRTLF
      ctexto:=ctexto + "$c0=1000" + CRTLF
      ctexto:=ctexto+ "$c1=4000" + CRTLF
      ctexto:=ctexto+ "[Header]" +CRTLF
      ctexto:=ctexto+ "{f=arial;s=8}" +CRTLF
      ctexto:=ctexto+ "{e;b=y;$c0} Cliente {t;$c1} Domicilio {t;b=n;
;
}" +CRTLF
      ctexto:=ctexto+ "[Data]" + CRTLF
      fwrite(file_id,ctexto)
   Endif
  
   SET SERVER LOCAL
   SET FILETYPE TO NTX
  
   USE Clientes // Open any DBF...
  
   do While !EOF()
      ctexto :="{e;$c0} "+ Clientes->NOMBRE+ ;
                  "{t;$c1}"+ Clientes->DIRECCION + "{t;
}"+ CRTLF
      fwrite(file_id,ctexto)
      skip
   ENDdo
  
   USE
   FCLOSE(file_id)
   __RUN("rpv rpvtest.rpv /e")
return nil
  
//----------------------------------------------------------------------------//
RPV Report
Report_Title=Using RPV and Clipper/Harbour
Papersize=A4
tm=500
Orientation=1
Spacing=250
$c0=1000
$c1=4000
[Header]
{f=arial;s=8}
{e;b=y;$c0} Cliente {t;$c1} Domicilio {t;b=n;\n;\n}
[Data]
{e;$c0}Mark Harris {t;$c1}Top Street 2255{t;\n}
{e;$c0} Dean Garkis{t;$c1}Miraflores 225{t;\n}
{e;$c0} Joe Legrand{t;$c1}Torres 556{t;\n}
{e;$c0} Tito Banderas{t;$c1}Flores 44{t;\n}
Screenshot
Screenshot

Home
What Rpv is
Rpv Reports 6

Products
Rpv Reports 6
Personalized edition
Rpv Business Reports
Rpv Reports Steel

More...
Downloads
Support
Rpv Visual Editor online help
Examples
/temp section
Videos




Copyright (c) 2001-2017 - Rpv Software. All rights reserved.