Exemplos de possíveis configurações do JOB Pkg_Mrl_VerbaSelloutConsumo.sp_InsereFila:dos JOBs
Totvs custom tabs box
tabs
Configuração 1, Configuração 2
ids
config_consumo_1,config_consumo_2
Totvs custom tabs box items
default
yes
referencia
config_consumo_1
Dica
title
Recomendado
Configuração para clientes com muitas Divisões que possuem muitas empresas, os exemplos abaixo executarão os processos para uma única Divisão ou Empresa,commitando os dados a cada 50 linhas processadas.
Bloco de código
language
sql
begin
Pkg_Mrl_VerbaSelloutConsumo.sp_InsereFila(pnNroDivisao => 1
pnQtdLinhaCommit => 50);
end;
Bloco de código
language
sql
begin
Pkg_Mrl_VerbaSelloutConsumo.sp_ConsumoAssincrono(pnNroDivisao => 1
pnQtdLinhaCommit => 50);
end;
Bloco de código
language
sql
begin
Pkg_Mrl_VerbaSelloutConsumo.sp_AtualizaVenda(pnNroEmpresa => 100
pnQtdLinhaCommit => 50);
end;
Bloco de código
language
sql
begin
Pkg_Mrl_VerbaSelloutConsumo.sp_AtualizaCusto(pnNroEmpresa => 100
pnQtdLinhaCommit => 50);
end;
Totvs custom tabs box items
default
no
referencia
config_consumo_2
Configuração para clientes com muitas Divisões mas que nãopossuem muitas empresas, os exemplos abaixo executarão os processos para uma lista de Divisões ou Empresas,commitando os dados a cada 50 linhas processadas.
Bloco de código
language
sql
begin
for ListaDivisao in (select a.NroDivisao
from max_Divisao a
where a.NroDivisao in (2, 3, 4))
loop
Pkg_Mrl_VerbaSelloutConsumo.sp_InsereFila(pnNroDivisao => ListaDivisao.NroDivisao,
pnQtdLinhaCommit => 50);
end loop;
end;
Bloco de código
language
sql
begin
for ListaDivisao in (select a.NroDivisao
from max_Divisao a
where a.NroDivisao in (2, 3, 4))
loop
Pkg_Mrl_VerbaSelloutConsumo.sp_ConsumoAssincrono(pnNroDivisao => ListaDivisao.NroDivisao,
pnQtdLinhaCommit => 50);
end loop;
end;
Bloco de código
language
sql
begin
for ListaEmpresa in (select a.NroEmpresa
from max_Empresa a
where a.NroEmpresa in (200, 300, 400))
loop
Pkg_Mrl_VerbaSelloutConsumo.sp_AtualizaVenda(pnNroEmpresa => ListaEmpresa.NroEmpresa,
pnQtdLinhaCommit => 50);
end loop;
end;
Bloco de código
language
sql
begin
for ListaEmpresa in (select a.NroEmpresa
from max_Empresa a
where a.NroEmpresa in (200, 300, 400))
loop
Pkg_Mrl_VerbaSelloutConsumo.sp_AtualizaCusto(pnNroEmpresa => ListaEmpresa.NroEmpresa,
pnQtdLinhaCommit => 50);
end loop;
end;