<%
Dim SQLtxt
Dim rs
Dim rsRechArt
Dim ArztID
Dim RechNr
Dim BelegNr
%>
<%
Sub CheckLogin()
Dim SQLtxt
ArztID = 0
If len(Request.Form("txtRechNr"))>0 Then
RechNr=Request.Form("txtRechNr")
else
RechNr=0
End If
If Session("login")="OK" Then
' Response.Write("Login ist OK")
If len(Session("ArztID")) Then
ArztID=Session("ArztID")
Else
Response.Write("Kundennr. fehlt trotz Anmeldung OK")
Response.End()
End If
Else
Response.Write("Bitte geben Sie erst Ihre Zugangsdaten ein")
Response.End()
End If
set rsRechArt=Nothing
SQLtxt="SELECT * FROM KZ_Rechnungsart"
' Response.Write(SQLtxt)
Call dbConnect(C_CONNECTIONSTRING)
Set rsRechArt = dbExecuteSQL(SQLtxt)
If rsREchArt.EOF then
Response.Write("Keine Rechnungsarten vorhanden")
Response.end()
End If
End Sub
%>
BIPAS - Arztabrechnungen
<%
Set rs=Nothing
SQLtxt="SELECT * FROM PA_Rechkopf WHERE ArztId=" & ArztID & " AND RechNr=" & RechNr
' Response.Write(SQLtxt)
Call dbConnect(C_CONNECTIONSTRING)
Set rs = dbExecuteSQL(SQLtxt)
If rs.EOF then
Response.Write("Rechnungsnummer nicht vorhanden")
Response.end()
End If
BelegNr = rs("BelegNr")
%>
