Sqlite con FastReport

[PEDRO DE LEON RODAS[3]]

Saludos.
Alguien sabe como pasar una consulta con sqlite a FastReport.
Aún sigo haciendo las pruebas con Sqlite en Xailer.
Lo unico que me falta es crear reportes en FastReport pero con la inforacion
generada en Xailer desde una consulta.
De antemano mil gracias.
Dios los bendiga.

[Rene Flores]

PEDRO:
Se puede hacer sin ningun problema, solo tienes que agregar este metodo
a la clase que esta en FastRepH.prg:
//////////////////////////////////////////////////////////// ////////////
// Methods and classes for Xailer
//
// Copyright:
// Rene Flores, CiberTec
//
// Contents
// Xailer specific methods
//////////////////////////////////////////////////////////// ////////////
METHOD SetXailerDataSet(oDataSet) class frReportManager
LOCAL cFieldNames := ""
AEVAL(oDataSet:aFields, {|oDataField, nPos| cFieldNames +=
oDataField:cDisplayName+IIF(nPos < LEN(oDataSEt:aFields),";","")})
::SetUserDataSet(oDataSet:cName,;
cFieldNames,;
{|| oDataSet:GoTop()},;
{|| oDataSet:Skip(1)},;
{|| oDataSet:Skip(-1)},;
{|| oDataSet:Eof()},;
{|cFieldName| oDataSet:FieldGetByName(cFieldName)})
RETURN
Y listo con esto FastReports esta listo para trabajar con cualquier
dataset de Xailer
Saludos
Rene Flores
http://www.ciber-tec.com
DE LEON RODAS escribió:
> Saludos.
> Alguien sabe como pasar una consulta con sqlite a FastReport.
>
> Aún sigo haciendo las pruebas con Sqlite en Xailer.
>
> Lo unico que me falta es crear reportes en FastReport pero con la inforacion
> generada en Xailer desde una consulta.
>
> De antemano mil gracias.
>
> Dios los bendiga.
>
>

[Martin Del Angel]

PEDRO DE LEON RODAS wrote:
> Saludos.
> Alguien sabe como pasar una consulta con sqlite a FastReport.
>
> Aún sigo haciendo las pruebas con Sqlite en Xailer.
>
> Lo unico que me falta es crear reportes en FastReport pero con la inforacion
> generada en Xailer desde una consulta.
>
> De antemano mil gracias.
>
> Dios los bendiga.
>
>
Hola Pedro:
Aqui esta otro estilo:
function SetXailerDataSet(oFrManager, cFrAlias, oDataSet)
local cStr:='', x
for x := 1 to oDataSet:FieldCount()
cStr+=oDataSet:FieldName(x) + ";"
next
oFrManager:SetUserDataSet(cFrAlias, cStr,;
{||oDataSet:GoTop()}, {||oDataSet:Skip(1)}, ;
{||oDataSet:Skip(-1)}, {||oDataSet:Eof()},;

{|cField|oDataSet:oFieldByName(cField):FieldGet()})
Return Nil
u asi se utiliza:
METHOD BtnPrintNotarizadoClick( oSender ) CLASS TTitulos
WITH OBJECT ::oSQLNOTARIOENCA
IF :lOpen
:Close()
ENDIF
IF !Empty( ::oSQLENCATIT:FEDEX_ID)
:cSelect := "SELECT * FROM encatitulos " +;
"WHERE encatitulos.fedex_id = " + Ltrim( Str(

::oSQLENCATIT:FEDEX_ID ) )
:Open()
ENDIF
END WITH
WITH OBJECT ::oSQLNOTARIOMOVS
IF :lOpen
:Close()
ENDIF
IF !Empty( ::oSQLENCATIT:FEDEX_ID)
:cSelect := "SELECT * FROM movstitulos " +;
"WHERE movstitulos.fedex_id = " + Ltrim( Str(
::oSQLENCATIT:FEDEX_ID ) )
:Open()
ENDIF
END WITH
* MSGINFO(::oSQLNOTARIOENCA:TEL)
SetXailerDataSet( FrPrn, "DATOSCLIENTE" , ::oSQLNOTARIOENCA )
SetXailerDataSet( FrPrn, "TITULOS" , ::oSQLNOTARIOMOVS )
DoFrAction("NOTARIO.FR3" )
RETURN Nil
function DoFrAction( cFileName, lPrepared )
LOCAL nAction:=Application:oMainForm:oAction:lChecked //para editar el
reporte
local lNotOpened := .T.
lPrepared := IF(lPrepared <> NIL, lPrepared, .f.)
if !lPrepared .and. (cFileName <> NIL)
FrPrn:LoadFromFile(cFileName)
endif
FrPrn:ReportOptions:SetName('NOMBRE DEL REPORTE')
FrPrn:ReportOptions:SetDescription('DESCRIPCION DEL REPORTE')
DO CASE
CASE nAction == .F.
FrPrn:ShowReport()
CASE nAction == .T.
FrPrn:DesignReport()
ENDCASE
return nil
Te Mando por privado un proyecto completo que utiliza SQLITE y FASTREPORT
Saludos...

[PEDRO DE LEON RODAS[3]]

Gracias Martin.
Espero ese ejemplo.
Dios te bendiga.

[PEDRO DE LEON RODAS[3]]

Rene, saludos
Para esto es necesario comprar el FastReport.
¿ Ya lo están distribuyendo en tu negocio ?
¿ Que precio tiene ?
Gracias.

[Bingen Ugaldebere]

Buenas Pedro.
La demo de FR es totalmente operativa y podrás hacer todo lo que se te
ocurra con ella, su única limitación es que no podrás imprimir mas de 5
páginas de una vez y que estas 5 páginas sacan un bonito mensaje de que
están impresas con una demo de FR.
Precio unos 300 € y me parece barato para las diabluras que puedes
hacer, es realmente increí­ble.
Salu2.
PEDRO DE LEON RODAS escribió:
> Rene, saludos
> Para esto es necesario comprar el FastReport.
>
> ¿ Ya lo están distribuyendo en tu negocio ?
>
> ¿ Que precio tiene ?
>
> Gracias.
>
>