begin
for ListaEmpresa in (select a.NroEmpresa
from Max_Empresa a
where a.NroEmpresa in (2, 3, 4))
loop
pkg_Mac_HistMovtoEstoque.sp_ConsolidaProduto13Meses(pnSeqProduto => null,
pnNroEmpresa => ListaEmpresa.NroEmpresa,
pnTipoProduto => 2);
end loop;
end; |