Inicio
Publicado por bpbrainiak en 13/02/2007
Bienvenidos a BP-Brainiak’s Words
Este es un experimento blogistico para ver como mis palabras corren por el mundo, tengo varias ideas, pero como primer post, solo hablare de lo que significa esto.
para partir contare la historia del desarrollo de mi primera aplicacion comercial el Mass
lo que veran acontinuacion es la bitacora de desarrollo
0C-SV REGISTRO CSV CREADO EL 4/2/2006 JUNTO CON EL PRIMER ALFA PSEUDO FUNCIONAL 05/02/2006 correccion de errores en modulo administracion de categorias Agregar categorias para CABLE Agregar categorias para FONO PRUEBAS DE RENDIMIENTO IDEAL CASES 8/05/2006 Creacion de la tabla Mensajes (congelado hasta marzo (ver entradas del 25 y 26 de marzo) Evaluacion y autorizacion de login de usuarios si es que sus cuentas estan o no activas 2do === Registrar login de usuarios para mensajeria Enviar y recibir mensajes (necesitare ayuda con esto |
)
9/05/2006
Implementacion de Objeto Session para crear registro de sesiones y en global.asa
10/02/2006
Desarrollo de busqueda de datos al inicio de sesion de forma mas eficiente.
Migracion de los datos necesarios hacia el objeto session
11/02/2006
Completada la migracion al uso del objeto session de asp,
12/02/2006
Migracion al objecto sesion de asp, queda ok, se ejectuan pruebas de rendiminto y parece funcionar
Creacion del registro de logeo de Ejecutovos
Eliminacion del codigo de la rutina CerrarCecion de Auth.asp
Response.Cookies("Wellcome").expires = Now()-1
Nombre_Usuario = ""
Response.cookies("Nombre").expires = Now()-1
Nombre_Operador = ""
Response.cookies("Usuario").expires = Now()-1
Tipo_Operador = ""
Response.cookies("tipo").expires = Now()-1
Area_Operador = ""
Response.cookies("Area").expires = Now()-1
loged = false
id_operador = ""
Response.cookies("id").expires = Now()-1
Response.cookies("Loged").expires = now-1
13/02/2006 =======================IMPLEMENTACION=DE=LA=VERSION=BETA=======================
IMPLEMENTACION DE LA VERSION BETA DE MASS DESTROYER
Eliminacion de Codigo del modulo auth.asp
Dim Nombre_Usuaro, Nombre_Operador, Area_Operador, Tipo_Operador, Loged, id_operador
If Request.cookies("Wellcome") = "Verdad" Then
'... Access granned what can I say...
Nombre_Usuario = Request.cookies("Nombre")
Nombre_Operador = Request.cookies("Usuario")
Tipo_Operador = Request.cookies("tipo")
Area_Operador = Request.cookies("Area")
id_operador = Request.cookies("id")
loged = True
End If
14/2/2005
Desarrollo de los primeros prototipos para la funcion de mensajero
La funcion prototipo mensajero funciona a la perfeccion, de momento
le envia un mensaje desde el supervisor a los ejecutios sin mayor inconveniente,
lo hace de forma rapida y limpia, de momento esta enviando un mensaje al ejecutivo que este
conectado, si llegase a obtener dreamweaver seria la raja, pero...
16/2/2005
Optimizado el manejo de sesiones, se redefine el proceso de cierre de sesion para hacer que sea
manejado por los objetos session de asp
19/2/2005 ------------> Faltan Solo 6 Dias para la presentacion del Programa <-------------------
Generado el archivo infact.asp Gestor de reportes para el proyecto mass destroyer accesible por los
Supervisores para generar un informe de gestion, conrespecto a la carga de trabajo de md, Trabajos
para Mostrarla informacion de las tablas Problema, agregado un dtpicker para los datos desde la
pantalla de supervisor
Terminado el requerimiento de Servicios de de reportes de Funcionamiento de MD
22/2/2005 ---------------->FIN PRUEBAS BETA <---------------------------
23/2/2005
Se agrega codigo para evitar que el usuario ejecutivo agregue ordenes con cadenas vacias
25-03-2006 -------------------------Se trabaja en version de produccion-----------------------------------
Se elimina el codigo redundante de default.asp
Sub ValidaLogin
dim cn,rs,login,var1, var2
login = false
Set cn = Server.CreateObject("ADODB.Connection")
cn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" + Server.MapPath("hd2.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
usuario = Trim(UCase(request.Form("login")))
contrasena = Trim(UCase(request.Form("pass")))
If request.Form("Tipo") = "Supervisor" then
'Codigo para validar login ejecutivo
rs.open "Select * From Supervisor",cn
Do While Not rs.eof
var1 = Trim(UCase(rs("sup_id")))
var2 = Trim(UCase(rs("sup_pwd")))
If var1 = usuario And var2=contrasena and rs("su_estado") = -1 Then
login= True
Exit do
End if
rs.movenext
loop
if Not login then
loginscreen "Nombre de Usuario o contraseña incorrecta"
exit sub
Else
EscribeCookie rs("sup_id"), rs("su_nom") & " " & rs("su_ap1") & " " &rs("su_ap2"), "Supervisor", rs("ar_id"), rs("su_id")
RegistraLoginSuper rs("su_id")
end if
End if
If request.Form("Tipo") = "Ejecutivo" then
'Codigo para validar login ejecutivo
rs.open "Select * From Ejecutivo", cn
Do While Not rs.eof
var1 = Trim(UCase(rs("ej_usr")))
var2 = Trim(UCase(rs("ej_pwd")))
If var1 = usuario And var2=contrasena and rs("ej_estado") = -1 Then
login= True
Exit do
End if
rs.movenext
loop
If Not(rs.eof) Then
login=True
End if
if Not login then
loginscreen "Nombre de Usuario o contraseña incorrecta"
exit sub
Else
EscribeCookie rs("ej_usr"), rs("ej_nom") & " " & rs("ej_ap1") & " " &rs("ej_ap2"), "Ejecutivo", rs("ar_id"), rs("ej_id")
RegistraLogin rs("ej_id")
End If
End if
rs.close
cn.close
response.redirect("index.asp")
End Sub
'Sub Escribe cookie Genera una cookiee que guarda los datos del sistema. ya no se usa
Sub EscribeCookie(Usuario, Nombre, Tipo,Area, id)
Response.cookies("Nombre").expires = now + 3600
Response.cookies("Nombre") = Nombre
Response.cookies("Usuario").expires = now + 3600
Response.cookies("Usuario") = usuario
Response.cookies("tipo").expires = now + 3600
Response.cookies("tipo") = tipo
Response.cookies("Area").expires = now + 3600
Response.cookies("Area") = Area
Response.cookies("Wellcome").expires = now + 3600
Response.cookies("Wellcome") = "Verdad"
Response.cookies("id").expires = now + 3600
Response.Cookies("id") = id
Response.cookies("Loged").expires = now + 3600
Response.Cookies("Loged")="Verdad"
%>
<script LANGUAJE = "JavaScript">
<!--
document.alert("<%
response.Write(now+3600) %>");
-->
</script>
<%
End Sub
Se continua el desarrollo del modulo de mensajeria, se revisa la funcionalidad del codigo y deberia ser
funcional en un 100% con el codigo sobrante ya exterminado (no se mantienen funciones o subrutinas que no
esten siendo usadas)
se elimina el archivo auth.asp para optimizar la ejecucion del codigo, ademas su funcion ya ha sido
reemplazada por completo con la utilizacion del objeto session.
Se Agrega el archivo conlib.asp que contiene la cadena de conexion al origen de datos, se hara que este
archivo este disponible en todos los archivos que usen una cadena de conexion a un origen de datos
Se finaliza la migracion y la implementacion del la libreria conlib para la conexion a la base de datos
Se finaliza la deteccion de usuarios conectados por area y la jerarquzacion de mensajero.asp que será
contenido dentru de un frame para que actualize la informacion en pantalla siempre
26-03-2006
Avances en el modulo de mensajeria, se separan los mensajes de supervisor y de ejecutivo de forma tal
que es invisible para los usuarios, asi se generan las instancias para poder generar el envio de mensajes
(estoy pensando en usar ajax... pero me da flojera)
solo avanze 1 hora y 1/2 pero fue un instante de inspiracion (Quae mala venientia metuuntur eadem afficiunt
aegritudine instantia)
8-4-2006
Se continua con el desarrollo del modulo de mensajeria de mass destroyer, (2 semanas de pausa, entre a clases)
se crean los las rutinas que almacenaran los datos en el servidor
se renombra la funcion RecojeDatosDelPost a EnviaMensaje
se comenta el siguente codigo
'¡ Response.Write("Id del Ejecutivo: ")
'¡ Response.Write(Request.Form("Usuario"))
'¡ response.Write("<br>")
'¡ Response.Write("Se envia a todos (true si es así de lo contrario no se vera nada): ")
' Response.Write(Request.Form("todos"))
' response.Write("<br>")
' response.Write("Asunto del mensaje: ")
' Response.Write(Request.Form("Asunto"))
' response.Write("<br>")
' Response.Write("Texto del mensaje:")
' Response.Write(Request.Form("mensaje"))
' response.Write("<br>")
9-4-2006
Se incia el modulo que escribe los mensajes cuando se escriben a topos los ejecutivos
11-4-2006
mass destroyer ya envia mensajes a todos los ejecutivos
ahora se procede a crear el modulo que envia mensajes a 1 ejecutivo conectado.
Se elimina codigo de la sub EnviaMensaje
'Envia mensaje a un usuario
'¡ Response.Write("Id del Ejecutivo: ")
'¡ Response.Write(Request.Form("Usuario"))
'¡ response.Write("<br>")
'¡ Response.Write("Se envia a todos (true si es así de lo contrario no se vera nada): ")
' Response.Write(Request.Form("todos"))
' response.Write("<br>")
' response.Write("Asunto del mensaje: ")
' Response.Write(Request.Form("Asunto"))
' response.Write("<br>")
' Response.Write("Texto del mensaje:")
' Response.Write(Request.Form("mensaje"))
' response.Write("<br>")
Se termina el modulo que envia mensajes a supervisor y a ejecutivos en particular, ademas se mejora
la interface de la bandeja de entrada, pese a que el aun no se termina el modulo de la bandeja de entrada (mero tramite
se divide el modulo de mensajeria en frames para que se pueda crear un panel de lectura, queda ok!
12-04-2006 y 13-04-2006
Se completa el desarrollo del módulo de mensajeria (este modulo está en beta,
y se detectaron algunos errores, pero en teoria una vez terminado deberia ser
operativo.
16-04-2006
Se finaliza finalmente el modulo de lectura y de eliminacion de mensajes
las pruebas en casos ideales funcionan piola
Se importa la base de datos a SQL Server, y la cadena de conexion
todo funciona ok!
0:24 21-04-2006
Se finaliza finalmente la importacion a sql server se corrigen incompatibilidades y
aparentemente funciona como corresponde
esperamos iniciar la marcha blanca
21:49 13-05-2006
Se finaliza la alimentacion de los usuarios del sistema, se genera una bd de acces, que contendra los registros,
lunes se inicia marcha blanca
15/5/2006 -----------------------implementacion, lo posterior es correcciones hechas posteriormente a la implementacion ------------------
Se elimina <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> de infact.asp y se corrigen errores en las fechas
se agrega <% @LCID = 1034 %> al codigo (o mitad del brasigo)
CAMBIOS EN LA FORMA EN QUE LOS EJECUTIVOS VEN EL ORDEN DE LAS COSAS Y LOS SUPERVISORES
18-5-2006
1) Se corrige problema al cerrar sesion, este no se desregistraba de la base de datos
se envian a popups los mensajes de la aplicacion, queda ok, se envian mensajes de prueba
queda todo ok.
2) Boton responder... (sin comentarios), no funciona, pero me dedicare a trabajar en eso, a la brevedad
19-5-2006
Se inician los trabajos en el filtro de ordenes, se revisan que todos los cambios sean arminicos con el codigo anterior, se revisara
codigo para eliminar codigo reduntante
el filtro de ordenes parece funcionar bien en una primera instancia, lo que significa que el sistema podria quedar definitivo
el filtro de las ultimas 2 horas aparenta portarse bien, espero que se siga portandoa asi, pero todo depende el estado del orden de apollo
se revisan ingresos que podrian probocar posibles fallas en sistema, se corrige y queda ok
el servicio de masivos, aparentemente esta funcionando, la aplicacion queda ok
Se elimina codigo desde ord-cont.asp,
'Lista las ordenes a lo bestia
Sub ListaOrdenEjecutivo
dim cn,rs,hoy
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
cn.open CadenaConex
rs.open "SELECT problema.ej_id, problema.pr_date, problema.pr_hr, problema.pr_obs, problema.pr_nodo, problema.pr_snodo, problema.ar_id, problema.estado, problema.pr_comuna,problema.pr_id, tipo_problema.tp_nom FROM tipo_problema INNER JOIN problema ON tipo_problema.tp_id = problema.tp_id Where problema.pr_date = '" & fechagenerica(now) & "' And Problema.ar_id = "& session("Area")&"ORDER BY tipo_problema.tp_nom asc, pr_comuna asc, pr_nodo ASC, pr_snodo ASC",cn
%>
Ordenes Registradas el dia <%=date()%>
<table width="90%" border="0" bordercolor="#000000" cellspacing=1 bgcolor="#000000">
<tr bgcolor="#CCCCCC">
<th>Problema</th>
<th>Comuna</th>
<th>Nodo</th>
<th>Sub Nodo</th>
<th>Observacion</th>
<th>Estado</th>
</tr>
<%
Do While Not Rs.Eof %>
<tr bgcolor="#AACCFF">
<td <%If rs("estado") = -1 Then %> bgcolor= "999999" <%End If %>><%=rs("tp_nom")%></td>
<td <%If rs("estado") = -1 Then %> bgcolor= "999999" <%End If%>><%=rs("pr_comuna")%></td>
<td <%If rs("estado") = -1 Then %> bgcolor= "999999" <%End If%>><%=rs("pr_nodo")%></td>
<td <%If rs("estado") = -1 Then %> bgcolor= "999999" <%End If%>><%=rs("pr_snodo")%></td>
<td <%If rs("estado") = -1 Then %> bgcolor= "999999" <%End If%>><%=rs("pr_obs")%></td>
<td <%If rs("estado") = -1 Then %> bgcolor= "999999" <%End If%>><%if rs("ej_id") = Session("id") then %><%If rs("estado") = -1 Then%>Anulada<%Else%><a href="javascript:DeshabilitaOrden( <%=rs("pr_id")%> )" alt="texto alt">Anular</a><%End If%><%end if%>
</td>
</tr>
<%rs.movenext
Loop
%>
</table>
<%
rs.close
cn.close
End Sub
mass destroyer se esta desempeñando muy bien
29/05/2006
se actualiza el filtro de las ultimas 2 horas, queda establecido y funciona aparentemente bien, se han logrado exportar todos los registros,
quda operativo ok!
dichoso filtro esta en evaluacion
how to
blanquee la tabla de problemas exportandolas a un archivo de access, luego de eso, se cambio el tipo de datos, finalmente se cambiaron los tipos a una
datos en la tabla de access, luego fueron reimplantados en la base de datos de md y mi filtrito funciona piola
SE INICIA UN FILTRO QUE EXPORTARA LOS DATOS A MICROSOFT EXCEL PARA EXPANDIR MAS MI CONOCIMIENTO AL RESPECTO. YO SOY MDMAN!!!
se genera una instancia para poder lograr eso, no funciona aparentemente, pero hare lo posible por liberarlo
se optimiza el funcionamiento del informe exportado a excel, queda operativo.
se cambia el orden en que se muentran los masivos en la pantalla de supervisor, queda ok
31/05/2006
Se trabajando en nuevos prototipos para modulo de mensajeria., se intentara usar algunas herramientas
relacionadas con ajax, espero que funcione
se genera una hoa de ruteo para definir como deberia comportarse mi bb
para tal efecto se crea shmsg.asp
01/06/2006
Se inicia la creacion de los nuevos prototipos para el nuevo subsistema de mensageria, los prototipos se intentarn probar usando la
tecnologia ajax, de funcionar, lo probare con ie y con ffox, migro el desarrollo de md a mi propio pc
Se crean las primeras rutinas que funcionaran en bajo nivel para el modulo de mensajeria, estas no retornan
codigo html solo los valores necesarios para que las funciones de frontend actuen en concecuencia.
se inicia el diseño del esqueleto de las funciones de frontend,
02/06/2006
las funciones en frontend estan siendo creadas en base al mismo orden que fueron creadas en el modulo de
mensajeria operante, de todos modos me estoy llendo con calma, pero aparentemente todo funciona ok, el subsistema de
mensajeria aparenta que va a funcionar bien (en las pruebas locales), de todas formas me llevo el code para asegurarme
de que todo ande ok
5/6/2006 ---------------------------FIN PROCESO DE IMPLEMENTACION ------------------------------
Las funciones del nuevo shell de mensajeria se abandonan, se reutiliza gran parte del codigo antiguo con las
interfaces mejoradas del codigo prototipo, aparentemente se esta portando bien, lo malo es que no podre averiguar si es asi o no
Se corrigen errores de aspecto, en el modulo visualizador de mensajes, In No One We Trust
Las correcciones aparentemente estan funcionando bien, me parece que debo empezar a integrarlo con el modulo de supervsor
se inicia la implementacion evaluare los modulos y si se afecta el redimiento de la plaforma derramare una lagrima. y bbre ubn
Si vuelvo ahí... que sea con estilo... 