SCCRDUP;Compras do Cliente;skip_blk(x); 3;5;16;78;psccrdup;;
:SKEL
VARIAVEL Z_CR_COD_CLI = Sccrcli->Cr_Cod_Cli
VARIAVEL w_mensagem = "Sem mais Compras do Cliente"
VARIAVEL w_chave = strzero( z_cr_cod_cli , 6)
VARIAVEL w_block = {|| w_chave <> strzero(cr_cod_cli,6) }
COMANDO ANTES Z_NIL = SccrDup->(DbCloseArea())
COMANDO ANTES Z_NIL=ABRA("0", r_siga, "SCCRDUP", "SCCRDUP", "SCCRDUP", "STRZERO(CR_COD_CLI,6) + DTOS(CR_DT_EMIS)")
COMANDO ANTES Z_NIL = dbSetFilter( {||Left(Cr_Num_Ped,1)="F"}, 'Left(Cr_Num_Ped,1)="F"' )
COMANDO ANTES Z_NIL = dbGOTOP()
COMANDO DEPOIS Z_NIL = SccrDup->(DbCloseArea())
:TBMT
 81;sccrdup(d_oB,2);Q-Quita ;
 13;DoGet(D_oB);Enter-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 22;tb_insert(D_OB);Ins-Inclui ;
:TBFI
Cupom;cr_num_ped;C;999999xx;  8;N;
Vd;cr_zona;C;99;  2;N;
Emissao;cr_dt_emis;D;;  8;N;
Valor;cr_Valor;N;@E 999,999.99; 10;N;
Vencto;cr_dt_venc;D;;  8;N;
Val Lqd/Ad;cr_Val_lqd;N;@E 999,999.99; 10;S;
Dt Lqd;cr_dt_lqd;D;;  8;S;
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;
