<?PHP 
//*****************************************************************************
//* プログラム名：閲覧画面
//* プログラムID：SIM0500.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");

$yyyy = $_POST["yyyy"];
$mon = $_POST["mon"];
$kikan = $_POST["kikan"];
$chousei = $_POST["chousei"];
$shikin = $_POST["shikin"];

//年
if($yyyy == ""){
	$yyyy = date("Y");
}
//月
if($mon == ""){
	$mon = date("n");
}
if($yyyy.sprintf('%02d', $mon) < $START_YEAR.sprintf('%02d', $START_MONTH)){
	$yyyy = $START_YEAR;
	$mon = $START_MONTH;
}

//コンボ内容
$lstY = year_lst($yyyy);
$lstM = month_lst($mon);

//期間が空なら3ヶ月をデフォルトにする。
if($kikan == ""){
	$kikan = "3";
}

//期間SELECTの内容
$kikanArr = array("3","6","12");
$kikanNameArr = array("3ヶ月","6ヶ月","1年");
$lstK = "";
for($i=0;$i<count($kikanArr);$i++){
	if($kikan == $kikanArr[$i]){
		$lstK .= "<option value='".$kikanArr[$i]."' selected>".$kikanNameArr[$i]."</option>";
	}else{
		$lstK .= "<option value='".$kikanArr[$i]."'>".$kikanNameArr[$i]."</option>";
	}
}

//何ヶ月表示？
$DISP_CNT = $kikan;

//年月配列
for($i=0;$i<$DISP_CNT;$i++){
	$dataYM[$i][0]=$yyyy;
	$dataYM[$i][1]=intval($mon) + $i;
	if($dataYM[$i][1] > 12){
		$dataYM[$i][0] = intval($dataYM[$i][0]) + 1;
		$dataYM[$i][1] = intval($mon) + $i - 12;
	}
}

//繰越金算出 初期設定の開始期間〜シミュレーション開始期間の前月まで
$sYM = $START_YEAR.sprintf('%02d', $START_MONTH);		//開始年月
$eYM = $dataYM[0][0].sprintf('%02d', $dataYM[0][1]);	//シミュ開始年月

//最初の前月繰越金(+なら[1]、-なら[2])
//$kuriStart = $kuriTemp[1] - $kuriTemp[2] + $START_MONEY;
$kuriStart = Kurikoshi_Get($START_MONEY, $sYM, $eYM, $DEFARR[10]);

$kurikoshi[3][0] = $kuriStart;
if($kuriStart < 0){
	$kurikoshi[1][0] = 0;
	$kurikoshi[2][0] = abs($kuriStart);
}else{
	$kurikoshi[1][0] = $kuriStart;
	$kurikoshi[2][0] = 0;
}

//調整額更新
for($i=0;$i<count($shikin[1]);$i++){
	$dpltDate = split("/", $shikin[4][$i]);
	//調整額（収入）
	$strSQL = "delete from nyukin_tbl where koumoku_seq = 0 and nyukin_year = ".$dpltDate[0]." and nyukin_month = ".$dpltDate[1]." and nyukin_mode = 1";
	$objRec = pg_exec($strSQL);
	$strSQL = "insert into nyukin_tbl (koumoku_seq, nyukin_year, nyukin_month, nyukin_mode, nyukin_data, nyukin_ym) ";
	$strSQL .= "values(0, ".$dpltDate[0].", ".$dpltDate[1].", 1, ".intval($shikin[1][$i]).", ".$dpltDate[0].sprintf('%02d', $dpltDate[1]).")";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		exit;
	}
	//調整額（支出）
	$strSQL = "delete from nyukin_tbl where koumoku_seq = 0 and nyukin_year = ".$dpltDate[0]." and nyukin_month = ".$dpltDate[1]." and nyukin_mode = 2";
	$objRec = pg_exec($strSQL);
	$strSQL = "insert into nyukin_tbl (koumoku_seq, nyukin_year, nyukin_month, nyukin_mode, nyukin_data, nyukin_ym) ";
	$strSQL .= "values(0, ".$dpltDate[0].", ".$dpltDate[1].", 2, ".intval($shikin[2][$i]).", ".$dpltDate[0].sprintf('%02d', $dpltDate[1]).")";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		exit;
	}
}

