<?PHP 
//*****************************************************************************
//* プログラム名：小区分設定画面
//* プログラムID：ADM1021.php
//* 機能        ：小区分設定画面
//*****************************************************************************
header("Content-type: text/html; charset=EUC-JP");
include("./inc/session_start.inc");
include("./inc/SessionChk.inc");
include("./inc/dbcon.inc");
include('./inc/smarty.conf');
include("./inc/const.inc");

//画面の項目設定の取得
$dName = $_POST["hdnDName"];
$dSeq = $_POST["hdnDSeq"];
$dParent = $_POST["hdnDPare"];
$dRank = $_POST["hdnDRank"];

$dNyu = $_POST["hdnDNyukin"];

$sName = $_POST["hdnSName"];
$sSeq = $_POST["hdnSSeq"];
$sParent = $_POST["hdnSPare"];
$sRank = $_POST["hdnSRank"];
$sZei = $_POST["hdnSZei"];

//=======================================
//===     大区分リストの取得
//=======================================
$strSQL = "SELECT * FROM koumoku_tbl WHERE koumoku_mode = 1 ORDER BY disp_rank";
$objRec = pg_exec($strSQL);
if($objRec==false){
	echo("SQL実行に失敗しました(SELECT)");
	exit;
}
if(pg_numrows($objRec) > 0){
	for ($i = 0; $i < pg_numrows($objRec); $i++) {
		$objData = pg_fetch_object($objRec, $i);
		$dbdSeq[$i] = $objData->koumoku_seq;
		$dbdName[$i] = $objData->koumoku_name;
		$dbdParent[$i] = $objData->koumoku_parent;
		$dbdRank[$i] = $objData->disp_rank;
		$dbsNyukinMode[$i] = $objData->nyukin_mode;
	}
}else{
	//レコードセットが空の場合
	$objData = false;
}

//=======================================
//===     大区分リストのDELETE
//=======================================
$result = dKubunDelete($dbdSeq, $dSeq);
if ($result === false) {
	exit;
}
//=======================================
//===     大区分リストのINSERT
//=======================================
$result = dKubunInsert($dbdSeq, $dSeq, $dName, $dParent, $dRank, $dNyu);
if ($result === false) {
	exit;
}
//=======================================
//===     大区分リストのUPDATE
//=======================================
//DBとPOSTを比較して、差異があればUPDATE
$result = dKubunUpdate($dbdSeq, $dbdName, $dbdParent, $dbdRank, $dbsNyukinMode, 
						$dSeq, $dName, $dParent, $dRank, $dNyu);
if ($result === false) {
	exit;
}

//=======================================
//===     小区分リストの取得
//=======================================
$strSQL = "SELECT * FROM koumoku_tbl WHERE koumoku_mode = 2 ORDER BY disp_rank";
$objRec = pg_exec($strSQL);
if($objRec==false){
	echo("SQL実行に失敗しました(SELECT)");
	exit;
}
if(pg_numrows($objRec) > 0){
	for ($i = 0; $i < pg_numrows($objRec); $i++) {
		$objData = pg_fetch_object($objRec, $i);
		$dbsSeq[$i] = $objData->koumoku_seq;
		$dbsName[$i] = $objData->koumoku_name;
		$dbsParent[$i] = $objData->koumoku_parent;
		$dbsRank[$i] = $objData->disp_rank;
		$dbsZei[$i] = $objData->shouhizei_flg;
	}
}else{
	//レコードセットが空の場合
	$objData = false;
}
//=======================================
//===     小区分リストのDELETE
//=======================================
$result = sKubunDelete($dbsSeq, $sSeq);
if ($result === false) {
	exit;
}
//=======================================
//===     小区分リストのINSERT
//=======================================
//$result = sKubunInsert($dbsSeq, $sSeq, $sName, $sParent, $sRank, $sZei);
$result = sKubunInsert($dbsSeq, $sSeq, $sName, $sParent, $sRank, $sZei);
if ($result === false) {
	exit;
}
//=======================================
//===     大区分リストのUPDATE
//=======================================
//DBとPOSTを比較して、差異があればUPDATE
$result = sKubunUpdate($dbsSeq, $dbsName, $dbsParent, $dbsRank, $dbsZei, 
						$sSeq, $sName, $sParent, $sRank, $sZei);
if ($result === false) {
	exit;
}

