index SCCRNOM CR_NOME
VARIAVEL DTA1 = S_DATUAL
VARIAVEL DTA2 = S_DATUAL
VARIAVEL VENDEDOR = SPACE(8)
VARIAVEL TOTCLI = 0
VARIAVEL LST_TP = 58

T10,10,16,60,Identificacao
T2,2,Usuario ....:,8,vendedor,XXXXXXXX
T3,2,Data Inicial:,8,dta1,
T4,2,Data Final..:,8,dta2,

FILTRO cr_dtCONT >= DTA1 .AND. CR_DTCONT <= DTA2 .AND. ( VENDEDOR = SPACE(8) .OR. UPPER(ALLTRIM(CR_UCONT)) = UPPER(ALLTRIM(VENDEDOR)) )
COMANDO DURANTE TOTCLI = TOTCLI + 1

C [Empresa]                                     Data [Date()]
C [Sistema]                                           Hora [Time()]
C Relacao de Clientes Contactados               Pag [Pag 9999]
C [REPL("-",80)]
C Codigo  Cliente                           Data   Vendedor
C [REPL("-",80)]
D [cr_cod_cli 99999]  [cr_nome] [cR_dtcont]    [cr_ucont]
ULTPAG [repl("-",80)]
ULTPAG TOTAL DE CLIENTES:  [TOTCLI @E999,999] 
ULTPAG [repl("-",80)]

