ARQ_LOT;Lotes Disponiveis;sys_tbbrow; 6; 3;20;78;capas;;
:TBMT
 82;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),reca_lote(D_oB));R-Recalcula Lote;
 13;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),dgt_lote(D_oB));Enter-Digita Lote;
 65;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),alt_capa(D_oB));A-Altera Capa;
 32;exb_capa();Barra-Exibe Dados;
  7;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),del_capa(D_oB));Del-Apaga Capa;
 80;prt_lote();P-Imprime Lote;
 76;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),lanc_lote(D_oB));L-Lanca no Diario;
 84;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),recu_lote(D_oB));T-Traz do Diario;
 22;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),inc_capa(D_oB));Ins-Insere Lote;
 69;if(!tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod),mensagem(""),doget(D_oB));E-Edita ;
:TBFI
Acesso;rec_del();N;X99999;  6;N;
Formula;FORMULA;N;9;1;N;
Lancada?;If(FGPROC,"Lancado","Aberto ");C;@s7;7;N;
Deb Informados;TDEB;N;9999999.99; 10;N;
Cred Informados;TCRED;N;9999999.99; 10;N;
Deb Digitados;TDEBITOS;N;9999999.99; 10;N;
Cred Digitados;TCREDITOS;N;9999999.99; 10;N;
*;FGPROC;L;;1;S;