//=======================================
//===  大区分リストのDELETE関数
//===  引数：DBの大区分SEQ配列, POSTの大区分SEQ配列
//===  返値：正常時はtrue、異常時はfalse
//=======================================
function dKubunDelete($dbdSeq, $dSeq) {
	
	$dChild = Array();
	$dbuff = "";

	//削除する配列要素をカンマ区切りテキストに変換
	for ($i = 0; $i<count($dbdSeq); $i++) {
		if ( array_search($dbdSeq[$i], $dSeq) === false ) {
			if ($dbuff !== "" ) {
				$dbuff .= ", ";
			}
			$dbuff .= $dbdSeq[$i];
		}
	}
	
	if ($dbuff != false ) {
		//項目テーブル削除
		$strSQL =  "DELETE FROM koumoku_tbl ";
		$strSQL .= " WHERE koumoku_mode = 1 AND koumoku_seq IN ( ".$dbuff." )";
//echo("<br>削除SEQ：".$strSQL);
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(DELETE)");
			return false;
		}
		
		//権限の削除
		$strSQL =  "DELETE FROM kengen_tbl ";
		$strSQL .= " WHERE koumoku_seq IN ( ".$dbuff." )";
//echo("<br>削除SEQ：".$strSQL);
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(DELETE)");
			return false;
		}
	}
	return true;
}

//=======================================
//===  大区分リストのINSERT関数
//===  引数：DBの大区分SEQ配列, POSTの大区分SEQ、NAME、親SEQ、表示順、配列
//===  返値：正常時はtrue、異常時はfalse
//=======================================
function dKubunInsert($dbdSeq, $dSeq, $dName, $dParent, $dRank, $dNyu ) {

	$arrdSeq = array();
	for ($i = 0; $i<count($dSeq); $i++) {
		if ( array_search(intval($dSeq[$i]), $dbdSeq) === false ) {
			
			//空の場合0にする
			if(empty($dNyu[$i])){
				$dNyu[$i] = "0";
			}
//echo("<br>post:".$dSeq[$i]." db:".$dbdSeq[$i]." arr:".array_search($dSeq[$i], $dbdSeq));
			
			//項目テーブルに追加する配列要素のINSERT文を作成
			$strSQL .= "INSERT INTO koumoku_tbl ";
			$strSQL .= " (koumoku_seq, koumoku_mode, koumoku_parent, koumoku_name, disp_rank, ";
			$strSQL .= "  shouhizei_flg, nyukin_mode, tmp_no) VALUES ( ";
			$strSQL .= "  ".$dSeq[$i].", 1, ".$dParent[$i].", '".pg_escape_string($dName[$i])."', ".$dRank[$i].", ";
			$strSQL .= "  null , ".$dNyu[$i].", 0 );";

			//追加する項目Seqの配列作成
			array_push($arrdSeq, $dSeq[$i]);
		}
	}
	if ($strSQL == false) {
		//新規追加なし
		return true;
	}
	//項目テーブルの追加実行
//echo("<br>追加SEQ：".$strSQL);
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		return false;
	}
	return true;
}


//=======================================
//===  大区分リストのUPDATE関数
//===  引数：DBの大区分SEQ、NAME、親SEQ、表示順、配列、
//===        POSTの大区分SEQ、NAME、親SEQ、表示順、配列
//===  返値：正常時はtrue、異常時はfalse
//=======================================
function dKubunUpdate($dbdSeq, $dbdName, $dbdParent, $dbdRank, $dbsNyukinMode, 
						$dSeq, $dName, $dParent, $dRank, $dNyu) {

	//DBとPOST共通のSeqを取得
	$arrbuf = array_intersect($dbdSeq, $dSeq);
	$arrdSeq = array_unique($arrbuf);
	$strSQL = "";
	
	//更新処理
	foreach ($arrdSeq as $arrval) {
		//DBとPOSTの各配列から、更新すべきSEQの配列番号を取得
		$dbkey = array_search($arrval, $dbdSeq);
		$pokey = array_search($arrval, $dSeq);

		//各値を比較し変更があればUPDATE
		if ( $dbkey !== false && $pokey !== false) {
//echo("<br>".$arrval." db：".$dbdName[$dbkey]."：".$dbdParent[$dbkey]."：".$dbdRank[$dbkey]." "); 
//echo("<br>".$arrval." po：".$dName[$pokey]."：".$dParent[$pokey]."：".$dRank[$pokey]." ");
			
			//各値を比較
			$upflg = false;
			if (strcmp((string)$dbdName[$dbkey], (string)$dName[$pokey]) !== 0) {  ;
				$upflg = true;
			}
			if (strcmp((string)$dbdParent[$dbkey], (string)$dParent[$pokey]) !== 0) {  ;
				$upflg = true;
			}
			if (strcmp((string)$dbdRank[$dbkey], (string)$dRank[$pokey]) !== 0) {  ;
				$upflg = true;
			}
			if (strcmp((string)$dbsNyukinMode[$dbkey], (string)$dNyu[$pokey]) !== 0) {  ;
				$upflg = true;
			}
			
//echo("<br>up:".$upflg);
			//差分があるレコードはUPDATE
			if ($upflg === true) {
				//空の場合0にする
				if(empty($dNyu[$pokey])){
					$dNyu[$pokey] = "0";
				}
			
				$strSQL .= "UPDATE koumoku_tbl SET " ;
				$strSQL .= " koumoku_parent = ".$dParent[$pokey].", " ;
				$strSQL .= " koumoku_name = '".pg_escape_string($dName[$pokey])."', " ;
				$strSQL .= " disp_rank = ".$dRank[$pokey]." , ";
				$strSQL .= " nyukin_mode = '".pg_escape_string($dNyu[$pokey])."' ";
				$strSQL .= " WHERE koumoku_seq = ".$dSeq[$pokey]." AND koumoku_mode = 1 ;" ;
			}
		}
	}
	
//echo("<br>更新SEQ：".$strSQL.":bite".strlen( $strSQL));
	//$strSQLの実行
	if ( mb_strlen($strSQL, "EUC-JP") > 0) {
//echo("strSQL: ".$strSQL);
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(UPDATE)");
			exit;
		}
	}
	return true;
	
}

