<?PHP 
//*****************************************************************************
//* プログラム名：実績損益表
//* プログラムID：ZIS0200.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");

//表示年月
$disp_y = trim($ZIS_cboY);
$disp_m = trim($ZIS_cboM);
if($disp_y == ""){
	$disp_y = date("Y");
}
if($disp_m == ""){
	$disp_m = date("n");
}
//年月リスト
$lstY  = "";
for($i=-2;$i<=2;$i++){
	if(($disp_y+$i) == $disp_y){
		$lstY .= "<option value='".($disp_y+$i)."' selected>".($disp_y+$i)."</option>";
	}else{
		$lstY .= "<option value='".($disp_y+$i)."'>".($disp_y+$i)."</option>";
	}
}
$lstM  = "";
for($i=1;$i<=12;$i++){
	if($i == $disp_m){
		$lstM .= "<option value='".($i)."' selected>".($i)."</option>";
	}else{
		$lstM .= "<option value='".($i)."'>".($i)."</option>";
	}
}

//基本データ
$strSQL = "SELECT * FROM z_mst_base";
$objRec = pg_exec($strSQL);
if($objRec==false){
	echo("SQL実行に失敗しました(SELECT)");
	exit;
}
if(pg_numrows($objRec)==0){
	echo("SQL実行に失敗しました(SELECT:0)");
	header("Location:./ZIS9900.php");
	exit;
}
$objData = pg_fetch_object($objRec, 0);
//金額単位
$zis_unit = $objData->unit_flg;
$strUnit = get_unit($zis_unit);
$numUnit = get_unitNum($zis_unit);
//決算翌月
if($objData->kessan_month == 12){
	$start_m = 1;
}else{
	$start_m = $objData->kessan_month + 1;
}
//決算翌月の年
if($start_m > $disp_m){
	$start_y = $disp_y - 1;
}else{
	$start_y = $disp_y;
}
//最初の月？
if($start_m == $disp_m){
	$dispStart = 1;
}else{
	$dispStart = 0;
}
//echo "開始年月 = ".$start_y.".".$start_m;
/*
データ配列strData[][]
 １次元
 　配列インデックス
 ２次元
　 0:データseq
　 1:kseq1
　 2:kseq2
　 3:kseq3
　 4:kseq4
　 5:kseq5
　 6:名称
　 7:区分
　 8:金額
　 9:前月繰越金額
  10:金額種類 0:登録金額 1:合計金額 
  11:当月増減高 
  12:累計増減高 
  13:BGCOLOR 
*/
$strData = "";
$intCntARR = 0;
$total1 = 0;	//１階層合計金額格納用
$total2 = 0;	//２階層合計金額格納用
$total3 = 0;	//３階層合計金額格納用
$total4 = 0;	//４階層合計金額格納用
$total5 = 0;	//５階層合計金額格納用

$zanTotal1 = 0;	//１階層繰越合計金額格納用
$zanTotal2 = 0;	//２階層繰越合計金額格納用
$zanTotal3 = 0;	//３階層繰越合計金額格納用
$zanTotal4 = 0;	//４階層繰越合計金額格納用
$zanTotal5 = 0;	//５階層繰越合計金額格納用

$ruiTotal1 = 0;	//１階層累計金額格納用
$ruiTotal2 = 0;	//２階層累計金額格納用
$ruiTotal3 = 0;	//３階層累計金額格納用
$ruiTotal4 = 0;	//４階層累計金額格納用
$ruiTotal5 = 0;	//５階層累計金額格納用

