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.
362 lines
17 KiB
362 lines
17 KiB
Imports System.ComponentModel
|
|
Imports C1.Win.C1TrueDBGrid
|
|
|
|
Public Class Mahnungen
|
|
Dim db1 As New clsDB
|
|
Dim db2 As New clsDB
|
|
Dim db3 As New clsDB
|
|
Dim db4 As New clsDB
|
|
Dim spalten As New Tabellenspalte
|
|
Private Sub Mahnungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Refresh_data
|
|
End Sub
|
|
Sub refresh_data(Optional type As Integer = 0)
|
|
Cursor = Cursors.WaitCursor
|
|
Dim dt As DateTime = Now
|
|
Dim days As Integer
|
|
Try
|
|
days = db1.Get_Option(10002)
|
|
dt = dt.AddDays(days * -1)
|
|
|
|
Catch
|
|
End Try
|
|
|
|
If type = 0 Or type = 1 Then
|
|
Me.C1Mahnungen1.DataSource = Nothing
|
|
db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(dt) + "'")
|
|
Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0)
|
|
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName
|
|
spalten.Spaltentitel_aktualisieren(Me.C1Mahnungen1, db1.dsDaten.Tables(0).TableName, db1.dsDaten)
|
|
|
|
End If
|
|
|
|
If type = 0 Or type = 2 Then
|
|
Me.C1Mahnungen2.DataSource = Nothing
|
|
db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(dt) + "'")
|
|
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0)
|
|
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName
|
|
spalten.Spaltentitel_aktualisieren(Me.C1Mahnungen2, db1.dsDaten.Tables(0).TableName, db1.dsDaten)
|
|
End If
|
|
|
|
If type = 0 Or type = 3 Then
|
|
Me.C1Mahnungen3.DataSource = Nothing
|
|
db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(dt) + "'")
|
|
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0)
|
|
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
|
|
spalten.Spaltentitel_aktualisieren(Me.C1Mahnungen3, db1.dsDaten.Tables(0).TableName, db1.dsDaten)
|
|
End If
|
|
|
|
If type = 0 Or type = 4 Then
|
|
Me.C1Mahnungen4.DataSource = Nothing
|
|
|
|
db4.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 is not null")
|
|
Me.C1Mahnungen4.DataSource = db4.dsDaten.Tables(0)
|
|
Me.C1Mahnungen4.DataMember = db4.dsDaten.Tables(0).TableName
|
|
spalten.Spaltentitel_aktualisieren(Me.C1Mahnungen4, db1.dsDaten.Tables(0).TableName, db1.dsDaten)
|
|
End If
|
|
|
|
Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Function Convert_Date(ByVal datum As Date) As String
|
|
Dim y As String
|
|
Dim m As String
|
|
Dim d As String
|
|
y = datum.Year
|
|
m = datum.Month
|
|
While Len(m) < 2
|
|
m = "0" + m
|
|
End While
|
|
d = datum.Day
|
|
While Len(d) < 2
|
|
d = "0" + d
|
|
End While
|
|
Return y + "." + m + "." + d
|
|
End Function
|
|
Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click, VorschauToolStrip2MenuItem.Click, VorschauToolStrip3MenuItem.Click
|
|
Try
|
|
Select Case sender.name
|
|
Case "VorschauToolStripMenuItem"
|
|
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 1, True, False)
|
|
Case "VorschauToolStrip2MenuItem"
|
|
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 2, True, False)
|
|
Case "VorschauToolStrip3MenuItem"
|
|
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 3, True, False)
|
|
End Select
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem.Click, DruckenToolStrip2MenuItem.Click, DruckenToolStrip3MenuItem.Click
|
|
Try
|
|
Select Case sender.name
|
|
Case "DruckenToolStripMenuItem"
|
|
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
|
|
refresh_data(1)
|
|
Case "DruckenToolStrip2MenuItem"
|
|
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
|
|
refresh_data(2)
|
|
Case "DruckenToolStrip3MenuItem"
|
|
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
|
|
refresh_data(3)
|
|
End Select
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub MahnstopSetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MahnstopSetzenToolStripMenuItem.Click, MahnstopSetzenToolStrip2MenuItem.Click, MahnstopSetzenToolStrip3MenuItem.Click
|
|
Dim db As New clsDB
|
|
Try
|
|
Select Case sender.name
|
|
Case "MahnstopSetzenToolStripMenuItem"
|
|
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ", mahnstop=1 where nrfaktura=" + s)
|
|
C1Mahnungen1.Columns("Mahnstop").Value = True
|
|
C1Mahnungen1.Update()
|
|
Case "MahnstopSetzenToolStrip2MenuItem"
|
|
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ", mahnstop=1 where nrfaktura=" + s)
|
|
C1Mahnungen2.Columns("Mahnstop").Value = True
|
|
C1Mahnungen2.Update()
|
|
Case "MahnstopSetzenToolStrip3MenuItem"
|
|
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ", mahnstop=1 where nrfaktura=" + s)
|
|
C1Mahnungen3.Columns("Mahnstop").Value = True
|
|
C1Mahnungen3.Update()
|
|
End Select
|
|
Catch
|
|
End Try
|
|
db.Dispose()
|
|
End Sub
|
|
|
|
|
|
Private Sub MahnstopEntfernenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MahnstopEntfernenToolStripMenuItem.Click, MahnstopEntfernenToolStrip2MenuItem.Click, MahnstopEntfernenToolStrip3MenuItem.Click
|
|
Dim db As New clsDB
|
|
Try
|
|
Select Case sender.name
|
|
Case "MahnstopEntfernenToolStripMenuItem"
|
|
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ", mahnstop=0 where nrfaktura=" + s)
|
|
C1Mahnungen1.Columns("Mahnstop").Value = False
|
|
C1Mahnungen1.Update()
|
|
Case "MahnstopEntfernenToolStrip2MenuItem"
|
|
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ", mahnstop=0 where nrfaktura=" + s)
|
|
C1Mahnungen2.Columns("Mahnstop").Value = False
|
|
C1Mahnungen2.Update()
|
|
Case "MahnstopEntfernenToolStrip3MenuItem"
|
|
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ", mahnstop=0 where nrfaktura=" + s)
|
|
C1Mahnungen3.Columns("Mahnstop").Value = False
|
|
C1Mahnungen3.Update()
|
|
End Select
|
|
|
|
Catch
|
|
End Try
|
|
db.Dispose()
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub c1ContextMenuMahnungen1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuMahnungen1.Opening
|
|
Try
|
|
If C1Mahnungen1.Columns("Mahnstop").Value = True Then
|
|
Me.MahnstopEntfernenToolStripMenuItem.Visible = True
|
|
Me.MahnstopSetzenToolStripMenuItem.Visible = False
|
|
Else
|
|
Me.MahnstopEntfernenToolStripMenuItem.Visible = False
|
|
Me.MahnstopSetzenToolStripMenuItem.Visible = True
|
|
End If
|
|
Catch
|
|
Me.MahnstopEntfernenToolStripMenuItem.Visible = False
|
|
Me.MahnstopSetzenToolStripMenuItem.Visible = True
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ContextMenuMahnung2_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuMahnung2.Opening
|
|
Try
|
|
If C1Mahnungen2.Columns("Mahnstop").Value = True Then
|
|
Me.MahnstopEntfernenToolStrip2MenuItem.Visible = True
|
|
Me.MahnstopSetzenToolStrip2MenuItem.Visible = False
|
|
Else
|
|
Me.MahnstopEntfernenToolStrip2MenuItem.Visible = False
|
|
Me.MahnstopSetzenToolStrip2MenuItem.Visible = True
|
|
End If
|
|
Catch ex As Exception
|
|
Me.MahnstopEntfernenToolStrip2MenuItem.Visible = False
|
|
Me.MahnstopSetzenToolStrip2MenuItem.Visible = True
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ContextMenuMahnung3_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuMahnung3.Opening
|
|
Try
|
|
If C1Mahnungen3.Columns("Mahnstop").Value = True Then
|
|
Me.MahnstopEntfernenToolStrip3MenuItem.Visible = True
|
|
Me.MahnstopSetzenToolStrip3MenuItem.Visible = False
|
|
Else
|
|
Me.MahnstopEntfernenToolStrip3MenuItem.Visible = False
|
|
Me.MahnstopSetzenToolStrip3MenuItem.Visible = True
|
|
End If
|
|
Catch ex As Exception
|
|
Me.MahnstopEntfernenToolStrip3MenuItem.Visible = False
|
|
Me.MahnstopSetzenToolStrip3MenuItem.Visible = True
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Mahnungen1_FetchRowStyle(sender As Object, e As FetchRowStyleEventArgs) Handles C1Mahnungen1.FetchRowStyle, C1Mahnungen2.FetchRowStyle, C1Mahnungen3.FetchRowStyle
|
|
Try
|
|
Select Case sender.name
|
|
Case "C1Mahnungen1"
|
|
If Me.C1Mahnungen1.Columns("Mahnstop").CellValue(e.Row) = True Then
|
|
e.CellStyle.ForeColor = Color.Red
|
|
Else
|
|
e.CellStyle.ForeColor = Color.Black
|
|
End If
|
|
Case "C1Mahnungen2"
|
|
If Me.C1Mahnungen2.Columns("Mahnstop").CellValue(e.Row) = True Then
|
|
e.CellStyle.ForeColor = Color.Red
|
|
Else
|
|
e.CellStyle.ForeColor = Color.Black
|
|
End If
|
|
Case "C1Mahnungen3"
|
|
If Me.C1Mahnungen3.Columns("Mahnstop").CellValue(e.Row) = True Then
|
|
e.CellStyle.ForeColor = Color.Red
|
|
Else
|
|
e.CellStyle.ForeColor = Color.Black
|
|
End If
|
|
End Select
|
|
Catch
|
|
e.CellStyle.ForeColor = Color.Black
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub tsbtnMahnlauf1_Click(sender As Object, e As EventArgs) Handles tsbtnMahnlauf1.Click, tsbtnMahnlauf2.Click, tsbtnMahnlauf3.Click
|
|
If MsgBox("Alle Mahnungen drucken und verbuchen?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
|
Try
|
|
Select Case sender.name
|
|
Case "tsbtnMahnlauf1"
|
|
For Each r As DataRow In db1.dsDaten.Tables(0).Rows
|
|
If r.Item("Mahnstop") Is System.DBNull.Value Then
|
|
Globals.Rg_Funktionen.Mahnung(r.Item("nrfaktura").ToString, 1, False, False)
|
|
Else
|
|
If r.Item("Mahnstop") <> True Then Globals.Rg_Funktionen.Mahnung(r.Item("nrfaktura").ToString, 1, False, False)
|
|
End If
|
|
Next
|
|
Case "tsbtnMahnlauf2"
|
|
For Each r As DataRow In db2.dsDaten.Tables(0).Rows
|
|
If r.Item("Mahnstop") Is System.DBNull.Value Then
|
|
Globals.Rg_Funktionen.Mahnung(r.Item("nrfaktura").ToString, 2, False, False)
|
|
Else
|
|
If r.Item("Mahnstop") <> True Then Globals.Rg_Funktionen.Mahnung(r.Item("nrfaktura").ToString, 2, False, False)
|
|
End If
|
|
Next
|
|
Case "tsbtnMahnlauf3"
|
|
For Each r As DataRow In db3.dsDaten.Tables(0).Rows
|
|
If r.Item("Mahnstop") Is System.DBNull.Value Then
|
|
Globals.Rg_Funktionen.Mahnung(r.Item("nrfaktura").ToString, 3, False, False)
|
|
Else
|
|
If r.Item("Mahnstop") <> True Then Globals.Rg_Funktionen.Mahnung(r.Item("nrfaktura").ToString, 3, False, False)
|
|
End If
|
|
Next
|
|
End Select
|
|
refresh_data()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Mahnungen1_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Mahnungen1.MouseDown, C1Mahnungen2.MouseDown, C1Mahnungen3.MouseDown, C1Mahnungen4.MouseDown
|
|
sender.bookmark = sender.rowcontaining(e.Y)
|
|
'Select Case sender.name
|
|
' Case "C1Mahnungen1"
|
|
' Me.C1Mahnungen1.Bookmark = Me.C1Mahnungen1.RowContaining(e.Y)
|
|
' Case "C1Mahnungen2"
|
|
' Me.C1Mahnungen1.Bookmark = Me.C1Mahnungen1.RowContaining(e.Y)
|
|
' Case "C1Mahnungen3"
|
|
' Me.C1Mahnungen1.Bookmark = Me.C1Mahnungen1.RowContaining(e.Y)
|
|
'End Select
|
|
'Me.Notizlist.Bookmark = Me.Notizlist.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
Private Sub MahnstufeZurücksetzen2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MahnstufeZurücksetzen2ToolStripMenuItem.Click, MahnstufeZurücksetzen3ToolStripMenuItem.Click, MahnstufeZurücksetzen4ToolStripMenuItem.Click
|
|
If MsgBox("Mahnstufe zurücksetzen?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
|
Select Case sender.name
|
|
Case "MahnstufeZurücksetzen2ToolStripMenuItem"
|
|
Dim db As New clsDB
|
|
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum1=null, mahnfaelligkeit1=null,mahngebuehr1=0 where nrfaktura=" + s)
|
|
refresh_data()
|
|
Dim i As Integer = 0
|
|
For Each r As DataRow In db1.dsDaten.Tables(0).Rows
|
|
If r("nrfaktura") = s Then Me.C1Mahnungen1.Bookmark = i
|
|
i = i + 1
|
|
Next
|
|
Case "MahnstufeZurücksetzen3ToolStripMenuItem"
|
|
Dim db As New clsDB
|
|
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum2=null, mahnfaelligkeit2=null,mahngebuehr2=0 where nrfaktura=" + s)
|
|
refresh_data()
|
|
Dim i As Integer = 0
|
|
For Each r As DataRow In db2.dsDaten.Tables(0).Rows
|
|
If r("nrfaktura") = s Then Me.C1Mahnungen2.Bookmark = i
|
|
i = i + 1
|
|
Next
|
|
Case "MahnstufeZurücksetzen4ToolStripMenuItem"
|
|
Dim db As New clsDB
|
|
Dim s As String = Me.C1Mahnungen4.Columns("nrfaktura").Value
|
|
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum3=null, mahnfaelligkeit3=null,mahngebuehr3=0 where nrfaktura=" + s)
|
|
refresh_data()
|
|
Dim i As Integer = 0
|
|
For Each r As DataRow In db3.dsDaten.Tables(0).Rows
|
|
If r("nrfaktura") = s Then Me.C1Mahnungen3.Bookmark = i
|
|
i = i + 1
|
|
Next
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub AusListeLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AusListeLöschenToolStripMenuItem.Click, AusListeLöschenToolStrip2MenuItem.Click, AusListeLöschenToolStrip3MenuItem.Click
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub DesignToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignToolStripMenuItem.Click, DesignToolStrip2MenuItem.Click, DesignToolStrip3MenuItem.Click
|
|
Try
|
|
Select Case sender.name
|
|
Case "DesignToolStripMenuItem"
|
|
Dim s As String = Me.C1Mahnungen1.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 1, True, True)
|
|
Case "DesignToolStrip2MenuItem"
|
|
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 2, True, True)
|
|
Case "DesignToolStrip3MenuItem"
|
|
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
|
|
Globals.Rg_Funktionen.Mahnung(s, 3, True, True)
|
|
End Select
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DruckenToolStrip2MenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStrip2MenuItem.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class
|