SX_CAIXA;Tesouraria: Entradas x Saidas;sys_tbbrow; 7; 0;18;79;psq_brow;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL Z_DATUAL = ctod("")
VARIAVEL Z_CXA    = "997"
COMANDO ANTES Z_NIL = DbSetFilter( {||(sx_conta=997.or.sx_conta=501).and.tipo='S'}, "sx_conta=997.and.tipo='S'")
COMANDO ANTES znil = DbGoBottom()
COMANDO ANTES znil = DbSkip(-7)
:TBMT
 13;psq_enter();Enter-Confirma ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 22;tb_insert(D_OB);Ins-Inclui ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ; 
 32;doget(D_ob);Barra-Edita ;
:TBFI
Cod_Ad;sx_ACESSO;N;999999;  6;;
*;TIPO;C;x;  1;;
Descricao;DESC;C;@S31;31;;
Valor;VALOR;N;9999999.99; 10;;
DATA;DATA;D;;  8;;
Pendente;Valor-sld_adiant;P;99999.99; 8;;
ParaQuem;paraquem;C;@S10; 10;;
Referencia;Referencia;C;@S20; 10;;
Aut.Por;Aut_Por;C;@S10; 10;;
SaldoAdiant;sld_adiant;N;99999999.99;11;S;