//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7; 5;18;75;Tesouraria: Pagamento Avulso;;;;;
:SKEL
variavel m_oper='PGAVULSO'
variavel m_CP_COD_FOR=0
variavel m_CP_SITUACA=1
variavel m_CP_LOCAL=1
VARIAVEL zAcesso = '*NOVO*'
VARIAVEL m_tipo = "Retirada"
VARIAVEL M_CP_NUM_PED = "PG"+right(dtos(data),6)
VARIAVEL m_grupo= 1
VARIAVEL #TEXTO_FONTE
   if select('_sxassoc')>0
      m_desc:=_sxassoc->desc
      m_Cp_cod_for:=_sxassoc->Cp_cod_for
      m_cp_divisao:=_sxassoc->cp_divisao
      m_CP_SUBDIV:=_sxassoc->CP_SUBDIV
      m_CP_SITUACA:=_sxassoc->CP_SITUACA
      m_CP_LOCAL:=_sxassoc->CP_LOCAL
   endif
#FIM_TEXTO_FONTE
VARIAVEL zbDesc={||m_desc:=if(empty(m_desc).or.'Adicionado via Extrato Online'$m_desc,pad('Pgto '+alltrim(cp_divis->desc),len(m_desc)),m_desc),RefreshGetlist()}
VARIAVEL m_CP_DUPLIC:=M_CP_NUM_PED
VARIAVEL z_divcompras = "T"
VARIAVEL zNil = (zSele0:=Select(),Abra_arq("CP_DIVIS"),DbSelectArea(zSele0))
COMANDO SAIDA cp_divis->(DbCloseArea())
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1;2;50;Conta :;N; 3;sx_conta;999;.f.;
 1;3;50;Tipo .:;C; 8;TIPO;@s8;.f.;;
 1;4;50;Data .:;D; 8;DATA;;.f.;;
 1;5;50;Doc...:;N;11;cp_num_ped;@s10;.f.;;
 1;6;50;Oper..:;C;10;oper;@s10;.f.;;
 1;7;50;Doc...:;N;1;GRUPO;9;.f.;
 
 1;2; 2;Div. Despesa:;N; 3;CP_DIVISAO;999;;psq_brow;cp_divis;pcpdivif;N;S;2;25;desc;@s18;
 1;3; 2;Subdiv.Desp.:;C; 5;CP_SUBDIV;@S5;ChkCpSubDiv(@m_CP_DIVISAO,@m_CP_SUBDIV);!ChkCpSubDiv(@M_CP_DIVISAO).or.Psq_brow;Cp_Subd;PcpSubdf;N;S;3;25;SdDesc;@S18;
 
 1;5; 2;Valor do Pagamento..:;N;11;VALOR;99999999.99;.f.;;;

 1;7; 2;Referencia Extrato..:;C;10;Referencia;@S20;;;
 1;8; 2;Codigo do Fornecedor:;N; 5;CP_COD_FOR;99999;;LastKey()=5.or.psq_brow;SCCPFOR;PSCCPFOR;N;N;8;37;CP_NOME;@S35;
 1;9; 2;Obs. Complementar...:;C;40;DESC;@S40;eval(zbDesc);;