You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
133 lines
4.1 KiB
133 lines
4.1 KiB
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
|