//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 5;19;75;Suprimento via Transferencia;;;;;
:SKEL
VARIAVEL m_sx_acesso := RecCount()+1
VARIAVEL zNIL := sx_caixa->(Abra ("0NOIDX",r_siga,"sx_conta","sx_conta","sx_conta","sx_conta"))
VARIAVEL m_cr_tip_dup := "ES"
VARIAVEL m_tipo := "Retirada"
VARIAVEL m_grupo := 3
VARIAVEL m_data := s_datual
VARIAVEL m_sx_Conta := GetCtaTesou("ES") 
VARIAVEL zbDesc := {||m_desc := if(empty(m_desc) .or. left(m_desc,14)='Transf. da Cta', pad('Transf. da Cta'+StrZero(m_CP_COD_FOR,3)+' -> Cta'+StrZero(m_sx_conta,3),len(m_desc)), m_desc) , RefreshGetList()}

VARIAVEL zQtdParcelas:=0
VARIAVEL zDtPrimeira:=Date()
VARIAVEL zIntervaloParcelas:=30
VARIAVEL zValorParcelas:=0
VARIAVEL zSxCodForDaConta:=0
VARIAVEL zbGetParcelas={|| ChecaSeContaDeFinanciador('CHECA_SE_DEVE_AGENDAR_RESTITUICAO_AO_PAGADOR', m_Sx_Conta, 0, m_data, m_Valor, M_DESC) }

comando depois Sx_caixa('GRAVE_TRANSFERENCIA')
comando saida zNIL:=select("sx_conta")>0.and.sx_conta->(DbCloseArea(),.t.)

: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;;.f.;;
 
 1; 5; 2;Conta da Retirada.....:;N;3;sx_Conta;999;;Chk_LastKey(5).or.(psq_brow().and.GetCtaTesou("VALIDAR",m_sx_Conta));sx_conta;psxconta;N;S;5;35;ct_titulo;@s18; 
 1; 6; 2;Valor da Transferencia:;N;11;VALOR;99999999.99;;m_valor>0;;;N;
 1; 7; 2;Conta de Destino......:;N;3;CP_COD_FOR;999;;Chk_LastKey(5).or.(psq_brow().and.GetCtaTesou("VALIDAR",m_sx_Conta,m_cp_cod_for).and.eVal(zbDesc).and.eVal(zbGetParcelas));sx_conta;psxconta;N;S;6;35;ct_titulo;@s18; 

 1; 9; 2;Obs. Complementar.....:;C;40;DESC;@S40;;;;
 1;10; 2;Documento da Transf...:;C;10;CP_DUPLIC;@S10;;Chk_LastKey(5).or.!empty(m_CP_DUPLIC);