VB_FALTA;Produtos Marcados como Faltas;sys_tbbrow; 8;10;20;75;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 = IF(SELE("SE_PROD")>0, Se_Prod->( DbCloseArea() ),"")
:TBMT
 76;limpafaltas();L-Limpa_Faltas ;
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
  7;tb_del(D_ob);DEL-DELeta ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
:TBFI
Prod;PCOD;N;999999;6;N;
Apresentacao;eval(z_block,pcod);C;@s30;30;N;
Estoq;Se_prod->peatual;N;999999;6;N;
PrVenda;Se_prod->pvluvenda;N;9999.99;7;N;
Data;MDATA;D;;8;N;
