Version 20180904
This commit is contained in:
335
DPM2016/Finanzaen/frmMahnungen.vb
Normal file
335
DPM2016/Finanzaen/frmMahnungen.vb
Normal file
@@ -0,0 +1,335 @@
|
||||
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
|
||||
Private Sub Mahnungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Refresh_data
|
||||
End Sub
|
||||
Sub refresh_data()
|
||||
Cursor = Cursors.WaitCursor
|
||||
Me.C1Mahnungen1.DataSource = Nothing
|
||||
Me.C1Mahnungen2.DataSource = Nothing
|
||||
Me.C1Mahnungen3.DataSource = Nothing
|
||||
Me.C1Mahnungen4.DataSource = Nothing
|
||||
|
||||
db1.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum1 IS null and faelligam < '" + Convert_Date(Now) + "'")
|
||||
Me.C1Mahnungen1.DataSource = db1.dsDaten.Tables(0)
|
||||
Me.C1Mahnungen1.DataMember = db1.dsDaten.Tables(0).TableName
|
||||
|
||||
db2.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum2 IS null and mahnfaelligkeit1 < '" + Convert_Date(Now) + "'")
|
||||
Me.C1Mahnungen2.DataSource = db2.dsDaten.Tables(0)
|
||||
Me.C1Mahnungen2.DataMember = db2.dsDaten.Tables(0).TableName
|
||||
|
||||
db3.Get_Tabledata("View_Offene_Mahnungen", " where mahndatum3 IS null and mahnfaelligkeit2 <'" + Convert_Date(Now) + "'")
|
||||
Me.C1Mahnungen3.DataSource = db3.dsDaten.Tables(0)
|
||||
Me.C1Mahnungen3.DataMember = db3.dsDaten.Tables(0).TableName
|
||||
|
||||
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
|
||||
|
||||
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)
|
||||
Case "DruckenToolStrip2MenuItem"
|
||||
Dim s As String = Me.C1Mahnungen2.Columns("nrfaktura").Value
|
||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
|
||||
Case "DruckenToolStrip3MenuItem"
|
||||
Dim s As String = Me.C1Mahnungen3.Columns("nrfaktura").Value
|
||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
|
||||
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
|
||||
Reference in New Issue
Block a user