//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 5;19;75;Transferencia entre contas;;;;;
:SKEL
VARIAVEL m_cp_tip_lqd = 1
VARIAVEL m_sx_acesso = reccount()+1
VARIAVEL m_tipo   = "Retirada"
VARIAVEL m_grupo  = 1
VARIAVEL m_fg_contab = " "
VARIAVEL m_data  = s_datual
VARIAVEL m_sx_Conta = GetCtaTesou("ES") 
VARIAVEL z_divcompras = " "

VARIAVEL zbGetTitulos:=#TEXTO_FONTE
   
   Return .t.
#FIM_TEXTO_FONTE

VARIAVEL zbContaDestinoOk:=#TEXTO_FONTE
    if m_sx_conta<>m_CP_COD_FOR
       if empty(m_desc) .or. left(m_desc,14)='Transf. da Cta'
          m_desc := pad('Transf. da Cta'+StrZero(m_sx_conta,3)+' -> Cta'+StrZero(m_CP_COD_FOR,3),len(m_desc))
          Return RefreshGetList()      // Retorna .t. atualizando os campos da tela
       else
          Return .t.                   // Retorna .t. sem atualizar os campos da tela
       endif
    else
       Alert("A Conta Destino "+Ltrim(Str(m_CP_COD_FOR,6))+" nao pode ser igual a conta origem "+Ltrim(Str(m_sx_conta,6)),,"R/W")
       Return .f.
    endif
#FIM_TEXTO_FONTE

COMANDO DEPOIS #TEXTO_FONTE
      RegLock()
      Put_Var("grupo",m_grupo)
      AppendBlank()
      Put_Var("sx_ACESSO",Reccount())
      Put_Var("TIPO","S")
      Put_Var("DATA",s_dAtual)
      Put_Var("grupo",m_grupo)
      Put_Var("sx_conta",m_cp_cod_for)
      Put_Var("CP_COD_FOR",m_sx_conta)
      Put_Var("VALOR",m_valor)
      Put_Var("DESC",M_DESC)
      DbCommit()
      DbUnlock()
#FIM_TEXTO_FONTE

:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib

 1; 2;50;Acesso:;N; 6;sx_ACESSO;999999;.f.;;
 1; 3;50;Tipo .:;C; 8;TIPO;@s8;.f.;;;
 1; 4;50;Data .:;D; 8;DATA;;
 
 1; 2; 2;Conta Tesour:;N; 3;SX_CONTA;999;;PSQ_BROW;sx_conta;psxconta;N;S;2;25;ct_titulo;@s18;

 1;11; 2;Valor Total dos Pagamentos:;N;11;VALOR;99999999.99;eVal(zbGetTitulos);;;