//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 3; 0;23;79;Nota de Credito;;;;;
:SKEL
variavel zbCrTipDup:={|zTd|zTd$"/ES/CH/CT/CB/CA/PG/".or.Alert("A forma de recebimento precisa ser: ES-Especie CH-Cheque CT-Cartao CB-Cred.Bancario CA-Boleto PG-Resgate",,"R/W")=3}
variavel m_cp_dt_venc:=if(Day(m_cp_dt_venc)=0,m_cp_dt_emis,m_cp_dt_venc)
comando depois v_ParcelasEntrada:={{m_cr_tip_dup,m_cp_valor,m_CP_DT_VENC,0,0}}
comando depois Append_SxCaixa_CxaMov('CadastraNC',,,,m_fcli,.t., sys_usuario, lTrim(str(m_fnumped,10)), m_cp_desc, v_ParcelasEntrada)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Cliente:;N; 6;fCli;999999;;Chk_Lastkey(5).or.psq_brow;sccrcli;psccrcli;N;N; 2;20;cr_nome;@s25;

 1; 5; 2;Valor do Credito....:;N;11;CP_VALOR;99999999.99;;;;;N;; 0; 0;;;
 1; 6; 2;Forma de Pagamento..:;C;2;CR_TIP_DUP;!!;;eVal(zbCrTipDup,m_CR_TIP_DUP);;;N;; 0; 0;;;
 1; 7; 2;Data de Emissao.....:;D; 8;CP_DT_EMIS;;;;;;N;; 0; 0;;;
 1; 8; 2;Data de Vencimento..:;D; 8;CP_DT_VENC;;(m_CP_DT_VENC:=if(day(m_CP_DT_VENC)=0,m_CP_DT_EMIS,m_CP_DT_VENC),RefreshGetlist());;;;N;; 0; 0;;;
 
 1; 2;50;Numero da Loja..:;N; 2;FLOJA;99;.f.;;;;N;; 0; 0;;;
 1; 3;50;Ref. Pedido:;N;10;FNUMPED;9999999999;;;;;N;; 0; 0;;;
 
 1;10; 2;Motivo da Nota de Credito:;M;10;CP_DESC;9Memo];;Editor(@m_CP_DESC,"",9,3,20,75);;;N;;0;0;;;
