ARQ_DIA;::Lancamentos do Diario::;sys_tbbrow; 5; 0;21;79;diario;;
:TBMT
 22;if(tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod), tb_insert(D_oB),mensagem(""));Ins-Inclui ;
 43;if(tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod), inc_dia1(D_oB) ,mensagem(""));+-Inclui_Form1;
 65;if(tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod), tb_update(D_ob),mensagem(""));A-Altera ;
  7;if(tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod), tb_del(D_OB)   ,mensagem(""));Del-Apaga ;
 80;tb_pesq(D_oB);P-Pesquisa Dia;
 13;if(tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod), doget(D_ob)  ,mensagem(""));Enter-Edita Campo;
 32;if(tstscacess(s_mes_ref+"."+right(s_ano_ref,2),__cod), tb_cons(D_OB),mensagem(""));Barra-Exibe Lancam.;
 86;tst_dia();V-Verifica Diario;
 71;pm2pd_dia();G-Partidas Dobradas; 
 67;tb_locate(D_oB);C-Continua Busca;
 84;tb_locate(D_oB);T-Localiza Trecho;
 76;tb_locate(D_oB);L-Localiza Iniciais;
 70;tb_filter(d_ob);F-Filtra ;
 79;tb_index(d_ob);O-Ordena;
:TBFI
Acesso;rec_del();N;X99999;6;N;
Dia;CT_DIA;N;99; 2;;
CDeb;CT_CONTA;N;9999;  4;;
CCre;CT_Ccre;N;9999;  4;;
Valor;CT_VALOR;N;999999.99; 9;;
;CT_DC;C;@S1;  1;;
Hist;CT_COD_HIS;N;999;  3;;
Complemento;CT_COMPLEM;C;@S20;20;;
Lote;CT_lote;N;99999;  5;;
Cn;ct_conc;C;x;2;S;
