Foros del Web » Programando para Internet » ASP Clásico »

modificar caso

Estas en el tema de modificar caso en el foro de ASP Clásico en Foros del Web. tengo un sistema de casos el cual presenta problemas al colocar el status finalizado este sistema actua como helpdesk la idea es que si el ...
  #1 (permalink)  
Antiguo 16/05/2006, 06:55
 
Fecha de Ingreso: diciembre-2005
Mensajes: 131
Antigüedad: 19 años, 5 meses
Puntos: 0
Pregunta modificar caso

tengo un sistema de casos el cual presenta problemas al colocar el status finalizado este sistema actua como helpdesk la idea es que si el caso esta resuelto se pueda poner estatus de finalizado el codigo es algo largo aqui les va en realidad no se cual es el problema pero no me permite modificar el estatus:


--------------------------------------------------------------------------

<form action="Caso.asp" method="post" name="form2">

<table width="78%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#000000">
<tr>
<td width="19%" height="27" bgcolor="#FF9900"><div align="right"><strong><font color="#FFFFFF">*
Cliente:&nbsp;</font></strong></div></td>
<td colspan="4">&nbsp; <select name="cliente" id="cliente" onChange="renviarCliente(this.form)">
<option>Seleccione</option>
<%
sql="SELECT * FROM Casos WHERE nro_caso = "& Request.QueryString("id")
set result= conex.execute(sql)

sql="SELECT id_empresa,nombre FROM Empresa ORDER BY nombre"
set rs= conex.execute(sql)

while (not rs.eof)
if ( int(rs("id_empresa")) = int(Request.QueryString("idCliente"))) then
response.Write "<option value='caso.asp?op=mod&id="&Request.QueryString("i d")&"&idCliente="&rs("id_empresa")&"' selected>"&rs("nombre")&"</option>"
else
response.Write "<option value='caso.asp?op=mod&id="&Request.QueryString("i d")&"&idCliente="&rs("id_empresa")&"'>"&rs("nombre ")&"</option>"
end if
rs.movenext
wend
%>
</select> </td>
</tr>
<%
if Request.QueryString("idCliente") <> "" then
sql="SELECT * FROM Empresa WHERE id_empresa = "& Request.QueryString("idCliente")
set rs= conex.execute(sql)
mensaje= "Sin Información"
%>
<tr>
<td height="19" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Direcci&oacute;n:&nbsp;</strong></font></div></td>
<td height="19" colspan="4"><div align="justify"> &nbsp;&nbsp;<%=Escribir(Existe(rs),rs("direccion") , mensaje)%></div></td>
</tr>
<tr>
<td height="19" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Ciudad:&nbsp;</strong></font></div></td>
<td height="19" colspan="2"><div align="justify">&nbsp;&nbsp;<%=Escribir(Existe(rs) ,rs("ciudad"), mensaje)%></div></td>
<td width="10%" bgcolor="#FF9900"><div align="center"><font color="#FFFFFF"><strong>Estado:</strong></font></div></td>
<td width="30%">&nbsp;&nbsp;<%=Escribir(Existe(rs),rs( "estado"), mensaje)%></td>
</tr>
<tr>
<td height="19" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Tel&eacute;fono:&nbsp;</strong></font></div></td>
<td height="19" colspan="4"><div align="justify">&nbsp;&nbsp;<%=Escribir(Existe(rs) ,rs("telefono"), mensaje)%></div></td>
</tr>
<%end if%>
<%
if Request.QueryString("idCliente") <> "" then
sql= "SELECT * FROM Contacto_Empresa WHERE id_empresa = "& Request.QueryString("idCliente")
set rs= conex.execute(sql)
%>
<tr>
<td bgcolor="#FF9900"><div align="right"><font color="#FFFFFF"><strong>*
Contacto:&nbsp;</strong></font> </div></td>
<td colspan="4">&nbsp; <select name="contacto" id="contacto">
<option>Seleccione</option>
<%
while(not rs.eof)
if(rs("id_contacto")= result("contacto")) then
%>
<option value="<%=rs("id_contacto")%>" selected><%=nombreContacto(rs("id_contacto"))%></option>
<%
else
%>
<option value="<%=rs("id_contacto")%>"><%=nombreContacto(r s("id_contacto"))%></option>
<% end if
rs.movenext
wend
%>
</select> </td>
</tr>
<%end if%>
<tr>
<td height="26" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>T&eacute;cnico:&nbsp;</strong></font></div></td>
<td colspan="4">&nbsp; <select name="tecnico">
<option>Seleccione</option>
<%

