//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 5;19;75;Conciliacao: Pagamento de Cartao;;;;;
:SKEL
variavel m_oper='SUPRIMCXA'
VARIAVEL m_grupo=3
VARIAVEL m_CP_COD_FOR = GetCtaTesou("ES") 
VARIAVEL #TEXTO_FONTE
   if select('_sxassoc')>0
      m_desc:=_sxassoc->desc
      m_Cp_cod_for:=_sxassoc->Cp_cod_for
   endif
#FIM_TEXTO_FONTE
VARIAVEL zbDesc={||m_desc:=if(empty(m_desc),pad('Suprir Cta '+StrZero(m_CP_COD_FOR,3)+' com saque Cta '+StrZero(sx_conta,3),len(m_desc)),m_desc),RefreshGetlist()}
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2;50;Tipo .:;C; 8;TIPO;@s8;.f.;;
 1; 3;50;Data .:;D; 8;DATA;;.f.;
 1; 4;50;Grupo.:;N; 1;GRUPO;9;.f.;
 1; 5;50;Oper..:;C;10;oper;@s10;.f.;;

 1; 5; 2;Conta que Pagou..:;N; 3;sx_conta;999;.f.;
 1; 6; 2;Conta do Cartao..:;N; 5;CP_COD_FOR;99999;;PSQ_BROW;sx_conta;psxconta;N;S;6;35;ct_titulo;@s18;

 1; 8; 2;Valor Transferido:;N;11;VALOR;99999999.99;.f.;
 1;10; 2;Obs. Complementar:;C;40;DESC;@S40;eval(zbDesc);;