VARIAVEL Z_CLI = 0
VARIAVEL LST_TP = 999

//T10,10,14,60,Identificacao
//T2,2,Codigo do Cliente:,5,z_cli,99999
comando antes dbgotop()
COMANDO DURANTE zfgtroca = (cr_cod_cli<>recno())
COMANDO DURANTE znil = if(zfgtroca, reglock(), '')
COMANDO DURANTE znil = if(zfgtroca, put_var('cr_cod_cli',recno()), '') 

//COMANDO DURANTE Z_clif = strzero( z_cli , 4 )
//REPITA ENQUANTO Z_cLI = RECNO()

D     Ident.: [cr_nome]
D     End...: [cr_rua]
D     Bairro: [cr_bairro]
D     Cidade: [cr_cidade]UF:[cr_uf]
D     CEP...: [cr_Cep]
D
D