sql= "SELECT * FROM usuario ORDER BY nombre, apellido"
set rs = conex.execute(sql)
while not rs.eof
if (ExisteUsuarioCaso(conex,Request.QueryString("id") ,rs("login")) = true) then
%>
<option value="<%=rs("login")%>" selected><%=rs("nombre")&" "&rs("apellido")%></option>
<%else%>
<option value="<%=rs("login")%>"><%=rs("nombre")&" "&rs("apellido")%></option>
<%
end if
rs.movenext
wend
%>
</select></td>
</tr>
<tr>
<td height="29" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>*
Estatus:&nbsp;</strong></font></div></td>
<td colspan="4">&nbsp; <select name="estatus" id="estatus" onChange="verificarestatus(this.form)">
<option>Seleccione</option>
<%
for pos=1 to 5
if (getEstatus(pos)= result("estatus")) then
%>
<option value=<%=getEstatus(pos)%> selected><%=getEstatus(pos)%></option>
<%else%>
<option value=<%=getEstatus(pos)%>><%=getEstatus(pos)%></option>
<%end if
next

if result("estatus")="Sin Asignar" then
%>
<script>form2.tecnico.disabled = true</script>
<%
end if
%>
</select> </td>
</tr>
<tr>
<td height="25" nowrap bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>*
Actividad:&nbsp;</strong></font></div></td>
<td colspan="4">&nbsp; <input name="actividad" type="text" id="actividad" size="50" maxlength="100" value="<%=result("actividad")%>" onKeyPress="valcomilla()"></td>
</tr>
<tr>
<td height="74" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>*
Descripci&oacute;n:&nbsp;</strong></font></div></td>
<td colspan="4" valign="top">&nbsp; <textarea name="descripcion" cols="50" rows="5" id="descripcion" onKeyPress="valcomilla()"><%=result("descripcion") %></textarea>
</td>
</tr>
<tr>
<td height="74" bgcolor="#FF9900"> <div align="right"><font color="#FFFFFF"><strong>Observaciones
y Recomendaciones:&nbsp;</strong></font></div></td>
<td colspan="4">&nbsp; <textarea name="observacion" cols="50" rows="5" id="observacion" onKeyPress="valcomilla()"><%=result("observacion") %></textarea></td>
</tr>
<tr>
<td height="19" bgcolor="#FF9900"><strong><font color="#FFFFFF">&nbsp;D&iacute;as
de Alarma:</font></strong></td>
<td width="21%" height="19">&nbsp;
<%
sql= "SELECT * FROM Alerta WHERE nro_caso = "&Request.QueryString("id")
set rs= conex.execute(sql)
if not rs.eof then
response.Write(rs("dias")&" días")
end if
%>
</td>
<td height="19" bgcolor="#FF9900"><div align="center"><strong><font color="#FFFFFF">D&iacute;as
de Activaci&oacute;n:</font></strong></div></td>
<td height="19" colspan="2">&nbsp;
<%
if not rs.eof then
if ( rs("fechaPendiente") <> "" AND rs("fechaReasignacion")<> "") then
dias = calcularDiasPendientes(Request.QueryString("id"))
' casos con otros estatus
else
dias= DateDiff("d", rs("fechaInicio"),date())
end if

totalDias= dias-rs("dias")
if totalDias = rs("dias") then
response.Write("Hoy")
elseif totalDias <= rs("dias") then
response.Write(totalDias&" días")
elseif totalDias > rs("dias")then
response.Write(totalDias&" días ya activada")
end if
end if
%>
</td>
</tr>
<tr>
<td height="19" colspan="5" bgcolor="#FF9900"> <div align="center"><strong><font color="#FFFFFF">Los
campos con (*) son obligatorios</font></strong></div></td>
</tr>
<tr>
<td colspan="5"> <div align="center"><br>
<input type="hidden" name="id_cliente" value="<%=Request.QueryString("idCliente")%>">
<input type="hidden" name="tip_estatus" value="<%=result("estatus")%>">
<input type="hidden" name="oc" value="mod">
<input type="hidden" name="nro_caso" value="<%=Request.QueryString("id")%>">
<input name="guardar" type="submit" id="guardar" value="Modificar Nro Caso" onClick="return validar(this.form)">
&nbsp;
<input type="reset" name="Submit2" value="Restablecer">
</div></td>
</tr>
</table>
</form>
  #2 (permalink)  
Antiguo 16/05/2006, 07:06
 
Fecha de Ingreso: diciembre-2005
Mensajes: 131
Antigüedad: 19 años, 5 meses
Puntos: 0
Pregunta El Error

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Línea 1: sintaxis incorrecta cerca de 'fecha_final'.

/Caso.asp, línea 702


la linea 702 es la siguiente:

if request.Form("estatus")="Finalizado" then
sql= sql + " fecha_final= '"& date() &"' "
end if

sql= sql +" WHERE nro_Caso = "&request.Form("nro_caso")
set result = conex.execute(sql)
  #3 (permalink)  
Antiguo 16/05/2006, 08:31
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 20 años, 8 meses
Puntos: 18
¿porqué usais indistintamente(vamos, cuando se os pone en...), + o &?
+ suma
& concatena.
¿que funcionan igual? vale, pero cada una vale para lo suyo.

prueba a poner
response.write(sql)
response.end

antes de
set result = conex.execute(sql)
y pon aqui la salida
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:23.