/*--------------------------------------------------------------------------------------
'プロシージャー名：call_db
'            機能：登録（修正/削除）ボタン押下時入力チェック/登録呼出
'            引数：モード [0:キャンセル、1:登録、2：修正、3：削除]
'--------------------------------------------------------------------------------------*/
function call_db(db_flg){
	var l_ret;		// confirmの戻り値
	var l_len;		// 文字列の長さ
	var l_form;		// フォーム
	var l_obj;		// 各input要素

	l_form = document.forms["add94_01"];
	if (db_flg == 0){
		l_ret = confirm("キャンセルしてもよろしいですか？");
		if (l_ret == false) {
			return;
		}
	}
	if (db_flg == 1 || db_flg == 2){

		l_obj = l_form.GROUPID;
		if (l_obj.value == ""){
			alert("分類が選択されていません。");
			Rtn=l_obj.focus();
			return;
		}
		l_len = data_length_get(Trim(l_obj.value));
		if (l_len > 2){
			alert(set_len_err_msg("分類", "2", l_len));
			Rtn=l_obj.focus();
			return;
		}
		if (l_obj.value.match(/[^0-9]/g)){
			alert("分類は、数値のみを入力してください。");
			Rtn=l_obj.focus();
			return;
		}
		if (parseInt(l_obj.value) < 0 || parseInt(l_obj.value) > 99){
			alert("分類の範囲は「00」〜「99」です。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = l_form.GROUPCD;
		if (l_obj.value == ""){
			alert("グループコードが入力されていません。");
			Rtn=l_obj.focus();
			return;
		}
		l_len = data_length_get(Trim(l_obj.value));
		if (l_len > 2){
			alert(set_len_err_msg("グループコード", "2", l_len));
			Rtn=l_obj.focus();
			return;
		}
		if (l_obj.value.match(/[^0-9]/g)){
			alert("グループコードは、数値のみを入力してください。");
			Rtn=l_obj.focus();
			return;
		}
		if (parseInt(l_obj.value) < 0 || parseInt(l_obj.value) > 99){
			alert("グループコードの範囲は「00」〜「99」です。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = l_form.GROUPNM;
		if (l_obj.value == ""){
			alert("グループ名が入力されていません。");
			Rtn=l_obj.focus();
			return;
		}
		l_len = data_length_get(Trim(l_obj.value));
		if (l_len > 20){
			alert(set_len_err_msg("グループ名", "20", l_len));
			Rtn=l_obj.focus();
			return;
		}

		l_ret = confirm("登録・修正してもよろしいですか？");
		if (l_ret == false) {
			return;
		}
	}
	if (db_flg == 3){
/*
		if (parseInt(l_form.USEFLG.value) != 0) {
			alert("このグループは、ユーザ、設備登録されています。\n削除することはできません。");
			return;
		}
*/
		l_ret = confirm("削除してもよろしいですか？");
		if (l_ret == false) {
			return;
		}
	}

	if (db_flg == 1 || db_flg == 2 || db_flg == 3){
		l_form.action = "add94_db.asp?DBFLG="+ db_flg;
	}else{
		l_form.action = "li94_01.asp";
	}
	l_form.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 +")文字までです。"
}

/*--------------------------------------------------------------------------------------
'	プロシージャー名：	add_zero
'				機能：	入力値が数値の場合は、指定した桁数まで頭0埋めを行う
'				引数：
'						l_obj	：フォームの部品
'						l_len	：桁数
'--------------------------------------------------------------------------------------*/
function add_zero(l_obj, l_len) {
	if (l_obj.value.match(/^[0-9]+$/g)){
		l_obj.value = lpad(l_obj.value, l_len, '0');
	}
}

/*--------------------------------------------------------------------------------------
'	プロシージャー名：	lpad
'				機能：	文字列を指定した長さになるまで、別の文字列で埋め込み
'				引数：
'						str		：文字列
'						l_len	：文字列長
'						str2	：埋め込み文字列
'--------------------------------------------------------------------------------------*/
function lpad(str, l_len, str2) {
	var ans = str;
	while (ans.length < l_len){
		ans = str2 + ans;
	}
	return ans;
}