<?PHP 
//*****************************************************************************
//* プログラム名：入金画面
//* プログラムID：SIM0210.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");
include("./inc/pagetitle.inc");
include("./inc/pagefooter.inc");

$SIM_cboYaer = $_POST["SIM_cboYaer"];
$SIM_cboMon = $_POST["SIM_cboMon"];
$SIM_cboKikan = $_POST["SIM_cboKikan"];
$bumon = $PHP_BUMON_SEQ;

//画面切替モード（y:年切替 b:分類(期間区分) d:大項目 c:小区分 f:一覧画面から遷移 ）
$chgmode = $_GET["chgmode"]; 

//収支モード（1:収入 2:支出）
$sMode = $_POST["sMode"];

//ボタンキャプション
$btn_sim = $_POST["btn_sim"];
$btn_lst = $_POST["btn_lst"];

//入金一覧からSeqを渡された場合
$bSeq = $_GET["bSeq"];
$dSeq = $_GET["dSeq"];
$cSeq = $_GET["cSeq"];

$upflg = 0;

//画面更新でSeqを引継ぐ場合
if ($bSeq == False && $chgmode != "f"){
	$bSeq = $_POST["bSeq"];
	if($chgmode == false) {
		$upflg = 1;							//更新フラグON
	}
}
if ($dSeq == False && $chgmode != "f"){
	$dSeq = $_POST["dSeq"];
	if($chgmode == false) {
		$upflg = 1;							//更新フラグON
	}
}
if ($cSeq == False && $chgmode != "f"){
	if ($chgmode == "b" || $chgmode == "d") {
		$cSeq = "999";
		if($chgmode == false) {
			$upflg = 1;							//更新フラグON
		}
	} else {
		$cSeq = $_POST["cSeq"];
		if($chgmode == false) {
			$upflg = 1;							//更新フラグON
		}
	}
}

//入金一覧からも画面更新でもSeqが渡されていない場合、先頭のSeqを取得
if ($bSeq == False) {
	$bSeq = get_bunrui_head($bSeq);
}
if ($dSeq == False) {
	$dSeq = get_dai_head($bumon, $bSeq);
}
if ($cSeq == False) {
	$cSeq = "999";
}

//コンボボックスの年取得
if($SIM_cboYaer == ""){
	$SIM_cboYaer = date("Y");
}
$lstY = year_lst($SIM_cboYaer);

//月
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;
}

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

//年月配列
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;
	}
}
//前の年月
$prevYM[0] = $SIM_cboYaer;
$prevYM[1] = intval($SIM_cboMon) -1;
if($prevYM[1] < 1){
	$prevYM[0] = intval($prevYM[0]) - 1;
	$prevYM[1] = intval($SIM_cboMon) + 11;
}
//当月
$nowYM[0] = date("Y");
$nowYM[1] = date("n");

//基準年月
$strSQL = "SELECT * FROM rcv_kanri WHERE kanri_id=2";
$objRec = pg_exec($strSQL);
if($objRec==false){
	echo("SQL実行に失敗しました(SELECT)");
	exit;
}
if(pg_numrows($objRec)>0){
		$objData = pg_fetch_object($objRec, 0);
		$Kijyun_Month   = $objData->kanri_data;
}else{
		$Kijyun_Month   = "4";
}
if($SIM_cboMon < $Kijyun_Month){
	$baseYM[0] = $SIM_cboYaer - 1;
	$baseYM[1] = $Kijyun_Month;
}else if($Kijyun_Month + 12 - $SIM_cboMon > 12){
	$baseYM[0] = $SIM_cboYaer - 1;
	$baseYM[1] = $Kijyun_Month;
}else{
	$baseYM[0] = $SIM_cboYaer;
	$baseYM[1] = $Kijyun_Month;
}

//コンボボックスの期間名取得
$bunrui = edit_bunrui($bSeq);

//メニューボックスの大区分取得
if ($chgmode === "b") {
	$dkoumoku = edit_dai($bumon, $bSeq, "999");
}else{
	$dkoumoku = edit_dai($bumon, $bSeq, $dSeq);
}

