calo
02 de Febrero del 2006

Hola a todos, estoy programando en visual foxpro y no puedo emitir un porte a pantalla. Me hablaron del cristal report, alguien lo tiene o como conseguirlo y como se utiliza.
Desde ya muchas gracias.
Ricardo.

viko
02 de Febrero del 2006

tengo un ejemplo de un formulario que imprime con cristal report si me escribes te lo mando pero aqui hay un pedazo de codigo que puedes estar checando

** lcTabla es la tabla de la que se saca un reporte
COPY TO ( lcTabla) TYPE FOX2X AS 850
** lo anterior es necesario pues no se recomoce el formato visualfox

** Crea una instancia del RDC de Crystal Reports.
loCR= CREATEOBJECT( "CrystalRuntime.Application")
** Abre el reporte.
loRpt= loCR.OpenReport( "Crystal_Demo.RPT")

** Descarta los datos que se hayan grabado con el reporte.
IF loRpt.HasSavedData
loRpt.DiscardSavedData()
ENDIF

** Cambia la ubicaci贸n de la tabla en el reporte.
loRpt.Database.Tables( 1).Location= lcTabla

** puedes manipular campos del reporte
** como Modificar el t铆tulo del reporte **
** Para realizarlo busca el nombre de la f贸rmula y le cambia el valor.
** Recorre todas las formulas.
FOR lnI=1 TO loRpt.FormulaFields.Count
IF UPPER ( loRpt.FormulaFields( lnI).FormulaFieldName) = "TITULO REPORTE"
loRpt.FormulaFields( lnI).Text= CHR( 34)+ lcTitulo+ CHR( 34)
ENDIF
ENDFOR

SELECT curPedidos
loRpt.PrintOut( .T.)