i_exml_nVersion=1.234; /* [VER] P:\IG_IntelyGenZ\IG11_Desarrollo_Librerias\IG11_01_Js\docs\i_exml.txt [DOC] http://intranet-asp.intelygenz.com/ig05_intranet/desarrollo/areas/dev/docs/i_exml.html [UPDATE] P:\IG_IntelyGenZ\IG11_Desarrollo_Librerias\IG11_01_Js\src\i_exml.js */ function IEXML(sObj){ this.m_sObj=sObj; this.m_nVersion=i_exml_nVersion; this.m_sKeyName = "[i_exml v"+this.m_nVersion+"]"; // ("+sObj+")"; this.m_sMArrayBase = ""; this.m_vTagsSet = 0; this.m_sEXMLReturn = null; this.f_optionSelected = function (sValor,vValorSelected){ var bSelected=false; if ( IsArray(vValorSelected) ){ if (vValorSelected.f_indexOf( sValor ) != -1) bSelected=true; } else if (sValor == vValorSelected) { bSelected=true; } return (bSelected) } this.f_addColEXML = function (maDatos,sCampo,sEXML){ var f,nRegs,vValor if (maDatos.f_maGetColPos (sCampo)!=-1) { ErrorJS ("[i_exml.f_addColEXML] ya existe el campo '"+sCampo+"', asi que lo modificamos",maDatos,2) maDatos.f_modColEXML (sCampo,sEXML) //Lo modificamos } else { nRegs = maDatos.f_maGetRegs () maDatos.f_maAddCol (sCampo, "") for (f=0;f"+sFun+"" var sDato = "

"+sError+"

" try { var nRegistros = oIEXML.m_sMArrayBase.f_maGetRegs () //nRegistros porque algunos eval de DATO la usan sDato = eval (sFun) } catch (ex){ ErrorJS (sError,"") } return sDato; } this.f_modColEXML = function (maDatos,sCampo,sEXML){ var nCol,nRegs,vValor,f nRegs = maDatos.f_maGetRegs () if (nRegs) { nCol = maDatos.f_maGetColPos (sCampo) if (nCol==-1) { ErrorJS ("[i_exml.f_modColEXML] no existe el campo '"+sCampo+"', asi que lo creamos",maDatos,2) maDatos.f_addColEXML (sCampo,sEXML) //Lo añadimos } else { for (f=0;f"); if ( IsNull(sTitulo) ) { if ( !IsArray(a_sTitulo) ) a_sTitulo = [a_sTitulo, a_sTitulo]; if ( this.f_optionSelected(sValor, vTextOrValueSelected) ) sSelected =" selected "; a_sHTML.push(""); } if ( IsNull(sDistinctColName) && IsNull(sOrderColName) ){ for ( var f=0, F=a_nRegs.length; f"+sValue+"" ); } } else { if ( !IsNull(sDistinctColName) ) { a_nRegs = maData.f_subDistinct (sDistinctColName, 1); } if ( !IsNull(sOrderColName) ) { var maDataTmp = maData; if ( !IsNull(sDistinctColName) ) maDataTmp = maDataTmp.f_subRows(a_nRegs, 1); a_nRegs = maDataTmp.f_sort(sOrderColName, 1); } var sText, sValue; for ( var f=0, F=a_nRegs.length; f"+sValue+"" ); } } } } this.f_parseEXMLs = function (sEXML,sJSarrayBase,nRegistro,vTags,oObj) { //5.3 var a_sTags,sError,f,s // Es muy importante el orden !! // ["ifBD","SUMAEXML","SUMA","INPUT","SELECT","CHECKBOX","RADIO","RADIOS","BD","OBJ","FUN","ifFUN"] if (!vTags){ if (oObj && String(oObj.m_vTagsEXML)!="undefined") vTags = oObj.m_vTagsEXML else vTags = oIEXML.m_vTagsSet } if (IsArray(vTags)) { a_sTags = vTags } else { switch (vTags){ case 1: a_sTags = ["SUMAEXML","IF","SUMA","BD","DATO","OBJ","FUN"] break default: a_sTags = ["DATO","ifBD","SUMAEXML","SUMA","CAMPO","BD","OBJ","FUN","ifFUN","IF"] } } // Deprecar ifBD / ifFUN / SUMAEXML (parte de MATH) // Crear campo MATH que sirva para todo tipo de operaciones ¿MATHEXML? // ¿CAMPO? / ¿Fusionar DATO y OBJ? (son casi un FUN) if (typeof(sEXML)=="undefined") { var nAlertMode = 1 if (oObj) { sError = "ParseEXMLs() Le faltan datos al "+oObj.m_sObj+".f_createStyle" } else { sError = "ParseEXMLs() No hay sEXML" nAlertMode = 3 } ErrorJS (oIEXML.m_sKeyName +sError,oObj,nAlertMode) return ("") } if (!sJSarrayBase) { if (oObj) sJSarrayBase=eval (oObj.m_sObj+".m_sJSarrayBase") else if (!g_sJSarrayBase) ErrorJS (oIEXML.m_sKeyName +" ParseEXMLs() No hay ningun MArray definido en sJSarrayBase",oObj,1) else sJSarrayBase = g_sJSarrayBase } g_sJSarrayBase = sJSarrayBase; for (f=0;f", sTagFin = ""; var sTagIni = sTagInit; var sFinal="" var nTag1=sTagInit.length, nTag2=sTagFin.length if (!sJSarrayBase && oObj) sJSarrayBase=eval (oObj.m_sObj+".m_sJSarrayBase") if (sJSarrayBase){ oIEXML.m_sMArrayBase = sJSarrayBase nRegistros = sJSarrayBase.f_maGetRegs () if (nRegistros<=nRegistro) { if (sEXML.indexOf("BD>")!=-1 && sEXML.indexOf(" no existe, no es global o da error la funcion JS:\n\t"+sDato+sError,oObj,1); return (true);} // sDato = sDato.replace (/[\"]/gi, "\\\""); // sDato = sDato.replace (/[\']/gi, "\\\'"); if (sDato) { sDato = this.f_eval (sDato,sTag,nRegistro) //1.233 } break case "OBJ": if (sDato.indexOf("_")!=1) { sDato = "m_" + sDato } sDato = this.f_eval (oObj.m_sObj+"."+sDato,sTag,nRegistro) //1.233 break case "DATO": // nRegistro, nRegistros // sDato = eval (sDato) sDato = this.f_eval (sDato,sTag,nRegistro) //1.233 break case "SUMA": if (oObj && oObj.m_bCacheTagSUMA==1){ var sDatoClean = sDato.replace(/[^a-z,0-9]/gi,"") sDatoClean = oObj.m_sObj+".m_n"+sTag+sDatoClean vDato = this.f_eval (sDatoClean,sTag,nRegistro) //1.233 if (typeof(vDato)=="undefined" ) { // vDato = OperarMultiEXML(sJSarrayBase,""+sDato+"") //Sustituir por f_maSumaColIf !!! vDato = sJSarrayBase.f_maSumaColIf (sDato) // eval (oObj.m_sObj+".m_n"+sTag+sDatoClean+"=vDato") this.f_eval (sDatoClean+"=vDato",sTag,nRegistro) //1.233 } } else{ // vDato = OperarMultiEXML(sJSarrayBase,""+sDato+"",oObj) //Sustituir por f_maSumaColIf !!! vDato = sJSarrayBase.f_maSumaColIf (sDato) } sDato = vDato break case "SUMAEXML": sDato = OperarMultiEXML(sJSarrayBase,sDato,oObj) break case "IF": //alert(sTag +" IF: "+sDato) window.onerror = function ErrorTrapJS(sError,sURL,nLinea) { sError="\n\n"+sURL+"\nLinea "+nLinea + " : " + sError;ErrorJS (oIEXML.m_sKeyName +"ParseEXML: no existe o da error:\n\t"+sDato+sError,oObj,1); return (true);} var a_sDatos = TagELSE(sDato) sDato = a_sDatos[0] var sBD = GetPropEXML(sTagIni,"bd",1) if (sBD){ // bValidar= BuscaMultiarrayBlock (sBD,sJSarrayBase,nRegistro) bValidar=sJSarrayBase.f_maGetVal (sBD,nRegistro) if (CheckFalse (bValidar)){ sDato = a_sDatos[1] } } else { var sFUN = GetPropEXML(sTagIni,"fun",1) if (sFUN){ window.onerror = function ErrorTrapJS(sError,sURL,nLinea) { sError="\n\n"+sURL+"\nLinea "+nLinea + " : " + sError;ErrorJS (oIEXML.m_sKeyName+" ParseEXML: no existe o da error la funcion JS:\n\t"+sFUN+sError,oObj,1); return (true);} sFUN = ParseEXMLs (sFUN,oObj,sJSarrayBase,nRegistro) // bValidar = eval (sFUN) bValidar = this.f_eval (sFUN,sTag,nRegistro) //1.233 if (CheckFalse (bValidar)){ sDato = a_sDatos[1] } } } //alert ("sDato: "+sTagIni + "\n sBD:"+sBD + "\n sFUN: "+sFUN) //alert ("[IF] sDato: "+sDato + "\n sBD:"+sBD + "\n sFUN: "+sFUN) break case "ifFUN": window.onerror = function ErrorTrapJS(sError,sURL,nLinea) { sError="\n\n"+sURL+"\nLinea "+nLinea + " : " + sError;ErrorJS (oIEXML.m_sKeyName +" ParseEXML: no existe o da error la funcion JS:\n\t"+sDato+sError,oObj,1); return (true);} // bValidar = eval (sDato) bValidar = this.f_eval (sDato,sTag,nRegistro) //1.233 if (CheckFalse (bValidar)){ // sEXML="" sDato = GetPropEXML(sTagIni,"false") if (sDato) sFinal +=sDato else if (!GetPropEXML(sTagIni,"true")) sEXML="" } else{ //Verdadero // sFinal="" sDato = GetPropEXML(sTagIni,"true") if (sDato) sFinal +=sDato else if (!GetPropEXML(sTagIni,"false")) sFinal="" } sDato="" break case "ifBD": // bValidar= BuscaMultiarrayBlock (sDato,sJSarrayBase,nRegistro) bValidar = sJSarrayBase.f_maGetVal (sDato,nRegistro) if (CheckFalse (bValidar)){ sDato = GetPropEXML(sTagIni,"false") if (sDato) sFinal +=sDato else if (!GetPropEXML(sTagIni,"true")) sEXML="" } else{ //Verdadero sDato = GetPropEXML(sTagIni,"true") if (sDato) sFinal +=sDato else if (!GetPropEXML(sTagIni,"false")) sFinal="" } sDato="" break case "CAMPO": var sProp = GetPropEXML(sTagIni,"tipo") var sExtras = GetPropEXML(sTagIni,"extras") switch (sProp){ case "INPUT": var sCampo = sDato.substr(2) // var sValue = BuscaMultiarrayBlock (sCampo,sJSarrayBase,nRegistro) var sValue= sJSarrayBase.f_maGetVal (sCampo,nRegistro) var nSize = sValue.length sDato = '' break case "SELECT": var sTitulo = "" var sCampo = sDato.substr(2) //eval (oObj.m_sObj+".m_nSUMA"+sCampo+"='12'") var sTexto = ""+sCampo+"" // var sValue = BuscaMultiarrayBlock (sCampo,sJSarrayBase,nRegistro) var sValue= sJSarrayBase.f_maGetVal (sCampo,nRegistro) if (!sValue) sTitulo = " - Elige -" sDato = DrawComboEXML(sDato,sExtras,"",sJSarrayBase,sTexto,sTexto,sValue,sCampo,sCampo) break case "CHECKBOX": var sChecked = " " var sCampo = sDato.substr(2) // var sValue = BuscaMultiarrayBlock (sCampo,sJSarrayBase,nRegistro) var sValue= sJSarrayBase.f_maGetVal (sCampo,nRegistro) if (sValue && sValue!="0" && sValue!="False" && sValue!="Falso") { sChecked = " checked " sValue = ' value="'+ sValue + '"' } else { sValue ="" } sDato = '' break case "RADIO": var sChecked = " " var sCampo = sDato.substr(2) // var sValue = BuscaMultiarrayBlock (sCampo,sJSarrayBase,nRegistro) var sValue= sJSarrayBase.f_maGetVal (sCampo,nRegistro) if (sValue && sValue!="0" && sValue!="False" && sValue!="Falso") { sChecked = " checked " sValue = ' value="'+ sValue + '"' } else { sValue ="" } sDato = '' break case "RADIOS": var sChecked = " " var sChecked2 = " checked " var sName = sDato var sCampo = sDato.substr(2) // var sValue = BuscaMultiarrayBlock (sCampo,sJSarrayBase,nRegistro) var sValue= sJSarrayBase.f_maGetVal (sCampo,nRegistro) if (sValue && sValue!="0" && sValue!="False" && sValue!="Falso") { sChecked = " checked " sChecked2 = " " // sValue = ' value="'+ sValue + '"' } else { sValue ="1" } sDato = 'Si' sDato += ' No' break case "HIDDEN": var sCampo = sDato.substr(2) // var sValue = BuscaMultiarrayBlock (sCampo,sJSarrayBase,nRegistro) var sValue= sJSarrayBase.f_maGetVal (sCampo,nRegistro) var nSize = sValue.length sDato = '' break default: ErrorJS (oIEXML.m_sKeyName +" ParseEXML: Tag de tipo invalido: "+sTagIni,oObj,1) } break } if (!oCore.m_bIsServer) window.onerror = g_oOnErrorEvent // if (IsDate(vDato)) then vDato=FechaFormatoBD (vDato, "ES") 'Fechas BD // if (IsNumeric(vDatoBD)) then vDato=Round(vDato,2) // sFinal = sFinal + sDato if (sEXMLanidado) { sEXML = sEXMLanidado + sDato + sEXML.substr(nPos2+nTag2) //v1.12 el +1 es nuevo!!! } else { sFinal += sDato sEXML = sEXML.substr(nPos2+nTag2) //v1.12 el +1 es nuevo!!! } //if (sTag=="IF") alert (sTag +"[FINAL] "+ sDato + "\nEXML:" +sEXML+ "\nHTML:" +sFinal + "\n") } //alert("B. "+nPos1 +"("+nPos1T +")\n"+nPos2) } sFinal += sEXML /* if (oCore.m_sServer=="DEV"){ var nT = (new Date()-oT1) if (nT>60) status += sTag + "("+nC+"): " + nT //+ "\n" + sFinal } //alert (sTag + "______\n" + sEXML) */ return sFinal } this.f_error = function ( sError ){ sError = oIEXML.m_sKeyName + "\n" + oIEXML.m_sMArrayBase.f_maDebug() + "\n" + sError return (sError) } this.f_subMArray = function (sJSarrayBase,a_nPos) { var ma; if (IsMArray(sJSarrayBase)) { //1.229 ma = sJSarrayBase.f_subRows(a_nPos, 1) } else { var a_sArray1 if(IsArray(sJSarrayBase)){ a_sArray1 = sJSarrayBase[0]; } else{ a_sArray1 = eval ("a_s"+sJSarrayBase) } ma = [a_sArray1,[]] SubMArray(sJSarrayBase,ma[1],a_nPos) } return ma; } } 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) { //no es imprescindible // sPage = sPage.substr (1+sPage.lastIndexOf("/")) window.status = location.pathname +"\n"+ oIEXML.m_sKeyName + " Falta 'i_core.js' o 'i_igz.js'" } g_oOnErrorEvent= ""; g_sJSarrayBase = ""; if (!oCore.m_bIsServer) g_oOnErrorEvent=window.onerror // [vTags] nVersion = 0 (TAGS antiguas) / a_sTags (TAGS que nos interesan) // Deprecated!!! Usar -> oIEXML.f_parseEXMLs(); function ParseEXMLs (sEXML,oObj,sJSarrayBase,nRegistro,vTags) { return oIEXML.f_parseEXMLs( sEXML,sJSarrayBase,nRegistro,vTags,oObj ); } // Deprecated!!! Usar -> oIEXML.f_parseEXMLs(); //Bug: tags dentro de otros tags function ParseEXML(sTag,sEXML,oObj,sJSarrayBase,nRegistro) { return oIEXML.f_parseEXML( sTag,sEXML,sJSarrayBase,nRegistro,oObj ); } function CheckFalse (bValidar){ var bFalse = 0 if (bValidar) bValidar = bValidar.toString().toLowerCase() if (!bValidar || bValidar=="0" || bValidar=="null" || bValidar=="false" || bValidar=="falso") bFalse=1 return (bFalse) } function TagELSE(sDato){ var a_sDatos = [] var sTagElse = "" a_sDatos[0]=sDato a_sDatos[1]="" var nPos = sDato.f_indexOf (sTagElse,0) if (nPos!=-1){ a_sDatos[0] = sDato.substring(0,nPos) a_sDatos[1] = sDato.substring(nPos+sTagElse.length) } return (a_sDatos) } // vTitulo [s y a] y vArrayBase [s y ma] function PrintComboEXML(sSelectName,sFuncion,vTitulo,vArrayBase,sEXMLtexto,sEXMLvalor,vValorSelected,sCampoOrden,sCampoDistinct) { document.write( DrawComboEXML(sSelectName,sFuncion,vTitulo,vArrayBase,sEXMLtexto,sEXMLvalor,vValorSelected,sCampoOrden,sCampoDistinct) ); } /** * @description Esta función devuelve el HTML de un combo generado a partir de los parámetros enviados en la llamada a la función. * @param {string} sSelectname Nombre del SELECT en el HTML. * @param {string} sFuncion Parámetros adicionales que se incluiran en el SELECT: puedes ser eventos javascript, el estilo, atributos... * @param {vector} vTitulo Opción inicial del combo (es opcional). * @param {vector} vArrayBase MultiArray(MA) que se usa para crear el combo. * @param {string} sEXMLtexto Texto de las opciones del combo. Es muy util usar EXML para solo generar opciones para algunos datos del MA * @param {string} sEXMLvalor Valor para cada opción del combo. * @param {vector} vValorSelected Indica la opción del combo que aparecera seleccionada inicialmente (SELECTED). * @param {string} sCampoOrden Ordena las opciones del combo por este campo del MA. * @param {string} sCampoDistinct Agrupa los resultados por el valor de este campo del MA de modo que solo muestra 1 opción . * @example * DrawComboEXML('S_idPersonaCopia',*'style="width:200px"'*,'',maPersonasCopia,'apellido1 apellido2, nombre','idUser',g_nIdUser,'apellido1') * DrawComboEXML("s_fk_id_abogado_reparto", "onchange='CheckDistribucionCC(this)'", ["-- elige --",""], maUsuariosIntranet, "GetNombreInversoUsuario(idUsuario)", "idUsuario", g_a_nDistribucionCC, "", "idUsuario") * *NOTA: Si queremos que nuestro combo permita hacer selecciones múltiples, le pasamos como parámetro adicional (en sFuncion) el valor multiple y un size(tamaño) que indica el número de líneas que se muestran */ function DrawComboEXML(sSelectName,sFuncion,vTitulo,vArrayBase,sEXMLtexto,sEXMLvalor,vValorSelected,sCampoOrden,sCampoDistinct) { if (oIGZ.f_checkLib("i_form",1.335)) oISelect.m_a_sSelects.push(sSelectName); var nFilas,sCombo,f,i,nOption,sValor="",sOption="" var a_sTextos = [] var a_sOptions = [] var a_vOrden = [] var a_nPos = [] nFilas = vArrayBase.f_maGetRegs() // if (nFilas==0) return ("") Mirar porque Manuel hacia esto !!! if (sEXMLvalor=="") sEXMLvalor=sEXMLtexto sCombo ='