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

   if (db_flg == 1 || db_flg == 2){

		l_obj = document.add90_01.TANCD;
		if (l_obj.value == ""){
			alert("ユーザーコードが入力されていません。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = document.add90_01.TANNM;
		if (l_obj.value == ""){
			alert("ユーザー名が入力されていません。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = document.add90_01.PASSWORD;
		if (l_obj.value == ""){
			alert("パスワードが入力されていません。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = document.add90_01.GROUPCD;
		if (l_obj.value == ""){
			alert("グループコードが入力されていません。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = document.add90_01.GROUPINDEX;
		if (l_obj.value == ""){
			alert("グループインデックスが入力されていません。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = document.add90_01.TANKIN;
		if (l_obj.value == ""){
			alert("単価が入力されていません。");
			Rtn=l_obj.focus();
			return;
		}
		
		l_obj = document.add90_01.TANCD;
		if (isNaN(l_obj.value)){
			alert("ユーザーコードは半角の数値を入力してください。");
			Rtn=l_obj.focus();
			return;
		}

		l_obj = document.add90_01.TANKIN;
		if (isNaN(l_obj.value)){
			alert("単価は数値を入力してください。");
			Rtn=l_obj.focus();
			return;
		}

		if (l_obj.value < 0){
			alert("単価は0以上を入力してください。");
			Rtn=l_obj.focus();
			return;
		}

		l_len = data_length_get(Trim(document.add90_01.TANCD.value));
		if (l_len > 3){
			alert("ユーザーコードには半角("+ l_len +")文字が入力されています。\nユーザーコードの入力は半角(3)文字までです。");
			Rtn=document.add90_01.TANCD.focus();
			return;
		}

		l_len = data_length_get(Trim(document.add90_01.TANNM.value));
		if (l_len > 16){
			alert("ユーザー名には半角("+ l_len +")文字が入力されています。\nユーザー名の入力は半角(16)文字までです。");
			Rtn=document.add90_01.TANNM.focus();
			return;
		}

		l_len = data_length_get(Trim(document.add90_01.PASSWORD.value));
		if (l_len > 10){
			alert("パスワードには半角("+ l_len +")文字が入力されています。\nパスワードの入力は半角(10)文字までです。");
			Rtn=document.add90_01.PASSWORD.focus();
			return;
		}

		l_len = data_length_get(Trim(document.add90_01.K_PASSWORD.value));
		if (l_len > 10){
			alert("携帯パスワードには半角("+ l_len +")文字が入力されています。\n携帯パスワードの入力は半角(10)文字までです。");
			Rtn=document.add90_01.K_PAASSWORD.focus();
			return;
		}

		l_len = data_length_get(Trim(document.add90_01.K_MAILADD.value));
		if (l_len > 50){
			alert("携帯メールアドレスには半角("+ l_len +")文字が入力されています。\n携帯メールアドレスの入力は半角(50)文字までです。");
			Rtn=document.add90_01.K_MAILADD.focus();
			return;
		}

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

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

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



function set_SetubiCd() {
   var l_idx;
   var l_flg;
   var l_groupcd;
   var l_setubicd;
   var l_yoyakucd;
   var l_url;

	l_flg = 1
	l_groupcd = ''
	l_setubicd = ''
	l_yoyakucd = ''

   l_idx = document.add40_01.GROUPCD.selectedIndex;
   l_groupcd = document.add40_01.GROUPCD.options[l_idx].value;

	l_url = "./add40_01.asp?DBFLG="+ l_flg +"&GROUPCD="+ l_groupcd +"&SETUBICD="+ l_setubicd +"&YOYAKUCD="+ l_yoyakucd;
   document.add40_01.action=l_url;
   document.add40_01.target="_self";
   document.add40_01.submit();
}