//データ
//分類取得
$strSQL = "select * from bunrui_tbl 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);
		$bData[$i][0] = $objData->bunrui_seq;
		$bData[$i][1] = $objData->bunrui_name;
	}
}

//分類（期間）の件数だけループ
for($i=0;$i<count($bData);$i++){
	//大項目
	$strSQL = "select * from koumoku_tbl where koumoku_mode = 1 and koumoku_parent = ".$bData[$i][0]." order by disp_rank";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if(pg_numrows($objRec) > 0){
		$jCnt[$i] = pg_numrows($objRec);
		//大項目の件数だけループ
		for($j=0;$j<pg_numrows($objRec);$j++){
			$objData = pg_fetch_object($objRec, $j);

/*
$dData[$i][$j]覚書
$dData[$i][$j][0]：大項目SEQ
$dData[$i][$j][1]：大項目項目名
$dData[$i][$j][2]：小項目SEQ配列
$dData[$i][$j][3][0]：小項目収入配列消費税計算無し
$dData[$i][$j][3][1]：小項目収入配列消費税計算有り
$dData[$i][$j][4][0]：小項目支出配列消費税計算無し
$dData[$i][$j][4][1]：小項目支出配列消費税計算有り
$dData[$i][$j][5]：大項目小計値
$dData[$i][$j][6]：小項目収入合計配列
$dData[$i][$j][7]：小項目支出合計配列

*/

			$dData[$i][$j][0] = $objData->koumoku_seq;	//SEQ
			$dData[$i][$j][1] = $objData->koumoku_name;	//項目名
			//大項目配下の中項目検索
			//消費税無し
			$strSQL2_1  = "select * from koumoku_tbl where koumoku_mode = 2 and ";
			$strSQL2_1 .= " koumoku_parent = ".$dData[$i][$j][0]." AND (shouhizei_flg = 0 OR shouhizei_flg is NULL ) ";
			$objRec2_1 = pg_exec($strSQL2_1);
			if($objRec2_1==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
			}
			//消費税有り
			$strSQL2_2  = "select * from koumoku_tbl where koumoku_mode = 2 and ";
			$strSQL2_2 .= " koumoku_parent = ".$dData[$i][$j][0]." AND shouhizei_flg = 1 order by disp_rank";
			$objRec2_2 = pg_exec($strSQL2_2);
			if($objRec2_2==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
			}
			if(pg_numrows($objRec2_1) > 0 || pg_numrows($objRec2_2) > 0){
				//消費税無し
				for($k=0;$k<pg_numrows($objRec2_1);$k++){
					$objData2 = pg_fetch_object($objRec2_1, $k);
					$dData[$i][$j][2][0][$k] = intval($objData2->koumoku_seq);			//小項目 SEQ
				}
				//消費税有り
				for($k=0;$k<pg_numrows($objRec2_2);$k++){
					$objData2 = pg_fetch_object($objRec2_2, $k);
					$dData[$i][$j][2][1][$k] = intval($objData2->koumoku_seq);			//小項目 SEQ
				}

				//大項目小計値
				$dData[$i][$j][5] = 0;
				
				//小項目の合計値算出
				for($k=0;$k<count($dataYM);$k++){
					//消費税有り
					if(count($dData[$i][$j][2][0])>0){
						$wh = "koumoku_seq = ".join(" or koumoku_seq = ", $dData[$i][$j][2][0]);
						$strSQL3 = "select sum(nyukin_data) as totaldata from nyukin_tbl where nyukin_year = ".$dataYM[$k][0]." and nyukin_month = ".$dataYM[$k][1]." and nyukin_mode = 1 and (".$wh.")";
						$objRec3 = pg_exec($strSQL3);
						if($objRec3==false){
							echo("SQL実行に失敗しました(SELECT)");
							exit;
						}
						if(pg_numrows($objRec3) > 0){
							$objData3 = pg_fetch_object($objRec3, 0);
							$dData[$i][$j][3][0][$k] = $objData3->totaldata;	//消費税無し収入計
						}else{
							$dData[$i][$j][3][0][$k] = 0;						//収入計
						}

						$strSQL3 = "select sum(nyukin_data) as totaldata  from nyukin_tbl where nyukin_year = ".$dataYM[$k][0]." and nyukin_month = ".$dataYM[$k][1]." and nyukin_mode = 2 and (".$wh.")";
						$objRec3 = pg_exec($strSQL3);
						if($objRec3==false){
							echo("SQL実行に失敗しました(SELECT)");
							exit;
						}
						if(pg_numrows($objRec3) > 0){
							$objData3 = pg_fetch_object($objRec3, 0);
							$dData[$i][$j][4][0][$k] = $objData3->totaldata;	//消費税無し支出計
						}else{
							$dData[$i][$j][4][0][$k] = 0;						//支出計
						}
					}
					if (count($dData[$i][$j][2][1])>0){
						$wh = "koumoku_seq = ".join(" or koumoku_seq = ", $dData[$i][$j][2][1]);
						$strSQL3 = "select sum(nyukin_data) as totaldata from nyukin_tbl where nyukin_year = ".$dataYM[$k][0]." and nyukin_month = ".$dataYM[$k][1]." and nyukin_mode = 1 and (".$wh.")";
						$objRec3 = pg_exec($strSQL3);
						if($objRec3==false){
							echo("SQL実行に失敗しました(SELECT)");
							exit;
						}
						if(pg_numrows($objRec3) > 0){
							$objData3 = pg_fetch_object($objRec3, 0);
							$dData[$i][$j][3][1][$k] = $objData3->totaldata;	//消費税有り収入計
						}else{
							$dData[$i][$j][3][1][$k] = 0;						//収入計
						}

						$strSQL3 = "select sum(nyukin_data) as totaldata  from nyukin_tbl where nyukin_year = ".$dataYM[$k][0]." and nyukin_month = ".$dataYM[$k][1]." and nyukin_mode = 2 and (".$wh.")";
						$objRec3 = pg_exec($strSQL3);
						if($objRec3==false){
							echo("SQL実行に失敗しました(SELECT)");
							exit;
						}
						if(pg_numrows($objRec3) > 0){
							$objData3 = pg_fetch_object($objRec3, 0);
							$dData[$i][$j][4][1][$k] = $objData3->totaldata;	//消費税無し支出計
						}else{
							$dData[$i][$j][4][1][$k] = 0;						//支出計
						}
					}
					if (count($dData[$i][$j][2][0])==0 && count($dData[$i][$j][2][1])==0){
						$dData[$i][$j][3][0][$k] = 0;						//収入計
						$dData[$i][$j][4][0][$k] = 0;						//支出計
						$dData[$i][$j][3][1][$k] = 0;						//収入計
						$dData[$i][$j][4][1][$k] = 0;						//支出計
						$comData[$i][$j][1][$k] = 0;					//収入コメント無し
						$comData[$i][$j][2][$k] = 0;					//支出コメント無し
					}
					$dData[$i][$j][5] = $dData[$i][$j][5] + intval($dData[$i][$j][3][$k]);

					$whflg =0;
					if (count($dData[$i][$j][2][0])>0 || count($dData[$i][$j][2][1])>0){
						$wh = "koumoku_seq = ";
						if  (count($dData[$i][$j][2][0]) > 0) {
							$wh .= join(" or koumoku_seq = ", $dData[$i][$j][2][0]);
							$whflg =1;
						}
						if  (count($dData[$i][$j][2][1]) > 0){
							if ($whflg ==1 ) {
								$wh .= " or koumoku_seq = ";
							}
							$wh .= join(" or koumoku_seq = ", $dData[$i][$j][2][1]);
						}
					}
					//収入コメントの有無チェック
					$strSQL3 = "SELECT * FROM comment_tbl WHERE nyukin_year = ".$dataYM[$k][0]." AND nyukin_month = ".$dataYM[$k][1]." AND nyukin_mode = 1 AND (".$wh.")";
					$objRec3 = pg_exec($strSQL3);
					if($objRec3==false){
						echo("SQL実行に失敗しました(SELECT)");
						exit;
					}
					if(pg_numrows($objRec3) > 0){
						$objData3 = pg_fetch_object($objRec3, 0);
						if ( mb_strlen($objData3->comment_text, "EUC-JP" ) > 0){
							$comData[$i][$j][1][$k] = 1;	//収入コメント有り
						}
					}
					//支出コメントの有無チェック
					$strSQL3 = "SELECT * FROM comment_tbl WHERE nyukin_year = ".$dataYM[$k][0]." AND nyukin_month = ".$dataYM[$k][1]." AND nyukin_mode = 2 AND (".$wh.")";
					$objRec3 = pg_exec($strSQL3);
					if($objRec3==false){
						echo("SQL実行に失敗しました(SELECT)");
						exit;
					}
					if(pg_numrows($objRec3) > 0){
						$objData3 = pg_fetch_object($objRec3, 0);
						if ( mb_strlen($objData3->comment_text, "EUC-JP" ) > 0){
							$comData[$i][$j][2][$k] = 1;	//支出コメント有り
						}
					}
				}
			}
		}
	}
}

