Conexion->Cerrar(); } if($pswop!=$op_suspension){ if (!$resul){ // Ha ocurrido algún error $reporerr=$cmd->UltimoError(); $repordes=$cmd->DescripUltimoError(); echo "error_programacion()"; } else{ // programacion registrada correctamente switch($pswop){ case $op_modificacion : $idr=$pidprogramacion; // Identificador de la programacion modificada $swop=$op_modificacion; break; case $op_alta: $idr=$pidprogramacion; // Identificador de la programacion nueva $swop=$op_alta; break; case $op_eliminacion : $idr=$pidprogramacion; // Identificador de la programacion eliminada $swop=$op_eliminacion; break; default: break; } echo 'registro_programacion('.$idr.',"'.$pnombrebloque.'",'.$swop.')'; } } else{ if (!$resul){ // Ha ocurrido algún error $reporerr=0; $repordes="Error al suspender la programación"; echo 'error_programacion()'; } else{ // programacion registrada correctamente echo 'resultado_suspender_programacion()'; } } // *************************************************************************************************** function Gestiona() { global $cmd; global $pswop; global $pidprogramacion; global $pidentificador; global $ptipoaccion; global $pnombrebloque; global $pannos; global $pmeses; global $pdiario; global $pdias; global $psemanas; global $phoras; global $pampm; global $pminutos; global $psegundos; global $phorasini; global $pampmini; global $pminutosini; global $phorasfin; global $pampmfin; global $pminutosfin; global $psw_sus; global $psesion; global $op_alta; global $op_modificacion; global $op_eliminacion; global $op_suspension; $cmd->CreaParametro("@idprogramacion",$pidprogramacion,1); $cmd->CreaParametro("@tipoaccion",$ptipoaccion,1); $cmd->CreaParametro("@identificador",$pidentificador,1); $cmd->CreaParametro("@nombrebloque",$pnombrebloque,0); $cmd->CreaParametro("@annos",$pannos,1); $cmd->CreaParametro("@meses",$pmeses,1); $cmd->CreaParametro("@diario",$pdiario,1); $cmd->CreaParametro("@dias",$pdias,1); $cmd->CreaParametro("@semanas",$psemanas,1); $cmd->CreaParametro("@horas",$phoras,1); $cmd->CreaParametro("@ampm",$pampm,1); $cmd->CreaParametro("@minutos",$pminutos,1); $cmd->CreaParametro("@segundos",$psegundos,1); $cmd->CreaParametro("@inihoras",$phorasini,1); $cmd->CreaParametro("@iniampm",$pampmini,1); $cmd->CreaParametro("@iniminutos",$pminutosini,1); $cmd->CreaParametro("@finhoras",$phorasfin,1); $cmd->CreaParametro("@finampm",$pampmfin,1); $cmd->CreaParametro("@finminutos",$pminutosfin,1); $cmd->CreaParametro("@suspendida",$psw_sus,1); $cmd->CreaParametro("@sesion",$psesion,1); switch($pswop){ case $op_alta : $cmd->texto="INSERT INTO programaciones(tipoaccion,identificador,nombrebloque,annos,meses,diario, dias,semanas,horas,ampm,minutos,segundos,horasini,ampmini,minutosini,horasfin, ampmfin,minutosfin,suspendida,sesion) VALUES (@tipoaccion,@identificador,@nombrebloque,@annos,@meses,@diario,@dias, @semanas,@horas,@ampm,@minutos,@segundos,@inihoras,@iniampm,@iniminutos,@finhoras, @finampm,@finminutos,@suspendida,@sesion)"; $resul=$cmd->Ejecutar(); if($resul) $pidprogramacion=$cmd->Autonumerico(); break; case $op_modificacion: $cmd->texto="UPDATE programaciones SET nombrebloque=@nombrebloque,annos=@annos,meses=@meses,diario=@diario, dias=@dias,semanas=@semanas,horas=@horas,ampm=@ampm,minutos=@minutos,segundos=@segundos, horasini=@inihoras,ampmini=@iniampm,minutosini=@iniminutos,horasfin=@finhoras,ampmfin=@finampm, minutosfin=@finminutos,suspendida=@suspendida WHERE idprogramacion=@idprogramacion"; $cmd->Traduce(); $resul=$cmd->Ejecutar(); break; case $op_eliminacion : $cmd->texto="DELETE FROM programaciones WHERE idprogramacion=".$pidprogramacion; $resul=$cmd->Ejecutar(); break; case $op_suspension : $cmd->texto="UPDATE programaciones SET suspendida=@suspendida WHERE identificador=@identificador AND tipoaccion=@tipoaccion"; $resul=$cmd->Ejecutar(); break; default: break; } return($resul); }