VB_OPCDC;("Cliente "+Alltrim(sccrcli->cr_nome));skip_blk(x);5;20;20;70;vb_opcdc;;
:SKEL
VARIAVEL w_mensagem = "Sem mais Descontos"
VARIAVEL w_chave = sccrcli->(Recno())
VARIAVEL w_block = {|| w_chave <> cr_cod_cli }
// VARIAVEL Z_blkprd = { |x_pcod| Se_Gpre->( DbSeek(x_pcod) ), se_Gpre->Descricao+if(Se_Gpre->Markup>0," %Dsc_Compra:"+Str(if(se_gpre->Markup>0,100*(1-100/Se_Gpre->Markup),0),6,2)+"%","")}
VARIAVEL Z_NIL = VB_OPCDC->( ABRA("0NOIDX",r_siga,"se_gpre","Se_Gpre","Se_Gpre","Grupo") )
VARIAVEL Z_blkprd = { |x_pcod| Se_Gpre->( DbSeek(x_pcod) ), se_Gpre->Descricao}
COMANDO DEPOIS Z_NIL = Se_Gpre->(DbCloseArea())
:TBMT
 13;doget(D_ob);Enter-Altera Dados;
 22;tb_insert(d_ob);Ins-Inclui ;
  7;tb_del(d_ob);Del-Deleta ; 
:TBFI
Gr;GRUPO;C;x;  1;N;
Descricao;Eval(z_blkprd,Grupo);C;@s20;25;N;
%DSC_Venda;desconto;N;999.99;  10;S;