//小計
$miniTotal;
for($i=0;$i<count($bData);$i++){
	for($j=0;$j<count($dData[$i]);$j++){
		for($k=0;$k<count($dataYM);$k++){
			$miniTotal[$i][1][$k] = intval($miniTotal[$i][1][$k]) + intval($dData[$i][$j][3][0][$k]) + round(intval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[10])) ;	//収入小計
			$miniTotal[$i][2][$k] = intval($miniTotal[$i][2][$k]) + intval($dData[$i][$j][4][0][$k]) + round(intval($dData[$i][$j][4][1][$k]) * floatval($DEFARR[10])) ;	//支出小計
			$miniTotal[$i][3][$k] = intval($miniTotal[$i][1][$k]) - intval($miniTotal[$i][2][$k]);	//小計残高
		}
	}
}
//経費
$keihi;
$keihi[1][0] = $kurikoshi[1][0];
$keihi[2][0] = $kurikoshi[2][0];
for($i=0;$i<count($bData);$i++){
	for($k=0;$k<count($dataYM);$k++){
		$keihi[1][$k] = intval($keihi[1][$k]) + $miniTotal[$i][1][$k];
		$keihi[2][$k] = intval($keihi[2][$k]) + $miniTotal[$i][2][$k];
	}
}


//調整
for($k=0;$k<count($dataYM);$k++){
	$strSQL = "select * from nyukin_tbl where koumoku_seq = 0 and nyukin_year = ".$dataYM[$k][0]." and nyukin_month = ".$dataYM[$k][1]." and nyukin_mode = 1";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if(pg_numrows($objRec) > 0){
		$objData = pg_fetch_object($objRec, 0);
		$shikin[1][$k] = $objData->nyukin_data;
	}else{
		$shikin[1][$k] = 0;
	}
	$strSQL = "select * from nyukin_tbl where koumoku_seq = 0 and nyukin_year = ".$dataYM[$k][0]." and nyukin_month = ".$dataYM[$k][1]." and nyukin_mode = 2";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if(pg_numrows($objRec) > 0){
		$objData = pg_fetch_object($objRec, 0);
		$shikin[2][$k] = $objData->nyukin_data;
	}else{
		$shikin[2][$k] = 0;
	}
	$shikin[3][$k] = intval($shikin[1][$k]) - intval($shikin[2][$k]);

	for($i=0;$i<count($bData);$i++){
		if($i == 0){
			$miniTotal[$i][3][$k] = $miniTotal[$i][3][$k] + $kurikoshi[3][$k];
		}else{
			$miniTotal[$i][3][$k] = $miniTotal[$i][3][$k] + $miniTotal[$i-1][3][$k];
		}
		if($i == (count($bData) - 1)){
			//次月の繰越データ生成
			$keihi[3][$k] = $miniTotal[$i][3][$k];// + intval($shikin[1][$k]) - intval($shikin[2][$k]);
			if($keihi[3][$k] + $shikin[3][$k] < 0){
				$kurikoshi[1][$k+1] = 0;
				$kurikoshi[2][$k+1] = abs($keihi[3][$k] + $shikin[3][$k]);
			}else{
				$kurikoshi[1][$k+1] = $keihi[3][$k] + $shikin[3][$k];
				$kurikoshi[2][$k+1] = 0;
			}
			$kurikoshi[3][$k+1] = $kurikoshi[1][$k+1] - $kurikoshi[2][$k+1];
		}
	}
	if($k > 0){
		//２月目以降
		$keihi[1][$k] = $keihi[1][$k] + $kurikoshi[1][$k];
		$keihi[2][$k] = $keihi[2][$k] + $kurikoshi[2][$k];
	}
}


