/* ----------------------------------	Global Variables ----------------------------------	*/
var gn_phmdlr="",gn_oldphmdlr="",gc_phmdlrnm="";
var gn_meditem="",gc_meditemnm="",gn_packqty="",gn_lpackcost="",gn_packcost="",gn_qty="",gc_munitbig="",gn_vatamt="",gn_amt=""
/* -------------------------------------------------------------------------------------------------	*/
/* ----------------------------- ****** my general var ****** ----------------------------	*/
var gn_createobj = false;
var gn_activerow = 1
var gn_maxrow = 0
var gn_intcnt = 0
var gc_mode=""
var go_tradd=""
var gc_objEnable="",gc_objDisable=""
var gn_nullValid,gc_nullMsg=""
var gc_hilight = "#CCFFCC" , gc_dehilight = "#F0F0FF" , oldTr
var now = new Date()
var da = document.all;
var ObjINPUT = document.all.tags("input");
var ObjSELECT = document.all.tags("select");
var ObjTEXTAREA = document.all.tags("textarea");
/* -------------------------------------------------------------------------------------------------	*/
/* ----------------------------- ****** scroll bar var ****** ----------------------------	*/
var TimerID,TimerSet = false;
var TextNumber = -1,TotalTextInput = 1;
var HelpText = "";
var TextInput = new Object();
var i = 0;
var Speed = 0;
TextInput[0]= "ยินดีต้อนรับเข้าสู่ web .. REALTY WORLD ALLIANCE CO.,LTD.";
TextInput[1]= "กรุณาเลือกหัวข้อที่ท่านสนใจ...";
var WaitSpace="                                            "; 
for (i =0; i <= TotalTextInput; i++) { TextInput[i] += WaitSpace; }
/* ------------------------ ****** variables description ****** ------------------------	
gc_objEnable เป็นตัวแปรที่เก็บเอา Object ที่ต้องการ Set สถานะเป็น Enable
	example : gc_objEnable = "phmdlr,txt_prmtno,bdgtype,buytype";
	ค่าภายในตัวแปรคือ object ที่ต้องการส่งไป Enable
	
gc_objDisable เป็นตัวแปรที่เก็บเอา Object ที่ต้องการ Set สถานะเป็น Enable
	example : gc_objDisable = "phmdlr,txt_prmtno,bdgtype,buytype";
	ค่าภายในตัวแปรคือ object ที่ต้องการส่งไป Disable
-----------------------------------------------------------------------------------------------------	*/
function showFilled(Value) {
	return (Value > 9) ? "" + Value : "0" + Value;
}

