var FRMBtns=new Array();function FRMBotonById(Id,param){var obj=document.getElementById(Id);var i;if(typeof(obj)!='undefined'){i=FRMBtns.length;FRMBtns[i]=new FRMBoton(obj,param);FRMBtns[obj.id]=FRMBtns[i];}else alert('No encontre el botón con id '+Id+' para crear FRMBoton');};var FRMCmpsREL=new Array();function FRMRelacion(Nombre,SQL,ListaCodigos,ListaRelacionados,NumBusqueda){var i;i=FRMCmpsREL.length;FRMCmpsREL[i]=new FRMCampoREL(Nombre,SQL,ListaCodigos,ListaRelacionados,NumBusqueda);FRMCmpsREL[Nombre]=FRMCmpsREL[i];return i;};var FRMCmps=new Array();function FRMCampoByName(Nombre,param){var objs=document.getElementsByName(Nombre);var cmp=null;var i;if(objs.length>0)cmp=objs[0];if(cmp!=null){i=FRMCmps.length;FRMCmps[i]=new FRMCampo(cmp,param);FRMCmps[cmp.name]=FRMCmps[i];}else alert('No encontre el nombre de campo '+Nombre+' para crear FRMCampo');};function FRMBoton(btn,param){var clase=this;this.click=mtClick;this.enabled=mtEnabled;this.obj=btn;this.group=null;this.value='button';this.tabIndex=1;this.clickFunction=null;this.keyAccess=null;this.keyAv=null;this.keyRe=null;this.iclass=null;this.iclassFocus=null;this.iclassOver=null;this.iclassDisabled=null;this.lastFocus=false;this.blocked=false;if(btn.tagName!='INPUT'||btn.type!='button'){MiError('El elemento asigando no es un botón.');return;};RecogeParametros(param);  this.obj.tabIndex=this.tabIndex;this.obj.value=this.value;if(this.iclass!=null)this.obj.className=this.iclass;if(this.iclassFocus!=null){EVTAsignaEvento(this.obj,'focus',evClass);EVTAsignaEvento(this.obj,'blur',evClass);};if(this.iclassOver!=null){EVTAsignaEvento(this.obj,'mouseover',evClass);EVTAsignaEvento(this.obj,'mouseout',evClass);};if(this.clickFunction!=null)EVTAsignaEvento(this.obj,'click',evClick);if(this.keyAccess!=null)this.obj.title=FRMTextos[5]+' '+this.keyAccess;EVTAsignaEvento(this.obj,'focus',evBotonFoco);if(this.keyAv!=null){EVTAsignaEvento(this.obj,'keydown',evKeyAv);EVTAsignaEvento(this.obj,'keyup',evKeyAv);EVTAsignaEvento(this.obj,'keypress',evKeyAv);};if(this.keyRe!=null){EVTAsignaEvento(this.obj,'keydown',evKeyRe);EVTAsignaEvento(this.obj,'keyup',evKeyRe);EVTAsignaEvento(this.obj,'keypress',evKeyRe);};function RecogeParametros(prop){if(prop.length==0)return;var propiedades=new Array();propiedades['group']=[3];propiedades['value']=[0];propiedades['tabIndex']=[1];propiedades['clickFunction']=[0];propiedades['keyAccess']=[11];propiedades['keyAv']=[11];propiedades['keyRe']=[11];propiedades['iclass']=[0];propiedades['iclassFocus']=[0];propiedades['iclassOver']=[0];propiedades['iclassDisabled']=[0];var p,j,i,lis,flag;var miprop,propNombre,propValor;p=prop.split(';');for(i=0;i<p.length;i++){j=p[i].indexOf(':');if(j==-1){propNombre=trim(p[i]);propValor='';}else{propNombre=trim(p[i].substr(0,j));propValor=p[i].substr(j+1);};if(typeof propiedades[propNombre]!='undefined'){miprop='clase.'+propNombre;switch(propiedades[propNombre][0]){case 0:if(propValor=='')MiError('La propiedad '+propNombre+' debe contener una cadena.');else{propValor=propValor.replace(/"/g,'\\\"');eval(miprop+'="'+propValor+'";');};break;case 1:if(isNaN(propValor))MiError('La propiedad '+propNombre+' debe ser numerica.');else eval(miprop+'=parseInt("'+propValor+'",10);');break;case 2:propValor=trim(propValor.toLowerCase());if(propValor!='true'&&propValor!='false')MiError('La propiedad '+propNombre+' debe ser true o false.');else eval(miprop+'='+propValor+';');break;case 3:propValor=propValor.replace(/"/g,'\\\"');eval(miprop+'="'+propValor+'";');break;case 10:lis=propiedades[propNombre][1].split(',');propValor=trim(propValor);flag=false;for(j=0;j<lis.length;j++)if(lis[j]==propValor){flag=true;j=lis.length;};if(flag)eval(miprop+'="'+propValor+'";');else MiError('La propiedad '+propNombre+' debe ser uno de estos valores:\n'+propiedades[propNombre][1]);break;case 11:eval(miprop+'="'+propValor+'";');break;};}else MiError('Propiedad '+propNombre+' no valida.');};}; function MiError(txt){ alert(txt+'\nBoton:'+clase.obj.id);};function evClass(evt){evt=EVTDimeEvento(evt);if(evt.type=='blur'||evt.type=='mouseout')if(clase.iclass!=null)clase.obj.className=clase.iclass;else clase.obj.className='';if(evt.type=='focus'&&clase.iclassFocus!=null)clase.obj.className=clase.iclassFocus;if(evt.type=='mouseover'&&clase.iclassOver!=null)clase.obj.className=clase.iclassOver;};function evKeyAv(evt){if(FRMVerificaClick(clase.keyAv,evt)){EVTNoPropagarEvento(evt);if(evt.type=='keydown')FRMFocoSig(clase.obj);};};function evKeyRe(evt){if(FRMVerificaClick(clase.keyRe,evt)){EVTNoPropagarEvento(evt);if(evt.type=='keydown')FRMFocoAnt(clase.obj);};};function evBotonFoco(evt){var i;for(i=0;i<FRMBtns.length;i++)FRMBtns[i].lastFocus=false;clase.lastFocus=true;};function evClick(evt){if(!clase.blocked)eval(clase.clickFunction);};function mtEnabled(flag){if(flag){clase.obj.disabled=false;if(clase.iclass!=null)clase.obj.className=clase.iclass;else clase.obj.className='';}else{clase.obj.disabled=true;if(clase.iclassDisabled!=null)clase.obj.className=clase.iclassDisabled;};};function mtClick(){clase.obj.focus();clase.obj.click();};};function FRMCampoREL(Nombre,SQL,ListaCodigos,ListaRelacionados,NumBusqueda){var clase=this;var cmpIFRAME;var cmpFORM;var cmpCLV;var cmpREL=null;var cmpFlagLectura=null;var cmpPag=SQL+'?Tipo=B&Action='+NumBusqueda;this.name=Nombre;this.reading=false;this.win=null;this.readData=mtGetData;this.statusReset=mtResetStatus;this.statusData=mtDataStatus;this.winSearch=mtWinSearch;this.winProcess=mtWinProcess;cmpCLV=CogeCmp(ListaCodigos);if(ListaRelacionados)cmpREL=CogeCmp(ListaRelacionados);cmpIFRAME=document.createElement('IFRAME');cmpIFRAME.style.position='absolute';cmpIFRAME.style.visibility='hidden';cmpIFRAME.name='IFRAME'+Nombre;document.body.appendChild(cmpIFRAME);function DefineWin(){if(clase.win==null)clase.win=new WINClassVentana('tipo:IFRAME,centrar:all,ajustar:all,noselect:true');};function CogeCmp(lista){var dat=new Array();var tmp=lista.split(',');var j,i,ref,campoForm,campoBBDD,t;for(i=0;i<tmp.length;i++){t=tmp[i].split(':');if(t.length!=2){MiError('Error al definir campo relacionado:'+tmp[i]);return;};campoForm=trim(t[0]);campoBBDD=trim(t[1]);ref=document.getElementsByName(campoForm);if(ref.length>0){j=dat.length;dat[j]=new FRMUnCampoREL(campoBBDD,ref[0]);}else{MiError('El nombre de campo:'+campoForm+' no existe.');return;};};return dat;};function LoadCmp(){var i,valor,campo;var ifrDOC=cmpIFRAME.contentWindow.document;var j;EVTEliminaEvento(cmpIFRAME,'load',LoadCmp);if(cmpREL==null){clase.reading=false;return;};if(ifrDOC.getElementById('Status').innerHTML=='OK'){for(i=0;i<cmpREL.length;i++){campo=cmpREL[i].cmpBBDD;valor=ifrDOC.getElementById(campo).innerHTML;switch(cmpREL[i].objForm.tagName){case 'INPUT':case 'TEXTAREA':cmpREL[i].objForm.value=valor;break;case 'SELECT':COMBOSelValue(cmpREL[i].objForm,valor);break;};for(j=0;j<cmpCLV.length;j++)if(cmpCLV[j].objForm==cmpREL[i].objForm)cmpCLV[j].valueIni=valor;};cmpFlagLectura=true;}else{if(ifrDOC.getElementById('NumeroError').innerHTML=='-12'){for(i=0;i<cmpREL.length;i++){switch(cmpREL[i].objForm.tagName){case 'INPUT':case 'TEXTAREA':cmpREL[i].objForm.value='';break;case 'SELECT':cmpREL[i].objForm.selectedIndex=0;break;};};cmpFlagLectura=false;}else{t='Error no. '+ifrDOC.getElementById('NumeroError').innerHTML+'\n';t+=ifrDOC.getElementById('DescripcionError').innerHTML+'\n';t+='Origen:'+ifrDOC.getElementById('Origen').innerHTML+'\n';MiError('Error al cargar select.\n'+t);};};clase.reading=false;}; function MiError(txt){ alert(txt+'\nGrupo relaciones:'+clase.name);};function mtWinProcess(pagina,titulo){var tit='';if(typeof(titulo)!='undefined')tit=titulo;DefineWin();if(pagina.indexOf('?')==-1)pagina+='?window=S';else pagina+='&window=S';clase.win.Abre(pagina,tit);};function mtWinSearch(pagina,titulo){var PBus='';var PCheck='';var check='';var tit='';var proceso;if(typeof(titulo)!='undefined')tit=titulo;DefineWin();for(var i=0;i<cmpCLV.length;i++){if(PBus!='')PBus+='&';PBus+='CampoFORM='+cmpCLV[i].objForm.name;PBus+='&CampoBBDD='+cmpCLV[i].cmpBBDD;PCheck+=",'"+cmpCLV[i].objForm.name+"','"+cmpCLV[i].objForm.value+"'";};if(pagina.indexOf('?')!=-1)Proceso=pagina+'&'+PBus;else Proceso=pagina+'?'+PBus;clase.win.Abre(Proceso,tit);check+="FRMCheckSearchWin(";check+=" 'FRMCmpsREL[\""+clase.name+"\"].win',";check+=" 'FRMCmpsREL[\""+clase.name+"\"].readData();' ";  check+=PCheck;check+=");";eval(check);};function mtResetStatus(flag){if(flag){cmpFlagLectura=true;for(var i=0;i<cmpCLV.length;i++)cmpCLV[i].valueIni=cmpCLV[i].objForm.value;}else{cmpFlagLectura=null;for(var i=0;i<cmpCLV.length;i++)cmpCLV[i].valueIni=null;};};function mtDataStatus(){var CamposChange=false;var i;for(i=0;i<cmpCLV.length;i++){if(cmpCLV[i].valueIni!=cmpCLV[i].objForm.value){cmpFlagLectura=null;break;};};return cmpFlagLectura;};function mtGetData(){var flag,dat='';if(clase.statusData()!=true){clase.reading=true;for(var i=0;i<cmpCLV.length;i++){cmpCLV[i].valueIni=cmpCLV[i].objForm.value;dat+='&'+cmpCLV[i].cmpBBDD+'='+escape(cmpCLV[i].objForm.value);};EVTAsignaEvento(cmpIFRAME,'load',LoadCmp);cmpIFRAME.src=cmpPag+dat;};};function FRMUnCampoREL(CampoBBDD,Obj){this.cmpBBDD=CampoBBDD;this.objForm=Obj;this.valueIni=null;};};function FRMCampo(cmp,param){var clase=this;this.init=mtInicializa;this.validate=mtValida;this.loadListData=mtCargaCombo;this.loadList=mtCargaComboList;this.callFunction=mtFuncionTeclaAccion;  this.statusChange=mtStatusChange;this.statusChangeReset=mtStatusChangeIni;this.format=mtFormat;this.enabled=mtEnabled;this.obj=cmp;this.type='string';this.chars=0;this.decimals=0;this.valueIni='';this.optList='';this.align='';this.letterCase='normal';this.signed=true;this.selected=true;this.required=false;this.valueMax=null;this.valueMin=null;this.charOnly=null;this.charInvalid=null;this.charAlphabetical=false;this.autoSize=true;this.size=null;this.tabIndex=1;this.functionKey=null;this.functionPointer=null;this.keyAv=null;this.keyRe=null;this.relationData=null;this.listDataAsp=null;this.listDataIdx=null;this.iclass=null;this.iclassFocus=null;this.iclassOver=null;this.iclassDisabled=null;RecogeParametros(param);  AjusteDeParametros();var cmpTipoObjeto=DameTipoObjeto();  var cmpIFRAME=null;var cmpTimeFocus=0;var cmpOriginalValue=this.obj.value;this.maxLength=MaximoNumeroCaracteres();if(VerificaObjetoTipo()==-1)return-1;this.obj.tabIndex=this.tabIndex;if(this.align!=null)this.obj.style.textAlign=this.align;if(this.autoSize)this.size=this.maxLength;if(this.size!=null)this.obj.size=this.size;switch(cmpTipoObjeto){case 'INPUT.text':this.obj.maxLength=this.maxLength;break;case 'TEXTAREA':if(this.maxLength!=0){EVTAsignaEvento(this.obj,'keypress',evControlLongitudMaxima);};};if(this.listDataAsp)mtCargaCombo();else if(this.optList!=null)mtCargaComboList();if(this.iclass!=null)this.obj.className=this.iclass;if(this.iclassFocus!=null){EVTAsignaEvento(this.obj,'focus',evClass);EVTAsignaEvento(this.obj,'blur',evClass);};if(this.iclassOver!=null){EVTAsignaEvento(this.obj,'mouseover',evClass);EVTAsignaEvento(this.obj,'mouseout',evClass);};if(this.selected!=null)if(this.selected){EVTAsignaEvento(this.obj,'focus',evFocoSel);EVTAsignaEvento(this.obj,'click',evFocoSel);}else{EVTAsignaEvento(this.obj,'focus',evFocoNoSel);};if(this.relationData!=null)EVTAsignaEvento(this.obj,'blur',evLeeSQL);if(this.functionKey!=null&&this.functionPointer!=null)EVTAsignaEvento(this.obj,'keydown',evKeyFunction);if(this.keyAv!=null){EVTAsignaEvento(this.obj,'keydown',evKeyAv);EVTAsignaEvento(this.obj,'keyup',evKeyAv);EVTAsignaEvento(this.obj,'keypress',evKeyAv);};if(this.keyRe!=null){EVTAsignaEvento(this.obj,'keydown',evKeyRe);EVTAsignaEvento(this.obj,'keyup',evKeyRe);EVTAsignaEvento(this.obj,'keypress',evKeyRe);};if(this.letterCase!=null){switch(this.letterCase){case 'ucase':EVTAsignaEvento(this.obj,'keypress',evUcase);break;case 'lcase':EVTAsignaEvento(this.obj,'keypress',evLcase);break;};};if(this.charOnly!=null){EVTAsignaEvento(this.obj,'keypress',evCharOnly);}else{if(this.charInvalid!=null)EVTAsignaEvento(this.obj,'keypress',evCharInvalid);if(this.charAlphabetical) EVTAsignaEvento(this.obj,'keypress',evCharAlphabetical);};switch(this.type){case 'number':EVTAsignaEvento(this.obj,'keypress',evTypeNumber);break;case 'date':EVTAsignaEvento(this.obj,'keypress',evTypeDate);break;case 'hour':EVTAsignaEvento(this.obj,'keypress',evTypeHour);break;case 'mail':EVTAsignaEvento(this.obj,'keypress',evTypeMail);break;case 'web':EVTAsignaEvento(this.obj,'keypress',evTypeWeb);break;case 'hexa':EVTAsignaEvento(this.obj,'keypress',evTypeHexa);break;};function RecogeParametros(prop){if(prop.length==0)return;var propiedades=new Array();propiedades['type']=[10,'string,number,memo,date,hour,list,bool,mail,web,hexa'];propiedades['chars']=[1];propiedades['decimals']=[1];propiedades['valueIni']=[3];propiedades['optList']=[0];propiedades['align']=[10,'left,rigth,center,justify'];propiedades['letterCase']=[10,'normal,ucase,lcase'];propiedades['signed']=[2];propiedades['selected']=[2];propiedades['required']=[2];propiedades['valueMax']=[3];propiedades['valueMin']=[3];propiedades['charOnly']=[0];propiedades['charInvalid']=[0];propiedades['charAlphabetical']=[2];propiedades['autoSize']=[2];propiedades['size']=[1];propiedades['tabIndex']=[1];propiedades['functionKey']=[11];propiedades['functionPointer']=[0];propiedades['keyAv']=[11];propiedades['keyRe']=[11];propiedades['relationData']=[0];propiedades['listDataAsp']=[0];propiedades['listDataIdx']=[1];propiedades['iclass']=[0];propiedades['iclassFocus']=[0];propiedades['iclassOver']=[0];propiedades['iclassDisabled']=[0];var p,j,i,lis,flag;var miprop,propNombre,propValor;p=prop.split(';');for(i=0;i<p.length;i++){j=p[i].indexOf(':');if(j==-1){propNombre=trim(p[i]);propValor='';}else{propNombre=trim(p[i].substr(0,j));propValor=p[i].substr(j+1);};if(typeof propiedades[propNombre]!='undefined'){miprop='clase.'+propNombre;switch(propiedades[propNombre][0]){case 0:if(propValor=='')MiError('La propiedad '+propNombre+' debe contener una cadena.');else{propValor=propValor.replace(/"/g,'\\\"');eval(miprop+'="'+propValor+'";');};break;case 1:if(isNaN(propValor))MiError('La propiedad '+propNombre+' debe ser numerica.');else eval(miprop+'=parseInt("'+propValor+'",10);');break;case 2:propValor=trim(propValor.toLowerCase());if(propValor!='true'&&propValor!='false')MiError('La propiedad '+propNombre+' debe ser true o false.');else eval(miprop+'='+propValor+';');break;case 3:propValor=propValor.replace(/"/g,'\\\"');eval(miprop+'="'+propValor+'";');break;case 10:lis=propiedades[propNombre][1].split(',');propValor=trim(propValor);flag=false;for(j=0;j<lis.length;j++)if(lis[j]==propValor){flag=true;j=lis.length;};if(flag)eval(miprop+'="'+propValor+'";');else MiError('La propiedad '+propNombre+' debe ser uno de estos valores:\n'+propiedades[propNombre][1]);break;case 11:eval(miprop+'="'+propValor+'";');break;};}else MiError('Propiedad '+propNombre+' no valida.');};};function AjusteDeParametros(){switch(clase.type){case 'string':clase.decimals=null;clase.signed=null;clase.optList=null;if(clase.charOnly!=null){clase.charInvalid=null;clase.charAlphabetical=null;};if(clase.chars==0||clase.size!=null)clase.autoSize=false;clase.listData=null;if(clase.align=='')clase.align='left';break;case 'number':clase.optList=null;clase.letterCase=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;if(clase.chars==0||clase.size!=null)clase.autoSize=false;clase.listData=null;if(clase.align=='')clase.align='right';break;case 'memo':clase.decimals=null;clase.signed=null;clase.optList=null;if(clase.charOnly!=null){clase.charInvalid=null;clase.charAlphabetical=null;};clase.autoSize=null;clase.size=null;clase.listData=null;if(clase.align=='')clase.align='justify';break;case 'date':clase.chars=10;clase.decimals=null;clase.signed=null;clase.optList=null;clase.letterCase=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;if(clase.size!=null)clase.autoSize=false;clase.listData=null;if(clase.align=='')clase.align='left';clase.valueIni=RedefineDate(clase.valueIni);clase.valueMax=RedefineDate(clase.valueMax);clase.valueMin=RedefineDate(clase.valueMin);break;case 'hour':clase.chars=8;clase.decimals=null;clase.signed=null;clase.optList=null;clase.letterCase=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;if(clase.size!=null)clase.autoSize=false;clase.listData=null;if(clase.align=='')clase.align='left';clase.valueIni=RedefineHour(clase.valueIni);clase.valueMax=RedefineHour(clase.valueMax);clase.valueMin=RedefineHour(clase.valueMin);break;case 'list':clase.chars=0;clase.decimals=null;clase.signed=null;clase.align=null;clase.letterCase=null;clase.selected=null;clase.required=null;clase.valueMax=null;clase.valueMin=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;clase.autoSize=null;clase.size=null;if(clase.listData)clase.optList=null;break;case 'bool':clase.chars=0;clase.decimals=null;clase.signed=null;clase.optList=FRMTextos[16];clase.align=null;clase.letterCase=null;clase.selected=null;clase.required=null;clase.valueMax=null;clase.valueMin=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;clase.autoSize=null;clase.size=null;if(clase.listData)clase.optList=null;if(clase.valueIni=='1'||clase.valueIni.toUpperCase()=='TRUE')clase.valueIni='SI';if(clase.valueIni=='0'||clase.valueIni.toUpperCase()=='FALSE')clase.valueIni='NO';break;case 'mail':clase.decimals=null;clase.signed=null;clase.optList=null;clase.letterCase=null;clase.valueMax=null;clase.valueMin=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;if(clase.chars==0||clase.size!=null)clase.autoSize=false;clase.listData=null;if(clase.align=='')clase.align='left';break;case 'web':clase.decimals=null;clase.signed=null;clase.optList=null;clase.letterCase=null;clase.valueMax=null;clase.valueMin=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;if(clase.chars==0||clase.size!=null)clase.autoSize=false;clase.listData=null;if(clase.align=='')clase.align='left';break;case 'hexa':clase.decimals=null;clase.signed=null;clase.optList=null;clase.charOnly=null;clase.charInvalid=null;clase.charAlphabetical=null;if(clase.chars==0||clase.size!=null)clase.autoSize=false;clase.listData=null;if(clase.align=='')clase.align='left';break;};if(clase.valueIni!=null&&clase.valueIni!=''){if(!CompruebaValor(clase.valueIni)){clase.valueIni=null;MiError('valueIni no valido');};};if(clase.valueMax!=null){if(!CompruebaValor(clase.valueMax)){clase.valueMax=null;MiError('valueMax no valido');};};if(clase.valueMin!=null){if(!CompruebaValor(clase.valueMin)){clase.valueMin=null;MiError('valueMin no valido');};};};function VerificaObjetoTipo(){var Tipo=new Array();Tipo['string']='INPUT.text TEXTAREA';Tipo['number']='INPUT.text';Tipo['memo']='TEXTAREA';Tipo['date']='INPUT.text';Tipo['hour']='INPUT.text';Tipo['list']='SELECT';Tipo['bool']='SELECT';Tipo['mail']='INPUT.text';Tipo['web']='INPUT.text';Tipo['hexa']='INPUT.text';if(Tipo[clase.type].indexOf(cmpTipoObjeto)==-1){MiError('El objeto asignado no es valido.\nPara type='+clase.type+' solo '+Tipo[clase.type]);return-1;};return 0;};function MaximoNumeroCaracteres(){return clase.chars+((clase.decimals!=null&&clase.decimals>0)?clase.decimals+1:0)+(clase.signed!=null&&clase.signed?1:0);};function DameTipoObjeto(){var CadTip;CadTip=clase.obj.tagName;if(clase.obj.tagName=='INPUT')CadTip+='.'+clase.obj.type.toLowerCase();return CadTip;};function DameClaseDesdeEvento(evt){var obj=EVTDimeObjeto(evt);return FRMCmps[obj.name];};function RedefineDate(valor){var f,d,m,y,fc,res;var REnow=/now/g;var REyearNow=/yearNow/g;var REmonthNow=/monthNow/g;var REdayNow=/dayNow/g;if(valor==''||valor==null)return valor;f=new Date();y=new String(f.getFullYear());m=new String(f.getMonth()+1);if(m.length==1)m='0'+m;d=new String(f.getDate());if(d.length==1)d='0'+d;fc=d+'/'+m+'/'+y;res=valor;res=res.replace(REdayNow,d);res=res.replace(REmonthNow,m);res=res.replace(REyearNow,y);res=res.replace(REnow,fc);return res;};function RedefineHour(valor){var f,h,m,s,hc,res;var REnow=/now/g;var REhourNow=/hourNow/g;var REminuteNow=/minuteNow/g;var REsecondNow=/secondNow/g;if(valor==''||valor==null)return valor;f=new Date();h=new String(f.getHours());if(h.length==1)h='0'+h;m=new String(f.getMinutes()+1);if(m.length==1)m='0'+m;s=new String(f.getSeconds());if(s.length==1)s='0'+s;hc=h+':'+m+':'+s;res=valor;res=res.replace(REhourNow,h);res=res.replace(REminuteNow,m);res=res.replace(REsecondNow,s);res=res.replace(REnow,hc);return res;};function CompruebaValor(valor){if(clase.maxLength!=0&&valor.length>clase.maxLength)return false;switch(clase.type){case 'number':return FRMChekNumber(valor,clase.chars,clase.decimals,clase.signed);case 'date':return FRMChekDate(valor);case 'hour':return FRMCheckHour(valor);case 'mail':return FRMCheckMail(valor);case 'web':return FRMCheckWeb(valor);case 'hexa':return FRMCheckHexa(valor);case 'string':case 'memo':if(clase.charOnly!=null)return FRMCheckCharOnly(valor,clase.charOnly);else{if(clase.charInvalid!=null){if(!FRMCheckCharInvalid(valor,clase.charInvalid))return false;};if(clase.charAlphabetical){if(!FRMCheckAlphabetical(valor))return false;};return true;};case 'list':case 'bool':return true;};};function CreaIFRAME(){if(cmpIFRAME==null){cmpIFRAME=document.createElement('IFRAME');cmpIFRAME.style.position='absolute';cmpIFRAME.style.visibility='hidden';document.body.appendChild(cmpIFRAME);};};function CargaListaCombo(){var ifrDOC=cmpIFRAME.contentWindow.document;var t;EVTEliminaEvento(cmpIFRAME,'load',CargaListaCombo);if(ifrDOC.getElementById('Status').innerHTML=='OK'){clase.optList=ifrDOC.getElementById('lista').innerHTML;COMBORellena(clase.obj,clase.optList);}else{t='Error no. '+ifrDOC.getElementById('NumeroError').innerHTML+'\n';t+=ifrDOC.getElementById('DescripcionError').innerHTML+'\n';t+='Origen:'+ifrDOC.getElementById('Origen').innerHTML+'\n';MiError('Error al cargar select.\n'+t);return-1;};};function LlamaAFunction(evt){if(clase.functionPointer!=null)eval(clase.functionPointer+'(clase,evt);');else MiError('No tiene definida la propiedad functionPointer');};function ComparaValor(valor){var ValueCmp,Value,t;var mat,d,m,a,s,h;switch(clase.type){case 'string':case 'memo':ValueCmp=clase.obj.value;Value=valor;break;case 'number':t=clase.obj.value;ValueCmp=new Number(t.replace(/,/g,'.'));Value=new Number(valor.replace(/,/g,'.'));break;case 'hexa':ValueCmp=new Number('0x'+clase.obj.value);Value=new Number('0x'+valor);break;case 'hour':t=clase.obj.value;mat=t.split(':');h=parseInt(mat[0],10); m=parseInt(mat[1],10); s=parseInt(mat[2],10);ValueCmp=new Date(2000,7,1,h,m,s);mat=valor.split(':');h=parseInt(mat[0],10); m=parseInt(mat[1],10); s=parseInt(mat[2],10);Value=new Date(2000,7,1,h,m,s);break;case 'date':t=clase.obj.value;mat=t.split('/');d=parseInt(mat[0],10); m=parseInt(mat[1],10)-1;a=parseInt(mat[2],10);ValueCmp=new Date(a,m,d,0,0,0);mat=valor.split('/');d=parseInt(mat[0],10); m=parseInt(mat[1],10)-1;a=parseInt(mat[2],10);Value=new Date(a,m,d,0,0,0);break;};if(ValueCmp<Value)return-1;else{if(ValueCmp>Value)return 1;else return 0;};}; function MiError(txt){ alert(txt+'\nCampo:'+clase.obj.name);};function evClass(evt){evt=EVTDimeEvento(evt);if(evt.type=='blur'||evt.type=='mouseout')if(clase.iclass!=null)clase.obj.className=clase.iclass;else clase.obj.className='';if(evt.type=='focus'&&clase.iclassFocus!=null)clase.obj.className=clase.iclassFocus;if(evt.type=='mouseover'&&clase.iclassOver!=null)clase.obj.className=clase.iclassOver;};function evControlLongitudMaxima(evt){var miclase=DameClaseDesdeEvento(evt);evt=EVTDimeEvento(evt);if(miclase.obj.value.length>=miclase.maxLength){t=EVTDimeTecla(evt,'ASCII');if(t!=0)EVTNoPropagarEvento(evt);};};function evKeyFunction(evt){if(FRMVerificaClick(clase.functionKey,evt)){LlamaAFunction(evt);EVTNoPropagarEvento(evt);};};function evKeyAv(evt){if(FRMVerificaClick(clase.keyAv,evt)){EVTNoPropagarEvento(evt);if(evt.type=='keydown')FRMFocoSig(clase.obj);};};function evKeyRe(evt){if(FRMVerificaClick(clase.keyRe,evt)){EVTNoPropagarEvento(evt);if(evt.type=='keydown')FRMFocoAnt(clase.obj);};};function evUcase(evt){var nt,t;t=String.fromCharCode(EVTDimeTecla(evt,'ASCII'));nt=t.toUpperCase();if(nt!=t)EVTCambiaASCII(evt,nt.charCodeAt(0));};function evLcase(evt){var nt,t;t=String.fromCharCode(EVTDimeTecla(evt,'ASCII'));nt=t.toLowerCase();if(nt!=t)EVTCambiaASCII(evt,nt.charCodeAt(0));};function evFocoSel(evt){var d=new Date();var a;switch(evt.type){case 'focus':cmpTimeFocus=d.getTime();clase.obj.select();break;case 'click':a=d.getTime();a-=cmpTimeFocus;if(a<100){clase.obj.select();EVTNoPropagarEvento(evt);return false;};break;};return true;};function evFocoNoSel(evt){if(OBJQueNavegador()=='IE')clase.obj.focus();else setTimeout('FRMFocoNoSelect("'+clase.obj.name+'")',0);};function evCharOnly(evt){var t,c;var cad=clase.charOnly;c=EVTDimeTecla(evt,'ASCII');if(c!=0){t=String.fromCharCode(c);if(cad.indexOf(t)==-1)EVTNoPropagarEvento(evt);};};function evCharInvalid(evt){var t,c;var cad=clase.charInvalid;c=EVTDimeTecla(evt,'ASCII');if(c!=0){t=String.fromCharCode(c);if(cad.indexOf(t)!=-1)EVTNoPropagarEvento(evt);};};function evCharAlphabetical(evt){var t,c;c=EVTDimeTecla(evt,'ASCII');if(c!=0){t=String.fromCharCode(c);if(!FRMCheckAlphabetical(t))EVTNoPropagarEvento(evt);};};function evTypeNumber(evt){var t,c;var cad='0123456789';if(clase.signed)cad+='-';if(clase.decimals>0)cad+=',.';c=EVTDimeTecla(evt,'ASCII');if(c!=0){if(c==46){EVTCambiaASCII(evt,44);};t=String.fromCharCode(c);if(cad.indexOf(t)==-1)EVTNoPropagarEvento(evt);};};function evTypeDate(evt){var t,c;var cad='0123456789/';c=EVTDimeTecla(evt,'ASCII');if(c!=0){if(c==45){EVTCambiaASCII(evt,47);return;};t=String.fromCharCode(c);if(cad.indexOf(t)==-1)EVTNoPropagarEvento(evt);};};function evTypeHour(evt){var t,c;var cad='0123456789:';c=EVTDimeTecla(evt,'ASCII');if(c!=0){t=String.fromCharCode(c);if(cad.indexOf(t)==-1)EVTNoPropagarEvento(evt);};};function evTypeMail(evt){var t,c;var cad='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@.-_';c=EVTDimeTecla(evt,'ASCII');if(c!=0){t=String.fromCharCode(c);if(cad.indexOf(t)==-1)EVTNoPropagarEvento(evt);};};function evTypeWeb(evt){var t,c;var cad='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz:/.-';c=EVTDimeTecla(evt,'ASCII');if(c!=0){t=String.fromCharCode(c);if(cad.indexOf(t)==-1)EVTNoPropagarEvento(evt);};};function evTypeHexa(evt){var t,c;c=EVTDimeTecla(evt,'ASCII');if(c!=0){t=String.fromCharCode(c);if(!FRMCheckHexa(t))EVTNoPropagarEvento(evt);};};function evLeeSQL(evt){FRMCmpsREL[clase.relationData].readData();};function mtEnabled(flag){if(flag){clase.obj.disabled=false;if(clase.iclass!=null)clase.obj.className=clase.iclass;else clase.obj.className='';}else{clase.obj.disabled=true;if(clase.iclassDisabled!=null)clase.obj.className=clase.iclassDisabled;};};function mtFormat(){var t='',c='';switch(clase.type){case 'number':if(clase.signed)c+='-';t=FRMTextos[8]+' '+clase.chars+' '+FRMTextos[9];c+=string('n',clase.chars);if(clase.decimals){c+=','+string('n',clase.decimals);t+=' '+FRMTextos[10]+' '+clase.decimals+' '+FRMTextos[11];};if(clase.signed)t+=' '+FRMTextos[12];return t+'\n('+c+')';case 'date':return FRMTextos[14];case 'hour':return FRMTextos[15];case 'mail':return FRMTextos[6];case 'web':return FRMTextos[7];case 'hexa':case 'string':case 'memo':case 'list':case 'bool':return '';};};function mtInicializa(){switch(cmpTipoObjeto){case 'INPUT.text':case 'TEXTAREA':if(clase.valueIni!=null)clase.obj.value=clase.valueIni;break;case 'SELECT':if(clase.valueIni!=null)COMBOSelValue(clase.obj,clase.valueIni);break;};};function mtValida(){switch(cmpTipoObjeto){case 'INPUT.text':case 'TEXTAREA':if(clase.required&&clase.obj.value==''){alert(FRMTextos[0]);return false;};if(clase.required||clase.obj.value!=''){if(CompruebaValor(clase.obj.value)){if(clase.valueMin!=null)if(ComparaValor(clase.valueMin)==-1){alert(FRMTextos[1]+' '+clase.valueMin);return false;};if(clase.valueMax!=null)if(ComparaValor(clase.valueMax)==1){alert(FRMTextos[2]+' '+clase.valueMax);return false;};}else{alert(FRMTextos[3]+'\n'+FRMTextos[13]+' '+clase.format());return false;};};break;case 'SELECT':break;};if(clase.relationData!=null){if(FRMCmpsREL[clase.relationData].reading)return null;if(FRMCmpsREL[clase.relationData].statusData()!=true){alert(FRMTextos[4]);return false;};};return true;};function mtCargaCombo(){var pag;if(clase.type=='list'||clas.type=='bool'){if(clase.listDataAsp){pag=clase.listDataAsp+'?Tipo=O&Action=';if(clase.listDataIdx!=null)pag+=clase.listDataIdx;CreaIFRAME();EVTAsignaEvento(cmpIFRAME,'load',CargaListaCombo);cmpIFRAME.src=pag;}else{MiError('No tiene definida la propiedad listDataAsp');return-1;};}else{MiError('Este campo no permite la carga de opciones a traves de una pagina xxxxxSQL.asp');return-1;};};function mtCargaComboList(){if(clase.optList!=null&&(clase.type=='list'||clase.type=='bool'))COMBORellena(clase.obj,clase.optList);else{MiError('Este campo no es tipo list u optList es null');return-1;};};function mtFuncionTeclaAccion(){LlamaAFunction(null);};function mtStatusChange(){if(cmpOriginalValue!=clase.obj.value)return true;else return false;};function mtStatusChangeIni(){cmpOriginalValue=clase.obj.value;};};function FRMAlert(txt,mls){var w=document.getElementById('WinEspera');var html='';if(w==null){w=document.createElement('DIV');w.id='WinEspera';w.style.visibility='hidden';w.style.position='absolute';w.style.overflow='hidden';w.style.zIndex=99;document.body.appendChild(w);};html+='<table>';html+='<tr><td id="WinEsperaCell">';html+=txt+'<br>|'+'</td></tr></table>';w.innerHTML=html;if(OBJQueNavegador()=='IE'){Top=Math.round(document.body.scrollTop+(document.body.clientHeight/2)-(w.offsetHeight/2));Left=Math.round(document.body.scrollLeft+(document.body.clientWidth/2)-(w.offsetWidth/2));}else{Top=Math.round(document.body.scrollTop+(window.innerHeight/2)-(w.offsetHeight/2));Left=Math.round(document.body.scrollLeft+(window.innerWidth/2)-(w.offsetWidth/2));};w.style.top=Top+'px';w.style.left=Left+'px';if(typeof(mls)!='undefined')setTimeout('FRMSacaAlert()',mls);else FRMSacaAlert();};function FRMSacaAlert(){var w=document.getElementById('WinEspera');var td,t,c;if(w!=null&&w.innerHTML!=''){w.style.visibility='visible';td=document.getElementById('WinEsperaCell');t=td.innerHTML;c=t.substr(t.length-1,1);switch(c){case '|':c='/';break;case '/':c='-';break;case '-':c='\\';break;case '\\':c='|';break;};t=t.substr(0,t.length-1)+c;td.innerHTML=t;setTimeout('FRMSacaAlert()',500);};};function FRMAlertHidden(){var w=document.getElementById('WinEspera');if(w!=null){w.innerHTML='';w.style.visibility='hidden';};};function FRMAlertVisible(){var w=document.getElementById('WinEspera');var f=false;if(w!=null)if(w.style.visibility=='visible')f=true;return f;};function FRMFocoNoSelect(Nombre){var Ele,a;i=document.getElementsByName(Nombre);if(i.length==0)return;Ele=i[0];a=Ele.value;if(a.length>1){Ele.value=a.substr(0,a.length-1);Ele.value+=a.substr(a.length-1);}else{Ele.value='';Ele.value=a;};};function FRMFocoSig(Ele){var i,idx=-1;var ti;ti=FRMOrdenaTabIndex(Ele.form);for(i=0;ti.length>i;i++)if(ti[i]==Ele){idx=i;break;};if(idx!=-1){idx++;if(idx==ti.length)idx=0;if(ti[idx]==Ele)return-1;ti[idx].focus();};};function FRMFocoAnt(Ele){var i,idx=-1;var ti;ti=FRMOrdenaTabIndex(Ele.form);for(i=0;ti.length>i;i++)if(ti[i]==Ele){idx=i;break;};if(idx!=-1){idx--;if(idx==-1)idx=ti.length-1;if(ti[idx]==Ele)return-1;ti[idx].focus();};};function FRMOrdenaTabIndex(Frm){var FrmEle=Frm.elements;var tindex=new Array();var flag,c;for(i=0;FrmEle.length>i;i++){flag=true;if(FrmEle[i].style.visibility=='hidden')flag=false;if(FrmEle[i].disabled)flag=false;if(FrmEle[i].type=='hidden'||!FrmEle[i].type)flag=false;if(flag)tindex[tindex.length]=FrmEle[i];};do{flag=false;for(i=0;i<tindex.length-1;i++){if(FRMOrdenaTabIndexCompara(tindex[i],tindex[i+1])){c=tindex[i];tindex[i]=tindex[i+1];tindex[i+1]=c;flag=true;};};}while(flag);return tindex;};function FRMOrdenaTabIndexCompara(a,b){var tiA=parseInt(a.tabIndex,10);var tiB=parseInt(b.tabIndex,10);if(tiA<tiB)return true;else return false;};function FRMPonFoco(){var i,j;var ti;for(j=0;j<document.forms.length;j++){ti=FRMOrdenaTabIndex(document.forms[j]);if(ti.length>0){ti[0].focus();return;};};};function FRMFocusFirstBtn(){var i;var ob;ob=FRMLastFocusBtn();if(ob!=null)if(!ob.disabled&&ob.style.visibility!='hidden'){ob.focus();return;};for(i=0;i<FRMBtns.length;i++)if(!FRMBtns[i].obj.disabled&&FRMBtns[i].obj.style.visibility!='hidden'){FRMBtns[i].obj.focus();break;};};function FRMLastFocusBtn(){var o=null;var i;for(i=0;i<FRMBtns.length;i++)if(FRMBtns[i].lastFocus){o=FRMBtns[i].obj;break;};return o;};function FRMIniKeyAccessBtn(){EVTAsignaEvento(document.body,'keydown',FRMVerificaClickBtn);EVTAsignaEvento(document.body,'keyup',FRMVerificaClickBtn);};function FRMEndKeyAccessBtn(){EVTEliminaEvento(document.body,'keydown',FRMVerificaClickBtn);EVTEliminaEvento(document.body,'keyup',FRMVerificaClickBtn);};function FRMVerificaClickBtn(evt){var i;evt=EVTDimeEvento(evt);for(i=0;i<FRMBtns.length;i++){if(FRMBtns[i].keyAccess!=null&&!FRMBtns[i].obj.disabled&&FRMBtns[i].obj.style!='hidden')if(FRMVerificaClick(FRMBtns[i].keyAccess,evt)){if(evt.type=='keydown')FRMBtns[i].click();EVTNoPropagarEvento(evt);break;};};};function FRMControlChangeCmp(){var j;for(j=0;j<FRMCmps.length;j++)if(FRMCmps[j].statusChange())return true;return false;};function FRMPaintData(ifrDOC,frm){var i,j,k,cmp,FRC;var frmCmp=frm.elements;cmp=ifrDOC.getElementById('registro').getElementsByTagName('SPAN');for(i=0;i<cmp.length;i++){for(j=0;j<frmCmp.length;j++){t=frmCmp[j].name;k=t.indexOf('_c');if(k!=0){t=t.substr(0,k);if(cmp[i].id==t){switch(frmCmp[j].tagName){case 'TEXTAREA':case 'INPUT':frmCmp[j].value=cmp[i].innerHTML;break;case 'SELECT':COMBOSelValue(frmCmp[j],cmp[i].innerHTML);break;};FRC=FRMCmps[frmCmp[j].name];if(FRC){FRC.statusChangeReset();if(FRC.relationData!=null)FRMCmpsREL[FRC.relationData].statusReset(true);};};};};};};function FRMCreateRegAct(frm){var frmCmp=frm.elements;var t,j,i,ne;for(j=0;j<frmCmp.length;j++){t=frmCmp[j].name;i=t.indexOf('_clv');if(i!=-1){ne=document.createElement('INPUT');ne.type='hidden';ne.value='';ne.name=t.slice(0,i)+'_regact';frm.appendChild(ne);};};};function FRMCmpGetValue(name,doc){var j,i;var frm;if(typeof(doc)=='undefined')frm=document.forms;else frm=doc.forms;for(i=0;i<frm.length;i++)for(j=0;j<frm[i].elements.length;j++)if(frm[i].elements[j].name==name)return frm[i].elements[j].value;return null;};function FRMCmpPutValue(name,value,doc){var j,i;var frm;if(typeof(doc)=='undefined')frm=document.forms;else frm=doc.forms;for(i=0;i<frm.length;i++)for(j=0;j<frm[i].elements.length;j++)if(frm[i].elements[j].name==name){frm[i].elements[j].value=value;return true;};return false;};function FRMClvToRegAct(frm){var frmCmp=frm.elements;var t,j,i,ne,n;for(j=0;j<frmCmp.length;j++){t=frmCmp[j].name;i=t.indexOf('_regact');if(i!=-1){n=t.slice(0,i)+'_clv';ne=frmCmp[n];frmCmp[j].value=ne.value;};};};function FRMInitCmpForm(frm){var j,FRC,t;var frmCmp=frm.elements;for(j=0;j<frmCmp.length;j++){FRC=FRMCmps[frmCmp[j].name];if(FRC){FRC.init();FRC.statusChangeReset();if(FRC.relationData!=null)FRMCmpsREL[FRC.relationData].statusReset(false);}else{t=frmCmp[j].name;if(t.indexOf('_c')!=-1){switch(frmCmp[j].tagName){case 'TEXTAREA':case 'INPUT':frmCmp[j].value='';break;case 'SELETC':frmCmp[j].selectedIndex=0;break;};};};};};function FRMInitClv(){var j;for(j=0;j<FRMCmps.length;j++)if(FRMCmps[j].obj.name.indexOf('_clv')!=-1){FRMCmps[j].init();FRMCmps[j].statusChangeReset();if(FRMCmps[j].relationData!=null)FRMCmpsREL[FRMCmps[j].relationData].statusReset(false);};};function FRMStatusCmp(flag){var j,i,ext;for(j=0;j<FRMCmps.length;j++){t=FRMCmps[j].obj.name;i=t.indexOf('_');if(i!=-1){ext=t.substr(i+1);if(ext=='clv'||ext=='cmp'||ext=='crl')FRMCmps[j].enabled(flag);};};};function FRMStatusBtn(flag,group){var j;for(j=0;j<FRMBtns.length;j++)if((typeof group!='undefined'&&FRMBtns[j].group==group)||typeof group=='undefined')FRMBtns[j].enabled(flag);};function FRMBlockedBtn(flag,group){for(j=0;j<FRMBtns.length;j++)if((typeof group!='undefined'&&FRMBtns[j].group==group)||typeof group=='undefined')FRMBtns[j].blocked=flag;};function FRMCheckSearchWin(win,ejecuta){var cmp=new Array();var j,i;var campos='',llamada;var RefWin,obj;RefWin=eval(win);if(RefWin.EstaAbierta()){for(j=2; FRMCheckSearchWin.arguments.length>j; j+=2){i=cmp.length;cmp[i]=new Array();cmp[i][0]=FRMCheckSearchWin.arguments[j];cmp[i][1]=FRMCheckSearchWin.arguments[j+1];campos+=',\"'+cmp[i][0]+'\",\"'+cmp[i][1]+'\"';};for(j=0;j<cmp.length;j++){if(FRMCmpGetValue(cmp[j][0])!=cmp[j][1]){RefWin.Cierra();if(ejecuta!='')eval(ejecuta);return;};};llamada='FRMCheckSearchWin(\''+win+'\',\''+ejecuta+'\''+campos+')';setTimeout(llamada,100);};};function FRMPaintDataTable(doc,tabla){var celdas=tabla.rows[0].cells;var nr,nc,valor;for(nr=1; nr<=tabla.rows.length-1; nr++){for(nc=0;nc<celdas.length;nc++){campo=celdas[nc].id+'-'+nr;valor=doc.getElementById(campo).innerHTML;if(valor=='')valor='&nbsp;';tabla.rows[nr].cells[nc].innerHTML=valor;};};};function FRMEmptyDataTable(tabla){var celdas=tabla.rows[0].cells;var nr,nc;for(nr=1; nr<=tabla.rows.length-1; nr++){for(nc=0;nc<celdas.length;nc++)tabla.rows[nr].cells[nc].innerHTML='&nbsp;';};};function FRMCreateRowsSearch(objTable,NRows,myFunction){var NCols;var i,j,r,c;NCols=objTable.rows[0].cells.length;tbody=objTable.tBodies[0];for(i=0;i<NRows;i++){r=tbody.insertRow(-1);EVTAsignaEvento(r,'dblclick',EventoFilas);EVTAsignaEvento(r,'mouseover',EventoFilas);EVTAsignaEvento(r,'mouseout',EventoFilas);for(j=0;j<NCols;j++){c=r.insertCell(j);c.align=objTable.rows[0].cells[j].align;}};};function FRMLinClvToQueryString(doc){var c='';var j,i;var frm;if(typeof(doc)=='undefined')frm=document.forms;else frm=doc.forms;for(i=0;i<frm.length;i++)for(j=0;j<frm[i].elements.length;j++)if(frm[i].elements[j].name.indexOf('_linclv')!=-1)c+='&'+frm[i].elements[j].name+'='+escape(frm[i].elements[j].value);return c;};function FRMQueryLinClvToQuery(){var q=OBJQueryStringToArray();var ret='';var i;for(i=0;i<q.length;i++)if(q[i].name.indexOf('_linclv')!=-1)ret+='&'+q[i].name+'='+escape(q[i].value);return ret;};function FRMQueryStringToCmp(doc){var Q=OBJQueryStringToArray();var j,i,k;var frm,cmp;var ret=false;if(typeof(doc)=='undefined')frm=document.forms;else frm=doc.forms;for(k=0;k<Q.length;k++){for(i=0;i<frm.length;i++)for(j=0;j<frm[i].elements.length;j++)if(frm[i].elements[j].name==Q[k].name){cmp=frm[i].elements[j];switch(cmp.tagName){case 'INPUT':case 'TEXTAREA':cmp.value=Q[k].value;ret=true;break;case 'SELECT':COMBOSelValue(cmp,Q[k].value);ret=true;break;};};};return ret;};function FRMRegActIsEmpty(frm){var j;for(j=0;j<frm.elements.length;j++)if(frm.elements[j].name.indexOf('_regact')!=-1)if(frm.elements[j].value!='')return false;return true;};function FRMUrlVolverA(){var i,campo;var url=window.location.pathname;var car='?';var parametros;var cmp=new Array();for(i=0;i<FRMUrlVolverA.arguments.length;i++){campo=FRMUrlVolverA.arguments[i];url+=car+campo+'='+FRMCmpGetValue(campo);car='&';cmp[campo]=true;};parametros=OBJQueryStringToArray();for(i=0;i<parametros.length;i++){if(parametros[i].name!='VolverA'&&!cmp[parametros[i].name]){url+=car+parametros[i].name+'='+parametros[i].value;car='&';};};if(parametros['VolverA'])url+=car+'VolverA='+parametros['VolverA'].value;return 'VolverA='+escape(url);};function FRMUrlCampos(){var i,campos;var ret='';for(i=0;i<FRMUrlCampos.arguments.length;i++){campo=FRMUrlCampos.arguments[i].split(':');if(ret!='')ret+='&';ret+=campo[1]+'='+escape(FRMCmpGetValue(campo[0]));};return ret;};function FRMVerificaClick(DefTeclas,evt){var GruposTeclas=DefTeclas.split(',');var Teclas;var i;var tec,esp;var PulsadoEsp=0;var PulsadoTec=0;if(evt.shiftKey)PulsadoEsp|=1;if(evt.ctrlKey)PulsadoEsp|=2;if(evt.altKey)PulsadoEsp|=4;PulsadoTec=EVTDimeTecla(evt,'CODE');for(i=0;i<GruposTeclas.length;i++){Teclas=GruposTeclas[i].split('+');esp=0;tec=-1;for(j=0;j<Teclas.length;j++){switch(Teclas[j].toUpperCase()){case 'SHIFT':esp|=1;break;case 'CTRL':esp|=2;break;case 'ALT':esp|=4;break;default:tec=FRMDimeCodTecla(Teclas[j]);break;};};if(PulsadoTec==tec&&PulsadoEsp==esp)return true;};return false;};function FRMDimeCodTecla(txt){var cod=-1;switch(txt.toUpperCase()){case 'ESC':cod=27;break;case 'BACKSPACE':cod=8;break;case 'ENTER':cod=13;break;case 'F1':cod=112;break;case 'F2':cod=113;break;case 'F3':cod=114;break;case 'F4':cod=115;break;case 'F5':cod=116;break;case 'F6':cod=117;break;case 'F7':cod=118;break;case 'F8':cod=119;break;case 'F9':cod=120;break;case 'F10':cod=121;break;case 'F11':cod=122;break;case 'F12':cod=123;break;case '0':cod=48;break;case '1':cod=49;break;case '2':cod=50;break;case '3':cod=51;break;case '4':cod=52;break;case '5':cod=53;break;case '6':cod=54;break;case '7':cod=55;break;case '8':cod=56;break;case '9':cod=57;break;case 'ESPACIO':cod=32;break;case 'A':cod=65;break;case 'B':cod=66;break;case 'C':cod=67;break;case 'D':cod=68;break;case 'E':cod=69;break;case 'F':cod=70;break;case 'G':cod=71;break;case 'H':cod=72;break;case 'I':cod=73;break;case 'J':cod=74;break;case 'K':cod=75;break;case 'L':cod=76;break;case 'M':cod=77;break;case 'N':cod=78;break;case 'O':cod=79;break;case 'P':cod=80;break;case 'Q':cod=81;break;case 'R':cod=82;break;case 'S':cod=83;break;case 'T':cod=84;break;case 'U':cod=85;break;case 'V':cod=86;break;case 'W':cod=87;break;case 'X':cod=88;break;case 'Y':cod=89;break;case 'Z':cod=90;break;case '?':cod=219;break;case '¿':cod=221;break;case '\\':cod=220;break;case '[':cod=186;break;case ']':cod=187;break;case 'ENE':cod=192;break;case '{':cod=222;break;case 'COMA':cod=188;break;case '.':cod=190;break;case '-':cod=189;break;case 'ARRIBA':cod=38;break;case'ABAJO':cod=40;break;case'IZQUIERDA':cod=37;break;case'DERECHA':cod=39;break;case'INSERT':cod=45;break;case'SUPR':cod=46;break;case'INICIO':cod=36;break;case'FIN':cod=35;break;case'REPAG':cod=33;break;case'AVPAG':cod=34;break;case'NUM_0':cod=96;break;case'NUM_1':cod=97;break;case'NUM_2':cod=98;break;case'NUM_3':cod=99;break;case'NUM_4':cod=100;break;case'NUM_5':cod=101;break;case'NUM_6':cod=102;break;case'NUM_7':cod=103;break;case'NUM_8':cod=104;break;case'NUM_9':cod=105;break;case'NUM_/':cod=111;break;case'NUM_*':cod=106;break;case'NUM_MENOS':cod=109;break;case'NUM_MAS':cod=107;break;case'NUM_SUPR':cod=110;break;case'BLOQNUM':cod=144;break;case'PAUSA':cod=19;break;case'BLOQDESP':cod=145;break;};return cod;};function FRMChekNumber(valor,numEnteros,numDecimales,signo){var c;var de='',si='';var RE;if(numDecimales>0)de='(,\\d{1,'+numDecimales+'})?';if(signo)si='-?';c='^'+si+'\\d{1,'+numEnteros+'}'+de+'$';RE=new RegExp(c,'g');return RE.test(valor);};function FRMChekDate(value){var er_mes31dias=/^([1-3]0|[0-2][1-9]|31|[0-9])\/(1|01|3|03|5|05|7|07|8|08|10|12)\/(1999|20[0-1][0-9]|2020)$/;var er_mes30dias=/^([1-3]0|[0-2][1-9]|[0-9])\/(4|04|6|06|9|09|11)\/(1999|20[0-1][0-9]|2020)$/;var er_mes28dias=/^([1-2]0|[0-2][1-8]|[0-1]9|[0-9])\/(02|2)\/(1999|200[1-3]|200[5-7]|2009|201[0-1]|201[3-5]|201[7-9])$/;var er_mes29dias=/^([1-2]0|[0-2][1-9]|[0-9])\/(02|2)\/(2000|2004|2008|2012|2016|2020)$/;if(!(er_mes31dias.test(value)||er_mes30dias.test(value)||er_mes29dias.test(value)||er_mes28dias.test(value)))return false;else return true;};function FRMCheckHour(value){var RE=/^(0[0-9]|1\d|2[0-3]):([0-5]\d):([0-5]\d)$/;return RE.test(value);};function FRMCheckMail(value){var RE=/[\w-\.]{3,}@([\w-]{2,}\.)*([\w-]{2,}\.)[\w-]{2,4}/;return RE.test(value);};function FRMCheckWeb(value){var RE=/^(ht|f)tp(s?)\:\/\/[0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*(:(0-9)*)*(\/?)([a-zA-Z0-9\-\.\?\,\’\/\\\+&amp;%\$#_]*)?$/;return RE.test(value);};function FRMCheckHexa(value){var RE=/^([a-f]|[A-F]|\d)+$/;return RE.test(value);};function FRMCheckCharInvalid(valor,cadena){for(var i=0;valor.length>i;i++)if(cadena.indexOf(valor.substr(i,1))!=-1)return false;return true;};function FRMCheckCharOnly(valor,cadena){for(var i=0;valor.length>i;i++)if(cadena.indexOf(valor.substr(i,1))==-1)return false;return true;};function FRMCheckAlphabetical(value){var RE=/^([a-z]|[A-Z])+$/;return RE.test(value);};function FRMCheckCIF(value){var v1=new Array(0,2,4,6,8,1,3,5,7,9);var temp=0;var tempL;var dc;if(!/^[A-Za-z0-9]{9}$/.test(value))return false;else if(!/^[ABCDEFGHKLMNPQS]/.test(value))return false;else{for(i=2; i<=6; i+=2){temp=temp+v1[parseInt(value.substr(i-1,1))];temp=temp+parseInt(value.substr(i,1));};temp=temp+v1[parseInt(value.substr(7,1))];temp=(10-(temp % 10));dc=value.charAt(8);if(temp==10){if(dc!='J'||dc!='0')return false;}else{tempL=String.fromCharCode(64+temp);temp=temp.toString();if(dc!=temp&&dc!=tempL)return false;};};return true;};function FRMCheckNIF(value){var RE=/^\d{8}[TRWAGMYFPDXBNJZSQVHLCKE]$/;if(!RE.test(value))return false;var dni=Math.floor(value.substr(0,8));var letras='TRWAGMYFPDXBNJZSQVHLCKE';var numero=dni%23;var letra=letras.substring(numero,numero+1);if(value.charAt(8)!=letra)return false;return true;};function FRMValidateCmpForm(frm){var j,FRC,t;var frmCmp=frm.elements;for(j=0;j<frmCmp.length;j++){FRC=FRMCmps[frmCmp[j].name];if(FRC){if(!FRC.validate()){FRC.obj.focus();return-1;};};};return 0;};