var ClickTab = false;

var allchecked = "false";


/**
 * @desc   : Source NodeÀÇ °¹¼ö¸¦ ±¸ÇÑ´Ù.
 * @
 * @param  : path  -  node path
 * @return : 
 * @authur : ±è¼±Å 2007. 5. 8
 * @---------------------------------------------------
 */
function getNodeSetCnt(path)
{
	var insXml = model.instances(0);
	var nodeList = insXml.selectNodes(path);
	return nodeList.length;
}


/**
 * @desc   : Source NodeÀÇ child nodelist¸¦ DestinationÀÇ nodelist·Î appendÇÑ´Ù.
 * @
 * @param  : strDest  -  µµÂønode path
 *         : strSrc   -  Ãâ¹ßnode path
 * @return : 
 * @authur : ÀÌ»óÇö 2007. 3. 27
 * @---------------------------------------------------
 */
function addCopyNodeset(strDest, strSrc, mode, destModel, srcModel) {

	if( destModel == null || destModel =="" )
		destModel = document.models.item(0);
		
	if( srcModel == null || srcModel =="" )
		srcModel = document.models.item(0);
		
	var srcNodeList = srcModel.instances(0).selectNodes(strSrc);
	var srcNode;
		
	var pDestNode = destModel.instances.item(0).selectSingleNode(strDest).parentNode;
	
	if( mode == "replace" || mode == null ) {	
		destModel.removeNodeset(strDest);
		while( srcNode = srcNodeList.nextNode() ) {
			pDestNode.appendChild(srcNode.cloneNode(true));
		}
	}
	
	else if( mode == "after" ) {
		while( srcNode = srcNodeList.nextNode() ) {
			pDestNode.appendChild(srcNode.cloneNode(true));
		}
	}
	
	else if( mode == "before" ) {	
		var destNode;				
		for( var i = srcNodeList.length - 1; i >= 0; i-- ) {
			destNode = destModel.instances.item(0).selectSingleNode(strDest + "[1]");
			pDestNode.insertBefore(srcNodeList.item(i).cloneNode(true), destNode);
		}
	}
}

/**
 * @desc   : »ç¿ëÀÚÀÇ ±ÇÇÑÀ» üũÇÏ¿© ¹öÆ°¼ÂÆÃ.
 *           btn_r Á¶È¸¹öÆ°, btn_x ÀúÀå ¹× ¼öÁ¤ ¹öÆ°, btn_p : Ãâ·Â¹öÆ°
 * @
 * @param  : 
 * @return : 
 * @authur : ±è¼±Å 2007. 5. 8
 * @---------------------------------------------------
 */
function fchkAuth()
{
			
	for(var i=0; i<= document.controls.length-1 ; i++){
			if(document.controls.item(i).elementName == "xforms:button"){
				if(document.controls.item(i).attribute("id").substr(0,6) == "btn_r_"){
					document.controls.item(i).disabled = !checkAuth("R");	
				}
				
				if(document.controls.item(i).attribute("id").substr(0,6) == "btn_x_"){
					document.controls.item(i).disabled = !checkAuth("X");	
				}
				
				if(document.controls.item(i).attribute("id").substr(0,6) == "btn_p_"){
					document.controls.item(i).disabled = !checkAuth("P");	
				}
			
			}
		}	

}



