Tema: Problema Con Modificar Datos
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/11/2007, 23:44
darkmcloud
 
Fecha de Ingreso: octubre-2007
Mensajes: 191
Antigüedad: 17 años, 7 meses
Puntos: 0
Re: Problema Con Modificar Datos
por favor amigos!!! necesito ayuda !!!!

ya logre hacer que si se intenta modificar los datos y el estado del registro (csr) se encuentra en estado entregado....el navegador redirige a una pantalla que dice "no se pueden modificar datos"
pero no logro hacer que se ejecute bien la segunda consulta...que tiene que seleccionar los datos para mostrarlos en el formulario para poder modificarlos...este es el codigo:

Cita:
<%


if Not IsEmpty(Request("csr")) then
csr = Request("csr")
end if

On Error Resume next

Dim Rs, Cnn, strSQL,usuarioconta,fechacuenta,timecuenta,ip,hech o, strSQL2, rs2
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

if Err.number <> 0 then
session("ErrorTitle")="Error prueba funka"
session("ErrorText")= "Error de Conexion :" & Err.description
Response.Redirect "onerror.asp"
end if

usuarioconta=Session("id_usuario")
fechacuenta=date()
timecuenta=time()
ip= Request.ServerVariables("REMOTE_HOST")





strSQL = "select * from Tblcliente"


se_encuentra = False

if se_encuentra then
strSQL=strSQL & " AND estado LIKE '%entregado'"
else
strSQL=strSQL & " WHERE estado LIKE '%entregado'"
se_encuentra=True
end if



if csr <> "" then
if se_encuentra then
strSQL=strSQL & " AND csr LIKE '%"&csr&"'"

se_encuentra=True
end if
end if



rs.Open strSQL, Cnn, 1, 2



If Not rs.EOF then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "window.close()"
Response.Write "</SCRIPT>"
Response.Redirect("../existecsr.asp")



Else

strSQL2 = "select * from Tblcliente where csr='" & csr & "'"
rs.Open strSQL, Cnn, 1, 2



If Not rs.EOF then

csr = rs.Fields("csr")
nombre_cliente= rs.Fields ("nombre_cliente")
fecha_in= rs.Fields("fecha_in")
artefacto= rs.Fields("artefacto")
serie= rs.Fields("serie")
estado= rs.Fields("estado")

fecha_ret= rs.Fields("fecha_ret")

gtia= rs.Fields("gtia")
tecnico= rs.Fields("tecnico")

comentarios= rs.Fields("comentarios")


End If

end if

if not rs.EOF then

%>

<%

%>
<font face="Verdana" color="BLACK">
<h2>
<%
Response.Write( "Los Datos del Cliente De CSR: ")
%>
</h2>
<h3>
<%
Response.Write( "<TD><b>" & rs.Fields("csr")& "</b></TD>" ) %>
<b>-</b>
<%
Response.Write( "<TD><b>"& rs.Fields("nombre_cliente")& "</b></TD>" )
%> &nbsp;&nbsp;

</h3>
</font>
<%
end if
rs.Close
set rs = nothing
Cnn.Close
set Cnn = nothing
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<body BACKGROUND ="2.jpg" bgcolor="#000000" text="#000000" vlink="#ffffff" alink="#ffffff">
<script language="javascript">
function nombre1(cadena,obj)
{
opc=false;
if (cadena='%n')
{if (event.keyCode>96 && event.keyCode<123)
opc=true;
}

if (cadena =="%n")
{ if (event.keyCode>64 && event.keyCode <89)
opc=true;
}

if (cadena =="%n")
{ if (event.keyCode>31 && event.keyCode <33)
opc=true;
}
if(opc==false)
{
event.returnValue=false;
}
}

function numero(cadena,obj)
{
opc=false;
if (cadena='%n')
{if (event.keyCode>47 && event.keyCode<58)
opc=true;
}

if(opc==false)
{
event.returnValue=false;
}
}


function guias(cadena,obj)
{
opc=false;
if (cadena =="%g")
{if (event.keyCode>47 && event.keyCode<58)
opc=true;
}

if (cadena='%g')
{if (event.keyCode>44 && event.keyCode<46)
opc=true;
}
if (cadena='%g')
{if (event.keyCode>96 && event.keyCode<123)
opc=true;
}

if (cadena =="%g")
{ if (event.keyCode>64 && event.keyCode <89)
opc=true;
}

if (cadena =="%g")
{ if (event.keyCode>31 && event.keyCode <33)
opc=true;
}




if(opc==false)
{
event.returnValue=false;
}
}


