//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 3;20;77;Titulo a Pagar;;;;;
:SKEL
VARIAVEL zbDesc={||m_cp_desc:=if(empty(m_cp_desc),pad(alltrim(cp_divis->desc),len(m_cp_desc)),m_cp_desc),RefreshGetList()}
VARIAVEL zbSubD={||cSubD:=StrZero(m_CP_DIVISAO,3),m_CP_SUBDIV:=cSubD+SubStr(m_CP_SUBDIV,4),eVal(zbDesc),cp_subd->(DbSeek(cSubD))}
VARIAVEL zAreaOrig=Select()
VARIAVEL zAreaDivis=select("CP_DIVIS")
VARIAVEL zAreaSubd=select("CP_SUBD")

COMANDO ANTES z_nil=if(zAreaDivis=0,abra_arq("CP_DIVIS"),"")
COMANDO ANTES z_nil=if(zAreaSubd=0,abra_arq("CP_SUBD"),"")
COMANDO ANTES z_nil=dbselectarea(zAreaOrig)

COMANDO SAIDA z_nil=if(zAreaSubd=0, cp_subd->(DbCloseArea()), "")
COMANDO SAIDA z_nil=if(zAreaDivis=0, cp_divis->(DbCloseArea()), "")

:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 3;Cod Pedido:;C;10;CP_NUM_PED;xxxxxxxxxx;x_operacao=1.or.x_operacao=2;;;;N;; 0; 0;;;
 1; 2;33;Duplicata.:;C;10;CP_DUPLIC;xxxxxxxxxx;x_operacao=1.or.x_operacao=2;;;;N;; 0; 0;;;
 1; 3; 3;Cod Fornec:;N; 5;CP_COD_FOR;99999;x_operacao=1.or.x_operacao=2;Chk_LastKey(5).or.psq_brow;sccpfor;psccpfor;N;N; 3;35;cp_nome;@s30;
 1; 5; 3;Dt Emissao:;D; 8;CP_DT_EMIS;;x_operacao=1.or.x_operacao=2;;;;N;; 0; 0;;;
 1; 6; 3;Dt Venc...:;D; 8;CP_DT_VENC;;x_operacao=1.or.x_operacao=2;M_cp_dt_venc>=M_cp_dt_emis;;;N;; 0; 0;;;
 1; 7; 3;Valor.....:;N;10;CP_VALOR;9999999.99;x_operacao=1.or.x_operacao=2;;;;N;; 0; 0;;;

 1; 5;33;Div.Despesa:;N; 3;CP_DIVISAO;999;;Chk_LastKey(5).or.psq_brow;cp_divis;pcpdiviS;N;S;5;53;desc;@s18;
 1; 6;33;Subdiv.Desp:;C; 5;CP_SUBDIV;@S5;eval(zbSubD);Chk_LastKey(5).or.!cp_subd->(DbSeek(StrZero(m_CP_DIVISAO,3))).or.Psq_brow;Cp_Subd;PcpSubdf;N;S;6;53;SdDesc;@S18;
 1; 7;33;Situacao...:;N; 1;CP_SITUACA;9;x_operacao=1.or.x_operacao=2;Chk_LastKey(5).or.psq_brow;si_sitdp;psisitdp;N;N; 7;53;cr_situaca;@s18;
 
 1; 9; 3;Comentario:;C;50;CP_DESC;@S50;;
 1;11; 3;Dt Liquid.:;D; 8;CP_DT_LQD;;m_cp_val_lqd>=m_cp_valor;;;;N;; 0; 0;;;
 1;12; 3;Val Liquid:;N;10;CP_VAL_LQD;9999999.99;x_operacao=2;;;;N;; 0; 0;;; 
 
 // 1;11;33;Ha Juro...?;C; 1;CP_HA_JURO;x;x_operacao=2;;;;N;; 0; 0;;;
 1;11;33;Portador..:;N; 3;CP_LOCAL;999;;Chk_LastKey(5).or.psq_brow;cp_local;pcplocal;N;N;11;53;banco;@s18;
 1;12;33;Tip Liquid:;N; 1;CP_TIP_LQD;9;x_operacao=2;Chk_LastKey(5).or.psq_brow;si_tiplq;psitiplq;N;N;12;53;cr_tipo_lq;@s18;