/**
 * @desc   : ÆûÃʱâÈ­
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fFormInit()
{
		//ÄÁÆ®·Ñ ±ÇÇÑ ¼³Á¤
		fchkAuth();

		//°øÅëÄÚµå °¡Á®¿À±â...
		//M0424:Â÷Æ®ºÐ½ÇÄÚµå
		zbcfGetCodeList(new Array("M0424"),	new Array("/root/init/M0424"));
		
		model.removeNodeset("/root/main/chartlend/clrs/applist");
		model.removeNodeset("/root/main/chartlend/clrs/rendlist");
		
		btn_movchrt.dispatch("onclick");
		
		var today = getCurrentDate();
		var valitodd = (today.toDate()).getAddDate(-90);	
		valitodd = valitodd.getDateFormat();

		model.setValue("/root/req/chartlend/rendcd"		, "");
		model.setValue("/root/req/chartlend/appdeptcd"	, "");
		model.setValue("/root/req/chartlend/lendmanid"	, "");
		model.setValue("/root/req/chartlend/renddd"		, today);
		model.setValue("/root/req/chartlend/appmanid"	, getUserId());
		model.setValue("/root/req/chartlend/appman"		, getUserName());
		model.setValue("/root/req/chartlend/acptid"		, getUserId());

		model.setValue("/root/req/chartreturn/rendcd"	, "ALL");
		model.setValue("/root/req/chartreturn/appdeptcd", "ALL");
		model.setValue("/root/req/chartreturn/fromappdd", today);
		model.setValue("/root/req/chartreturn/toappdd"	, today);
		model.setValue("/root/req/chartreturn/fromrtndd", "");
		model.setValue("/root/req/chartreturn/tortndd"	, "");

		ipt_fromrtndd.disabled = true;
		ipt_tortndd.disabled = true;
		rtnterm_disabled.value = "";

		model.setValue("/root/req/chartlend/resettm"	, getCurrentTime());
		model.setValue("/root/req/chartreturn/resettm"	, getCurrentTime());
					
		model.removeNodeset("/root/main/rendreport/report/chrtlist");
		model.removeNodeset("/root/main/rendreport/report/unpreplist");
		model.removeNodeset("/root/main/rendreport/report/chrtlendlist");
		model.removeNodeset("/root/main/rendreport/report/chrtstatlist");
		model.refresh();

}


/**
 * @desc   : ÅÇ Å¬¸¯...
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fClickTab()
{
		if (ClickTab == false)
		{
			ClickTab = true;

			//°øÅëÄÚµå °¡Á®¿À±â...
			//M0392:íƮ¹Ì´ëÃâ»çÀ¯ÄÚµå
			//M0412:°úº¸°ü»çÀ¯ÄÚµå
			zbcfGetCodeList(new Array("M0392","M0412"),	new Array("/root/init/M0392","/root/init/M0412"));

			// ´ëÃâ¿ëµµ, ´ëÃâ°ú, Â÷Æ®°ú, Â÷Æ®´ã´çÀÚ, º¸°üÀå¼Ò
			model.makeValue("/root/send/reqdata/ioflag"   , "I");
			model.makeValue("/root/send/reqdata/useyn"    , "Y");
			model.makeValue("/root/send/reqdata/allwardyn", "");
			model.refresh();
			submit("TRMRC00100");
			
			model.removeNodeset("/root/main/chartlend/clrs/chrtlendlist");
			model.removeNodeset("/root/main/chartreturn/clrs/rtntrgtlist");
			model.removeNodeset("/root/main/chartreturn/clrs/rtnlist");
			model.refresh();

		}
}


/**
 * @desc   : íƮ ¹Ý³³ ¿ìŬ¸¯½Ã - > íƮ ¹Ý³³
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fsetrtnchart(bcflag)
{
		var ref = "/root/main/chartreturn/clrs/rtntrgtlist";
		var grdObj = grd_rendlist2;

   		var savedata = "status¢Ëpid¢Ëioflag¢Ëchrtflag¢Ëbcno¢Ëmedirecno¢Ëchrtseqno¢Ì";
		var dataString = "";
		var dataCount = 0;

		if (bcflag == "Y"){
			var bcno = model.getValue("/root/req/chartreturn/bcno");
			if (bcno != ""){
				dataString = dataString + "u¢Ë¢ËI¢ËI¢Ë" + bcno + "¢Ë¢Ë¢Ì";
			}
			if (dataString.length > 0)
			{
				model.makeValue("/root/send/savedata", savedata + dataString);
				model.refresh();

				if (submit("TXMRC02702", "", "/root/send/savedata", "/root/main/result") == true){
					// 2008.01.25. ¹ÙÄÚµå ¹øÈ£ Ŭ¸®¾î...
					model.makeValue("/root/req/chartreturn/bcno", "");
					ipt_rtnbcno.refresh();
					// ´Ù½ÃÁ¶È¸..
					model.setValue("/root/req/chartreturn/acptid", getUserId());
					fGetUserRtnList();
				}
			}
		
		} else {

			if (bcflag == "C") {
				for ( var i = 0; i < grdObj.rows; i++)
				{		
					var checked		= model.getValue(ref + "[" + i + "]/checked");
					if (checked == "true")
					{
						var pid			= model.getValue(ref + "[" + i + "]/pid");
						var bcno		= model.getValue(ref + "[" + i + "]/bcno");
						var medirecno	= model.getValue(ref + "[" + i + "]/medirecno");
						var chrtseqno	= model.getValue(ref + "[" + i + "]/chrtseqno");

						if (chrtseqno != ""){
							dataString = dataString + "u¢Ë" + pid + "¢ËI¢ËI¢Ë" + bcno + "¢Ë" + medirecno + "¢Ë" + chrtseqno + "¢Ì";
							dataCount = dataCount + 1;
						}
					}
				}
			} else {
				for ( var i = 0; i < grdObj.selectedRows; i++)
				{		
					var pid			= model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/pid");
					var bcno		= model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/bcno");
					var medirecno	= model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/medirecno");
					var chrtseqno	= model.getValue(ref + "[" + grdObj.selectedrow(i) + "]/chrtseqno");

					if (chrtseqno != ""){
						dataString = dataString + "u¢Ë" + pid + "¢ËI¢ËI¢Ë" + bcno + "¢Ë" + medirecno + "¢Ë" + chrtseqno + "¢Ì";
						dataCount = dataCount + 1;
					}
				}
			}

			if (dataString.length > 0)
			{
				model.makeValue("/root/send/savedata", savedata + dataString);
				model.refresh();

				if (submit("TXMRC02702", "", "/root/send/savedata", "/root/main/result") == true){
					alert("ÃÑ " + dataCount + " °Ç íƮ¹Ý³³ µÇ¾ú½À´Ï´Ù.");
					// ´Ù½Ã Á¶È¸Çϱâ..
					fGetRtnList();
					// ´Ù½ÃÁ¶È¸..
					model.setValue("/root/req/chartreturn/acptid", getUserId());
					fGetUserRtnList();
				}
			}
		}

}




/**
 * @desc   : íƮ ¹Ý³³ ¿ìŬ¸¯½Ã - > Â÷Æ® ºÐ½Ç ó¸®
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.28
 * @---------------------------------------------------
 */
function fsetlosschrt()
{
		if(grd_rendlist2.row < 1){
			return;
		}
		// 2008.07.28. Â÷Æ® ºÐ½Ç ó¸®Çϱâ...
		fShowWndIptBox();
}


/**
 * @desc   : íƮ»óŸ¦ ¼öÁ¤ÇÑ´Ù.
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.28
 * @---------------------------------------------------
 */
