SE_REM05;Resumo dos Abastecimentos;sys_tbbrow;2;32;23;79;padrao;;
:SKEL
//VARIAVEL w_colsep = " "+chr(179)
//VARIAVEL z_xBlk = "Z_Sele:=Select(),z_FLJDE:=fljde,"
//VARIAVEL z_xBlk = z_xBlk+ 'Abra("0",R_SIGA,"se_rem05","se_rem05"),Brow_Db("se_rem05",.t.)),se_rem05->(DbCloseArea()),DbSelectArea(z_sele)'
//VARIAVEL z_BlkCot = _CreateBlock( z_xBlk )
//VARIAVEL z_xBlk = ""
COMANDO ANTES Z_NIL = DBSETFILTER( {||z_FLJDE=Fljde } ,"z_FLJDE=Fljde")
COMANDO ANTES Z_NIL = DBGOBottom()
COMANDO ANTES Z_NIL = DBSkip(-18)
:TBMT
 13;Eval(z_BlkCot);Enter-Gera_TF ;
 32;DoGet(D_ob);Barra-Produtos ;
  7;tb_del(d_ob);Del-Apaga ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
LjDe;Fljde;N;9999;5;S;
LjPara;Fljpara;N;9999;6;S;
A_Enviar;sslj;N;999999;10;;
A_Receber;selj;N;999999;10;;
