function codificarCadena(p_cad)
			{
						v_reg=/[\n]+/g
						p_cad = p_cad.replace(v_reg,"*++*");

						for(var i=161;i<=255;i++)
						{
							eval("v_reg=/["+String.fromCharCode(i)+"]/g");
							p_cad = p_cad.replace(v_reg,"*+"+String(i)+"+*");							
						}
						return p_cad;
						
						eval("v_reg=/["+String.fromCharCode(225)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!160!*");

						eval("v_reg=/["+String.fromCharCode(233)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!130!*");

						eval("v_reg=/["+String.fromCharCode(237)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!161!*");

						eval("v_reg=/["+String.fromCharCode(243)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!162!*");

						eval("v_reg=/["+String.fromCharCode(250)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!163!*");

						eval("v_reg=/["+String.fromCharCode(241)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!164!*");

						eval("v_reg=/["+String.fromCharCode(224)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!133!*");

						eval("v_reg=/["+String.fromCharCode(232)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!138!*");

						eval("v_reg=/["+String.fromCharCode(236)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!141!*");

						eval("v_reg=/["+String.fromCharCode(242)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!149!*");

						eval("v_reg=/["+String.fromCharCode(249)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!151!*");

						eval("v_reg=/["+String.fromCharCode(231)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!135!*");

						eval("v_reg=/["+String.fromCharCode(226)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!131!*");

						eval("v_reg=/["+String.fromCharCode(238)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!140!*");

						eval("v_reg=/["+String.fromCharCode(244)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!147!*");

						eval("v_reg=/["+String.fromCharCode(251)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!150!*");

						eval("v_reg=/["+String.fromCharCode(209)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!165!*");

						eval("v_reg=/["+String.fromCharCode(209)+"]+/g");
						p_cad = p_cad.replace(v_reg,"*!165!*");
/*
						v_reg=/[é]+/g
						p_cad = p_cad.replace(v_reg,"*!130!*");
						v_reg=/[í]+/g
						p_cad = p_cad.replace(v_reg,"*!161!*");
						v_reg=/[ó]+/g
						p_cad = p_cad.replace(v_reg,"*!162!*");
						v_reg=/[ú]+/g
						p_cad = p_cad.replace(v_reg,"*!163!*");
						v_reg=/[ñ]+/g
						p_cad = p_cad.replace(v_reg,"*!164!*");
						v_reg=/[à]+/g
						p_cad = p_cad.replace(v_reg,"*!133!*");
						v_reg=/[è]+/g
						p_cad = p_cad.replace(v_reg,"*!138!*");
						v_reg=/[ì]+/g
						p_cad = p_cad.replace(v_reg,"*!141!*");
						v_reg=/[ò]+/g
						p_cad = p_cad.replace(v_reg,"*!149!*");
						v_reg=/[ù]+/g
						p_cad = p_cad.replace(v_reg,"*!151!*");
						v_reg=/[ç]+/g
						p_cad = p_cad.replace(v_reg,"*!135!*");
						v_reg=/[â]+/g
						p_cad = p_cad.replace(v_reg,"*!131!*");
						v_reg=/[î]+/g
						p_cad = p_cad.replace(v_reg,"*!140!*");
						v_reg=/[ô]+/g
						p_cad = p_cad.replace(v_reg,"*!147!*");
						v_reg=/[û]+/g
						p_cad = p_cad.replace(v_reg,"*!150!*");
						v_reg=/[ü]+/g
						p_cad = p_cad.replace(v_reg,"*!129!*");
						v_reg=/[ö]+/g
						p_cad = p_cad.replace(v_reg,"*!148!*");
						v_reg=/[Ñ]+/g
						p_cad = p_cad.replace(v_reg,"*!165!*");
						v_reg=/[Ö]+/g
						p_cad = p_cad.replace(v_reg,"*!153!*");
						v_reg=/[Ü]+/g
						p_cad = p_cad.replace(v_reg,"*!154!*");
						v_reg=/[Ç]+/g
						p_cad = p_cad.replace(v_reg,"*!128!*");
*/
				return p_cad;
			}
			
			
			function put_valControl(p_xml,p_namenode, p_namecontrol, p_typecontrol)
			{
				if(!p_xml.getElementsByTagName(p_namenode))
					return 0;				
				if(p_typecontrol == "txt" || p_typecontrol=="hid")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					try
					{
						v_control.value = p_xml.getElementsByTagName(p_namenode)[0].childNodes[0].nodeValue;
					}
					catch(e){}
				}
				else if(p_typecontrol == "cbo" || p_typecontrol == "cbx")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					for(var i=0;i<v_control.options.length;i++)
					try
					{
						if(v_control.options[i].value == p_xml.getElementsByTagName(p_namenode).item(0).firstChild.nodeValue)
						{
							v_control.selectedIndex = i;
							if(frmMain.elements["h"+p_namecontrol])
							{
								frmMain.elements["h"+p_namecontrol].value=v_control.options[i].text;
							}
							break;
						}
					}
					catch(e){}
				}
				else if(p_typecontrol == "chk")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					try
					{
						if(p_xml.getElementsByTagName(p_namenode).item(0).firstChild.nodeValue=="1")
							v_control.checked = true;
					}
					catch(e){}
				}
				else if(p_typecontrol == "rdo")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					for(var i=0;i<v_control.length;i++)
					try
					{
						if(v_control[i].value == p_xml.getElementsByTagName(p_namenode).item(0).firstChild.nodeValue)
						{
							v_control[i].checked = true;
							break;
						}
					}
					catch(e){}
				}
			}
			

			function add_node_value(p_xml,p_namenode, p_namecontrol, p_typecontrol)
			{
				if(!frmMain.elements[p_namecontrol])
				{
					xml_addNode(p_xml, "", p_namenode, "", 0);
				}
				else
				{
					v_control = frmMain.elements[p_namecontrol];
					if(p_typecontrol=="txt")
					{
						xml_addNode(p_xml, "", p_namenode,  codificarCadena(v_control.value), 0);
					}
					else if(p_typecontrol=="cbo" || p_typecontrol=="cbx")
						xml_addNode(p_xml, "", p_namenode, codificarCadena(v_control.value), 0);
					else if(p_typecontrol=="chk")
					{
						if(v_control.checked)
							xml_addNode(p_xml, "", p_namenode, "1", 0);
						else
							xml_addNode(p_xml, "", p_namenode, "0", 0);
					}
					else if(p_typecontrol=="rdo")
					{
						for(var i=0;i<frmMain.elements.length;i++)
							if(frmMain.elements[i].name==p_namecontrol)
							{
								if(frmMain.elements[i].checked)
								{
									xml_addNode(p_xml, "", p_namenode, codificarCadena(frmMain.elements[i].value), 0);
									break;
								}
							}
					}
				}
			}


			function put_valControlStandard(p_xml,p_namecontrol,p_pref)
			{
				v_namenode = p_namecontrol.substr(4+p_pref.length);
				v_typecontrol = p_namecontrol.substring(0,3);
				if(!p_xml.getElementsByTagName(v_namenode).item(0).hasChildNodes)
					return 0;
			
				if(v_typecontrol == "txt" || v_typecontrol=="hid")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					v_control.value = p_xml.getElementsByTagName(v_namenode).item(0).firstChild.nodeValue;
				}
				else if(v_typecontrol == "cbo" || v_typecontrol == "cbx")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					for(var i=0;i<v_control.options.length;i++)
						if(v_control.options[i].value == p_xml.getElementsByTagName(v_namenode).item(0).firstChild.nodeValue)
						{
							v_control.selectedIndex = i;
							if(frmMain.elements["h"+p_namecontrol])
							{
								frmMain.elements["h"+p_namecontrol].value=v_control.options[i].text;
							}
							break;
						}		
				}
				else if(v_typecontrol == "chk")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					if(p_xml.getElementsByTagName(v_namenode).item(0).firstChild.nodeValue=="1")
						v_control.checked = true;
				}
				else if(v_typecontrol == "rdo")
				{
					if(!frmMain.elements[p_namecontrol])
						return 0;
					v_control = frmMain.elements[p_namecontrol];
					for(var i=0;i<v_control.length;i++)
						if(v_control[i].value == p_xml.getElementsByTagName(v_namenode).item(0).firstChild.nodeValue)
						{
							v_control[i].checked = true;
							break;
						}
				}
			}

			function add_node_valueStandard(p_xml,p_namecontrol,p_pref)
			{
				v_namenode = p_namecontrol.substr(4+p_pref.length);
				v_typecontrol = p_namecontrol.substring(0,3);
				
				if(!frmMain.elements[p_namecontrol])
				{
					xml_addNode(p_xml, "", v_namenode, "", 0);
				}
				else
				{
					v_control = frmMain.elements[p_namecontrol];
					if(v_typecontrol=="txt" || v_typecontrol=="hid")
					{
						xml_addNode(p_xml, "", v_namenode,  codificarCadena(v_control.value), 0);
					}
					
					else if(v_typecontrol=="cbo" || v_typecontrol=="cbx")
						xml_addNode(p_xml, "", v_namenode,  codificarCadena(v_control.value), 0);
					else if(v_typecontrol=="chk")
					{
						if(v_control.checked)
							xml_addNode(p_xml, "", v_namenode, "1", 0);
						else
							xml_addNode(p_xml, "", v_namenode, "0", 0);
					}
					else if(v_typecontrol=="rdo")
					{
						for(var i=0;i<frmMain.elements.length;i++)
							if(frmMain.elements[i].name==p_namecontrol)
							{
								if(frmMain.elements[i].checked)
								{
									xml_addNode(p_xml, "", v_namenode, frmMain.elements[i].value, 0);
									break;
								}
							}
					}
				}
			}