function fUpdateChrtStat()
{		
		// 2008.07.28. Â÷Æ® ºÐ½Ç ó¸®Çϱâ...
		var chrtstat   = model.getValue("/root/hidden/lendlist/chrtstat");
		var chrtstatnm = model.getValue("/root/init/M0424/M0424[cdid='" + chrtstat + "']/cdnm");

		var savedata ="medirecno¢Ëchrtseqno¢Ëchrtstat¢Ëmsgcnts¢Ì";
		var dataString = "";
		var dataCount = 0;

		for ( var i = 0; i < grd_rendlist2.selectedRows; i++)
		{		
			var medirecno = model.getValue("/root/main/chrtrtn/rtntrgtlist[" + grd_rendlist2.selectedrow(i) + "]/medirecno");
			var chrtseqno = model.getValue("/root/main/chrtrtn/rtntrgtlist[" + grd_rendlist2.selectedrow(i) + "]/chrtseqno");
			var msgcnts   = model.getValue("/root/main/chrtrtn/rtntrgtlist[" + grd_rendlist2.selectedrow(i) + "]/msgcnts");
			msgcnts = msgcnts + "[" + chrtstatnm + "]";

			if (chrtseqno != "") {
				dataString = dataString + medirecno + "¢Ë" + chrtseqno + "¢Ë" + chrtstat + "¢Ë" + msgcnts + "¢Ì";
				dataCount = dataCount + 1;
			}
		}
		
		grup_losschrt.visible = false;

		if (dataString.length > 0)
		{
			model.makeValue("/root/send/savedata", savedata + dataString);
			model.refresh();
			submit("TXMRC00107");
			alert("ÃÑ " + dataCount + " °Ç Â÷Æ® ºÐ½Ç ó¸® µÇ¾ú½À´Ï´Ù.");

			// ´Ù½Ã Á¶È¸Çϱâ..
			fGetRtnList();
		}		
}