//コンボボックスの小区分取得
if ($chgmode === "b" ) {
	$ckoumoku = edit_chu($bumon, $bSeq, "", "999");
}elseif ($chgmode === "d") {
	$ckoumoku = edit_chu($bumon, $bSeq, $dSeq, "999");
}else{
	$ckoumoku = edit_chu($bumon, $bSeq, $dSeq, $cSeq);
}

//テーブル表示項目取得 初回表示
if($bSeq == True || $chgmode != False) {

	$strSQL = "";
	//初回表示
	if ($bSeq == "" && $chgmode == True){
		$strSQL = "select * from bunrui_tbl order by disp_rank";
		$objRec = pg_exec($strSQL);
		if($objRec==false){
			echo("SQL実行に失敗しました(SELECT)");
			exit;
		}
		$objData = pg_fetch_object($objRec, 0);

		$strSQL = "SELECT bt.bunrui_seq, bt.bunrui_name, kt.koumoku_seq AS kt_seq, kt.koumoku_name AS kt_name, ";
		$strSQL .= "kt2.koumoku_seq AS kt2_seq, kt2.koumoku_name AS kt2_name ";
		$strSQL .= "FROM bunrui_tbl AS bt INNER JOIN koumoku_tbl AS kt ON (bt.bunrui_seq = kt.koumoku_parent) ";
		$strSQL .= "INNER JOIN koumoku_tbl AS kt2 ON (kt.koumoku_seq = kt2.koumoku_parent) ";
		$strSQL .= "INNER JOIN kengen_tbl AS ken ON (ken.koumoku_seq = kt2.koumoku_seq) ";
		$strSQL .= "WHERE bunrui_seq = ". $objData->bunrui_seq ." AND kt.koumoku_mode = 1 AND ";
		$strSQL .= "kt2.koumoku_mode = 2 AND ken.bumon_seq = ".$bumon." ";
		$strSQL .= "ORDER BY bt.disp_rank, kt.disp_rank, kt2.disp_rank";
	}

	//収支切替・更新
	if ($bSeq == True) {
		$strSQL = "SELECT bt.bunrui_seq, bt.bunrui_name, kt.koumoku_seq AS kt_seq, kt.koumoku_name AS kt_name, ";
		$strSQL .= "kt2.koumoku_seq AS kt2_seq, kt2.koumoku_name AS kt2_name ";
		$strSQL .= "FROM bunrui_tbl AS bt INNER JOIN koumoku_tbl AS kt ON (bt.bunrui_seq = kt.koumoku_parent) ";
		$strSQL .= "INNER JOIN koumoku_tbl AS kt2 ON (kt.koumoku_seq = kt2.koumoku_parent) ";
		$strSQL .= "INNER JOIN kengen_tbl AS ken ON (ken.koumoku_seq = kt2.koumoku_seq) ";
		$strSQL .= "WHERE kt.koumoku_mode = 1 AND kt2.koumoku_mode = 2 ";

		//期間の絞込み
		if ($bSeq !== "999") {
			$strSQL .= "AND bt.bunrui_seq = ". $bSeq ." ";
			//大項目の絞込み
			if ($dSeq == False || $chgmode ==="b") {
				//大項目が空のとき、大項目の先頭を取得
				$dSeq = get_dai_head($bumon, $bSeq);
			}
			$strSQL .= "AND kt.koumoku_seq = ". $dSeq ." ";
			
			//小区分の絞込み
			if ($cSeq === "999") {
				//条件なし
			}else{
				$strSQL .= "AND kt2.koumoku_seq = ". $cSeq ." ";
			}
		}
		$strSQL .= " AND ken.bumon_seq = ".$bumon." ";
		$strSQL .= "ORDER BY bt.disp_rank, kt.disp_rank, kt2.disp_rank";
	}
	
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	$bSeq = 0;
	$dSeq = 0;
	
	//入金データ取得
	if(pg_num_rows($objRec) > 0){
		//レコード取得
		for ($i = 0; $i < pg_numrows($objRec); $i++) {
			$objData = pg_fetch_object($objRec, $i);
			$objTabDat[$i] = $objData;
			$kSeq[$i] = $objData->kt2_seq;
			$kName[$i] = $objData->kt2_name;
			if ($sMode === "1" || $sMode == False) {
				for($j=0;$j<count($dataYM);$j++){
					//収入
					$strSQL2 = "select * from nyukin_tbl where koumoku_seq = ".$kSeq[$i]." and nyukin_year = ".$dataYM[$j][0]." and nyukin_month = ".$dataYM[$j][1]." and nyukin_mode = 1 ";
					$objRec2 = pg_exec($strSQL2);
					if($objRec2==false){
						echo("SQL実行に失敗しました(SELECT)");
						exit;
					}
					if(pg_numrows($objRec2) > 0){
						//金額の取得
						$objData2 = pg_fetch_object($objRec2, 0);
						$dataIn[$i][$j] = $objData2->nyukin_data;
						$up_name[$i][$j] = $objData2->up_name;
						$up_time[$i][$j] = $objData2->up_time;
					}
					
					//コメントの取得
					$jbuff = intval($j)+1;
					$strSQL3 = "SELECT * FROM comment_tbl WHERE koumoku_seq = ".$kSeq[$i]." AND nyukin_year = ".$dataYM[$j][0]." AND nyukin_month = ".$dataYM[$j][1]." AND nyukin_mode = 1 ";
					$objRec3 = pg_exec($strSQL3);
					if($objRec3==false){
						echo("SQL実行に失敗しました(SELECT)");
						exit;
					}
					if(pg_numrows($objRec3) > 0){
						$objData3 = pg_fetch_object($objRec3, 0);
						$CommentTxt[$i][$j] = $objData3->comment_text;
					}
				}
				
			}elseif ($sMode === "2") {
				for($j=0;$j<count($dataYM);$j++){
					//支出
					$strSQL2 = "select * from nyukin_tbl where koumoku_seq = ".$kSeq[$i]." and nyukin_year = ".$dataYM[$j][0]." and nyukin_month = ".$dataYM[$j][1]." and nyukin_mode = 2 ";
					$objRec2 = pg_exec($strSQL2);
					if($objRec2==false){
						echo("SQL実行に失敗しました(SELECT)");
						exit;
					}
					if(pg_numrows($objRec2) > 0){
						//金額の取得
						$objData2 = pg_fetch_object($objRec2, 0);
						$dataOut[$i][$j] = $objData2->nyukin_data;
						$up_name[$i][$j] = $objData2->up_name;
						$up_time[$i][$j] = $objData2->up_time;
					}

					//コメントの取得
					$ibuff = intval($j)+1;
					$strSQL3 = "SELECT * FROM comment_tbl WHERE koumoku_seq = ".$kSeq[$i]." and nyukin_year = ".$dataYM[$j][0]." and nyukin_month = ".$dataYM[$j][1]." AND nyukin_mode = 2 ";
					$objRec3 = pg_exec($strSQL3);
					if(pg_numrows($objRec3) > 0){
						$objData3 = pg_fetch_object($objRec3, 0);
						$CommentTxt[$i][$j] = $objData3->comment_text;
					}
				}
			}
		}
	}
}

