var textarea;
function storeCaret(textel){textarea=textel;if (textarea.createTextRange){textarea.caretPos=document.selection.createRange().duplicate();}}
function TextareaIns(nombre,text, textf){do {text=text.replace('(','[');} while(text.indexOf('(') >= 0);do {text=text.replace(')',']');} while(text.indexOf(')') >= 0);do {textf=textf.replace('(','[');} while(textf.indexOf('(') >= 0);do {textf=textf.replace(')',']');} while(textf.indexOf(')') >= 0);	
if(browser.isNS){var sel_start=textarea.selectionStart;var sel_end=textarea.selectionEnd;mozWrap(textarea,text,textf);textarea.selectionStart=sel_start+text.length;textarea.selectionEnd=sel_end+text.length;}
if(browser.isIE){if (textarea.createTextRange && textarea.caretPos){var caretPos=textarea.caretPos;caretPos.text=text+caretPos.text+textf;}else{textarea.value=text+textf;}}
textarea.focus();}function mozWrap(txtarea,open,close){var selLength=txtarea.textLength;var selStart=txtarea.selectionStart;var selEnd=txtarea.selectionEnd;var scrollTop=txtarea.scrollTop;if (selEnd == 1 || selEnd == 2){selEnd=selLength;}var s1=(txtarea.value).substring(0,selStart);var s2=(txtarea.value).substring(selStart,selEnd);var s3=(txtarea.value).substring(selEnd,selLength);txtarea.value=s1+open+s2+close+s3;txtarea.selectionStart=selEnd+open.length+close.length;txtarea.selectionEnd=txtarea.selectionStart;	txtarea.focus();	txtarea.scrollTop=scrollTop;return;}
function TxCombo(nombre,obc){TextareaIns(nombre,obc.options[obc.selectedIndex].value,"");}
function TxComand(sComando,inter,plus){if(!document.execCommand){return false;}textarea.document.execCommand(sComando,inter,plus);} 
function TxClipboard(nombre,coman){if(browser.isIE){if (textarea.createTextRange && textarea.caretPos){var caretPos=textarea.caretPos;textarea.caretPos.execCommand(coman);}else{textarea.value=textarea.caretPos.execCommand(coman);}}}
function TextareaCut(nombre){if(browser.isIE){if (textarea.createTextRange && textarea.caretPos){var caretPos = textarea.caretPos;caretPos.text = '';}else{textarea.value = '';}}}
function TextareaResize(nombre){var tx=document.getElementById(nombre);tx.style.height=eval(document.body.clientHeight-100)+"px";}
//function TextareaRowS(nombre,limite){document.getElementById(nombre).style.height=(document.body.clientHeight/2)+"px";TextareaResize(nombre);}
function TextareaRowS(nombre,limite){var ob=document.getElementById(nombre);var tm=ob.offsetHeight;tm=tm+300;ob.style.height=tm+"px";}
function TextareaRowR(nombre,limite){var ob=document.getElementById(nombre);var tm=ob.offsetHeight;tm=tm-300;if (tm<100){tm=100;}ob.style.height=tm+"px";}
function TextareaFSizeS(nombre,letra){var ob=document.getElementById(nombre);ob.style.fontSize="16px";}
function TextareaFSizeR(nombre,letra){var ob=document.getElementById(nombre);ob.style.fontSize="11px";}
function CwindowSp(){var $window=window.self;$window.opener=window.self;$window.close();}
function Iralfoco(frm,foco){for(j=0;j<frm.elements.length;j++){if( frm.elements[j].tabIndex==foco){frm.elements[j].focus();break;}}}

function RJEnter(field,event,tipo,acc,tab,cmd) {
var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode; 
if (keyCode == 13){var i; 
for (i = 0; i < field.form.elements.length; i++) 
if (field == field.form.elements[i]) 
break; 
i=field.form.elements[i].tabIndex+1;
for( j = 0 ; j < field.form.elements.length; j++){if(field.form.elements[j].tabIndex==i){tab=field.form.elements[j].tabIndex;break;}}
switch (acc) {
case 'F':field.form.FOCO.value=tab;field.form.elements[j].focus();return false;
case 'E':field.form.ACC.value='M';field.form.CMD.value=cmd;field.form.FOCO.value=tab;field.form.submit();return false;
}} 
else 
switch (tipo){case 'K':break;case 'V':break;case 'A':break;case 'R':break;case 'T':break;
case 'ITEM':
return((keyCode>=45&&keyCode<=46)||keyCode<=13||(keyCode>=48&&keyCode<=57)||(keyCode>=65&&keyCode<=90)||(keyCode>=97&&keyCode<=122));
break;
case'E':
return((keyCode>=44&&keyCode<=45)||keyCode<=13||(keyCode>=48&&keyCode<=57));
break;
case'N':
return((keyCode>=48&&keyCode<=48)||keyCode<=13||(keyCode>=49&&keyCode<=57));
break;
case'F':
return((keyCode>=45&&keyCode<=45)||keyCode<=13||(keyCode>=48&&keyCode<=57));
break;
case'O'://aHora
return((keyCode>=58&&keyCode<=58)||keyCode<=13||(keyCode>=48&&keyCode<=57));
break;
case'N+'://aNumerosigno
return((keyCode>=43&&keyCode<=45)||keyCode<=13||(keyCode>=48&&keyCode<=57));
break;
}}
function RJEnv(field,event,tipo,acc,tab,cmd){switch(acc){case 'F':return false;case 'E':field.form.ACC.value='M';field.form.FOCO.value=tab;field.form.CMD.value=cmd;field.form.submit();return false;}}