ERALDO VITTAR

CREATE OR REPLACE PROCEDURE CODATA."PR_UPDATE_TB_SIS_015_001_R"()
RETURNS VOID
LANGUAGE plpgsql
AS $$
DECLARE
    NumeroProcesso RECORD;

BEGIN

    FOR NumeroProcesso IN (SELECT tb_sis_015.nu_protocolo, tb_sis_015.cd_empresa,
                                  tb_sis_015.cd_filial, tb_sis_015.cd_setor,
                                  tb_sis_015.nu_year, tb_sis_015.id_protocolo

                           FROM tb_sis_015_001, tb_sis_015, tb_sic_006
                           WHERE tb_sis_015.cd_empresa = tb_sis_015_001.cd_empresa AND
                                 tb_sis_015.cd_filial = tb_sis_015_001.cd_filial AND
                                 tb_sis_015.cd_setor = tb_sis_015_001.cd_setor AND
                                 tb_sis_015.nu_year = tb_sis_015_001.nu_year AND
                                 tb_sis_015.id_protocolo = tb_sis_015_001.id_protocolo AND
                                 tb_sis_015.nu_protocolo = tb_sic_006.nu_protocolo AND
                                 tb_sis_015_001.nu_protocolo IS NULL)
    LOOP

        UPDATE tb_sis_015_001 SET tb_sis_015_001.nu_protocolo = NumeroProcesso.nu_protocolo
                                  WHERE NumeroProcesso.cd_empresa = tb_sis_015_001.cd_empresa AND
                                    NumeroProcesso.cd_filial = tb_sis_015_001.cd_filial AND
                                    NumeroProcesso.cd_setor = tb_sis_015_001.cd_setor AND
                                    NumeroProcesso.nu_year = tb_sis_015_001.nu_year AND
                                    NumeroProcesso.id_protocolo = tb_sis_015_001.id_protocolo AND
                                    tb_sis_015_001.nu_protocolo IS NULL;

    END LOOP;

END;

$$