SE_PROD;Produtos Subsidiados;sys_tbbrow; 6; 0;15;79;se_prod;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL znil = ( dbSetFilter({||psubsidio>0},"psubsidio>0"), DbGoTop() )
:TBMT
 13;se_doget(D_ob);Enter-Edita ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 93;disp_sdse(pcod);]-Demanda ;
 69;ext_screen(pcod,pdatabal);E-Extrato ;
 32;Eval({||dbClearFilter(),DbGoTop()});Barra-Todos ;
:TBFI
Cod;PCOD;N;99999;5;N;
Cod_Barras;Pdic6;N;9999999999999;13;N;
Descricao;PDESC;C;@S25;25;N;
Fabr;PPRINCFORN;N;9999;  4;N;
PrVenda;pvluvenda;N;9999.99;7;N;
Subsidio;psubsidio;N;99999.99;8;S;
Dif_Cli;pvluvenda-psubsidio;N;99999.99;8;N;
PedeReceita;Preceita;C;x;11;S;
Aplicacoes;PqtdAplic;N;9999;10;S;
Gp;pgpreco;C;!!;2;S;
Margem;(pvluvenda-pvluven3)/pvluvenda*100;C;999.99%;7;N;
Markup;(MarkupPrd(PgPreco)-1)*100;N;999.99%;7;N;
%DMax;pdesconto;N;99.99%;6;S;
%DVis;pdescbon;N;99.99%;6;S;
DescBloqueado;pbloqvenda;C;!;12;S;
PrPromo;Pvluven2;N;9999.99;7;S;
DtPromo;Pdataprog;D;;8;S;
Prc Fab;PVLUVEN3;N;9999.99;7;N;
Lista;PnegPos;C;!;5;S;
PrecoLb;pPrecoLib;C;!;7;S;
%ComVis;pcomisvis;N;99.99%;6;S;
