Version 2018-05-25

DPM2016/Fakturierung/frmFakturierung.vb

@@ -17,8 +17,26 @@
     Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
         If MsgBox("Fakturierung ausführen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
 
+        Dim fp As New frmFortschritt
+        fp.Show()
         Dim dt As New DataTable
         dt = Me.C1Abgeschlossen.DataSource
+
+        fp.ProgressBar1.Minimum = 1
+        fp.ProgressBar1.Maximum = dt.Rows.Count + 1
+        fp.ProgressBar1.Value = 1
+
+        For Each r In dt.Rows
+            Faktura_Aufbereiten(r)
+            fp.ProgressBar1.Value = fp.ProgressBar1.Value + 1
+            fp.Refresh()
+        Next
+        fp.Close()
+        Me.Close()
+
+        Exit Sub
+
+
         Dim f As New frmReportView()
         For Each r In dt.Rows
             If r.item("raten") > 0 Then
@@ -34,6 +52,44 @@
         f.Close()
     End Sub
 
+    Sub Faktura_Aufbereiten(ByVal r As DataRow)
+        Dim buchen As Boolean = True
+        Dim anzahlraten As Integer = 0
+        db.Get_Tabledata("Behandlu", "where nrbehandlung=" + r.Item("nrbehandlung").ToString)
+        anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
+        If anzahlraten = 0 Then anzahlraten = 1
+        Globals.FakturaNr = 0
+        Dim reportnr As Integer
+        reportnr = db.Get_ReportNr_by_ESTypnr(r.Item("nrestyp"))
+
+        Dim Folgeauswertung As Integer
+        Dim Separater_Druckjob As Boolean
+        Dim doloop As Boolean = True
+        db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
+        Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
+        Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
+        Dim hauptfaktura As Integer
+        While doloop = True
+            For i As Integer = 1 To anzahlraten
+                Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + r.Item("nrbehandlung").ToString, r.Item("nrbehandlung").ToString)
+                f.Show()
+                f.Fakturierung(reportnr, r.Item("nrbehandlung"), "", i, buchen:=buchen)
+                'f.Print_Rechnung(False, False, i)
+                f.Close()
+            Next i
+            If Folgeauswertung > 0 Then
+                buchen = False
+                reportnr = Folgeauswertung
+                db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
+                Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
+                Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
+            Else
+                doloop = False
+            End If
+        End While
+        Globals.FakturaNr = 0
+    End Sub
+
     Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
         Dim f As New frmPrinterselect
         f.MdiParent = Me.MdiParent