BEGIN
FOR C_GRUPROMOCPRFIL IN (
SELECT MAX(NRSEQGRPROMOFIL) NRSEQGRPROMOMAX, CDPRODPROMOCAO, CDGRUPROMOC, CDFILIAL
FROM GRUPROMOCPRFIL
GROUP BY CDFILIAL, CDPRODPROMOCAO, CDGRUPROMOC, CDFILIAL) LOOP


UPDATE NOVOCODIGO
SET NRSEQUENCIAL = LPAD(C_GRUPROMOCPRFIL.NRSEQGRPROMOMAX, 20, '0')
WHERE CDCONTADOR = 'GRUPROMOCPRFIL'||C_GRUPROMOCPRFIL.CDFILIAL||C_GRUPROMOCPRFIL.CDPRODPROMOCAO||C_GRUPROMOCPRFIL.CDGRUPROMOC;

END LOOP; 
COMMIT;
END;
/

BEGIN
FOR C_GRUPROMOC IN (
SELECT MAX(NRSEQGRPROMO) NRSEQGRPROMOMAX, CDPRODPROMOCAO, CDGRUPROMOC
FROM GRUPROMOCPROD
GROUP BY CDPRODPROMOCAO, CDGRUPROMOC) LOOP


UPDATE NOVOCODIGO
SET NRSEQUENCIAL = LPAD(C_GRUPROMOC.NRSEQGRPROMOMAX, 20, '0')
WHERE CDCONTADOR = 'GRUPROMOCPROD'||C_GRUPROMOC.CDPRODPROMOCAO||C_GRUPROMOC.CDGRUPROMOC;

END LOOP;
COMMIT;
END;
/