SE_REM04;Resumo dos Abastecimentos;sys_tbbrow;2;2;23;30;padrao;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL z_xBlk = 'Z_Sele:=Select(),z_FLJDE:=fljde,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 = "Relat('lst_exec("+ '"REMAN03"' +")','NoBox')"
VARIAVEL z_xBlk = 'zFljDe:=fljde,zRecNo:=Recno(),DbCloseAll(),'+z_xBlk+',DbCloseAll(),Abra_Arq("SE_REM04"),DbGoto(zRecNo)'
VARIAVEL z_BlkLst = _CreateBlock( z_xBlk )
VARIAVEL z_xBlk = ""
:TBMT
 13;Eval(z_BlkCot);Enter-Detalha ;
 32;Eval(z_BlkLst);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;4;S;
A_Retirar;sslj;N;999999;9;;
A_Receber;selj;N;999999;9;;
