Conexion->Cerrar();
}
// *************************************************************************************************************************************************
?>
UltimoError();
$repordes=$cmd->DescripUltimoError();
echo '';
}
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 '';
}
}
else{
if (!$resul){ // Ha ocurrido algún error
$reporerr=0;
$repordes="Error al suspender la programación";
echo '';
}
else{ // programacion registrada correctamente
echo '';
}
}
?>
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);
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) VALUES (@tipoaccion,@identificador,@nombrebloque,@annos,@meses,@diario,@dias,@semanas,@horas,@ampm,@minutos,@segundos,@inihoras,@iniampm,@iniminutos,@finhoras,@finampm,@finminutos,@suspendida)";
$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);
}
// *************************************************************************************************************************************************
// Devuelve una objeto comando totalmente operativo (con la conexión abierta)
// Parametros:
// - cadenaconexion: Una cadena con los datos necesarios para la conexión: nombre del servidor
// usuario,password,base de datos,etc separados por coma
//________________________________________________________________________________________________________
function CreaComando($cadenaconexion){
$strcn=split(";",$cadenaconexion);
$cn=new Conexion;
$cmd=new Comando;
$cn->CadenaConexion($strcn[0],$strcn[1],$strcn[2],$strcn[3],$strcn[4]);
if (!$cn->Abrir()) return (false);
$cmd->Conexion=&$cn;
return($cmd);
}
?>