月次締め済チェック

CM010AccDtCheck

HashMap<String,Object> result1 =ShipFixUPDAO.getChkNihudahakkouYmd(user.getCoNo(),dataValue);  
            //共通_基本設計(会計締め日チェック)を使用して、チェックを行う(戻り値はtrue/false)
            if(!CommonService.CM010AccDtCheck(user.getCoNo(),nihudahakkou_ymd,2)){
                //入力された日付けが締処理日以内かどうかチェックし、締め処理後の場合、エラーとする。
                vs_err_msg.append(Properties.getMsg("HA.ERROR.021",
                    new String[] { "荷札発行年月日" }, true));
                f_rlt = false;
            }

/*
    会計締め日チェック
  */
  function CM010AccDtCheck(
    wv_co_no          in number,    -- 会社NO
    wv_chk_date       in varchar2,  -- 設定日(yyyy/mm/dd)
    wv_chk_kbn        in number     -- チェック区分(1：会計締め　2：委託・メー直締め)
  ) return number                   -- 判定結果(0:OK／ 1:NG)
  is
      lv_kyoyouFrom M_EA001_COMP.NEXT_KAIKEI_YM%TYPE :='';
      lv_kyoyouTo varchar2(7):='';
      lv_chkYM varchar2(7):='';
      ln_mirai_month number:=0;
      ln_kyoyouFrom number:=0;
      ln_kyoyouTo number:=0;
      ln_chkYM number:=0;
  begin
      lv_kyoyouFrom := Common.getMEA001NextKaikeiYm(wv_co_no, wv_chk_kbn);
      -- 伝票年月 ← 引数.伝票日付(フォーマット：yyyy/mm/dd)から年月(yyyy/mm)を切り出す
      lv_chkYM := substr(wv_chk_date,1,7);
      -- 未来月期間 ← 管理マスタ.管理番号（管理No＝831）※フォーマット：数値
      ln_mirai_month := Common.getKanriNum(831);
      
      lv_kyoyouTo := to_char(add_months(to_date(lv_kyoyouFrom ||'/01','yyyy/mm/dd'), ln_mirai_month),'yyyy/mm');
      
      ln_chkYM := to_number(replace(lv_chkYM,'/',''));
      ln_kyoyouFrom := to_number(replace(lv_kyoyouFrom,'/',''));
      ln_kyoyouTo := to_number(replace(lv_kyoyouTo,'/',''));
      -- ALT：許容可能対象月(FROM) ＜＝ 伝票年月 ＜＝ 許容可能対象月(TO)の場合
      if (ln_kyoyouFrom <= ln_chkYM and ln_chkYM <= ln_kyoyouTo) then
          return 0;
      end if;
      return 1;
    exception
        when others then
            return 1;
  end CM010AccDtCheck;