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