Cerrar explorer
Alguien sabe como hacer para cuando se pulse el boton cerrar ventana (para que se cierre el explorardos), haga algo, como por ejemplo, en mi caso: Necesito Cerrar la ventana pero antes de que se cierre, grabar un dato en la Bd y que a continuación se cierre. Muchisimas gracias.
MIRA ESTE CODIGO
<%
var sSQLAnoSocio = ""
var iUltimoAnioPagadoSocio = BuscaSoloUnDato(" Soc_UltimoAnioPagado ", " Socio ", " Soc_ID = " + Parametro("Soc_ID", -1),0,-1)
if(Parametro("accion","Consulta") == "Borrar")
var sSQLReg = " DELETE FROM CobranzaTemporal "
sSQLReg += " WHERE Cob_ID = " + Parametro("Cob_ID", -1)
sSQLReg += " AND Soc_ID = " + Parametro("Soc_ID", -1)
} else if(Parametro("accion","Consulta") == "AplicarPagos"){
Separa(Parametro("FechaDePago", jGre))
var sSQLReg = " UPDATE CobranzaTemporal SET Cob_FechaPago = '" + Parametro("FechaDePago",jGre) + "',"
sSQLReg += " Cob_Estatus = 1 "
sSQLReg += " jConFechaCerrado = " + jJul
sSQLReg += " WHERE Cob_ID = " + Parametro("Cob_ID", -1)
sSQLReg += " AND Soc_ID = " + Parametro("Soc_ID", -1)
sSQLAnoSocio = " UPDATE Socio SET Soc_UltimoAnioPagado = " + iUltimoAnioPagadoSocio + 1
sSQLReg += " WHERE Soc_ID = "+ Parametro("Soc_ID", -1)
}
Ejecuta(sSQLReg, 0)
if (!EsVacio(sSQLAnoSocio){
Ejecuta(sSQLAnoSocio,0)
}
%>
<script language="JavaScript">
window.close();
</script>
----CUANDO SE TERMINA DE EJECUTAR, LA VENTANA QUE SE ABRIO, inmediatamente se cierra
recuerda que los lenguajes web son como C que se leen de arriba para abajo... y solo se interrumpen bajo instrucciones programadas o errores.
gracias
<%
var sSQLAnoSocio = ""
var iUltimoAnioPagadoSocio = BuscaSoloUnDato(" Soc_UltimoAnioPagado ", " Socio ", " Soc_ID = " + Parametro("Soc_ID", -1),0,-1)
if(Parametro("accion","Consulta") == "Borrar")
var sSQLReg = " DELETE FROM CobranzaTemporal "
sSQLReg += " WHERE Cob_ID = " + Parametro("Cob_ID", -1)
sSQLReg += " AND Soc_ID = " + Parametro("Soc_ID", -1)
} else if(Parametro("accion","Consulta") == "AplicarPagos"){
Separa(Parametro("FechaDePago", jGre))
var sSQLReg = " UPDATE CobranzaTemporal SET Cob_FechaPago = '" + Parametro("FechaDePago",jGre) + "',"
sSQLReg += " Cob_Estatus = 1 "
sSQLReg += " jConFechaCerrado = " + jJul
sSQLReg += " WHERE Cob_ID = " + Parametro("Cob_ID", -1)
sSQLReg += " AND Soc_ID = " + Parametro("Soc_ID", -1)
sSQLAnoSocio = " UPDATE Socio SET Soc_UltimoAnioPagado = " + iUltimoAnioPagadoSocio + 1
sSQLReg += " WHERE Soc_ID = "+ Parametro("Soc_ID", -1)
}
Ejecuta(sSQLReg, 0)
if (!EsVacio(sSQLAnoSocio){
Ejecuta(sSQLAnoSocio,0)
}
%>
<script language="JavaScript">
window.close();
</script>
----CUANDO SE TERMINA DE EJECUTAR, LA VENTANA QUE SE ABRIO, inmediatamente se cierra
recuerda que los lenguajes web son como C que se leen de arriba para abajo... y solo se interrumpen bajo instrucciones programadas o errores.
gracias
