Spirin's fastreport library

[kapiaba]

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=19432

[Luiz Fernando]

 

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=19432

Kapiaba vi que a versão desta DLL é de 2013, depois que o autor já tinha falecido, vc pegou aonde esta versão.

Obg

[kapiaba]

Não faço a mínima idéia. Achei em algum link que já não existe mais.

[kapiaba]

Função interessante nos exemplos da FASTREPORT no final.

FUNCTION INDEXAR()
	   /* Exemplo by Spirin Sergey
   IF ! AllFilesExist( { "CUSTA.NTX", "CUSTB.NTX" } )
      USE Customer EXCLUSIVE
      INDEX ON CustNo  TO CustA
      INDEX ON Company TO CustB
      CLOSE
   ENDIF
   */
	   AEVAL(DIRECTORY( "CADPROPO.cdx" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )
	   IF .NOT. AllFilesExist( { "CADPROPO.cdx" } )
	      USE CADPROPO NEW EXCLUSIVE ALIAS CADPROPO
	      oMeter1:nTotal = RecCount()
	      INDEX ON VAL(Field->PROPOCOD) TAG PROPOCOD TO CADPROPO            ;
            FOR !DELETED()                                              ;
            EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
            EVERY 10
	      INDEX ON Field->CONTRCOD TAG CONTRCOD TO CADPROPO                 ;
            FOR !DELETED()                                              ;
            EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
            EVERY 10
	      INDEX ON Field->CLIENCOD TAG CLIENCOD TO CADPROPO                 ;
            FOR !DELETED()                                              ;
            EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
            EVERY 10
	      INDEX ON Field->CLIENTE  TAG CLIENTE  TO CADPROPO                 ;
            FOR !DELETED()                                              ;
            EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
            EVERY 10
	      INDEX ON Field->END_PROP TAG ENDERECO TO CADPROPO                 ;
            FOR !DELETED()                                              ;
            EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
            EVERY 10
	      CLOSE DATABASE
	   ENDIF
	RETURN NIL
///////////////////////////////////////////////////////////////////////
// Verify if the files in 'aFiles' vector exist                      //
///////////////////////////////////////////////////////////////////////
FUNCTION AllFilesExist( aFiles )
	   local lExist := .T., i:=0, imax := len(aFiles)
	   do while ++i <= imax .and. lExist
	      SysRefresh()
	      lExist := File( aFiles[i] )
	   enddo
	RETURN lExist