<% 'Option Explicit Dim rs Dim ArztID Dim PatName %> <% Sub CheckLogin() Dim SQLtxt ArztID = 0 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 PatName = Request.Form("txtPatName") SQLtxt = "SELECT TOP 1000 PA_RechKopf.ArztID, PA_RechKopf.RechNr, PA_RechKopf.RechDat AS RechDat, PA_RechKopf.PatName, PA_RechKopf.RechSum AS RechSum, PA_RechKopf.MahnKZ AS MahnKZ, PA_RechKopf.MahnStufe AS MahnStufe, SUM(ISNULL(PA_Zahlungen.ZahlBetrag, 0)) AS ZahlBetrag " SQLtxt = SQLtxt & "FROM PA_RechKopf LEFT OUTER JOIN PA_Zahlungen ON PA_RechKopf.ArztID = PA_Zahlungen.ArztID AND PA_RechKopf.RechNr = PA_Zahlungen.RechNr " SQLtxt = SQLtxt & "WHERE (PA_RechKopf.ArztID = " & ArztID & ") AND (PA_RechKopf.RechDat > CONVERT(DATETIME, '1980-01-01 00:00:00', 102)) AND PA_RechKopf.PatName LIKE N'" & PatName & "%' " SQLtxt = SQLtxt & "GROUP BY PA_RechKopf.ArztID, PA_RechKopf.RechDat, PA_RechKopf.RechNr, PA_RechKopf.PatName, PA_RechKopf.RechSum, PA_RechKopf.MahnKZ, PA_RechKopf.MahnStufe " SQLtxt = SQLtxt & "ORDER BY PA_RechKopf.PatName" ' Response.Write(SQLtxt) call dbConnect(C_CONNECTIONSTRING) Set rs = dbExecuteSQL(SQLtxt) Else Response.Write("Bitte geben Sie erst Ihre Zugangsdaten ein") Response.End() End If End Sub %> <% Function getOffeneRechnungen(Auswahl,Sorted) Dim SQLtxt End Function %> BIPAS - Arztabrechnungen
Start
Shop
 
Kontakt
Impressum
Sitemap
 

<% Call CheckLogin() summe=0.0 anz=0 do until rs.EOF on error resume next rechsum=CDbl(rs("RechSum")) if Err.Number<>0 Then rechsum=0 'Response.Write "rechsum=null" End If on error goto 0 on error resume next zahlsum=CDbl(rs("ZahlBetrag")) if Err.Number<>0 Then zahlsum=0 'Response.Write "zahlsum=null" End If on error goto 0 offen=rechsum-zahlsum summe=summe+offen zeile="" +_ "" +_ "" +_ "" +_ "" if zahlsum=0.0 then zeile=zeile + "" else zeile=zeile & "" end if zeile = zeile + "" if rs("MahnKZ")="" then zeile=zeile + "" else zeile=zeile & "" end if zeile=zeile & "" +_ "" + cr Response.Write(zeile) anz=anz+1 rs.MoveNext loop if anz>0 then %> <% end if %>
<%Response.Write(Session("ArztID") & " - " & Session("ArztName"))%>
Es werden nur die letzten 1000 Rechnungen angezeigt
Rech.
Nr		 Rechnungs-
Datum		 Rechnungs-
Betrag		 Patientenname
Zahl-
Betrag
offener
Betrag
 M
KZ		 M
St
" & rs("RechNr") & "" & rs("RechDat") & "" & FormatNumber(rechsum,2) & "" & rs("PatName") & " " & FormatNumber(zahlsum,2) & "" & FormatNumber(offen,2) & " " & rs("MahnKZ") & "" & rs("MahnStufe") & "
Anz. offene Rechnungen: <%=anz%> Summe offene Rechnungen: <%=FormatNumber(summe,2)%>