actualizacion de status con una Bd Access

yenaiv · #1 (**permalink**) 10/12/2007, 11:27

hola mi problema es de que tengo una funcion que me debe de actualizar el estatus de unas boletas, lo unico que esta la mando a llamar a la hora de que habro mi index y por consiguiente se tarda y los usuarios del sistema cuando sucede esto prefieren cerrar la ventana y la vuelven a abrir y no se actualizan los estatus, alguna forma para realizar esto y que no se tarde la actualizacion.
atte
Virna

JuanRAPerez · #2 (**permalink**) 10/12/2007, 11:29

hola virna

nos gustaria pegaras tu codigo y nos contaras como haces la actualizacion

podrias cargar una pagina primero y dejar un mensaje que diga "actualizando estatus, espere" luego actualizas los estatus y el usuario no piensa que la pagina no sirve o no entra

suerte

yenaiv · #3 (**permalink**) 10/12/2007, 11:34

ESTE ES MI INDEX

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Conn, Rs, SQL, usuario,Pb
session("UsrConexion") = ""
usuario = Request.Form("usuario")
contra = Request.Form("contrasena")
'odbc = Request.Form("sucursal")' comentar esta linea para uso en sucursales
odbc = "CASAV22" 'quitar comentario a la linea para uso en sucursales

if usuario <> "" Then

' Ouverture de la connexion à la base

Set conn = Server.CreateObject("ADODB.Connection")
conn.open odbc

Set Session("BDD") = conn

SQL = "SELECT PE_IdPersonal, SU_IdSucursal, PE_Grupo, PE_Responsable, PE_Nombre, PE_ApPaterno, PE_ApMaterno FROM TPersonal WHERE UCASE(PE_Usuario)='" & UCASE(Replace(usuario, "'", "''")) & "'"
SQL = SQL & " AND PE_Password='" & UCASE(Replace(contra, "'", "''")) & "'"
Set Rs = Session("BDD").Execute(SQL)
if not Rs.EOF Then
session("sucursal") = Rs("SU_IdSucursal")
session("usuario") = usuario
session("grupo") = Rs("PE_Grupo")
session("responsable") = Rs("PE_Responsable")
session("UsrConexion") = Rs("PE_IdPersonal")
session.Timeout = 60
session("Nombre") = Rs("PE_Nombre") & " " & Rs("PE_ApPaterno") & " " & Rs("PE_ApMaterno")
TT = Scriptage()
RegistroConexion( Rs("PE_IdPersonal") )

Rs.Close
Set Rs = nothing
ScriptCorte2()
ok = 1
IP = Request.ServerVariables("REMOTE_HOST")
SQL= "SELECT * FROM TSeguridad WHERE SG_IP='" & IP & "' AND SU_IdSucursal=" & session("sucursal")
Set Rs = Session("BDD").Execute(SQL)
if not Rs.EOF Then
ok = 1
Rs.Close
Set Rs = nothing
Else
if IP = "127.0.0.1" OR UCASE(IP) = "LOCALHOST" OR CLng(session("sucursale")) = 0 OR CLng(Session("Responsable")) = 1 Then
ok = 1
Else
ok = 0
End if
End if
if ok = 1 Then
'Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")
Response.Redirect("menu.asp?" & tt)
Else
pb = "Esta máquina no es autorizada para tener acceso al sistema"
End if
Else
Pb = "Usuario o Contraseña no valido!"
End if

' Fermeture et destruction de la connexion et de ce qu'elle contient
End if

%>

<html>
<head>
<title>Prestomass - Casa de Empeño</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="Estilo.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" bgcolor="FFFFFF" onLoad="history.go(+1)">
<form action="index.asp" method="post" name="Login" id="Login">
<center><img src="presto_log.jpg" width="370" height="369">
<table width="45%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font class="Texto">Usuario :</font></td>
<td><input class="unnamed2" name="usuario" type="text" id="usuario" tabindex="1"></td>
<td><font class="Texto">Contraseña :</font></td>
<td><input class="unnamed2" name="contrasena" type="password" id="contrasena2" tabindex="2"></td>
<td><input class="Texto" name="Aceptar" type="submit" id="Aceptar2" value="Aceptar" tabindex="3" style=""></td>
</tr>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" color="blue" size="2"><%= Pb %></font>
<INPUT TYPE="HIDDEN" NAME="sucursal" VALUE="<%=odbc%>">
</center>
</form>
<script language="JavaScript">
document.getElementById('usuario').focus()
</script>
</body>
</html>

