//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 4; 2;21;74;Lancamento de Receita Recorrente;;;;;
:SKEL
COMANDO ANTES m_cr_cobrador = val(cr_zona)
comando antes m_cr_obs = if(empty(m_cr_obs),PAD("LICENCA SYSPAF",LEN(M_CR_OBS)),M_CR_OBS)
COMANDO DEPOIS z_nil = RegLock()
COMANDO DEPOIS z_nil = PUT_VAR("cr_zona",StrZero(m_cr_cobrador,2))
// 1; 7; 2;Prazo p/ Recebimento:;N; 2;CP_PZ_VENC;99;;;;;N;; 0; 0;;;
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Codigo do Cliente...:;N; 6;Cr_COD_cli;999999;;PSQ_BROW;SCCRCLI;PSCCRCLI;N;N; 2;35;CR_NOME;@S30;
 1; 3; 2;Descricao...........:;C;35;Cr_obs;@S35;;;;;N;; 0; 0;;;
 1; 4; 2;Valor Previsto......:;N;14;Cr_VALOR;999999999.99;;;;;N;; 0; 0;;;
 1; 5; 2;Dia de Emissao......:;N; 2;CP_DIAEMIS;99;;;;;N;; 0; 0;;;
 1; 6; 2;Dia de Vencimento...:;N; 2;CP_DIAVENC;99;;;;;N;; 0; 0;;;
 1; 7; 2;NotaFiscal Referente:;N;10;fnum;999999999;;m_fnum=0.or.psq_brow;sf_fatnf;psffatnf;N;S;;
 1; 8; 2;Codigo do Servico...:;N; 6;Pcod;999999;;m_pcod=0.or.psq_brow;se_prod;PSEPROD;N;S; 8;35;PDESC;@S35;
 1; 9; 2;Acumula os Titulos.........?;C; 1;fgacumula;!;;
 1;10; 2;Receita Fixa/Variavel (F/V):;C; 1;FgFixoVar;!;;
 1;11; 2;Grupo de Clientes (1/2/3..):;C; 1;GrupoCli;!;;
 1;12; 2;Parceiro/Vendedor...:;P; 3;m_cr_cobrador;999;;psq_brow;sf_vend;psfvend;N;N;12;35;nome;@s12;
 1;13; 2;Custo1..............:;N;10;fcomissao;9999999.99;;
 1;14; 2;Preposto do Parceiro:;N; 3;preposto;999;;psq_brow;sf_vend;psfvend;N;N;14;35;nome;@s12;
 1;15; 2;Custo2..............:;N;10;fcomissao2;9999999.99;;