function fecha(cadena,obj)
{
opc=false;

if (cadena='%f')
{if (event.keyCode>46 && event.keyCode<58)
opc=true;
}

if (cadena='%f')
{if (event.keyCode>44 && event.keyCode<46)
opc=true;
}



if(opc==false)
{
event.returnValue=false;
}
}


function envia()
{
alert ('SE VA MODIFICAR LOS DATOS DEL CLIENTE')
document.valactual.action = '/bodega/scripts/actualcorreclie.asp?csr=' + document.valactual.csr.value + '&nombre_cliente='+ document.valactual.nombre_cliente.value + '&artefacto=' + document.valactual.artefacto.value + '&serie='+ document.valactual.serie.value + '&estado='+ document.valactual.estado.value + '&gtia='+ document.valactual.gtia.value + '&tecnico='+ document.valactual.tecnico.value + '&comentarios='+ document.valactual.comentarios.value ;

document.valactual.method="POST";
document.valactual.submit();
}

</script>

<center>
<FORM ACTION='' METHOD='POST' id=valactual name=valactual>
<font face="Verdana" color="BLACK">
<b>
<TABLE WIDTH=402 BORDER=1 align="center" CELLPADDING="5" CELLSPACING="1" bordercolor="#0000FF">

<tr>
<td width="386" ><b>Csr :</b>&nbsp; &nbsp;&nbsp; &nbsp;
<input type="text" name="csr" id="csr" size=10 readonly="readonly" Value="<%=csr%>" onKeyPress="numero('%n',this);">
<tr>
<td ><b>Nombre Cliente :</b>&nbsp;&nbsp;&nbsp;
<input type="text" name="nombre_cliente" id="nombre_cliente" size=30 Value="<%=nombre_cliente%>" >
</tr>
<tr>




<tr> <td ><b>Artefacto :</b>&nbsp;&nbsp;&nbsp;
<input type="text" name="artefacto" id="artefacto" size=30 Value="<%=artefacto%>" onKeyPress="guias('%g',this);"></td>
<tr> <td ><b>Serie :</b>&nbsp;&nbsp;
<input type="text" name="serie" id="serie" size=15 Value="<%=serie%>" onKeyPress="guias('%g',this);"> </td> </tr>
<tr> <td ><b>Estado :</b>&nbsp;
<select name="estado">
<option selected><%=estado%></option>
<option>REVISION</option>
<option>PXR</option>
<option>SCA</option>
<option>OK</option>
<option>ENTREGADO</option>
<option>EN PROCESO</option>
<option>COTIZACION</option>
<option>DC</option>
</select></td> </tr>
<td ><b>Fecha Ingreso:</b> &nbsp; &nbsp;
<input type="text" name="fecha_in" id="fecha_in" size=15 readonly="readonly" Value="<%=fecha_in%>" onKeyPress="fecha('%f',this);"></td>
</tr>

<tr>
<td ><b>Fecha de Status / Retiro :</b>&nbsp;&nbsp;&nbsp;
<input type="text" name="fecha_ret" id="fecha_ret" size=15 readonly="readonly" Value="<%=fecha_ret%>" onKeyPress="fecha('%f',this);">
</tr>


<tr>
<td ><b>Tipo de Garantía:</b>&nbsp;&nbsp;&nbsp;
<select name="gtia">
<option selected><%=gtia%></option>
<option>DG</option>
<option>FG</option>
<option>GE</option>
<option>GTIA TALLER</option>


</select></td> </tr>

<tr>
<td ><b>Técnico Asignado :</b>&nbsp;&nbsp;&nbsp;
<select name="tecnico">
<option selected><%=tecnico%></option>
<option>HH</option>
<option>CM</option>
<option>VA</option>
<option>AA</option>
<option>AK</option>
<option>SM</option>
<option>JLV</option>
<option>GP</option>
<option>JD</option>
</select></td> </tr>
<tr> <td bgcolor><b>Comentarios :</b>
<input type="text" name="comentarios" id="comentarios" size=30 Value="<%=comentarios%>" ></td> </tr>


</table> <br> <br>
<center> <input type="button" name="grabar" value="Modificar Datos" onclick='envia()'>&nbsp;&nbsp;



</tr> </table> </b>



<hr size=1> <center> <b> <i>

<BR>
<BR>

</form>
</BODY>
</HTML>
el codigo marcado con rojo es la primera consulta....que valida el campo csr y si su estado es 'entregado' redirige a una pantalla que manda el mensaje que no se puede modificar....entonces el codigo marcado con azul es la segunda consulta que no se me quiere ejecutar.....que es la que llama a los campos para llenar el formulario y que el cliente pueda modificar......
De antemano muchas gracias