//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 5;19;75;Solicitar Autorizacao Pagto Avulso;;;;;
:SKEL
VARIAVEL m_sx_acesso = reccount()+1
VARIAVEL m_tipo   = "Retirada"
VARIAVEL M_CP_NUM_PED = "SX"+right(dtos(s_datual),6)
VARIAVEL m_grupo  = 1
VARIAVEL m_fg_contab = " "
VARIAVEL m_data = s_datual
VARIAVEL z_blkprefsubd={||x_div:=StrZero(m_CP_DIVISAO,3),m_CP_SUBDIV:=if(empty(m_CP_SUBDIV).or.left(m_CP_SUBDIV,3)<>x_div,x_div+'__',m_CP_SUBDIV),cp_subd->(DbSeek(x_div))}
VARIAVEL z_blkdesc={||m_desc:=if(empty(m_desc),pad('Pgto '+alltrim(cp_divis->desc),len(m_desc)),m_desc),RefreshGetlist()}
VARIAVEL z_divcompras = "T"
VARIAVEL z_nil = if(select("CP_SUBD")=0,abra_arq("CP_SUBD"),"")
VARIAVEL z_nil = if(select("CP_DIVIS")=0,abra_arq("CP_DIVIS"),"")
VARIAVEL z_nil = DbSelectArea("SX_CXAUT")

comando antes m_sx_Conta = GetCtaTesou("ES") 

COMANDO SAIDA cp_divis->(DbCloseArea())
COMANDO SAIDA cp_subd->(DbCloseArea())
: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.;;;;N;;0;0;;;
 1; 3;50;Tipo .:;C; 8;TIPO;@s8;.f.;;;;N;;0;0;;;
 1; 4;50;Data .:;D; 8;DATA;;;;;;N;;0;0;;;
 1; 5;50;Pedido:;N;11;cp_num_ped;@s10;.f.;;

 1; 2; 2;Conta Tesour:;N; 3;sx_conta;999;;PSQ_BROW;sx_conta;psxconta;N;S;2;25;ct_titulo;@s18;
 1; 3; 2;Div. Despesa:;N; 3;CP_DIVISAO;999;;Chk_LastKey(5).or.psq_brow;cp_divis;pcpdivif;N;S;3;25;desc;@s18;
 1; 4; 2;Subdiv.Desp.:;C; 5;CP_SUBDIV;@S5;eval(z_blkprefsubd);Chk_LastKey(5).or.!empty(m_CP_SUBDIV).and.Psq_brow;Cp_Subd;PcpSubdf;N;S;4;25;SdDesc;@S18;
 1; 5; 2;Situacao....:;N; 1;CP_SITUACA;9;x_operacao=1.or.x_operacao=2;Chk_LastKey(5).or.psq_brow;si_sitdp;psisitdp;N;N; 5;25;cr_situaca;@s18;
 1; 6; 2;Portador....:;N; 3;CP_LOCAL;999;;Chk_LastKey(5).or.psq_brow;cp_local;pcplocal;N;N;6;25;banco;@s18;
 1; 7; 2;Gr.Contabil.:;N; 1;GRUPO;9;;Chk_LastKey(5).or.m_grupo=1.or.m_grupo=2;;;N;;0;0;;;
 1; 7;25;Informar 1 ou 2;

 1; 9; 2;Codigo do Fornecedor:;N; 5;CP_COD_FOR;99999;;Chk_LastKey(5).or.psq_brow;SCCPFOR;PSCCPFOR;N;N;9;37;CP_NOME;@S25;
 1;10; 2;Valor do Lancamento.:;N;11;VALOR;99999999.99;;m_valor>0;;;N;; 0; 0;;;
 1;11; 2;Obs. Complementar...:;C;40;DESC;@S40;eval(z_blkdesc);;;;N;; 0; 0;;;
