 ©
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
%>
|
|
|
|
| SITUACIONES |
|
Con
DrTooth se pueden realizar muchos tipos de consultas. Esto permite obtener
en pocos segundos una informaciones prácticamente imposibles de obtener
con una gestión manual.
| Intervenciones
por facturar |
Esta
función permite efectuar la impresión de todas las intervenciones
por facturar (realizadas y no facturadas) de cada paciente seleccionado.
|
| Situación
Pacientes |
Esta
función permite imprimir la situación contable de los pacientes
seleccionados. De cada paciente será reflejado: Fecha inicio tratamiento,
Intervenciones por realizar, Intervenciones por facturar, Fecha
ultima visita, Facturado, Anticipos y saldo. Serán reflejados también
los totales (de todos los pacientes seleccionados). |
| Situación
Contable |
Esta
función permite imprimir el extracto de cuentas (es
decir pagos, facturas y saldo) de los pacientes seleccionados.
|
| Imprimir
Facturado |
Esta
función permite efectuar la impresión del facturado de un periodo
especifico de los pacientes seleccionados.
|
| Impresión
Diaria |
Esta
función permite efectuar una impresión de las sesiones, las intervenciones
y de los movimientos contables (facturas y cobros pacientes) día
por día de un periodo seleccionado.
|
| Impresión
caja detalle |
Esta
función permite
imprimir la caja diara detallada (especificando los importes cobrado
al contado, con tarjeta, en talon etc.).
|
| Impresión
caja |
Esta
función permite
imprimir la caja diara en sintesis (especificando los importes
cobrado al contado, con tarjeta, en talon etc.).
|
| Lista
facturas |
Esta
función permite
imprimir el listado de las facturas emitidas en el periodo seleccionado. |
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
|