/**
 * @desc   : íƮ ´ëÃâ Á¶È¸
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fGetLendList()
{
		model.setValue("/root/req/chartlend/ioflag", "I");
		model.setValue("/root/req/chartlend/acptid", "");
		model.setValue("/root/req/chartlend/renddd", getCurrentDate());	
		model.setValue("/root/req/chartlend/resettm", "000000");		

		model.copyNode("/root/send/reqdata", "/root/req/chartlend");

		// íƮ´ëÃâÀÌ·ÂÁ¶È¸
		submit("TRMRC02703", "true", "/root/send/reqdata", "/root/main/chartlend/clrs/chrtlendlist");

		var pid = model.getValue("/root/req/chartlend/pid");
		if (pid.length > 0) {						
			model.setValue("/root/req/chartlend/chrtpid",  pid);
			model.refresh();
			btn_chrtlist.dispatch("DOMActivate");
		}

		// 2008.01.02. ´ëÃâÇöȲ Á¶È¸ ÃѰǼö..
		model.setValue ("/root/req/chartlend/count", grd_rendlist.rows - 1);
		cap_rendlist.refresh();
}


/**
 * @desc   : íƮ ´ëÃâ Á¶È¸ - ¹ÙÅ©µµ ÀÔ·ÂÈÄ ´ëÃâÇöȲ¸¸ ´Ù½ÃÁ¶È¸ÇÑ´Ù. (·Î±×ÀÎ »ç¿ëÀÚº°)
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fGetUserLendList()
{
		model.setValue("/root/req/chartlend/ioflag", "I");
		model.setValue("/root/req/chartlend/acptid", getUserId());
		model.setValue("/root/req/chartlend/renddd", getCurrentDate());	

		model.copyNode("/root/send/reqdata", "/root/req/chartlend");

		// íƮ´ëÃâÀÌ·ÂÁ¶È¸
		submit("TRMRC02703", "true", "/root/send/reqdata", "/root/main/chartlend/clrs/chrtlendlist");

		// 2008.01.02. ´ëÃâÇöȲ Á¶È¸ ÃѰǼö..
		model.setValue ("/root/req/chartlend/count", grd_rendlist.rows - 1);
		cap_rendlist.refresh();
}


/**
 * @desc   : íƮ ¹Ý³³ Á¶È¸
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fGetRtnList()
{
		model.setValue("/root/req/chartreturn/ioflag", "I");
		model.copyNode("/root/send/reqdata", "/root/req/chartreturn");

		submit("TRMRC02704");		
}


/**
 * @desc   : íƮ ¹Ý³³ Á¶È¸ - ¹ÙÅ©µµ ÀÔ·ÂÈÄ ¹Ý³³ÇöȲ¸¸ ´Ù½ÃÁ¶È¸ÇÑ´Ù. (·Î±×ÀÎ »ç¿ëÀÚº°)
 * @
 * @param  : 
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fGetUserRtnList()
{
		model.setValue("/root/req/chartreturn/ioflag", "I");
		model.copyNode("/root/send/reqdata", "/root/req/chartreturn");

		submit("TRMRC02705");			

		// 2008.01.02. ¹Ý³³ÇöȲ Á¶È¸ ÃѰǼö..
		model.setValue ("/root/req/chartreturn/count", grd_rtnlist.rows - 1);
		cap_rtnlist.refresh();
}


/**
 * @desc   : ÀÔ¿ø Â÷Æ® ¼±Åà ÈÄ -> ´ëÃâµî·Ï
 * @
 * @param  : bcflag : Y / N
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fSetLendChart(bcflag)
{
		// 2007.12.14. ´ëÃâÀÏÀÚ´Â ´çÀÏ·Î ÇÑ´Ù...
		var renddd		= getCurrentDate();

		// ´ëÃâµî·Ï 
		var rendcd		= model.getValue("/root/req/chartlend/rendcd");
		var appdeptcd	= model.getValue("/root/req/chartlend/appdeptcd");
		var lendmanid	= model.getValue("/root/req/chartlend/lendmanid");
		var appmanid	= model.getValue("/root/req/chartlend/appmanid");
		var msgcnts		= model.getValue("/root/req/chartlend/msgcnts");
		var cntctelno	= model.getValue("/root/req/chartlend/cntctelno");
		var chrtpid		= model.getValue("/root/req/chartlend/chrtpid");

		if (rendcd == ""){
			window.alert("´ëÃâ¿ëµµ¸¦ ¼±ÅÃÇØ ÁÖ¼¼¿ä", "Â÷Æ®´ëÃâ ¹× ¹Ý³³", 0 | 64);
			model.setFocus("cbo_l_rendcd");
			return;
		}
		if (appdeptcd == ""){
			window.alert("´ëÃâ°ú¸¦ ¼±ÅÃÇØ ÁÖ¼¼¿ä", "Â÷Æ®´ëÃâ ¹× ¹Ý³³", 0 | 64);
			model.setFocus("cbo_l_appdeptcd");
			return;
		}
		if (lendmanid == "" || lendmanid.isNumber()== false){
			window.alert("´ëÃâÀÚ¸¦ ¼±ÅÃÇØ ÁÖ¼¼¿ä", "Â÷Æ®´ëÃâ ¹× ¹Ý³³", 0 | 64);
			model.setFocus("cbo_l_lendmanid");
			return;
		}
	
		var icnt = 0;
		var HearderData = "status¢Ëpid¢Ëioflag¢Ëchrtflag¢Ëbcno¢Ëmedirecno¢Ërendcd¢Ëappdeptcd¢Ëlendmanid¢Ëappmanid¢Ëmsgcnts¢Ëcntctelno¢Ërendbcflag¢Ì";
		var tmpSaveData = "";

		if (bcflag == "Y")
		{
			var bcno = model.getValue("/root/req/chartlend/bcno");
			if (bcno == "" || bcno == "0"){
				window.alert("¹ÙÄÚµå¹øÈ£¸¦ ÀÔ·ÂÇØ ÁÖ¼¼¿ä", "Â÷Æ®´ëÃâ ¹× ¹Ý³³", 0 | 64);
				model.setFocus("ipt_lendbcno");
				return;
			}

			if (bcno != "" && bcno != "0")
			{
				tmpSaveData = tmpSaveData + "i¢Ë¢ËI¢ËI¢Ë" + bcno + "¢Ë¢Ë" ;
				tmpSaveData = tmpSaveData + rendcd + "¢Ë" + appdeptcd + "¢Ë" + lendmanid + "¢Ë" + appmanid + "¢Ë" + msgcnts + "¢Ë" + cntctelno + "¢ËB¢Ì";
			}

			if (tmpSaveData != ""){
				model.makeValue("/root/send/savedata", HearderData + tmpSaveData);
				submit("TXMRC02701", "", "/root/send/savedata", "/root/main/result");
				// ¹ÙÄÚµå¹øÈ£ ÃʱâÈ­
				model.setValue("/root/req/chartlend/bcno", "");
				ipt_lendbcno.refresh();	
				// ´Ù½ÃÁ¶È¸.. íƮ´ëÃâ
				fGetUserLendList();
			}

		} else {

			if (chrtpid == ""){
				window.alert("ȯÀÚ¹øÈ£¸¦ ÀÔ·ÂÇØ ÁÖ¼¼¿ä", "Â÷Æ®´ëÃâ ¹× ¹Ý³³", 0 | 64);
				model.setFocus("ipt_chrtpid");
				return;
			}

			for ( var i = 1; i < grd_chartlist.rows; i++)
			{	
				var pid			= model.getValue("/root/main/chartlend/chrtlist["+ i +"]/pid");
				var ioflag		= model.getValue("/root/main/chartlend/chrtlist["+ i +"]/ioflag");
				var chrtflag	= "I";
				var bcno		= model.getValue("/root/main/chartlend/chrtlist["+ i +"]/bcno");
				var medirecno	= model.getValue("/root/main/chartlend/chrtlist["+ i +"]/medirecno");
				
				var chkflag		= model.getValue("/root/main/chartlend/chrtlist["+ i +"]/chkflag");
				if(chkflag == "Y"){
					tmpSaveData = tmpSaveData + "i¢Ë" + pid + "¢Ë" + ioflag + "¢Ë" + chrtflag + "¢Ë¢Ë" + medirecno + "¢Ë" ;
					tmpSaveData = tmpSaveData + rendcd + "¢Ë" + appdeptcd + "¢Ë" + lendmanid + "¢Ë" + appmanid + "¢Ë" + msgcnts + "¢Ë" + cntctelno + "¢ËM¢Ì";
					icnt++;
				}		
			}

			if(icnt < 1){
				window.alert("´ëÃâÇÒ Â÷Æ®¸¦ ¼±ÅÃÇØ ÁÖ¼¼¿ä", "Â÷Æ®´ëÃâ ¹× ¹Ý³³", 0 | 64);
				return;
			}

			if (tmpSaveData != ""){
				model.makeValue("/root/send/savedata", HearderData + tmpSaveData);
				submit("TXMRC02701", "", "/root/send/savedata", "/root/main/result");
				// ´Ù½ÃÁ¶È¸.. Á¾ÀÌíƮ ¸®½ºÆ® 
				// 2008.12.11. ȯÀÚ¹øÈ£ üũ¹øÈ£ Á¶È¸ ¾ÈÇÏ°í ÀÔ¿øÂ÷Æ® Á¶È¸Çϱâ...
				var pid = model.getValue("/root/req/chartlend/chrtpid");
				model.makeValue("/root/send/reqdata/ioflag", "I");
				model.makeValue("/root/send/reqdata/pid", pid);	
				submit("TRMRC02700","","/root/send/reqdata","/root/main/chartlend/chrtlist");
				// ´Ù½ÃÁ¶È¸.. íƮ´ëÃâ 
				fGetUserLendList();
			}
		}
}



/**
 * @desc   : µî·ÏµÈ ȯÀÚ¹øÈ£ÀÎÁö üŷÇÑ´Ù..
 * @
 * @param  : iptObj - ȯÀÚ¹øÈ£ ÀÔ·Â ÄÁÆ®·Ñ (pid)
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.09.17
 * @---------------------------------------------------
 */
function fGetPidNo(iptObj, ref)
{
		var chkyn = model.getValue(ref);
		if (chkyn == "Y") {
			if (iptObj.currentText.length > 0) {
				var pid = iptObj.currentText;
				pid = getCretCheckNo(pid, getUserInfo("dutplceinstcd"));
				model.makeValue(iptObj.attribute("ref"), pid);
				iptObj.refresh();
			}
		}
}


