//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5; 2;19;73;Ficha de Credito do Cliente;;;;recno_cli("DEPOIS");
:SKEL
COMANDO ANTES m_cr_cobrador = val(cr_zona)
COMANDO ANTES zcr_cod_cli = RECNO()
COMANDO ANTES zfglimite = .F.
COMANDO ANTES m_cr_tip_des = if(m_cr_tip_des=0,2,m_cr_tip_des)

COMANDO DEPOIS m_cr_zona = strzero(m_cr_cobrador,2)
COMANDO DEPOIS z_nil = RegLock()
COMANDO DEPOIS z_nil = PUT_VAR("cr_zona",m_cr_zona)

COMANDO DEPOIS zFGalter = ZCRZONA<>strzero(m_cr_cobrador,2).or.ZCRTIPCLI<>CR_TIP_CLI.or.ZCRTIPDES<>CR_TIP_DES.or.ZCRLIMITE<>CR_LIMITE.or.ZCRSITUACA<>CR_SITUACA.or.ZCRLIMPRA<>CR_LIMPRA
COMANDO DEPOIS z_nil = if(!zfgalter,"", ABRA_ARQ("SCCRCRDH") )
COMANDO DEPOIS z_nil = if(!zfgalter,"", APPENDBLANK() )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_cod_cli",zcr_cod_cli) )
COMANDO DEPOIS if(!zfgalter,"", put_var("usuario",sys_usuario) )
COMANDO DEPOIS if(!zfgalter,"", put_var("data",date()) )
COMANDO DEPOIS if(!zfgalter,"", put_var("hora",time()) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr0zona",   zcrzona) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr0tip_cli",zcrtipcli) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr0tip_des",zcrtipdes) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr0limite", zcrlimite) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr0situaca",zcrsituaca) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr0limpra", zcrlimpra) )

COMANDO DEPOIS if(!zfgalter,"", put_var("cr_zona",strzero(m_cr_cobrador,2)) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_tip_cli",m_cr_tip_cli) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_tip_des",m_cr_tip_des) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_limite",m_cr_limite) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_situaca",m_cr_situaca) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_limpra",m_cr_limpra) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_zona",strzero(m_cr_cobrador,2)) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_tip_cli",m_cr_tip_cli) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_tip_des",m_cr_tip_des) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_limite",m_cr_limite) )
COMANDO DEPOIS if(!zfgalter,"", put_var("cr_situaca",m_cr_situaca) )
COMANDO DEPOIS if(!zfgalter,"", sccrcrdh->(dbclosearea()) )
COMANDO DEPOIS z_nil = if(!zfgalter,"", DbSelectArea("SCCRCLI") )

VARIAVEL ZCRZONA     = CR_ZONA
VARIAVEL ZCRTIPCLI   = CR_TIP_CLI
VARIAVEL ZCRTIPDES   = CR_TIP_DES
VARIAVEL ZCRLIMITE   = CR_LIMITE
VARIAVEL ZCRSITUACA  = CR_SITUACA
VARIAVEL ZCRLIMPRA   = CR_LIMPRA
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 2;Codigo.:;N; 5;Cr_cod_cli;99999;recno_cli("ANTES").and..f.;;;;N;; 0; 0;;;
 1; 2;20;Nome.:;C;30;Cr_nome;@s30; .f. ;;;;N;; 0; 0;;;

 1; 4; 2;CGC/CPF....:;C;18;Cr_cgc;@s18;;;;;N;; 0; 0;;;
 1; 5; 2;Contato....:;C;15;Cr_contato;@s15;;;;;N;; 0; 0;;;
 1; 4;38;InscEst:;C;20;Cr_insc_es;@s20;;;;;N;; 0; 0;;;
 1; 5;38;Fone...:;C;15;Cr_fone;@s15;;;;;N;; 0; 0;;;
 
 1; 8; 2;Responsavel:;P; 3;m_cr_cobrador;999;;psq_brow;vb_cobra;pvbcobra;N;N;8;21;nome;@s35;
 1; 9; 2;Tp Cliente.:;C; 1;Cr_tip_cli;9;;;;;N;; 0; 0;;;
 1; 9;38;Opcao de Venda.:;N; 2;Cr_tip_des;99;;psq_brow;vb_conv;vb_conv;N;N; 0; 0;;;
 1;10; 2;Lim Credito:;N;10;Cr_limite;99999.99;;;;;N;; 0; 0;;;
 1;10;38;Sit.Credito:;C; 1;Cr_situaca;!;;;;;N;; 0; 0;;;
 1;12; 2;Dias de Atraso Tolerados:;N;2;cr_limpra;999;;;
 
