INDEX SCCRCLI cr_cod_cli 
 
VARIAVEL z_valtot = 0 
 
COMANDO DURANTE z_valtot = z_valtot + CR_VALtef 
 
 
 
VARIAVEL Z_LISTA = "S" 
 
T10,10,16,60,Parametros 
T2,2,Clientes TEF S ou N:,1,z_lista,X 
 
 
FILTRO cr_tef=Z_LISTA 
 
 
ClISTA DE CLIENTES DA TEFCONNECT  SERVIÇO TEF DEDICADO  Em [date()]  Pag [pag 999] 
C[REPL("=",80)] 
CNome do Cliente                     TEF/Data     Mensalidade  Inf.Dire‡ao 
C[REPL("=",80)] 
 
 
D[CR_NOME @s35] ([Cr_tef])[cr_initef] [cr_valtef]         ([cr_info]) 
 
ULTPAG[REPL("=",80)] 
ULTPAG TOTAL A RECEBER: [z_valtot @e 999.999,99] 
ULTPAG 