RMS - CAD - SOLICITAÇÃO DE SCRIPT PARA MUDANÇA DO VABULINH

[Remover as instruções entre colchetes]

Dúvida
SCRIPT PARA MUDANÇA DO VABULINH

Ambiente
TOTVS VAREJO SUPERMERCADOS (LINHA RMS)

Solução
prompt Este processo pode legar alguns minutos...
prompt Executando...
declare
vPAR_LINHAREG varchar2(1) := 'N';
begin

begin
SELECT SUBSTR(PAR_CONTEUDO,1,1) INTO vPAR_LINHAREG
FROM AA2CPARA
WHERE PAR_CODIGO = 01
AND PAR_ACESSO = RPAD('LINHAREG',10);
exception when others then null;
end;
if vPAR_LINHAREG = 'F' then
for reg in (SELECT GIT_COD_ITEM, GIT_LINHA
FROM AA3CITEM
ORDER BY GIT_COD_ITEM) loop
for regL in (SELECT CH_PRI_LOJA
FROM AA2CLINH
WHERE CH_PRI_LINHA = reg.GIT_LINHA
ORDER BY CH_PRI_LOJA) loop

PC_CAD_PRODUTO.PROC_GRAVA_AA1LINHF('N', reg.GIT_COD_ITEM, trunc(regL.CH_PRI_LOJA / 10), 'I','I','E');
end loop;
COMMIT;
PC_CAD_PRODUTO.PROC_GERA_LINHA(reg.GIT_COD_ITEM, 0, 0,'S');
end loop;
end if;
end;
/