SX_CAIXA;Tesouraria: Entradas x Saidas;sys_tbbrow; 7; 0;18;79;padrao;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL Z_DATUAL = ctod("")
VARIAVEL zCta    = "000"
VARIAVEL #TEXTO_FONTE
   if QuickDialog("SxCaixa", "Exibir lancamentos",{{"Conta da Tesouraria.:","@zCta",@zCta,"999","",""},{"Data dos Lancamentos:","@Z_DATUAL",@Z_DATUAL,"99.99.9999","",""}} )
      DbSetFilter( {||(val(zCta)=0.or.val(zCta)=sx_conta).and.(day(z_datual)=0.or.z_datual=data)}, "(val(zCta)=0.or.val(zCta)=sx_conta).and.(day(z_datual)=0.or.z_datual=data)")
      dbsetorder(0)
      if val(zCta)>0
         DbGoTop()
      else
         DbGoBottom()
         DbSkip(-7)
      endif
   endif
#FIM_TEXTO_FONTE
:TBFI
Partida;sx_conta;N;999;7;S;
*;TIPO;C;x;  1;S;
Descricao;DESC;C;@S31;31;S;
Valor;VALOR;N;9999999.99; 10;S;
DATA;DATA;D;;  8;S;
Div;CP_DIVISAO;N;999;  3;S;
ContraP;CP_COD_FOR;N;9999;7;S;
SubD;cp_SUBDIV;C;xxxxx;5;S;
Duplic;cp_duplic;C;@S10; 10;S;
Gr;GRUPO;N;9; 1;S;
Acesso;sx_ACESSO;N;999999;  6;N;
DataDig;DATADig;D;;  8;N;
HoraDig;horaDig;C;;  5;N;