//金額をカンマ区切りの文字列に変換
for($k=0;$k<count($dataYM);$k++){
	//繰越データ 表示用配列
	$dspkuri[1][$k] = number_format($kurikoshi[1][$k]);
	$dspkuri[2][$k] = number_format($kurikoshi[2][$k]);
	$dspkuri[3][$k] = number_format($kurikoshi[3][$k]);

	//経費
	$dspkeihi[1][$k] = number_format($keihi[1][$k]);
	$dspkeihi[2][$k] = number_format($keihi[2][$k]);
	$dspkeihi[3][$k] = number_format($keihi[3][$k]);

	//資金繰り調整
	$dspshikin[3][$k] = number_format($shikin[3][$k]);
}
//金額をカンマ区切りの文字列に変換
//分類（期間）の件数だけループ
for($i=0;$i<count($bData);$i++){
	//大項目の件数だけループ
	for($j=0;$j<$jCnt[$i];$j++){

		//大項目小計
		$dspData[$i][$j][5] = number_format($dData[$i][$j][5]);

		//集計月のループ
		for($k=0;$k<count($dataYM);$k++){
			if ($j==0){
				//大項目小計
				$dspminiTotal[$i][1][$k] = number_format($miniTotal[$i][1][$k]);
				$dspminiTotal[$i][2][$k] = number_format($miniTotal[$i][2][$k]);
				$dspminiTotal[$i][3][$k] = number_format($miniTotal[$i][3][$k]);
			}
			//大項目金額
			$dspData[$i][$j][3][$k] = number_format( round( intval($dData[$i][$j][3][0][$k]) + (intval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[10])) ) );
			$dspData[$i][$j][4][$k] = number_format( round( intval($dData[$i][$j][4][0][$k]) + (intval($dData[$i][$j][4][1][$k]) * floatval($DEFARR[10])) ) );

			//金額が0の時、空白に置き換える
			if ($dspData[$i][$j][3][$k] == 0) {
				$dspData[$i][$j][3][$k] = "";
			}
			if ($dspData[$i][$j][4][$k] == 0) {
				$dspData[$i][$j][4][$k] = "";
			}

		}
	}
}

