<?PHP 
//*****************************************************************************
//* プログラム名：資金繰り表ＣＳＶファイル吐き出し
//* プログラムID：SIM0600.php
//* 機能        ：ＣＳＶファイルにデータを吐き出す
//*****************************************************************************
//***************************
//*　インクルードファイル
//***************************
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").".csv";
$filename = JcodeConvert($filename, 1, 2);


Header("Content-Disposition: attachment; filename=\"$filename\"");
Header("Content-Type: text/csv");

$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;
//20091117 added by MTC) sato taka
		$kikanSt[$i] = sprintf("%02d", $objData->bunrui_start);
		$kikanEd[$i] = sprintf("%02d", $objData->bunrui_end );
	}
}

//分類（期間）の件数だけループ
for($i=0;$i<count($bData);$i++){
	//表示年月の件数だけループ
	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;	//項目名
			//大項目配下の中項目検索
			//消費税無し
			$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($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;
//20100518 入出金計に繰越金を足さない
//$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];

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

	//20100517 調整後計&繰越金(同じ計算式)
	$kurikoshi[3][$k+1] = floatval($shikin[3][$k]) + floatval($keihi[3][$k]);

	//差額調整後後計20100517 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]);
}


/********************************************************/
//CSV出力
//ヘッダの取得
$strHead = Header_Get($dataYM[0][0], $dataYM[0][1], $DISP_CNT);
echo(JcodeConvert($strHead, 1, 2) );



//繰越金をカンマ区切りの文字列で出力
$strZen = "前月繰越,,";
for($k=0;$k<count($dataYM);$k++){
//	$strZen .= $kurikoshi[1][$k].",".$kurikoshi[2][$k].",".$kurikoshi[3][$k];
	$strZen .= ",,".$kurikoshi[3][$k];
	if ($k < count($dataYM)-1) {
		$strZen .= ",";
	}
	if ($k == count($dataYM)-1) {
		$strZen .= "\n";
	}
}
echo(JcodeConvert($strZen, 1, 2) );

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

	//連携データの出力 20091117 MTC)sato taka
	//年月の分のループ
	$strKeihi = "入出金計,,";
	$strNyu = $bData[$i][1].",売上金,";
	$strShu = $bData[$i][1].",外注費,";
	$strKar = $bData[$i][1].",借入金,";
	for($k=0;$k<count($dataYM);$k++){
		$strNyu .= floatval($nyuNyukin[$i][$k]).",0,";
		$strShu .= "0,".floatval($nyuShukin[$i][$k]).",";
		$strKar .= floatval($kariirekin[$i][$k]).",".floatval($hensaikin[$i][$k]).",";
		if ($k < (count($dataYM)-1) ){
			$strNyu .= ",";
			$strShu .= ",";
			$strKar .= ",";
		}
	}
	$strNyu .= "\n";
	$strShu .= "\n";
	$strKar .= "\n";

	if( $dspcol_nyu[$i] > 0 ){
		echo(JcodeConvert($strNyu, 1, 2) );
	}
	if( $dspcol_shu[$i] > 0 ){
		echo(JcodeConvert($strShu, 1, 2) );
	}
	if( $dspcol_kar[$i] > 0 ){
		echo(JcodeConvert($strKar, 1, 2) );
	}

	//大項目の件数だけループ
	for($j=0;$j<$jCnt[$i];$j++){
		//分類、大項目
		$strKikan = $bData[$i][1].",";
		$strKikan .= $dData[$i][$j][1].",";

		//年月の分のループ
		for($k=0;$k<count($dataYM);$k++){
			//金額
			//20140317　消費税8%対応
			if(sprintf('%04d', $dataYM[$k][0]).sprintf('%02d', $dataYM[$k][1]) >= $DEFARR[13]){
				$strKikan .= floatval($dData[$i][$j][3][0][$k]) + round(floatval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[12])) ."," ;
				$strKikan .= floatval($dData[$i][$j][4][0][$k]) + round(floatval($dData[$i][$j][4][1][$k]) * floatval($DEFARR[12])) ."," ;
			}else{
				$strKikan .= floatval($dData[$i][$j][3][0][$k]) + round(floatval($dData[$i][$j][3][1][$k]) * floatval($DEFARR[10])) ."," ;
				$strKikan .= floatval($dData[$i][$j][4][0][$k]) + round(floatval($dData[$i][$j][4][1][$k]) * floatval($DEFARR[10])) ."," ;
			}
			if ($k < (count($dataYM)-1) ){
				$strKikan .= ",";
			}
		}
		$strKikan .= "\n";
		echo(JcodeConvert($strKikan, 1, 2) );
	}

	//小計
	$strminiTotal = $bData[$i][1]."小計,," ;
	//年月の分のループ
	for($k=0;$k<count($dataYM);$k++){
		$strminiTotal .= $miniTotal[$i][1][$k].",".$miniTotal[$i][2][$k].",".$miniTotal[$i][3][$k] ;
		if ($k < (count($dataYM)-1) ){
			$strminiTotal .= "," ;
		}
	}
	$strminiTotal .= "\n" ;
	echo(JcodeConvert($strminiTotal, 1, 2) );
}

//経費計
$strKeihi = "入出金計,,";
for($k=0;$k<count($dataYM);$k++){
	$strKeihi .= $keihi[1][$k].",".$keihi[2][$k].",".$keihi[3][$k];
	if ($k < (count($dataYM)-1) ){
		$strKeihi .= ",";
	}
}
$strKeihi .= "\n";
echo(JcodeConvert($strKeihi, 1, 2) );

//資金繰り調整
$strShikin = "予実算の差額,,";
for($k=0;$k<count($dataYM);$k++){
	$strShikin .= $shikin[1][$k].",".$shikin[2][$k].",".$shikin[3][$k];
	if ($k < (count($dataYM)-1) ){
		$strShikin .= ",";
	}
}
$strShikin .= "\n";

echo(JcodeConvert($strShikin, 1, 2) );

/***********************************************/

//ヘッダー行取得
function Header_Get($pYear, $pMonth, $pkikan){

	//年月の取得
	$strDate  = $pYear."年,";
	for ($i=$pMonth; $i<($pMonth+$pkikan); $i++) {
		if ($i < 13) {
			$wkM = $i;
		}else{
			$strDate .= $pYear + 1;
			$wkM = $i - 12;
		}
		if ($i == ($pMonth+$pkikan-1) ) {
			$strDate .= ",".$wkM."月";
		}else{
			$strDate .= ",".$wkM."月,,";
		}
	}
	$strDate .= "\n";
	
	//項目行の取得
	$strTitle  = "収支,";
	for ($i=0; $i<$pkikan; $i++) {
		$strTitle .= ",入金,出金,残高";
	}
	$strTitle .= "\n";

	$ret = $strDate.$strTitle;
	
	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).") ";
//	$strSQL  = "SELECT sum(pt.total) AS totaldata FROM plan_tbl AS pt ";
//	$strSQL .= " WHERE pt.hensai_year >= ".substr($sYM,0,4)." AND pt.hensai_month >= ".substr($sYM,4,2)." ";
//	$strSQL .= " AND 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 = $kurikoshi + $pStartMoney;
	$kurikoshi = round($kurikoshi + $pStartMoney);
	
	return $kurikoshi;
}

?>