VARIAVEL lst_tp  = 999
VARIAVEL z_cli   = 0

VARIAVEL z_rua   = space(35)
VARIAVEL z_bairro= space(20)
VARIAVEL z_cidade= space(20)
VARIAVEL z_uf    = "  "

T6,5,16,78,Parametros
T2,2,Cliente:,5,z_cli,99999
T4,2,Rua....:,35,z_rua,@S35
T5,2,Bairro.:,20,z_bairro,@s20
T6,2,Cidade.:,20,z_cidade,@s20
T7,2,UF.....:,2,z_uf,@s2

COMANDO ANTES Z_NIL = IF(Z_CLI>0,DBGOTO(Z_CLI),"")
REPITA ENQUANTO z_cli=0.or.z_cli=recn()

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

INCLUDE CCOBET00.LST
