Initial commit

DPM2016/Fakturierung/frmFakturierung.vb

@@ -0,0 +1,34 @@
+Public Class frmFakturierung
+
+    Dim db As New clsDB
+    Private Sub frmFakturierung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim abgeschlossen As New DataTable
+        Dim ausgeschlossen As New DataTable
+        db.Get_Tabledata("view_abgeschlossene_Behandlungen")
+        abgeschlossen = db.dsDaten.Tables(0).Copy
+        ausgeschlossen = abgeschlossen.Copy
+        ausgeschlossen.Rows.Clear()
+        Me.C1Abgeschlossen.DataSource = abgeschlossen
+        Me.C1Abgeschlossen.DataMember = abgeschlossen.TableName
+        Me.C1Ausgeschlossen.DataSource = ausgeschlossen
+        Me.C1Ausgeschlossen.DataMember = ausgeschlossen.TableName
+    End Sub
+
+    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
+        Dim dt As New DataTable
+        dt = Me.C1Abgeschlossen.DataSource
+        Dim f As New frmReportView()
+        For Each r In dt.Rows
+            If r.item("raten") > 0 Then
+                Dim i As Integer
+                For i = 1 To r.item("raten")
+                    f.Fakturierung(r.item("nrestyp"), r.item("nrbehandlung"), " where nrbehandlung = " + r.item("nrbehandlung").ToString, i)
+                Next
+            Else
+                f.Fakturierung(r.item("nrestyp"), r.item("nrbehandlung"), " where nrbehandlung = " + r.item("nrbehandlung").ToString, 0)
+            End If
+        Next
+        f.Visible = False
+        f.Close()
+    End Sub
+End Class