 ©
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
|
FACTURACION |
|
Esta
función permite realizar todas las operaciones de facturación y cobro
a los pacientes. Esta son las funciones:
| Factura
anticipo * |
Permite
emitir facturas de anticipos. |
| Factura
intervenciones * |
Permite
emitir facturas incluyendo las intervenciones, será visualizada
la lista de todas las intervenciones realizadas y disponible para
ser facturadas. Se seleccionan las deseadas y en el caso haya anticipos
pagados anteriormente serán descontados automáticamente. Además
se puede elegir de que manera imprimir la factura ( detallada, sin
detallar etc..).
|
| Recibo |
Permite
realizar un cobro con posibilidad de emitir un recibo sin valor
fiscal.
|
| Factura
libre * |
Permite
emitir facturas libres, ósea no vinculadas a intervenciones. Además
se pueden emitir con IVA y retenciones (en el caso de prestaciones
en otras clínicas, por venta de algún aparato etc..).
|
| Nota
de credito |
Permite
emitir notas de crédito. Cuando es necesario emitir un documento
para anular una factura emitida a un paciente (en el caso haya que
devolver un importe).
|
| Reimprimir |
Permite
reimprimir facturas ya emitidas. |
*
Una vez imprimida la factura
(de anticipo, libre o intervenciones) será requerida la confirmación de
la misma. Confirmanda la factura será registrada automáticamente en el
extracto de cuenta del paciente. En el caso de factura final será requerido
también si archivar las intervenciones facturadas y si el tratamiento
ha terminado. Si la factura no se confirma queda anulada.
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
|