//echo("<br>=========================================================<br>");

//=======================================
//===  小区分リストのDELETE関数
//===  引数：DBの小区分SEQ配列, POSTの小区分SEQ配列
//===  返値：正常時はtrue、異常時はfalse
//=======================================
function sKubunDelete($dbsSeq, $sSeq) {
	//削除する配列要素をカンマ区切りテキストに変換
	$sbuff = false;

	if ( count($sSeq) > 0 ) {
		for ($i = 0; $i<count($dbsSeq); $i++) {
			if ( array_search($dbsSeq[$i], $sSeq) === false ) {
				if ($sbuff !== false && $sbuff !== "") {
					$sbuff .= ", ";
				}
				$sbuff .= $dbsSeq[$i];
			}
		}
	}
	
	if ($sbuff !== false  && $sbuff !== "") {
		//項目テーブル削除
		$strSQL =  "DELETE FROM koumoku_tbl ";
		$strSQL .= " WHERE koumoku_mode = 2 AND koumoku_seq IN ( ".$sbuff." )";
//echo("<br>削除SEQ：".$strSQL);
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(DELETE)");
			return false;
		}
		
		//入金データ削除
		$strSQL =  "DELETE FROM nyukin_tbl ";
		$strSQL .= " WHERE koumoku_seq IN ( ".$sbuff." )";
//echo("<br>削除SEQ：".$strSQL);
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(DELETE)");
			return false;
		}
		
		//権限の削除
		$strSQL =  "DELETE FROM kengen_tbl ";
		$strSQL .= " WHERE koumoku_seq IN ( ".$sbuff." )";
//echo("<br>削除SEQ：".$strSQL);
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(DELETE)");
			return false;
		}
	}
	return true;
}


//=======================================
//===  小区分リストのINSERT関数
//===  引数：DBの小区分SEQ配列, POSTの小区分SEQ、NAME、親SEQ、表示順、消費税、配列
//===  返値：正常時はtrue、異常時はfalse
//=======================================
function sKubunInsert($dbsSeq, $sSeq, $sName, $sParent, $sRank, $sZei) {

	$strSQL = false;
	$arrsSeq = array();
	for ($i = 0; $i<count($sSeq); $i++) {
		if ( count($dbsSeq) > 0 ) {
			if ( array_search(intval($sSeq[$i]), $dbsSeq) === false ) {

//echo("<br>post:".$sSeq[$i]." db:".$dbsSeq[$i]." arr:".array_search(intval($sSeq[$i]), $dbsSeq). " *:".intval(false));
				//項目テーブルに追加する配列要素のINSERT文を作成
				$strSQL .= "INSERT INTO koumoku_tbl ";
				$strSQL .= " (koumoku_seq, koumoku_mode, koumoku_parent, koumoku_name, disp_rank, ";
				$strSQL .= "  shouhizei_flg, nyukin_mode, tmp_no) VALUES ( ";
				$strSQL .= "  ".$sSeq[$i].", 2, ".$sParent[$i].", '".pg_escape_string($sName[$i])."', ".$sRank[$i].", ";
				$strSQL .= "  ".intval($sZei[$i]).", null , 0 );";
	
				//追加する項目Seqの配列作成
				array_push($arrsSeq, $sSeq[$i]);
			}
		}
	}
	if ($strSQL === false || $strSQL === "") {
		//新規追加なし
		return true;
	}
	//項目テーブルの追加実行
//echo("<br>追加SEQ：".$strSQL);
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		return false;
	}

	//権限テーブルの新Seq取得
	$strSQL  = "SELECT kengen_seq FROM kengen_tbl ORDER BY kengen_seq DESC";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		return false;
	}
	if(pg_numrows($objRec) > 0){
		$objData = pg_fetch_object($objRec, 0);
		$kSeq = $objData->kengen_seq + 1;
	}

	$kcnt = 0;
	$strSQL2 = "";
	//部門に権限を付ける
	$strSQL  = "SELECT bumon_seq FROM bumon_tbl WHERE all_flg = 1" ;
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if(pg_numrows($objRec) > 0){
		for ($i = 0; $i < pg_numrows($objRec); $i++) {
			$objData = pg_fetch_object($objRec, $i);
			$bumSeq[$i] = $objData->bumon_seq;
			
			for ($j = 0; $j < count($arrsSeq); $j++) {
				//権限テーブルINSERT
				$strSQL2 .= " INSERT INTO kengen_tbl (kengen_seq, bumon_seq, koumoku_seq, tmp_no) ";
				$strSQL2 .= " VALUES(".($kSeq+$kcnt).", ".$bumSeq[$i].", ".$arrsSeq[$j].", 0 );";
				$kcnt++;
			}
		}
		//権限テーブルの追加実行
//echo("<br>追加SEQ2：".$strSQL2);
		$objRec2 = pg_exec($strSQL2);
		if($objRec2==false){
			echo("SQL実行に失敗しました(INSERT)");
			exit;
		}
	}
	return true;
}


