PETS;Cadastro de Pets - Animais;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL Z_BLOCK = {|cCpfCnpj| sccrcli->(if(dbseek(cCpfCnpj),sccrcli->cr_nome,'*CPF Nao Cadastrado*'))}
COMANDO ANTES Z_NIL = ABRA("0NOIDX",r_siga,"sccrcli","sccrcli","sccrcpf","cr_cgc","sccrnom","cr_nome","sccrfon","cr_fone")
COMANDO ANTES DBSELECTAREA("pets")
COMANDO DEPOIS sccrcli->( DbCloseArea() )
:TBFI
Cpf_Cli;CR_CGC;C;@S14; 14;;
Nome_Cli;eval(z_block,cr_cgc);C;@s25; 25;;
Nome do Animal;NOMEPET;C;@S30; 30;;
Dt_Nascimento;DT_NASC;D;;  8;;
Dt_Cadastro;DT_CAD;D;;  8;;
Idade;IDADE;N;99.99;  7;;
Especie;ESPECIE;C;@S8;  8;;
Sexo;SEXO;C;x;  1;;
Raca;RACA;C;@S20; 20;;
Dt_UltConsulta;DT_CONSULT;D;;  8;;