ESTA ES MI FUNCION DE ESTATUS
Function Scriptage()
Dim SQL, Rs,Hoy,Liste,Vencida,Remate,i

i = 0

'Empezamos con las vencidas
SQLCR = "Select * FROM TCreditos"
Set RsCR = Session("BDD").Execute(SQLCR)

while not RsCR.eof
DiasRecuperar = RsCR("CR_DiasRecuperar")
IdCredito = RsCR("CR_IdCredito")

Hoy = DateAdd("d", DiasRecuperar, Now)
Hoy = Month(Hoy) & "/" & Day(Hoy) & "/" & Year(Hoy)

f1 = Month(now) & "/" & Day(now) & "/" & Year(now)
f2 = "9/19/2006"

if f1 = f2 then
SQL = "SELECT BO_IDBoleta FROM TBoletas WHERE BO_Estatus='E' AND ((BO_FcRemate=#"
SQL = SQL & "09/23/2006#) or (BO_FcRemate=#" & hoy & "#)) AND CR_IdCredito=" & IdCredito & " AND SU_IdSucursal="
SQL = SQL & session("sucursal")
else
SQL = "SELECT BO_IDBoleta FROM TBoletas WHERE BO_Estatus='E' AND BO_FcRemate=#" & Hoy & "# AND CR_IdCredito=" & IdCredito & " AND SU_IdSucursal=" & session("sucursal")
end if
Set Rs = Session("BDD").Execute(SQL)

while not Rs.EOF
i = i + 1
Liste = Rs("BO_IDBoleta") & "," & Liste
Rs.MoveNext
Wend

Rs.Close
Set Rs = Nothing

RsCR.MoveNext
wend
'termina para cada credito

'actualiza las boletas vencidas
if Len(liste) > 0 Then
Liste = Left(Liste, Len(liste)-1)
Vencida = CStr(i)
Hoy = Date
hoy = Month(Hoy) & "/" & Day(Hoy) & "/" & Year(Hoy)
SQL = "UPDATE TBoletas SET BO_Estatus='V', BO_FcSalida=#" & Hoy & "# WHERE BO_IDBoleta IN (" & Liste & ")"
Session("BDD").Execute(SQL)
End if

'Remate
Liste = ""
i = 0
Hoy = Date
hoy = Month(Hoy) & "/" & Day(Hoy) & "/" & Year(Hoy)
SQL = "SELECT BO_IDBoleta FROM TBoletas WHERE BO_Estatus='V' AND BO_FcRemate=#" & Hoy & "# AND SU_IdSucursal=" & session("sucursal")
Set Rs = Session("BDD").Execute(SQL)
while not Rs.EOF
Liste = Rs("BO_IDBoleta") & "," & Liste
i = i + 1
Rs.MoveNext
Wend

Rs.Close
Set Rs = Nothing

if Len(liste) > 0 Then
Liste = Left(Liste, Len(liste)-1)
Remate = CStr(i)
Hoy = Date
hoy = Month(Hoy) & "/" & Day(Hoy) & "/" & Year(Hoy)
SQL = "UPDATE TBoletas SET BO_Estatus='RM', BO_FcSalida=#" & Hoy & "# WHERE BO_IDBoleta IN (" & Liste & ")"
Session("BDD").Execute(SQL)
End if

Scriptage = "vencidas=" & vencida & "&remate=" & remate

End Function

Shiryu_Libra · #4 (**permalink**) 10/12/2007, 13:33

al principio de la pagina

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
response.buffer=true
Dim Conn, Rs, SQL, usuario,Pb

en la parte del while

Cita:

while not Rs.EOF
i = i + 1
Liste = Rs("BO_IDBoleta") & "," & Liste
response.flush
Rs.MoveNext
Wend

si estas tratando de lidiar con muchos datos, es preferible ir arrojando al explorer lo que ya proceso, en lugar de esperar a que termine por completo el proceso que le solicitaste, de esta manera trabajara un poco mas rapido

no creen....

claumontejo · #5 (**permalink**) 10/01/2008, 13:09

O podrias llamar a otra ventana para que ahí se ejecute el proceso y seguir con la operación normal del sistema en la primera.