/**
 * @desc   : µî·ÏµÈ ȯÀÚ¹øÈ£ÀÎÁö üŷÇÑ´Ù..
 * @
 * @param  : iptObj - ȯÀÚ¹øÈ£ ÀÔ·Â ÄÁÆ®·Ñ (pid)
 * @return : pnm    - ȯÀÚ¸í
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fCheckPid(iptObj, refPnm)
{
		model.makeValue("/root/send/req/srchcond", "1");
		model.makeValue("/root/send/req/pid", iptObj.currentText);
		
		//ȯÀÚµî·Ï¹øÈ£ üũ
		if(iptObj.currentText.length > 0 ){
			
			model.resetInstanceNode("/root/main/result/patinfo");
			model.makeNode("/root/main/result/patinfo");
					
			if(submit("TRPMC02500", "", "/root/send/req", "/root/main/result/patinfo")){
				//fSearch´Â ÀÎÀû»çÇ× È­¸éÀ» ÀÓÆ÷Æ® ÇØ°£ È­¸é¿¡¼­ ±¸ÇöÇØ ÁÖ¾î¾ß ÇÏ´Â ÇÔ¼öÀÌ´Ù.	
				if( getNodesetCount("/root/main/result/patinfo/patinfolist") > 0 ){
					model.copyNode("/root/main/patinfo", "/root/main/result/patinfo");
																	
					var pid = model.getValue("/root/main/result/patinfo/patinfolist/pid");
					var pnm = model.getValue("/root/main/result/patinfo/patinfolist/hngnm");
							
					if (refPnm != null)
					{
						model.makeValue(refPnm, pnm);
					}
					return pnm;
				}else{
					model.resetInstanceNode("/root/main/patinfo/patinfolist");
					messageBox("¾ø´Â ȯÀÚ ¹øÈ£ ÀÔ´Ï´Ù.", "E999", "");
					model.refresh();
					return "";
				}								
			}	
				
		}else{
			messageBox("ȯÀÚµî·Ï¹øÈ£¸¦ Á¤È®È÷", "C001");
			return "";
		}		
}



/**
 * @desc   : ȯÀÚµî·Ï¹øÈ£ Á¶È¸ Æ˾÷
 * @
 * @param  : refPid - ȯÀÚ¹øÈ£ Âü°í node path
 *           refPnm - ȯÀÚ¸í   Âü°í node path
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fGetPid(refPid, refPnm)
{
		//Á¶È¸°Ç¼ö°¡ 1°ÇÀÏ °æ¿ì Æ˾÷âÀ» ¹Ù·Î ´Ý´Â´Ù.
		model.setValue("/root/hidden/tmp/pidpopupinfo/checkfnexam", "1");
		model.setValue("/root/hidden/tmp/pidpopupinfo/autoflag", "N");
		if( model.getValue("/root/hidden/tmp/pidpopupinfo/srchcond") == '' ){
			model.setValue("/root/hidden/tmp/pidpopupinfo/srchcond", '2');	
		}
		
		modal("SPPMC02500", "1","150", "150", "SPPMC02500", "/root/hidden/tmp/pidpopupinfo", "/root/send");
		model.resetInstanceNode("/root/source");
		//ȯÀÚ¹øÈ£ copy
		var popupendflag = model.getValue("/root/main/popupendflag");
		
		if (popupendflag == "ok")
		{
			model.setValue(refPid, model.getValue("/root/main/patinfo/patinfolist/pid"));
			if (refPnm != null || refPnm != "") {
			model.setValue(refPnm, model.getValue("/root/main/patinfo/patinfolist/hngnm"));
			}
			model.refresh();
		}	
}



/**
 * @desc   : µî·ÏµÈ »ç¿ëÀÚ ¹øÈ£ÀÎÁö üŷÇÑ´Ù..
 * @
 * @param  : iptObj    - »ç¿ëÀÚ ID ÀÔ·Â ÄÁÆ®·Ñ (userid)
 * @return : posdeptcd - »ç¿ëÀÚ ºÎ¼­ÄÚµå
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fCheckUserid(iptObj)
{
		setInputNodeCurText();

		// »ç¿ëÀÚ ¹øÈ£ üũ
		if(iptObj.currentText.length > 0 ){

			// »ç¿ëÀÚ Á¶È¸
			model.removenode("/root/hidden/tmp/tempuserinfo/list");
			model.reset("/root/hidden/tmp/tempuserinfo");
			
			model.setValue("/root/hidden/tmp/userpopupinfo/param", "_OneS");
			model.setValue("/root/hidden/tmp/userpopupinfo/flag", "userid");
			model.setValue("/root/hidden/tmp/userpopupinfo/searchitem", iptObj.currentText);
			
			modal("SPZSU10103", "", "200", "200", "SPZSU10103","/root/hidden/tmp/userpopupinfo","/root/main/temp");
			
			var iParam = getParameter("SPZSU10103_"); 

			setCSVToNode("/root/hidden/tmp/tempuserinfo", iParam);
			clearParameter("SPZSU10103_");			

			//fSearch´Â ÀÎÀû»çÇ× È­¸éÀ» ÀÓÆ÷Æ® ÇØ°£ È­¸é¿¡¼­ ±¸ÇöÇØ ÁÖ¾î¾ß ÇÏ´Â ÇÔ¼öÀÌ´Ù.	
			if( getNodesetCount("/root/hidden/tmp/tempuserinfo/list") > 0 ){
				
				var userid		= model.getValue("/root/hidden/tmp/tempuserinfo/list/userid");
				var posdeptcd	= model.getValue("/root/hidden/tmp/tempuserinfo/list/posdeptcd");

				iptObj.value = userid;
				model.refresh();

				return posdeptcd;
				
				//fSearch();	
			}else{
				model.resetInstanceNode("/root/hidden/tmp/tempuserinfo/list");
				messageBox("¾ø´Â »ç¿ëÀÚ ¹øÈ£ ÀÔ´Ï´Ù.", "E999", "");
				model.refresh();
			}	
				
		}else{
			messageBox("»ç¿ëÀÚ ¹øÈ£¸¦ Á¤È®È÷", "C001");
		}		

		return "";
}


/**
 * @desc   : ¸¶¿ì½º ¿À¸¥ÂÊ ¹öÆ° Æ˾÷â
 * @		
 * @param  : job - 0:íƮ´ëÃâ, 1:íƮ¹Ý³³
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fMouseRghtBtnPopup(gridObj, job)
{
    if (event.button == 3) {
        if (gridObj.isCell(event.target) && gridObj.mouseRow >= gridObj.fixedrows) {
			if (job == "0") {
				model.removeNodeset("/root/send/savedata");
				window.setPopupMenu(true, "/root/hidden/applist_menu/menu", "label", "func", false);									      	
			} else if (job == "1") {
				model.removeNodeset("/root/send/savedata");
				window.setPopupMenu(true, "/root/hidden/rtntrgtlist_menu/menu", "label", "func", false);									      	
			} else {
				window.setPopupMenu(false);
			} 
        } else {
            window.setPopupMenu(false);
        }
    } else {
    	window.setPopupMenu(false);
    } 
}


/**
 * @desc   : Æ˾÷Æû º¸¿©ÁÖ±â..
 * @		
 * @param  : job -	0:íƮ´ëÃâ(¹Ì´ëÃâ»çÀ¯)	, 1:íƮ¹Ý³³(°úº¸°ü»çÀ¯), 
 * @				2:Á¢¼öÀÚ¸í´Ü(¹Ì´ëÃâ»çÀ¯), 3:íƮ¹Ý³³(´ëÃ⿬Àå)
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fShowWndIptBox(job) 
{
		grup_losschrt.visible		= "false";	

		model.setValue("/root/hidden/lendlist/chrtstat", "01");
		model.refresh();
		if (event.clientY < 300) {
			grup_losschrt.attribute("top") = event.clientY-110;
		} else {
			grup_losschrt.attribute("top") = 200;
		}
		grup_losschrt.visible = "true";	
}





/**
 * @desc   : ¼±ÅÃµÈ È¯ÀÚµî·Ï¹øÈ£·Î ÇöÀ§Ä¡Á¶È¸ ÅÜÀ̵¿..
 * @
 * @param  : gridObj - ±×¸®µå ÄÁÆ®·Ñ, ref - node path
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fMoveTabChartByPid(gridObj, ref){
 
		if (isDataCell() == false){
			return;
		}
		
		if (gridObj.row < 1){
			return;
		}
		
		var chrtdept = model.getValue(ref + "[" + gridObj.row +"]/chrtdeptcd");
		var pid		 = model.getValue(ref + "[" + gridObj.row +"]/pid");
		var pnm		 = model.getValue(ref + "[" + gridObj.row +"]/pnm");
		var renddd	 = model.getValue(ref + "[" + gridObj.row +"]/renddd");
		var dd		 = getCurrentDate();
		var valitodd = (dd.toDate()).getAddDate(-90);	
		valitodd = valitodd.getDateFormat();
		
		if(renddd == ""){
			renddd = valitodd;
		}
		
		model.makeValue("/root/req/rendreport/pid"	 , pid);
		model.makeValue("/root/req/rendreport/pnm"	 , pnm);
		model.makeValue("/root/req/rendreport/fromdd", renddd);
		model.makeValue("/root/req/rendreport/todd"	 , dd);
		model.makeValue("/root/req/rendreport/dept"	 , chrtdept);
		
		model.refresh();
		
		btn_movchrt.dispatch("onclick");
		// 2008.12.18. Â÷Æ®Á¤º¸ Á¶È¸Çϱâ..
		fChartHistory();
}








/**
 * @desc   : ÇöÀ§Ä¡Á¶È¸
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fChartHistory()
{
		if(isXPathTextNull("/root/req/rendreport/pid")){
			messageBox("ȯÀÚ¹øÈ£¸¦ ÀÔ·ÂÇØ ÁÖ¼¼¿ä.", "I999", "");
			return;
		}

		model.makeValue("/root/send/reqdata/medirecno", "");

		model.removeNodeset("/root/main/rendreport/report/chrtlist");
		model.removeNodeset("/root/main/rendreport/report/unpreplist");
		model.removeNodeset("/root/main/rendreport/report/chrtlendlist");
		model.removeNodeset("/root/main/rendreport/report/chrtstatlist");
		model.refresh();
		
		// ÀÔ¿øÂ÷Æ® Á¶È¸Çϱâ...
		model.setValue("/root/req/rendreport/ioflag", "I");
		model.copyNode("/root/send/reqdata", "/root/req/rendreport");
		submit("TRMRC02700","","/root/send/reqdata","/root/main/rendreport/report/chrtlist");
}

/**
 * @desc   : ÀÔ¿øÂ÷Æ® Á¶È¸
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fGetChartList()
{
		fGetPidNo(ipt_chrtpid, "/root/hidden/chkyn2");
		fCheckPid(ipt_chrtpid, "/root/req/chartlend/chrtpnm");

		// ÀÔ¿øÂ÷Æ® Á¶È¸Çϱâ...
		model.makeValue("/root/send/reqdata/ioflag", "I");
		var pid = ipt_chrtpid.currentText;
		model.makeValue("/root/send/reqdata/pid", pid);	
		submit("TRMRC02700","","/root/send/reqdata","/root/main/chartlend/chrtlist");	
}




/**
 * @desc   : ´ëÃâ¿ëµµ ÄÚµå ÀԷ½à ´ëÃâ¿ëµµ ÄÞº¸ ¼±Åõǵµ·Ï ÇÔ
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fSelectedComboLendCd(iptObj, comboRef)
{
		var lendcd = iptObj.currentText;
		lendcd = lendcd.getLeftPad(3, "0");
		var ref = iptObj.attribute("ref");
		model.setValue(ref, lendcd);
		model.setValue(comboRef, lendcd);
		model.refresh();
}

/**
 * @desc   : ´ëÃâ°ú ¾à¾î ÀԷ½à ´ëÃâ°ú ÄÞº¸ ¼±Åõǵµ·Ï ÇÔ
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.05.30
 * @---------------------------------------------------
 */
