ALIAS SCCRCLI
# index SCCRNOM CR_NOME
INDEX TEMP001 Dtos(CR_DT_ANI)

listagem_htm

VARIAVEL DTA1 = S_DATUAL
VARIAVEL DTA2 = S_DATUAL
VARIAVEL TOTCLI = 0
VARIAVEL LST_TP = 58

T10,10,15,60,Identificacao
T2,2,Data Inicial:,8,dta1,
T3,2,Data Final..:,8,dta2,

COMANDO DURANTE ZCRNOME = pad(cr_nome,40)

FILTRO day(cr_dt_ani) >= day (dta1) .and. day(cr_dt_ani) <= day( dta2 ) .and. month(cr_dt_ani) >= month(dta1) .and. month(cr_dt_ani) <= month(dta2)
COMANDO DURANTE TOTCLI = TOTCLI + 1

C [Empresa]                                     Data [Date()]
C [Sistema]                                           Hora [Time()]
C Relacao de Clientes Aniversariantes               Pag [Pag 9999]
C [REPL("-",80)]
C Codigo  Cliente                           DT.Aniv  Fone
C [REPL("-",80)]
D [cr_cod_cli 999999]  [ZCRNOME] [LEFT(DTOC(CR_DT_ANI),5)]  [CR_FONE]
ULTPAG [repl("-",80)]
ULTPAG TOTAL DE CLIENTES:  [TOTCLI @E999,999] 
ULTPAG [repl("-",80)]