DPM2016/DPM2016/Fakturierung/frmFakturierung.vb

Public Class frmFakturierung

    Dim db As New clsDB
    Dim abgeschlossen As New DataTable
    Dim ausgeschlossen As New DataTable

    Private Sub frmFakturierung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        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
        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
                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

    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
        f.Show()
    End Sub

    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
        Me.Close()
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub ToolStripMenuAusschliessen_Click(sender As Object, e As EventArgs) Handles ToolStripMenuAusschliessen.Click
        Try
            Dim i As Integer = 0
            Dim bhnr As Integer = Me.C1Abgeschlossen.Columns("NrBehandlung").Value
            For Each r As DataRow In abgeschlossen.Rows
                If r.Item("nrbehandlung") = bhnr Then

                    ausgeschlossen.ImportRow(r)
                    abgeschlossen.Rows(i).Delete()

                End If
                i = i + 1

            Next
        Catch ex As Exception

        Finally
            abgeschlossen.AcceptChanges()
            ausgeschlossen.AcceptChanges()
        End Try
    End Sub

    Private Sub toolstripmenuAusschlussaufheben_Click(sender As Object, e As EventArgs) Handles toolstripmenuAusschlussaufheben.Click
        Try
            Dim i As Integer = 0
            Dim bhnr As Integer = Me.C1Ausgeschlossen.Columns("NrBehandlung").Value
            For Each r As DataRow In ausgeschlossen.Rows
                If r.Item("nrbehandlung") = bhnr Then

                    abgeschlossen.ImportRow(r)
                    ausgeschlossen.Rows(i).Delete()

                End If
                i = i + 1

            Next
        Catch ex As Exception

        Finally
            abgeschlossen.AcceptChanges()
            ausgeschlossen.AcceptChanges()
        End Try
    End Sub

    Private Sub ToolStripAbschlussVorschau_Click(sender As Object, e As EventArgs) Handles ToolStripAbschlussVorschau.Click
        Try
            Globals.Rg_Funktionen.Vorschau_Rechnung(C1Abgeschlossen.Columns("NRBEHANDLUNG").Value)
        Catch
        End Try

    End Sub

    Private Sub ToolstripAusschlussVorschau_Click(sender As Object, e As EventArgs) Handles ToolstripAusschlussVorschau.Click
        Try
            Globals.Rg_Funktionen.Vorschau_Rechnung(C1Ausgeschlossen.Columns("NRBEHANDLUNG").Value)
        Catch
        End Try

    End Sub
End Class