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(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
        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
        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
        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
        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