SE_PROM;Selecione os itens a ser promovidos;sys_tbbrow; 7; 2;18;79;se_prom;;
:SKEL
// variavel w_tabpromocao:=0
// variavel m_pdesconto:=0
:TBMT
32;AnexaProm("marca_all");Barra-MarcaTodos ;
13;AnexaProm("seleciona");Enter-MarcaDesmarca ;
47;AnexaProm("del_all");/-DesmarcaTodos ;
7;tb_del(d_ob);Del-Deleta ;
79;tb_index(d_ob);O-Ordena ;
80;tb_pesq(d_ob);P-Pesquisa ;
73;lst_alias(d_ob);I-Imprime ;
:TBFI
*;fg_Sit;C;x;1;S;
Prod;PCOD;N;9999;4;N;
Descricao;Eval(zbProd,pcod);P;@s35;30;N;
PrProm;pvluven2;N;9999.99;7;S;
%Desc;se_prod->( if( (pCod=se_prom->pCod.or.DbSeek(se_prom->pCod)).and.pVluVenda>0, 100*(pVluVenda-se_prom->pVluVen2)/pVluVenda, "?" ));P;9999.99;7;N;
Plano;Eval(zbPlano,Cr_Tabela);P;XXXXX;5;N;
NomeCli;Eval(zbCli,Cr_Cod_Cli);P;@s23;23;N;
Fabricante;Eval(zbFabric,Se_Prod->pprincforn);C;@s10;10;N;
PrNormal;se_prod->(pCod=se_prom->pCod.or.DbSeek(se_prom->pCod),pvluvenda);P;9999.99;7;N;
Val_Dsc;se_prod->( if( (pCod=se_prom->pCod.or.DbSeek(se_prom->pCod)).and.pVluVenda>0, pVluVenda-se_prom->pVluVen2, "?" ));P;9999.99;7;N;