FiveTech Support Forums

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

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 ) ) }

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