//金額単位取得
$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  = "千円";
}

//HTMLヘッダの書き出し
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> 

<html>
<head>
	<meta http-equiv="content-type" content="text/html; cahrset=euc-jp">
	<meta http-equiv="content-style-type" content="text/css">
	<meta name="robots" content="noindex, nofollow">
	<script type="text/javascript" src="./js/jquery1.3.2.js"></script>
	<script type="text/javascript" src="./js/jquery-ui-1.7.1.custom.min.js"></script>
	<script type="text/javascript" src="./js/jquery.tipsy.js"></script>
	<script type="text/javascript" src="./js/SIM0210.js"></script>
	<title><?PHP  echo($PHP_SYSNAME); ?></title>
	<link type="text/css" href="./templates/jquery-ui-1.7.1.css" rel="stylesheet" />
	<link type="text/css" href="./templates/tipsy.css" rel="stylesheet" />
	<link rel="stylesheet" href="./templates/SIMmain.css" type="text/css" />
</head>
<?PHP 

//タイトル部分の表示
dspTitle($PHP_SYSNAME, $PHP_GROUP_NAME, $PHP_BUMON_NAME, $PHP_USER_NAME,"http://www.f-mtclab.net/article/134351877.html#help0");

//メインHTML部分の表示
//[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_SHIKIN',$PHP_USER_SHIKIN);
$o_smarty->assign('START_YEAR',$START_YEAR);
$o_smarty->assign('START_MONTH',$START_MONTH);

