1 | <? |
---|
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 2003-2004 |
---|
6 | // Fecha Última modificación: Noviembre-2005 |
---|
7 | // Nombre del fichero: consulta_programacion.php |
---|
8 | // Descripción : |
---|
9 | // Muestra un calendario para elegir una fecha |
---|
10 | // ************************************************************************************************************************************************* |
---|
11 | include_once("../includes/ctrlacc.php"); |
---|
12 | include_once("../clases/AdoPhp.php"); |
---|
13 | include_once("../includes/comunes.php"); |
---|
14 | include_once("../includes/CreaComando.php"); |
---|
15 | //_________________________________________________________________________________________________________ |
---|
16 | ?> |
---|
17 | <HTML> |
---|
18 | <HEAD> |
---|
19 | <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> |
---|
20 | <BODY> |
---|
21 | <? |
---|
22 | // Toma parametros |
---|
23 | $idprogramacion=0; |
---|
24 | if (isset($_GET["idprogramacion"])) $idprogramacion=$_GET["idprogramacion"]; |
---|
25 | |
---|
26 | // Abre conexiones |
---|
27 | $cmd=CreaComando($cadenaconexion); // Crea objeto comando |
---|
28 | $rs=new Recordset; // Recupero acciones anidadas |
---|
29 | $cmd->texto="SELECT * FROM programaciones WHERE idprogramacion=".$idprogramacion; |
---|
30 | $rs->Comando=&$cmd; |
---|
31 | if (!$rs->Abrir()){ // Error al abrir recordset |
---|
32 | $reporerr=$cmd->UltimoError(); |
---|
33 | $repordes=$cmd->DescripUltimoError(); |
---|
34 | echo '<SCRIPT language="javascript">'; |
---|
35 | echo ' window.parent.error_programacion('.$reporerr.',"'.$repordes.'")'; |
---|
36 | echo '</SCRIPT>'; |
---|
37 | } |
---|
38 | else{ |
---|
39 | $cadena_campos=$rs->campos[0]; |
---|
40 | for($i=1;$i<$rs->numerodecampos;$i++) |
---|
41 | $cadena_campos.=";".$rs->campos[$i]; // Usa el caracter ; para delimitar |
---|
42 | |
---|
43 | echo '<SCRIPT language="javascript">'; |
---|
44 | echo ' window.parent.muestra_programacion("'.$cadena_campos.'")'; |
---|
45 | echo '</SCRIPT>'; |
---|
46 | } |
---|
47 | $rs->Cerrar(); |
---|
48 | ?> |
---|
49 | </BODY> |
---|
50 | </HTML> |
---|