Public Class clsFakturierung

    Dim m_fakturanr As Integer
    Property fakturanr As Integer
        Get
            Return m_fakturanr
        End Get
        Set(value As Integer)
            m_fakturanr = value
        End Set
    End Property
    Public Sub Verbuchen(ByVal Behandlungsnummer As Integer, Optional Ratenr As Integer = 0, Optional nrhauptfaktura As Integer = 0)
        Dim db As New clsDB
        Dim paramdaten As New DataTable
        Dim dbr As DataRow = paramdaten.NewRow

        paramdaten.Columns.Clear()
        paramdaten.Rows.Clear()


        dbr = paramdaten.NewRow
        paramdaten.Columns.Add("Paramname")
        paramdaten.Columns.Add("Paramvalue")

        dbr(0) = "@behandlungsnr"
        dbr(1) = Behandlungsnummer
        paramdaten.Rows.Add(dbr)
        dbr = paramdaten.NewRow
        dbr(0) = "@ratenr"
        dbr(1) = Ratenr

        paramdaten.Rows.Add(dbr)
        dbr = paramdaten.NewRow
        dbr(0) = "@nrhauptfaktura"
        dbr(1) = nrhauptfaktura

        paramdaten.Rows.Add(dbr)
        dbr = paramdaten.NewRow
        dbr(0) = "@idatum"
        dbr(1) = Now

        paramdaten.Rows.Add(dbr)

        db.Get_Tabledata("sp_verbuchen", "", "", "", True, paramdaten)
        db.Get_Tabledata("Faktura", "", "Select top 1 nrfaktura from faktura order by nrfaktura desc")
        If nrhauptfaktura = 0 Then Me.fakturanr = db.dsDaten.Tables(0).Rows(0).Item(0)
    End Sub

    Public Function Verrechnet(ByVal behandlungsnummer As Integer) As Integer
        Dim db As New clsDB
        Dim paramdaten As New DataTable
        Dim dbr As DataRow = paramdaten.NewRow

        paramdaten.Columns.Clear()
        paramdaten.Rows.Clear()

        dbr = paramdaten.NewRow
        paramdaten.Columns.Add("Paramname")
        paramdaten.Columns.Add("Paramvalue")

        dbr(0) = "@fnkt"
        dbr(1) = 1
        paramdaten.Rows.Add(dbr)


        dbr = paramdaten.NewRow
        dbr(0) = "@behandlungsnr"
        dbr(1) = behandlungsnummer
        paramdaten.Rows.Add(dbr)

        db.Get_Tabledata("sp_verrechnungsstatus", "", "", "", True, paramdaten)
        Dim result As Integer = 0
        If db.dsDaten.Tables(0).Rows(0).Item(1) > 0 Then result = 2
        If db.dsDaten.Tables(0).Rows(0).Item(0) > 0 And db.dsDaten.Tables(0).Rows(0).Item(1) = 0 Then result = 1
        Return result
    End Function

    Public Function Storno(ByVal behandlungsnummer As Integer) As Integer
        Dim db As New clsDB
        Dim paramdaten As New DataTable
        Dim dbr As DataRow = paramdaten.NewRow

        paramdaten.Columns.Clear()
        paramdaten.Rows.Clear()

        dbr = paramdaten.NewRow
        paramdaten.Columns.Add("Paramname")
        paramdaten.Columns.Add("Paramvalue")

        dbr(0) = "@fnkt"
        dbr(1) = 2
        paramdaten.Rows.Add(dbr)

        dbr = paramdaten.NewRow
        dbr(0) = "@behandlungsnr"
        dbr(1) = behandlungsnummer
        paramdaten.Rows.Add(dbr)

        db.Get_Tabledata("sp_verrechnungsstatus", "", "", "", True, paramdaten)

    End Function

    Public Function Storno_Zahlung(ByVal Zahlungnr As Integer)
        Dim db As New clsDB
        Dim paramdaten As New DataTable
        Dim dbr As DataRow = paramdaten.NewRow

        paramdaten.Columns.Clear()
        paramdaten.Rows.Clear()

        dbr = paramdaten.NewRow
        paramdaten.Columns.Add("Paramname")
        paramdaten.Columns.Add("Paramvalue")

        dbr(0) = "@zahlungnr"
        dbr(1) = Zahlungnr
        paramdaten.Rows.Add(dbr)

        db.Get_Tabledata("sp_zahlung_storno", "", "", "", True, paramdaten)

        Dim zahlung As New DataTable
        db.Get_Tabledata("Zahlung", "", "Select * from zahlung where nrzahlung=" + Zahlungnr.ToString)
        zahlung = db.dsDaten.Tables(0).Copy

        db.Insert_ZJournal(zahlung.Rows(0).Item("nrfaktura"), zahlung.Rows(0).Item("nrdebitor"), db.Get_Datavalue("Select dbo.get_name(" + zahlung.Rows(0).Item("nrdebitor").ToString + ")"), zahlung.Rows(0).Item("Betrag"), db.Get_Datavalue("Select konto from konto where nrkonto=" + zahlung.Rows(0).Item("nrkonto").ToString), zahlung.Rows(0).Item("vorauszahlung").ToString, "J")
    End Function

    Public Sub Preview_Mahnung()

    End Sub

End Class