//$o_smarty->assign('lstY',$lstY);
$o_smarty->assign('SIM_cboKikan',$SIM_cboKikan);
$o_smarty->assign('sUnitName',$sUnitName);

$o_smarty->assign('bSeq',$bSeq);
$o_smarty->assign('bunrui',$bunrui);
$o_smarty->assign('dSeq',$dSeq);
$o_smarty->assign('dkoumoku',$dkoumoku);
$o_smarty->assign('cSeq',$cSeq);
$o_smarty->assign('ckoumoku',$ckoumoku);
$o_smarty->assign('kSeq',$kSeq);
$o_smarty->assign('kName',$kName);

$o_smarty->assign('nowYM',$nowYM);
$o_smarty->assign('prevYM',$prevYM);
$o_smarty->assign('baseYM',$baseYM);
$o_smarty->assign('dataYM',$dataYM);
$o_smarty->assign('sMode',$sMode);
$o_smarty->assign('objTabDat',$objTabDat);
$o_smarty->assign('CommentTxt',$CommentTxt);
$o_smarty->assign('dataIn',$dataIn);
$o_smarty->assign('dataOut',$dataOut);

$o_smarty->assign('btn_sim',$btn_sim);
$o_smarty->assign('btn_lst',$btn_lst);

$o_smarty->assign('bkurl',$_REQUEST["bkurl"]);

$o_smarty->assign('up_name'    ,  $up_name);
$o_smarty->assign('up_time'    ,  $up_time);

$o_smarty->display('SIM0210.tpl');

//フッタ部分の表示
dspFooter($DEFARR[1], $DEFARR[3],"http://www.f-mtclab.net/article/134351877.html#help0");


//関数
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 edit_bunrui($prm){

	$strSQL = "select * from bunrui_tbl order by disp_rank";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	for ($j = 0; $j < pg_numrows($objRec); $j++) {
		$objData = pg_fetch_object($objRec, $j);
		$bSeq[$j] = $objData->bunrui_seq;
		$bName[$j] = $objData->bunrui_name;
	}

	$ret = "";
	for($i=0;$i<count($bSeq);$i++){
		if($bSeq[$i] == $prm){
			$ret .= "<option value='".$bSeq[$i]."' selected>".$bName[$i]."</option>";
		}else{
			$ret .= "<option value='".$bSeq[$i]."'>".$bName[$i]."</option>";
		}
	}
	return $ret;
}
//大項目のコンボボックス作成（引数：部門Seq, 分類seq, 大項目Seq, 返値：小区分Seq）
function edit_dai($bumon, $prm, $prm2){

	//親Seq.が無いとき、先頭の分類Seq.を取得
	if ($prm==FALSE) {
		$prm = get_bunrui_head($prm);
	}

	//分類Seq.から大項目を取得
	$strSQL  = "SELECT DISTINCT kou1.koumoku_seq, kou1.koumoku_name ";
	$strSQL .= "FROM koumoku_tbl AS kou2 ";
	$strSQL .= "INNER JOIN koumoku_tbl AS kou1 ON (kou1.koumoku_seq = kou2.koumoku_parent) ";
	$strSQL .= "INNER JOIN kengen_tbl  AS ken  ON (ken.koumoku_seq = kou2.koumoku_seq) ";
	$strSQL .= "WHERE ";
	$strSQL .= "kou1.koumoku_parent = ".$prm." AND ";
	$strSQL .= "kou2.koumoku_mode = 2 AND ";
	$strSQL .= "kou1.koumoku_mode = 1 AND ";
	$strSQL .= "ken.bumon_seq = ".$bumon." " ;
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		//大項目Seq.と大項目名を配列に格納
		for ($j = 0; $j < pg_numrows($objRec); $j++) {
			$objData = pg_fetch_object($objRec, $j);
			$kSeq[$j] = $objData->koumoku_seq;
			$kName[$j] = $objData->koumoku_name;
		}
		//大項目Seq.が引数にある場合、選択住みにする。
		$ret = "";
		for($i=0;$i<count($kSeq);$i++){
			if($kSeq[$i] == $prm2){
				$ret .= "<option value='".$kSeq[$i]."' selected>".$kName[$i]."</option>";
			}else{
				$ret .= "<option value='".$kSeq[$i]."'>".$kName[$i]."</option>";
			}
		}
	}else{
		$ret .= "<option value=\"999\" selected>全て</option>";
	}

	return $ret;

}

