//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 3;18;79;Quitacao de Titulo;;;;;
: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))}
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2;50;Cod.Pedido.:;C;10;CP_NUM_PED;xxxxxxxxxx;.f.;;;;
 1; 3;50;Duplicata..:;C;10;CP_DUPLIC;xxxxxxxxxxx;.f.;;;;
 1; 5;50;Dt Emissao.:;D; 8;CP_DT_EMIS;;.F.;;;;
 1; 6;50;Dt Venc....:;D; 8;CP_DT_VENC;;.F.;
 1; 7;50;Valor......:;N;10;CP_VALOR;9999999.99;.f.;
 
 1; 2; 3;Cod Fornec.:;N; 5;CP_COD_FOR;99999;;Chk_LastKey(5) .or. psq_brow;sccpfor;psccpfor;N;N; 2;23;cp_nome;@s30;
 1; 3; 3;Div.Desp...:;N; 3;CP_DIVISAO;999;;Chk_LastKey(5).or.psq_brow;cp_divis;pcpdiviS;N;S;3;23;desc;@s18;
 1; 4; 3;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;4;23;SdDesc;@S18;

 1; 6; 2;Conta Tesou:;P; 3;wSxConta;999;;PSQ_BROW;sx_conta;psxconta;N;S;6;25;ct_titulo;@s18;
 1; 7; 2;Gr.Contabil:;P; 1;wSxGrupo;9;;Chk_LastKey(5).or.wSxGrupo=1.or.wSxGrupo=2;;;
            1; 7;25;Informar 1 ou 2;

 1; 9; 2;Val Liquid.:;N;10;CP_VAL_LQD;9999999.99;(m_CP_VAL_LQD:=if(m_CP_VAL_LQD=0,CP_VALOR,m_CP_VAL_LQD),RefreshGetlist());;;;N;; 0; 0;;;
 1;10; 2;Data Liquid:;D; 8;CP_DT_LQD;99.99.9999;(m_CP_DT_LQD:=if(Day(m_CP_DT_LQD)=0,s_datual,m_CP_DT_LQD),RefreshGetlist());;
 1;11; 2;Observacao.:;C;30;CP_DESC;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx;;;

