//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 6; 3;19;79;Registro de Pagamento;;;;;
:SKEL
COMANDO ANTES M_CP_DT_EMIS=S_DATUAL
COMANDO ANTES M_CP_DT_VENC=S_DATUAL
COMANDO ANTES M_CP_DT_LQD=S_DATUAL
: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;;;;;N;; 0; 0;;;
 1; 2;35;Duplicata.:;C;10;CP_DUPLIC;xxxxxxxxxx;;;;;N;; 0; 0;;;
 1; 3; 3;Cod Fornec:;N; 5;CP_COD_FOR;99999;;lastkey()=5 .or. psq_brow;sccpfor;psccpfor;N;N; 3;35;cp_nome;@s30;
 1; 4; 3;Dt Emissao:;D; 8;CP_DT_EMIS;;;;;;N;; 0; 0;;;
 1; 5; 3;Dt Venc...:;D; 8;CP_DT_VENC;;;M_cp_dt_venc>=M_cp_dt_emis;;;N;; 0; 0;;;
 1; 5;35;Class Desp:;N; 2;CP_DIVISAO;99;;lastkey()=5.or.psq_brow;cp_divis;pcpdivis;N;S; 5;53;desc;@s18;
 1; 6; 3;Valor.....:;N;10;CP_VALOR;9999999.99;;lastkey()=5.or.m_cp_valor>0;;;N;; 0; 0;;;
 1; 8; 3;Dt Liquid.:;D; 8;CP_DT_LQD;;day((M_CP_DT_LQD:=M_CP_DT_VENC))>0;;;;N;; 0; 0;;;
 1; 9; 3;Val Liquid:;N;10;CP_VAL_LQD;9999999.99;(M_CP_VAL_LQD:=M_CP_VALOR)>0;;;;N;; 0; 0;;;
 1;11; 3;Comentario:;C;30;CP_DESC;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx;;;;;N;; 0; 0;;;