//小区分のコンボボックス作成（引数：(部門Seq, 分類seq, 大項目Seq, 小区分Seq)、返値：小区分Seq）
function edit_chu($bumon, $prm, $prm2, $prm3){

	//親Seq.が無いとき、分類Seqから先頭の大項目Seq.を取得
	if ($prm2==FALSE) {
		$prm2 = get_dai_head($bumon, $prm);
	}

	//大項目Seq.から小区分を取得
	$strSQL  = "SELECT kou2.koumoku_seq, kou2.koumoku_name ";
	$strSQL .= "FROM koumoku_tbl AS kou2 ";
	$strSQL .= "INNER JOIN kengen_tbl  AS ken ON (ken.koumoku_seq = kou2.koumoku_seq) ";
	$strSQL .= "WHERE ";
	$strSQL .= "kou2.koumoku_parent = ".$prm2." AND ";
	$strSQL .= "kou2.koumoku_mode = 2 AND ";
	$strSQL .= "ken.bumon_seq = ".$bumon." ";
	$strSQL .= "ORDER BY kou2.disp_rank ";

	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	//小区分Seq.と小区分名を配列に格納
	for ($j = 0; $j < pg_numrows($objRec); $j++) {
		$objData = pg_fetch_object($objRec, $j);
		$cSeq[$j] = $objData->koumoku_seq;
		$cName[$j] = $objData->koumoku_name;
	}
	//小区分Seq.が引数にある場合、選択住みにする。
	$ret = "";
	for($i=0;$i<count($cSeq);$i++){
		if($cSeq[$i] == $prm3){
			$ret .= "<option value='".$cSeq[$i]."' selected>".$cName[$i]."</option>";
		}else{
			$ret .= "<option value='".$cSeq[$i]."'>".$cName[$i]."</option>";
		}
	}
	//小区分Seq.の引数が999の場合、小区分を全件取得
	if($prm3 === "999"){
		$ret .= "<option value=\"999\" selected>全て</option>";
	}else{
		$ret .= "<option value=\"999\">全て</option>";
	}
	return $ret;
}

//先頭の分類シーケンスNo.を取得
function get_bunrui_head($prm){

	$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) {
		$objData = pg_fetch_object($objRec, 0);
		$ret = $objData->bunrui_seq;
	}

	return $ret;
}

//期間中で先頭となる大項目シーケンスNo.を取得(引数：部門Seq, 分類Seq、返り値：大項目Seq)
function get_dai_head($bumon, $prm){

	$strSQL  = "SELECT kou1.koumoku_seq, kou1.koumoku_name ";
	$strSQL .= "FROM koumoku_tbl AS kou1 ";
	$strSQL .= "INNER JOIN koumoku_tbl AS kou2 ON (kou2.koumoku_parent = kou1.koumoku_seq) ";
	$strSQL .= "INNER JOIN kengen_tbl AS ken ON (kou2.koumoku_seq = ken.koumoku_seq) ";
	$strSQL .= "WHERE ";
	$strSQL .= "kou1.koumoku_mode = 1 AND kou1.koumoku_parent = ".$prm." AND ";
	$strSQL .= "kou2.koumoku_mode = 2 AND ken.bumon_seq = ".$bumon." ";
	$strSQL .= "ORDER BY kou1.disp_rank";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		$ret = $objData->koumoku_seq;
	}else{
		$ret = -1;
	}

	return $ret;
}

//大項目中で先頭となる小区分シーケンスNo.を取得(引数：大項目Seq、返り値：小区分Seq)
function get_chu_head($prm){

	$strSQL = "SELECT * FROM koumoku_tbl WHERE koumoku_mode = 2 AND koumoku_parent = ".$prm." ORDER BY disp_rank";
	$objRec = pg_exec($strSQL);
	if($objRec==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if (pg_numrows($objRec) > 0) {
		$objData = pg_fetch_object($objRec, 0);
		$ret = $objData->koumoku_seq;
	}

	return $ret;
}


?>