BEGIN
  I = 0;
  FOR SELECT A.SETOR_CODIGO, A.ORDEM, A.ID
      FROM TBMODELO_SETOR A
      WHERE A.MODELO_CODIGO = :MODELO_1
      ORDER BY 2, 3 DESC
      INTO :SETOR_CODIGO, :ORDEM, :ID

  DO

    IF (:SETOR_CODIGO > 0) THEN
    BEGIN
      I = I + 1;
      UPDATE TBMODELO_SETOR
      SET ORDEM = :I
      WHERE MODELO_CODIGO = :MODELO_1 AND
            SETOR_CODIGO = :SETOR_CODIGO;
    END

  SUSPEND;
END