function fSelectedComboLendDeptCd(iptObj, comboObj)
{
		var lenddeptabbr = iptObj.currentText;
		lenddeptabbr = lenddeptabbr.toUpperCase( );
		var ref = iptObj.attribute("ref");
		model.setValue(ref, lenddeptabbr);
		var deptcd = model.getValue("/root/init/lendmastinfo/lenddeptlist[lenddeptabbr ='" + lenddeptabbr + "']/lenddeptcd");	
		var comboRef = comboObj.attribute("ref");
		model.setValue(comboRef, deptcd);
		model.refresh();
		if (deptcd != ""){
			// ´ëÃâ°ú¿¡ µû¸¥ ´ëÃâÀÚ(ÀÇ»ç) Á¶È¸Çϱâ
			comboObj.dispatch("xforms-value-changed");
		}
}

/**
 * @desc   : »ç¿ëÀÚÄÞº¸ Á¶È¸
 * @
 * @param  : ref       - reference path
 *           rsltref   - result reference path
 *           deptcd    - ºÎ¼­ÄÚµå
 *           jobkindcd - Á÷Á¾ÄÚµå
 *           jobposcd  - Á÷Ã¥ÄÚµå
 *           specordyn - ¼±ÅÃÁø·á¿©ºÎ
 * @return :
 * @author : 
 * @---------------------------------------------------
 */
