CR_RECFX;Lancamento de Receita Recorrente;sys_tbbrow; 7; 0;20;79;padrao;;
:SKEL
VARIAVEL z_nil = ABRA("0",R_Siga,"Sccrcli", "Sccrcli")
VARIAVEL z_nil = DbSelectArea("CR_RECFX")
VARIAVEL zBlkClif = {|x_cli| sccrcli->(DbGoto(x_cli)),sccrcli->Cr_fantasi}
VARIAVEL zBlkCli = {|x_cli| sccrcli->(DbGoto(x_cli)),sccrcli->Cr_nome}
COMANDO DEPOIS z_nil = Sccrcli->( DbCloseArea() )
:TBFI
Cli;Cr_COD_cli;N;999999;6;;
Nome_Cli;eval(zBlkCli,cr_cod_cli);C;@s30;30;N;
Obs;Cr_obs;C;@S15; 15;;
Gr;GrupoCli;C;9;1;S;
Rc;Cr_zona;N;99;  2;;
Valor;Cr_VALOR;N;99999.99;  8;;
Fantasia;eval(zBlkClif,cr_cod_cli);C;@s30;20;N;
DEmis;CP_DIAEMIS;N;99;  5;;
DVenc;CP_DIAVENC;N;99;  5;;
PzVen;CP_PZ_VENC;N;99;  5;;
