Moderador: Moderadores
FUNCTION EXTRATO()
LOCAL Ini_Data, Fim_Data, nCodigo
Ini_Data := CTOD(" / / ")
Fim_Data := CTOD(" / / ")
nCodigo := 0
@ 10, 05 SAY "Data Inicial .....:" GET Ini_Data
@ 11, 05 SAY "Data Final ......:" GET Fim_Data
@ 12, 05 SAY "Código Produto :" GET nCodigo
READ
USE MOVIMENTO
INDEX ON DATA TO IDXDATA
SET INDEX TO IDXDATA // indexado por ordem de data
SET SCOPE TO Ini_Data, Fim_Data // o escopo delimita a data inicial e a data final desejada
SET FILTER TO CodPro = nCodigo // filtragem para o produto desejado
DBGOTOP()
DO WHILE !LASTKEY() = 27
DBEDIT()
ENDDO
SET FILTER TO // limpa a filtragem
SET SCOPE TO // limpa o escopo
DBCLOSEALL()
RETURN .T.
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes