<?PHP 
//*****************************************************************************
//* プログラム名：資金繰り表EXCEL出力
//* プログラムID：SIM0601.php
//* 機能        ：EXCEL出力する
//*****************************************************************************
//***************************
//*　インクルードファイル
//***************************
include("./inc/session_start.inc");
include("./inc/SessionChk.inc");
include("./inc/dbcon.inc");
include('./inc/smarty.conf');
include("./inc/const.inc");
include("./inc/jcode.php");

$filename = "資金繰表".date("Y").date("m").date("d").".xls";
$filename = JcodeConvert($filename, 1, 2);

$ExcelData = "";

Header("Content-Disposition: attachment; filename=\"$filename\"");
Header("Content-Type: pplication/vnd.ms-excel");

$SIM_cboYaer = $_POST["SIM_cboYaer"];
$SIM_cboMon = $_POST["SIM_cboMon"];
$SIM_cboKikan = $_POST["SIM_cboKikan"];
$chousei = $_POST["chousei"];
$shikin = $_POST["shikin"];

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

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

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

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

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

//最初の前月繰越金(+なら[1]、-なら[2])
//20140317 消費税8%対応　$DEFARR[12]→税率8%
$kuriStart = Kurikoshi_Get($START_MONEY, $sYM, $eYM, $DEFARR[10], $DEFARR[12]);

$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;
}



//分類取得
$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;
		$kikanSt[$i] = sprintf("%02d", $objData->bunrui_start);
		$kikanEd[$i] = sprintf("%02d", $objData->bunrui_end );
	}
}

//分類（期間）の件数だけループ
for($i=0;$i<count($bData);$i++){

//20091021 UPDATE
	//表示年月の件数だけループ
	for($j=0;$j<count($dataYM);$j++){
		
			//借入金返済SQL作成 
			$strSQL  = "SELECT pt.plan_seq, pt.total FROM plan_tbl AS pt ";
			$strSQL .= " INNER JOIN kariire_tbl AS kt ON (pt.kariire_seq = kt.kariire_seq) ";
			$strSQL .= " WHERE pt.hensai_year = ".sprintf('%04d', $dataYM[$j][0])." AND pt.hensai_month = ".sprintf('%02d', $dataYM[$j][1])." ";
			$strSQL .= " AND kt.hensai_date >= ".$kikanSt[$i]." AND kt.hensai_date <= ".$kikanEd[$i]." ";
			$objRec = pg_exec($strSQL);
			if($objRec==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
			}
			if(pg_numrows($objRec) > 0){
				//項目ループ
				for ($k = 0; $k < pg_numrows($objRec); $k++) {
					$objData = pg_fetch_object($objRec, $k);
					if ( mb_strlen($objData->total) > 0) {
						$hensaikin[$i][$j] = floatval($hensaikin[$i][$j]) + floatval($objData->total) ;
					}
				}
			}
			
			//借入金入金SQL作成 
			$strSQL  = "SELECT kt.kariire_seq, kt.kariiregaku FROM kariire_tbl AS kt ";
			$strSQL .= " WHERE kt.kariire_date >= ".sprintf('%04d', $dataYM[$j][0]).sprintf('%02d', $dataYM[$j][1]).$kikanSt[$i] ; 
			$strSQL .= " AND kt.kariire_date <= ".sprintf('%04d', $dataYM[$j][0]).sprintf('%02d', $dataYM[$j][1]).$kikanEd[$i];
			$objRec = pg_exec($strSQL);
			if($objRec==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
			}
			if(pg_numrows($objRec) > 0){
				//項目ループ
				for ($k = 0; $k < pg_numrows($objRec); $k++) {
					$objData = pg_fetch_object($objRec, $k) ;
					if ( mb_strlen($objData->kariiregaku) > 0) {
						$kariirekin[$i][$j] = floatval($kariirekin[$i][$j]) + floatval($objData->kariiregaku) ;
					}
				}
			}
			
			//売上金SQL作成 
//			$strSQL  = "SELECT * FROM rcv_tbl ";
//			$strSQL .= " WHERE rcv_seikyukbn = 1 AND ( ";
//			$strSQL .= "  (seikyu_kigen >= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanSt[$i]."' ";
//			$strSQL .= "  AND seikyu_kigen <= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanEd[$i]."' ";
//			$strSQL .= "  AND (nyukin_date is null OR nyukin_date = '') ";
//			$strSQL .= "  ) OR ( ";
//			$strSQL .= "  nyukin_date >= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanSt[$i]."' ";
//			$strSQL .= "  AND nyukin_date <= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanEd[$i]."' ";
//			$strSQL .= "  )";
//			$strSQL .= " )";

			$strSQL  = "SELECT * FROM rcv_tbl ";
			$strSQL .= " WHERE rcv_seikyukbn = 1 AND ";
			$strSQL .= "  (seikyu_kigen >= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanSt[$i]."' ";
			$strSQL .= "  AND seikyu_kigen <= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanEd[$i]."' ";
			$strSQL .= "  ) ";
			$objRec = pg_exec($strSQL);
			if($objRec==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
			}
			if(pg_numrows($objRec) > 0){
				//項目ループ
				for ($k = 0; $k < pg_numrows($objRec); $k++) {
					$objData = pg_fetch_object($objRec, $k) ;
//					if ( mb_strlen($objData->nyukin_date) > 0) {
//						$nyuNyukin[$i][$j] = floatval($nyuNyukin[$i][$j]) + floatval($objData->nyukin_money) ;
//					}else{
//						$nyuNyukin[$i][$j] = floatval($nyuNyukin[$i][$j]) + floatval($objData->seikyu_money) ;
//					}
					$nyuNyukin[$i][$j] = floatval($nyuNyukin[$i][$j]) + floatval($objData->seikyu_money) ;
				}
			}
			
			//外注費SQL作成 
//			$strSQL  = "SELECT * FROM rcv_tbl ";
//			$strSQL .= " WHERE rcv_seikyukbn = 2 AND ( ";
//			$strSQL .= "  (seikyu_kigen >= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanSt[$i]."' ";
//			$strSQL .= "  AND seikyu_kigen <= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanEd[$i]."' ";
//			$strSQL .= "  AND (nyukin_date is null OR nyukin_date = '') ";
//			$strSQL .= "  ) OR ( ";
//			$strSQL .= "  nyukin_date >= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanSt[$i]."' ";
//			$strSQL .= "  AND nyukin_date <= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanEd[$i]."' ";
//			$strSQL .= "  )";
//			$strSQL .= " )";

			$strSQL  = "SELECT * FROM rcv_tbl ";
			$strSQL .= " WHERE rcv_seikyukbn = 2 AND ";
			$strSQL .= "  (seikyu_kigen >= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanSt[$i]."' ";
			$strSQL .= "  AND seikyu_kigen <= '".sprintf('%04d', $dataYM[$j][0])."/".sprintf('%02d', $dataYM[$j][1])."/".$kikanEd[$i]."' ";
			$strSQL .= "  ) ";
			$objRec = pg_exec($strSQL);
			if($objRec==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
			}
			if(pg_numrows($objRec) > 0){
				//項目ループ
				for ($k = 0; $k < pg_numrows($objRec); $k++) {
					$objData = pg_fetch_object($objRec, $k) ;
//					if ( mb_strlen($objData->nyukin_date) > 0) {
//						$nyuShukin[$i][$j] = floatval($nyuShukin[$i][$j]) + floatval($objData->nyukin_money) ;
//					}else{
//						$nyuShukin[$i][$j] = floatval($nyuShukin[$i][$j]) + floatval($objData->seikyu_money) ;
//					}
					$nyuShukin[$i][$j] = floatval($nyuShukin[$i][$j]) + floatval($objData->seikyu_money) ;
				}
			}
			
		//表示条件を取得
		$dspcol_kar[$i] = $dspcol_kar[$i] + $kariirekin[$i][$j] + $hensaikin[$i][$j]; 
		$dspcol_nyu[$i] = $dspcol_nyu[$i] + $nyuNyukin[$i][$j];
		$dspcol_shu[$i] = $dspcol_shu[$i] + $nyuShukin[$i][$j];
	}

	//大項目
	$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][8]：//入金出金の入力区分 0=リンクなし、1=入金のみリンク、2=出金のみリンク、3=両方リンク
*/

			$dData[$i][$j][0] = $objData->koumoku_seq;	//SEQ
			$dData[$i][$j][1] = $objData->koumoku_name;	//項目名
			$dData[$i][$j][8] = $objData->nyukin_mode;	//入金出金の入力区分
			//大項目配下の中項目検索
			//消費税無し
			$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;	//支出コメント有り
						}
					}
				}
			}
		}
	}
	
	//表示行数を取得
	if($dspcol_kar[$i] > 0){
		$dspcol[$i] = $dspcol[$i] + 1;
	}
	if($dspcol_nyu[$i] > 0){
		$dspcol[$i] = $dspcol[$i] + 1;
	}
	if($dspcol_shu[$i] > 0){
		$dspcol[$i] = $dspcol[$i] + 1;
	}
	$cntrows[$i] = count($dData[$i]) + $dspcol[$i];

}

//小計
$miniTotal;
for($i=0;$i<count($bData);$i++){
	for($k=0;$k<count($dataYM);$k++){
		for($j=0;$j<count($dData[$i]);$j++){
			//20140317　消費税8%対応
			if(sprintf('%04d', $dataYM[$k][0]).sprintf('%02d', $dataYM[$k][1]) >= $DEFARR[13]){
				$miniTotal[$i][1][$k] = floatval($miniTotal[$i][1][$k]) + floatval($dData[$i][$j][3][0][$k]) + round(floatval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[12])) ;	//収入小計
				$miniTotal[$i][2][$k] = floatval($miniTotal[$i][2][$k]) + floatval($dData[$i][$j][4][0][$k]) + round(floatval($dData[$i][$j][4][1][$k]) * floatval($DEFARR[12])) ;	//支出小計
			}else{
				$miniTotal[$i][1][$k] = floatval($miniTotal[$i][1][$k]) + floatval($dData[$i][$j][3][0][$k]) + round(floatval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[10])) ;	//収入小計
				$miniTotal[$i][2][$k] = floatval($miniTotal[$i][2][$k]) + floatval($dData[$i][$j][4][0][$k]) + round(floatval($dData[$i][$j][4][1][$k]) * floatval($DEFARR[10])) ;	//支出小計
			}
		}
		$miniTotal[$i][1][$k] = floatval($miniTotal[$i][1][$k]) + floatval($nyuNyukin[$i][$k]) + floatval($kariirekin[$i][$k]);	//収入小計
		$miniTotal[$i][2][$k] = floatval($miniTotal[$i][2][$k]) + floatval($nyuShukin[$i][$k]) + floatval($hensaikin[$i][$k]) ;	//支出小計
		$miniTotal[$i][3][$k] = floatval($miniTotal[$i][1][$k]) - floatval($miniTotal[$i][2][$k]);	//小計残高
	}
}
//入出金計
$keihi;
//20100128 入出金計に繰越金を足さない
//$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++){
		if($i==0){
			$keihi[1][$k] = floatval($keihi[1][$k]);
		}
		$keihi[1][$k] = floatval($keihi[1][$k]) + $miniTotal[$i][1][$k];
		$keihi[2][$k] = floatval($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] = floatval($shikin[1][$k]) - floatval($shikin[2][$k]);

	for($i=0;$i<count($bData);$i++){
		if($i == 0){
			$miniTotal[$i][3][$k] = $miniTotal[$i][3][$k] + $kurikoshi[3][$k] + $karKei[$k] - $henKei[$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];
		}
	}
	if($k > 0){
		//２月目以降
		$keihi[1][$k] = $keihi[1][$k] + $kurikoshi[1][$k];
		$keihi[2][$k] = $keihi[2][$k] + $kurikoshi[2][$k];
	}

//20100127 調整後計&繰越金(同じ計算式)
//			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] = floatval($shikin[3][$k]) + floatval($keihi[3][$k]);

	//差額調整後後計20100127 MTC)sato taka
	$sagakukei[1][$k] = floatval($shikin[1][$k]) + floatval($keihi[1][$k]);
	$sagakukei[2][$k] = floatval($shikin[2][$k]) + floatval($keihi[2][$k]);
	$sagakukei[3][$k] = floatval($shikin[3][$k]) + floatval($keihi[3][$k]);

//echo("k:".$k." k1:".$kurikoshi[1][$k]." k2:".$kurikoshi[2][$k]." k3:".$kurikoshi[3][$k]." s1:".$sagakukei[1][$k]." s2:".$sagakukei[2][$k]." s3:".$sagakukei[3][$k]."<br />");

}

//金額をカンマ区切りの文字列に変換
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]);

	//期間の件数だけループ
	for($i=0;$i<count($bData);$i++){
		$dspnyuNyukin[$i][$k] = number_format($nyuNyukin[$i][$k]);
		$dspnyuShukin[$i][$k] = number_format($nyuShukin[$i][$k]);
		//売上・借入
		$dsphensaikin[$i][$k] = number_format($hensaikin[$i][$k]);
		$dspkariirekin[$i][$k] = number_format($kariirekin[$i][$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]);

	//差額調整後計
	$dspsagaku[1][$k] = number_format($sagakukei[1][$k]);
	$dspsagaku[2][$k] = number_format($sagakukei[2][$k]);
	$dspsagaku[3][$k] = number_format($sagakukei[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]);
			}
			//20140317　消費税8%対応
			if(sprintf('%04d', $dataYM[$k][0]).sprintf('%02d', $dataYM[$k][1]) >= $DEFARR[13]){
				$dspData[$i][$j][3][$k] = number_format( round( floatval($dData[$i][$j][3][0][$k]) + (floatval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[12])) ) );
				$dspData[$i][$j][4][$k] = number_format( round( floatval($dData[$i][$j][4][0][$k]) + (floatval($dData[$i][$j][4][1][$k]) * floatval($DEFARR[12])) ) );
			}else{
				$dspData[$i][$j][3][$k] = number_format( round( floatval($dData[$i][$j][3][0][$k]) + (floatval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[10])) ) );
				$dspData[$i][$j][4][$k] = number_format( round( floatval($dData[$i][$j][4][0][$k]) + (floatval($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  = "";
}


$ExcelData = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">';
$ExcelData .= '<html>';
$ExcelData .= '<head>';
$ExcelData .= '<meta http-equiv="content-type" content="text/html; charset=euc-jp">';
$ExcelData .= '<meta http-equiv="content-style-type" content="text/css">';
$ExcelData .= '<style TYPE="text/css">';
$ExcelData .= '.SimShikinTab th { background-color:#E0E0E0; text-align:center; border: 1px #000000 solid; } ';
$ExcelData .= '.SimShikinTab td { border: 1px #000000 solid; text-align:right;} ';
$ExcelData .= '</style>';
$ExcelData .= '<TITLE>資金繰り表</TITLE>';
$ExcelData .= '</head>';
$ExcelData .= '<body>';
$ExcelData .= '    <div style="font-size:18pt;">資金繰り表（'.$dataYM[0][0].'.'.$dataYM[0][1].'〜'.$dataYM[count($dataYM)-1][0].'.'.$dataYM[count($dataYM)-1][1].'）</div>';
$ExcelData .= '    <div style="margin-left:auto;margin-right:10px">(単位：'.$sUnitName.')</div>';
//------------------------------------------
$ExcelData .= '<div class="Main_tbl">';
	$ExcelData .= '<table class="SimShikinTab">';
		$ExcelData .= '<tr>';
			$ExcelData .= '<th class="SimShikinHead" nowrap rowspan="2" colspan="2">&nbsp;</th>';
for($i = 0; $i<count($dataYM);$i++){
			$ExcelData .= '<th class="SimShikinHead" nowrap colspan="3">'.$dataYM[$i][1].'月</th>';
}
		$ExcelData .= '</tr>';
		$ExcelData .= '<tr>';
for($i = 0; $i<count($dataYM);$i++){
			$ExcelData .= '<th class="SimShikinHead" nowrap>'.$DEFARR[9].'</th>';
			$ExcelData .= '<th class="SimShikinHead" nowrap>'.$DEFARR[8].'</th>';
			$ExcelData .= '<th class="SimShikinHead" nowrap>残高</th>';
}
		$ExcelData .= '</tr>';
		$ExcelData .= '<tr>';
			$ExcelData .= '<th class="SimShikin_s" width="80" colspan="2">前月繰越</th>';
for($i = 0; $i<count($dataYM);$i++){
			$ExcelData .= '<td class="SimShikin_s" style="background-color:#E0E0E0;" nowrap>&nbsp;</td>';
			$ExcelData .= '<td class="SimShikin_s" style="background-color:#E0E0E0;" nowrap>&nbsp;</td>';
			if(intval($dspkuri[3][$i]) >= 0){
			$ExcelData .= '<td class="SimShikin_s" nowrap>'.$dspkuri[3][$i].'</td>';
			}else{
			$ExcelData .= '<td class="SimRedBoldTd" nowrap>'.$dspkuri[3][$i].'</td>';
			}
}
		$ExcelData .= '</tr>';

for($i = 0; $i<count($bData);$i++){
	if ($cntrows[$i] > 0){
		$ExcelData .= '<tr>';
			$ExcelData .= '<th class="SimShikinSide" nowrap rowspan="'.$cntrows[$i].'">'.$bData[$i][1].'</th>';
	}
	if ($dspcol_nyu[$i] > 0){
					$ExcelData .= '<th class="SimKeihiTd" width="80" colspan="1">売上金</th>';
		for($j = 0; $j<count($dataYM);$j++){
					$ExcelData .= '<td class="SimKeihiTd" nowrap >';
			if ($dspnyuNyukin[$i][$j] > 0){
					$ExcelData .= $dspnyuNyukin[$i][$j];
			}
					$ExcelData .= '</td>';
					$ExcelData .= '<td class="SimKeihiTd" nowrap></td>';
					$ExcelData .= '<td class="SimKeihiTd" style="background-color:#E0E0E0;" nowrap></td>';
		}
				$ExcelData .= '</tr>';
	}
	if ($dspcol_shu[$i] > 0){
					$ExcelData .= '<th class="SimKeihiTd" width="80" colspan="1">外注費</th>';
		for($j = 0; $j<count($dataYM);$j++){
					$ExcelData .= '<td class="SimKeihiTd" nowrap></td>';
					$ExcelData .= '<td class="SimKeihiTd" nowrap >';
			if ($dspnyuShukin[$i][$j] > 0){
					$ExcelData .= $dspnyuShukin[$i][$j];
			}
					$ExcelData .= '</td>';
					$ExcelData .= '<td class="SimKeihiTd" style="background-color:#E0E0E0;" nowrap></td>';
		}
				$ExcelData .= '</tr>';
	}
	if ($dspcol_kar[$i] > 0){
		if ($dspcol_nyu[$i] > 0){
				$ExcelData .= '<tr>';
		}
					$ExcelData .= '<th class="SimKeihiTd" width="80" colspan="1">借入金</th>';
		for($j = 0; $j<count($dataYM);$j++){
					$ExcelData .= '<td class="SimKeihiTd" nowrap >';
					if ($dspkariirekin[$i][$j] > 0){
						$ExcelData .= $dspkariirekin[$i][$j];
					}
					$ExcelData .= '</td>';
					$ExcelData .= '<td class="SimKeihiTd" nowrap >';
					if ($dsphensaikin[$i][$j] > 0){
						$ExcelData .= $dsphensaikin[$i][$j];
					}
					$ExcelData .= '</td>';
					$ExcelData .= '<td class="SimKeihiTd" style="background-color:#E0E0E0;" nowrap></td>';
		}
				$ExcelData .= '</tr>';
	}
	for($j = 0; $j<count($dData[$i]);$j++){
		if($j > 0){
			if(count($dData) > 0){
				$ExcelData .= '<tr>';
			}
		}
					$ExcelData .= '<th class="SimShikinSide" nowrap>';
					$ExcelData .= $dData[$i][$j][1];
					$ExcelData .= '</th>';
		for($k = 0; $k<count($dataYM);$k++){
					$ExcelData .= '<td class="SimShikinTd" nowrap style="background-color:#E0E0E0;" >';
					$ExcelData .= '&nbsp;'.$dspData[$i][$j][3][$k];
					$ExcelData .= '</td>';
					$ExcelData .= '<td class="SimShikinTd" nowrap style="background-color:#E0E0E0;" >';
					$ExcelData .= '&nbsp;'.$dspData[$i][$j][4][$k];
					$ExcelData .= '</td>';
				$ExcelData .= '<td class="SimShikinTd" nowrap style="background-color:#E0E0E0;">&nbsp;</td>';
		}
		$ExcelData .= '</tr>';
	}
	
	if($cntrows[$i] > 0 ){
		$ExcelData .= '<tr>';
			$ExcelData .= '<th class="Sim_kaku_s" nowrap colspan="2">'.$bData[$i][1].'小計</th>';
		for($k = 0; $k<count($dataYM);$k++){
				$ExcelData .= '<td class="Sim_kaku_s" nowrap>&nbsp;'.$dspminiTotal[$i][1][$k].'</td>';
				$ExcelData .= '<td class="Sim_kaku_s" nowrap>&nbsp;'.$dspminiTotal[$i][2][$k].'</td>';
			if(intval($dspminiTotal[$i][3][$k]) >= 0){
				$ExcelData .= '<td class="Sim_kaku_s" nowrap>&nbsp;'.$dspminiTotal[$i][3][$k].'</td>';
			}else{
				$ExcelData .= '<td class="SimRedBoldTd" nowrap>&nbsp;'.$dspminiTotal[$i][3][$k].'</td>';
			}
		}
		$ExcelData .= '</tr>';
	}
}
		$ExcelData .= '<tr>';
			$ExcelData .= '<th class="SimKeihiTd" nowrap colspan="2">入出金計</th>';
for($k = 0; $k<count($dataYM);$k++){
				$ExcelData .= '<td class="SimKeihiTd" nowrap>&nbsp;'.$dspkeihi[1][$k].'</td>';
				$ExcelData .= '<td class="SimKeihiTd" nowrap>&nbsp;'.$dspkeihi[2][$k].'</td>';
	if(intval($dspkeihi[3][$k]) >= 0){
				$ExcelData .= '<td class="SimKeihiTd" nowrap>&nbsp;'.$dspkeihi[3][$k].'</td>';
	}else{
				$ExcelData .= '<td class="SimRedBoldTd" nowrap>&nbsp;'.$dspkeihi[3][$k].'</td>';
	}
}
		$ExcelData .= '</tr>';

				$ExcelData .= '<tr>';
				$ExcelData .= '<th class="SimChoseTd" nowrap colspan="2">';
				$ExcelData .= '予実算の差額';
				$ExcelData .= '</th>';
for($k = 0; $k<count($dataYM);$k++){
				$ExcelData .= '<td class="SimChoseTd" nowrap>'.$shikin[1][$k].'</td>';
				$ExcelData .= '<td class="SimChoseTd" nowrap>'.$shikin[2][$k].'</td>';
				$ExcelData .= '<td class="SimChoseTd" nowrap>'.$dspshikin[3][$k].'</td>';
}
		$ExcelData .= '</tr>';

		$ExcelData .= '<tr>';
			$ExcelData .= '<th class="SimShikin_s" nowrap colspan="2">差額調整後合計</th>';
for($k = 0; $k<count($dataYM);$k++){
				$ExcelData .= '<td class="SimShikin_s" nowrap>&nbsp;'.$dspsagaku[1][$k].'</td>';
				$ExcelData .= '<td class="SimShikin_s" nowrap>&nbsp;'.$dspsagaku[2][$k].'</td>';
	if(intval($dspsagaku[3][$k]) >= 0){
				$ExcelData .= '<td class="SimShikin_s" nowrap>&nbsp;'.$dspsagaku[3][$k].'</td>';
	}else{
				$ExcelData .= '<td class="SimRedBoldTd" nowrap>&nbsp;'.$dspsagaku[3][$k].'</td>';
	}
}
		$ExcelData .= '</tr>';
		$ExcelData .= '<tr>';
			$ExcelData .= '<th class="SimShikinHead" nowrap rowspan="2" colspan="2">&nbsp;</th>';
for($k = 0; $k<count($dataYM);$k++){
			$ExcelData .= '<th class="SimShikinHead" nowrap>'.$DEFARR[9].'</th>';
			$ExcelData .= '<th class="SimShikinHead" nowrap>'.$DEFARR[8].'</th>';
			$ExcelData .= '<th class="SimShikinHead" nowrap>残高</th>';
}
		$ExcelData .= '</tr>';
		$ExcelData .= '<tr>';
for($k = 0; $k<count($dataYM);$k++){
			$ExcelData .= '<th class="SimShikinHead" nowrap colspan="3">'.$dataYM[$k][1].'月</th>';
}
		$ExcelData .= '</tr>';
	$ExcelData .= '</table>';
$ExcelData .= '</div>';
//------------------------------------------
$ExcelData .= '</body>';
$ExcelData .= '</html>';
$ExcelData = JcodeConvert($ExcelData, 0, 1);

echo $ExcelData;


//関数
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;
}


//関数
//最初の前月繰越取得
//20140317　消費税8%対応　$zei→5%　$zei2→8%
function Kurikoshi_Get($pStartMoney, $sYM, $eYM, $zei, $zei2){

	$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実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi + floatval($objData->totaldata);
		}
	}

	//初期登録月からシミュレーション開始月までの総収入  消費税計算有り
	//20140317消費税　8%対応
	$strSQL  = "SELECT nt.nyukin_ym, sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	//$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";
	$strSQL .= " GROUP BY nt.nyukin_ym";
	$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);
			if ($objData->totaldata > 0){
				if($objData->nyukin_ym >= $DEFARR[13]){
					$kurikoshi = $kurikoshi + ( floatval($objData->totaldata) * floatval($zei2) );
				}else{
					$kurikoshi = $kurikoshi + ( floatval($objData->totaldata) * floatval($zei) );
				}
			}
		}
	}
	
	//初期登録月からシミュレーション開始月までの総収入  調整額
	$strSQL  = "SELECT sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	$strSQL .= "WHERE nt.nyukin_ym >= ".$sYM." AND nt.nyukin_ym < ".$eYM." ";
	$strSQL .= "AND koumoku_seq = 0 AND nt.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);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi + floatval($objData->totaldata) ;
		}
	}
	
	//借入金入金SQL作成 
	$strSQL  = "SELECT sum(kt.kariiregaku) AS totaldata FROM kariire_tbl AS kt ";
	$strSQL .= " WHERE kt.kariire_date >= ".$sYM."01 " ; 
	$strSQL .= " AND kt.kariire_date < ".$eYM."01 " ;
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi + floatval($objData->totaldata) ;
		}
	}
	
	//売上金SQL作成 
	$strSQL  = "SELECT sum(seikyu_money) AS totaldata FROM rcv_tbl ";
	$strSQL .= " WHERE rcv_seikyukbn = 1 AND ";
	$strSQL .= "  seikyu_kigen >= '".sprintf('%04d', substr($sYM,0,4) )."/".sprintf('%02d', substr($sYM,4,2) )."/01' ";
	$strSQL .= "  AND seikyu_kigen < '".sprintf('%04d', substr($eYM,0,4) )."/".sprintf('%02d', substr($eYM,4,2) )."/01' ";
	$strSQL .= "  AND (nyukin_date is null OR nyukin_date = '') ";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi + floatval($objData->totaldata);
		}
	}
	
	
	//売上金SQL作成 2
	$strSQL = "SELECT sum(nyukin_money) AS totaldata FROM rcv_tbl ";
	$strSQL .= " WHERE rcv_seikyukbn = 1 AND ( ";
	$strSQL .= "  nyukin_date >= '".sprintf('%04d', substr($sYM,0,4) )."/".sprintf('%02d', substr($sYM,4,2) )."/01' ";
	$strSQL .= "  AND nyukin_date <= '".sprintf('%04d', substr($eYM,0,4) )."/".sprintf('%02d', substr($eYM,4,2) )."/01' ";
	$strSQL .= "  )";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi + floatval($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 = 0 OR kt.shouhizei_flg is NULL )";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi - floatval($objData->totaldata);
		}
	}

	//初期登録月からシミュレーション開始月までの総支出  消費税計算有り
	$strSQL  = "SELECT nt.nyukin_ym, sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	//$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";
	$strSQL .= " GROUP BY nt.nyukin_ym";

	$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);
			if ($objData->totaldata > 0){
				if($objData->nyukin_ym >= $DEFARR[13]){
					$kurikoshi = $kurikoshi + ( floatval($objData->totaldata) * floatval($zei2) );
				}else{
					$kurikoshi = $kurikoshi + ( floatval($objData->totaldata) * floatval($zei) );
				}
			}
		}
	}

	//初期登録月からシミュレーション開始月までの総支出  調整額
	$strSQL  = "SELECT sum(nt.nyukin_data) AS totaldata FROM nyukin_tbl AS nt ";
	$strSQL .= "WHERE nt.nyukin_ym >= ".$sYM." AND nt.nyukin_ym < ".$eYM." ";
	$strSQL .= "AND koumoku_seq = 0 AND nt.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);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi - floatval($objData->totaldata) ;
		}
	}

	//借入金返済SQL作成 
	$strSQL  = "SELECT sum(pt.total) AS totaldata FROM plan_tbl AS pt ";
	$strSQL .= " WHERE (pt.hensai_year < ".substr($eYM,0,4).") ";
	$strSQL .= " OR (pt.hensai_year = ".substr($eYM,0,4)." AND pt.hensai_month < ".substr($eYM,4,2).") ";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi - floatval($objData->totaldata) ;
		}
	}



	//外注費SQL作成 
	$strSQL  = "SELECT sum(seikyu_money) AS totaldata FROM rcv_tbl ";
	$strSQL .= " WHERE rcv_seikyukbn = 2 AND  ";
	$strSQL .= "  seikyu_kigen >= '".sprintf('%04d', substr($sYM,0,4) )."/".sprintf('%02d', substr($sYM,4,2) )."/01' ";
	$strSQL .= "  AND seikyu_kigen < '".sprintf('%04d', substr($eYM,0,4) )."/".sprintf('%02d', substr($eYM,4,2) )."/01' ";
	$strSQL .= "  AND (nyukin_date is null OR nyukin_date = '') ";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi - floatval($objData->totaldata);
		}
	}
	

	
	//外注費SQL作成 2
	$strSQL = "SELECT sum(nyukin_money) AS totaldata FROM rcv_tbl ";
	$strSQL .= " WHERE rcv_seikyukbn = 2 AND ( ";
	$strSQL .= "  nyukin_date >= '".sprintf('%04d', substr($sYM,0,4) )."/".sprintf('%02d', substr($sYM,4,2) )."/01' ";
	$strSQL .= "  AND nyukin_date <= '".sprintf('%04d', substr($eYM,0,4) )."/".sprintf('%02d', substr($eYM,4,2) )."/01' ";
	$strSQL .= "  )";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		if ($objData->totaldata > 0){
			$kurikoshi = $kurikoshi - floatval($objData->totaldata);
		}
	}

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

	return $kurikoshi;
}



?>