FiveTech Support Forums

#include "fivewin.ch"
#include "report.ch"

REQUEST DBFCDX

STATIC oReport


Function test()

  RDDSetDefault( 'DBFCDX' )

      SET DATE FORMAT "dd/mm/yyyy"
      SET DATE ITALIAN
      SET CENTURY ON
      SET EPOCH TO ( YEAR( DATE() ) - 50 )



TRepTariffe():New():Attivare()

return nil

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

CLASS TRepTariffe
   DATA cPath init cFilePath(GetModuleFileName( GetInstance() ))  + "Data\"
   DATA oReport
   DATA oTariffeReport
   DATA oFont

   METHOD New() CONSTRUCTOR
   METHOD Attivare()

END CLASS

METHOD New() CLASS TRepTariffe

     ::oTariffeReport:= TDatabase():Open( , ::cPath+"TARIFFE", "DBFCDX", .t. )
     ::oTariffeReport:setorder(1)


     /*
     ::oTariffeReport:Exec( < ||
     SET FILTER TO  FIELD->IDLISTINO = strzero(nListino,2)
      return nil
              > )
       */

     // xbrowser ::oTariffeReport

   DEFINE FONT ::oFont NAME "Tahoma" SIZE 0,-10



   REPORT ::oReport                            ;
      TITLE  "ELENCO TARIFFE"             ;
      FONT   ::oFont                           ;
      HEADER "Data: "  + DTOC( DATE() )      ,;
           "stabilimento bagno"                      ,;
           "stabilimento bagno"                    ,;
           "1234567890"      LEFT            ;
      FOOTER "Pagina: " + STR( ::nPage, 3 ) RIGHT  ;
      PREVIEW

   COLUMN TITLE "TIPO  "       DATA ::oTariffeReport:tipo
   COLUMN TITLE "ELEMENTO   "  DATA ::oTariffeReport:elemento
   COLUMN TITLE "SERVIZIO"     DATA ::oTariffeReport:servizio
   COLUMN TITLE "SETTORE  "    DATA ::oTariffeReport:settore
   COLUMN TITLE "GIORNI"       DATA ::oTariffeReport:giorni
   COLUMN TITLE "PREZZO   "    DATA ::oTariffeReport:costo     PICTURE "99,999.99" RIGHT  SHADOW

   END REPORT

   RETURN Self

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

METHOD Attivare() CLASS TRepTariffe

   ::oTariffeReport:GoTop()

   ::bSkip := { || ::oTariffeReport:Skip(1) }
   ::Cellview()

   ACTIVATE REPORT ::oReport  WHILE !::oTariffeReport:eof()

   ::End()

   ::oTariffeReport:Close()

RETURN NIL

********************
*IMPRIME EN PANTALLA
********************
PROC pIPCaj()
local oReport,nLinea := 1, nHasta := oRsCajaRg:RECORDCOUNT(), ;
nBookMark := oRsCajaRg:BookMark
oRsCajaRg:MoveFirst()
uFec:=dtoc(date())
uTim:=subs(time(),1,8)

REPORT oReport CAPTION "TABLA CONTROL CAJAS"  HEADER "CIUDADELA","NIT:"+"-","TABLA CONTROL DE DOCUMENTOS","Página Número: " + STR (oReport:nPage, 3),"Fecha Reporte: "+uFec+" - Hora: "+uTim;
CENTER  PREVIEW
  COLUMN TITLE "Código" DATA oRsCajaRg:Fields("kk_codigo"):value SIZE 9
  COLUMN TITLE "Nombre" DATA oRsCajaRg:Fields("kk_nombre"):value SIZE 25
END REPORT

oReport:bWhile := { || nLinea <= nHasta }
oReport:oDevice:SetPortrait()
oReport:oDevice:lPrvModal := .T.
IF oReport:lCreated
  oReport:bSkip := { | | nLinea++, oRsCajaRg:MoveNext() }
ENDIF

ACTIVATE REPORT oReport ;
ON END oRsCajaRg:BookMark := nBookMark
oRsCajaRg:REQUERY()
oBrwCReg:Refresh()