//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 3;19;79;Pagamento no Caixa;;;;;
: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))}
COMANDO ANTES z_nil=if(sele("CP_DIVIS")=0,abra_arq("CP_DIVIS"),"")
COMANDO ANTES z_nil=if(sele("CP_SUBD")=0,abra_arq("CP_SUBD"),"")
COMANDO ANTES z_nil=dbselectarea("SCCPPED")
COMANDO SAIDA cp_subd->(DbCloseArea())
COMANDO SAIDA cp_divis->(DbCloseArea())

COMANDO ANTES M_CP_DT_EMIS=S_DATUAL
COMANDO ANTES M_CP_DT_VENC=S_DATUAL
COMANDO ANTES M_CP_DT_LQD=S_DATUAL
COMANDO ANTES M_CP_LOCAL = 6
COMANDO ANTES M_CP_DATA = S_DATUAL
COMANDO ANTES M_CP_HORA = TIME()
: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;;;;
 1; 2;33;Duplicata.:;C;10;CP_DUPLIC;xxxxxxxxxx;;;;
 1; 3; 3;Cod Fornec:;N; 5;CP_COD_FOR;99999;;Chk_LastKey(5) .or. psq_brow;sccpfor;psccpfor;N;N; 3;35;cp_nome;@s30;
 1; 4; 3;Dt Emissao:;D; 8;CP_DT_EMIS;;.F.;;;

 1; 5; 3;Dt Venc...:;D; 8;CP_DT_VENC;;.F.;M_cp_dt_venc>=M_cp_dt_emis;;;
 1; 6; 3;Valor.....:;N;10;CP_VALOR;9999999.99;;Chk_LastKey(5).or.m_cp_valor>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; 8; 3;Dt Liquid.:;D; 8;CP_DT_LQD;;.F.;;;
 1; 8;33;Portador..:;N; 3;CP_LOCAL;999;;Chk_LastKey(5).or.psq_brow;cp_local;pcplocal;N;N; 6;53;banco;@s18;

 1; 9; 3;Val Liquid:;N;10;CP_VAL_LQD;9999999.99;(M_CP_VAL_LQD:=M_CP_VALOR)>0;;;
 1;11; 3;Comentario:;C;30;CP_DESC;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx;;;;