$strSQL1  = "";
$strSQL1 .= "SELECT ";
$strSQL1 .= " * ";
$strSQL1 .= "FROM ";
$strSQL1 .= " z_mst_kanjo ";
$strSQL1 .= "LEFT JOIN ";
$strSQL1 .= " z_monthly_data ";
$strSQL1 .= "ON ";
$strSQL1 .= " kseq1 = cseq1 AND ";
$strSQL1 .= " kseq2 = cseq2 AND ";
$strSQL1 .= " kseq3 = cseq3 AND ";
$strSQL1 .= " kseq4 = cseq4 AND ";
$strSQL1 .= " kseq5 = cseq5 AND ";
$strSQL1 .= " data_year = ".$disp_y." AND ";
$strSQL1 .= " data_month = ".$disp_m." ";
$strSQL1 .= "WHERE ";
$strSQL1 .= " kseq1 <> 0 AND ";
$strSQL1 .= " kseq2 = 0 AND ";
$strSQL1 .= " kseq3 = 0 AND ";
$strSQL1 .= " kseq4 = 0 AND ";
$strSQL1 .= " kseq5 = 0 ";
$strSQL1 .= "ORDER BY ";
$strSQL1 .= " disp_rank";
$objRec1 = pg_exec($strSQL1);
if($objRec1==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
}
for ($intI = 0; $intI < pg_numrows($objRec1); $intI++) {
//１階層
	$objData1 = pg_fetch_object($objRec1, $intI);
	$strSQL2  = "";
	$strSQL2 .= "SELECT ";
	$strSQL2 .= " * ";
	$strSQL2 .= "FROM ";
	$strSQL2 .= " z_mst_kanjo ";
	$strSQL2 .= "LEFT JOIN ";
	$strSQL2 .= " z_monthly_data ";
	$strSQL2 .= "ON ";
	$strSQL2 .= " kseq1 = cseq1 AND ";
	$strSQL2 .= " kseq2 = cseq2 AND ";
	$strSQL2 .= " kseq3 = cseq3 AND ";
	$strSQL2 .= " kseq4 = cseq4 AND ";
	$strSQL2 .= " kseq5 = cseq5 AND ";
	$strSQL2 .= " data_year = ".$disp_y." AND ";
	$strSQL2 .= " data_month = ".$disp_m." ";
	$strSQL2 .= "WHERE ";
	$strSQL2 .= " kseq1 = ".($objData1->kseq1)." AND ";
	$strSQL2 .= " kseq2 <> 0 AND ";
	$strSQL2 .= " kseq3 = 0 AND ";
	$strSQL2 .= " kseq4 = 0 AND ";
	$strSQL2 .= " kseq5 = 0 ";
	$strSQL2 .= "ORDER BY ";
	$strSQL2 .= " disp_rank";
	$objRec2 = pg_exec($strSQL2);
	if($objRec2==false){
			echo("SQL実行に失敗しました(SELECT)");
			exit;
	}
	$total2 = 0;
	$zanTotal2 = 0;
	$ruiTotal2 = 0;
	for ($intJ = 0; $intJ < pg_numrows($objRec2); $intJ++) {
	//２階層
		$objData2 = pg_fetch_object($objRec2, $intJ);
		$strSQL3  = "";
		$strSQL3 .= "SELECT ";
		$strSQL3 .= " * ";
		$strSQL3 .= "FROM ";
		$strSQL3 .= " z_mst_kanjo ";
		$strSQL3 .= "LEFT JOIN ";
		$strSQL3 .= " z_monthly_data ";
		$strSQL3 .= "ON ";
		$strSQL3 .= " kseq1 = cseq1 AND ";
		$strSQL3 .= " kseq2 = cseq2 AND ";
		$strSQL3 .= " kseq3 = cseq3 AND ";
		$strSQL3 .= " kseq4 = cseq4 AND ";
		$strSQL3 .= " kseq5 = cseq5 AND ";
		$strSQL3 .= " data_year = ".$disp_y." AND ";
		$strSQL3 .= " data_month = ".$disp_m." ";
		$strSQL3 .= "WHERE ";
		$strSQL3 .= " kseq1 = ".($objData2->kseq1)." AND ";
		$strSQL3 .= " kseq2 = ".($objData2->kseq2)." AND ";
		$strSQL3 .= " kseq3 <> 0 AND ";
		$strSQL3 .= " kseq4 = 0 AND ";
		$strSQL3 .= " kseq5 = 0 ";
		$strSQL3 .= "ORDER BY ";
		$strSQL3 .= " disp_rank";
		$objRec3 = pg_exec($strSQL3);
		if($objRec3==false){
				echo("SQL実行に失敗しました(SELECT)");
				exit;
		}
		$total3 = 0;
		$zanTotal3 = 0;
		$ruiTotal3 = 0;
		for ($intK = 0; $intK < pg_numrows($objRec3); $intK++) {
		//３階層
			$objData3 = pg_fetch_object($objRec3, $intK);
			$strSQL4  = "";
			$strSQL4 .= "SELECT ";
			$strSQL4 .= " * ";
			$strSQL4 .= "FROM ";
			$strSQL4 .= " z_mst_kanjo ";
			$strSQL4 .= "LEFT JOIN ";
			$strSQL4 .= " z_monthly_data ";
			$strSQL4 .= "ON ";
			$strSQL4 .= " kseq1 = cseq1 AND ";
			$strSQL4 .= " kseq2 = cseq2 AND ";
			$strSQL4 .= " kseq3 = cseq3 AND ";
			$strSQL4 .= " kseq4 = cseq4 AND ";
			$strSQL4 .= " kseq5 = cseq5 AND ";
			$strSQL4 .= " data_year = ".$disp_y." AND ";
			$strSQL4 .= " data_month = ".$disp_m." ";
			$strSQL4 .= "WHERE ";
			$strSQL4 .= " use_flg = 1 AND ";
			$strSQL4 .= " kseq1 = ".($objData3->kseq1)." AND ";
			$strSQL4 .= " kseq2 = ".($objData3->kseq2)." AND ";
			$strSQL4 .= " kseq3 = ".($objData3->kseq3)." AND ";
			$strSQL4 .= " kseq4 <> 0 AND ";
			$strSQL4 .= " kseq5 = 0 ";
			$strSQL4 .= "ORDER BY ";
			$strSQL4 .= " disp_rank";
			$objRec4 = pg_exec($strSQL4);
			if($objRec4==false){
					echo("SQL実行に失敗しました(SELECT)");
					exit;
			}
			$total4 = 0;
			$zanTotal4 = 0;
			$ruiTotal4 = 0;
			for ($intL = 0; $intL < pg_numrows($objRec4); $intL++) {
			//４階層
				$objData4 = pg_fetch_object($objRec4, $intL);
				$strSQL5  = "";
				$strSQL5 .= "SELECT ";
				$strSQL5 .= " * ";
				$strSQL5 .= "FROM ";
				$strSQL5 .= " z_mst_kanjo ";
				$strSQL5 .= "LEFT JOIN ";
				$strSQL5 .= " z_monthly_data ";
				$strSQL5 .= "ON ";
				$strSQL5 .= " kseq1 = cseq1 AND ";
				$strSQL5 .= " kseq2 = cseq2 AND ";
				$strSQL5 .= " kseq3 = cseq3 AND ";
				$strSQL5 .= " kseq4 = cseq4 AND ";
				$strSQL5 .= " kseq5 = cseq5 AND ";
				$strSQL5 .= " data_year = ".$disp_y." AND ";
				$strSQL5 .= " data_month = ".$disp_m." ";
				$strSQL5 .= "WHERE ";
				$strSQL5 .= " kseq1 = ".($objData4->kseq1)." AND ";
				$strSQL5 .= " kseq2 = ".($objData4->kseq2)." AND ";
				$strSQL5 .= " kseq3 = ".($objData4->kseq3)." AND ";
				$strSQL5 .= " kseq4 = ".($objData4->kseq4)." AND ";
				$strSQL5 .= " kseq5 <> 0 ";
				$strSQL5 .= "ORDER BY ";
				$strSQL5 .= " disp_rank";
				$objRec5 = pg_exec($strSQL5);
				if($objRec5==false){
						echo("SQL実行に失敗しました(SELECT)");
						exit;
				}
				$total5 = 0;
				$zanTotal5 = 0;
				$ruiTotal5 = 0;
				for ($intM = 0; $intM < pg_numrows($objRec5); $intM++) {
				//５階層
					$objData5 = pg_fetch_object($objRec5, $intM);
					$strData[$intCntARR][0] = $objData5->data_seq;				//データseq
					$strData[$intCntARR][1] = $objData5->kseq1;					//kseq1
					$strData[$intCntARR][2] = $objData5->kseq2;					//kseq2
					$strData[$intCntARR][3] = $objData5->kseq3;					//kseq3
					$strData[$intCntARR][4] = $objData5->kseq4;					//kseq4
					$strData[$intCntARR][5] = $objData5->kseq5;					//kseq5
					$strData[$intCntARR][6] = "　　　　".$objData5->kanjo_name;	//科目名称
					$strData[$intCntARR][7] = get_kubun($objData5->ptn_flg);	//区分
					$strData[$intCntARR][8] = NtoZ($objData5->data_money);		//当月残高
					$strData[$intCntARR][10] = 0;								//登録値(0) or 計算値(1) ５階層は登録値(0)固定
					$total5 = $total5 + NtoZ($objData5->data_money);			//当月残高の合計
					//前月繰越金
					if($dispStart == 1){
						//決算翌月は初期登録金額
						$strData[$intCntARR][9] =  NtoZ($objData5->base_money);
					}else{
						//決算翌月以外は登録金額
						$strData[$intCntARR][9] = get_prevData($disp_y,$disp_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
					}
					//当月増減残高＝当月残高−繰越金
					$strData[$intCntARR][11] = $strData[$intCntARR][8] - $strData[$intCntARR][9];
					//当月増減高＝当月残高−初期登録残高（５階層は初期登録残高で固定）
					$strData[$intCntARR][12] = $strData[$intCntARR][8] - get_InitData($start_y,$start_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
					//合計値
					$zanTotal5 = $zanTotal5 + $strData[$intCntARR][9];					//前月繰越金
					$ruiTotal5 = $ruiTotal5 + $strData[$intCntARR][12];					//累計増減高
					//表示フォーマット
					$strData[$intCntARR][11] = number_format(floor($strData[$intCntARR][11] / $numUnit));	//当月増減高
					$strData[$intCntARR][12] = number_format(floor($strData[$intCntARR][12] / $numUnit));	//累計増減高
//					if($dispStart != 1 ){
					//決算翌月以外
						$strData[$intCntARR][9] = number_format(floor($strData[$intCntARR][9] / $numUnit));	//前月繰越金
//					}
					//配列カウントアップ
					$intCntARR++;
				}
				
				//４階層
				$strData[$intCntARR][0] = $objData4->data_seq;				//データseq
				$strData[$intCntARR][1] = $objData4->kseq1;					//kseq1
				$strData[$intCntARR][2] = $objData4->kseq2;					//kseq2
				$strData[$intCntARR][3] = $objData4->kseq3;					//kseq3
				$strData[$intCntARR][4] = $objData4->kseq4;					//kseq4
				$strData[$intCntARR][5] = $objData4->kseq5;					//kseq5
				$strData[$intCntARR][6] = "　　　".$objData4->kanjo_name;	//科目名称
				$strData[$intCntARR][7] = get_kubun($objData4->ptn_flg);	//区分
				$strData[$intCntARR][9] =  NtoZ($objData4->base_money);		//前月繰越金
				if(pg_numrows($objRec5) > 0){
				//配下にデータがある⇒計算値
					$strData[$intCntARR][8] = $total5;						//当月残高　　計算値を設定
					$strData[$intCntARR][10] = 1;							//表示フラグ　1:計算値
					$strData[$intCntARR][12] = $ruiTotal5;					//当月増減高　計算値
				}else{
				//配下にデータがない⇒登録値
					$strData[$intCntARR][8] = NtoZ($objData4->data_money);	//当月残高
					$strData[$intCntARR][10] = 0;							//表示フラグ　0:登録値
					//当月増減高＝当月残高−初期登録残高
					$strData[$intCntARR][12] = $strData[$intCntARR][8] - get_InitData($start_y,$start_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
				}
				$total4 = $total4 + $strData[$intCntARR][8];				//当月残高の合計
				//前月繰越金
				if($dispStart == 1 && pg_numrows($objRec5) == 0){
				//決算翌月 AND 下階層にデータなし
					$strData[$intCntARR][9] = NtoZ($objData4->base_money);	//前月繰越金 ＝　初期登録金額
				}else{
				//上記以外
					if(pg_numrows($objRec5) > 0){
					//下階層にデータあり　⇒　前月繰越金 ＝　下階層の前月繰越金合計値
						$strData[$intCntARR][9] = $zanTotal5;
					}else{
					//下階層にデータなし　⇒　前月繰越金 ＝　前月の当月残高
						$strData[$intCntARR][9] = get_prevData($disp_y,$disp_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
					}
				}
				//当月増減高　＝　当月残高　−　前月繰越金
				$strData[$intCntARR][11] = $strData[$intCntARR][8] - $strData[$intCntARR][9];
				//合計値
				$zanTotal4 = $zanTotal4 +  $strData[$intCntARR][9];			//前月繰越金
				$ruiTotal4 = $ruiTotal4 + $strData[$intCntARR][12];			//累計増減高
				//表示フォーマット
//				if($strData[$intCntARR][10] == 1){
				//計算値の場合
					$strData[$intCntARR][8] = number_format(floor($strData[$intCntARR][8] / $numUnit));	//当月残高
//				}
//				if($dispStart != 1){
				//決算翌月以外
					$strData[$intCntARR][9] =  number_format(floor($strData[$intCntARR][9] / $numUnit));	//前月繰越金
//				}else{
//					if($strData[$intCntARR][10] == 1){
//					//決算翌月で計算値
//						$strData[$intCntARR][9] =  number_format($strData[$intCntARR][9]);	//前月繰越金
//					}
//				}
				$strData[$intCntARR][11] = number_format(floor($strData[$intCntARR][11] / $numUnit));		//当月増減高
				$strData[$intCntARR][12] = number_format(floor($strData[$intCntARR][12] / $numUnit));		//累計増減高
				//配列カウントアップ
				$intCntARR++;
			}
			
			//３階層
			$strData[$intCntARR][0] = $objData3->data_seq;
			$strData[$intCntARR][1] = $objData3->kseq1;
			$strData[$intCntARR][2] = $objData3->kseq2;
			$strData[$intCntARR][3] = $objData3->kseq3;
			$strData[$intCntARR][4] = $objData3->kseq4;
			$strData[$intCntARR][5] = $objData3->kseq5;
			$strData[$intCntARR][6] = "　　".$objData3->kanjo_name;
			$strData[$intCntARR][7] = get_kubun($objData3->ptn_flg);
			$strData[$intCntARR][9] =  NtoZ($objData3->base_money);
			$strData[$intCntARR][13] = "#ffff99";
			if(pg_numrows($objRec4) > 0){
				$strData[$intCntARR][8] = $total4;
				$strData[$intCntARR][10] = 1;
				$strData[$intCntARR][12] = $ruiTotal4;
			}else{
				$strData[$intCntARR][8] = NtoZ($objData3->data_money);
				$strData[$intCntARR][10] = 0;
				$strData[$intCntARR][12] = $strData[$intCntARR][8] - get_InitData($start_y,$start_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
			}
			$total3 = $total3 + $strData[$intCntARR][8];
			if($dispStart == 1 && pg_numrows($objRec4) == 0){
				$strData[$intCntARR][9] = NtoZ($objData3->base_money);
			}else{
				if(pg_numrows($objRec4) > 0){
					$strData[$intCntARR][9] = $zanTotal4;
				}else{
					$strData[$intCntARR][9] = get_prevData($disp_y,$disp_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
				}
			}
			$strData[$intCntARR][11] = $strData[$intCntARR][8] - $strData[$intCntARR][9];
			$zanTotal3 = $zanTotal3 +  $strData[$intCntARR][9];
			$ruiTotal3 = $ruiTotal3 + $strData[$intCntARR][12];
//			if($strData[$intCntARR][10] == 1){
				$strData[$intCntARR][8] = number_format(floor($strData[$intCntARR][8] / $numUnit));
//			}
//			if($dispStart != 1){
				$strData[$intCntARR][9] =  number_format(floor($strData[$intCntARR][9] / $numUnit));
//			}else{
//				if($strData[$intCntARR][10] == 1){
//					$strData[$intCntARR][9] =  number_format($strData[$intCntARR][9]);	//前月繰越金
//				}
//			}
			$strData[$intCntARR][11] = number_format(floor($strData[$intCntARR][11] / $numUnit));
			$strData[$intCntARR][12] = number_format(floor($strData[$intCntARR][12] / $numUnit));
			$intCntARR++;
		}

		//２階層
		$strData[$intCntARR][0] = $objData2->data_seq;
		$strData[$intCntARR][1] = $objData2->kseq1;
		$strData[$intCntARR][2] = $objData2->kseq2;
		$strData[$intCntARR][3] = $objData2->kseq3;
		$strData[$intCntARR][4] = $objData2->kseq4;
		$strData[$intCntARR][5] = $objData2->kseq5;
		$strData[$intCntARR][6] = "　".$objData2->kanjo_name;
		$strData[$intCntARR][7] = get_kubun($objData2->ptn_flg);
		$strData[$intCntARR][9] =  NtoZ($objData2->base_money);
		$strData[$intCntARR][13] = "#99ff99";
		if(pg_numrows($objRec3) > 0){
			$strData[$intCntARR][8] = $total3;
			$strData[$intCntARR][10] = 1;
			$strData[$intCntARR][12] = $ruiTotal3;
		}else{
			$strData[$intCntARR][8] = NtoZ($objData2->data_money);
			$strData[$intCntARR][10] = 0;
			$strData[$intCntARR][12] = $strData[$intCntARR][8] - get_InitData($start_y,$start_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
		}
		$total2 = $total2 + get_PM($objData2->ptn_flg) * $strData[$intCntARR][8];	//２階層だけ！！？
		if($dispStart == 1 && pg_numrows($objRec3) == 0){
			$strData[$intCntARR][9] = NtoZ($objData2->base_money);
		}else{
			if(pg_numrows($objRec3) > 0){
				$strData[$intCntARR][9] = $zanTotal3;
			}else{
				$strData[$intCntARR][9] = get_prevData($disp_y,$disp_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
			}
		}
		$strData[$intCntARR][11] = $strData[$intCntARR][8] - $strData[$intCntARR][9];
		$zanTotal2 = $zanTotal2 + get_PM($objData2->ptn_flg) * $strData[$intCntARR][9];		//２階層だけ！！？
		$ruiTotal2 = $ruiTotal2 + get_PM($objData2->ptn_flg) * $strData[$intCntARR][12];	//２階層だけ！！？
//		if($strData[$intCntARR][10] == 1){
			$strData[$intCntARR][8] = number_format(floor($strData[$intCntARR][8] / $numUnit));
//		}
//		if($dispStart != 1){
			$strData[$intCntARR][9] =  number_format(floor($strData[$intCntARR][9] / $numUnit));
//		}else{
//			if($strData[$intCntARR][10] == 1){
//				$strData[$intCntARR][9] =  number_format($strData[$intCntARR][9]);	//前月繰越金
//			}
//		}
		$strData[$intCntARR][11] = number_format(floor($strData[$intCntARR][11] / $numUnit));
		$strData[$intCntARR][12] = number_format(floor($strData[$intCntARR][12] / $numUnit));
		$intCntARR++;
	}
	
	//１階層
	$strData[$intCntARR][0] = $objData1->data_seq;
	$strData[$intCntARR][1] = $objData1->kseq1;
	$strData[$intCntARR][2] = $objData1->kseq2;
	$strData[$intCntARR][3] = $objData1->kseq3;
	$strData[$intCntARR][4] = $objData1->kseq4;
	$strData[$intCntARR][5] = $objData1->kseq5;
	$strData[$intCntARR][6] = "".$objData1->kanjo_name;
	$strData[$intCntARR][7] = get_kubun($objData1->ptn_flg);
	$strData[$intCntARR][9] =  NtoZ($objData1->base_money);
	$strData[$intCntARR][13] = "#99ffff";
	if(pg_numrows($objRec2) > 0){
		$strData[$intCntARR][8] = $total2;
		$strData[$intCntARR][10] = 1;
		$strData[$intCntARR][12] = $ruiTotal2;
	}else{
		$strData[$intCntARR][8] = NtoZ($objData1->data_money);
		$strData[$intCntARR][10] = 0;
		$strData[$intCntARR][12] = $strData[$intCntARR][8] - get_InitData($start_y,$start_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
	}
	$total1 = $total1 +  $strData[$intCntARR][8];
	if($dispStart == 1 && pg_numrows($objRec2) == 0){
		$strData[$intCntARR][9] = NtoZ($objData1->base_money);
	}else{
		if(pg_numrows($objRec2) > 0){
			$strData[$intCntARR][9] = $zanTotal2;
		}else{
			$strData[$intCntARR][9] = get_prevData($disp_y,$disp_m,$strData[$intCntARR][1],$strData[$intCntARR][2],$strData[$intCntARR][3],$strData[$intCntARR][4],$strData[$intCntARR][5]);
		}
	}
	$strData[$intCntARR][11] = $strData[$intCntARR][8] - $strData[$intCntARR][9];
//	if($strData[$intCntARR][10] == 1){
		$strData[$intCntARR][8] = number_format(floor($strData[$intCntARR][8] / $numUnit));
//	}
//	if($dispStart != 1){
		$strData[$intCntARR][9] =  number_format(floor($strData[$intCntARR][9] / $numUnit));
//	}else{
//		if($strData[$intCntARR][10] == 1){
//			$strData[$intCntARR][9] =  number_format($strData[$intCntARR][9]);	//前月繰越金
//		}
//	}
	$strData[$intCntARR][11] = number_format(floor($strData[$intCntARR][11] / $numUnit));
	$strData[$intCntARR][12] = number_format(floor($strData[$intCntARR][12] / $numUnit));
	$intCntARR++;
}

$o_smarty->assign('strData',$strData);
$o_smarty->assign('lstY',$lstY);
$o_smarty->assign('lstM',$lstM);
$o_smarty->assign('dispStart',$dispStart);
$o_smarty->assign('strUnit',$strUnit);

function NtoZ($prm){
//Nullと空文字をゼロに置き換えます
	if(is_null($prm) || trim($prm) == "" ){
		return 0;
	}else{
		return $prm;
	}
}

function get_prevData($y,$m,$s1,$s2,$s3,$s4,$s5){
//前月分の当月残高を取得する関数です
	//前月
	$key_m = $m - 1;
	if($key_m == 0){
		$key_y = $y - 1;
		$key_m = 12;
	}else{
		$key_y = $y;
	}
	$strSQLT  = "SELECT data_money FROM z_monthly_data ";
	$strSQLT .= "WHERE ";
	$strSQLT .= " data_year = ".$key_y." AND ";
	$strSQLT .= " data_month = ".$key_m." AND ";
	$strSQLT .= " cseq1 = ".NtoZ($s1)." AND ";
	$strSQLT .= " cseq2 = ".NtoZ($s2)." AND ";
	$strSQLT .= " cseq3 = ".NtoZ($s3)." AND ";
	$strSQLT .= " cseq4 = ".NtoZ($s4)." AND ";
	$strSQLT .= " cseq5 = ".NtoZ($s5)." ";
	$objRecT = pg_exec($strSQLT);
	if($objRecT==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if(pg_numrows($objRecT) > 0){
		$objDataT = pg_fetch_object($objRecT, 0);
		return NtoZ($objDataT->data_money);
	}else{
		return 0;
	}
}

function get_InitData($sy,$sm,$s1,$s2,$s3,$s4,$s5){
//初期登録金額を取得する関数です
	$strSQLT  = "SELECT base_money FROM z_monthly_data ";
	$strSQLT .= "WHERE ";
	$strSQLT .= " data_year = ".$sy." AND ";
	$strSQLT .= " data_month = ".$sm." AND ";
	$strSQLT .= " cseq1 = ".NtoZ($s1)." AND ";
	$strSQLT .= " cseq2 = ".NtoZ($s2)." AND ";
	$strSQLT .= " cseq3 = ".NtoZ($s3)." AND ";
	$strSQLT .= " cseq4 = ".NtoZ($s4)." AND ";
	$strSQLT .= " cseq5 = ".NtoZ($s5)." ";
	$objRecT = pg_exec($strSQLT);
	if($objRecT==false){
		echo("SQL実行に失敗しました(SELECT)");
		exit;
	}
	if(pg_numrows($objRecT) > 0){
		$objDataT = pg_fetch_object($objRecT, 0);
		return NtoZ($objDataT->base_money);
	}else{
		return 0;
	}
}
function get_kubun($flg){
//貸借区分を取得する関数です
	if($flg == 1){
		return "借方";
	}else if($flg == 2){
		return "貸方";
	}else{
		return "----";	
	}
}
function get_PM($flg){
//加算の正負を取得する関数です
	if($flg == 1){
		return -1;
	}else if($flg == 2){
		return 1;
	}else{
		return 0;	
	}
}
//*** 単位取得 ***//
function get_unit($ptn_flg) { 
		$strReturn = "";
		switch ($ptn_flg) {
		case "1": $strReturn = "千"; break;
		case "2": $strReturn = "万"; break;
		default : $strReturn = "円"; break;
		}
		return $strReturn;
}
//*** 単位計算値 ***//
function get_unitNum($ptn_flg) { 
		$strReturn = "";
		switch ($ptn_flg) {
		case "1": $strReturn = 1000; break;
		case "2": $strReturn = 10000; break;
		default : $strReturn = 1; break;
		}
		return $strReturn;
}

//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/ZIS0200.js"></script>
	<script type="text/javascript" src="./js/input_chk.js"></script>
	<title><?PHP  echo($PHP_SYSNAME); ?></title>
	<link rel="stylesheet" href="./templates/SIMmain.css" type="text/css" />
	<link rel="stylesheet" href="./templates/css/ZIS.css" type="text/css" />
</head>
<?PHP 

//タイトル部分の表示
dspTitle($PHP_SYSNAME, $PHP_GROUP_NAME, $PHP_BUMON_NAME, $PHP_USER_NAME, "http://www.f-mtclab.net/article/149565245.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_ADMIN',$PHP_USER_ADMIN);
$o_smarty->assign('PHP_USER_NYUKIN',$PHP_USER_NYUKIN);
$o_smarty->assign('PHP_USER_SHIKIN',$PHP_USER_SHIKIN);
$o_smarty->assign('PHP_USER_SEQ',$PHP_USER_SEQ);

$o_smarty->assign('User_Sikaku' , $User_Sikaku);				//入力資格

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

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