//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1; 5; 0;20;79;Pagamento por Conta;;;;;
:SKEL
VARIAVEL Z_JUROS = 0
VARIAVEL Z_RESTO = 0
VARIAVEL XVLLIQUIDO = 0
VARIAVEL M_FG_ADIANT = .F.
*-
COMANDO ANTES Z_DIASATR = DATE() - m_CR_DT_VENC
COMANDO ANTES SCCRCLI->( DbGoto( sccrdup->cr_cod_cli) )
COMANDO ANTES ABRA("0",R_SIGA,"VB_CONV","VB_CONV")
COMANDO ANTES VB_CONV->( DbGoto( sccrcli->cr_tip_des ))
COMANDO ANTES Z_TAXA = if(day(sccrdup->cr_dt_lqd)=0.and.Z_DIASATR>VB_CONV->DIAS_TOLER, VB_CONV->CORR_ATRAZ/100, 0)
COMANDO ANTES VB_cONV->( DbCloseArea() )
COMANDO ANTES DBSELECTAREA("SCCRDUP")
*- COMANDO ANTES M_CR_NUM_PED = LEFT(CR_NUM_PED,7)+"CX"
COMANDO ANTES M_CR_DATA = DATE()
COMANDO ANTES M_CR_HORA = time()
COMANDO ANTES Z_JUROS   = if(day(cr_dt_lqd)=0, (m_cr_valor-m_cr_val_lqd)*Z_DIASATR*z_taxa/30, 0)
COMANDO ANTES Z_RESTO   = m_cr_valor+z_juros-m_cr_val_lqd
COMANDO ANTES M_FG_ADIANT = (DAY(CR_DT_LQD)=0)
COMANDO ANTES M_Cr_NUM_DOC = IF(DAY(CR_DT_LQD)=0, M_CR_NUM_DOC+1,M_CR_NUM_DOC)
COMANDO ANTES M_CR_dT_DOC = IF(DAY(CR_dT_LQD)=0, S_dATUAL, M_CR_dT_DOC)
COMANDO DEPOIS RegLock()
COMANDO DEPOIS Put_Var("cr_dt_lqd",m_cr_dt_lqd)
COMANDO DEPOIS Put_Var("cr_val_lqd",cr_Val_lqd+xvlliquido)
COMANDO DEPOIS DBCOMMITALL()
// 1; 7; 2;Comentario............:;C;15;CR_OBS;@S15;M_FG_ADIANT;;;;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;Titulo......:;C; 9;CR_NUM_PED;@S9;.f.;psq_brow;sccrdup;psccrdup;S;S; 0; 0;;;
 1; 2;38;Cliente:;N; 4;CR_COD_CLI;9999;.f.;lastkey()=5.or.psq_brow;sccrcli;psccrcli;N;N; 2;54;cr_nome;@s25;
 1; 4; 2;Data Emissao:;D; 8;CR_DT_EMIS;;.f.;;;;N;; 0; 0;;;
 1; 4;38;Vendedor:;C; 2;CR_ZONA;xx;.f.;lastkey()=5.or.psq_brow;sf_vend;psfvend;N;N; 4;54;nome;@s20;
 1; 5; 2;Data Vencto.:;D; 8;CR_DT_VENC;;.f.;;;;N;; 0; 0;;;
 1; 7; 2;Valor Principal....:;N;10;CR_VALOR;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 8; 2;Valor ja Adiantado.:;N;10;CR_VAL_LQD;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 9; 2;Juros a Cobrar.....:;P;10;z_JUROS;9999999.99;.f.;;;;N;; 0; 0;;;
 1;10; 2;Debito Restante....:;P;10;z_RESTO;9999999.99;.f.;;;;N;; 0; 0;;;
 1; 7;38;Valor a ser Adiantado.:;P;10;xvlliquido;9999999.99;M_FG_ADIANT;;;;N;; 0; 0;;;
 1; 8;38;Numero do Adiantamento:;N; 6;CR_NUM_DOC;999999;.F.;;;;N;; 0; 0;;;
 1; 9;38;Data Do Adiantamento..:;D; 8;CR_DT_DOC;M_FG_ADIANT;;;;;N;; 0; 0;;;
