//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 7; 9;18;70;Lancamento de Custo Fixo;;;;;
:SKEL
VARIAVEL zbSubD := {||cSubD:=StrZero(m_CP_DIVISAO,3),m_CP_SUBDIV:=cSubD+SubStr(m_CP_SUBDIV,4),m_cp_desc:=pad('Pgto '+alltrim(cp_divis->desc),len(m_cp_desc)),RefreshGetList(),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; 2;Fornecedor........:;N; 4;CP_COD_FOR;9999;;PSQ_BROW;SCCPFOR;PSCCPFOR;N;N; 2;30;CP_NOME;@S30;
 1; 3; 2;Div.Despesa/CCusto:;N; 3;CP_DIVISAO;999;;Chk_LastKey(5).or.psq_brow;cp_divis;pcpdiviS;N;S;3;30;desc;@s18;
 1; 4; 2;Subdiv.Despesa....:;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;30;SdDesc;@S18;
 1; 5; 2;Descricao.........:;C;50;CP_DESC;@S50;;;;;N;; 0; 0;;;
 1; 6; 2;Valor Previsto....:;N;14;CP_VALOR;999999999.99;;m_CP_VALOR>0;;
 1; 7; 2;Dia de Emissao....:;N; 2;CP_DIAEMIS;99;;;;;N;; 0; 0;;;
 1; 8; 2;Dia de Vencimento.:;N; 2;CP_DIAVENC;99;;;;;N;; 0; 0;;;
 1; 9; 2;Prazo de Pagamento:;N; 2;CP_PZ_VENC;99;;;;;N;; 0; 0;;;
