source: admin/WebConsole/principal/colasreservas.php

qndtest
Last change on this file was 74c410a, checked in by ramon <ramongomez@…>, 6 years ago

#834: Eliminar etiquetas y código redundante en JavaScript?.

git-svn-id: https://opengnsys.es/svn/branches/version1.1@5632 a21b9725-9963-47de-94b9-378ad31fedc9

  • Property mode set to 100644
File size: 35.9 KB
Line 
1<?php
2// *************************************************************************************************************************************************
3// Aplicación WEB: ogAdmWebCon
4// Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla
5// Fecha Creación: Año 2009-2010
6// Fecha Última modificación: Noviembre-2005
7// Nombre del fichero: colasreservas.php
8// Descripción :
9//              Visualiza las reservas pendientes, confirmadas, denegadas y fecha y hora de la reserva
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../clases/AdoPhp.php");
13include_once("../includes/constantes.php");
14include_once("../includes/CreaComando.php");
15include_once("../includes/HTMLCTEMULSELECT.php");
16include_once("../clases/ArbolVistaXML.php");
17include_once("../idiomas/php/".$idioma."/clases/Calendario_".$idioma.".php");
18include_once("../idiomas/php/".$idioma."/colasreservas_".$idioma.".php");
19//________________________________________________________________________________________________________
20$ambito=""; 
21$idambito=0;
22$nombreambito="";
23$fechainicio="";
24$fechafin="";
25$estadoreserva="";
26$situacion="";
27
28if (isset($_GET["ambito"]))     $ambito=$_GET["ambito"]; 
29if (isset($_GET["idambito"])) $idambito=$_GET["idambito"]; 
30if (isset($_GET["nombreambito"])) $nombreambito=$_GET["nombreambito"]; 
31if (isset($_GET["tipocola"])) $tipocola=$_GET["tipocola"]; 
32
33$cmd=CreaComando($cadenaconexion);
34if (!$cmd)
35        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
36//________________________________________________________________________________________________________
37// Criterios por defecto
38if($ambito!="" && $idambito!="" && $nombreambito!="" && $tipocola!=""){ 
39        $wfechainicio=mktime(0, 0, 0, date("m")  , date("d"), date("Y")); // Reservas desde un mes anterior
40        $wfechafin=mktime(0, 0, 0, date("m")+6 , date("d"), date("Y"));
41        $fechainicio=date("d/m/Y",$wfechainicio);
42        $fechafin=date("d/m/Y ",$wfechafin);
43        // Tipos de reservas
44        switch($tipocola){
45                case 0:
46                        $westadoreserva[0]=$RESERVA_CONFIRMADA;
47                        $westadoreserva[1]=$RESERVA_PENDIENTE;
48                        $westadoreserva[2]=$RESERVA_DENEGADA;
49
50                        $estadoreserva=$RESERVA_CONFIRMADA."=".$LITRESERVA_CONFIRMADA.";";
51                        $estadoreserva.=$RESERVA_PENDIENTE."=".$LITRESERVA_PENDIENTE.";";
52                        $estadoreserva.=$RESERVA_DENEGADA."=".$LITRESERVA_DENEGADA.";";
53                        break;
54                case $RESERVA_CONFIRMADA:
55                        $westadoreserva[0]=$RESERVA_CONFIRMADA;
56                        $estadoreserva=$RESERVA_CONFIRMADA."=".$LITRESERVA_CONFIRMADA.";";
57                        break;
58                case $RESERVA_PENDIENTE:
59                        $westadoreserva[0]=$RESERVA_PENDIENTE;
60                        $estadoreserva=$RESERVA_PENDIENTE."=".$LITRESERVA_PENDIENTE.";";
61                        break;
62                case $RESERVA_DENEGADA:
63                        $westadoreserva[0]=$RESERVA_DENEGADA;
64                        $estadoreserva=$RESERVA_DENEGADA."=".$LITRESERVA_DENEGADA.";";
65                        break;
66        }
67                // Estados default
68        $wsituacion[0]=$RESERVA_PARADA;
69        $wsituacion[1]=$RESERVA_ACTIVA;
70        $situacion=$RESERVA_PARADA."=".$LITRESERVA_PARADA.";";
71        $situacion.=$RESERVA_ACTIVA."=".$LITRESERVA_ACTIVA.";";
72}
73//________________________________________________________________________________________________________
74// Recupera parametros del formulario
75if (isset($_POST["ambito"]))    $ambito=$_POST["ambito"]; 
76if (isset($_POST["idambito"])) $idambito=$_POST["idambito"]; 
77if (isset($_POST["nombreambito"])) $nombreambito=$_POST["nombreambito"]; 
78if (isset($_POST["fechainicio"])) $fechainicio=$_POST["fechainicio"]; 
79if (isset($_POST["fechafin"])) $fechafin=$_POST["fechafin"]; 
80
81if (isset($_POST["estadoreserva"])) {
82        $estadoreserva=$_POST["estadoreserva"]; 
83        $auxP=explode(";",$estadoreserva);
84        $cont=0;
85        for ($i=0;$i<sizeof($auxP)-1;$i++){
86                $dualparam=explode("=",$auxP[$i]);
87                $westadoreserva[$cont++]=$dualparam[0];
88        }
89}
90if (isset($_POST["situacion"])){
91        $situacion=$_POST["situacion"]; 
92        $auxP=explode(";",$situacion);
93        $cont=0;
94        for ($i=0;$i<sizeof($auxP)-1;$i++){
95                $dualparam=explode("=",$auxP[$i]);
96                $wsituacion[$cont++]=$dualparam[0];
97        }
98}
99//________________________________________________________________________________________________________
100?>
101<HTML>
102<TITLE>Administración web de aulas</TITLE>
103<HEAD>
104        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
105        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
106        <SCRIPT language="javascript" src="../clases/jscripts/ArbolVistaXML.js"></SCRIPT>
107        <SCRIPT language="javascript" src="../clases/jscripts/MenuContextual.js"></SCRIPT>
108        <SCRIPT language="javascript" src="../jscripts/constantes.js"></SCRIPT>
109        <SCRIPT language="javascript" src="../jscripts/comunes.js"></SCRIPT>
110        <SCRIPT language="javascript" src="../jscripts/colasreservas.js"></SCRIPT>
111        <?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/colasreservas_'.$idioma.'.js"></SCRIPT>'?>
112        <?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/comunes_'.$idioma.'.js"></SCRIPT>'?>
113
114</HEAD>
115<BODY>
116<?php
117switch($ambito){
118                case $AMBITO_CENTROS :
119                        $urlimg='../images/iconos/centros.gif';
120                        $textambito=$TbMsg[12];
121                        break;
122                case $AMBITO_GRUPOSAULAS :
123                        $urlimg='../images/iconos/carpeta.gif';
124                        $textambito=$TbMsg[13];
125                        break;
126                case $AMBITO_AULAS :
127                        $urlimg='../images/iconos/aula.gif';
128                        $textambito=$TbMsg[14];
129                        break;
130}
131echo '<p align=center class=cabeceras><img src="../images/iconos/reservas.gif">&nbsp;'.$TbMsg[0].'&nbsp;';
132echo '<FORM name="fdatos" action="colasreservas.php" method="post">'.chr(13);
133// Campos ocultos
134echo '<INPUT type=hidden name=ambito value="'.$ambito.'">';
135echo '<INPUT type=hidden name=idambito value="'.$idambito.'">';
136echo '<INPUT type=hidden name=nombreambito value="'.$nombreambito.'">';
137echo '<INPUT type=hidden name=estadoreserva value="'.$estadoreserva.'">';
138echo '<INPUT type=hidden name=situacion value="'.$situacion.'">';
139echo CriteriosBusquedas(); // Opciones de búsqueda
140echo '</FORM>'.chr(13);
141
142echo '<DIV align=center >';
143echo '<span align=center class=subcabeceras><U>'.$TbMsg[11].':'.$textambito.'</U>,&nbsp'.$nombreambito.'</span>&nbsp;&nbsp;<IMG src="'.$urlimg.'"></span></DIV></p>';
144//________________________________________________________________________________________________________
145// Localiza las aulas pertenecientes al ámbito
146
147$cadenaaulas="";
148$cont_aulas=0; 
149
150$sw=false;
151switch($ambito){
152                case $AMBITO_CENTROS :
153                        $cmd->texto="SELECT idcentro,nombrecentro FROM centros WHERE idcentro=".$idambito;
154                        RecorreCentro($cmd);
155                        break;
156                case $AMBITO_GRUPOSAULAS :
157                        $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idgrupo=".$idambito." AND tipo=".$AMBITO_GRUPOSAULAS;
158                        RecorreGruposAulas($cmd);
159                        break;
160                case $AMBITO_AULAS :
161                        $cmd->texto="SELECT idaula,nombreaula,horaresevfin  FROM aulas WHERE idaula=".$idambito;
162                        RecorreAulas($cmd);
163                        break;
164}
165//________________________________________________________________________________________________________
166// Proceso de selección de reservas
167$ClausulaWhere="";
168//________________________________________________________________________________________________________
169// Cuestion identificador del Centro que ha ejecutado la acción
170$WhereCentroAccion="";
171$WhereCentroAccion='reservas.idcentro='.$idcentro;
172$ClausulaWhere.=" AND (".$WhereCentroAccion.")";
173//________________________________________________________________________________________________________
174// Cuestion estado de las reservas ( Confirmadas,Pendientes o Denegadas )
175$WhereEstadosReservas="";
176for($i=0;$i<sizeof($westadoreserva);$i++){
177                if (isset($westadoreserva[$i]))
178                        $WhereEstadosReservas.=" reservas.estado=".$westadoreserva[$i]." OR ";
179}
180if($WhereEstadosReservas!=""){
181        $WhereEstadosReservas=substr($WhereEstadosReservas,0,strlen($WhereEstadosReservas)-3); 
182        $ClausulaWhere.=" AND (".$WhereEstadosReservas.")";
183}
184//________________________________________________________________________________________________________
185// Cuestion situación de la programación
186$WhereSituaciones="";
187for($i=0;$i<sizeof($wsituacion);$i++){
188        if (isset($wsituacion[$i]))
189                $WhereSituaciones.=" programaciones.suspendida=".$wsituacion[$i]." OR ";
190}
191if($WhereSituaciones!=""){
192        $WhereSituaciones=substr($WhereSituaciones,0,strlen($WhereSituaciones)-3); 
193        $ClausulaWhere.=" AND (".$WhereSituaciones.")";
194}
195//________________________________________________________________________________________________________
196$cadenaaulas=substr($cadenaaulas,0,strlen($cadenaaulas)-1); // Quita la coma
197$ClausulaWhere.=" AND idaula in(".$cadenaaulas.")";
198//________________________________________________________________________________________________________
199// Cuestion de fechas
200if(empty($fechainicio)) $fechainicio=date("d/m/Y",mktime(0, 0, 0, date("m")  , date("d"), date("Y")));
201if(empty($fechafin))    $fechafin=date("d/m/Y",mktime(0, 0, 0, date("m")+1  , date("d"), date("Y")));
202
203list($dia_i,$mes_i,$anno_i)=explode("/",$fechainicio);
204list($dia_f,$mes_f,$anno_f)=explode("/",$fechafin);
205
206// Elimina registros en tabla temporal
207$cmd->texto="DELETE FROM  reservastemporal where idcentro=".$idcentro." AND usuario='".$usuario."'"; // Elimina todos los registros de la tabla temporal
208$resul=$cmd->Ejecutar();
209
210//Recorre de fecha inicio a fecha fin
211$calendario=new Calendario("tabla_reservas");
212$anno_c=$anno_i;
213$mes_c=$mes_i;
214
215// Calcula el rango de meses dependiendo del intervalo de fechas solicitado
216while($anno_c<=$anno_f){
217        if($anno_c==$anno_i){
218                $mes_c=$mes_i;
219                if($anno_f>$anno_c)
220                        $mes_t=12;
221                else
222                        $mes_t=$mes_f;
223        }
224        else{
225                        if($anno_c>$anno_i){
226                                if($anno_c==$anno_f){
227                                        $mes_c=1;
228                                        $mes_t=$mes_f;
229                                }
230                                else{
231                                        $mes_c=1;
232                                        $mes_t=12;
233                                }
234                        }
235        }
236        $HEXanno=$calendario->numero_annos[$anno_c-2003][1];  // Primera referencia: 2004
237        $HEXmeses=0;
238        $mes_desde=$mes_c;
239        $mes_hasta=$mes_t;
240        while($mes_c<=$mes_t){
241                        $HEXmeses=$HEXmeses | $calendario->nombre_mes[$mes_c][1];
242                        $mes_c++;
243        }
244        // Cadena SQL para seleccionar reservas
245        $cmd->texto="SELECT reservas.idreserva,reservas.descripcion,programaciones.idprogramacion, programaciones.nombrebloque,programaciones.annos, programaciones.meses, programaciones.diario, programaciones.dias, programaciones.semanas, programaciones.horasini, programaciones.ampmini, programaciones.minutosini, programaciones.horasfin, programaciones.ampmfin, programaciones.minutosfin FROM   reservas";
246        $cmd->texto.=" INNER JOIN programaciones ON reservas.idreserva = programaciones.identificador";
247        $cmd->texto.=" WHERE (programaciones.tipoaccion = ".$EJECUCION_RESERVA.") ".$ClausulaWhere ;
248        $cmd->texto.=" AND (programaciones.annos & ".$HEXanno."<>0)";
249        $cmd->texto.=" AND (programaciones.meses & ".$HEXmeses."<>0)" ;
250        CreaReservasTemporal($cmd,$anno_c,$mes_desde,$mes_hasta,$dia_i,$dia_f,$mes_i,$mes_f,$anno_i,$anno_f);
251        $anno_c++;
252}
253$cadenaXML="";
254$cont_a=0;
255$cont_m=0;
256$cont_d=0;
257$HTMLannos="";
258$HTMLmeses="";
259$HTMLdias="";
260$HTMLhoras="";
261
262$sw=true;
263switch($ambito){
264                case $AMBITO_CENTROS :
265                        $cmd->texto="SELECT idcentro,nombrecentro FROM centros WHERE idcentro=".$idambito;
266                        RecorreCentro($cmd);
267                        break;
268                case $AMBITO_GRUPOSAULAS :
269                        $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idgrupo=".$idambito." AND tipo=".$AMBITO_GRUPOSAULAS;
270                        RecorreGruposAulas($cmd);
271                        break;
272                case $AMBITO_AULAS :
273                        $cmd->texto="SELECT idaula,nombreaula,horaresevfin  FROM aulas WHERE idaula=".$idambito;
274                        RecorreAulas($cmd);
275                        break;
276}
277
278// Creación del árbol
279$baseurlimg="../images/tsignos"; // Url de las imágenes de signo
280$clasedefault="texto_arbol";
281$titulotabla=$TbMsg[0]; 
282$arbol=new ArbolVistaXml($cadenaXML,0,$baseurlimg,$clasedefault,2,20,270,2,$titulotabla);
283$salidaHTML=$arbol->CreaArbolVistaXml();  // Muestra  árbol
284echo "<BR>";
285echo "<DIV align=center width=100%>";
286echo "   <TABLE align=center width=100%>";
287echo "          <TR><TD>";
288echo urldecode($salidaHTML);
289echo "          </TD></TR><TABLE></DIV>";
290
291//________________________________________________________________________________________________________
292include_once("../includes/iframecomun.php");
293//________________________________________________________________________________________________________
294?>
295</BODY>
296</HTML>
297<?php
298// *************************************************************************************************************************************************
299function CreaReservasTemporal($cmd,$anno_c,$mes_desde,$mes_hasta,$dia_i,$dia_f,$mes_i,$mes_f,$anno_i,$anno_f){
300        global $usuario;
301        global $idcentro;
302
303        $fechaminima=mktime(0, 0, 0, $mes_i, 1, $anno_i);
304        $fechamaxima=mktime(0, 0, 0, $mes_f, $dia_f, $anno_f);
305        $rs=new Recordset; 
306        $rs->Comando=&$cmd; 
307        if (!$rs->Abrir()) return; // Error al abrir recordset
308        $rs->Primero(); 
309        // Recorre reservas
310        while (!$rs->EOF){
311                $cadenafechas=FechasReservas($anno_c,$mes_desde,$mes_hasta,$rs->campos["meses"],$rs->campos["diario"],$rs->campos["dias"],$rs->campos["semanas"]);
312                $fechas_reservas=explode(";",$cadenafechas);
313                for ($i=0;$i<sizeof($fechas_reservas)-1;$i++){
314                                list($auxdia,$auxmes,$auxanno)=explode("/",$fechas_reservas[$i]);
315                                $auxfecha=mktime(0, 0, 0, $auxmes,$auxdia, $auxanno);
316
317                                if($auxfecha>=$fechaminima &&  $auxfecha<=$fechamaxima){
318                                        $cmd->texto="INSERT INTO reservastemporal(idcentro,usuario,idprogramacion,idreserva,fecha) VALUES (".$idcentro.",'".$usuario."',".$rs->campos["idprogramacion"].",".$rs->campos["idreserva"].",'".$fechas_reservas[$i]."')";
319                                        $resul=$cmd->Ejecutar();
320                                }
321                }
322                $rs->Siguiente();
323        }
324        $rs->Cerrar();
325}
326//________________________________________________________________________________________________________
327// Función : FechasReservas
328// Descripción :
329//              Devuelve una cadena de fechas separada por comas que son precisamente  las fechas que forman parte de una reserva concreta
330//      Parametros:
331//              - anno_c: Un año determinado
332//              - mes_desde: El mes desde que se considera la reserva
333//              - mes_hasta: El mes hasta que se considera la reserva
334//              - meses: Campo con información hexadecimal de los meses de la reserva ( la información contenida en el campo de la tabla con este nombre
335//              - diario:  Idem para los dias de un mes
336//              - dias: idem para los nombres de los días
337//              - semanas: Idem para las semanas
338//________________________________________________________________________________________________________
339function FechasReservas($anno_c,$mes_desde,$mes_hasta,$meses,$diario,$dias,$semanas){
340        global $calendario;
341
342        $cadenafechas="";
343        $mascara=0x0001;
344        $cadenameses="";
345        $meses=$meses>>($mes_desde-1);
346        for($i=$mes_desde;$i<=$mes_hasta;$i++){
347                if($meses&$mascara>0){
348                        $cadenameses.=$i.";";
349                        // Dias de la semAna
350                        if($dias>0){
351                                $auxdias=$dias;
352                                for($j=1;$j<=7;$j++){
353                                        if($auxdias&$mascara>0){
354                                                $cadenadias=$calendario->DiasPorMes($i,$anno_c,$j);
355                                                $tbdias=explode(";",$cadenadias);
356                                                for ($k=0;$k<sizeof($tbdias)-1;$k++)
357                                                        $cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";";
358                                        }
359                                        $auxdias=$auxdias>>1;
360                                }
361                        }
362                        // Semanas
363                        if($semanas>0){
364                                $auxsemanas=$semanas;
365                                for($j=1;$j<=6;$j++){
366                                        if($auxsemanas&$mascara>0){
367                                                if($j==6){
368                                                        $ulse=$calendario->UltimaSemana($i,$anno_c);
369                                                        $cadenadias=$calendario->DiasPorSemanas($i,$anno_c,$ulse);
370                                                }
371                                                else
372                                                        $cadenadias=$calendario->DiasPorSemanas($i,$anno_c,$j);
373                                                $tbdias=explode(";",$cadenadias);
374                                                for ($k=0;$k<sizeof($tbdias)-1;$k++)
375                                                        $cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";";
376                                        }
377                                        $auxsemanas=$auxsemanas>>1;
378                                }
379                        }
380                }
381                $meses=$meses>>1;
382        }
383        $cadenadiario="";
384        for($i=1;$i<32;$i++){
385                        if($diario&$mascara>0) $cadenadiario.=$i.";";
386                        $diario=$diario>>1;
387        }
388        $tbmeses=explode(";",$cadenameses);
389        $tbdiario=explode(";",$cadenadiario);
390        for ($i=0;$i<sizeof($tbmeses)-1;$i++){
391                for ($j=0;$j<sizeof($tbdiario)-1;$j++){
392                        $cadenafechas.=$tbdiario[$j]."/".$tbmeses[$i]."/".$anno_c.";";
393                }
394        }
395        return($cadenafechas);
396}
397/*________________________________________________________________________________________________________
398        Recorrea los distintos ámbitos
399________________________________________________________________________________________________________*/
400function RecorreCentro($cmd){
401        global $AMBITO_CENTROS;
402        global $LITAMBITO_CENTROS;
403        global $AMBITO_GRUPOSAULAS;
404        global $cadenaXML;
405        global $sw;
406        global $idambito,$nombreambito;
407
408        $rs=new Recordset; 
409        $rs->Comando=&$cmd; 
410        if (!$rs->Abrir()) return; // Error al abrir recordset
411        $rs->Primero(); 
412        if(!$rs->EOF){
413                if($sw) {
414                        $cadenaXML.='<CENTRO';
415                        // Atributos
416                        $cadenaXML.=' imagenodo="../images/iconos/centros.gif"';
417                        $cadenaXML.=' nodoid='.$LITAMBITO_CENTROS."-".$idambito;
418                        $cadenaXML.=' infonodo='.$nombreambito;
419                        $cadenaXML.='>';
420                }
421                $idcentro=$rs->campos["idcentro"];
422                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idcentro=".$idcentro." AND grupoid=0  AND tipo=".$AMBITO_GRUPOSAULAS;
423                RecorreGruposAulas($cmd);
424                $cmd->texto="SELECT idaula,nombreaula,horaresevfin FROM aulas WHERE idcentro=".$idcentro." AND grupoid=0";
425                RecorreAulas($cmd);
426                if($sw) $cadenaXML.='</CENTRO>';
427
428        }
429        $rs->Cerrar();
430}
431//________________________________________________________________________________________________________
432function RecorreGruposAulas($cmd){
433        global $AMBITO_GRUPOSAULAS;
434        global $LITAMBITO_GRUPOSAULAS;
435        global $cadenaXML;
436        global $sw;
437
438        $rs=new Recordset; 
439        $cmd->texto.="ORDER by nombregrupo"; 
440        $rs->Comando=&$cmd; 
441        if (!$rs->Abrir()) return; // Error al abrir recordset
442        $rs->Primero(); 
443
444        while (!$rs->EOF){
445                if($sw) {
446                        $cadenaXML.='<GRUPOSAULAS';
447                        // Atributos
448                        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
449                        $cadenaXML.=' nodoid='.$LITAMBITO_GRUPOSAULAS."-".$rs->campos["idgrupo"];
450                        $cadenaXML.=' infonodo="'.$rs->campos["nombregrupo"].'"';
451                        $cadenaXML.='>';
452                }
453                $idgrupo=$rs->campos["idgrupo"];
454                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE grupoid=".$idgrupo ." AND tipo=".$AMBITO_GRUPOSAULAS;
455                RecorreGruposAulas($cmd);
456                $cmd->texto="SELECT idaula,nombreaula,horaresevfin FROM aulas WHERE  grupoid=".$idgrupo;
457                RecorreAulas($cmd);
458                $rs->Siguiente();
459                if($sw) $cadenaXML.='</GRUPOSAULAS>';
460        }
461        $rs->Cerrar();
462}
463//________________________________________________________________________________________________________
464function RecorreAulas($cmd){
465        global $AMBITO_AULAS;
466        global $LITAMBITO_AULAS;
467        global $cadenaaulas;
468        global $cont_aulas;
469        global $sw;
470        global $cadenaXML;
471
472        $rs=new Recordset; 
473        $cmd->texto.="ORDER by nombreaula"; 
474        $rs->Comando=&$cmd; 
475        if (!$rs->Abrir()) return; // Error al abrir recordset
476        $rs->Primero(); 
477
478        while (!$rs->EOF){
479                if($sw && $rs->campos["horaresevfin"]>0) {
480                        $cadenaXML.='<AULA ';
481                        // Atributos           
482                        $cadenaXML.=' imagenodo="../images/iconos/aula.gif"';
483                        $cadenaXML.=' infonodo="'.$rs->campos["nombreaula"].'"';
484                        $cadenaXML.=' nodoid='.$LITAMBITO_AULAS.'-'.$rs->campos["idaula"];
485                        $cadenaXML.=' colornodo='."#000000";
486                        $cadenaXML.=' fondonodo='."#B5DAAD;";
487                        $cadenaXML.='>';
488                }
489                $idaula=$rs->campos["idaula"];
490                $cadenaaulas.=$idaula.",";
491                $cont_aulas++;
492                if($sw && $rs->campos["horaresevfin"]>0) ListaReservas($cmd,$idaula,$rs->campos["nombreaula"]);
493                $rs->Siguiente();
494                if($sw && $rs->campos["horaresevfin"]>0) $cadenaXML.='</AULA>';
495        }
496        $rs->Cerrar();
497}
498//________________________________________________________________________________________________________
499function ListaReservas($cmd,$idaula,$nombreaula){
500        global $idcentro;
501        global $usuario;
502        global $TbMsg;
503        global $calendario;
504        global $RESERVA_CONFIRMADA;
505        global $RESERVA_PENDIENTE;
506        global $RESERVA_DENEGADA;
507        global $EJECUCION_RESERVA;
508
509        global $AMBITO_CENTROS;
510        global $AMBITO_GRUPOSAULAS;
511        global $AMBITO_AULAS;
512
513        global $cadenaXML;
514
515        global $cont_a;
516        global $cont_m;
517        global $cont_d;
518        global $HTMLannos;
519        global $HTMLmeses;
520        global $HTMLdias;
521        global $HTMLhoras;
522
523        $tbimg[$RESERVA_CONFIRMADA]='../images/iconos/confirmadas.gif';
524        $tbimg[$RESERVA_PENDIENTE]='../images/iconos/pendientes.gif';
525        $tbimg[$RESERVA_DENEGADA]='../images/iconos/denegadas.gif';
526
527        $tbampm[0]="a.m.";
528        $tbampm[1]="p.m.";
529
530        $cmd->texto="SELECT  DISTINCT aulas.horaresevini,aulas.horaresevfin,reservastemporal.idreserva, reservastemporal.fecha,programaciones.horasini,programaciones.ampmini,programaciones.minutosini,trabajos.idtrabajo,tareas.idtarea,trabajos.descripcion AS nombretrabajo,tareas.descripcion AS nombretarea,reservas.solicitante,reservas.email,reservas.estado,reservas.idaula,reservas.idreserva,reservas.descripcion,DAY(reservastemporal.fecha) as dia,MONTH(reservastemporal.fecha) as mes,YEAR(reservastemporal.fecha) as anno,reservas.descripcion,aulas.nombreaula as nombreaula,imagenes.idimagen ,imagenes.descripcion as nombreimagen,";
531        $cmd->texto.=" programaciones.horasini,programaciones.minutosini,programaciones.horasfin,programaciones.minutosfin,programaciones.ampmini,programaciones.ampmfin";
532        $cmd->texto.="  FROM   reservas";
533        $cmd->texto.=" INNER JOIN reservastemporal ON reservas.idreserva = reservastemporal.idreserva";
534        $cmd->texto.=" INNER JOIN aulas ON reservas.idaula = aulas.idaula";
535        $cmd->texto.=" LEFT OUTER JOIN imagenes ON reservas.idimagen = imagenes.idimagen";
536        $cmd->texto.=" LEFT OUTER JOIN tareas ON reservas.idtarea = tareas.idtarea";
537        $cmd->texto.=" LEFT OUTER JOIN trabajos ON reservas.idtrabajo = trabajos.idtrabajo";
538        $cmd->texto.=" INNER JOIN programaciones ON reservastemporal.idprogramacion = programaciones.idprogramacion";
539        $cmd->texto.=" WHERE (programaciones.tipoaccion = ".$EJECUCION_RESERVA.") ";
540        $cmd->texto.="  AND (aulas.idaula = ".$idaula.") ";
541        $cmd->texto.="  AND (reservastemporal.idcentro='".$idcentro."') ";
542        $cmd->texto.="  AND (reservastemporal.usuario='".$usuario."') ";
543        $cmd->texto.=" ORDER by reservastemporal.fecha,programaciones.ampmini,programaciones.horasini,programaciones.minutosini";
544        $rs=new Recordset; 
545        $rs->Comando=&$cmd; 
546        if (!$rs->Abrir()) return; // Error al abrir recordset
547        $rs->Primero(); 
548
549        $calendario->aula=$idaula;
550        $calendario->horaresevini=$rs->campos["horaresevini"];
551        $calendario->horaresevfin=$rs->campos["horaresevfin"];
552        $swa=false;
553        $swm=false;
554        $swd=false;
555        $ganno=0;
556        $gmes=0;
557        $gdia=0;
558
559        $cont_a=0;
560        $HTMLannos="";
561
562        // Recorre reservas temporales
563        while (!$rs->EOF){
564                // Año
565                if($ganno<>$rs->campos["anno"]){
566                        if($swd){
567                                GuardaHorasDias($ganno,$gmes,$gdia,$CntDia,$CntMes);
568                                $cadenaXML.='</DIA> ';
569                        }
570                        if($swm){
571                                GuardaMesAnno($ganno,$gmes,$CntMes);
572                                $cadenaXML.='</MES> ';
573                        }
574                        if($swa){
575                                GuardaAnno($ganno);
576                                $cadenaXML.='</ANNO> ';
577                        }
578                        $ganno=$rs->campos["anno"];
579                        $cadenaXML.='<ANNO ';
580                        // Atributos           
581                        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
582                        $cadenaXML.=' infonodo="%3Cb%3E&nbsp; '.$TbMsg[15].': %3C/b%3E'.$ganno.'"';
583                        $cadenaXML.=' nodoid=nodoanno-'.$ganno;
584                        $cadenaXML.=' colornodo='."#000000";
585                        $cadenaXML.=' fondonodo='."#B5B7B9;";
586                        $cadenaXML.='>';
587                        $gmes=0;
588                        $gdia=0;
589                        $swa=true;
590                        $swm=false;
591                        $swd=false;
592                        PintaAnno($ganno);
593                        $HTMLmeses="";
594                        $cont_m=0;
595                }
596       
597                // Mes
598                if($gmes<>$rs->campos["mes"]){
599                        if($swd){
600                                GuardaHorasDias($ganno,$gmes,$gdia,$CntDia,$CntMes);
601                                $cadenaXML.='</DIA> ';
602                        }
603                        if($swm){
604                                GuardaMesAnno($ganno,$gmes,$CntMes);
605                                $cadenaXML.='</MES> ';
606                        }
607                        $gmes=$rs->campos["mes"];
608                        $nombremes=$calendario->nombre_mes[$rs->campos["mes"]][0];
609
610                        $cadenaXML.='<MES ';
611                        // Atributos           
612                        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
613                        $cadenaXML.=' infonodo="%3CA name=anodomes-'.$idaula."-".$gmes.'/'.$ganno.'%3E%3Cb%3E&nbsp; '.$TbMsg[16].': %3C/b%3E'.$nombremes.' %3C/A%3E "';
614                        $cadenaXML.=' nodoid=nodomes-'.$idaula."-".$gmes.'/'.$ganno;
615                        $cadenaXML.=' colornodo='."#000000";
616                        $cadenaXML.=' fondonodo='."#E3D8C6";
617                        $cadenaXML.='>';
618                        $gdia=0;
619                        $swm=true;
620                        $swd=false;
621                        $CntMes="";
622                        PintaMesAnno($ganno,$gmes);
623                        $HTMLdias="";
624                        $cont_d=0;
625                }
626                // Dia
627                if($gdia<>$rs->campos["dia"]){
628                        if($swd){
629                                GuardaHorasDias($ganno,$gmes,$gdia,$CntDia,$CntMes);
630                                $cadenaXML.='</DIA> ';
631                        }
632                        $gdia=$rs->campos["dia"];
633                        $nombredia=$rs->campos["dia"]." - ".$nombremes." - ".$rs->campos["anno"];
634                        $cadenaXML.='<DIA ';
635                        // Atributos           
636                        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
637                        $cadenaXML.=' infonodo="%3CA name=anododia-'.$idaula."-".$gdia.'/'.$gmes.'/'.$ganno.'%3E%3Cb%3E&nbsp;'.$TbMsg[17].': %3C/b%3E'.$nombredia.' %3C/A%3E "';
638                        $cadenaXML.=' nodoid=nododia-'.$idaula."-".$gdia.'/'.$gmes.'/'.$ganno;
639                        $cadenaXML.=' colornodo='."#000000";
640                        $cadenaXML.=' fondonodo='."#CFDAE6";
641                        $cadenaXML.='>';
642                        $swd=true;
643                        //$CntMes[$gdia]=1;
644                        $CntDia="";
645                        PintaHorasDias($ganno,$gmes,$gdia);
646                        $HTMLhoras="";
647                }
648               
649                // Cuestion Ocupación
650                $hexhoradesde=$rs->campos["horasini"];
651                $minutosdesde=$rs->campos["minutosini"];
652                if($minutosdesde==0) $minutosdesde="00";
653                $minutosdesde.=" ".$tbampm[$rs->campos["ampmini"]];
654                $hexhorahasta=$rs->campos["horasfin"];
655                $minutoshasta=$rs->campos["minutosfin"];
656                if($minutoshasta==0) $minutoshasta="00";
657                $minutoshasta.=" ".$tbampm[$rs->campos["ampmfin"]];
658                $cont=0;
659                while($hexhoradesde>0){
660                        $cont++;
661                        $hexhoradesde=$hexhoradesde>>1;
662                }
663                $horadesde=$cont-1;
664                $cont=0;
665                while($hexhorahasta>0){
666                        $cont++;
667                        $hexhorahasta=$hexhorahasta>>1;
668                }
669                $horahasta=$cont-1;
670
671                $mulmin=floor($minutosdesde/15);
672                $currentminutos=$mulmin*15;
673                $CntDia[(int)$rs->campos["ampmini"]][(int)$horadesde][(int)$currentminutos]=1;
674                $mulmin=floor($minutoshasta/15);
675                $currentminutos=$mulmin*15;
676                $CntDia[(int)$rs->campos["ampmfin"]][(int)$horahasta][(int)$currentminutos]=0;
677
678
679                // Descripción de la reserva
680                $cadenaXML.='<RESERVA ';
681                // Atributos           
682                $cadenaXML.=' imagenodo="../images/iconos/reservas.gif"';
683                $cadenaXML.=' infonodo="%3CIMG src='.$tbimg[$rs->campos["estado"]].'%3E&nbsp;%3Cb%3E'.$rs->campos["descripcion"].': %3C/b%3E';
684                $cadenaXML.='&nbsp;%3CIMG src="../images/iconos/reloj.gif"%3E&nbsp;('.$horadesde.":".$minutosdesde." - ".$horahasta.":".$minutoshasta.')"';
685
686                $cadenaXML.=' nodoid=reserva-'.$rs->campos["idreserva"];
687                $cadenaXML.=' colornodo='."#000000";
688                $cadenaXML.=' fondonodo='."#EEEECC;";
689                $cadenaXML.='>';
690
691                $cadenaXML.='<OCUPACION ';
692                // Atributos           
693                $cadenaXML.=' imagenodo="../images/iconos/reloj.gif"';
694                $cadenaXML.=' infonodo="%3Cb%3E'.$TbMsg[19].':%3C/b%3E '.$horadesde.":".$minutosdesde." - ".$horahasta.":".$minutoshasta.'"';
695                $cadenaXML.=' nodoid=opcupacion-'.$horadesde.":".$minutosdesde." - ".$horahasta.":".$minutoshasta;
696                $cadenaXML.=' colornodo='."#000000";
697                $cadenaXML.=' fondonodo='."#FBECFA;";
698                $cadenaXML.='>';
699                $cadenaXML.='</OCUPACION>';
700
701
702                $cadenaXML.='<AULA ';
703                // Atributos           
704                $cadenaXML.=' imagenodo="../images/iconos/aula.gif"';
705                $cadenaXML.=' infonodo="%3Cb%3E'.$TbMsg[24].':%3C/b%3E '.$nombreaula.'"';;
706                $cadenaXML.=' nodoid=aula-'.$idaula;
707                $cadenaXML.=' colornodo='."#000000";
708                $cadenaXML.=' fondonodo='."#FBECFA;";
709                $cadenaXML.='>';
710                $cadenaXML.='</AULA>';
711
712                $nombreimagen=$rs->campos["nombreimagen"];
713                if(empty($nombreimagen) ) $nombreimagen=$TbMsg[23];
714                // Descripción de la imagen a restaurar
715                $cadenaXML.='<IMAGEN ';
716                // Atributos           
717                $cadenaXML.=' imagenodo="../images/iconos/imagenes.gif"';
718                $cadenaXML.=' infonodo="%3Cb%3E'.$TbMsg[20].':  %3C/b%3E'.$nombreimagen.'"';
719                $cadenaXML.=' nodoid=imagen-'.$rs->campos["idimagen"];
720                $cadenaXML.=' colornodo='."#000000";
721                $cadenaXML.=' fondonodo='."#FBECFA;";
722                $cadenaXML.='>';
723                $cadenaXML.='</IMAGEN>';
724
725                $nombretarea=$rs->campos["nombretarea"];
726                if(!empty($nombretarea) ){
727                        // Descripción de la tarea a restaurar
728                        $cadenaXML.='<TAREA ';
729                        // Atributos           
730                        $cadenaXML.=' imagenodo="../images/iconos/tareas.gif"';
731                        $cadenaXML.=' infonodo="%3Cb%3E'.$TbMsg[28].':  %3C/b%3E'.$nombretarea.'"';
732                        $cadenaXML.=' nodoid=tarea-'.$rs->campos["idtarea"];
733                        $cadenaXML.=' colornodo='."#000000";
734                        $cadenaXML.=' fondonodo='."#FBECFA;";
735                        $cadenaXML.='>';
736                        $cadenaXML.='</TAREA>';
737                }
738
739                $nombretrabajo=$rs->campos["nombretrabajo"];
740                if(!empty($nombretrabajo) ){
741                        // Descripción del  trabajo a restaurar
742                        $cadenaXML.='<TRABAJO ';
743                        // Atributos           
744                        $cadenaXML.=' imagenodo="../images/iconos/trabajos.gif"';
745                        $cadenaXML.=' infonodo="%3Cb%3E'.$TbMsg[29].':  %3C/b%3E'.$nombretrabajo.'"';
746                        $cadenaXML.=' nodoid=trabajo-'.$rs->campos["idtrabajo"];
747                        $cadenaXML.=' colornodo='."#000000";
748                        $cadenaXML.=' fondonodo='."#FBECFA;";
749                        $cadenaXML.='>';
750                        $cadenaXML.='</TRABAJO>';
751                }
752
753                $cadenaXML.='<EMAIL ';
754                // Atributos           
755                $cadenaXML.=' imagenodo="../images/iconos/email.gif"';
756                $cadenaXML.=' infonodo="%3Cb%3E'.$TbMsg[25].':%3C/b%3E&nbsp;'.$rs->campos["solicitante"].' &nbsp;(%3CA href=mailto:'.$rs->campos["email"].'%3E'.$rs->campos["email"].'%3C/A%3E)"';
757                $cadenaXML.=' nodoid=email-'.$idaula;
758                $cadenaXML.=' colornodo='."#000000";
759                $cadenaXML.=' fondonodo='."#FBECFA;";
760                $cadenaXML.='>';
761                $cadenaXML.='</EMAIL>';
762
763
764
765                $cadenaXML.='</RESERVA>';
766
767                $rs->Siguiente();
768        }
769        if($swd){
770                                GuardaHorasDias($ganno,$gmes,$gdia,$CntDia,$CntMes);
771                $cadenaXML.='</DIA> ';
772        }
773        if($swm){
774                GuardaMesAnno($ganno,$gmes,$CntMes);
775                $cadenaXML.='</MES> ';
776        }
777        if($swa){
778                GuardaAnno($ganno);
779                $cadenaXML.='</ANNO> ';
780        }
781}
782//________________________________________________________________________________________________________
783function PintaAnno($ganno){
784        global $cadenaXML;
785        global $cont_a;
786
787        $cadenaXML.='<TBANNO ';
788        // Atributos           
789        $cadenaXML.=' imagenodo="../images/iconos/nada.gif"';
790        $cadenaXML.=' infonodo=%anno-'.$ganno.'%';
791        $cadenaXML.=' nodoid=anno-'.$ganno;
792        $cadenaXML.=' fondonodo='."#FFFFFF";
793        $cadenaXML.='>';
794        $cadenaXML.='</TBANNO> ';
795}
796//________________________________________________________________________________________________________
797function GuardaAnno($ganno){
798        global $cadenaXML;
799        global $cont_a;
800        global $cont_m;
801        global $HTMLmeses;
802        global $HTMLannos;
803        global $calendario;
804
805$HTMLannos[$cont_a]="<TABLE><TR>";
806$j=0;
807        for($i=0;$i<$cont_m;$i++){
808                if(isset($HTMLmeses[$i])){
809                        $HTMLannos[$cont_a].='<TD style="BACKGROUND-COLOR:#FFFFFF" valign=top>'.$HTMLmeses[$i].'</TD>';
810                        $j++;
811                        if($j==4) {
812                                $HTMLannos[$cont_a].="</TR><TR>";
813                                $j=0;
814                        }
815                }
816        }
817        $HTMLannos[$cont_a].="</TR></TABLE>";
818        $cadenaXML=preg_replace("/%anno-".$ganno.'%/',urlencode($HTMLannos[$cont_a]), $cadenaXML );
819        $cont_a++;
820}
821//________________________________________________________________________________________________________
822function PintaMesAnno($ganno,$gmes){
823        global $cadenaXML;
824
825        $cadenaXML.='<TBMES ';
826        // Atributos           
827        $cadenaXML.=' imagenodo="../images/iconos/nada.gif"';
828        $cadenaXML.=' infonodo=%mes-'.$ganno.'-'.$gmes.'%';
829        $cadenaXML.=' nodoid=mes-'.$ganno.'-'.$gmes;
830        $cadenaXML.=' fondonodo='."#FFFFFF";
831        $cadenaXML.='>';
832        $cadenaXML.='</TBMES> ';
833}
834//________________________________________________________________________________________________________
835function GuardaMesAnno($ganno,$gmes,$CntMes){
836        global $cadenaXML;
837        global $cont_m;
838        global $calendario;
839        global $HTMLmeses;
840
841        $HTMLmeses[$cont_m]="<TABLE cellspacing=3><TR><TD valign=top>";
842        $HTMLmeses[$cont_m].=$calendario->MesAnno($gmes,$ganno,$CntMes);
843        $HTMLmeses[$cont_m].="</TD></TR></TABLE>";
844        $cadenaXML=preg_replace('/%mes-'.$ganno.'-'.$gmes.'%/',urlencode($HTMLmeses[$cont_m]), $cadenaXML );
845        $cont_m++;
846}
847//________________________________________________________________________________________________________
848function PintaHorasDias($ganno,$gmes,$gdia){
849        global $cadenaXML;
850
851        $cadenaXML.='<TBDIA ';
852        // Atributos           
853        $cadenaXML.=' imagenodo="../images/iconos/nada.gif"';
854        $cadenaXML.=' infonodo=%horas-'.$ganno.'-'.$gmes.'-'.$gdia.'%';
855        $cadenaXML.=' nodoid=horas-'.$ganno.'-'.$gmes.'-'.$gdia;
856        $cadenaXML.=' fondonodo='."#FFFFFF";
857        $cadenaXML.='>';
858        $cadenaXML.='</TBDIA> ';
859}
860//________________________________________________________________________________________________________
861function GuardaHorasDias($ganno,$gmes,$gdia,$CntDia,&$CntMes){
862        global $cadenaXML;
863        global $calendario;
864        global $HTMLhorasdias;
865
866        $HTMLhorasdias="<TABLE cellspacing=3><TR><TD valign=top>";
867        $HTMLhorasdias.=$calendario->HorasDias($CntDia,$porcenhoras);
868        $HTMLhorasdias.="</TD></TR></TABLE>";
869
870        $CntMes[$gdia]=$porcenhoras;
871        $cadenaXML=preg_replace('/%horas-'.$ganno.'-'.$gmes.'-'.$gdia.'%/',urlencode($HTMLhorasdias), $cadenaXML );
872}
873//________________________________________________________________________________________________________
874function CriteriosBusquedas(){
875        global $idcentro;
876        global $TbMsg;
877
878        global $RESERVA_CONFIRMADA;
879        global $RESERVA_PENDIENTE;
880        global $RESERVA_DENEGADA;
881        global $LITRESERVA_CONFIRMADA;
882        global $LITRESERVA_PENDIENTE;
883        global $LITRESERVA_DENEGADA;
884
885        global $RESERVA_PARADA;  // reserva momentanemente parada
886        global $RESERVA_ACTIVA; // Reserva activa
887        global $LITRESERVA_PARADA;
888        global $LITRESERVA_ACTIVA;
889
890        global $fechainicio;
891        global $fechafin;
892       
893        global $westadoreserva;
894        global $wsituacion;
895
896        $HTMLCriterios="";
897        $HTMLCriterios.='<TABLE class=tabla_busquedas align=center border="0">'.chr(13);
898        $HTMLCriterios.='<TR HEIGHT=30>'.chr(13);
899                $HTMLCriterios.='<TD colspan=4 align="center" >'.chr(13);
900                $HTMLCriterios.='<SPAN align=center style="FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 11px;COLOR:#5a86b5;FONT-WEIGHT: 700;">_______________ '.$TbMsg[1].' _______________</SPAN>'.chr(13);
901                $HTMLCriterios.='</TR>'.chr(13);
902                $HTMLCriterios.='</TD>'.chr(13);
903
904        // Desplegable con los tipos de reservas
905        $HTMLCriterios.='<TR>'.chr(13);
906                $HTMLCriterios.='<TD>'.chr(13);
907                        $HTMLCriterios.='<TABLE class=tabla_standar align=center border="0">'.chr(13);
908                        $HTMLCriterios.='<TR>'.chr(13);
909                        $HTMLCriterios.='       <TH align=center>&nbsp;'.$TbMsg[2].'&nbsp;</TH>'.chr(13);
910                        $HTMLCriterios.='</TR>'.chr(13);
911                        $HTMLCriterios.='<TR>'.chr(13);
912                        $parametros=$RESERVA_CONFIRMADA."=".$LITRESERVA_CONFIRMADA.chr(13);
913                        $parametros.=$RESERVA_PENDIENTE."=".$LITRESERVA_PENDIENTE.chr(13);
914                        $parametros.=$RESERVA_DENEGADA."=".$LITRESERVA_DENEGADA;
915                        $HTMLCriterios.='<TD colspan=3>'.HTMLCTEMULSELECT($parametros,"westadoreserva",$westadoreserva,"estilodesple","chgdesplereservas",100,3).'</TD>';
916                        $HTMLCriterios.='</TR>'.chr(13);
917                        $HTMLCriterios.='</TABLE>'.chr(13);
918                $HTMLCriterios.='</TD>'.chr(13);
919        // Desplegable con los distintos situacion
920                $HTMLCriterios.='<TD>'.chr(13);
921                        $HTMLCriterios.='<TABLE class=tabla_standar align=center border="0">'.chr(13);
922                        $HTMLCriterios.='<TR>'.chr(13);
923                        $HTMLCriterios.='       <TH align=center>&nbsp;'.$TbMsg[4].'&nbsp;</TH>'.chr(13);
924                        $HTMLCriterios.='</TR>'.chr(13);
925                        $HTMLCriterios.='<TR>'.chr(13);
926                        $parametros=$RESERVA_PARADA."=".$LITRESERVA_PARADA.chr(13);
927                        $parametros.=$RESERVA_ACTIVA."=".$LITRESERVA_ACTIVA;
928                        $HTMLCriterios.='<TD colspan=3>'.HTMLCTEMULSELECT($parametros,"wsituacion",$wsituacion,"estilodesple","chgdesplesituacion",100,3).'</TD>';
929                        $HTMLCriterios.='</TR>'.chr(13);
930                        $HTMLCriterios.='</TABLE>'.chr(13);
931        $HTMLCriterios.='</TD>'.chr(13);
932
933        // Fechas
934                $HTMLCriterios.='<TD  COLSPAN=2>'.chr(13);
935                        $HTMLCriterios.='<TABLE WIDTH=100% class=tabla_standar align=center border="0">'.chr(13);
936                        $HTMLCriterios.='<TR>'.chr(13);
937                        $HTMLCriterios.='<TH>&nbsp;'.$TbMsg[7].':&nbsp;</TH>'.chr(13);
938                        $HTMLCriterios.='<TD><INPUT class="cajatexto" onclick="vertabla_calendario(this)" style="WIDTH:80" name="fechainicio" value="'.$fechainicio.'"></TD>'.chr(13);
939                        $HTMLCriterios.='</TR>'.chr(13);
940                        $HTMLCriterios.='<TR>'.chr(13);
941                        $HTMLCriterios.='<TH align=right>&nbsp;'.$TbMsg[8].':&nbsp;&nbsp;</TH>'.chr(13);
942                        $HTMLCriterios.='<TD> <INPUT class="cajatexto" onclick="vertabla_calendario(this)" style="WIDTH:80" name="fechafin" value="'.$fechafin.'"></TD>'.chr(13);
943                        $HTMLCriterios.='</TR>'.chr(13);
944                        $HTMLCriterios.='</TABLE>'.chr(13);             
945                $HTMLCriterios.='</TD>'.chr(13);
946        $HTMLCriterios.='</TR>'.chr(13);
947
948        $HTMLCriterios.='<TR height=5>'.chr(13);
949                $HTMLCriterios.='<TD colspan=4 align="center" >'.chr(13);
950                $HTMLCriterios.='<SPAN style="FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 11px;COLOR:#5a86b5;FONT-WEIGHT: 700;">__________________________________________________</SPAN>'.chr(13);
951        $HTMLCriterios.='</TR>'.chr(13);
952
953        // Lupa
954        $HTMLCriterios.='<TR>'.chr(13);
955                $HTMLCriterios.='<TD  COLSPAN=4>'.chr(13);
956                $HTMLCriterios.='<TABLE class=tabla_busquedas align=center border="0">'.chr(13);
957                $HTMLCriterios.='<TR>'.chr(13);
958                $HTMLCriterios.='<TD>';
959
960                $HTMLCriterios.= '<IMG src="../images/iconos/busquedas.gif" onclick="fdatos.submit();" style="cursor:hand" alt="Buscar">';
961                $HTMLCriterios.='</TD>';
962                $HTMLCriterios.='<TD>';
963                $HTMLCriterios.='</TD>'.chr(13);
964                $HTMLCriterios.='</TR>'.chr(13);
965                $HTMLCriterios.='</TABLE>';
966                $HTMLCriterios.='</TD>'.chr(13);
967        $HTMLCriterios.='</TR>'.chr(13);
968$HTMLCriterios.='</TABLE>';
969return($HTMLCriterios);
970}?>
Note: See TracBrowser for help on using the repository browser.