PC Toledo

Código: Selecionar todos

#include "hbgtinfo.ch"
#include "wvtwin.ch"
#include "hbgtwvg.ch"
#include "hbdyn.ch"
#include "inkey.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WVT

Function Main()  //no PRG principal (inicial) tem que ter esta funcao MAIN

CLS
CLOSE ALL

SELECT 1
USE PRODUTO
IF ! FILE("ACESS.NTX") .OR. !FILE("EDU.NTX")
   INDEX ON CODIGO    TO ACESS
   INDEX ON DESCRICAO TO EDU
   SET INDEX TO ACESS, EDU
ELSE
   SET INDEX TO ACESS, EDU
ENDIF

SELECT 2
USE PROD
ZAP

DO WHILE .T.
cPESQ=SPACE(30)
@10,10 SAY "PESQUISA ..: " GET cPESQ PICTURE [@K!]
READ

IF LASTKEY()=27
   EXIT
ENDIF

T1=TIME()
xTOT=0
xTEM=0

SELECT PROD
ZAP

SELECT PRODUTO
SET ORDER TO 2
GO TOP
DO WHILE !EOF()
   xTEM++
   IF ALLTRIM(cPESQ) $ PRODUTO->DESCRICAO   //procuro primeiro parte no nome
      xTOT++

      SELECT PROD
      DBAPPEND()
      REPLACE CODIGO WITH PRODUTO->CODIGO, DESCRICAO WITH PRODUTO->DESCRICAO,;
              PRECOVENDA WITH PRODUTO->PRECOVENDA, ESTOQUE WITH PRODUTO->ESTOQUE

      SELECT PRODUTO
   ENDIF
   @15,10 SAY xTOT
   @15,25 SAY xTEM

  SKIP
ENDDO
T2=TIME()

@18,10 SAY T1
@19,10 SAY T2
ENDDO

Código: Selecionar todos

// CABECALHO(s)

ANNOUNCE RDDSYS

REQUEST DBFNTX

FUNCTION FILTRO()

   CLS
   CLOSE ALL

   //********** so pra deixar vazio !!
   USE PROD EXCLUSIVE NEW
   ZAP
   CLOSE

   RDDSETDEFAULT("DBFNTX")

   IF ABREARQ( "PRODUTO", "PRODUTO", .F. , 10 )

      IF .NOT. FILE ( "ACESS.NTX" ) .OR. .NOT. FILE( "EDUP.NTX" )

         INDEX ON CODIGO    TO ACESS
         INDEX ON DESCRICAO TO EDUP

      ENDIF

      SET INDEX TO ACESS, EDUP

   ELSE

      ALERT( "N„o foi poss¡vel abrir o arquivo de Produtos" )

   ENDIF


   IF ABREARQ( "PROD", "PROD", .F. , 10 )
   ELSE
      ALERT( "N„o foi poss¡vel abrir o arquivo de Produtos" )
   ENDIF

   DO WHILE .T.

      cPESQ = SPACE( 30 )
      @10, 10 SAY "PESQUISA ..: " GET cPESQ PICTURE [@K!]
      READ

      IF LASTKEY() = 27
         EXIT
      ENDIF

      T1 = TIME()

      xTOT = 0
      xTEM = 0

      SELECT PRODUTO
      SET ORDER TO 2
      GO TOP

      DO WHILE !EOF()

         xTEM++

         IF ALLTRIM( cPESQ ) $ PRODUTO->DESCRICAO   //procuro primeiro parte no nome

            xTOT++

            SELECT PROD
            DBAPPEND()

            RLOCK()

            REPLACE CODIGO     WITH PRODUTO->CODIGO,     ;
                    DESCRICAO  WITH PRODUTO->DESCRICAO,  ;
                    PRECOVENDA WITH PRODUTO->PRECOVENDA, ;
                    ESTOQUE    WITH PRODUTO->ESTOQUE

            COMMIT

         ENDIF

         @15, 10 SAY xTOT
         @15, 25 SAY xTEM

         SELECT PRODUTO

         SKIP

      ENDDO

      UNLOCK

      T2 = TIME()

      @18, 10 SAY T1
      @19, 10 SAY T2

   ENDDO

RETURN NIL

Código: Selecionar todos

      //@15,10 SAY xTOT
      //@15,25 SAY xTEM

Código: Selecionar todos

cTime := Time()
DO WHILE ! EOf()
....
IF cTime != Time()
    @15,10 SAY xTOT
    @15,25 SAY xTEM
   cTime := Time()
ENDIF