";
echo "$MM[TablaInvalida]
"); //---------------------------------- Determinar la clave ------------------------------------ $Clave=$PartesParametro[1]; if ($Clave==0)$personanueva=true;else $personanueva=false; require("idm/ppal$Idioma.php"); require("idm/secun$Idioma.php"); require("rutinas/campos.php"); require("rutinas/utilities.php"); require("rutinas/cajalista.php"); require("procesos/caseanexos.php"); require("rutinas/campoenlace.php");//Rutinas CampoEnlace,MostrarLinks,AnadirLink,RemoverLink... $EE2=AveriguarTablaCompart($XXX,$EEE); $E2=substr($EE2,0,2); //--------------------------- Llamar rutina Selección de colores ------------------------------------ // Devuelve las variables $fondo, $letras y $fondotabla require("rutinas/seleccioncolores.php"); //--------------------------- Determinar si puede editar listas ------------------------------------ // OJO: No se está utilizando por ahora, ya que abajo está como comentario if (EstaAutorizado($XXX,"EditList")=="true") $puedeanadirlistas=true; else $puedeanadirlistas=false; //---------------------------------- Include PHP particular ------------------------------------ //Modif HR 2006-01-12 (Ref. 1639) Añadido if ($PP[PHPCuerpo]!="") require("../ZZZ/$BD/$EE/$EEE/$PP[PHPCuerpo]"); //---------------------------------- Buscar el nombre del usuario ------------------------------------ if ($CookieAGENTE !=-1) { $NombreConect=NombreAgente($CookieAGENTE); $TablaConect="AGE"; } else { $NombreConect=NombreUsuarioExterno($COKExterno,$COKExternoLogin); $TablaConect=$COKExternoTabla; } //----------------- determinar si es un registro nuevo o una actualización ------------------------ if ($personanueva){ $Codigo=0; if (EstaAutorizado($XXX,"AddRec")=="false"){die ("$MM[SinAutorizCrear]
");}; $XXXCodAgente = $CookieAGENTE; $XXXCodExterno = $COKExterno; $XXXNombre=""; // Inicializar todos los campos (CONCampo viene de rutinas/campos.php) $i=0; foreach ($CONCampo as $dummy=>$Campo){ $CAMPO[$i]=""; switch ($CONTipo[$i]){ case "Lista": if ($CONDefault[$i]!="") $CAMPO[$i]=$CONDefault[$i]; else $CAMPO[$i]="---"; break; case "Enlace": for ($j=2; $j<$CantEnlacesInicializados; $j++){ $Partes=explode("=",$PartesParametro[$j]); if ($Partes[0]==$CONCampo[$i]) $CAMPO[$i]=$Partes[1]; }; // del for break; // Modif MFC 2006-05-24 (Ref. 1752) Se copio el procedimiento de Enlace para crear el de Link case "Link": for ($j=2; $j<$CantEnlacesInicializados; $j++){ $Partes=explode("=",$PartesParametro[$j]); if ($Partes[0]==$CONCampo[$i]) $CAMPO[$i]=$Partes[1]; }; // del for break; // FIN Modif 1752 case "Fecha": if ($CONDefault[$i]=="HOY") $CAMPO[$i]=$FechaHoy; else $CAMPO[$i]=$CONDefault[$i]; break; case "Hora": if ($CONDefault[$i]=="AHORA") $CAMPO[$i]=$HoraCompleta; else $CAMPO[$i]=$CONDefault[$i]; break; case "Monto": if ($PP[Decimal]==',') $CAMPO[$i]=str_replace(".",",",$CONDefault[$i]); else $CAMPO[$i]=$CONDefault[$i]; break; default: $CAMPO[$i]=$CONDefault[$i]; break; }; $i++; }; $ultcampo=$i-1; }else{ // No es registro nuevo, es una actualización. se debe leer. $bb=$XXX."Codigo"; $cc=$XXX."Nombre"; $CantP=LeerStd($busqueda,$XXX,"*","$bb='$Clave'","","","",""); $row = mysql_fetch_assoc($busqueda); $XXXCodigo= $row[$bb]; if ($XXXCodigo==""){die( "}$MM[NoRegistro]
"); }; $XXXNombre= $row[$cc]; $XXXNombre=str_replace("'","\'",$XXXNombre); $NombreLogin=$XXX."Login"; if (($XXX=="AGE") || ($PP[$NombreLogin]=="SI")) { $NombrePerfil=$XXX."Perfil"; $NombreMacroPerfil=$XXX."MacroPerfil"; $NombrePassword=$XXX."Password"; $NombreActivo=$XXX."Activo"; $XXXPerfil= "$row[$NombrePerfil]"; $XXXMacroPerfil= "$row[$NombreMacroPerfil]"; $XXXPassword= "$row[$NombrePassword]"; $XXXActivo= "$row[$NombreActivo]"; } if ($XXX!="AGE") { $dd=$XXX."CodAgente"; $XXXCodAgente= "$row[$dd]"; $dd2=$XXX."CodExterno"; $XXXCodExterno= "$row[$dd2]"; }; // Ver si tiene autorización para modificar registros if (($XXX=="AGE") || (($CookieAGENTE=="-1")&&($COKExternoTabla==$XXX)) ){ //Si el conectado es de esa tabla o la tabla es AGE (TEMP) if (EsSelf($XXX,$XXXCodigo)) $Oper="EditOwnRec"; else $Oper="EditOtherRec"; } else { if (EsDueno($XXXCodAgente,$XXXCodExterno)) $Oper="EditOwnRec"; else $Oper="EditOtherRec"; } //--------------- Verificar si la persona está autorizada para modificar el registro ---------------------------- if (EstaAutorizado($XXX,$Oper)=="false"){die ("$MM[SinAutorizModif]
");}; // Pasar a variables de php los campos de la base de datos $i=0; foreach ($CONCampo as $dummy=>$Campo){ $cc=$XXX.$Campo; // formar el nombre del campo $CAMPO[$i]=$row[$cc]; // está guardando en CAMPO el contenido del campo // Ajustes especiales switch ($CONTipo[$i]){ case "Linea": case "Lista": // manejo de apóstrofes $CAMPO[$i]=str_replace("'","\'",$CAMPO[$i]); break; case "Bloque": // manejo de apóstrofes, line feed y carriage return $CAMPO[$i]=str_replace("'","\'",$CAMPO[$i]); $CAMPO[$i]=addcslashes($CAMPO[$i], "\12\15"); break; case "Monto": // cambio de punto decimal a coma decimal if ($PP[Decimal]==',') $CAMPO[$i]=str_replace(".",",",$CAMPO[$i]); break; case "Fecha": // campos con fecha en cero, dejar en blanco if ($CAMPO[$i]=="0000-00-00") $CAMPO[$i]=""; $CAMPO[$i]=$CAMPO[$i]; break; case "Hora": // quitar los segundos, campos con hora en cero, dejar en blanco $CAMPO[$i]=substr($CAMPO[$i],0,5); if ($CAMPO[$i]=="00:00") $CAMPO[$i]=""; break; }; // Find el switch //--------------- Verificar si la persona está autorizada para ver el campo ---------------------------- if ($CONRest[$i]!="") { $ReadFieldX="ReadField".$CONRest[$i]; //if (EstaAutorizado($XXX,$ReadFieldX)!="true") $CAMPO[$i]=$SepPpal.~$CAMPO[$i]; // esto indica que el campo está criptografiado }; $i++; }; $ultcampo=$i-1; }; // del if !personanueva //------------------------------- Determinar nivel de protección de los campos ------------------------------------- for ($i=0; $i<=$ultcampo; $i++){ // determinar si hay lista de campos a listar y en caso afirmativo, si el campo está ahí if ($CamposAMostrar!=""){ if (!in_array ($XXX.$CONCampo[$i],$CamposHabilitados)){ $EsVisible[$i]=false; $EsModificable[$i]=false; continue; }; }; if ($CONRest[$i]=="") { $EsModificable[$i]=true; $EsVisible[$i]=true; }else{ $ReadFieldX="ReadField".$CONRest[$i]; $EditFieldX="EditField".$CONRest[$i]; if (EstaAutorizado($XXX,$EditFieldX)=="true") $EsModificable[$i]=true; else $EsModificable[$i]=false; if (EstaAutorizado($XXX,$ReadFieldX)=="true") $EsVisible[$i]=true; else {$EsVisible[$i]=false; $EsModificable[$i]=false;}; }; }; //------------------------- Eliminación de registros ------------------------------------- echo " function eliminarregistro(){ pag='procesos/eliminar.htm?$BD$COKCodigo$SepPpal$XXX,$XXXCodigo'; window.open(pag,'_blank'); };"; //------------------------- Criptografía ------------------------------------- // En realidad, aquí no se criptografía sino que se marca el campo para que act.php lo haga echo " function Criptografiar(){ document.seg.XXXPassword.value='*****'+document.seg.XXXPassword.value; };"; //------------------------- Unicidad ------------------------------------- // verifica que el campo sea único. si no lo es, da un mensaje y cambia el color de fondo echo " function AjaxVerificarUnico(COKO,Tabla,Clave,Campo,NbeExterno,ObjCampo){ xmlhttp=Ajax('Tabla='+Tabla+'&Campo='+Campo+'&Valor='+ObjCampo.value+'&Clave='+Clave,'rutinas/ajaxValidarUnico.php?'+COKO); xmlhttp.onreadystatechange=function(){ if(xmlhttp.readyState == 4){ // si devuelve REP, está repetido if(xmlhttp.responseText=='REP'){ ObjCampo.style.backgroundColor='salmon'; alert('$MM[Campo]: '+NbeExterno+' $MM[YaExiste]'); ObjCampo.focus(); }else ObjCampo.style.backgroundColor=''; } } }; "; //======================================= Validaciones de campos ======================================= echo " function validarforma(){\n"; // Ver si el nombre es obligatorio o restringido $nombredelnombre="Nombre".$XXX; $RestricNombre="RestricNombre".$XXX; $RestricNombre=$PP[$RestricNombre]; $ObligNombre="ObligNombre".$XXX; $ObligNombre=$PP[$ObligNombre]; $UnicoNombre="UnicoNombre".$XXX; $UnicoNombre=$PP[$UnicoNombre]; if ($ObligNombre=="SI"){ echo " if (document.seg.XXXNombre.value ==''){ alert ('".str_replace("'","\'","$PP[$nombredelnombre] : $MM[CampoObligatorio]")."'); document.seg.XXXNombre.focus(); return false;}; "; }; // del if // ir campo por campo verificando si es obligatorio o no y cual es el tipo de validacion que necesita for ($i=0; $i<=$ultcampo; $i++){ if (!$EsModificable[$i]) continue; // verificar si es obligatorio //Modif HR 2006-01-14 (Ref. 1641) cambiar ifs por switch e incluir el caso MLink if ($CONObligatorio[$i]=="SI"){ switch ($CONTipo[$i]){ //Modif BG 2006-03-09 (Ref. 1697) consideracion de obligatoriedad usando FCK case "Bloque": if ($CONEditor[$i]=="FCK"){ echo "\n var oEditor = FCKeditorAPI.GetInstance('CPO$i'); var texto = oEditor.GetHTML(true); if (texto==''){ alert ('".str_replace("'","\'","$CONNombre[$i] : $MM[CampoObligatorio]")."'); return false; }"; }else{ echo "\n if (document.seg.CPO$i.value =='' || document.seg.CPO$i.value =='---'){ alert ('".str_replace("'","\'","$CONNombre[$i] : $MM[CampoObligatorio] ")."'); document.seg.CPO$i.focus(); return false;};"; } break; case "Fecha": echo "\n if (document.seg.FormatCPO$i.value ==''){ alert ('".str_replace("'","\'","$CONNombre[$i] : $MM[CampoObligatorio]")."'); document.seg.FormatCPO$i.focus(); return false;};"; break; case "Archivo": case "Imagen": case "Anexos": echo "\n if (document.seg.CPO$i.value =='' || document.seg.CPO$i.value =='---'){ alert ('".str_replace("'","\'","$CONNombre[$i] : $MM[CampoObligatorio] ")."'); return false;};"; break; case "MLink": echo "\n if (document.seg.Codigo_$CONCampo[$i]_0.value ==''){ alert ('".str_replace("'","\'","$CONNombre[$i] : $MM[CampoObligatorio] ")."'); document.seg.Codigo_$CONCampo[$i]_0.focus(); return false;};"; break; default: echo "\n if (document.seg.CPO$i.value =='' || document.seg.CPO$i.value =='---'){ alert ('".str_replace("'","\'","$CONNombre[$i] : $MM[CampoObligatorio] ")."'); document.seg.CPO$i.focus(); return false;};"; }; // fin del switch }; // del if CONObligatorio // otras validaciones if ($CONRest[$i]!="") { $ReadFieldX="ReadField".$CONRest[$i]; if (EstaAutorizado($XXX,$ReadFieldX)!="true") continue; //cpo protegido: no validar }; switch ($CONTipo[$i]){ case "Fecha": echo "fecha = descomponerfecha(document.seg.FormatCPO$i.value,$PP[ForFecha]); if (document.seg.FormatCPO$i.value != '' && fecha=='MALA'){ alert ('".str_replace("'","\'","$MM[FechaInvalida] $PP[FormatoFecha]")."'); document.seg.FormatCPO$i.focus(); return false; }; document.seg.CPO$i.value=ajustarfecha(document.seg.FormatCPO$i.value,$PP[ForFecha]);"; break; case "Hora": echo "hora = validarhora(document.seg.CPO$i.value); if (document.seg.CPO$i.value != '' && hora=='MALA'){ alert ('".str_replace("'","\'","$MM[HoraInvalida]")."'); document.seg.CPO$i.focus(); return false; }; document.seg.CPO$i.value=hora;"; break; case "Cant": case "Enlace": // verificar que sea un entero echo "if (!validarentero(document.seg.CPO$i.value)){ alert ('".str_replace("'","\'","$MM[NoEsEntero]")."'); document.seg.CPO$i.focus(); return false; };"; break; case "Monto": // verificar que sea un número echo "if (!validarnumero(document.seg.CPO$i.value,'$PP[Decimal]')){ alert ('".str_replace("'","\'","$MM[NumeroInvalido]")."'); document.seg.CPO$i.focus(); return false; };"; break; case "Checkbox": if ($CONRest[$i]!="") { $ReadFieldX="ReadField".$CONRest[$i]; if (EstaAutorizado($XXX,$ReadFieldX)=="false") break; }; echo "if (document.seg.CAJA$i.checked) document.seg.CPO$i.value=1; else document.seg.CPO$i.value=0;"; break; case "Email": // verificar que sea un email echo "if (!emailcheck(document.seg.CPO$i.value)) {document.seg.CPO$i.focus(); return false;};"; break; }; // Find el switch //--------------- Verificar valores minimos y maximos ---------------------------- if ($CONTipo[$i]=="Monto" | $CONTipo[$i]=="Cant") $Apost=""; //Cuando las cantidades son numéricas, no se usa apóstrofe else $Apost="'"; if ($CONTipo[$i]=="Fecha"){ if ($CONMin[$i]=="HOY") $CONMin[$i]=$FechaHoy; if ($CONMax[$i]=="HOY") $CONMax[$i]=$FechaHoy; }; if ($CONMin[$i]!="") echo " valornumerico=document.seg.CPO$i.value.replace(',','.'); if (document.seg.CPO$i.value!='' && valornumerico < $Apost$CONMin[$i]$Apost){ alert ('".str_replace("'","\'","$CONNombre[$i]: $MM[DebajoMin] ($CONMin[$i])")."'); document.seg.CPO$i.focus(); return false; }; "; if ($CONMax[$i]!="") echo " valornumerico=document.seg.CPO$i.value.replace(',','.'); if (document.seg.CPO$i.value!='' && valornumerico > $Apost$CONMax[$i]$Apost){ alert ('".str_replace("'","\'","$CONNombre[$i]: $MM[ArribaMax] ($CONMax[$i])")."'); document.seg.CPO$i.focus(); return false; }; "; }; // fin del for // Hasta aquí todo está bien. Cambiar las comas decimales por puntos decimales for ($i=0; $i<=$ultcampo; $i++){ if (!$EsModificable[$i]) continue; if ($CONTipo[$i]=='Monto' & $PP[Decimal]==',') echo "document.seg.CPO$i.value=document.seg.CPO$i.value.replace(',','.');"; }; // MODIF SA: 2005-09-06 (Ref:1558) //------------------- Determinar si hay que hacer un require de JavaScript -------------------------------- $aa="IncludeJSactValidar$XXX"; $NbeInclude=$PP[$aa]; if ($NbeInclude!="") { if (substr($NbeInclude,0,1)=="*") { if ($PP[Paquete]=="") require("../ZZZ/$BD/".substr($NbeInclude,1)); else require("../paq/$PP[Paquete]/$COKDirectorio/".substr($NbeInclude,1)); }else require("../ZZZ/$BD/$E2/$EE2/$NbeInclude"); }; echo "return true; };"; // fin validar forma //------------------------- Funcion de validacion de emails ------------------------------------- require("rutinas/emailcheck.php"); //------------------------- Funcion de poner la hora ------------------------------------- // No está funcionando echo "function ponerhora(CampoHora){\n CampoHora='ahora'; alert('In development'); }"; //======================================= INICIALIZACIONES ======================================= echo "function inicializar(){\n"; //Modif HR 2006-03-25 (Ref. 1705) manejo del Returning en toda la rutina // poner el campo de código y del nombre echo " document.seg.XXXCodigo.value='$XXXCodigo'; document.seg.XXXNombre.value='$XXXNombre'; document.seg.OLDXXXNombre.value='$XXXNombre'; "; // Inicializaciones de los campos especiales de cada tabla $NombreLogin=$XXX."Login"; if (($XXX=="AGE") || ($PP[$NombreLogin]=="SI")) { echo "\ndocument.seg.OLDXXXPerfil.value='$XXXPerfil';\n"; echo "\ndocument.seg.OLDXXXMacroPerfil.value='$XXXMacroPerfil';\n"; echo "\ndocument.seg.OLDXXXPassword.value='$XXXPassword';\n"; echo "\ndocument.seg.OLDXXXActivo.value='$XXXActivo';\n"; if ($Returning){ echo "\ndocument.seg.XXXPassword.value=document.seg.OLDXXXPassword.value;\n"; }else{ echo "\ndocument.seg.XXXPerfil.value='$XXXPerfil';\n"; echo "\ndocument.seg.XXXMacroPerfil.value='$XXXMacroPerfil';\n"; echo "\ndocument.seg.XXXPassword.value='$XXXPassword';\n"; echo "\ndocument.seg.XXXActivo.value='$XXXActivo';\n"; }; }; if ($XXX!="AGE") { echo "document.seg.OLDXXXCodAgente.value='$XXXCodAgente';\n"; echo "document.seg.OLDXXXCodExterno.value='".substr($XXXCodExterno,4)."';\n"; if (!$Returning){ echo "document.seg.XXXCodAgente.value='$XXXCodAgente';\n"; echo "document.seg.XXXCodExterno.value='".substr($XXXCodExterno,4)."';\n"; echo "document.seg.XXXTabExterno.value='".substr($XXXCodExterno,0,3)."';\n"; }; } for ($i=0; $i<=$ultcampo; $i++){ if (!$EsVisible[$i]) continue; echo "\ndocument.seg.OLDCPO$i.value='$CAMPO[$i]';"; if (!$Returning){ echo "\ndocument.seg.CPO$i.value='$CAMPO[$i]';"; if ($CONTipo[$i]=="Fecha" & $EsVisible[$i]) echo "document.seg.FormatCPO$i.value='".FormatFecha($CAMPO[$i])."';"; }; }; //Modif HR 2006-03-25 (Ref. 1705) if ($Returning){ // control came from act.php. Must reinialize values $aa=explode($Sep1,$Chorizo); foreach ($aa as $dummy=>$Pair){ $bb=explode($Sep2,$Pair); // get field number to find out if it is a date or a password $FieldNumber=str_replace("CPO","",$bb[0]); if ($CONTipo[$FieldNumber]=="Password"){ echo "\ndocument.seg.CPO$FieldNumber.value='document.seg.OLDCPO$FieldNumber.value';"; continue; }; echo "\ndocument.seg.$bb[0].value='$bb[1]';"; $CAMPO[$FieldNumber]=$bb[1]; if ($CONTipo[$FieldNumber]=="Fecha" & $EsVisible[$FieldNumber]) echo "\ndocument.seg.Format$bb[0].value='".FormatFecha($bb[1])."';"; }; }; echo "\n}"; // de funcion inicializar echo " var MM=new Array(\"$MM[BuscarEn]\",\"$MM[NoRegistro]\",\"$MM[EscribaBusqueda]\"); "; //Modif EA 2005-11-04 (Ref. 1582) añadir llamada a PrepararEnlace if ($AjustarFrame=="SI") { $onLoad=" onLoad='resizeIframe();PrepararEnlace(\"$COKO\")'"; }else{ $onLoad=" onLoad='PrepararEnlace(\"$COKO\")'"; } // Ver si hay que cambiar el tamaño de la tabla //Modif HR 2006-01-12 (Ref. 1638) cambio ancho de tabla a 95% en vez de 775 if ($Ancho=="") { $Pos1=strpos($cok[COKGlobal8],"Ancho="); if ($Pos1===false) $Ancho="95%"; else{ $Pos2=strpos(substr($cok[COKGlobal8],$Pos1),";"); if ($Pos2===false) $Ancho=substr($cok[COKGlobal8],$Pos1+6); else $Ancho=substr($cok[COKGlobal8],$Pos1+6,$Pos2-$Pos1); }; }; if ($Ancho!="") { //Modif HR 2006-04-01 (Ref. 1722) sig pregunta if (is_numeric($Ancho)) $extraAncho=" style='width:$Ancho"."px;'"; else $extraAncho=" style='width:$Ancho'"; } if ($AnchoCol1=="") { $AnchoCol1="25%"; } if ($AnchoCol2=="") { $AnchoCol2="25px"; } if ($AnchoCol3=="") { $AnchoCol3="72%"; } echo ""; //======================================= TÍTULO ======================================= if ($Titulo=="") $Titulo="$MM[CreacionActualizacionDe] $PP[$XXX]"; if ($Titulo!="NO"){ if ($AyudaTitulo=="") $AyudaTitulo="26"; //Modif HR 2006-01-14 (Ref. 1640) echo "
";
echo "