SCCRDPC1;Compras do Cliente;sys_tbbrow; 5;0;16;79;psccrdup;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL zReg:=0
VARIAVEL zFgCalJurEmi = (xGetEnv('CALCULA_JUROS_PARTINDO_DA_EMISSAO')=='S')
VARIAVEL zBlkDiasAt := {||if(zFgCalJurEmi, if(s_datual>cr_dt_emis,s_datual-cr_dt_emis,0), if(s_datual>cr_dt_venc,s_datual-cr_dt_venc,0) )}
VARIAVEL zbRecalc= {||zReg:=Recno(),m_fValQuitado:=0,DBGOTOP(),DBEVAL({||m_fValQuitado+=cr_aRec}),DBGOTO(zReg),m_fValEs:=if(wOpcao="QC_SELECAO",m_fValQuitado,m_fValEs)}
:TBMT
 13;(tb_update(D_oB,"SCCRDPC1"),eVal(zbRecalc),RefreshGetlist());Enter-Seleciona ; 
 22;(AgrupaDeb(D_oB),eVal(zbRecalc),RefreshGetlist());Ins-Quitacao_Multipla ;
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
:TBFI
*;if(Cr_aRec>0,"*"," ");C;XXX;1;N;
SendoPg;cr_aRec;N;@E 999999.99; 9;S;
DtVencto;cr_dt_venc;D;;  8;N;
Principal;cr_Valor;N;@E 999999.99; 9;N;
Adiantado;cr_Val_Lqd;N;@E 99999.99; 8;N;
Juros;cr_Juros;N;@E 99999.99; 8;N;
Saldo;cr_Saldo;N;@E 9999999.99; 10;N;
Situacao;if(Day(cr_dt_lqd)>0,"SeraQuitado",if(cr_val_lqd+cr_aRec>0,"RecParcial",""));C;@S11; 11;S;
DiasEmi;(s_datual-cr_dt_emis);N;9999999; 7;N;
DiasVen;(s_datual-cr_dt_venc);N;9999999; 7;N;
DiasAtr;Eval(zBlkDiasAt);N;9999999; 7;N;
Cupom;cr_num_ped;C;@S10;10;N;
Emissao;cr_dt_emis;D;;  8;N;
Vd;cr_zona;C;99;  2;N;
Hora;cr_hora;C;99:99;5;N;
Obs;cr_obs;C;@s25;25;S;
DtAlter;cr_data;D;;8;N;
HrAlter;cr_hora;C;xxxxx;5;N;
Usuario;cr_usuario;C;@s8;8;N;