SET DATE TO BRITISH
SET CENTURY ON
select (1)
USE CAD1 NEW
index on obra to cad1ind_obra
select (2)
USE CAD2 NEW
index on obra to cad2ind_obra
INDEX ON NUMERO TO Cad2IND_NUMERO
INDEX ON LEFT (DTOS(PAGAMENTO),6)TO CAD2IND_2
SET INDEX TO CAD2IND_OBRA,CAD2IND_NUMERO,CAD2IND_2
set relation to cad2->obra into cad1
V_MESANO=SPACE(6)
V_VPAGO =0
V_SOMA=0
SET COLOR TO "R+"
BORDA=CHR(177)+CHR(177)+CHR(177)+CHR(177)+CHR(177)+CHR(177)+CHR(177)+CHR(177)
CLEAR
@ 3,1,24,79 BOX BORDA
@ 1,1,24,79 BOX BORDA
@ 2,10 SAY "NOME DO CLIENTE - RELATORIO DE FATURAS PAGAS"
@ 18,20 SAY "DIGITE O MES E ANO:"GET V_MESANO PICT "@R 99/9999"
READ
V_SOMA+=VPAGO
V_MES=LEFT(V_MESANO,2)
V_ANO=RIGHT(V_MESANO,4)
V_ANOMES=V_ANO+V_MES
DBSELECTAREA (2)
SEEK V_ANOMES
CL=66
do while !eof()
IF V_ANOMES !=LEFT(DTOS(PAGAMENTO),6)
EXIT
ENDIF
SET PRINTER ON
SET DEVICE TO PRINTER
??chr(13)
??chr(15)
if cl>60
CL=1
@ CL,50
@ cl,30 say " NOME DO CLIENTE."
CL=CL+2
@ CL,1 SAY " LISTAGEM DE PAGAS "
@ CL,50 SAY DATE()
@ CL,70 SAY TIME()
CL=CL+2
@ CL,1 SAY "OBRA"
@ CL,12 SAY "EMPRESA"
@ CL,61 SAY "NUMERO"
@ CL,70 SAY "VALOR"
@ CL,82 SAY "EMISSAO"
@ CL,98 SAY "VENCIMENTO"
@ CL,112 SAY "PAGAMENTO"
@ CL,125 SAY "VLR PAGO"
CL=CL+1
ENDIF
@ CL,1 SAY CAD1->OBRA
@ CL,12 SAY CAD1->EMPRESA
@ CL,61 SAY CAD2->NUMERO
@ CL,66 SAY CAD2->VALOR
@ CL,82 SAY CAD2->EMISSAO
@ CL,98 SAY CAD2->VENCIMENTO
@ CL,112 SAY CAD2->PAGAMENTO
@ CL,123 SAY CAD2->VPAGO
cl=cl+1
SKIP
ENDDO
@ CL,1 SAY REPLICATE ("-",133)
CL=CL+1
@ CL,40 SAY "TOTAL =>"
@ CL,63 SAY V_SOMA
EJECT
CLEAR
SET PRINT OFF
SET DEVICE TO SCREEN
RETURN
