库存 采购 总账 会计期 是否打开脚本

  SELECT CLOSING_STATUS
    INTO V_INV_PERIOD_STATUS
    FROM GL_PERIOD_STATUSES_V GP
   WHERE APPLICATION_ID = 101
     AND SET_OF_BOOKS_ID = V_SET_OF_BOOKS_ID
     AND CLOSING_STATUS != 'N'
     AND TRUNC(SYSDATE) BETWEEN START_DATE AND END_DATE;

  IF V_INV_PERIOD_STATUS <> 'O'
  THEN
    MESSAGE_ERROR('总账会计期间未打开');
  END IF;

  SELECT GPS.CLOSING_STATUS
    INTO V_PO_PERIOD_STATUS
    FROM GL_PERIOD_STATUSES GPS
   WHERE ADJUSTMENT_PERIOD_FLAG = 'N'
     AND ((CLOSING_STATUS) IN
         (SELECT LOOKUP_CODE
             FROM AP_LOOKUP_CODES
            WHERE APPLICATION_ID = '201'
              AND SET_OF_BOOKS_ID = V_SET_OF_BOOKS_ID))
     AND TRUNC(SYSDATE) BETWEEN START_DATE AND END_DATE;

  IF V_PO_PERIOD_STATUS <> 'O'
  THEN
    MESSAGE_ERROR('采购会计期间未打开');
  END IF;

  BEGIN
    SELECT 1
      INTO V_GL_PERIOD_STATUS
      FROM ORG_ACCT_PERIODS_V
     WHERE (REC_TYPE = 'ORG_PERIOD' AND ORGANIZATION_ID = :PARAMETER.ORG_ID)
       AND TRUNC(SYSDATE) BETWEEN START_DATE AND END_DATE;
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      MESSAGE_ERROR('库存会计期间未打开');
  END;