//=======================================
//===  小区分リストのUPDATE関数
//===  引数：DBの小区分SEQ、NAME、親SEQ、表示順、消費税、配列、
//===        POSTの小区分SEQ、NAME、親SEQ、表示順、消費税、配列
//===  返値：正常時はtrue、異常時はfalse
//=======================================
function sKubunUpdate($dbsSeq, $dbsName, $dbsParent, $dbsRank, $dbsZei, 
						$sSeq, $sName, $sParent, $sRank, $sZei) {

	//DBとPOST共通のSeqを取得
	$arrbuf = array_intersect($dbsSeq, $sSeq);
	$arrsSeq = array_unique($arrbuf);
	$strSQL = "";
	
	//更新処理
	foreach ($arrsSeq as $arrval) {
		//DBとPOSTの各配列から、更新すべきSEQの配列番号を取得
		$dbkey = array_search($arrval, $dbsSeq);
		$pokey = array_search($arrval, $sSeq);

		//各値を比較し変更があればUPDATE
		if ( $dbkey !== false && $pokey !== false) {
//echo("<br>".$arrval." db：".$dbsName[$dbkey]."：".$dbsParent[$dbkey]."：".$dbsRank[$dbkey]."：".$dbsZei[$dbkey]." ".$dbsNyukinMode[$dbkey]); 
//echo("<br>".$arrval." po：".$sName[$pokey]."：".$sParent[$pokey]."：".$sRank[$pokey]."：".$sZei[$pokey]." ".$sNyu[$pokey]." ");
			
			//各値を比較
			$upflg = false;
			if (strcmp((string)$dbsName[$dbkey], (string)$sName[$pokey]) !== 0) {  ;
				$upflg = true;
			}
			if (strcmp((string)$dbsParent[$dbkey], (string)$sParent[$pokey]) !== 0) {  ;
				$upflg = true;
			}
			if (strcmp((string)$dbsRank[$dbkey], (string)$sRank[$pokey]) !== 0) {  ;
				$upflg = true;
			}
			if (strcmp((string)$dbsZei[$dbkey], (string)$sZei[$pokey]) !== 0) {  ;
				$upflg = true;
			}

			
//echo("<br>up:".$upflg);
			//差分があるレコードはUPDATE
			if ($upflg === true) {

				$strSQL .= "UPDATE koumoku_tbl SET " ;
				$strSQL .= " koumoku_parent = ".$sParent[$pokey]." " ;
				$strSQL .= " , koumoku_name = '".pg_escape_string($sName[$pokey])."' " ;
				$strSQL .= " , disp_rank = ".$sRank[$pokey]." ";
				if (mb_strlen($sZei[$pokey], "EUC-JP") > 0) {
					$strSQL .= ", shouhizei_flg = ".$sZei[$pokey]." " ;
				}
				$strSQL .= " WHERE koumoku_seq = ".$sSeq[$pokey]." AND koumoku_mode = 2 ;" ;
			}
		}
	}
//exit;
//echo("<br>更新SEQ：".$strSQL.":bite".strlen( $strSQL));
	
	//$strSQLの実行
	if ( mb_strlen($strSQL, "EUC-JP") > 0) {
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(UPDATE)");
			exit;
		}
	}
	
	return true;
	
}

header("Location:./ADM1020.php");
exit;


?>
//<a href="ADM1020.php">もどる</a>