확정된 발주인데 입고 예정이 없어서 물류센터가 협력사 물건을 돌려보냈다

PROCEDURE P_ORD_CONFIRM IS
  v_cnt  PLS_INTEGER;
  v_fail PLS_INTEGER := 0;
BEGIN
  FOR h IN (SELECT ORD_NO FROM CF12 WHERE ORD_PRGS_CD = '10') LOOP
    -- 아는 실패는 이름으로 먼저 거른다: 매입가가 없는 상품이 있는 발주는 확정하지 않는다
    SELECT COUNT(*) INTO v_cnt
      FROM CF13 d
     WHERE d.ORD_NO = h.ORD_NO
       AND NOT EXISTS (SELECT 1 FROM CF05 p
                        WHERE p.ITM_NO = d.ITM_NO
                          AND p.UPRC_KN_CD = '02'
                          AND p.APL_DT <= TO_CHAR(SYSDATE, 'YYYYMMDD'));
    IF v_cnt > 0 THEN
      PKG_LOG.WRITE('ORD_CONFIRM', h.ORD_NO, 'HOLD 매입가 없는 상품 ' || v_cnt || '종');
      v_fail := v_fail + 1;
      CONTINUE;                                      -- 등록 상태 그대로 → 매입가를 넣으면 다음 배치가 통째로 확정
    END IF;

    SAVEPOINT sp_ord;                                -- 발주 한 건 = 한 단위
    BEGIN
      INSERT INTO CF16_RCV_PLN (ORD_NO, ITM_NO, PLN_QTY, PLN_UPRC, PLN_DT)
      SELECT d.ORD_NO, d.ITM_NO, d.ORD_QTY, FN_BUY_UPRC(d.ITM_NO), TRUNC(SYSDATE) + 2
        FROM CF13 d
       WHERE d.ORD_NO = h.ORD_NO;
      UPDATE CF12 SET ORD_PRGS_CD = '20' WHERE ORD_NO = h.ORD_NO;   -- 입고 예정이 다 들어간 뒤에 확정
    EXCEPTION
      WHEN OTHERS THEN                               -- 모르는 실패: 이 발주의 INSERT와 UPDATE를 함께 되돌린다
        ROLLBACK TO sp_ord;
        PKG_LOG.WRITE('ORD_CONFIRM', h.ORD_NO, 'FAIL ' || SQLERRM);
        v_fail := v_fail + 1;
    END;
  END LOOP;
  COMMIT;                                            -- 확정한 발주는 통째로 남긴다
  IF v_fail > 0 THEN                                 -- 성공으로 끝내지 않는다 → 감시가 알린다
    RAISE_APPLICATION_ERROR(-20045, '확정하지 못한 발주 ' || v_fail || '건 (T_BATCH_LOG 참고)');
  END IF;
END;

-- 이미 반쯤 확정된 발주 찾기 — 확정인데 입고 예정이 빠진 발주상품이 있다
SELECT h.ORD_NO, COUNT(*) AS MISS_CNT
  FROM CF12 h, CF13 d
 WHERE h.ORD_PRGS_CD = '20'
   AND d.ORD_NO = h.ORD_NO
   AND NOT EXISTS (SELECT 1 FROM CF16_RCV_PLN p
                    WHERE p.ORD_NO = d.ORD_NO AND p.ITM_NO = d.ITM_NO)
 GROUP BY h.ORD_NO;

-- 바로잡기 (발주 담당과 확인 뒤) — 그 발주의 입고 예정을 지우고 등록 상태로 되돌린다
DELETE FROM CF16_RCV_PLN WHERE ORD_NO IN (2103, 2107, 2111);
UPDATE CF12 SET ORD_PRGS_CD = '10' WHERE ORD_NO IN (2103, 2107, 2111);
COMMIT;