create or replace PROCEDURE        ALTERA_STATUS_TABELAS (
    PA_GR_USUARIO   IN  VARCHAR2,           -- A27 (opcional, para trilha/auditoria)
    pa_co_programa  IN  VARCHAR2 DEFAULT 'B40015F9',
    pa_do_commit    IN  VARCHAR2 DEFAULT 'Y',  -- 'Y' = COMMIT ao final, 'N' = não comitar
    pa_mens_erro    OUT VARCHAR2
) AS
    -- Datas referência (formato texto YYYYMMDD / HH24MISS como nos arquivos Natural)
    v_hoje_char            VARCHAR2(8)  := TO_CHAR(SYSDATE, 'YYYYMMDD');
    v_hora_char            VARCHAR2(6)  := TO_CHAR(SYSDATE, 'HH24MISS');

    -- Faixas de datas (texto) conforme a lógica Natural
    v_off_ini              VARCHAR2(8); -- hoje - 30
    v_off_fim              VARCHAR2(8); -- hoje - 1
    v_cmd_ini              VARCHAR2(8); -- hoje - 60
    -- v_cmd_fim           VARCHAR2(8); -- Natural atual deixou sem limite superior (bloco comentado)
    v_pro_ini              VARCHAR2(8); -- hoje - 7
    v_pro_fim              VARCHAR2(8); -- hoje - 1

    -- Contadores (opcional, para diagnóstico)
    v_rows_offline   PLS_INTEGER := 0;
    v_rows_comando   PLS_INTEGER := 0;
    v_rows_proc_c    PLS_INTEGER := 0; -- processos virados para 'C'
    v_rows_proc_i    PLS_INTEGER := 0; -- processos virados para 'I'

    -- Utilitário para converter data DATE -> CHAR(8) YYYYMMDD
    FUNCTION d2c(p_date DATE) RETURN VARCHAR2 IS
    BEGIN
        RETURN TO_CHAR(p_date, 'YYYYMMDD');
    END;
BEGIN
    pa_mens_erro := NULL;

    -------------------------------------------------------------------------
    -- 1) CHAVE OFFLINE: de D-30 até D-1 e status = 'T'  ? limpar status
    -------------------------------------------------------------------------
    v_off_ini := d2c(TRUNC(SYSDATE) - 30);
    v_off_fim := d2c(TRUNC(SYSDATE) - 1);

    UPDATE SITAFE.SITAFE_CHAVE_OFFLINE
       SET IT_IN_STATUS  = ' ',
           IT_CO_PROGRAMA = pa_co_programa
     WHERE IT_IN_STATUS = 'T'
       AND IT_DA_TRANSACAO BETWEEN v_off_ini AND v_off_fim;

    v_rows_offline := SQL%ROWCOUNT;

    -------------------------------------------------------------------------
    -- 2) COMANDO BKG: desde D-60 (sem limite superior, como no Natural atual)
    --    Filtros: programa origem B40015M7, comando_status <> '0', status <> 'C',
    --    módulo processamento = 'B'  ? setar IT_IN_COMANDO_STATUS = '1'
    -------------------------------------------------------------------------
    v_cmd_ini := d2c(TRUNC(SYSDATE) - 60);

    UPDATE SITAFE.SITAFE_COMANDO
       SET IT_IN_COMANDO_STATUS = '1',
           IT_CO_PROGRAMA       = pa_co_programa
     WHERE IT_CO_PROGRAMA          = 'B40015M7'
       AND IT_DA_TRANSACAO        >= v_cmd_ini
       AND NVL(IT_IN_COMANDO_STATUS, ' ') <> '0'
       AND NVL(IT_IN_STATUS, ' ')         <> 'C'
       AND IT_IN_MODULO_PROCESSAMENTO     = 'B';

    v_rows_comando := SQL%ROWCOUNT;

    -------------------------------------------------------------------------
    -- 3) PROCESSO ADM (CO_SERVICO = '072') pendente:
    --    Abertura entre D-7 e D-1; IT_IN_STATUS = 'P'
    --    - Se NÃO existe em SITAFE_NF_FISCAL_AUX: status 'C'
    --    - Se existe com IT_IN_SITUACAO = '1': status 'I'
    --    Atualiza também CO_PROGRAMA, DA_TRANSACAO, HO_TRANSACAO
    -------------------------------------------------------------------------
    v_pro_ini := d2c(TRUNC(SYSDATE) - 7);
    v_pro_fim := d2c(TRUNC(SYSDATE) - 1);

    /* Estratégia com duas atualizações específicas (sem cursor),
       usando EXISTS/NOT EXISTS como no Natural */

    -- 3.a) SEM notas vinculadas ? 'C'
    UPDATE SITAFE.SITAFE_PROCESSO_ADMINISTRATIVO pa
       SET pa.IT_IN_STATUS    = 'C',
           pa.IT_CO_PROGRAMA  = pa_co_programa,
           pa.IT_DA_TRANSACAO = v_hoje_char,
           pa.IT_HO_TRANSACAO = v_hora_char
     WHERE pa.IT_CO_SERVICO   = '072'
       AND pa.IT_IN_STATUS    = 'P'
       AND pa.IT_DA_ABERTURA BETWEEN v_pro_ini AND v_pro_fim
       AND NOT EXISTS (
             SELECT 1
               FROM SITAFE_NF_FISCAL_AUX fa
              WHERE fa.IT_NU_PROCESSO = pa.IT_NU_PROCESSO
           );

    v_rows_proc_c := SQL%ROWCOUNT;

    -- 3.b) COM notas e situacao = '1' ? 'I'
    UPDATE SITAFE.SITAFE_PROCESSO_ADMINISTRATIVO pa
       SET pa.IT_IN_STATUS    = 'I',
           pa.IT_CO_PROGRAMA  = pa_co_programa,
           pa.IT_DA_TRANSACAO = v_hoje_char,
           pa.IT_HO_TRANSACAO = v_hora_char
     WHERE pa.IT_CO_SERVICO   = '072'
       AND pa.IT_IN_STATUS    = 'P'
       AND pa.IT_DA_ABERTURA BETWEEN v_pro_ini AND v_pro_fim
       AND EXISTS (
             SELECT 1
               FROM SITAFE_NF_FISCAL_AUX fa
              WHERE fa.IT_NU_PROCESSO = pa.IT_NU_PROCESSO
                AND fa.IT_IN_SITUACAO = '1'
           );

    v_rows_proc_i := SQL%ROWCOUNT;

    -------------------------------------------------------------------------
    -- Commit / Retorno
    -------------------------------------------------------------------------
    IF pa_do_commit = 'Y' THEN
        COMMIT;
    END IF;

    pa_mens_erro := 'OK';

    -- (Opcional) Se quiser logar quantidades afetadas, crie um log aqui
    -- INSERT INTO SUA_TABELA_LOG(...) VALUES (SYSDATE, v_rows_offline, v_rows_comando, v_rows_proc_c, v_rows_proc_i, p_gr_usuario, p_co_programa, ...);

EXCEPTION
    WHEN OTHERS THEN
        pa_mens_erro := 'ERRO: ' || SQLERRM;
        -- Se preferir reverter sempre:
        ROLLBACK;
        RAISE;
END ALTERA_STATUS_TABELAS;