19 Ago 2020 16:54
19 Ago 2020 16:58
USE VENDAS
INDEX ON produto TO PRODUTO_VENDA
INDEX ON data TO DATA_VENDA
INDEX ON nota TO NOTA_VENDA
....
USE VENDAS
SET INDEX TO DATA_VENDA
USE VENDAS
SET INDEX TO PRODUTO_VENDA, DATA_VENDA, NOTA_VENDA
...
USE VENDAS
SET INDEX TO DATA_VENDA, PRODUTO_VENDA, NOTA_VENDA
19 Ago 2020 17:18
USE cliente
SET INDEX TO cliente1, cliente2, cliente3
USE produto
SET INDEX TO produto1, produto2, produto3
IF ! AbreArquivos( "cliente", "produto" )
RETURN
ENDIF
FUNCTION AbreArquivos( ... )
LOCAL cDBF, lTudoCerto := .T.
aList := hb_AParams()
FOR EACH cDBF IN aList
lTudoCerto := AbreUmDBF( cDBF )
IF ! lTudoCerto
EXIT
ENDIF
NEXT
IF ! lTudoCerto
CLOSE DATABASES
Mensagem( "Não conseguiu abrir todos" )
ENDIF
RETURN lTudoCerto
FUNCTION AbreUmArquivo( cDBF )
cDBF := Lower( cDBF )
DO CASE
CASE cDBF == "cliente"
USE cliente
SET INDEX TO cliente1, cliente2, cliente3
CASE cDBF == "produto"
USE produto
SET INDEX TO produto1, produto2, produto3
OTHERWISE
RETURN .F.
ENDCASE
RETURN .T.
19 Ago 2020 17:33
USE VENDAS
INDEX ON COD_CLI + DTOS( DAT_EMI ) TO VEND_CLI
INDEX ON COD_PRO + DTOS( DAT_EMI ) TO VEND_PRO
INDEX ON DTOS( DAT_EMI ) + COD_CLI TO VEND_DATA
USE VENDAS
INDEX ON COD_CLI + DTOS( DAT_EMI ) TAG CLIENTE
INDEX ON COD_PRO + DTOS( DAT_EMI ) TAG PRODUTO
INDEX ON DTOS( DAT_EMI ) + COD_CLI TAG DATA
INDEX ON COD_CLI + DTOS( DAT_EMI ) TAG CLIENTE TO VEND_CLI
INDEX ON COD_PRO + DTOS( DAT_EMI ) TAG PRODUTO TO VEND_PRO
INDEX ON DTOS( DAT_EMI ) + COD_CLI TAG DATA TO VEND_DATA
19 Ago 2020 17:39
USE VENDAS
SET INDEX TO VEND_CLI, VEND_PRO, VEND_DATA
USE VENDAS
SET INDEX TO VENDAS
USE VENDAS
INDEX ON COD_CLI TAG CLIENTES
INDEX ON COD_CLI TAG CLIENTES
USE VENDAS
INDEX ON COD_CLI TAG CLIENTES
INDEX ON COD_CLI TAG CLIENTES
19 Ago 2020 17:50