i_exml_nVersion=1.238;
function IEXML(c){this.m_sObj=c;this.m_nVersion=i_exml_nVersion;this.m_sKeyName="[i_exml v"+this.m_nVersion+"]";this.m_sMArrayBase="";this.m_vTagsSet=0;this.m_sEXMLReturn=null;this.f_optionSelected=function(a,b){var d=false;if(IsArray(b)){if(b.f_indexOf(a)!=-1)d=true}else if(a==b)d=true;return d};this.f_addColEXML=function(a,b,d){var e,f,g;if(a.f_maGetColPos(b)!=-1){ErrorJS("[i_exml.f_addColEXML] ya existe el campo '"+b+"', asi que lo modificamos",a,2);a.f_modColEXML(b,d)}else{f=a.f_maGetRegs();a.f_maAddCol(b,
"");for(e=0;e<f;e++){g=ParseEXMLs(d,"",a,e);a.f_maSetVal(b,g,e)}}};this.f_eval=function(a,b,d){try{oIEXML.m_sMArrayBase.f_maGetRegs();f=eval(a)}catch(e){if(a=="nRegistro")f=d;else{a=oIEXML.m_sKeyName+" ParseEXML: el eval del registro "+d+" de "+b+" no existe, no es global o da error.\n"+b+": <B>"+a+"</B>";var f="<DIV style='background-color:#A00;color:#fff;'>"+a+"</DIV>";ErrorJS(a,"")}}return f};this.f_modColEXML=function(a,b,d){var e,f,g;if(f=a.f_maGetRegs()){e=a.f_maGetColPos(b);if(e==-1){ErrorJS("[i_exml.f_modColEXML] no existe el campo '"+
b+"', asi que lo creamos",a,2);a.f_addColEXML(b,d)}else for(g=0;g<f;g++){e=ParseEXMLs(d,"",a,g);a.f_maSetVal(b,e,g)}}};this.m_maOwnTAGsEXML=[["sTAGName","sVal"],[]];this.f_addOwnTAG=function(a,b){this.m_maOwnTAGsEXML.f_maNewRow([a,b])};this.f_setOwnTAG=function(a,b){this.m_maOwnTAGsEXML.f_maSetValIf("sTAGName",a,"sVal",b)};this.f_parseOwnTag=function(a,b,d){if(IsNull(d))d=this.m_maOwnTAGsEXML.f_maGetValIf("sTAGName",b,"sVal");IsNull(d)&&ErrorJS(this.m_sKeyName+" - No hay ningún tag '"+b+"' en el Array de OwnTags de este objeto EXML o no se pasó ningún valor "+
d+"\n"+this.m_maOwnTAGsEXML.f_maDebug());return a.f_replace(b,d)};this.f_parseOwnTags=function(a){for(var b=0,d=this.m_maOwnTAGsEXML.f_maGetRegs();b<d;b++)a=a.f_replace(this.m_maOwnTAGsEXML.f_maGetVal("sTAGName",b),this.m_maOwnTAGsEXML.f_maGetVal("sVal",b));return a};this.m_maBlock=[["sBlockName","sEXML"],[]];this.f_addBlock=function(a,b){var d=this.m_maBlock.f_maGetReg("sBlockName",a);d==-1?this.m_maBlock.f_maNewRow([a,b]):this.m_maBlock.f_maSetVal("sEXML",b,d)};this.f_parseBlock=function(a){for(var b=
0,d=this.m_maBlock.f_maGetRegs();b<d;b++)a=a.f_replace(this.m_maBlock.f_maGetVal("sBlockName",b),this.m_maBlock.f_maGetVal("sEXML",b));return a};this.m_maPattern=[["sBlockName","sEXML_Pre","sEXML_Pattern","sEXML_Post","maData"],[]];this.f_addPattern=function(a,b,d,e,f){this.m_maPattern.f_maNewRow([a,b,d,e,f])};this.f_parsePattern=function(a){for(var b,d,e,f,g,h=0,k=this.m_maPattern.f_maGetRegs();h<k;h++){a_sEXML=[];b=this.m_maPattern.f_maGetVal("sBlockName",h);if(a.indexOf(b)!=-1){d=this.m_maPattern.f_maGetVal("sEXML_Pre",
h);e=this.m_maPattern.f_maGetVal("sEXML_Pattern",h);f=this.m_maPattern.f_maGetVal("sEXML_Post",h);g=this.m_maPattern.f_maGetVal("maData",h);a_sEXML.push(d);d=0;for(var l=g.f_maGetRegs();d<l;d++)a_sEXML.push(this.f_parseEXMLs(e,g,d));a_sEXML.push(f);a=a.f_replace(b,a_sEXML.join(""))}}return a};this.f_buildBlocks=function(a){a=this.f_parseBlock(a);return a=this.f_parseOwnTags(a)};this.f_drawCombo=function(a,b,d,e,f,g,h,k,l,n){var j="";f=[];k=[];if(IsMArrayOld(e))ErrorJS("oIEXML.f_drawCombo() No funciona con MArray antiguo. Usar DrawComboEXML()");
else{if(IsNull(d))d="";f.push("<SELECT name='"+a+"' "+d+">");if(IsNull(b)){IsArray(a_sTitulo)||(a_sTitulo=[a_sTitulo,a_sTitulo]);if(this.f_optionSelected(sValor,vTextOrValueSelected))j=" selected ";f.push("<OPTION value='"+a_sTitulo[0]+"' "+j+">"+a_sTitulo[1]+"</OPTION>")}if(IsNull(n)&&IsNull(l)){a=0;for(b=k.length;a<b;a++){l=a;if(n)nOption=a_nPos[i];d=this.f_parseEXMLs(h,e,l);g==h||this.f_parseEXMLs(g,e,l);f.push("<OPTION value='"+d+"'>"+d+"</OPTION>")}}else{IsNull(n)||(k=e.f_subDistinct(n,1));if(!IsNull(l)){a=
e;IsNull(n)||(a=a.f_subRows(k,1));k=a.f_sort(l,1)}a=0;for(b=k.length;a<b;a++){l=k[a];if(n)nOption=a_nPos[i];d=this.f_parseEXMLs(h,e,l);g==h||this.f_parseEXMLs(g,e,l);f.push("<OPTION value='"+d+"'>"+d+"</OPTION>")}}}};this.f_parseEXMLs=function(a,b,d,e,f){var g;e||(e=f&&String(f.m_vTagsEXML)!="undefined"?f.m_vTagsEXML:oIEXML.m_vTagsSet);if(IsArray(e))e=e;else switch(e){case 1:e=["SUMAEXML","IF","SUMA","BD","DATO","OBJ","FUN"];break;default:e=["DATO","ifBD","SUMAEXML","SUMA","CAMPO","BD","OBJ","FUN",
"ifFUN","IF"]}if(typeof a=="undefined"){b=1;if(f)a="ParseEXMLs() Le faltan datos al "+f.m_sObj+".f_createStyle";else{a="ParseEXMLs() No hay sEXML";b=3}ErrorJS(oIEXML.m_sKeyName+a,f,b);return""}if(!b)if(f)b=eval(f.m_sObj+".m_sJSarrayBase");else if(g_sJSarrayBase)b=g_sJSarrayBase;else ErrorJS(oIEXML.m_sKeyName+" ParseEXMLs() No hay ningun MArray definido en sJSarrayBase",f,1);g_sJSarrayBase=b;for(g=0;g<e.length;g++)if(a.indexOf(e[g])!=-1)a=this.m_sObj?this.f_parseEXML(e[g],a,b,d,f):ParseEXML(e[g],a,
f,b,d);return a};this.f_parseEXML=function(a,b,d,e,f){var g,h,k,l,n,j,q="<"+a+">",u="</"+a+">";h=q;var t="",y=q.length,z=u.length;if(!d&&f)d=eval(f.m_sObj+".m_sJSarrayBase");if(d){oIEXML.m_sMArrayBase=d;g=d.f_maGetRegs();if(g<=e)if(b.indexOf("BD>")!=-1&&b.indexOf("</SUMA")==-1){sError="ParseEXML() no existe el registro "+e+" en 'a_v"+d+"' ";sError+=g?"[0-"+(g-1)+"]":"(no hay ningun dato)";return sError=this.f_error(sError)}}var A=oIEXML.m_sEXMLReturn;if(f&&f.m_bEXMLReturn)A=f.m_sEXMLReturn;g=b.indexOf(q);
if(g==-1){q="<"+a;g=b.indexOf(q)}for(;g!=-1&&k!=-1;){g=b.indexOf(q);k=-1;if(g!=-1){n="";l=g;h=g+GetInitTag(a,b.substring(g));h=b.substring(g,h);y=h.length;k=b.indexOf(u,g+y);if(k!=-1&&a=="IF"){l=b.lastIndexOf(q,k);if(l!=g){n=b.substring(g,l);h=l+GetInitTag(a,b.substring(l));h=b.substring(l,h);y=h.length}}}if(g!=-1&&k!=-1){t+=b.substr(0,g);j=b.substring(l+y,k);switch(a){case "BD":j=d.f_maGetVal(j,e,A);break;case "FUN":if(j)j=this.f_eval(j,a,e);break;case "OBJ":if(j.indexOf("_")!=1)j="m_"+j;j=this.f_eval(f.m_sObj+
"."+j,a,e);break;case "DATO":j=this.f_eval(j,a,e);break;case "SUMA":if(f&&f.m_bCacheTagSUMA==1){var p=j.replace(/[^a-z,0-9]/gi,"");p=f.m_sObj+".m_n"+a+p;vDato=this.f_eval(p,a,e);if(typeof vDato=="undefined"){vDato=d.f_maSumaColIf(j);this.f_eval(p+"=vDato",a,e)}}else vDato=d.f_maSumaColIf(j);j=vDato;break;case "SUMAEXML":j=OperarMultiEXML(d,j,f);break;case "IF":window.onerror=function(r,v,w){r="\n\n"+v+"\nLinea "+w+" : "+r;ErrorJS(oIEXML.m_sKeyName+"ParseEXML: <IF> no existe o da error:\n\t"+j+r,f,
1);return true};p=TagELSE(j);j=p[0];var o=GetPropEXML(h,"bd",1);if(o){bValidar=d.f_maGetVal(o,e);if(CheckFalse(bValidar))j=p[1]}else{var x=GetPropEXML(h,"fun",1);if(x){window.onerror=function(r,v,w){r="\n\n"+v+"\nLinea "+w+" : "+r;ErrorJS(oIEXML.m_sKeyName+" ParseEXML: <IF fun> no existe o da error la funcion JS:\n\t"+x+r,f,1);return true};x=ParseEXMLs(x,f,d,e);bValidar=this.f_eval(x,a,e);if(CheckFalse(bValidar))j=p[1]}}break;case "ifFUN":window.onerror=function(r,v,w){r="\n\n"+v+"\nLinea "+w+" : "+
r;ErrorJS(oIEXML.m_sKeyName+" ParseEXML: <ifFUN> no existe o da error la funcion JS:\n\t"+j+r,f,1);return true};bValidar=this.f_eval(j,a,e);if(CheckFalse(bValidar))if(j=GetPropEXML(h,"false"))t+=j;else GetPropEXML(h,"true")||(b="");else if(j=GetPropEXML(h,"true"))t+=j;else GetPropEXML(h,"false")||(t="");j="";break;case "ifBD":bValidar=d.f_maGetVal(j,e);if(CheckFalse(bValidar))if(j=GetPropEXML(h,"false"))t+=j;else GetPropEXML(h,"true")||(b="");else if(j=GetPropEXML(h,"true"))t+=j;else GetPropEXML(h,
"false")||(t="");j="";break;case "CAMPO":o=GetPropEXML(h,"tipo");p=GetPropEXML(h,"extras");switch(o){case "INPUT":o=j.substr(2);var m=d.f_maGetVal(o,e);j='<INPUT name="'+j+'" type="text" value="'+m+'" '+p+"/>";break;case "SELECT":o=j.substr(2);var s="<BD>"+o+"</BD>";m=d.f_maGetVal(o,e);j=DrawComboEXML(j,p,"",d,s,s,m,o,o);break;case "CHECKBOX":s=" ";o=j.substr(2);if((m=d.f_maGetVal(o,e))&&m!="0"&&m!="False"&&m!="Falso"){s=" checked ";m=' value="'+m+'"'}else m="";j='<INPUT type="checkbox" name="'+j+
'"'+m+s+" "+p+"/>";break;case "RADIO":s=" ";o=j.substr(2);if((m=d.f_maGetVal(o,e))&&m!="0"&&m!="False"&&m!="Falso"){s=" checked ";m=' value="'+m+'"'}else m="";j='<INPUT type="radio" name="'+j+'"'+m+s+" "+p+"/>";break;case "RADIOS":s=" ";var B=" checked ",C=j;o=j.substr(2);if((m=d.f_maGetVal(o,e))&&m!="0"&&m!="False"&&m!="Falso"){s=" checked ";B=" "}else m="1";j='Si<INPUT type="radio" name="'+C+'" value="'+m+'"'+s+" "+p+"/>";j+='&nbsp;No<INPUT type="radio" name="'+C+'" value="0"'+B+" "+p+"/>";break;
case "HIDDEN":o=j.substr(2);m=d.f_maGetVal(o,e);j='<INPUT name="'+j+'" type="hidden" value="'+m+'" '+p+"/>";break;default:ErrorJS(oIEXML.m_sKeyName+" ParseEXML: Tag <CAMPO> de tipo invalido: "+h,f,1)}}if(!oCore.m_bIsServer)window.onerror=g_oOnErrorEvent;if(n)b=n+j+b.substr(k+z);else{t+=j;b=b.substr(k+z)}}}t+=b;return t};this.f_error=function(a){return a=oIEXML.m_sKeyName+"\n"+oIEXML.m_sMArrayBase.f_maDebug()+"\n"+a};this.f_subMArray=function(a,b){var d;if(IsMArray(a))d=a.f_subRows(b,1);else{d=[IsArray(a)?
a[0]:eval("a_s"+a),[]];SubMArray(a,d[1],b)}return d}}oIEXML=new IEXML("oIEXML");if(typeof oIGZ!="undefined"){oIGZ.f_loadLib("i_exml",oIEXML.m_nVersion);new oIGZ.f_keyEvent(["CTRL","F12"],function(){ErrorJS(LastMArray(),null,4,1)});oIGZ.f_require("i_core",0.552)}else if(!oCore.m_bIsServer)window.status=location.pathname+"\n"+oIEXML.m_sKeyName+" Falta 'i_core.js' o 'i_igz.js'";g_sJSarrayBase=g_oOnErrorEvent="";if(!oCore.m_bIsServer)g_oOnErrorEvent=window.onerror;
function ParseEXMLs(c,a,b,d,e){return oIEXML.f_parseEXMLs(c,b,d,e,a)}function ParseEXML(c,a,b,d,e){return oIEXML.f_parseEXML(c,a,d,e,b)}function CheckFalse(c){var a=0;if(c)c=c.toString().toLowerCase();if(!c||c=="0"||c=="null"||c=="false"||c=="falso")a=1;return a}function TagELSE(c){var a=[];a[0]=c;a[1]="";var b=c.f_indexOf("<ELSE />",0);if(b!=-1){a[0]=c.substring(0,b);a[1]=c.substring(b+8)}return a}function PrintComboEXML(c,a,b,d,e,f,g,h,k){document.write(DrawComboEXML(c,a,b,d,e,f,g,h,k))}
function DrawComboEXML(c,a,b,d,e,f,g,h,k,l){oIGZ.f_checkLib("i_form",1.335)&&oISelect.m_a_sSelects.push(c);var n,j,q=[];n=d.f_maGetRegs();if(f=="")f=e;c='<SELECT NAME="'+c+'" id="SELECT_'+c+'" ';if(a)c+=" "+a;c+=">";if(b!=""){a=b;var u="";if(IsArray(b)){a=b[0];j=b[1];if(b.length>=3)u=b[2]}c+="<OPTION value='"+j+"' "+u;c+=">"+a+"</OPTION>"}if(k||h){if(k){q=d.f_maSubDistinct(k,1);n=q.length;if(n==0)return""}if(h)q=k?d.f_maSubSort(q,h,1):d.f_maSort(h,1)}else for(b=0;b<n;b++)q[b]=b;a=[];u=f==e;for(b=
0;b<n;b++){h=q[b];j=ParseEXMLs(f,"",d,h);sTexto=u?j:ParseEXMLs(e,"",d,h);if(sTexto!=""){k="<OPTION value='"+j+"'";if(l)k+=" "+ParseEXMLs(l,"",d,h);if(oIEXML.f_optionSelected(j,g))k+=" SELECTED";k+=">"+sTexto+"</OPTION>";a.push(k)}}c+=a.join("");c+="</SELECT>";return c}function CreaComboEXML(c,a,b,d,e,f,g,h,k){return DrawComboEXML(c,a,b,d,e,f,g,h,k)}
function SubMArray(c,a,b){var d,e,f,g=0,h;if(IsMArray(c)){ErrorJS("SubMArray deprecated: usa oIEXML.f_subMArray","",5);c=c.f_toMArrayOld()}if(IsArray(c)){d=c[0];c=c[1]}else{d=eval("a_s"+c);c=eval("a_v"+c)}d=d.length;for(f=0;f<b.length;f++){e=b[f]*d;for(h=0;h<d;h++)a[g++]=c[e++]}}function BuscarSubMArray(c,a,b,d,e,f,g){var h=1;if(f)h=0;return c.f_maSubIndexOf(a,b,d,e,h,g)}function BuscarSubArray(c,a,b,d,e,f){var g=1;if(e)g=0;return c.f_subIndexOf(a,b,d,g,f)}
function MAcountMatches(c,a,b,d){var e;var f=e="",g="",h=0;if(d=="AND"&&a.length>1){for(d=0;d<a.length;d++){e+="<BD>"+a[d]+"</BD>";f+=a[d];g+=""+b[d]}AddCampo2Multiarray(c,f,e);a=[f];b=[g]}nRegs=c.f_maGetRegs();for(d=0;d<nRegs;d++)for(e=0;e<a.length;e++)if(b[e]==c.f_maGetVal(a[e],d)){h++;break}return h}function DistinctMArray(c,a,b){return c.f_maSubDistinct(a,b)}function OrdenarArray(c,a,b,d,e){return c.f_sort(a,b,d,e)}function OrdenarMultiarray(c,a,b,d,e,f){return c.f_maSort(a,b,d,e,f)}
function FechaHoraEXML(c,a,b){if(a){if(typeof a!="object"||a.constructor!=Date){a=CambiaFecha(a);a=new Date(a)}}else{if(typeof b!="undefined")return b;a=new Date}if(isNaN(a))return"";a.getDate();a.getDay();a.getMonth();a.getFullYear();a.getHours();a.getMinutes();a.getSeconds();for(a=BuscaTagEXML(c,1);a;){b=eval("typeof("+a.toLowerCase()+")")!="undefined"?eval(a.toLowerCase()):"<"+a+">";c=SetTagEXML(c,a,b,1);a=BuscaTagEXML(c,1)}return c}
function CambiaFecha(c){nBarra1=c.indexOf("/");nBarra2=c.lastIndexOf("/");if(nBarra1!=-1||nBarra2!=-1){sDia=c.substring(0,nBarra1);sMes=c.substring(nBarra1+1,nBarra2);sAno=c.substring(nBarra2+1);c=sMes+"/"+sDia+"/"+sAno}return c}
function Fecha2Date(c,a){var b,d,e,f,g,h,k="",l="",n="";if(!a){a=c.substr(1,1);isNaN(a)||(a=c.substr(2,1));isNaN(a)||(a="/")}b=c.indexOf(a);d=c.lastIndexOf(a);if(b!=-1&&d!=-1){e=c.substring(0,b);f=c.substring(b+1,d);b=c.indexOf(" ");if(b==-1)d=c.substring(d+1);else{d=c.substring(d+1,b);h=c.indexOf(":");if(h!=-1){k=c.substring(b+1,h);nDosPuntos2=c.indexOf(":",h+1);if(nDosPuntos2==-1)l=c.substring(h+1);else{l=c.substring(h+1,nDosPuntos2);n=c.substring(nDosPuntos2+1)}}}if(ValidaFecha(e,f,d,k,l,n))g=
new Date(d,f-1,e,k,l,n)}return g}function ValidaFecha(c,a,b,d,e,f){if(!c||!a||!b)return false;if(isNaN(c)||isNaN(a)||isNaN(b))return false;b=Number(b);if(b<g_nY2K)b=2E3+b;if(b<100)b=1900+b;d||(d=0);e||(e=0);f||(f=0);var g=new Date(b,a-1,c,d,e,f);if(d!=g.getHours())return false;if(e!=g.getMinutes())return false;if(f!=g.getSeconds())return false;if(c!=g.getDate())return false;if(a!=g.getMonth()+1)return false;if(b!=g.getFullYear())return false;return true}
function SetTagEXML(c,a,b,d){var e;if(d){a="<"+a+"/>";d=c.indexOf(a);if(d!=-1)c=c.f_replace(a,b,0,1)}else{d="<"+a;a="</"+a+">";e=d.length;d=c.indexOf(d);e=c.indexOf(a,d+e);if(d!=-1&&e!=-1){a=c.substr(d,e+a.length-d);c=c.f_replace(a,b,0,1)}}return c}
function GetTagEXML(c,a,b){var d,e,f,g=0;e="</"+a+">";f="";d=c.indexOf("<"+a);a=c.indexOf(e);if(d!=-1&&a!=-1)if(b==1)f=c.substring(d,a+e.length);else{b=c.indexOf(">");for(e=c.lastIndexOf(">",a);b!=e;){f=0;nPropIni=c.indexOf("=",g);if(nPropIni!=-1){for(cChar=c.charAt(++nPropIni);cChar==" ";)cChar=c.charAt(++nPropIni);if(cChar=="'"||cChar=='"')g=c.indexOf(cChar,nPropIni+1);if(g!=-1)f=c.indexOf(">",g);if(f-g<5)f=0}if(f==0)e=b;else b=f}b++;f=c.substr(b,a-b)}return f}
function GetPropEXML(c,a,b){var d,e="";d="";if(b)d=">";b=c.indexOf(a+"=");if(b!=-1){b+=1+a.length;a=c.charAt(b++);if(a=="'"||a=='"'){nPropEnd1=c.indexOf(a+">",b);nPropEnd2=c.indexOf(a+" "+d,b);d=Math.min(nPropEnd1,nPropEnd2);if(d==-1)d=Math.max(nPropEnd1,nPropEnd2);if(d!=-1)e=c.substring(b,d)}}return e}
function BuscaTagEXML(c,a,b){var d="";b||(b=0);if(a)for(var e;b!=-1&&d=="";){b=c.indexOf("<",b);a=c.indexOf("/>",b+1);e=c.lastIndexOf("<",a);if(b!=-1&&a!=-1&&b==e)d=c.substr(b+1,a-b-1);b=b==-1?-1:b+1}else for(;b!=-1&&d=="";){a=c.indexOf("<",b);nPosIni2=c.indexOf(">",a+1);if(a!=-1&&nPosIni2!=-1){b=a+1;nPosIni2b=c.indexOf(" ",a+1);if(nPosIni2b!=-1&&nPosIni2b<nPosIni2)nPosIni2=nPosIni2b;d=c.substr(a+1,nPosIni2-a-1);if(GetTagEXML(c,d)=="")d=""}else b=-1}return d}
function GetOuterTag(c,a,b){var d="<"+b,e="";a=c.indexOf(a);if(a!=-1){d=c.lastIndexOf(d,a);if(d!=-1)e=GetTagEXML(c.substr(d),b,1)}return e}function GetInitTag(c,a,b){var d=-1;if(!b){d=a.indexOf("<"+c+">");if(d==0)return c.length+2;d=-1;b=" >"}for(;b&&d==-1;){d=a.indexOf(b);b=b.substring(1)}return d+(1+b.length)}function GetOpenTag(c,a){var b=-1;for(a||(a=" >");a&&b==-1;){b=c.indexOf(a,0);a=a.substring(1)}return b+(1+a.length)}
function CambiaTexto(c,a,b,d,e){bOnlyOne=1;if(e)bOnlyOne=0;return a.f_replace(b,d,c,bOnlyOne)}function _BuscaMultiarrayBlock(c,a,b){var d,e;if(c.indexOf(".")==2&&typeof g_a_vBlockFormat!="undefined"){d=c.substr(0,2);d=g_a_vBlockFormat.f_indexOf(d);if(d!=-1){d=g_a_vBlockFormat[d+1];c=c.substr(3);if(IsArray(a)){e=a[0];a=a[1]}else{e=eval("a_s"+a);a=eval("a_v"+a)}a_sBlockData=e[d];d+=e.length*b;a_vBlockData=a[d];return BuscaMultiarrayBlock(c,"BlockData",0)}}return a.f_maGetVal(c,b)}
function BuscaMultiarray(c,a,b){return a.f_maGetVal(c,b)}function BuscaMArrayValor(c,a,b){return c.f_maGetReg(a,b)}function SetMArray(c,a,b,d){return c.f_maSetVal(a,d,b)}function GetMArray(c,a,b){return c.f_maGetVal(a,b)}function Seleccionado(c,a){return oIEXML.f_optionSelected(c,a)}function AddCampo2Multiarray(c,a,b){ErrorJS("[EXML] AddCampo2Multiarray() deprecated: usa ma.f_addColEXML","",5);if(typeof c=="string")c=c.f_maBArray2MArray();c.f_addColEXML(a,b)}
function ModMultiarray(c,a,b){ErrorJS("[EXML] ModMultiarray() deprecated: usa ma.f_modColEXML","",5);if(typeof c=="string")c=c.f_maBArray2MArray();c.f_modColEXML(a,b)}function JoinMArray(c,a,b,d,e){c.f_maCopyCols(a,[d,b],e)}
function _JoinMArray(c,a,b,d,e){var f,g,h,k=0;d||(d=b);e||(e=eval("a_s"+a));a_sMArrayFromTo=e;a_vMArrayFromTo=[];var l=c.f_maGetRegs(),n=e.length;for(g=0;g<l;g++){f=c.f_maGetVal(b,g);f=a.f_maGetReg(d,f);if(f==-1)for(h=0;h<n;h++)a_vMArrayFromTo[k++]="";else for(h=0;h<n;h++)a_vMArrayFromTo[k++]=a.f_maGetVal(e[h],f)}for(h=0;h<n;h++)AddCampo2Multiarray(c,e[h],"<FUN>'MArrayFromTo'.f_maGetVal ('"+e[h]+"',nRegistro)</FUN>")}function InsertArray(c,a,b){return c.f_insert(a,b)}
function BuscaEnArray(c,a,b){return c.f_indexOf(a,"",b)}function RegsMultiarray(c){return c.f_maGetRegs()}
function _RegsMultiarray(c){var a,b,d;window.onerror=function(f,g,h){f="\n\n"+g+"\nLinea "+h+" : "+f;ErrorJS(oIEXML.m_sKeyName+" RegsMultiarray() No existen los arrays con datos 'a_s"+c+"' y/o 'a_v"+c+"'"+f,"",1);return true};var e;if(IsArray(c)){e=c[0];a=c[1]}else{e=eval("a_s"+c);a=eval("a_v"+c)}window.onerror=g_oOnErrorEvent;b=a.length/e.length;d=Math.ceil(b);if(d!=b)a[d*e.length-1]="";return d}
function DebugMArray(c,a){var b="";if(!c)c=oIEXML.m_sMArrayBase;if(IsArray(c))b+=c.f_maDebug(a);else c||(b+="Error: No ha usado ningun MArray");return b}function LastMArray(c){if(!c)c=oIEXML.m_sMArrayBase;return c}
function _DebugMArray(c,a){var b,d=3,e="[i_exml.js v"+oIEXML.m_nVersion+"]\n\n";if(!c)c=oIEXML.m_sMArrayBase;if(!IsArray(c)){if(!c)return"Error: No ha usado ningun MArray";e+="MultiArray '"+c+"'\n";c=c.f_maBArray2MArray()}var f=c.f_maGetRegs();if(f<d)d=f;e+="\tETIQUETAS ("+c[0].length+" etiquetas)\n["+c[0]+"]\n";e+="\tVALORES ("+f+" registros)\n";for(b=0;b<d;b++)e+=DebugMArrayReg(c,a,b);if(d<f){e+="\t.....\n\t.....\n\t.....\n";e+=DebugMArrayReg(c,a,f-1)}return e}
function _DebugMArrayReg(c,a,b){for(var d=c[0].length,e="[",f=0;f<d;f++){if(f)e+=",";if(!a||a.f_indexOf(c[0][f],0,1)!=-1)e+=c[1][b*d+f]}e+="] (Reg. "+b+")\n";return e}function OperarMultiEXML(c,a,b){var d,e,f=0;if(typeof c=="string")c=c.f_maBArray2MArray();d=c.f_maGetRegs();for(e=0;e<d;e++)f+=parseFloat("0"+ParseEXMLs(a,b,c,e));return f}
function XML2aForm(c,a){var b,d=0;if(a){a_sFormNames=eval("a_s"+a);a_vFormValues=eval("a_v"+a)}for(sFullTag=GetTagEXML(c,"FORM",1);sFullTag;){a_sFormNames[d]=GetPropEXML(sFullTag,"name");b=GetTagEXML(sFullTag,"FORM");b=RemoveIniFin(b,"<![CDATA[","]]\>");a_vFormValues[d]=b;d++;c=SetTagEXML(c,"FORM","",0);sFullTag=GetTagEXML(c,"FORM",1)}}
function RemoveIniFin(c,a,b){var d;if(a){d=c.indexOf(a);if(d==0)c=c.substring(a.length)}if(b){d=c.lastIndexOf(b);if(d+b.length==c.length)c=c.substring(0,d)}return c}function FixAcentos(c){return c.f_removeAcentos()};