 ©
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
%>
|
|
|
Volver Ficha Paciente
|
FICHA
EXTRACTOS DE CUENTAS |
|
Aquí
son memorizados todos los movimientos contables del paciente (facturas,
pagos y saldo). El extracto de cuentas es actualizado automáticamente
cuando se emite una factura. Es posible además visualizar solo el E.C.
actual, ósea solo los movimientos (facturas y pagos) del tratamiento en
curso.
Es
visualizado el saldo realizado en rojo (ósea lo que debe el paciente),
y el saldo total en gris (ósea lo que debería el paciente si termina todos
los trabajos presupuestados).
En
la parte superior izquierda es visualizado el "Porcentaje de Riesgo"
que
nos indica en que franja (Amarilla, Naranja, Roja) de riesgo se encuentra
el porcentaje de la deuda calculada sobre el presupuesto total. En este
caso estan marcados 30% Amarillo, 50% Naranja y 70 % Rojo (los tres colores
representan la escala de gravedad). El icono 
es verde lo cual quiere decir que el porcentaje de la deuda calculada
sobre el presupuesto global es inferiror al 30 %. En el caso de superarla
el icono seria del color de la franja (ejemplo si el porcentaje fuera
del 75% el icono seria de color Rojo).
Los
porcentajes se establecen en las personalizaciones del programa (ver
parrafo "Personalizaciones") pero es posible establecer
una escala de porcentaje personalizada por cada paciente introduciendo
los porcentajes directamente en el Extracto de Cuentas.
Volver Ficha Paciente
|
|
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
|
