problemas al compilar ejemplos TDolphin

[Daniel Garcia-Gil]

Que bien que ya funcionen

pero como dolphin no depende de ningun GUI, algunas veces es dificil adaptarse a lso cambios de cada uno

PD. ¿No has pensado en crear un foro propio para TDolphin?.

existe http://www.gtxbase.org/forums/index.php, pero no se usa, y como la mayoria de los usuarios son de fivewin simplemente preguntan por aca sin ningun tipo de restricciones

[lucasdebeltran]

Daniel,

Por favor, en ningún caso he criticado el producto. Encima es opensource y tu soporte es excelente.

Yo te animo a que lo conviertas en producto de pago.

Por favor, cuando tengas un rato dime si hay un ejemplo para la clase TReport() de Fivewin y para Fast Report.

salu2

[Daniel Garcia-Gil]

Hola

para fastreport puedes ir viendo este hilo, en este foro casi siempre se consiguen las respuestas, espero te ayude

http://forums.fivetechsupport.com/viewtopic.php?p=117777#p117777

para report, seguro alguien tiene algo ya funcionando... esperemos a ver que dicen, sino se hacemos el ejemplo...

Por favor, en ningún caso he criticado el producto.

No se que comente para que pensaras de esa forma?

[nnicanor]

Espero que les sirva, es una funcion generica de report, oAlias es el objeto query ej:

oEmpleados := oServer:Query("Select * from Empleados")

Sql_report(oEmpleados,"Reporte de Empleados")

....

Code: Select all  Expand view  RUN

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

function Sql_Reports(oAlias, cReport)

   local oRpt
   local n,oFont1,oFont2

   DEFAULT cReport := "Reporte"

   DEFINE FONT oFont1 NAME "COURIER NEW" SIZE 0,-8
   DEFINE FONT oFont2 NAME "COURIER NEW" SIZE 0,-8 BOLD

   REPORT oRpt TITLE "Reporte: " + cReport ;
      HEADER "Fecha: " + DToC( Date() ) + ", Hora: " + Time() ;
      FOOTER "Pagina: " + Str( oRpt:nPage, 3 ) ;
      FONT oFont1,oFont2 ;
      CAPTION "Sistema de Informes" ;
      PREVIEW


      if Empty( oRpt ) .or. oRpt:oDevice:hDC == 0
         return nil
      endif

      oRpt:margin(1,1,2)
      oRpt:margin(1,2,2)

      for n = 1 to oAlias:FCount()
         oRpt:AddColumn( TrColumn():New( { sFInfo1( oAlias, n  ) },,;
                     { sFInfo2( oAlias, n ) },, iif(valtype( sFInfo2( oAlias, n ) ) == "D",{"@D"},iif(valtype( sFInfo2( oAlias, n ) ) == "N",{"@Z 999,999,999"},{"@X"} ) ) ,,,,,,,, oRpt ) )
      next

   ENDREPORT
   
    oRpt:bSkip := {|| oAlias:Skip() }

   ACTIVATE REPORT oRpt while ! oAlias:Eof()

    oAlias:Gotop()

return nil

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

static function sFInfo1( oAlias, n )
return { || upper( oAlias:FieldName( n ) ) }

static function sFInfo2( oAlias, n )
return { ||  iif(empty( oAlias:FieldGet( n ) )," ",oAlias:FieldGet( n ) ) }

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