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); }