Desarrolle excelentes listados utilizando cualquier lenguaje y cualquier sistema operativo.

Ejemplo de impresión de Rpv en Clipper/Harbour. [home]

El ejemplo que vemos a continuación nos muestra como preparar un listado de calidad Windows utilizando Clipper/Fivewin.
Es importante destacar que para lograr la calidad de impresión de Windows, no es estrictamente necesario que Ud trabaje sobre entorno gráfico ya puede ser obtenida aún cuando sus programas estén preparados para DOS.

El ejemplo fue desarrollado por Félix Pablo Grande Ramos de España.
Disponible para descarga en fichero Zip cliqueando aquí

// 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:\rpv\rpvtest.rpv")
   IF file_id < 0
      ? "No se puede crear el fichero de prueba"
      return nil
   else
      ctexto := "Report_Title=Uso de RPV con Clipper/Harbour" + CRTLF
      ctexto := ctexto + "Papersize=A4" + 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;\n;\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;\n}"+ CRTLF
      fwrite(file_id,ctexto)
      skip
   ENDdo
  
   USE
   FCLOSE(file_id)
   __RUN("rpv rpvtest.rpv /e")
return nil
  
//----------------------------------------------------------------------------//