//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 4; 5;20;75;Tesouraria: Pagamento de Titulo;;;;;
:SKEL
VARIAVEL m_cp_tip_lqd = 1
VARIAVEL zFgEdit = .f.
VARIAVEL m_acesso = reccount()+1
VARIAVEL m_tipo   = "Retirada"
VARIAVEL m_grupo  = 2
VARIAVEL m_fg_contab = " "
VARIAVEL m_data  = s_datual
VARIAVEL m_sx_Conta = GetCtaTesou("ES") 
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_blktipo={||m_tipo:=left(m_tipo,1),.f.}
VARIAVEL z_blkvalor={||m_valor:=if(!zfgedit,sccpped->cp_valor,m_valor),.t.}
VARIAVEL z_blkdesc={||zfgedit:=.t.,m_desc:=if(empty(m_desc),pad('Tit '+Alltrim(sccpfor->CP_FANTASI)+' Vencto '+Dtoc(sccpped->cp_dt_venc),len(m_desc)),m_desc),.t.}
VARIAVEL z_blkped={||m_cp_num_ped:=sccpped->cp_num_ped,m_cp_divisao:=sccpped->cp_divisao,m_cp_subdiv:=sccpped->cp_subdiv,m_cp_situaca:=sccpped->cp_situaca,m_cp_local:=sccpped->cp_local,.f.}
VARIAVEL z_divcompras = " "
COMANDO ANTES z_nil=if(sele("SCCPFOR")=0,abra_arq("SCCPFOR"),"")
COMANDO ANTES z_nil=if(sele("SCCPPED")=0,abra_arq("SCCPPED",.f.,"0",r_siga,"SCCPPED","sccppdff,str(cp_cod_for,5)+cp_duplic"),"")
COMANDO ANTES z_nil=if(sele("CP_SUBD")=0,abra_arq("CP_SUBD"),"")
COMANDO ANTES z_nil=if(sele("CP_DIVIS")=0,abra_arq("CP_DIVIS"),"")
COMANDO ANTES DbSelectArea("SX_CXAUT")

COMANDO DEPOIS Z_RECNOPED = sccpped->(Recno())
COMANDO DEPOIS SX_CXAUT->(reglock())
COMANDO DEPOIS SX_CXAUT->(Put_Var("CP_RECNO",Z_RECNOPED))
COMANDO DEPOIS SX_CXAUT->(DbCommit())
COMANDO DEPOIS SX_CXAUT->(DbUnlock())

COMANDO SAIDA cp_subd->(DbCloseArea())
COMANDO SAIDA cp_divis->(DbCloseArea())
COMANDO SAIDA sccpped->(DbCloseArea())
COMANDO SAIDA sccpfor->(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;eval(z_blktipo);;;;;N;;0;0;;;

 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;Fornecedor..:;N; 5;CP_COD_FOR;99999;;Chk_LastKey(5).or.psq_brow;SCCPFOR;PSCCPFOR;N;N;3;25;CP_NOME;@S25;
 1; 4; 2;Duplicata...:;C;10;CP_DUPLIC;@s10;;Chk_LastKey(5).or.psq_brow;SCCPPED;PSCCPPD1;N;S;;;;;str(m_cp_cod_for,5)+m_cp_duplic;cp_duplic;

 1; 6; 2;Cod.Pedido..:;N;11;cp_num_ped;@s10;eval(z_blkped);;;;N;
 1; 7; 2;Div. Despesa:;N; 3;CP_DIVISAO;999;;Chk_LastKey(5).or.psq_brow;cp_divis;pcpdivif;N;N;7;25;desc;@s18;
 1; 8; 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;8;25;SdDesc;@S18;
 1; 9; 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; 9;25;cr_situaca;@s18;
 1;10; 2;Portador....:;N; 3;CP_LOCAL;999;;Chk_LastKey(5).or.psq_brow;cp_local;pcplocal;N;N;10;25;banco;@s18;
 1;11; 2;Gr.Contabil.:;N; 1;GRUPO;9;;Chk_LastKey(5).or.m_grupo=1.or.m_grupo=2;;;N;;0;0;;;
 1;11;25;Informar 1 ou 2;

 1;13; 2;Valor do Lancamento.:;N;11;VALOR;99999999.99;eval(z_blkvalor);m_valor>0;;;N;
 1;14; 2;Obs. Complementar...:;C;40;DESC;@S40;eval(z_blkdesc);;;;N;
