CR_SERIE;Cadastro de Numero Logico;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL zBlkCli = {|x_cli| sccrcli->(dbgoto(x_cli)), sccrcli->cr_nome }
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"sccrcli","sccrcli")
COMANDO DEPOIS sccrcli->( DbCloseArea() )
:TBFI
CodCli;CR_COD_CLI;N;999999;  6;;
Razao Social;eval(zBlkCli, cr_cod_cli);C;@S30;30;N;
Data_Ger;CR_DATA;D;;  8;;
Hora_Ger;CR_HORA;C;@S8;  8;;
Renovacao;CR_DTEXP;D;;  8;;
NumSerial;CR_SERIAL;C;@S10; 10;;
