/*--------------------------------------------------------------------------------------
'プロシージャー名：call_db
'            機能：登録（修正/削除）ボタン押下時入力チェック/登録呼出
'            引数：モード [0:キャンセル、1:登録、2：修正、3：削除]
'--------------------------------------------------------------------------------------*/
function call_db(db_flg){
   var l_ret;
   var l_len;

	if (db_flg == 0){
		l_ret = confirm("キャンセルしてもよろしいですか？");
		if (l_ret == false) {
			return;
		}
	}
   if (db_flg == 1 || db_flg == 2){
		if (document.add93_01.GENBANM.value == ""){
			alert("現場名が入力されていません。");
			Rtn=document.add93_01.GENBANM.focus();
			return;
		}
		l_len = data_length_get(Trim(document.add93_01.GENBANM.value));
		if (l_len > 60){
			alert(set_len_err_msg("現場名", "60", l_len));
			Rtn=document.add93_01.GENBANM.focus();
			return;
		}
		if (document.add93_01.GENBAFURI.value == ""){
			alert("現場名（ふりがな）が入力されていません。");
			Rtn=document.add93_01.GENBAFURI.focus();
			return;
		}
		l_len = data_length_get(Trim(document.add93_01.GENBAFURI.value));
		if (l_len > 6){
			alert(set_len_err_msg("現場名（ふりがな）", "6", l_len));
			Rtn=document.add93_01.GENBAFURI.focus();
			return;
		}
		l_len = data_length_get(Trim(document.add93_01.ADDRESS.value));
		if (l_len > 80){
			alert(set_len_err_msg("住所", "80", l_len));
			Rtn=document.add93_01.ADDRESS.focus();
			return;
		}
		l_len = data_length_get(Trim(document.add93_01.MEMO.value));
		if (l_len > 100){
			alert(set_len_err_msg("メモ", "100", l_len));
			Rtn=document.add93_01.MEMO.focus();
			return;
		}

      l_ret = confirm("登録・修正してもよろしいですか？");
      if (l_ret == false) {
         return;
      }
	}
	if (db_flg == 3){
		l_ret = confirm("削除してもよろしいですか？");
		if (l_ret == false) {
			return;
		}
	}

   if (db_flg == 1 || db_flg == 2 || db_flg == 3){
		document.add93_01.action="add93_db.asp?DBFLG="+ db_flg;
	}else{
		document.add93_01.action="li93_01.asp";
	}
   document.add93_01.submit();
}

/*--------------------------------------------------------------------------------------
'プロシージャー名：set_len_err_msg
'            機能：桁数オーバー時のエラーメッセージ作成
'            引数：name     ：項目名
'　　　　　　　　　maxlen   ：最大桁数
'　　　　　　　　　l_len    ：入力桁数
'--------------------------------------------------------------------------------------*/
function set_len_err_msg(name, maxlen, l_len) {
	return name + "には半角("+ l_len +")文字が入力されています。\n"+ name +"の入力は半角("+ maxlen +")文字までです。"
}