VB_FALTA;Produtos Vendidos com Estoque Zerado;sys_tbbrow; 8;2;20;79;x;;
:SKEL
VARIAVEL Z_BLOCK = {|x_prd| se_prod->(dbseek(x_prd)), se_prod->pdesc }
COMANDO ANTES DbGoBottom()
COMANDO ANTES DbSkip(-8)
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","se_prod","seip_c","pcod")
COMANDO DEPOIS Z_NIL = Se_Prod->( DbCloseArea() )
:TBFI
Prod;PCOD;N;99999;5;N;
Apresentacao;eval(z_block,pcod);C;@s30;30;N;
Quant;mquant;N;999999;6;N;
PrVenda;mvalor;N;9999.99;7;N;
Data;MDATA;D;;8;N;
Vd;Mvendedor;C;99;2;N;
Pedido;Fnumped;N;999999;6;N;
Cli;Mcodforc;N;99999;5;N;
T;Mtipoven;C;9;1;N;
