SCCRDUP;Compras do Cliente;sys_tbbrow; 3;1;16;79;psccrdup;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zbExpande = {||DbClearFilter(),DbGoTop(),d_ob:Refresh(),d_ob:SetFocus()}
VARIAVEL #TEXTO_FONTE
   __SetCentury("on")
   (DbSetFilter({||!left(cr_num_ped,2)$'/CX/CZ/'.OR.DAY(CR_DT_LQD)=0},"!left(cr_num_ped,2)$'/CX/CZ/'") , DbGoTop())
   if eof()
      Alert("O cliente nao possui titulos em aberto...")
      (DbClearFilter(),DbGoTop())
   endif
#FIM_TEXTO_FONTE
:TBMT
 47;Eval(zbExpande);/-Todas_os_titulos ;
//  81;sccrdup(d_oB,2);Q-Quita ;
//  13;DoGet(D_oB);Enter-Edita ;
//  22;tb_insert(D_OB);Ins-Inclui ;
:TBFI
Cupom;cr_num_ped;C;@S10;10;N;
Vd;cr_zona;C;99;  2;N;
Emissao;cr_dt_emis;D;; 10;N;
Valor;cr_Valor;N;@E 999,999.99; 10;N;
Vencto;cr_dt_venc;D;; 10;N;
Val Lqd/Ad;cr_Val_lqd;N;@E 999,999.99; 10;S;
Dt Lqd;cr_dt_lqd;D;; 10;S;
Hora;cr_hora;C;99:99;5;N;
Obs;cr_obs;C;@s25;25;S;
DtAlter;cr_data;D;;10;N;
HrAlter;cr_hora;C;xxxxx;5;N;
Usuario;cr_usuario;C;@s8;8;N;