function StartClock24() {
	TheTime = new Date;
	da["showTime"].value = showFilled(TheTime.getHours()) + ":" +
	showFilled(TheTime.getMinutes()) + ":" + showFilled(TheTime.getSeconds());
	setTimeout("StartClock24()",1000);
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

//------------------------------ start required field function -------------------------------
function formValid(){
	ln_return = true; lc_err = "กรุณากรอก";

	for(i=0;i<ObjSELECT.length;i++){
		if (ObjSELECT[i].required){ if (ObjSELECT[i].value == "") { ln_return = false; lc_err+= "\n"+ObjSELECT[i].required; } }
	}

	for(i=0;i<ObjTEXTAREA.length;i++){
		if (ObjTEXTAREA[i].required){ if (ObjTEXTAREA[i].value == "") { ln_return = false; lc_err+= "\n"+ObjTEXTAREA[i].required; } }
	}

	for(i=0;i<ObjINPUT.length;i++){
		if (ObjINPUT[i].type=="radio") {  
			if (ObjINPUT[i].required){
				objRadio = String(ObjINPUT[i].name)
				objRadio = eval("da['"+objRadio+"']")
				ln_radiochk = false;
				for(x=0;x<objRadio.length;x++){
					if (objRadio[x].checked){ ln_radiochk = true; lc_err+= "\n"+ObjINPUT[i].required;}
				}
			}
		} else {
			if (ObjINPUT[i].required){ if (ObjINPUT[i].value == "") { ln_return = false; lc_err+= "\n"+ObjINPUT[i].required; } }
		}
	}


	if (!ln_return) { alert(lc_err); }
	return ln_return;
}
//------------------------------ stop required field function -------------------------------
//------------------------------ start reba function --------------------------------------------
function InverseChk(obj){
	for(i=0;i<obj.length;i++){
		if (obj[i].checked){
			obj[i].checked = false;
		}else{
			obj[i].checked = true;
		}
	}
}

function MO(e) {
	if (!e)
	var e=window.event;
	var S=e.srcElement;
	while (S.tagName!="TD") {
		S=S.parentElement;
	}
	S.className="T";
}

function MU(e){
	if (!e)
	var e=window.event;
	var S=e.srcElement;
	while (S.tagName!="TD")
	{S=S.parentElement;}
	S.className="P";
}

function gotoFile(cFileName) {
	eval("document.location = '"+cFileName+"' ");

}

function popUpWindow(fileName) {
	var screenWidth = screen.width;
	var screenHeight = screen.height;
	var popUpWindowWidth = 565;
	var popUpWindowHeight = 577;

	var centerX = screenWidth / 2;
	var centerY = screenHeight / 2;

	var popUpWindowTop = centerY - (popUpWindowHeight / 2);
	var popUpWindowLeft = centerX - (popUpWindowWidth / 2);

	window.open(fileName, "", "top=" + popUpWindowTop + ",left=" + popUpWindowLeft + ",width=" + popUpWindowWidth + ",height=" + popUpWindowHeight + "toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,copyhistory=yes");
}

//------------------------------ end reba function --------------------------------------------

function popUP(ln_day,ln_month,ln_year,URL,lc_style){
	// -------------------- ส่วนนี้ไว้สำหรับการ ทำ Window Popup : โดยจะมีการตรวจสอบวันที่ยกเลิก pop up ด้วย --------------------
	ln_month -= 1;
	ln_year -= 543;
	var now = new Date()
	lc_rndNM = "_popup"+ now.getMilliseconds();
	if (now.getMonth() < ln_month && now.getYear() == ln_year){
		window.open (URL,lc_rndNM,lc_style); //alert("1")
	}else if (now.getMonth() == ln_month && now.getDate() <=ln_day){
		window.open (URL,lc_rndNM,lc_style); //alert("2")
	}else{
		//alert("3")
	}
}
/* ---------------------------------------  browser zone  --------------------------------------- */
function f_brower(){
	browser_name = navigator.appName;
	browser_version = parseFloat(navigator.appVersion);	
	if (browser_name == "Netscape" && browser_version >= 3.0) { chknav=0; }
	else if (browser_name == "Microsoft Internet Explorer" && browser_version >= 4.0) { return "ie"; }
	else { return "netscape"; }	
}
/* ------------------------------------------------------------------------------------------------ */

function startBanner(form) { if (!TimerSet) { TimerSet = true; banner(); } }
function banner() { 
	Text=rollMessage(); 
	TimerId = setTimeout("banner()", 100); 
	window.status=Text;  
}
function rollMessage() { 
	Wait=false;
	if (HelpText.substring((i++)-1,i) == " ") { i++; } 
	if (i >= HelpText.length+1) { 
		i=0; 
		if (TextNumber >= TotalTextInput) { 
			TextNumber = 0 ; 
		} else { 
			TextNumber++; 
		} 
		initBanner(); 
	} 
	Text = HelpText.substring(0,i); 
	return (Text); 
}

function initBanner() { 
	Text = TextInput[TextNumber]; 
	HelpText = Text; startBanner(); 
}

/* ---------------------------------------  object zone  --------------------------------------- */
function f_standard(lc_type){
	lo_onblur = document.all["txt_num"].onblur;
	lo_onkeydown = document.all["txt_num"].onkeydown;
	switch(lc_type.toLowerCase()){
	case "txt":
		obj = document.forms[0].txt_text.cloneNode(true);
		break;
	case "int":
		obj = document.forms[0].txt_num.cloneNode(true)
		obj.onblur = lo_onblur;
		obj.onkeydown = lo_onkeydown;
		break;
	case "float":
		obj = document.forms[0].txt_float.cloneNode(true);
		obj.onblur = lo_onblur;
		obj.onkeydown = lo_onkeydown;
		break;
	}	
	return obj;
}

function createTXT(lc_name,lc_width,lc_value,ln_enabled,lc_type,parentObj){
	var rtnobj = f_standard(lc_type);
	rtnobj.name = lc_name;
	rtnobj.id = lc_name;
	rtnobj.style.width = lc_width;	
	if (ln_enabled) { rtnobj.className = "txt_enabled" }
	else { rtnobj.className = "txt_disabled" }
	rtnobj.style.display =""
	rtnobj.value = lc_value;	
	parentObj.appendChild(rtnobj);
}

function createHDN(lc_name,lc_value,parentObj){
	var rtnobj = document.createElement("INPUT");
	rtnobj.name = lc_name;
	rtnobj.id = lc_name;
	rtnobj.type = "HIDDEN"
	rtnobj.value = lc_value;
	parentObj.appendChild(rtnobj);
}

function createBTN(lc_name,lc_width,lc_value,eventOnclick,parentObj){
	var rtnobj = document.createElement("INPUT");
	rtnobj.name = lc_name;
	rtnobj.id = lc_name;
	rtnobj.style.width = lc_width;	
	rtnobj.type = "BUTTON";
	rtnobj.onclick = function() { eval(eventOnclick) };	
	rtnobj.value = lc_value;
	parentObj.appendChild(rtnobj);
	//alert(tbdata.rows[1].cells[1].all[1].onclick);
}

function f_addrow(obj,row){
	row++;
	var tr_new = tbdata.insertRow(row);
	tr_new.id = "data_id["+row+"]";	
	for(i=0;i<obj.rows(0).cells.length;i++){
		objcell = obj.rows(row).cells(i);
		var oCloneNode = obj.rows(0).cells[i].cloneNode(true);
		td_new = tr_new.appendChild(oCloneNode);
		td_new.style.height = "15pt"
		td_new.className = "tb_data"
		td_new.innerText = "";
		switch(td_new.cellRoot){
		case "cell_int":		
			createTXT(td_new.cellName,"100%","",1,"int",td_new)
			break;
		case "cell_float": 
			break;
		case "cell_text": 
			createTXT(td_new.cellName,"100%","",1,"txt",td_new)
			break;
		}
	}
	gn_maxrow++;
	return;
}


function f_enabledObj(obj,ln_enabled){
	if (obj.abstype=="") { obj.mergeAttributes(document.all["txt_text"]) }
	else if (obj.abstype=="TextNum" && obj.abspcDec== 2) { obj.mergeAttributes(document.all["txt_float"]) }
	else { obj.mergeAttributes(document.all["txt_num"]) }
	obj.style.width="100%"
	if (ln_enabled) { obj.className = "TXT_ShowBorder_Enabled"; obj.readOnly = false;	}
	else { obj.className = "TXT_ShowBorder_Disabled"; }		
	return obj.value;
}

function f_disabledObj(obj,lc_oldvalue){
	obj.className = "TXT_HideBorder"
	obj.value = lc_oldvalue;
	obj.style.width="100%"	
	obj.readOnly=true;
	return ;
}

function f_rename(obj,ln_begin,ln_end,row){
	if (!obj.hasChildNodes()){ return obj; }
	for(i=0;i<obj.childNodes.length;i++){
		if (i>=ln_begin && i<=ln_end){
			obj.childNodes[i].all[0].name = obj.childNodes[i].all[0].name + "[" +row+ "]";
			obj.childNodes[i].all[0].id = obj.childNodes[i].all[0].name;
		}
	}
}

function f_mark(obj,ln_begin,ln_end,lc_decer){
	if (!obj.hasChildNodes()){ return obj; }
	for(i=0;i<obj.childNodes.length;i++){
		if (i>=ln_begin && i<=ln_end){ obj.childNodes[i].all[0].style.textDecoration = lc_decer; }
	}
}

function f_mm(obj){
	obj.style.cursor = "hand";
	obj.style.color = "ORANGE"
}

function f_mo(obj){
	obj.style.color = "#000080";
}

function f_view(obj){
	if (!obj.hasChildNodes()){ return obj; }
	alert("outerHTML: " + obj.outerHTML + "\n\nonclick: " + obj.onclick + "\n\nID: " + obj.id);
}

function f_CreateObj(){
	/* ------------- Create Obect when page loaded ------------- */
	var objText = document.createElement("INPUT");
	objText.type = "TEXT"
//	objText.style.display="none"
	objText.style.width = "0pt"
	objText.className = "txt_enabled"
	objText.style.readOnly = false

	var objTextNum = objText.cloneNode(true);
	objTextNum.objtype="txtnum";
	
	var objTextFloat = objTextNum.cloneNode(true);
//	objTextFloat.abspcDec = 2;
	
	objText.id ="txt_text"
	objTextNum.id ="txt_num"
	objTextFloat.id ="txt_float"	
	
	document.forms[0].appendChild(objText);
	document.forms[0].appendChild(objTextNum);
	document.forms[0].appendChild(objTextFloat);	
	/* ---------------------------------------------------------------------------- */
}

function showPOP(URL,popStyle){
	 //= "showmodal.asp?url=d_dex01-frm.asp&v_table=ed_exformula&v_show=4,5&v_top=d_dex01-1.asp"
	 //"dialogWidth:750px;dialogHeight:450px;help:0;scroll:0;status:0;"
	return window.showModalDialog("showmodal.asp?url="+URL,window,popStyle);
}

function f_onblur(obj){
	obj.ValidNum();
	row = f_getNum(String(obj.name));
	f_compute(row);
}

function listObj(objChild,ln_type){
	for(x=0;x<objChild.childNodes.length;x++) {
		lc_linesub = "[Count = "+gn_intcnt+"] " + " [Cells = "+x+"]\n"
		lc_linesub = lc_linesub + "Mother : "+objChild.nodeName+"\n"
		lc_linesub = lc_linesub + "nodeName : "+objChild.childNodes[x].nodeName+"\n"
		lc_linesub = lc_linesub + "type : "+objChild.childNodes[x].type+"\n"
		lc_linesub = lc_linesub + "name : "+objChild.childNodes[x].name+"\n"
		lc_linesub = lc_linesub + "id : "+objChild.childNodes[x].id+"\n"
		lc_linesub = lc_linesub + "class : "+objChild.childNodes[x].className+"\n"
		lc_linesub = lc_linesub + "value : "+objChild.childNodes[x].value+"\n"
		lc_linesub = lc_linesub + "length : "+objChild.childNodes[x].length+"\n"
		lc_linesub = lc_linesub + "innerText : "+objChild.childNodes[x].innerText+"\n"
		lc_linesub = lc_linesub + "hasChildNodes : "+objChild.childNodes[x].hasChildNodes()
		alert(lc_linesub);
		gn_intcnt++;
		if (objChild.childNodes[x].hasChildNodes() && ln_type==1) { objLoop(objChild.childNodes[x]);}
		if (gn_intcnt>50) { return; }
	}
	gn_intcnt = 0;
	return true;	
}

function objLoop(objSub){
		var lc_linesub;
		for(i=0;i<objSub.childNodes.length;i++) {
			lc_linesub = objSub.parentElement.nodeName +" >> objSub  : "+i+" [count = "+gn_intcnt+"]\n"
			lc_linesub = lc_linesub + "Mother : "+objSub.nodeName+"\n"
			lc_linesub = lc_linesub + "nodeName : "+objSub.childNodes[i].nodeName+"\n"
			lc_linesub = lc_linesub + "type : "+objSub.childNodes[i].type+"\n"
			if (String(objSub.childNodes[i].nodeName)=="IMG") { lc_linesub = lc_linesub + "src : "+objSub.childNodes[i].src +"\n" }
			lc_linesub = lc_linesub + "name : "+objSub.childNodes[i].name+"\n"
			lc_linesub = lc_linesub + "id : "+objSub.childNodes[i].id+"\n"
			lc_linesub = lc_linesub + "class : "+objSub.childNodes[i].className+"\n"
			lc_linesub = lc_linesub + "value : "+objSub.childNodes[i].value+"\n"
			lc_linesub = lc_linesub + "length : "+objSub.childNodes[i].length+"\n"
			lc_linesub = lc_linesub + "innerText : "+objSub.childNodes[i].innerText+"\n"
			lc_linesub = lc_linesub + "hasChildNodes : "+objSub.childNodes[i].hasChildNodes();
			alert(lc_linesub);
			gn_intcnt++;
			//if (objSub.childNodes[i].hasChildNodes()) { objLoop(objSub.childNodes[i])}
			if (gn_intcnt>50) { return; }
		}
		return;
		
}
/* ------------------------------------------------------------------------------------------------ */
/* --------------------------------------- hilight zone --------------------------------------- */
function f_hilight(obj,row){
	if (!f_lockmode(row)){ return false; }
	Hilight(oldTr,gc_dehilight);
	Hilight(obj,gc_hilight);
}

function f_txthilight(obj,objNm,row){
	for (i=1;i<=gn_maxrow;i++){
		objnew = eval("document.all['"+objNm+"["+i+"]']")
		if (i==row) { objnew.style.background = gc_hilight; }
		else { objnew.style.background = gc_dehilight;}
	}	
}

function Hilight(e,strColor){
	if (e==null || String(e)=="") {return;}
	while (e.tagName!="TR")
	{e=e.parentElement;}
	oldTr = e
	e.style.background = strColor
	return;
}
/* ------------------------------------------------------------------------------------------------ */
function f_lockmode(row){
	if ((row != gn_activerow) && (gn_activerow != "") && (gc_mode == "edit")){
		//alert("ไม่ให้กดโว้ย!!! มึงอยู่ Mode : "+gc_mode+" ทำงานที่ Row : "+ gn_activerow + " อยู่ แต่มึงเสือกกด Row : "+row+" ได้ไงวะ!!!")
		return false;
	} else {
		return true;
	}
}
/* ------------------------------------------------------------------------------------------------ */
/* ----------------------------- Dynamic Relative Zone ------------------------------- */
function f_getParent(obj,lc_parent){
	while (obj.nodeName != lc_parent.toUpperCase()){
		obj=obj.parentElement;
	}
	return obj;
}

function f_getChild(obj,lc_child){
	if (!obj.hasChildNodes()){ return obj; }
	for(x=0;x<obj.childNodes.length;x++) {		
		if (obj.childNodes[x].name == lc_child || obj.childNodes[x].id == lc_child){
			obj=obj.childNodes[x];
			break;
		}
	}
	return obj;
}

/* ------------------------------------------------------------------------------------------------ */
/* ------------------------------------ Variable Zone ------------------------------------- */
function split (stringToSplit,separator) {   
	arrayOfStrings = stringToSplit.split(separator)
	return arrayOfStrings;
//	alert('<P>The original string is: "' + stringToSplit + '"'+
//	'\nThe separator is: "' + separator + '"'+
//	"\nThe array has " + arrayOfStrings.length + " elements: ");
//   for (var i=0; i < arrayOfStrings.length; i++) {
//   	alert(arrayOfStrings[i] + " / ")
//   }
  }

function f_float(strget,intpost,intCenter){
	var strDectmp;
	strTmp = strget.toString();
	strArray = strTmp.split(".")
	if (strArray.length == 2) {
		strDectmp = ""
		strDec = strArray[1]
		if (strDec.length < intpost){
			for (var i=1;i<=intpost-strDec.length;i++){ strArray[1] = strArray[1] + "0" }
			strDectmp = strArray[1];
		} else {
			for (var i=0;i<strDec.length;i++){
				if (i<intpost) {
					strDectmp = strDectmp + strDec.substring(i,i+1);
				}else if (i==intpost) {
					if (parseInt(strDec.substring(intpost,intpost+1)) >= intCenter) { 
						strDectmp = parseInt(strDectmp)+1; 
					}
				}
			}
		}
		strReturn = strArray[0].toString() +"."+ strDectmp.toString() ;
	} else if (strArray.length == 1) {
		strReturn = strTmp+"."
		for (i=1;i<=intpost;i++){ strReturn = strReturn +"0" }		
	}else{
		strReturn = "0"
	}
	return strReturn;
}

function f_numvalid(strget){
	if (!isFinite(strget)) { return false;}
	if (isNaN(parseInt(strget))) { return false;}
	return true;
}

function f_numval(strget){
	if (isFinite(strget)) { return strget; }
	return strget.replace(",","")
}

function f_getNum(lc_txt){
	var lc_return = "";
//	alert("Get : "+lc_txt);
	for (i=0;i<lc_txt.length;i++){
		if (isFinite(lc_txt.substring(i,i+1))){
			lc_return = lc_return + lc_txt.substring(i,i+1)
		}
	}
//	alert("Will Return : "+lc_return);
	return parseInt(lc_return);
}

function f_txtnum(){
	obj = ObjINPUT;
	for (i=0;i<obj.length;i++){
		if (obj[i].objtype=="txtnum"){
			obj[i].onkeydown =  function(){
				k = event.keyCode;
				if(!isNumType(k) || (k==110 || k==190 || k==222)) { return false; }
			}
			obj[i].onblur =function(){ f_chkint(this) }
		}
	}
}

function f_txtno(){
	obj = ObjINPUT;
	for (i=0;i<obj.length;i++){
		if (obj[i].objtype=="txtno"){
			obj[i].onkeydown =  function(){
				k = event.keyCode;
				if (k==13){
					alert("you are enter now : index is "+i+" : value is "+this.value+" : num valid is "+f_numvalid(this.value))
					if (f_numvalid(this.value)){
						this.value = this.value + "/" + (parseInt(now.getYear())+543)
					}
				}else if((!isNumType(k) || (k==110 || k==190 || k==222)) && (k!=111)) { return false; }
			}
			obj[i].onblur =function(){ f_chkint(this) }
		}
	}
}

function f_chknullObj(obj){
	for (i=obj.length-1;i>=0;i--){
		if (obj[i].notnull=="" && trim(obj[i].value)==""){
			gn_nullValid = false;
			go_nullObj=obj[i];
			gc_nullMsg = gc_nullMsg+obj[i].objname+"\n"
		}
	}
}

function f_chknull(obj){
	if (trim(obj.value)==""){
		alert("กรุณากรอกข้อมูล!!!");
		obj.focus();
	}
}

function isNumType(k){
	if(!(((k>94)&&(k<106))||(k==110)||   ((k>=8)&&(k<=9))   ||   ((k>=35)&&(k<=40)) ||(k==46)  ||  (event.ctrlKey&&(k==67)) || (event.ctrlKey&&(k==88))  )){
		return false;
	}else{
		return true;
	}
}

function f_chkint(obj){	
	var lc_txtreturn="";
	lc_txt = obj.value;
	if (!isFinite(lc_txt)){ obj.value = ""; }
	for (i=0;i<lc_txt.length;i++){ if (isFinite(lc_txt.substring(i,i+1))){ lc_txtreturn = lc_txtreturn + lc_txt.substring(i,i+1) } }
	obj.value =  lc_txtreturn;	
}

function trim(text)
{
	var Start=0,Stop=0,Len,fg=0
	var i=0,Rtn=""
	
	Len = text.length
	while( i <= Len ) {
		if(text.substr(i,1) != " " && fg == 0) {
			Start = i
			fg = 1
		}
		i ++;
	}
	
	fg = 0
	i = Len - 1
	while( i >= 0 ) {

		if(text.substr(i,1) != " " && fg == 0) {
			Stop = i
			fg = 1
		}
		i --;
	}
	
	Rtn = text.substr(Start,Stop - Start + 1)
	
	return Rtn

}
/*
ปุ่มเรียก : <input type="button" name="btnGetElement" value="เรียกดู Element" onclick="javascript:listObj(tbrow[0],1)">
*/
/* ------------------------------------------------------------------------------------------------ */

//Convert Rcno. Format  NNNNN/YY --> YYNNNNN
function f_xtoi(as_rcno) 
{
	var Strlength,i=0,Strnum="",Stryear="",ndate,yy,len,ss,xx
	
	//alert(as_rcno)
	myString = new String(as_rcno)


	if (as_rcno == "")
	{
		alert("ต้องใส่ข้อมูลก่อน หรือ ข้อมูลต้องเป็นตัวเลข") 
		return -1
	}else {
		Strlength = myString.length
		
		//alert("Length="+Strlength)
		
		li_pos = myString.indexOf("/",1)
		
		if(li_pos==-1) {
			ndate = new Date()
			yy = new String(ndate.getYear() + 543)
			len = yy.length
			ss  = yy.charAt(2)
			xx  = yy.charAt(1)
			
			myString = myString.concat("/");
			myString = myString.concat(xx);
			myString = myString.concat(ss);
			li_pos = myString.indexOf("/",1);
			//alert("li_pos="+li_pos)
			Strlength = myString.length
		}
		
		//alert("myString="+myString)
		
		for(i=0;i < li_pos;i++)
			Strnum = Strnum.concat(myString.charAt(i))

		for(i=li_pos+1;i < Strlength ; i ++)
			Stryear = Stryear.concat(myString.charAt(i))			

		//alert("Strnum="+Strnum)
		//alert("Stryear="+Stryear)
		
		switch(Strnum.length)
		{
			case 1 :	Strnum = "0000" + Strnum
						break;
			case 2 :	Strnum = "000" + Strnum
						break;
			case 3 :	Strnum = "00" + Strnum
						break;
			case 4 :	Strnum = "0" + Strnum
						break;																					
		}
		Strnum = Stryear.concat(Strnum)
			
		return Strnum

	}



}





//Convert Rcno. Format YYNNNNN --> NNNNN/YY
function f_itox(as_rcno)
{
	var i_rcno,strrcno,yyvalue,nnvalue,num
	
	strrcno = new String(as_rcno)
	i_rcno = new Number(as_rcno)

	if(as_rcno=="")
		alert("กรุณาใส่ข้อมูลก่อน")
	else
	{
		if(strrcno.length != 7)
		{
			alert("กรุณาจัดรูปแบบให้อยู่ในรูปแบบนี้ YYNNNNN")
			return -1
		} else	
			{
			
				if((i_rcno <= 0) || (i_rcno > 9999999))
				{
					alert("เลขที่ หรือ ปี ต้องเป็นตัวเลขเสมอ") 
					return -1
				} else {
				
				
					yyvalue = strrcno.charAt(0) 
					yyvalue = yyvalue.concat(strrcno.charAt(1))
					
					//alert("strrcno = "+strrcno)		
					
					nnvalue = strrcno.charAt(2)
					nnvalue = nnvalue.concat(strrcno.charAt(3))
					nnvalue = nnvalue.concat(strrcno.charAt(4))
					nnvalue = nnvalue.concat(strrcno.charAt(5))
					nnvalue = nnvalue.concat(strrcno.charAt(6))
					
					//alert("nnvalue = "+nnvalue)								
					i_rcno = new Number(nnvalue)
					//alert("i_rcno = " + i_rcno)
						
					//i_rcno = parseInt(nnvalue)
					
					nnvalue = String(i_rcno)
					
					nnvalue = nnvalue.concat("/")
					nnvalue = nnvalue.concat(yyvalue)						

					return nnvalue
				}
			}
	}
}

/* --------------------------------------- window start  zone --------------------------------------- */
function f_setStatus(){
	gc_objEnable = split(gc_objEnable,",")
	if (gc_objEnable.length>=1){
		for (i=0;i<gc_objEnable.length;i++){ f_objStatus(gc_objEnable[i],true,1) }
	}
	gc_objDisable = split(gc_objDisable,",")
	if (gc_objDisable.length>=1){
		for (i=0;i<gc_objDisable.length;i++){ f_objStatus(gc_objDisable[i],false,1) }
	}
}

function f_objStatus(obj,fg,ln_mode){	
////	mode = 1 หมายถึง obj ธรรมดา , mode = 2 หมายถึง obj array
//	if (ln_mode == 1) { 
//		dao = document.all[obj]
//		if (dao != "[object]") { return false; }
//		f_status(dao,fg);
//	} else {
//		if (!isFinite(obj.length)) { return false;}
//		for (i=0;i<obj.length;i++){ f_status(obj[i],fg); }
//	}

	for (i=0;i<ObjINPUT.length;i++){
		if (ObjINPUT[i].type=="text"){
			if (ObjINPUT[i].objstatus=="read"){
				ObjINPUT[i].className = "txt_none";
				ObjINPUT[i].readOnly = true;
			} else {
				ObjINPUT[i].className = "txt_enabled"
			}
		}
	}
	for (i=0;i<ObjSELECT.length;i++){
		if (ObjSELECT[i].objstatus=="read"){
			ObjSELECT[i].className = "txt_none";
			ObjSELECT[i].disabled = true;
		}
	}
}
function f_status(obj,fg){
	if (obj.tagName.toLowerCase() =="select"){
		if (!fg){
			obj.className = "cmb_disabled"; obj.disabled = true;
		}else{
			obj.className = "cmb_enabled"; obj.disabled = false;
		}
	}else if (obj.tagName.toLowerCase()=="input") {
		if (!fg){
			obj.className = "txt_disabled"; obj.readOnly = true;
		}else{
			obj.className = "txt_enabled"; obj.readOnly = false;
		}
	}
}

window.onload = function() { 	
	if (gn_createobj){ f_CreateObj(); }
	f_txtnum();
	f_txtno();
	if (gn_createobj){
		f_objStatus();
		f_setStatus();
	}
}
/*-------------------------------------------------------------- End Internal File Function -------------------------------------------------------------------------------*/