 ©
Programa
para la gestión de clínicas dentales |
|
|
<%
dim accion
dim cn
dim cn4
dim rsAcceso
dim rsControl
dim rsParam
dim sSql
dim sSql2
dim sSql4
dim cadena
dim Err
accion=Request.QueryString("acc")
if accion = "d" then
Set cn4 = Server.CreateObject("ADODB.Connection")
cn4.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/db/drtooth.mdb")
set rsParam = server.CreateObject("ADODB.RecordSet")
cadena = session("Log") & session("id") & date & session("Hora")
sSql4="SELECT * FROM Control where id = '" & cadena & "'"
rsParam.Open sSql4,cn4,2,3
if not rsParam.eof and not rsParam.bof then
rsParam.MoveFirst
rsParam.Fields("Fin") = time
rsParam.Update
rsParam.Close
end if
cn4.close
session("Log")=""
session("Pass")=""
session("Hora") = ""
session("id") = ""
if session("Conect") <> 1 then
session.abandon
end if
elseif accion="c" then
response.expires = -1500
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/db/drtooth.mdb")
set rsAcceso = server.CreateObject("ADODB.RecordSet")
sSql = "SELECT * FROM acceso where user='" & request("txtLog") &"'"
rsAcceso.Open sSql,cn,3
if rsAcceso.eof and rsAcceso.bof then
Err = "Usuario no Valido"
elseif rtrim(request("txtPass"))<> rtrim(rsAcceso("Pass")) then
Err = "PassWord Incorrecta"
else
session("Log")=rtrim(rsAcceso("User"))
session("Pass")=rtrim(rsAcceso("Pass"))
session("Hora") = time
session("id") = session.sessionid
set rsControl = server.CreateObject("ADODB.RecordSet")
sSql2 = "SELECT * FROM control"
rsControl.Open sSql2,cn,2,3
rsControl.AddNew
rsControl.fields("Log") = session("Log")
rsControl.fields("IP") = Request.ServerVariables("HTTP_CLIENT_IP")
rsControl.fields("Fecha") = date
rsControl.fields("Inicio") = time
rsControl.fields("sesion") = session("id")
rsControl.fields("id") = session("Log") & session("id") & date & session("Hora")
rsControl.Update
rsControl.Close
end if
rsAcceso.Close
cn.close
end if
%>
|
|
|
|
| CORRESPONDENCIA |
|
Esta
función permite gestionar la correspondencia con los pacientes. Se pueden
preparar y memorizar las cartas y las comunicaciones (felicitaciones,
recordar revisiones, solicitudes de pagos etc..) utilizando el programa
de edición de texto Wordpad (este programa esta incluido con el sistema
operativo Windows©).
Esta
Son las funciones:
Gestión
cartas
Esta
función permite redactar y memorizar cartas tipo. Se pueden preparar cartas
estándar (avisos, felicitaciones, solicitud de pagos, solicitud de revisiones
etc..). Las cartas se redacta utilizando el programa Wordpad de Windows©.
Una vez preparada se memorizan con un nombre.
Imprimir
cartas
Esta
función permite imprimir las cartas previamente memorizadas.
Primero se selecciona la carta (entre la que están memorizadas)
y después los pacientes a los que se quiere enviar. Serán
impresas con los datos de los pacientes.
Además
es posible seleccionar los pacientes en base a su ultima visita o si
tienen deudas.
Preparar
unión para Word
Esta
función permite preparar un archivo (en formato Access o Txt) con los
nombres de los pacientes a lo que se quieren enviar las cartas para
después poder utilizar el programa para editar texto Word©
con la funcion "Combinar Correspondencia".
Justificantes
Permite
imprimir justificantes sea a los pacientes (indicándole
el paciente insertará automáticamente sus datos) que libres
(es decir a personas que no están memorizada en el programa).
Volver
|
|
DrTooth
es un programa especifico para la gestión de clínicas dentales,
consultorio y gabinetes odontológicos desarrollado por Celdas. Este software
odontológico realiza todas las funciones para la gestión de un
gabinete odontológico: gestión ficha pacientes, odontograma, ficha
periodontal, anamnesis, presupuestos, sesiones, extractos de cuentas, listados
pacientes, agenda de citas, correspondencia, contabilidad etc.
©
2002 drtooth.net
|