//金額単位取得
$strSQL = "select * from start_tbl";
$objRec = pg_exec($strSQL);
if($objRec==false){
	echo("SQL実行に失敗しました(SELECT)");
	exit;
}
if(pg_numrows($objRec)>0){
	$objData = pg_fetch_object($objRec, 0);
	$sUnit  = $objData->start_unit;

	switch ($sUnit) {
	    case 0:
	        $sUnitName = "円";
	        break;
	    case 1:
	        $sUnitName = "千円";
	        break;
	    case 2:
	        $sUnitName = "万円";
	        break;
	}

}else{
	$sUnitName  = "";
}

//define
//[0]システムURL、[1]HP URL、[2]マニュアルURL、[3]MTC HP URL、[4]マスタメールアドレス、
//[5]期間区分名、[6]大区分名、[7]小区分名、[8]支出名、[9]収入名、[10]消費税率（文字型）
$o_smarty->assign('DEFARR',$DEFARR);

$o_smarty->assign('PHP_SYSNAME',$PHP_SYSNAME);
$o_smarty->assign('PHP_GROUP_NAME',$PHP_GROUP_NAME);
$o_smarty->assign('PHP_BUMON_NAME',$PHP_BUMON_NAME);
$o_smarty->assign('PHP_USER_NAME',$PHP_USER_NAME);
$o_smarty->assign('PHP_USER_NYUKIN',$PHP_USER_NYUKIN);
$o_smarty->assign('hidKaishi',$START_YEAR.sprintf('%02d', $START_MONTH));

$o_smarty->assign('lstY',$lstY);
$o_smarty->assign('lstM',$lstM);
$o_smarty->assign('lstK',$lstK);
$o_smarty->assign('DISP_CNT',$DISP_CNT);
$o_smarty->assign('chousei',$chousei);
$o_smarty->assign('shikin',$shikin);
$o_smarty->assign('dspshikin',$dspshikin);

$o_smarty->assign('sUnitName',$sUnitName);

$o_smarty->assign('bData',$bData);
$o_smarty->assign('dData',$dData);
$o_smarty->assign('dspData',$dspData);
$o_smarty->assign('comData',$comData);
$o_smarty->assign('dataYM',$dataYM);
$o_smarty->assign('dspminiTotal',$dspminiTotal);
$o_smarty->assign('dspkeihi',$dspkeihi);
$o_smarty->assign('dspkuri',$dspkuri);

if($_GET["mode"] == "p"){
	$o_smarty->display('SIM0501.tpl');
}else{
	$o_smarty->display('SIM0500.tpl');
}

function year_lst($prm){
	$ret = "";
	for($i=($prm-2);$i<=($prm+2);$i++){
		if($i==$prm){
			$ret .= "<option value='".$i."' selected>".$i."</option>";
		}else{
			$ret .= "<option value='".$i."'>".$i."</option>";
		}
	}
	return $ret;
}
function month_lst($prm){
	$ret = "";
	for($i=1;$i<=12;$i++){
		if($i==$prm){
			$ret .= "<option value='".$i."' selected>".$i."</option>";
		}else{
			$ret .= "<option value='".$i."'>".$i."</option>";
		}
	}
	return $ret;
}

//最初の前月繰越取得
function Kurikoshi_Get($pStartMoney, $sYM, $eYM, $zei){

	$kurikoshi = 0;

	//初期登録月からシミュレーション開始月までの総収入  消費税計算無し
	$strSQL  = "SELECT sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	$strSQL .= "INNER JOIN koumoku_tbl AS kt ON (kt.koumoku_seq = nt.koumoku_seq) ";
	$strSQL .= "WHERE nt.nyukin_ym >= ".$sYM." AND nt.nyukin_ym < ".$eYM." ";
	$strSQL .= "AND nt.nyukin_mode = 1 AND (kt.shouhizei_flg = 0 OR kt.shouhizei_flg is NULL )";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi + intval($objData->totaldata);
		}
	}

	//初期登録月からシミュレーション開始月までの総収入  消費税計算有り
	$strSQL  = "SELECT sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	$strSQL .= "INNER JOIN koumoku_tbl AS kt ON (kt.koumoku_seq = nt.koumoku_seq) ";
	$strSQL .= "WHERE nt.nyukin_ym >= ".$sYM." AND nt.nyukin_ym < ".$eYM." ";
	$strSQL .= "AND nt.nyukin_mode = 1 AND kt.shouhizei_flg = 1";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi + ( intval($objData->totaldata) * floatval($zei) );
		}
	}
	

	//初期登録月からシミュレーション開始月までの総支出  消費税計算無し
	$strSQL  = "SELECT sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	$strSQL .= "INNER JOIN koumoku_tbl AS kt ON (kt.koumoku_seq = nt.koumoku_seq) ";
	$strSQL .= "WHERE nt.nyukin_ym >= ".$sYM." AND nt.nyukin_ym < ".$eYM." ";
	$strSQL .= "AND nt.nyukin_mode = 2 AND (kt.shouhizei_flg = 0 OR kt.shouhizei_flg is NULL )";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi - intval($objData->totaldata);
		}
	}

	//初期登録月からシミュレーション開始月までの総支出  消費税計算有り
	$strSQL  = "SELECT sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	$strSQL .= "INNER JOIN koumoku_tbl AS kt ON (kt.koumoku_seq = nt.koumoku_seq) ";
	$strSQL .= "WHERE nt.nyukin_ym >= ".$sYM." AND nt.nyukin_ym < ".$eYM." ";
	$strSQL .= "AND nt.nyukin_mode = 2 AND kt.shouhizei_flg = 1";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(INSERT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi - ( intval($objData->totaldata) * floatval($zei) );
		}
	}

	//初期繰越金
	$kurikoshi = round($kurikoshi + $pStartMoney);

	return $kurikoshi;
}


?>