INDEX SCCRNOM CR_NOME
OUTROARQ lojas

VARIAVEL z_ncli = 0
VARIAVEL z_rua   = space(35)
VARIAVEL z_bairro= space(20)
VARIAVEL z_cidade= space(20)
VARIAVEL z_uf    = "  "
VARIAVEL Z_DDE  = DATE()
VARIAVEL Z_DATE = DATE()

T7,10,17,70,Parametros
T2,5,Data Inicial dos Anivers rios:,8,z_dde,99.99.99
T3,5,Data Final...................:,8,z_date,99.99.99,;z_date>=z_dde;
T5,5,Rua....:,35,z_rua,@S35
T6,5,Bairro.:,20,z_bairro,@s20
T7,5,Cidade.:,20,z_cidade,@s20
T8,5,UF.....:,2,z_uf,@s2

FILTRO CR_DT_ANI>=Z_DDE.AND.CR_dT_ANI<=Z_DATE
FILTRO  z_rua=space(35) .or. alltrim(z_rua)$cr_rua
FILTRO  z_bairro=space(20) .or. z_bairro=cr_bairro
FILTRO  z_cidade=space(20) .or. z_cidade=cr_cidade
FILTRO  z_uf="  " .or. z_uf=cr_uf
COMANDO DURANTE z_ncli = z_ncli + 1
