AVISO/Aviso/rCntrlVermerke.vb

Imports VERAG_PROG_ALLGEMEIN

Public Class rCntrlVermerke

    Dim VermerkArt = 2
    Dim tblSnd_SendungID As Integer = -1
    Dim AVISO As New VERAG_PROG_ALLGEMEIN.cAviso

    Dim VermerkeDAL As New cVermerkeDAL
    Private AvisoDAL As New cAvisoDAL
    Dim painted As Boolean = False

    Sub init(AVISO, tblSnd_SendungID)
        Me.AVISO = AVISO
        Me.tblSnd_SendungID = tblSnd_SendungID
        Vermerke_anzeigen2()
    End Sub


    Public Sub Vermerke_anzeigen2(Optional SendungsIndex As Integer = -1, Optional rowindex As Integer = -1)
        aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
        gridVermerke.Columns.Clear()
        '  lblInfoAviso.Visible = False
        infotxt = ""
        '  MsgBox("SO")
        ' If setAkive_AuswahlID() = -1 Then Exit Sub
        If AVISO Is Nothing Then Exit Sub
        If AVISO.AvisoID <= 0 Then Exit Sub




        'Hier werden die passenden Vermerke zum Aviso angezeigt
        Dim sendwhere = ""
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
            If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False
            Select Case VermerkArt
                Case 0
               '     dgvSendungen.ClearSelection()
                Case 1
                    ' If dgvSendungen.SelectedRows.Count > 0 Then
                    sendwhere = " AND VermerkArt='A' "
                    ' End If

                Case 2
                    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL


                    If tblSnd_SendungID > 0 Then
                        sendwhere = " AND VermerkArt='S'  AND SendungID=" & tblSnd_SendungID

                    Else
                        sendwhere = " AND 1=0 " ' 1=0, damit keine Zeile angezeigt wird, wenn keine Sendung ausgewählt
                    End If

                    If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = True


            End Select

        End If

        ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"


        Dim hSQL = usrcntlAktDetails.vermerkehSQL
        hSQL = hSQL.Replace("[[AvisoId]]", AVISO.AvisoID)
        hSQL = hSQL.Replace("[[sendwhere]]", sendwhere)
        ' MsgBox(hSQL)
        infotxt = AvisoDAL.getAvisoInfo(AVISO.AvisoID)
        If infotxt <> "" Then
            'lblInfoAviso.Visible = True
        End If


        gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)


        If gridVermerke.Columns("VermerkeOptions") Is Nothing Then
            Dim dgvlc As New DataGridViewLinkColumn
            dgvlc.Name = "VermerkeOptions"
            gridVermerke.Columns.Insert(gridVermerke.ColumnCount - 1, dgvlc)
        End If

        'Grid neu designen
        'GridZeichnenBilanz()
        usrcntlAktDetails.gridVermerke_SpaltenFestlegen(gridVermerke)

        'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
        If SendungsIndex > 0 Then
            'dgvSendungen.ClearSelection()
            'dgvSendungen.Rows(rowindex).Selected = True
        Else
            gridVermerke.ClearSelection()
        End If

        If rowindex > 0 Then
            gridVermerke.ClearSelection()
            gridVermerke.Rows(rowindex).Selected = True
        End If

        painted = False
        ' timer.Enabled = True
        ' initDGVSendungenRows()
    End Sub


    Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
        Dim tmpIndex = -1
        If (tblSnd_SendungID > 0) Then
            tmpIndex = tblSnd_SendungID
        End If
        Dim init As Boolean = False

        usrcntlAktDetails.gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex, init)

        If init Then Vermerke_anzeigen2(tmpIndex, e.RowIndex)
    End Sub
    Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
        If painted Then Exit Sub

        'If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
        '  If dgvSendungen.RowCount = 0 Then Exit Sub
        usrcntlAktDetails.gridVermerke_Paint(gridVermerke)
        painted = True
    End Sub


    'Sub ArrowDown_ShowHide()
    '    picArrowDown.Visible = False
    '    If dgvSendungen.RowCount = 0 Then Exit Sub
    '    Select Case tbcntlVermerke.SelectedIndex
    '        Case 0, 1, 2
    '            Try
    '                Dim showFirst = False
    '                For Each r As DataGridViewRow In gridVermerke.Rows
    '                    If r.Displayed Then showFirst = True
    '                    If showFirst Then
    '                        If (r.Cells("Hervorheben").Value = "1" Or r.Cells("VermerkeOptions").Value <> "") AndAlso Not r.Displayed Then
    '                            picArrowDown.Visible = True
    '                        End If
    '                    End If
    '                Next
    '            Catch ex As Exception
    '                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
    '            End Try
    '    End Select
    'End Sub



    'Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschenNew.Click, conVermerkEntgLöschen.Click

    '    If gridVermerke.SelectedRows.Count = 0 Then Exit Sub

    '    If sender Is conVermerkEntgLöschen Then

    '        If vbNo = MsgBox("Wollen Sie den ausgewählten entgültig Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
    '            Exit Sub
    '        End If

    '        If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value.ToString.EndsWith("wurde gelöscht.") Then 'Vermerk, dass Sendung gelöscht wurde.
    '            Exit Sub
    '        End If
    '        Dim index As Integer = -1
    '        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
    '        VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
    '        Vermerke_anzeigen(index)

    '    ElseIf sender Is conVermerkLöschenNew Then

    '        If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
    '            Exit Sub
    '        End If
    '        Dim index As Integer = -1
    '        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
    '        VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
    '        Vermerke_anzeigen(index)
    '    End If




    'End Sub


End Class