function fGetUserComboList(ref, rsltref, deptcd, jobkindcd, specordyn)
{  
		model.removeNode(ref);
		model.makeValue(ref + "/deptcd"   , deptcd);    //ºÎ¼­ÄÚµå
		model.makeValue(ref + "/jobkindcd", jobkindcd); //Á÷Á¾ÄÚµå(ÀÇ»ç:0330)
		model.makeValue(ref + "/specordyn", specordyn); //¼±ÅÃÁø·á¿©ºÎ

		model.removeNode(rsltref);
		model.makeValue(rsltref + "/userlist/usercombo[1]/usernm", '-');
		model.makeValue(rsltref + "/userlist/usercombo[1]/userid", '');
		model.refresh();

		submit("TRMMB04102", "false", ref, rsltref + "/userlist");
}



/**
 * @desc   : Â÷Æ® ¹Ý³³¿¡¼­ ´ëÃâÀÏÀÚ ±â°£ ÄÞº¸ º¸¿©ÁÙ±î? ¸»±î?
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fLendTermDisabled()
{
		var lendtermdisabled = lendterm_disabled.value;
		if (lendtermdisabled == "Y") {									
			var today = getCurrentDate();
			var valitodd = (today.toDate()).getAddDate(-90);	
			valitodd = valitodd.getDateFormat();
			model.setValue("/root/req/chartreturn/fromappdd", today);
			model.setValue("/root/req/chartreturn/toappdd"	, today);
			ipt_rtnfromappdd.disabled = false;
			ipt_rtntoappdd.disabled = false;
		} else {
			model.setValue("/root/req/chartreturn/fromappdd", "");
			model.setValue("/root/req/chartreturn/toappdd"	, "");	
			ipt_rtnfromappdd.disabled = true;
			ipt_rtntoappdd.disabled = true;								
		}
			ipt_rtnfromappdd.refresh();
			ipt_rtntoappdd.refresh();
}


/**
 * @desc   : Â÷Æ® ¹Ý³³¿¡¼­ ¹Ý³³¿¹Á¤ÀÏ ±â°£ ÄÞº¸ º¸¿©ÁÙ±î? ¸»±î?
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fRrtTermDisabled()
{
		var rtntermdisabled = rtnterm_disabled.value;
		if (rtntermdisabled == "Y") {									
			var today = getCurrentDate();
			var valitodd = (today.toDate()).getAddDate(-90);	
			valitodd = valitodd.getDateFormat();
			model.setValue("/root/req/chartreturn/fromrtndd", today);
			model.setValue("/root/req/chartreturn/tortndd"	, today);
			ipt_fromrtndd.disabled = false;
			ipt_tortndd.disabled = false;
		} else {
			model.setValue("/root/req/chartreturn/fromrtndd", "");
			model.setValue("/root/req/chartreturn/tortndd"	, "");
			ipt_fromrtndd.disabled = true;
			ipt_tortndd.disabled = true;								
		}
			ipt_fromrtndd.refresh();
			ipt_tortndd.refresh();							
}



/**
 * @desc   : íƮ»óŸ¦ ¼öÁ¤ÇÑ´Ù.
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fUpdateChrtStat(){
		
		var medirecno = model.getValue("/root/req/rendreport/medirecno");
		if(medirecno == ""){
			messageBox("¼±ÅÃµÈ Â÷Æ®ÀÌ·ÂÀÌ ", "I004")
			return;
		}

		model.copyNode("/root/send/reqdata", "/root/req/rendreport");

		model.removeNodeset("/root/main/rendreport/report/chrtstatlist");
		submit("TXMRC01403", "true", "/root/send/reqdata", "/root/main/rendreport/report/chrtlist");
}


/**
 * @desc   : ¼±ÅÃµÈ Ã­Æ®Á¤º¸¸¦ Á¶È¸ÇÑ´Ù.
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fDisplayChrtInfo(gridObj){

		if (gridObj.row < 1){
			return;
		}
		
		var ref	= gridObj.nodeset;
		var row	= gridObj.row;
		
		var pid		  = model.getValue(ref + "[" + row +"]/pid");
		var pnm		  = model.getValue(ref + "[" + row +"]/pnm");
		var medirecno = model.getValue(ref + "[" + row +"]/medirecno");
		var orddeptcd = model.getValue(ref + "[" + row +"]/orddeptcd");
		var bcno	  = model.getValue(ref + "[" + row +"]/bcno");
		var chrtrem	  = model.getValue(ref + "[" + row +"]/chrtrem");
		var chrtstat  = model.getValue(ref + "[" + row +"]/chrtstat");
		var lendyn	  = model.getValue(ref + "[" + row +"]/lendyn");
		var lastorddd = model.getValue(ref + "[" + row +"]/lastorddd");
		var ioflag    = model.getValue(ref + "[" + row +"]/ioflag");
		var dschdd    = model.getValue(ref + "[" + row +"]/dschdd");
		
		model.makeValue("/root/req/rendreport/pid"	    , pid);
		model.makeValue("/root/req/rendreport/pnm"	    , pnm);
		model.makeValue("/root/req/rendreport/medirecno", medirecno);
		model.makeValue("/root/req/rendreport/orddeptcd", orddeptcd);
		model.makeValue("/root/req/rendreport/bcno"	    , bcno);
		model.makeValue("/root/req/rendreport/chrtrem"  , chrtrem);
		model.makeValue("/root/req/rendreport/chrtstat" , chrtstat);
		model.makeValue("/root/req/rendreport/lendyn"   , lendyn);
		model.makeValue("/root/req/rendreport/lastorddd", lastorddd);
		model.makeValue("/root/req/rendreport/ioflag"   , ioflag);
		model.makeValue("/root/req/rendreport/dschdd"   , dschdd);

		model.copyNode("/root/send/reqdata", "/root/req/rendreport");

		// ¹ÌºñÇöȲ
		submit("TRMRC02701", "true", "/root/send/reqdata", "/root/main/rendreport/report/unpreplist");
		// íƮ´ëÃâÀÌ·ÂÁ¶È¸
		submit("TRMRC02702", "true", "/root/send/reqdata", "/root/main/rendreport/report/chrtlendlist");
		// íƮºÐ½ÇÀÌ·ÂÁ¶È¸
		submit("TRMRC01401", "true", "/root/send/reqdata", "/root/main/rendreport/report/chrtstatlist");

}


/**
 * @desc   : ´ëÃâÀÚ Á¶È¸
 * @
 * @param  : refUserid - ´ëÃâÀÚ ID, refUserDeptcd - ¼Ò¼ÓºÎ¼­ÄÚµå ( posdeptcd )
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.03.18
 * @---------------------------------------------------
 */
function fGetUserid(refUserid, refUsernm, refUserDeptcd, cmbObj)
{
		model.removenode("/root/hidden/tmp/tempuserinfo/list");
		model.reset("/root/hidden/tmp/tempuserinfo");

		var user = model.getValue(refUserid);
		var flag = "userid";
		
		if(isNaN(user)){
			flag = "usernm";
		}
		
		model.setValue("/root/hidden/tmp/userpopupinfo/param", "_OneS");
		model.setValue("/root/hidden/tmp/userpopupinfo/flag", flag);
		model.setValue("/root/hidden/tmp/userpopupinfo/searchitem", user);
		
		modal("SPZSU10103", "", "200", "200", "SPZSU10103","/root/hidden/tmp/userpopupinfo","/root/main/temp");
		
		var iParam = getParameter("SPZSU10103_"); 

		setCSVToNode("/root/hidden/tmp/tempuserinfo", iParam);
		clearParameter("SPZSU10103_");
		
		model.refresh();

		//fSearch´Â ÀÎÀû»çÇ× È­¸éÀ» ÀÓÆ÷Æ® ÇØ°£ È­¸é¿¡¼­ ±¸ÇöÇØ ÁÖ¾î¾ß ÇÏ´Â ÇÔ¼öÀÌ´Ù.	
		if( getNodesetCount("/root/hidden/tmp/tempuserinfo/list") > 0 ){
			
			var userid		= model.getValue("/root/hidden/tmp/tempuserinfo/list/userid");
			var usernm		= model.getValue("/root/hidden/tmp/tempuserinfo/list/usernm");
			var posdeptcd	= model.getValue("/root/hidden/tmp/tempuserinfo/list/posdeptcd");

			if (!isNull(refUsernm)){
				if (isNaN(refUsernm)){
					model.makeValue(refUsernm, usernm);
				}
			}
			if (!isNull(refUserDeptcd)){
				if (isNaN(refUserDeptcd)){
					model.makeValue(refUserDeptcd, posdeptcd);		
				}
			}
			if (cmbObj != null){
				fAddUser(userid, usernm, cmbObj);
			}
			model.makeValue(refUserid, userid);
			model.refresh();
		}
}

/**
 * @desc   : ´ëÃâÀÚID, ´ëÃâÀÚ¸í ÄÞº¸¿¡ Ãß°¡Çϱâ
 * @
 * @param  : refUserid - ´ëÃâÀÚ ID, refUsernm - ´ëÃâÀÚ¸í
 * @return : 
 * @authur : ÀÌÀº¿µ 2008.09.01
 * @---------------------------------------------------
 */
function fAddUser(Userid, Usernm, cmbObj)
{
		var ref = cmbObj.choices.itemset.attribute("nodeset");
		var cnt = getNodesetCnt(model, ref) + 1 ;
		var userid = model.getValue(ref + "[userid ='" + Userid + "']/userid");
		if (userid == ""){
			model.makeValue(ref + "["+ cnt +"]/userid", Userid);
			model.makeValue(ref + "["+ cnt +"]/usernm", Usernm);
		}
}




/**
 * @desc   : excel ÀúÀå Çϱâ
 * @
 * @param  : 
 * @return :
 * @authur : ÀÌÀº¿µ 2008.07.14
 * @---------------------------------------------------
 */
function fExcel(gridObj, title){

		if (title == null)	{ title = "" }
		var fileName = window.fileDialog("save", ",", false, title + "_" + getCurrentDate(), "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");
		if (fileName != "")	{
			gridObj.saveExcel(fileName, "SheetName", true, true, "", "", true);
		}
}